当前位置:主页 > Office办公 > 其他专区 > Access

最新发布

Access2016数据库开发教程3
Access2016数据库开发教程3

第三章 程序设计文档  为了方便学习,在本教程中直接嵌入了程序设计文档(需求设计、功能设计、表设计文档),这三个文档原本有规范化格式,在此进行了简化,详细的文档写法请参考相关书籍与资料。  3.1 需求设计说明书  3.1.1概述  文档说明  本需求和设计说明书是为了满足公司更加有效地管理协调费用的报销而开发的一套管理软件的简略说明。  设计目标  满足公司对费用报销的有效管理,使公司可以更加有效的协调和控制公司的费用开支,优化和降低公司的运营成本,提高公司的盈利水平,使公司的管理更上一个台阶。  3.1.2程序开发及运行环境:  网络配制:局域网联网,2个客户端。

601 次浏览
Access2016数据库开发教程4
Access2016数据库开发教程4

第四章 表设计  4.1 创建数据表  现在我们已经完成了准备工作,可以开始正式在开发平台后台数据库文件中建立数据表。表应该建在后端数据库中,后端数据库文件名是Data.mdb如下图4-1所示:   图4-1 后台数据库文件  双击data.mdb文件,根据第三章中的3.3节表设计说明书的设计,在data.mdb中创建表tblCodeyg和tblBxmx,首先来设计一下tblCodeyg表。  进入设计表的界面,如下图4-2所示:   图4-2 表设计界面  单击图4-2中的【创建】,选中“表设计”,如下图4-3所示:

434 次浏览
Access2016数据库开发教程5
Access2016数据库开发教程5

4.2 在表中输入数据  为了方便在教程后续的学习,我们需要在表中输入少量的模拟数据。在表tblCodeyg录入2条记录,如下图4-13所示:   图4-13在表tblCodeyg中录入数据  表tblBxmx录入2条记录,下图4-14所示:   图4-14 在表tblBxmx中录入数据  注意:表tblBxmx中员工姓名是组合框,来源于表tblCodeyg,实际上表中保存的值是员工编码Y01,Y02,如果您与上图不一致,则参考本章第4.1节“创建数据表”中的图4-5。  4.3 链接后台数据库  提示 为什么要采用链接后台数据库而不采用直接在主程序Main.mdb中直接建表?原因有两点:一是为了共享数据文件(Data.mdb);二是当软件投入使用后,数据文件中已存在数据,而主程序(Main.mdb)可能需要完善或增加功能,当要对软件进行升级时,采用链接后台数据库的方式不影响数据,方便维护。

446 次浏览
Access2016数据库开发教程6
Access2016数据库开发教程6

第五章 查询设计  提示 为了保证链接表与后台数据库data.mdb一致,每次当您更改了data.mdb中的表设计(例如表中增加了字段、更改了字段类型等)时,需要刷新一次,方法就是双击SysFrmLogin窗体登陆一次,平台会自动刷新一次链接表。  5.1 为何要创建查询  创建查询是为了将报销明细中的员工编码(例如Y01,Y02)转换为姓名(例如张三,李四),以方便操作员按姓名去检索数据。 如果不创建查询,则只能按员工编码(例如Y01,Y02)的方式去检索数据,这样会让软件的使用者感觉不方便,显得不人性化。  5.2 创建查询  为了检索数据的需要,需要建立一个选择查询qryBxmx,步骤如下:  第1步:进入Main.mdb的设计界面  按住键盘的 shift 键(注意,一定要等该程序文件完全打开之后再松开 shift 键,否则会出现登录对话框,如果出现了登录对话框,则意味着你按 shift 键失败,需要关闭程序重新打开,有少量初学者在这个问题上出了纰漏),双击打开Main.mdb 文件,如下图5-1所示:   图5-1 进入main.mdb设计状态

386 次浏览
Access2016数据库开发教程7
Access2016数据库开发教程7

