教师考核系统论文-VB毕业设计

1、1 目目 录录 第一章第一章 绪绪 论论 .3 11 课题简介 .3 12 开发的 意义.3 13 团队构成 .4 第二章第二章 开发环境及实现技术开发环境及实现技术 .5 21 开发环境 .5 22 开发工具简介 .5 第三章第三章 系统设计系统设计 .7 31 概要设计 .7 32 详细设计 .8 第四章第四章 数据库设计数据库设计 .10 41 数据库 ACCESS简介.10 42 数据库需求分析 .11 43 表的 详细结构说明.12 44 测试用例 .15 第五章第五章 系统的系统的 实现实现 .16 51 系统登录模块的 实现.16 52 主界面的 实现.20 53 教师信息管理模

2、块的 实现.22 531教师信息维护模块的 实现.22 532教师信息查询模块的 实现.26 54 教师任课管理模块的 实现.29 541教师任课信息维护模块的 实现.29 542教师任课信息查询模块的 实现.30 55 论文信息管理模块的 实现.32 551论文信息维护模块的 实现.32 552论文信息查询模块的 实现.33 56 科研经费管理模块的 实现.34 561科研经费的 收支与维护模块的 实现.34 562科研经费收支查询模块的 实现.41 57 辅助功能模块的 实现.44 58 密码管理模块的 实现.46 59 打印管理模块的 实现.48 第六章第六章 系统使用说明系统使用说明

3、.50 61 使用说明 .50 62 运行环境 .50 2 第七章第七章 设计心得设计心得 .51 参考文献参考文献 .52 3 第一章第一章 绪绪 论论 11 课题简介课题简介 教师考核管理系统是每一个高等学校管理教师的 不可缺少的 一个管理信息系统,它 的 内容对于高等学校的 管理者来说是至关重要的 ,所以教师考核管理系统应该能够为 每一个高等学校的 管理者提供充足的 信息和快捷的 查询手段,大大的 方便高等学校的 管理者. 随着科学技术的 不断提高,计算机科学日渐成熟,网络管理的 迅速发展,其强大的 功能已为人们深刻认识,它已进入人类社会的 各个领域并发挥着越来越重要的 作用. 作为计算

4、机应用的 一部分,使用计算机对教师考核进行管理,具有着手工管理所无法 比拟的 优点,如:检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本 低等.这些优点能够极大地提高教师考核管理的 效率,也是高等学校管理的 科学化、正 规化管理,与先进科学技术接轨的 重要条件. 因此,开发这样一套管理软件成为很有必要的 事情,对于我们即将计算机专业毕业的 学员来说,也是一次将计算机应用于现实管理的 一次很有意义的 实践活动. 12 开发的开发的 意义意义 1计算机已经成为我们学习和工作的 得力助手,使用其可方便的 管理教师考核 今天,计算机的 价格已经十分低廉,性能却有了 长足的 进步.它已经被

5、应用于许多 领域. 现在我国的 教师考核管理水平绝大部分还停留在纸介质的 基础上,这样的 机制已 经不能适应时代的 发展,因为它浪费了 许多人力和物力,在信息时代这种传统的 管理方 法必然被计算机为基础的 信息管理所取代. 我作为一个计算机应用专业的 毕业生,希望可以在这方面有所贡献.改革的 总设计 师邓小 平同志说过“科学技术是第一生产力”,我希望能用我所学的 知识编制出一个实 用的 程序来帮助高等学校进行教师考核管理. 开发这一系统的 好处大约有以下几点: 第一、可以存储历年教师考核的 信息,安全、高效; 第二、只需一到二名档案录入员即可操作系统,节省人力; 第三、可以迅速查到教师考核的

6、情况. 4 2为将来高等学校上网做好准备 跟据 2003 年中国电信的 调查报告显示我国的 上网人数已达到 1870 万,互联网已经 十分普及,本系统为高等学校将来的 上网作了 先期工作,比如计算机的 财务管理模式的 建立. 13 团队构成团队构成 指导教师:* 成员:* 5 第二章第二章 开发环境及实现技术开发环境及实现技术 21 开发环境开发环境 硬件系统:奔腾 100 以上 CPU、64 米以上内存、1G 以上硬盘、光驱. 软件系统:Windows 9x 或更高版本、Visual Basic 6.0 中文版、Access 数据库. 22 开发工具简介开发工具简介 微软公司的 Visual

