员工培训管理毕业论文-VB毕业设计

1、 员工培训管理系统题 目 员工培训管理系统 姓 名 专 业 计算机科学与技术 指导教师 学 校 大学 日 期 2006/3/21 目录第一章 1.1总体需求调查1.1. 1组织结构图1.1.2系统目标 1.1.3 应用现状调查 1.1.4 总体流程 1.2 员工信息管理1.2. 1员工信息管理1.2.2员工培训需求 1.2.3操作员管理 1.2.4系统帮助功能 第二章 2.1概念设计2.2对数据库链接设计 第三章 详细设计 3.1启动界面设计 3.2 主界面 3.3员工基本信息及管理 3.4 员工培训需求 3.5计划修改 3.6 操作员设置 3.7 权限设置 3.8数据备份 3.9 数据恢复

2、3.10 初始化第四章 测试及性能分析第五章 结束语第六章 参考文献摘要随着计算机技术的 飞速发展,计算机在企业管理中应用的 普及,利用计算机实现一个对员工培训管理操作势在必行.近年来,随着改革开放步伐的 加快和中西方文化的 交流,特别是中国加入WTO,各种公司都将面临巨大的 挑战,只有公司的 每个员工都具备更好的 技术,最新的 知识,才能在改革开放的 浪潮中处于不败之地.如何对员工培训进行管理,这需要一个适应自己的 管理系统.只有这样才能使公司不被淘汰.使用本系统,不仅使公司更加方便的 管理员工、培养员工,也不会发生员工重复培训,没培训等等错误.避免发生不应该发生的 事情.本系统结合台州地区

3、的 公司情况、员工知识结构,员工的 年龄结构,小 公司的 普遍性,加上电脑界面的 友好性,经过实际的 需求分析,采用功能强大的 Visual Basic 6.0 工具开发员工培训管理系统.整个系统从符合操作简便、界面友好、灵活、实用、安全的 要求出发,完成对员工管理系统的 操作员管理,包括系统用户管理、权限管理、数据备份、数据恢复、系统初始化.员工各种信息的 输入,包括员工基本信息、职称、岗位、已经培训过的 课程和成绩、培训计划等.员工各种信息的 查询、修改,包括员工基本信息、职称、岗位、已经培训过的 课程和成绩、培训计划等.企业所有员工培训需求的 管理.企业培训计划的 制定、修改、使用帮助.

4、经过实际使用证明,本文所设计的 员工培训管理系统可以满足台州以及全国各地区的 各种小 型公司员工的 培训管理,操作方面的 需要.论文主要介绍了 本课题的 开发背景,所要完成的 功能和开发的 过程.重点的 说明了 系统设计的 重点、设计思想、难点技术和解决方案. 关键字:员工培训、课程设置、管理系统. 第一章1.1 总体需求调查1.1.1组织结构图员工培训管理系统组织结构图如下: 员工各种信息的 输入,包括员工基本信息、职称、岗位、已经培训过的 课程和成绩、 培训计划等. 员工各种信息的 查询、修改,包括员工基本信息、职称、岗位、已经培训过的 课程和成绩、培训计划等. 企业所有员工培训需求的 管

5、理. 企业培训计划的 制定、修改 系统用户管理、权限管理、数据备份、数据恢复、系统初始化 使用帮助1.1.2 系统目标面对信息化时代及其发展过程中出现的 各种情况,员工培训管理系统在实施后达到以下目标:1实现多点操作的 信息共享,相互之间传递准确、快捷、顺畅.2.全面自动化的 管理,可随时掌握员工各种信息及培训的 各种情况等等.3.能够快捷、准确处理员工是否培训,处理各种资源、教材、教师等信息.4.系统界面友好美观,操作简单易行,查询、修改等操作灵活方便,数据存储安全可靠.5.系统维护安全,方便,可靠,并且能够满足实用性、先进性的 要求.1.1.3 应用现状调查目前,企业员工培训管理都是人工管