第六章 窗体设计  6.1 自动创建窗体介绍  平台中集成了自动化的窗体创建工具,能够快速自动生成开发人员所需要的窗体及相应功能的代码,而不需要通过手工去创建和书写VBA代码。当这些窗体无法满足软件设计的特殊需要时,开发人员可在自动创建的窗体上进行少量修改后,即可满足软件设计的需要。  由于自动创建窗体是平台特有的功能,需要结合平台的一些规则去进行操作,才能实现自动创建具备相关功能的窗体,接下来的一节“自动编号管理”是必经之路,只有掌握了自动编号管理后,方可进行本章后续的学习。  6.2 自动编号管理  6.2.1自动编号管理介绍  【自动编号管理】是平台提供的一项功能,用于对各种自定义编号规则进行定义/维护。在报销软件的开发中,可以利用此功能,方便地实现表tblCodeyg中字段ygID和表tblBxmx中字段mxID的自动编号。  从第三章程序设计文档中3.3节 表设计说明书中,可以看到:  表tblCodeyg中字段ygID的自动编号规则:  “Y+序号2位”,格式举例:Y01,Y02,Y03……

375 次浏览
Access2016数据库开发教程8
Access2016数据库开发教程8

6.3 数据模块创建向导  在平台的【开发者工具】à【数据模块创建向导】,通过几次鼠标点击操作,就可快速自动生成具有完善的增加、修改、删除、查找、打印预览、打印、导入、导出功能(打印预览和打印需要在此基础上手动修改)的数据维护模块。  在使用【数据模块创建向导】创建窗体之前,需要对相关的表做好以下工作:  1) 需要对表设置主键;  2) 必填字段的“必需”属性设为“是”;  3) 需要先对表中的相关自动编号字段在【开发者工具】à【自动编号管理】进行设置。  4) 创建菜单分组  因为“报销明细”这个模块是被归类为“基础资料”的,因此我们需要先在导航菜单中建立一个名为“基础资料”分组菜单节点。  当然,这一步并不是必不可少的步骤,你也可以在该功能模块创建完成之后再添加该菜单节点,通过快速开发平台中集成的“导航菜单编辑器”可以非常简单轻松的对导航菜单进行调整。  当完成上述4点后,就可以利用【数据模块创建向导】通过一键来自动生成数据维护模块。

438 次浏览
《Access数据库程序设计》教学(考试)大纲
《Access数据库程序设计》教学(考试)大纲

一、课程基本情况课程名称:Access数据库程序设计课程代号:253考核对象:非计算机专业本专科学生先修课程:计算机应用基础学时:72学时(理论48学时,上机实验24学时)考试安排:每年两次考试,一般安排在学期末考试方式:省二级考试(笔试,机试)考试时间:笔试60分钟,机试90分钟设置目的:

Access参数查询实例教程
Access参数查询实例教程

关于查询的最好的部分是可以一次又一次地保存和运行相同的查询,但是当您通过只更改条件来一次又一次地运行相同的查询时,则可以考虑查询来接受参数并按指定参数值来查询。现在通过创建一个简单的例子来看看一个参数查询。打开数据库,然后在创建表 选项卡中选择:查询设计。双击Projects表并关闭显示对话框。选择想要查看的字段作为查询结果,如以下屏幕截图所示。在查询设计网格中,在ProjectStart列的条件 行中,键入[输入项目开始时间], 字符串[输入项目开始时间] 是输入参数的提示。方括号表示要查询输入,而文本是输入项目开始时间是参数提示信息。让我们现在运行查询,将看到以下提示。现在输入下面的日期,如以下屏幕截图所示 -假设Projects 表中有以下数据 -那么执行查询,将得到以下数据 -  因此,将看到2017年12月30日开始的项目的详细信息。 转到“设计视图”并再次运行查询,输入项目开始时间:2017-12-27。