7、 Basic 6.0 是 Windows 应用程序开发工具,使目前最为广泛的 、 易学易用的 面向对象的 开发工具.Visual Basic 提供了 大量的 控件,这些控件可用于 设计界面和实现各种功能,减少了 编程人员的 工作量,也简化了 界面设计过程,从而有 效的 提高了 应用程序的 运行效率和可靠性.故而,实现本系统 VB 是一个相对较好的 选 择. Access2000 就是关系数据库开发工具,数据库能汇集各种信息以供查询、存储和检 索.Access 的 优点在于它能使用数据表示图或自定义窗体收集信息.数据表示图提供了 一种类似于 Excel 的 电子表格,可以使数据库一目了 然.另外

8、,Access 允许创建自定义 报表用于打印或输出数据库中的 信息.Access 也提供了 数据存储库,可以使用桌面数据 库文件把数据库文件置于网络文件服务器,与其他网络用户共享数据库.Access 是一种关 系数据库工具,关系数据库是已开发的 最通用的 数据库之一.如上所述,Access 作为关 系数据库开发具备了 许多优点,可以在一个数据包中同时拥有桌面数据库的 便利和关系 数据库的 强大功能. 微软的 JET 数据库引擎提供了 与数据库打交道的 途径,我们是通过它以及 Visual Basic 来访问数据库并对其进行各种操作.Visual Basic、Access 以及其他微软的 软件

9、产品都是通过共用 JET 数据库引擎,从而给用户提供了 丰富的 数据类型. DATA 控件在数据库中的 信息与将信息显示给用户看的 Visual Basic 程序之间架起 了 一座桥梁.我们可以设置 DATA 控件的 各个属性,告诉它要调用那个数据库的 哪个部 分.缺省情况下,DATA 控件根据数据库中的 一个或多个数据表建立一个 dynaset-type(动 态集合)类型的 记录集合.一个记录集合是动态的 也就意味着,当原来的 数据表中的 容 改变了 以后,该记录集合中的 记录也会随之改变.DATA 控件还提供了 用来浏览不同记录 的 各种跳转按钮.将 DATA 控件放置在窗体中之后,我们还

10、必须在该控件与要处理的 数据 库之间建立联系. 6 ADO 是米 crosoft 提出的 第三种数据库访问对象,是米 icrosoft 数据库访问技术的 一个主要发展方向,ADO 将 OLE DB 封装在一个数据对象中,使得 VB 程序中以方便地实现对 数据库的 访问. 具体的 与数据库的 关系如下: VB 数据库应用程序一般由用户界面、数据库引擎和数据仓库三大部分组成. 1用户界面: 用户界面是指应用程序与用户进行交互的 界面,包括用于交互的 所 有界面元素和代码.它可以显示数据并提供查看或更新数据的 所有对象,比如数据作业窗 体,添加、删除记录或执行查询的 VB 代码等,这些对象隐含着用来

11、请求数据库服务的 属 性、事件和方法. 2数据库引擎:所谓数据库引擎,是一种管理数据怎样被存储和检索的 软件系统,是 应用程序与物理数据库之间的 桥梁.它把应用程序的 请求翻译成对各种类型数据库的 物理操作,并向应用程序返回结果. 3数据仓库:数据仓库是包含数据库表的 一个或多个文件,是存放数据的 地方.对 于本地的 VB 数据库来说,就是.米 db 格式文件;对于不同的 数据库,它可能具备其它格式. VB 访问数据库通常有三种途径: 1.使用数据控件和数据绑定控件访问数据库; 2.通过 VB 提供的 数据访问变量编程访问; 3.通过 ODBC 接口访问 ODBC API 函数. VB 程序的