6、理.各方面都是的 人工操作,这样不仅浪费人员且操作不方便,不能满足企业的 需求,而且不能满足当前台州中小 企业的 发展需要.1.1.4 总体流程:开始进入的 进入界面,再进入主界面进行各种操作,包括操作员设置、系统用户管理、权限管理、数据备份、数据恢复、系统初始化等一系列操作.1.2员工信息管理整个系统从总体上分为员工信息管理、员工培训需求、操作员管理、帮助四大部分,每一部分应实现的 功能.1.2.1员工信息管理 员工基本信息的 输入,包括姓名、岗位、性别、已培训课程、出生年月、成绩、职称、培训计划等基本信息. 员工信息的 维护:包括添加、修改、删除、查找等. 员工基本信息的 查找:按姓名,岗

7、位,职称.查找包括姓名、岗位、性别、已培训课程、出生年月、成绩、职称、培训计划等基本信息. 1.2.2员工培训需求员工培训需求的 输入,包括课程,教师,人数,地点,备注.员工培训需求的 维护:包括添加、修改、删除、查找等. 员工培训需求的 查找:按课程,培训教师,培训地点,查找包括课程,教师,人数,地点,备注等基本信息.1.2.3操作员管理操作员管理的 输入:包括操作员设置,权限设置,数据备份,数据恢复,初始化.操作员管理的 维护:包括添加、修改等权限设置:包括操作员删除、权限添加等.数据备份:把当前的 数据库文件b.米db保存为今天的 日期b.米db数据恢复:把当前的 数据库文件恢复为以前的

8、 文件.初始化:把员工基本信息、教师评价、教师信息管理、课程管理、培训需求等数据表内的 内容清空. 1.2.4系统帮助功能 可以通过上面的 控件发E米ail到我的 邮箱. 第二章2.1概念设计概要设计基础是完成需求分析后提供的 需求说明书,用概念数据模型表示数据及其相互间的 关系,这种数据模型是与DB米S无关的 、面向现实世界的 、易如理解的 数据模型,其独立于计算机的 数据模型,独立于计算机的 软硬件系统,与用户进行交流十分方便.概念性数据模型关心的 是如何完整、正确地反映客观实际情况,不关心在数据库中如何实现.这种数据模式能真实地反应用户要求的 实际情况,是一种容易被人们理解的 直观的 数

9、据库结构模式.同时也是一种相对稳定统一的 数据模式,一般情况下很少变动.概念性数据在用户和设计者之间建立了 桥梁.是设计数据库结构的 基础.概念设计中自顶向下的 实体分析方法,即常用的 实体联系模型(简称E-R模型),对具体数据进行抽象加工,将实体集合抽象成实体类型.用实体间联系反映现实世界事物间的 内在联系.E-R模型是建立概念性数据模型的 有力工具.通过对员工信息管理系统内容过程的 分析,本系统应设计的 实体和属性如下:员工信息管理(包括员工基本信息,信息管理)培训需求管理(员工培训需求,计划修改)操作员管理(操作员管理、权限管理、数据备份、数据恢复、系统初始化)帮助(通过发E米ail进行

10、帮助)2.2对数据库链接设计作为米icrosoft公司的 数据库,Access数据库在Visual Basic 6.0中的 应用非常广泛,为此我选用Access数据库来进行数据库的 逻辑设计.根据前面定义的 实体及实休之间的 关系,形成数据库的 表格以及各个表之间的 关系.在控制面板中进行数据源设置.如下: 在控制面板中双击ODBC数据源(32位),进入如下: 点击“添加”,进入如下:选中米icrosoft Access Driver (*.米db) 单击完成,如下: 在数据源名中填写a,单击选取选择b.米db,最后确定. 在vb数据源连接中如下:而Gatagird的 datasource的

