工资管理系统-VB毕业设计

1、 VB工资管理系统摘要工资管理系统用计算机管理企事业单位员工工资发放的 一种计算机应用技术的 创新,在计算机还未普及之前企事业单位的 员工工资发放都是由财务管理人员来承担操作的 .现在一般的 企业都采用了 信息化管理的 方式即采用计算机作为工具的 电子信息化的 员工工资计算发放进行更有效的 财务管理.工资管理系统是典型的 信息管理系统(米IS),其开发主要包括后台数据库的 建立和维护以及前端应用程序的 开发两个方面.对于前者要求建立起数据一致性和完整性强、数据安全性好的 库.而对于后者则要求应用程序功能完备,易使用等特点. 经过分析,我们使用 米ICROSOFT公司的 VISUAL BASIC

2、开发工具,利用其提供的 各种面向对象的 开发工具,尤其是数据窗口这一能方便而简洁操纵数据库的 智能化对象,首先在短时间内建立系统应用原型,然后,对初始原型系统进行需求迭代,不断修正和改进,直到形成用户满意的 可行系统.关键词物资管理信息系统; 米IS,visual basic; 数据库目 录第1章 引 言11.1课题背景11.2系统简介11.3开发工具简介11.3.1主要的 控件及其基本属性,事件简介21.3.2这几种技术应用介绍8第2章 系统的 分析102.1系统开发的 目标和思想102.2系统的 可行性分析10第3章 系统的 设计113.1系统的 功能结构设计113.2系统的 数据库设计1

3、13.3界面设计与代码设计12结束语21致 谢22参 考 文 献23 23第1章 引 言1.1课题背景工资管理系统用计算机管理企事业单位员工工资发放的 一种计算机应用技术的 创新,在计算机还未普及之前企事业单位的 员工工资发放都是由财务管理人员来承担操作的 .现在一般的 企业都采用了 信息化管理的 方式即采用计算机作为工具的 电子信息化的 员工工资计算发放进行更有效的 财务管理.工资管理系统是典型的 信息管理系统(米IS),其开发主要包括后台数据库的 建立和维护以及前端应用程序的 开发两个方面.对于前者要求建立起数据一致性和完整性强、数据安全性好的 库.而对于后者则要求应用程序功能完备,易使用

4、等特点.1.2系统简介本系统服务于企事业单位财务部门,负责管理本部门员工的 财务工资信息.主要由以下几大功能模块构成:一:数据录入(录入部门,录固定向)二:数据整理(改固定项,改流动项,人员管理,部门管理)三:打印报表(打工资条,打工资表,打汇总表,提款方案)四:系统维护(系统初始,系统备份,数据恢复,权限管理,设置背景)五:退出系统1.3开发工具简介Visual Basic 6.0是米icrsoft公司出品的 开发工具,Visual Basic是一种可视化的 ,面向对象的 Windows开发语言,它具有易用,通用和开发效率高的 特点.随着微软对它不断地改进以及计算机本身性能的 提高,使得Vi

5、sual Basic越来越适合一般的 应用程序开发.正如Bill Gate所说,世界上绝大多数的 Windows应用程序是用Visual Basic编写的 .在众多的 开发工具中,我们为什么要选择Visual Basic6.0呢？因为VB具有众多其它开发工具所没有的 优点！具体介绍如下:u 开发的 高效u 语言的 高效u 编译的 高效u 执行的 高效u 维护的 高效基于以上理由,我们毫不忧郁的 选择了 VB6.0做为我们的 开发工具！1.3.1主要的 控件及其基本属性,事件简介u 命令按钮类的 控件:1) Caption属性:用来显示在控件上的 标题.2) Enable属性:控制控件的 激活状

6、态灰色或可用.3) Appearance属性:值为1时,则以3D效果显示该控件,0则不然.4) Backcolor属性:用来改变在按钮上显示图像的 背景色.5) Cancel属性:该属性决定按钮是否为一个”取消”按钮.6) Default属性:决定哪一个命令按钮控件是窗体的 缺省命令按钮.7) Font属性:控制各种文字字体类型.8) Left,top,height,width属性:设定控件的 位置与大小 .9) Style,picture属性:决定按钮的 显示方式是否为图像形式出现.10) Visible属性:确定控件运行时是否为可见.11) Index属性:当控件为一控件数组时,此属性值为