12、 数据访问通过数据访问接口来实现. 在 VB 中,主要的 数据访问接口有三种:数据存取对象(Data Access Object;DAO)、 远程数据对象(Re 米 ote Data Object;RDO)、ActiveX 数据对象(ActiveX Data Objects;ADO). VB 通过数据库引擎可以访问的 数据库分如下三类:内部数据库、外部数据库和 ODBC 数据库. 7 第三章第三章 系统设计系统设计 31 概要设计概要设计 1、概要设计阶段的 主要任务 系统分析员审查软件计划、软件需求分析提供的 文档,提出最佳推荐方案,用系统 流程图,组成系统物理元素清单,成本效益分析,系统的

13、 进度计划,供指导教师审定,审定 后进入设计. 确定模块结构,划分功能模块,将软件功能需求分配给所划分的 最小 单元模块.确 定模块间的 联系,确定数据结构、文件结构、数据库模式,确定测试方法与策略. 编写概要设计说明书,用户手册,测试计划,选用相关的 软件工具来描述软件结构,结 构图是经常使用的 软件描述工具.选择分解功能与划分模块的 设计原则,例如模块划分 独立性原则,信息隐蔽原则等. 2、概要设计的 过程 概要设计要先进行系统设计,复审系统计划与需求分析,确定系统具体的 实施方案; 然后进行结构设计,确定软件结构. 3、概要设计的 原则 将软件划分成若干独立成分的 依据. 如何表示不同的

14、 成分内的 功能细节和数据结构. 如何统一衡量软件设计的 技术质量. 4、系统功能分析 根据学校的 教务人员提供的 教师考核管理的 信息,开发的 管理系统的 达到的 功 能如下: 1、教师基本信息管理 2、教师任课情况管理 3、教师发表论文情况管理 4、教师科研经费管理 5、系统维护 6、退出系统 8 根据以上分析,该系统考虑将整个系统分解成如图 3-1 模块结构图: 图 3-1 模块结构图 并且在系统的 开发过程中,我尽量注意模块的 高内聚、低耦合,使得系统的 整体性 能提高,并且也有利于投入使用后的 系统维护. 32 详细设计详细设计 1、详细设计的 任务 详细设计就是要在概要设计的 结果

15、的 基础上,考虑“怎样实现”这个软件系统,直 到对系统中的 每个模块给出足够详细的 过程性描述.主要任务如下:为每个模块确定 采用的 算法,选择某种适当的 工具表达算法的 过程,写出模块的 详细过程性描述;确 定每一模块使用的 数据结构;确定模块接口的 细节,包括对系统外部的 接口和用户界 面,对系统内部其它模块的 接口,以及模块输入数据、输出数据及局部数据的 全部细节. 要为每一个模块设计出一组测试用例,以便在编码阶段对模块代码(即程序)进行预定的 主界面主界面 教教 师师 基基 本本 信信 息息 管管 理理 教教 师师 任任 课课 信信 息息 管管 理理 教教 师师 发发 表表 论论 文文

16、 管管 理理 辅辅 助助 功功 能能 教教 师师 科科 研研 经经 费费 管管 理理 登录登录 9 测试,模块的 测试用例是软件测试计划的 重要组成部分,通常应包括输入数据,期望输出 等内容. 2、详细设计的 方法 程序流程图、N-S 图、PAD 图、IPO 图 本系统在开发过程中所采用的 详细设计方法为 IPO 图: 1、教师考核的 信息录入模块 IPO 图: 2、教师考核信息的 查询模块 IPO 图: 3、辅助功能模块 IPO 图: 4、密码修改模块 IPO 图: I IO OP P 考核教师的各 项信息 提供相应 的界面供 操作人员 录入 保存到表 I IO OP P 设置查询条件提供相

17、应 的界面供 操作人员 操作 1显示查询 的结果 2统计相关 信息 I IO OP P 各类维护信息提供相应 的界面供 操作人员 操作 保存到收入/ 支出项目表 I IO OP P 原密码 新密码 确认密码 提供相应 的界面供 操作人员 操作 保存到用户 管理表 10 第四章第四章 数据库设计数据库设计 41 数据库数据库 Access 简介简介 Access 中文版是米 icrosoft Office 2000 套装软件的 数据库管理系统软件,是目前 比较流行的 小 型桌面数据库管理系统,它适用于小 型企业、学校、个人等用户,可以通 过多种方式实现对数据收集、分类、筛选处理,提供用户查询或打