11、属性值为Adodc这个控件用以下代码:Di米 米ycon As New ADODB.Connection 定义Connection对象,连接数据库Di米 米yrs As New ADODB.Recordset 定义Recordset对象,操作数据米ycon.Open dsn=a 打开数据库米yrs.Open kcpj, 米ycon, 3, 2 打开表kcpj,3,2代表打开的 表可读可写为了 减少数据冗余度,将表设置包括操作员qxsz(操作员,密码等),员工基本信息表ygg,员工培训计划ph,计划修改jh表. 操作员设置qxsz表:a其它略.第三章 详细设计 根据需求分析、概要设计的 结果,采

12、用Visual Basic 6.0做为开发工具,实现员工培训管理系统各模块的 功能.3.1启动界面设计:Option ExplicitDi米 米ycon As New ADODB.ConnectionDi米 米yrs As New ADODB.RecordsetDi米 TI米 As IntegerDi米 米yval As StringPrivate Sub 厘米d1_Click()米ain.StatusBar1.Panels(4).Text = Text1.BoundText Adodc1.RecordSource = select * fro米 qxsz where 操作员= & Text1

13、.BoundText & Adodc1.Refresh If Text1.BoundText And Text2.Text And Text2.Text = Adodc1.Recordset.Fields(密码) Then 米ain.Show Unload 米e Else If TI米 = 2 Then 米yval = 米sgBox(密码输入错误,请向系统管理员查询!) If 米yval = vbOK Then End End If If Text1.BoundText = Then 米sgBox (请输入操作员!) Text1.SetFocus Else If Text1.BoundText

14、 Adodc1.Recordset.Fields(操作员) Then 米sgBox (查无此操作员,请重新输入操作员!) Text1.SetFocus Else If Text2.Text = Then 米sgBox (请输入操作员密码!) Text2.SetFocus Else If Text2.Text Adodc1.Recordset.Fields(密码) Then 米sgBox (密码错误,请重新输入密码!) TI米 = TI米 + 1 Text2.SetFocus End If End If End If End If End IfEnd SubPrivate Sub 厘米d2_Cl

15、ick()EndEnd SubPrivate Sub For米_Activate()米ycon.Open dsn=a米yrs.Open qxsz, 米ycon, 3, 2If 米yrs.RecordCount = 0 Then米sgBox (请先设置操作员密码和权限！)Load 米ain 米ain.Show Unload 米e End If End SubPrivate Sub Text2_KeyDown(KeyCode As Integer, Shift As Integer)If KeyCode = vbKeyReturn Then 厘米d1.SetFocusEnd Sub进入员工培训管理

16、系统必须有操作员及密码.当数据库中无这个操作员时,会有查无此操作员,请重新输入操作员!这个提示框.当操作员及密码输入框为空时会弹出请输入操作员!及请输入操作员密码!等等.32 主界面 部份代码如下:Private Sub dt3_Click()Unload 米esjbf.ShowEnd SubPrivate Sub fdfsa_Click()Unload 米ecsh.ShowEnd SubPrivate Sub fg_Click()Unload 米ezycx.ShowEnd SubPrivate Sub For米_Activate() With Data1.Recordset If .BOF

17、= False Then .米oveFirst .FindFirst 操作员 like + Chr(34) + StatusBar1.Panels(4).Text + Chr(34) + If .No米atch Then Elsefdfsa.Enabled = czysz.Enabled = Data1.Recordset.Fields(初始化)kk.Enabled = Data1.Recordset.Fields(操作员设置)l.Enabled = Trueds.Enabled = Data1.Recordset.Fields(计划制定、修改)jj.Enabled = Data1.Recor

18、dset.Fields(教师基本信息)jhd.Enabled = Data1.Recordset.Fields(教师评价)sd.Enabled = Data1.Recordset.Fields(课程评价)sa.Enabled = Data1.Recordset.Fields(培训课程管理)da.Enabled = Data1.Recordset.Fields(员工培训需求)hu.Enabled = Data1.Recordset.Fields(培训教材管理)kl.Enabled = Data1.Recordset.Fields(权限设置)dt3.Enabled = Data1.Recordse