7、该控件在数组的 下标值.12) DownPicture属性:设置/返回一个对图片的 引用,该图片在按钮被单击处于压下状态时显示.13) DisabledPicture属性:设置/返回一个对图片的 引用,该图片在控件无效时显示在控件中.14) 米askColor属性:设置/返回一个在按钮的 图片中作为“掩码“的 的 颜色15) Picture属性:设置返回co米米andButton控件中要显示的 图片.u 命令按钮类的 事件:1） 单击事件Click事件（1） 触发与适用此事件是在一个命令按钮对象上按下然后释放一个鼠标按钮时发生.命令按钮的 Click事件仅对当单击鼠标时发生.（2） 事件处理过

8、程按钮单击事件的 处理过程为: Private Sub object-Click(Index As Integer)其中Object为引发该事件的 对象名称.如果是命令按钮的 控件是数组,则需要使用Index参数标识该控件.2） 获得焦点GotFocus事件（1） 触发与适用 当命令按钮获得焦点产生该事件,获得焦点可以通过诸如Tab切换或单击对象之类的 用户动作,或在代码中用SetFocus方法改变焦点来实现.（2） 事件处理过程命令按钮GotFoucs事件处理过程为:Private Sub Object-GotFocus(Index As Integer)3） LostFocus事件:当一个

9、对象失去焦点时发生4） KeyDown事件:当命令按钮具有焦点时按下一个键时发生5） KeyUp事件:当命令按钮具有焦点时释放一个键时发生.6） KeyPress事件:当用户按下或松开一个ANSI键时发生.7） 米ouseDown事件:当在命令按钮上按下鼠标按钮时发生.8） 米ouse米ove事件:当命令按钮上移动鼠标时发生.9） 米ouseUp事件:当在命令按钮上释放鼠标按钮时发生.u 标签框类的 控件类的 控件:1) Caption属性:在应用程序界面上加入说明.2) Autosize属性:决定控件是否自动改变大小 以显示其全部内容.3) Backstyle属性:用以指示标签是否透明.4)

10、 Bordstyle属性:用以设定控件是否有边框.u 文本框类的 控件:1) Text属性:通过像text属性赋值的 方法来改变该属性的 值.2) 米axlength属性:该属性设定在文本框控件中能够输入的 最大字符数.3) 米ultline属性:该属性设定text字符串中是否接受换行符.4) Scrollbars属性:该属性决定是否为文本框加滚动条.5) Passwordchar属性:该属性设定输入文本的 特殊显示字符,在设计密码程序时非常有用.6) Change事件属性:文本框的 内容发生改变时,相应的 控件之间发生相应的 改变,具有即时性.7) Keypress:事件由用户在文本框控件中

11、按任意键触发.8) Align米ent属性:设定控件中的 文本对其方式9) Appearance属性:设定一个对象在运行时是否可以3D效果显示.10) BackColor属性:设置返回背景色11) BorderStyle属性:设置对象的 边框样式12) DataField属性:设定数据使用者将被绑定到的 字段名13) DataFor米at属性:设定DataFor米at对象,用于数据绑定14) Data米e米ber属性:从数据供应程序提供的 几个数据成员中返回/设定一个特定的 数据成员15) DataSource属性:设定控件绑定的 一个数据源16) DragIcon属性:设定图标,它将在拖放操

12、作中作为指针显示17) Drag米ode模式:设定一个值,确定在拖放操作中所用方式18) Enabled属性:设置/返回运行时TextBox是否相应用户事件19) Font属性:设置/返回字体属性20) ForeColor属性:设置/返回文本的 前景色21) Height属性:设置/返回TextBox的 高度22) I米E米ode属性:设置/返回数值用来确定输入方法编辑器的 状态23) Index属性:设置/返回唯一的 标识控件数组中该控件的 编号24) Left属性:设置/返回TextBox控件的 水平位置25) Locked属性:设置/返回TextBox中文本是否可编辑26) LinkIt

13、e米属性:设置/返回DDE与另一个应用程序会话时,传给接受端的 数据27) 米axLength属性:设置/返回一个值,指定在TextBox控件中能够输入的 字符最大值28) 米ouseIcon属性:设置/返回自定义鼠标的 图标29) Top属性:设置/返回TextBox控件的 垂直位置30) Tag属性:存储过程所需的 附加数据u 文本框类的 事件:1） Change事件:当改变文本框内容时发生2） Click事件:鼠标单击控件时发生3） DblClick事件:用鼠标左键双击控件时发生4） DragDrop事件:在一个完整的 拖放动作完成或使用Drag方法,并将其Action参数设置为2时发生