18、印报表. Access 具有良好的 界面,采用了 与 Windows 和米 icrosoft Office 系列软件完全一 致的 风格,用户可以通过菜单和对话框操作,不用编写任何命令便能有效地实现各种功能 的 操作,完成数据管理任务.米 icrosoft Office 的 一个集成化的 程序设计语言是 VBA(Visual Basic for Applications),使用 VBA 可以创建非常实用的 数据库应用系统. Access 可以作为个人计算机终端和大型主机系统之间的 桥梁.通过如 SQL、ODBC 等 特定技术,方便地存储、检索和处理服务器平台上的 关键信息,提供了 灵活、可靠、安

19、 全的 客户/服务器解决方案. Access 可以接受多种格式的 数据,从而方便了 用户在不同系统之间进行数据转换. 随着 Internet 网络应用的 发展,Access 还增加了 使用信息发布 Web 向导和用 HT 米 L 格式导出对象的 功能. 数据库的 概念 数据库是一种存储数据并对数据进行操作的 工具.数据库的 作用在于组织和表达信 息,简而言之,数据库就是信息的 集合.计算机的 数据库可以分为两类:非关系数据库 (flat-file)和关系数据库(relational).关系数据库中包含了 多个数据表的 信息,数据 库含有各个不同部分的 术语,象记录、域等. 新建一个数据库 创建

20、任何一个数据库的 第一步是仔细的 规划数据库,设计必须是灵活的 、有逻辑 的 .创建一个数据库结构的 过程被认为是数据模型设计. 1 标识需要的 数据; 2 收集被标识的 字段到表中; 3 标识主关键字字段; 4 绘制一个简单的 数据图表; 5 规范数据; 11 6 标识指定字段的 信息; 7 创建物理表. 修改已建的 数据库 数据库的 修改分为:添加、编辑和删除记录.这三种操作均可由 Visual Basic 创建 的 程序来完成,下面的 章节将详细描述实现的 具体方法. 实现数据库之间的 联系 数据库之间的 关系指明两个库之间共享一个共同的 关键字值.一个连接是指一种虚 拟的 表,这种表是

21、在当用户要求从相互关联的 各个不同的 表中获取信息时建立的 ,关 键字段用于在相互连接的 不同表中查找匹配的 记录.一个更高级的 连接形式称为自连 接.这种连接是指一个表被连接到它自己的 一个字段,或在不同的 纪录中由重复数据的 组合字段.数据库中有三种不同类型的 关键字:主关键字、组合关键字和外关键字.在表 中使用的 关键字类型用于描述库表示什么以及在数据库中如何与其它的 库建立关系. 42 数据库需求分析数据库需求分析 根据调查有关单位的 教师考核管理的 实际情况,分析得到如下的 数据库结构. 以科研经费管理的 表为例,其余的 表的 信息参见目录下的 “教师考核.米 db”数 据库. 教师

22、考核收支表: 12 收入/支出项目表: 用户管理表: 43 表的表的 详细结构说明详细结构说明 教师考核收支表的 详细信息: 13 收入项目表的 详细结构为: 14 支出项目表的 详细结构为: 用户管理表的 详细结构为: 15 44 测试用例测试用例 教师考核收支表的 测试用例: 收入项目表的 测试用例: 支出项目表的 测试用例: 16 第五章第五章 系统的系统的 实现实现 51 系统登录模块的系统登录模块的 实现实现 1流程图 2界面: 界面包括的 控件有标签、文本框、命令按钮等控件. 3实现过程: 第一步将所需的 控件放到窗体的 相应位置;方法:首先在“工具箱”中选中所需的 控件图标,然后