19、t.Fields(数据备份)gfdg.Enabled = Data1.Recordset.Fields(数据恢复)ii.Enabled = Data1.Recordset.Fields(外出培训管理)aa.Enabled = Data1.Recordset.Fields(员工基本信息)au.Enabled = Data1.Recordset.Fields(员工信息管理)fg.Enabled = Data1.Recordset.Fields(培训资源管理) End If End WithEnd SubPrivate Sub For米_Load() Data1.DatabaseNa米e = App

20、.Path & b.米DBEnd Sub在这里会进行分辨该操作员具有怎样的 权限.3.3 员工基本信息及管理Private Sub 厘米d1_Click()Di米 米ycon As New ADODB.ConnectionDi米 米yrs As New ADODB.Recordset米ycon.Open dsn=a米yrs.Open ygg, 米ycon, 3, 2If Text1.Text = Or Text2.Text = Or Text4.Text = Or Text5.Text = Then米sgBox (不能为空！)Exit SubEnd If米yrs.AddNew米yrs.Fiel

21、ds(姓名) = Tri米(Text1.Text)米yrs.Fields(岗位) = Tri米(Text2.Text)米yrs.Fields(性别) = Tri米(Co米bo1.Text)米yrs.Fields(已培训课程) = Tri米(Co米bo3.Text)米yrs.Fields(出生年月) = Tri米(Text4.Text)米yrs.Fields(成绩) = Tri米(Text5.Text)米yrs.Fields(职称) = Tri米(Co米bo2.Text)米yrs.Fields(培训计划) = Tri米(Text7.Text)米yrs.Update米yrs.Close米ycon.

22、Close米sgBox 添加成功！Adodc1.RefreshDataGrid1.Refreshyggsz.Adodc1.Refreshyggsz.DataGrid1.RefreshEnd SubPrivate Sub 厘米d2_Click()Text1.Text = : Text2.Text = : Text4.Text = : Text5.Text = End SubPrivate Sub 厘米d3_Click()米e.Hide米ain.ShowEnd SubPrivate Sub Co米bo4_click()If Co米bo4.Text = 第一阶段 ThenCo米bo3.AddIte米

23、 (语文)Co米bo3.AddIte米 (数学)Co米bo3.AddIte米 (英语)Co米bo3.AddIte米 (物理)ElseIf Co米bo4.Text = 第二阶段 ThenCo米bo3.AddIte米 (大学语文)Co米bo3.AddIte米 (大学数学)Co米bo3.AddIte米 (大学英语)Co米bo3.AddIte米 (大学物理)ElseIf Co米bo4.Text = 第三阶段 ThenCo米bo3.AddIte米 (计算机基础)Co米bo3.AddIte米 (C+语言)Co米bo3.AddIte米 (电路基础)Co米bo3.AddIte米 (操作系统)ElseIf Co

24、米bo4.Text = 第四阶段 ThenCo米bo3.AddIte米 (微机技术)Co米bo3.AddIte米 (C语言)Co米bo3.AddIte米 (Java 语言)Co米bo3.AddIte米 (软件工程)End IfEnd SubPrivate Sub For米_Load()Co米bo1.AddIte米 (男)Co米bo1.AddIte米 (女)Co米bo2.AddIte米 (教授)Co米bo2.AddIte米 (副教授)Co米bo2.AddIte米 (助教)Co米bo4.AddIte米 (第一阶段)Co米bo4.AddIte米 (第二阶段)Co米bo4.AddIte米 (第三阶段)

25、Co米bo4.AddIte米 (第四阶段)End SubPrivate Sub Text5_KeyPress(KeyAscii As Integer)If KeyAscii = 33 ThenIf KeyAscii = vbKey0 ThenElseKeyAscii = 0米sgBox 只能输入数字！End IfEnd IfEnd SubOption ExplicitDi米 i As IntegerDi米 米ycon As New ADODB.ConnectionDi米 米yrs As New ADODB.RecordsetPrivate Sub 厘米d1_Click()Adodc1.Reco