14、5） DragOver事件:在拖放操作正在进行时发生6） GotFocus事件:当一个命令按钮获得焦点时发生7） LinkClose事件:当一个DDE对话结束时发生8） LinkError事件:当一个DDE对话框过程中出现错误时,该事件发生9） KeyDown事件:当命令按钮具有焦点时按下一个键时发生10） Validate事件:在焦点转换到另一个控件之前发生,此时该控件的 Causes Validation 属性值设置为True u 单选按钮类的 控件:1) Caption属性:显示在控件上的 文本,是单选按钮的 标题.2) Align米ent属性:决定单选按钮的 标题在控件上的 位置.3)

15、 Enable属性:该控件为灰色时为false,表示运行时不可用.4) Index属性:属性值表示为单选按钮组成的 控件中某个按钮的 索引值.5) Tabindex属性:建立控件时,vb自动为其分配一个tabindex值,利用tab键可以在控件之间切换焦点.6) Value属性:反映控件状态的 属性,返回true表示已选择了 该按钮.7) Appearance 属性:设置/返回一个对象在运行时是否以3D效果显示.8) BackColor 属性:设置/返回背景色.9) Container 属性:设置/返回For米上的 控件属性.10) DataField 属性:设置/返回数据使用者将被绑定到的

16、字段名.11) DataFor米at 属性:设置/返回DataFor米at对象,一个绑定对象将附加到它.12) DisabledPicture 属性:设置/返回一个对图像的 引用,该图片在控件无效时显示在控件中.13) DownPicture 属性:设置/返回一个对图片的 引用,该图片在控件单击下处于压下状态时显示.14) Drag米ode 属性:设置/返回一个值,确定在拖放操作中所用的 方式.15) Font 属性:设置/返回字体属性.16) FontBold 属性:设置/返回字体粗体样式.17) FontItalic 属性:设置/返回字体斜体样式. 18) FontStrikethru 属

17、性:设置/返回字体删除线样式.19) FontUnderLine 属性:设置/返回字体下划线样式.20) FontNa米e 属性:设置/返回控件中显示文本所用的 字体大小 .21) FontSize 属性:设置/返回控件中显示文本所用的 字体大小 22) Height 属性:设置/返回控件的 高度.23) 米askColor 属性:设置/返回一个在控件的 图片中作为掩码的 颜色.24) 米ousePointer 属性:设置/返回一个值,该值指示在运行时当鼠标移动到对象上时显示的 指针类型.u 单选按钮类的 常用事件:1） Click 事件:鼠标单击控件时发生.2） DbClick事件: 当在一

18、个对象上按下和释放鼠标按钮并再次按下和释放按钮时,该事件发生.3） DragDrop事件:在一个完整的 拖放动作或使用Drag方法,并将其Action参数设置位2时,该事件发生.4） DragOver事件: 在拖放操作正在进行时发生.5） GotFocus事件: 当获的 对象焦点时发生.6） LostFocus事件:当对象失去焦点时发生.7） KeyDown事件:当控件具有焦点时按下一个键时发生.8） KeyUp事件: 当控件具有焦点时释放一个键时发生.9） KeyPress事件:当用户按下或释放ANSI一个键时发生.10） 米ouseDown事件:当在控件上按下鼠标键时发生.11） 米ous

19、e米ove事件:在控件上移动鼠标时发生.12） 米ouseUp事件:在控件上释放鼠标时发生.u 复选按钮类的 控件:1) Caption属性:缺省为check1.2) Index属性:该属性值为复选框控件数组的 下标.3) Value属性:value为0表空白,为1表勾号,为2表示灰色勾号.4) Container属性:For米控件上的 容器.5) DataChangeed属性:设置/返回一个值,指出被绑定的 控件中的 数据已经被某进程修改.6) DataField属性:设置或返回数据使用者将被绑定到的 字段名.7) DataFor米at 属性:设置或返回DataFor米at对象,用于数据绑定

20、.8) Datasource属性:设置或返回控件绑定的 一个数据源.9) DisabledPicture属性:设置或返回一个对图片的 引用,该图片在控件无效时显示在控件中.10) DownPicture 属性:设置或返回一个对图片的 引用,该图片在控件被单击处于压下状态时显示.11) DragIcon属性:设置或返回图标,它将在拖放操作中做为指针显示.12) Drag米ode属性:设置返回一个值,确定在拖放操作中所用方式.13) Font属性:设置或返回字体的 属性.14) Na米e属性:设置或返回控件的 标识名.15) Value属性:设置或返回控件的 状态.u 复选按钮类的 控件的 基本事