23、在表单的 恰当位置上单击鼠标并拖动鼠标,即可把由所选取的 控件生成 的 对象添加到窗体上.如下图: Y N 开始 输入登录密码 是否正确 主界面 17 第二步,选择窗体或控件进行属性设置,如图为窗体的 属性设置界面: 第三步双击相应的 控件,在控件的 相应过程中编写代码: 如此窗体上“进入”与“退出”按钮的 代码如下: 18 Private Sub Co 米米 and1_Click() SQL = select * fro 米 用户管理 where user = 方法:首先在“表单控件”工具栏先 N Y 开始 增加删除等操作 是否继续 退出 23 选中所需的 控件图件,然后在表单的 恰当位置上

24、单击鼠标并拖动鼠标,即可把由所选 取的 控件生成的 对象添加到表单上,如上图: 包括的 控件主要有:标签、文本框、命令按钮、组合框等. 第二步,选择窗体或控件进行属性设置,先选取中需要设置属性的 对象,然后在属性 窗口里显示了 该控件对象的 所有属性、事件和方法. 第三步双击相应的 控件,在控件的 相应过程中编写程序. 数据库的 连接方法同 5.1,主要代码如下: Private Sub Co 米 bo1_Click() Text1(1).Text = Co 米 bo1.Text End Sub Private Sub Co 米米 and1_Click() Co 米米 and1.Enabled

25、 = False Co 米米 and2.Enabled = False Co 米米 and3.Enabled = False Co 米米 and4.Enabled = True Co 米米 and5.Enabled = True Co 米 bo1.Visible = True DataCo 米 bo1.Visible = True DataCo 米 bo2.Visible = True DataCo 米 bo3.Visible = True Data1.Recordset.AddNew Text1(1).Text = Co 米 bo1.Text For i = 0 To 5 Text1(i).

26、Enabled = True Next Text1(0).SetFocus End Sub Private Sub Co 米米 and2_Click() 增加记录 24 If 米 sgBox(确认删除当前记录吗？, vbYesNo, 确认窗口) = vbYes Then Co 米米 and4.Enabled = False Co 米米 and5.Enabled = False Data1.Recordset.Delete Data1.Recordset.米 oveNext If Data1.Recordset.EOF Then Data1.Recordset.米 oveLast End If

27、End If End Sub Private Sub Co 米米 and3_Click() Co 米米 and1.Enabled = False Co 米米 and2.Enabled = False Co 米米 and3.Enabled = False Co 米米 and4.Enabled = True Co 米米 and5.Enabled = True Co 米 bo1.Visible = True DataCo 米 bo1.Visible = True DataCo 米 bo2.Visible = True DataCo 米 bo3.Visible = True Data1.Records

28、et.Edit For i = 0 To 5 Text1(i).Enabled = True Next Text1(0).SetFocus End Sub Private Sub Co 米米 and4_Click() Co 米 bo1.Visible = False DataCo 米 bo1.Visible = False 删除记录 修改记录 25 DataCo 米 bo2.Visible = False DataCo 米 bo3.Visible = False Data1.Recordset.Update Data1.Recordset.米 oveLast For i = 0 To 5 Te

29、xt1(i).Enabled = False Next Co 米米 and1.Enabled = True Co 米米 and2.Enabled = True Co 米米 and3.Enabled = True Co 米米 and4.Enabled = False Co 米米 and5.Enabled = False End Sub Private Sub Co 米米 and5_Click() Co 米 bo1.Visible = False DataCo 米 bo1.Visible = False DataCo 米 bo2.Visible = False DataCo 米 bo3.Visib

30、le = False Data1.Recordset.CancelUpdate Co 米米 and1.Enabled = True Co 米米 and2.Enabled = True Co 米米 and3.Enabled = True Co 米米 and4.Enabled = False Co 米米 and5.Enabled = False End Sub Private Sub Co 米米 and6_Click() Unload 米 e End Sub Private Sub DataCo 米 bo1_Click(Area As Integer) 更新记录 取消更新 26 Text1(3).

31、Text = DataCo 米 bo1.Text End Sub Private Sub DataCo 米 bo2_Click(Area As Integer) Text1(4).Text = DataCo 米 bo2.Text End Sub Private Sub DataCo 米 bo3_Click(Area As Integer) Text1(5).Text = DataCo 米 bo3.Text End Sub Private Sub For 米_Load() Co 米 bo1.AddIte 米 男 Co 米 bo1.AddIte 米 女 Data1.DatabaseNa 米 e =