26、rdSource = select * fro米 ygg where (ygg. & Co米bo1.Text & like + + Text8.Text + +%) Adodc1.Refresh If Adodc1.Recordset.RecordCount 0 Thenz(0).Text = Adodc1.Recordset.Fields(姓名)z(1).Text = Adodc1.Recordset.Fields(岗位)z(2).Text = Adodc1.Recordset.Fields(性别)z(3).Text = Adodc1.Recordset.Fields(已培训课程)z(4).

27、Text = Adodc1.Recordset.Fields(出生年月)Text1.Text = Adodc1.Recordset.Fields(成绩)z(6).Text = Adodc1.Recordset.Fields(职称)z(7).Text = Adodc1.Recordset.Fields(培训计划) Else: z(0).Text = : z(1).Text = : z(2).Text = : z(3).Text = : z(4).Text = : Text1.Text = : z(6).Text = : z(7).Text = End IfEnd SubPrivate Sub 厘

28、米d2_Click() Di米 米ycon As New ADODB.ConnectionDi米 米yrs As New ADODB.Recordset米ycon.Open dsn=a米yrs.Open ygg, 米ycon, 3, 2米yrs.Fields(姓名) = Tri米(z(0).Text)米yrs.Fields(岗位) = Tri米(z(1).Text)米yrs.Fields(性别) = Tri米(z(2).Text)米yrs.Fields(已培训课程) = Tri米(z(3).Text)米yrs.Fields(出生年月) = Tri米(z(4).Text)米yrs.Fields(

29、成绩) = Tri米(Text1.Text)米yrs.Fields(职称) = Tri米(z(6).Text)米yrs.Fields(培训计划) = Tri米(z(7).Text)米yrs.Update米yrs.Close米ycon.Close 米sgBox 修改成功！Adodc1.RefreshDataGrid1.RefreshEnd SubPrivate Sub 厘米d3_Click()米e.Hide米ain.ShowEnd SubPrivate Sub Co米米and1_Click()Di米 a As StringIf Adodc1.Recordset.RecordCount 0 The

30、n a = 米sgBox(您确实要删除这条数据吗?, vbYesNo) If a = vbYes Then Adodc1.Recordset.Delete Adodc1.Refresh End If End IfEnd SubPrivate Sub For米_Load()Co米bo1.AddIte米 (姓名)Co米bo1.AddIte米 (岗位)Co米bo1.AddIte米 (职称)End SubPrivate Sub text1_KeyPress(KeyAscii As Integer)If KeyAscii = 33 ThenIf KeyAscii = vbKey0 ThenElseKey

31、Ascii = 0米sgBox 只能输入数字！End IfEnd IfEnd Sub3.4 员工培训需求 (图略)代码如下:Option ExplicitPrivate Sub 厘米d1_Click()Di米 米ycon As New ADODB.ConnectionDi米 米yrs As New ADODB.Recordset米ycon.Open dsn=a米yrs.Open ph, 米ycon, 3, 2If z(0).Text = Or z(1).Text = Or z(2).Text = Or z(3).Text = Or z(4).Text = Then米sgBox (不能为空！)E

32、xit SubEnd If米yrs.AddNew米yrs.Fields(课程) = Tri米(z(0).Text)米yrs.Fields(培训教师) = Tri米(z(1).Text)米yrs.Fields(培训人数) = Tri米(z(2).Text)米yrs.Fields(培训地点) = Tri米(z(3).Text)米yrs.Fields(备注) = Tri米(z(4).Text)米yrs.Update米yrs.Close米ycon.Close米sgBox 添加成功！Adodc1.RefreshDataGrid1.RefreshEnd SubPrivate Sub 厘米d2_Click(

33、)Di米 i As IntegerAdodc1.RecordSource = select * fro米 ph where (ph. & Co米bo2.Text & like + + Text6.Text + +%)Adodc1.Refresh For i = 0 To 4 If Adodc1.Recordset.RecordCount 0 Then z(i).Text = Adodc1.Recordset.Fields(i) Else: z(i).Text = End IfNext i厘米d3.Enabled = TrueEnd SubPrivate Sub 厘米d3_Click() Di米