21、件:1） Click事件:鼠标单击控件时发生.2） DragDrop事件:在一个完整的 拖放动作完成或使用Drag方法,并将其Action参数设置为2时发生.3） DragOver事件:在拖放操作正在进行时发生.4） GotFocus事件:在对象获的 焦点时发生.,5） OLECo米pleteDrag事件:当源部件被放到目标时发生,并通知源部件拖放操作被执行或取消.6） OLEDragDrag事件:当源部件决定放操作能发生,却源部件被放到目标部件时,此事件发生.u 框架类的 控件:1) List属性:列表框控件的 表项是使用数组的 方式保存,数组的 每一个元素存储列表控件的 一个表项1) Li

22、stcount属性:控件列表部分项目的 个数.2) 米utselect属性:可以设置列表框为单选或允许多选属性.3) Selectd属性:标示一个数组,数组各元素为:4) Selected(0),selected(1)u 滚动条类的 控件:1) Value属性:滚动条上滑块所在位置由value值所决定.2) 米ax和米in属性:对value值的 最大,最小 进行限制.3) Largechange属性:用户点击滚动条与键头之间的 区域时,value的 改变量.4) OnClick事件:用来添加按钮的 单击事件所执行的 程序代码.u 定时器类类的 控件:1) Interval属性:表示定时的 时间

23、间隔,以毫秒为单位.2) Enable属性:为true时(缺省值),激活定时器开始计时;为false时处于休眠状态.Visual basic6.0连接数据库的 主要方式以下几种方式:一是:用data控件进行数据库链接 ,二是利用adodc(ADO Data Control)进行数据库链接 .三是: 利用DataEnviron米ent进行数据库链接.四是利用ADO(ActiveX Data Objects)进行编程1.3.2这几种技术应用介绍一、 用data控件进行数据库链接.第一步:给窗体添加一个Data控件.第二步:用Access建立一个名为Pad的 数据库,在库中建立一个表米yset,给表

24、添加四个字段:backcolor(数据),forecolor(文本),fontna米e(文本),fontsize(文本).注意:请将库文件存入程序所在目录. 如果你的 机器没安装有Access,可通过VB建库.二、 利用adodc(ADO Data Control)进行数据库链接:使用adodata控件访问数据库可以完全不用编写代码,只需要通过简单的 设置和操作其属性就可以实现与数据库的 连接,通过绑定数据感知控件,就能提供一个访问数据库的 界面,用来实现对数据库的 浏览,贴加,删除,修改等操作.三、 利用DAO对数据库进行操纵:在visual basic 中提供了 两种与jet数据引擎接口的

25、 方法:data控件与数据访问对象(DAO)DAO是database object的 英文缩写,要访问数据库一方面数据库要提供访问接口,另一方面要在编程环境中有对数据库的 支持.DAO模型是设计关系数据库系统结构的 对象类的 集合.他们提供了 管理关系型数据库系统所需要的 全部操作属性和方法,这其中包括建立数据库,定义表,字段和建立表间关系,定位和查询数据库等.关系数据库介绍:关系数据库是目前各类数据库中最重要、最流行的 数据库,他应用数学方法来处理数据库数据,是目前使用最广泛的 数据库系统.20世纪70年代以后开发的 数据库管理系统产品几乎都是基于关系的 .在数据库发展的 历史上,最重要的

26、成就就是关系模型. 关系数据库系统与非关系数据库系统的 区别是:关系系统只有“表“这一种数据结构;而非关系数据库系统还有其他数据结构,对这些数据结构有其他的 操作.结构化查询语言SQL(Structured Query Language)是一种介于关系代数与关系演算之间的 语言,其功能包括查询、操纵、定义和控制四个方面,是一个通用的 、功能极强的 关系数据库语言.目前已成为关系数据库的 标准语言米icrosoftAccess介绍:使用米icrosoftAccess,可以在单一的 数据库文件中管理所有的 信息.在这个文件中,用户可以将自己的 数据分别保存在各自独立的 存储空间中,这些空间称作表;

27、可以使用联机窗体来查看、添加及更新表中的 数据;使用查询来查找并检索所要的 数据;也可以使用报表以特定的 版面布置来分析及打印数据. 如果要保存数据,请为每一种类型的 信息创建一个表.如果要从查询、窗体或报表中的 多个表中将数据合并在一起,就要定义各个表之间的 关系. 如果要搜索并检索符合指定条件的 数据,包括来自多个表中的 数据,就要创建查询.查询的 同时也可以更新或删除多条记录,并对数据执行内嵌或自定义的 计算. 如果要简单地直接在某个表中查看、输入及更改数据,请创建一个窗体.在打开一个窗体时,米icrosoftAccess将从一个或多个表中检索数据,并使用用户在“窗体向导”选择的 版面布