1209 次浏览
VBA直接解压文件(不支持压缩)
VBA直接解压文件(不支持压缩)

提示: 不要定义示例中的 strFileNameFolder 变量为String 类型,必须定义为 Variant 类型, 否则代码不能正常运行。示例 1: 通过此例你可以浏览压缩文件.你选中一个文件后此宏会在你的默认文件路径下创建一个新的文件夹并解压文件到这个文件夹。 Sub UnzipFile() Dim FSO As Object Dim oApp As Object Dim strFileName As Variant Dim strFileNameFolder As Variant Dim strDefPath As String Dim strDate As String '只支持Zip压缩文件,不支持Rar或其它压缩格式 strFileName = Application.GetOpenFilename(filefilter:="Zip Files (*.zip), *.zip", MultiSelect:=False) If Not (strFileName = False)Then '新文件夹的上级文件夹. '你也可以支持指定路径 strDefPath = "C:\Users\test" strDefPath = Application.DefaultFilePath If Right(strDefPath, 1) <> "" Then strDefPath = strDefPath & "" End If '创建文件夹名称 strDate = Format(Now, " dd-mm-yy h-mm-ss") strFileNameFolder = strDefPath & "MyUnzipFolder " & strDate & "" '创建名为 strDefPath 的普通文件夹 MkDir strFileNameFolder '提取所有文件到此创建的文件夹 Set oApp = CreateObject("Shell.Application") oApp.Namespace(strFileNameFolder).CopyHere oApp.Namespace(strFileName).items '假如你只需要提取某一个文件,可以如下: 'oApp.Namespace(strFileNameFolder).CopyHere oApp.Namespace(strFileName).items.Item("test.txt") MsgBox "文件已经解压到: " & strFileNameFolder On Error Resume Next Set FSO = CreateObject("scripting.filesystemobject") '删除临时文件 FSO.deletefolder Environ("Temp") & "\Temporary Directory*", True End If End Sub

1055 次浏览
Access数据库软件版本号保存在INI文件中,然后从INI文件中提取版本号
Access数据库软件版本号保存在INI文件中,然后从INI文件中提取版本号

很久以前帮客户做的一个客户管理系统,有一个取软件版本号的函数,感觉还有点用,与大家分享一下Access数据库软件版本号保存在INI文件中,然后从INI文件中提取软件的当前版本号(可用来与服务器的最新版本号对比,然后提示是否需要更新) '软件版本号保存在INI文件中,然后从INI文件中提取版本号 Private Sub GetCurrVer() '作者:tmtony 2003-02-03 Dim sLine As String, iPos As Integer, sTmp As String Dim sFormName As String, sTmp2 As String Dim bFormFound As Boolean Dim intType As Integer Dim iPos2 As Integer Dim iSubIndex As Integer Dim iIndex As Integer Dim sFile As String sFile = CurrentProject.Path & "\cn2005.ini"Open sFile For Input As #1 DoInput #1, sLineIf Left$(sLine, 1) = ";" Or sLine = "" Then GoTo Jump iPos = InStr(sLine, "=") 'sTmp = Mid$(sLine, iPos + 1, InStr(sLine, "=") - iPos - 1)If iPos > 0 Then sTmp = Left$(sLine, iPos - 1) 'If sTmp = "Version" Then sTmp2 = Mid$(sLine, InStr(sLine, "=") + 2) 'End If If Right$(sTmp2, 1) = Chr$(34) Then sTmp2 = Left$(sTmp2, Len(sTmp2) - 1) Select Case sTmp Case "Version" txtCurrVersion = sTmp2 Case "VersionDate" txtCurrVersionDate = sTmp2 Case "Path" Me.txtCurrPath = sTmp2 End Select GoTo Jump End If Jump: Loop Until EOF(1) Close #1 txtCurrPath = Nz(CurrentProject.Path) End Sub

323 次浏览
共计204条记录 上一页 1.. 4 5 6 7 8 9 10 ..21 下一页