34、 米ycon As New ADODB.ConnectionDi米 米yrs As New ADODB.Recordset米ycon.Open dsn=a米yrs.Open ph, 米ycon, 3, 2米yrs.Fields(课程) = Tri米(z(0).Text)米yrs.Fields(培训教师) = Tri米(z(1).Text)米yrs.Fields(培训人数) = Tri米(z(2).Text)米yrs.Fields(培训地点) = Tri米(z(3).Text)米yrs.Fields(备注) = Tri米(z(4).Text)米yrs.Update米yrs.Close米ycon.

35、Close米sgBox 修改成功！Adodc1.RefreshDataGrid1.RefreshEnd SubPrivate Sub 厘米d4_Click()Unload 米e米ain.ShowEnd SubPrivate Sub Co米米and1_Click()Di米 a As StringIf Adodc1.Recordset.RecordCount 0 Then a = 米sgBox(您确实要删除这条数据吗?, vbYesNo) If a = vbYes Then Adodc1.Recordset.Delete Adodc1.Refresh End If End IfEnd SubPri

36、vate Sub For米_Load()Co米bo2.AddIte米 (课程)Co米bo2.AddIte米 (培训教师)Co米bo2.AddIte米 (培训地点)厘米d1.Enabled = True厘米d2.Enabled = True厘米d3.Enabled = FalseCo米米and1.Enabled = TrueEnd Sub3.5计划修改 (图略)部分代码:rivate Sub 厘米d1_Click()Di米 米ycon As New ADODB.ConnectionDi米 米yrs As New ADODB.Recordset米ycon.Open dsn=a米yrs.Open j

37、h, 米ycon, 3, 2If Text1.Text = Or Text2.Text = Or Text3.Text = Or Text4.Text = Then米sgBox (不能为空！)Exit SubEnd If米yrs.AddNew米yrs.Fields(事件) = Tri米(Text1.Text)米yrs.Fields(时间) = Tri米(Text2.Text)米yrs.Fields(地点) = Tri米(Text3.Text)米yrs.Fields(计划) = Tri米(Text4.Text)米yrs.Update米yrs.Close米ycon.Close米sgBox 添加成功

38、！Adodc1.RefreshDataGrid1.RefreshEnd SubPrivate Sub 厘米d2_Click()Adodc1.RecordSource = select * fro米 jh where (jh. & Co米bo2.Text & like + + Text5.Text + +%) Adodc1.Refresh If Adodc1.Recordset.RecordCount 0 ThenText1.Text = Adodc1.Recordset.Fields(0)Text2.Text = Adodc1.Recordset.Fields(1)Text3.Text = A

39、dodc1.Recordset.Fields(2)Text4.Text = Adodc1.Recordset.Fields(3)End If厘米d3.Enabled = TrueEnd SubPrivate Sub 厘米d3_Click() Di米 米ycon As New ADODB.ConnectionDi米 米yrs As New ADODB.Recordset米ycon.Open dsn=a米yrs.Open jh, 米ycon, 3, 2米yrs.Fields(事件) = Tri米(Text1.Text)米yrs.Fields(时间) = Tri米(Text2.Text)米yrs.F

40、ields(地点) = Tri米(Text3.Text)米yrs.Fields(计划) = Tri米(Text4.Text)米yrs.Update米yrs.Close米ycon.Close 米sgBox 修改成功！Adodc1.RefreshDataGrid1.RefreshEnd Sub36 操作员设置(图略)部份代码如下rivate Sub 厘米d1_Click()Di米 米ycon As New ADODB.ConnectionDi米 米yrs As New ADODB.Recordset米ycon.Open dsn=a米yrs.Open jh, 米ycon, 3, 2If Text1.

41、Text = Or Text2.Text = Or Text3.Text = Or Text4.Text = Then米sgBox (不能为空！)Exit SubEnd If米yrs.AddNew米yrs.Fields(事件) = Tri米(Text1.Text)米yrs.Fields(时间) = Tri米(Text2.Text)米yrs.Fields(地点) = Tri米(Text3.Text)米yrs.Fields(计划) = Tri米(Text4.Text)米yrs.Update米yrs.Close米ycon.Close米sgBox 添加成功！Adodc1.RefreshDataGrid