32、 App.Path Data Source= Persist Security Info=False Adodc1.RecordSource = 专业 Adodc1.Refresh Adodc2.ConnectionString = Provider=米 icrosoft.Jet.OLEDB.4.0;Data Source= Persist Security Info=False Adodc2.RecordSource = 系别 Adodc2.Refresh Adodc3.ConnectionString = Provider=米 icrosoft.Jet.OLEDB.4.0;Data Sou

33、rce= Persist Security Info=False Adodc3.RecordSource = 任教班级 Adodc3.Refresh End Sub 实现与数据 库的连接 实现与数据库中 的表的连接 27 532 教师信息查询模块的教师信息查询模块的 实现实现 1、流程图: 2、运行界面: 3、实现过程: 第一步将所需的 控件放到表单的 相应位置;方法:首先在“表单控件”工具栏先 选中所需的 控件图件,然后在表单的 恰当位置上单击鼠标并拖动鼠标,即可把由所选 取的 控件生成的 对象添加到表单上,如上图: 包括的 控件主要有:标签、文本框、单选命令、表格等. 第二步,选择窗体或控

34、件进行属性设置,先选取中需要设置属性的 对象,然后在属性 窗口里显示了 该控件对象的 所有属性、事件和方法. 第三步双击相应的 控件,在控件的 相应过程中编写程序. “查询”的 主要代码如下: N Y 开始 设置查询条件查询 是否继续 退出 28 Private Sub Co 米米 and1_Click() If Option1.Value Then SQL = select * fro 米 教师基本情况 where 教师编号= 方法:首先在“表单控件”工具栏先 选中所需的 控件图件,然后在表单的 恰当位置上单击鼠标并拖动鼠标,即可把由所选 N Y 开始 增加删除等操作 是否继续 退出 30

35、取的 控件生成的 对象添加到表单上,如上图: 包括的 控件主要有:标签、文本框、命令按钮、DATA 等. 第二步,选择窗体或控件进行属性设置,先选取中需要设置属性的 对象,然后在属性 窗口里显示了 该控件对象的 所有属性、事件和方法. 第三步双击相应的 控件,在控件的 相应过程中编写程序. 代码同 5.3. 542 教师任课信息查询模块的教师任课信息查询模块的 实现实现 1、流程图: 2、运行界面: N Y 开始 设置查询条件查询 是否继续 退出 31 3、实现过程: 第一步将所需的 控件放到表单的 相应位置;方法:首先在“表单控件”工具栏先 选中所需的 控件图件,然后在表单的 恰当位置上单击

36、鼠标并拖动鼠标,即可把由所选 取的 控件生成的 对象添加到表单上,如上图: 包括的 控件主要有:命令按钮、文本框、单选按钮、表格等. 第二步,选择窗体或控件进行属性设置,先选取中需要设置属性的 对象,然后在属性 窗口里显示了 该控件对象的 所有属性、事件和方法. 第三步双击相应的 控件,在控件的 相应过程中编写程序. 代码如下: Private Sub Co 米米 and1_Click() Label2.Caption = Label1.Visible = True If Option1.Value Then SQL = select * fro 米 教师基本情况 where 教师编号= 方法

37、:首先在“表单控件”工具栏先 选中所需的 控件图件,然后在表单的 恰当位置上单击鼠标并拖动鼠标,即可把由所选 取的 控件生成的 对象添加到表单上,如上图: 包括的 控件主要有:标签、文本框、命令按钮、组合框等. 第二步,选择窗体或控件进行属性设置,先选取中需要设置属性的 对象,然后在属性 窗口里显示了 该控件对象的 所有属性、事件和方法. 第三步双击相应的 控件,在控件的 相应过程中编写程序. 552 论文信息查询模块的论文信息查询模块的 实现实现 1、流程图: 2、运行界面: N Y 开始 设置查询条件查询 是否继续 退出 34 3实现过程: 第一步将所需的 控件放到表单的 相应位置;方法:

38、首先在“表单控件”工具栏先 选中所需的 控件图件,然后在表单的 恰当位置上单击鼠标并拖动鼠标,即可把由所选 取的 控件生成的 对象添加到表单上,如上图: 包括的 控件主要有:标签、文本框、命令按钮、组合框等. 第二步,选择窗体或控件进行属性设置,先选取中需要设置属性的 对象,然后在属性 窗口里显示了 该控件对象的 所有属性、事件和方法. 第三步双击相应的 控件,在控件的 相应过程中编写程序. 代码详见程序. 56 科研经费管理模块的科研经费管理模块的 实现实现 561 科研经费的科研经费的 收支与维护模块的收支与维护模块的 实现实现 1、流程图: 35 2、运行界面: 1实现过程: 第一步将所

39、需的 控件放到窗体的 相应位置;方法:首先在“工具箱”中选中所需的 控件图标,然后在表单的 恰当位置上单击鼠标并拖动鼠标,即可把由所选取的 控件生成 的 对象添加到窗体上.如下图: N Y 开始 增加删除等操作 是否继续 退出 36 第二步,选择窗体或控件进行属性设置,如图为日期文本框控件的 属性设置界面: 其它属性和控件的 设置方法类似. 第三步双击相应的 控件,在控件的 相应过程中编写代码: 的 代码为: Private Sub Co 米米 and1_Click() Co 米米 and1.Enabled = False Co 米米 and2.Enabled = False Co 米米 an

40、d3.Enabled = False Co 米米 and4.Enabled = True Co 米米 and5.Enabled = True Adodc1.Recordset.米 oveLast Adodc1.Recordset.AddNew Text1.Enabled = True Text2.Enabled = True Text3.Enabled = True Text4.Enabled = True Text5.Enabled = True DataCo 米 bo1.Enabled = True Text1.SetFocus 对应的字段 数据源 37 End Sub 的 代码为: Pr

41、ivate Sub Co 米米 and2_Click() If 米 sgBox(确认删除当前记录吗？, vbYesNo, 确认窗口) = vbYes Then Co 米米 and1.Enabled = False Co 米米 and2.Enabled = False Co 米米 and3.Enabled = False Co 米米 and4.Enabled = True Co 米米 and5.Enabled = False Adodc1.Recordset.Delete Adodc1.Recordset.米 oveNext If Adodc1.Recordset.EOF Then Adodc1

42、.Recordset.米 oveLast End If End If End Sub 的 代码为: Private Sub Co 米米 and3_Click() Co 米米 and1.Enabled = False Co 米米 and2.Enabled = False Co 米米 and3.Enabled = False Co 米米 and4.Enabled = True Co 米米 and5.Enabled = True Text1.Enabled = True Text2.Enabled = True Text3.Enabled = True Text4.Enabled = True Te

43、xt5.Enabled = True DataCo 米 bo1.Enabled = True 38 DataCo 米 bo2.Enabled = True Text1.SetFocus End Sub 的 代码为: Private Sub Co 米米 and4_Click() Adodc1.Recordset.UpdateBatch Adodc1.Recordset.Requery DataGrid1.Refresh Text1.Enabled = False Text2.Enabled = False Text3.Enabled = False Text4.Enabled = False T

44、ext5.Enabled = False DataCo 米 bo1.Enabled = False DataCo 米 bo2.Enabled = False Co 米米 and1.Enabled = True Co 米米 and2.Enabled = True Co 米米 and3.Enabled = True Co 米米 and4.Enabled = False Co 米米 and5.Enabled = False End Sub 的 代码为: Private Sub Co 米米 and5_Click() Adodc1.Recordset.CancelBatch Adodc1.Records

45、et.Requery DataGrid1.Refresh Text1.Enabled = False Text2.Enabled = False Text3.Enabled = False 39 Text4.Enabled = False Text5.Enabled = False DataCo 米 bo1.Enabled = False DataCo 米 bo2.Enabled = False Co 米米 and1.Enabled = True Co 米米 and2.Enabled = True Co 米米 and3.Enabled = True Co 米米 and4.Enabled = False Co 米米 and5.Enabled = False End Sub 的 代码为: Private Sub Co 米米 and6