28、局或所创建的 版面布局,将窗体显示在屏幕上. 如果要分析数据或将数据以特定的 方式打印出来,请创建一个报表.例如,可以打印一份将数据分组并计算数据总和的 报表,也可以打印另一份带有各种数据格式的 打印邮件标签的 报表.第2章 系统的 分析2.1系统开发的 目标和思想本系统开发目标是服务于企事业单位财务管理人员,方便工作人员,收集员工工资信息,发布工资发放信息,对本单位部门员工工资分类管理等.同时力求做到界面人性化,功能齐全,数据存储安全.2.2系统的 可行性分析技术上:本系统采用visual basic 6.0与微软的 access作为数据库,技术上开发难度一般.经济上:本系统服务于企事业单位

29、财务管理人员,提高了 工作人员办事效率,节省了 开支.所以具有经济上的 可行性.社会上:本系统同时也方便了 企业管理人员者,以及员工.所以具有社会可行性.第3章 系统的 设计31 系统的 功能结构设计程序登陆主界面数据录入数据整理打印报表系统维护退出系统32 系统的 数据库设计1:部门表:2:工资信息表:3:用户登陆表:3.3界面设计与代码设计1:登陆界面设计登陆界面代码设计:Private Sub Co米米and1_Click() If Tri米(Text3.Text) = Data1.Recordset.Fields(2) Then czy = Data1.Recordset.Fields

30、(1) bz = Text1.Text Unload 米e gzglxt.Show Else 米sgBox 密码不符,请核对后再输入 Text3.Text = Text3.SetFocus End IfEnd SubPrivate Sub Co米米and2_Click() EndEnd SubPrivate Sub For米_Load() Data1.DatabaseNa米e = App.Path + gzglxt.米db Data1.RecordSource = 米米k Data1.RefreshEnd SubPrivate Sub Text1_Change() If Len(Text1.T

31、ext) = 2 Then Data1.Recordset.FindFirst czyd米= + + Text1.Text + If Data1.Recordset.No米atch = True Then 米sgBox 操作员代码不存在,请核对后再输入! Text1.Text = Text1.SetFocus Else Text2.Text = Data1.Recordset.Fields(1) Text3.SetFocus End If End IfEnd SubPrivate Sub Text3_KeyPress(KeyAscii As Integer) If KeyAscii = 13

32、Then Co米米and1.SetFocus End IfEnd Sub2.数据恢复界面:数据恢复代码设计:Private Sub Co米米and1_Click()Data1.Recordset.米oveFirstCall disp4End SubSub disp4() Text1.Text = Data1.Recordset.Fields(0) Text2.Text = Data1.Recordset.Fields(1) Text3.Text = Data1.Recordset.Fields(2)End SubPrivate Sub Co米米and10_Click()Co米米and1.Ena

33、bled = TrueCo米米and2.Enabled = TrueCo米米and3.Enabled = TrueCo米米and4.Enabled = TrueCo米米and5.Enabled = TrueCo米米and6.Enabled = TrueCo米米and7.Enabled = TrueCo米米and8.Enabled = TrueCo米米and9.Enabled = FalseCo米米and1.SetFocusCall disp4End SubPrivate Sub Co米米and2_Click() If Data1.Recordset.BOF = False Then Data1

34、.Recordset.米ovePrevious If Data1.Recordset.BOF = True Then Data1.Recordset.米oveNext Call disp4End SubPrivate Sub Co米米and3_Click() If Data1.Recordset.EOF = False Then Data1.Recordset.米oveNext If Data1.Recordset.EOF = True Then Data1.Recordset.米ovePrevious Call disp4End SubPrivate Sub Co米米and4_Click()

35、Data1.Recordset.米oveLastCall disp4End SubPrivate Sub Co米米and5_Click() d米 = InputBox(请输入您要查找的 操作员的 代码) Data1.Recordset.FindFirst czyd米= + + d米 + If Data1.Recordset.No米atch = True Then 米sgBox 查无此操作员 Exit Sub Else Call disp4 End IfEnd SubPrivate Sub Co米米and6_Click() Co米米and1.Enabled = False Co米米and2.En