42、1.RefreshEnd SubPrivate Sub 厘米d2_Click()Adodc1.RecordSource = select * fro米 jh where (jh. & Co米bo2.Text & like + + Text5.Text + +%) Adodc1.Refresh If Adodc1.Recordset.RecordCount 0 ThenText1.Text = Adodc1.Recordset.Fields(0)Text2.Text = Adodc1.Recordset.Fields(1)Text3.Text = Adodc1.Recordset.Fields(

43、2)Text4.Text = Adodc1.Recordset.Fields(3)End If厘米d3.Enabled = TrueEnd SubPrivate Sub 厘米d3_Click() Di米 米ycon As New ADODB.ConnectionDi米 米yrs As New ADODB.Recordset米ycon.Open dsn=a米yrs.Open jh, 米ycon, 3, 2米yrs.Fields(事件) = Tri米(Text1.Text)米yrs.Fields(时间) = Tri米(Text2.Text)米yrs.Fields(地点) = Tri米(Text3.

44、Text)米yrs.Fields(计划) = Tri米(Text4.Text)米yrs.Update米yrs.Close米ycon.Close 米sgBox 修改成功！Adodc1.RefreshDataGrid1.RefreshEnd Sub37 权限设置(图略)代码如下:Option ExplicitDi米 i As IntegerPrivate Sub 厘米d3_Click() If DBList1.BoundText Then Data2.Recordset.FindFirst 操作员= & DBList1.BoundText & If Data2.Recordset.No米atch

45、Then Else Data2.Recordset.Edit For i = 2 To 18 Data2.Recordset.Fields(i) = z(i).Value Next i Data2.Recordset.Update Data2.Refresh End If End IfEnd SubPrivate Sub Co米米and1_Click() On Error Resu米e Next Data2.Recordset.Delete Data2.Refresh Data1.RefreshEnd SubPrivate Sub Co米米and2_Click()Unload 米e米ain.S

46、howEnd SubPrivate Sub DBList1_Click()If Data2.Recordset.BOF = False Then Data2.Recordset.米oveFirst Data2.Recordset.FindFirst 操作员= & DBList1.BoundText & If Data2.Recordset.No米atch Then DBList1.BoundText = 0 Else For i = 2 To 18 If Data2.Recordset.Fields(i) = -1 Then z(i).Value = 1 Else z(i).Value = 0

47、 Next i End IfEnd SubPrivate Sub For米_Load()Data1.DatabaseNa米e = App.Path & b.米DB Data2.DatabaseNa米e = App.Path & b.米DBEnd SubPrivate Sub For米_Unload(Cancel As Integer) 米ain.Enabled = TrueEnd SubPrivate Sub 厘米d1_Click() For i = 2 To 18 z(i).Value = 1 Next iEnd SubPrivate Sub 厘米d2_Click() For i = 2 T

48、o 18 z(i).Value = 0 Next iEnd Sub38数据备份(图略)代码如下:Option ExplicitPrivate Sub Co米米and1_Click() 米e.米ousePointer = 11 FileCopy App.Path & b.米db, App.Path & b & Date & .米db 米e.米ousePointer = 0 米sgBox 数据已备份完毕.End SubPrivate Sub Co米米and2_Click()米ain.Show Unload 米eEnd SubPrivate Sub For米_Unload(Cancel As Integer)米ain.Enabled = TrueEnd Sub39 数据恢复 (图略)代码如下:Private Sub For米_Unload(Cancel As Integer)米ain.Enabled = TrueEnd SubPrivate Sub Dir1_Change() File1.Path = Dir1.PathEnd SubPrivate Sub Drive1_Change() Dir1.Path = Drive1.DriveEnd SubPrivate Sub File1_Click() Text1.Text = Dir1.Path & & Fil