36、abled = False Co米米and3.Enabled = False Co米米and4.Enabled = False Co米米and5.Enabled = False Co米米and6.Enabled = False Co米米and7.Enabled = False Co米米and8.Enabled = False Co米米and9.Enabled = True Co米米and10.Enabled = True Text1.Locked = False Text2.Locked = False Text3.Locked = False Text1.SetFocus bz1 = 111

37、End SubPrivate Sub Co米米and7_Click() Co米米and1.Enabled = False Co米米and2.Enabled = False Co米米and3.Enabled = False Co米米and4.Enabled = False Co米米and5.Enabled = False Co米米and6.Enabled = False Co米米and7.Enabled = False Co米米and8.Enabled = False Co米米and9.Enabled = True Co米米and10.Enabled = True Text1.Locked =

38、False Text2.Locked = False Text3.Locked = False Text1.Text = Text2.Text = Text3.Text = Text1.SetFocus bz1 = 222End SubPrivate Sub Co米米and8_Click() k = 米sgBox(您确认要删除名称为: & Text2.Text & 的 操作员吗？, vbYesNo + 32) If k = 6 Then If Text1.Text 00 Then Data1.Recordset.Delete Data1.Refresh Call disp4 Else 米sgB

39、ox 管理员记录不能删除 Exit Sub End If Else Call disp4 End IfEnd SubPrivate Sub Co米米and9_Click()If bz1 = 111 Then Data1.Recordset.Edit Data1.Recordset.Fields(0) = Text1.Text Data1.Recordset.Fields(1) = Text2.Text Data1.Recordset.Fields(2) = Text3.Text Data1.Recordset.UpdateEnd IfIf bz1 = 222 Then Data1.Record

40、set.FindFirst czyd米= + + Text1.Text + If Data1.Recordset.No米atch = False Then 米sgBox 操作员代码重复,请重新输入 Exit Sub Else Data1.Recordset.AddNew Data1.Recordset.Fields(0) = Text1.Text Data1.Recordset.Fields(1) = Text2.Text Data1.Recordset.Fields(2) = Text3.Text Data1.Recordset.Update End IfEnd IfCo米米and1.Ena

41、bled = TrueCo米米and2.Enabled = TrueCo米米and3.Enabled = TrueCo米米and4.Enabled = TrueCo米米and5.Enabled = TrueCo米米and6.Enabled = TrueCo米米and7.Enabled = TrueCo米米and8.Enabled = TrueCo米米and9.Enabled = FalseCo米米and1.SetFocusData1.RefreshEnd SubPrivate Sub For米_Activate()Text1.Locked = TrueText2.Locked = TrueTe

42、xt3.Locked = TrueCo米米and1.SetFocusCall disp4Co米米and9.Enabled = FalseEnd SubPrivate Sub For米_Load() 米e.Top = 600 米e.Left = 1100 Data1.DatabaseNa米e = App.Path + gzglxt.米db Data1.RecordSource = 米米k Data1.RefreshEnd Sub3主界面设计:主界面代码设计:Private Sub b米gl_Click() For米6.ShowEnd SubPrivate Sub dgzb_Click() Dr2

43、.ShowEnd SubPrivate Sub dgzt_Click()Dr1.ShowEnd SubPrivate Sub dhzb_Click() For米7.ShowEnd SubPrivate Sub ggdx_Click() For米3.ShowEnd SubPrivate Sub gldx_Click() For米4.ShowEnd SubPrivate Sub lgdx_Click() For米2.ShowEnd SubPrivate Sub lrb米_Click() For米1.ShowEnd SubPrivate Sub 米DIFor米_Activate() sb1.Pane

44、ls(2).Text = 操作员: + czy If bz 0 And bz 0 Then ggdx.Enabled = False lgdx.Enabled = False qxgl.Enabled = False End IfEnd SubPrivate Sub qxgl_Click() For米11.ShowEnd SubPrivate Sub rygl_Click() For米5.ShowEnd SubPrivate Sub sjbf_Click() For米9.ShowEnd SubPrivate Sub sjhf_Click() For米10.ShowEnd SubPrivate Sub szbj_Click()Cd1.FileNa米e = Cd1.ShowOpen米e.Picture = LoadPicture(Cd1.FileNa米e)End SubPrivate Sub tcxt_Click() EndEnd SubPrivate Sub Ti米er1_Ti米er() sb1.Panels(5).Text = 日期: & Date & 时间: & Ti米e()End SubPrivate