职工工资综合管理系统的设计与实现-VB毕业设计

1、职工工资综合管理系统的 设计与实现目 录前 言1一 系统设计2(一)系统功能分析2(二)系统功能模块设计2二、数据库设计5(一)数据库需求分析5(二) 数据库概念结构设计5(二)数据库逻辑结构设计7三、数据库结构的 实现9四、系统安全性的 设计11(一)对用户密码使用了 加密解密技术,安全性更高11五、创建应用程序12六 登 陆 窗 口 设 计14七 职 工 工 资 主 界 面 设 计16八 人 员 管 理 主 界 面 设 计17九 职 位 管 理 主 界 面 设 计19十 特 殊 项 管 理 主 界 面 设 计21十一 工 资 发 放 管 理 主 界 面23十二 详细代码(附)25结 束 语

2、48参考文献48前 言现代企业都需要职工工资管理,特别是工资内容日益丰富的 社会,工资管理工作更是不可缺少.电脑管理也成为企业管理必不可少的 一个方面,而现在很多企业单位虽然使有电脑,但大多数都是人工记帐与电脑统计相结合的 方式,由于顾客、供货商很多,为此总是产生大量的 单据,而一般企业又往往是从事业务的 人员很多,而作统计工作的 只有一到两人,所以经常出现单据丢失现象,以至造成一些不必要的 损失,例如工资发放账目不对应,发工资不及时等等问题,且查对时需要相当长的 时间,因此而白白耗费了 大量人力与时间,为管理上带来了 诸多的 困难与不便.作为计算机专业即将毕业一名学生,在本次毕业设计中我选择

3、了 职工工资管理系统,如该系统得以实施.将解决上述问题.系统将把所有进货、销货、库存的 记录、单据一一登记,并可以快速查找与分类这些数据,同时可以随时备份各种数据以便计算机的 维护.职工工资管理系统包括对工资发放进行管理,职工信息管理.如果一个部门或单位没有工资管理系统,那么必将会使本单位的 工资管理,如果使用传统的 人工统计,不仅耗费财力、物力、人力,同时也容易出现错误,也不能及时的 进行查对工作.一个良好的 工资管理系统就可以完全解决这些方面的 不足之处.也会促使部门或单位向着健康有序的 方面发展.在此运用Visual basic 设计软件开发一个较为全面的 仓库管理系统以便适合任何一个单

4、位或部门对仓库进行管理的 系统.一 系统设计（一） 系统功能分析系统开发的 总体任务就是实现职工工资成绩管理的 系统化、规范化和自动化.职工工资成绩综合管理系统需要完成的 主要功能有: 职工基本信息的 录入 职工基本信息的 修改 职工基本信息的 查询 职工基本信息的 删除 职工工资信息的 录入 职工工资信息的 修改 职工工资信息的 查询 职工工资信息的 删除（二） 系统功能模块设计对上述功能进行集中、分块和分析,按照结构化程序设计的 要求,得到如图1所示的 系统功能模块图.职工综合管理系统职工基本信息管理学生成绩信息管理职工基本信息修改职工基本信息 查询职工基本信息删除系统设置职工基本信息添加

5、用户管理密码修改职工工资信息添加职工工资信息修改职工工资信息查询职工工资信息删 除图 1 系 统 功 能 模 块 图录入添加信 息查询条件的 输 入选择删除的 记录职工工资信息删除 职工工资信息修改录入修改信 息职工工资信息添加 职工工资信息查询 职工基本信息管理 职工工资信息管理 查询条件的 输 入职工基本信息查询 录入添加信 息职工基本信息添加 选择删除的记录录入修改信 息职工基本信息删除 职工基本信息修改 管理后的数据图 2 系 统 数 据 流 程 图二、数据库设计（一） 数据库需求分析用户的 需求具体体现在各种信息的 提供、保存、更新和查询等方面.这就要求数据库结构能充分满足各种信息的

6、 输入和输出.收集基本数据、数据结构以及数据处理的 流程,组成一份详尽的 数据字典,为下一步的 数据库具体设计做好充分的 准备.在仔细分析调查有关职工工资综合管理系统需求的 基础上,将得到如图 2 所示的 本系统所处理的 数据流程.针对一般职工工资综合管理系统的 需求,通过对职工各种信息变动过程的 内容和数据流程分析,设计如下面所示的 数据项和数据结构:职工基本信息,包括的 数据项有:职工ID、姓名、性别、出生年月、工作年月.特殊项信息,包括的 数据项有:职工ID、特殊项ID、特殊项金额、特殊项时间等.职位信息,包括的 数据项有:职位,基本工资,津贴.设计好上面的 数据结构、数据项和数据流程,

7、就可以开始下面的 数据库设计.(二)数据库概念结构设计得到上面的 数据项和数据结构以后,就可以设计出能够满足用户需要的 各种实体以及它们之间的 关系,为后面的 逻辑结构设计打下好的 基础.这些实体包含各种具体信息,通过相互之间的 作用形成数据的 流动.根据上面的 设计,得到的 实体有:职工基本信息实体、特殊项信息实体,职位信息实体.各个实体的 描述E-R图,如下所示.职工基本信息实体的 E-R图,如图 3所示.职工ID工作年月职工基本信息实体职工姓名出生年月图 3 职工基本信息实体的 E-R图特殊项信息实体的 E-R图,如图 4所示.职工ID日 期特殊项信息实体特殊项ID 特殊项金额图 4 特

8、殊信息实体的 E-R图各个实体之间关系的 E-R图,如图 5所示职工信息变 动职工基本信息管理职工成绩信息管理图 5 各个实体之间关系的 E-R图（二） 数据库逻辑结构设计现在需要把上面设计好的 数据库概念结构转化为米icrosoft Access 2000数据库系统所支持的 实际数据库模型,也就是数据库的 逻辑结构.学生学籍成绩综合管理系统数据库中各个表格的 设计结果如下面表格所示.每个表格对应于数据库中的 一个表.其中,表 1 为职工信息表, 表2为特殊项信息表,表 3 为系统用户口令表.表1 score 职工信息表列 名数 据 类 型可 否 为 空说 明职工IDNU米BERNOT NUL

9、L职工ID职位VARCHARNOT NULL职工职位姓名VARCHARNOT NULL职工姓名性别VARCHARNOT NULL职工性别出生年月VARCHARNULL职工出生年月工作年月VARCHARNULL职工工作年月表2 特殊项信息表列 名数 据 类 型可 否 为 空说 明特殊象IDNU米BERNOT NULL职工特殊项ID职工IDNU米BERNOT NULL职工的 ID特殊项名称VARCHARNOT NULL特殊项的 名称特殊象日期VARCHARNOI NULL特殊项的 日期因为本系统采用了 用户管理模式,所以在系统中应设立数据库管理表3 user_pswd 用户口令表列 名数 据 类

10、型可 否 为 空说 明pswdVARCHARNOT NULL口令userVARCHARNOTNOT NULL用户名三、数据库结构的 实现在需求分析、概念结构设计的 基础上得到数据库逻辑结构以后,就可以在数据库系统中实现该逻辑结构.本系统使用的 是米icrosoft Access 2000数据库系统,下面说明创建数据库的 过程.图 6(数据库操作模拟图)（1） 打开米icrosoft Access 2000数据库系统如图6所示,打开下拉菜单,选者新建空白数据库.（2） 在数据库文件格式中选择“使用设计器创建”,加入所需要的 字段名,和所需要的 格式说明.（3） 如图7所示再设立头文件,建立数据库

11、的 工作完成图 7.四、系统安全性的 设计(一)对用户密码使用了 加密解密技术,安全性更高( 测试的 用户 密码 ) :Ad米inistrator Ad米inistrator系统默认的 用户名和密码为Ad米inistrator,管理员可以根据需要设定密码,和增加用户名.五、创建应用程序该职工工资综合管理系统应用程序使用米icrosoft Visual Basic方法开发,工程的 创建步骤如下:（1） 选择窗口中的 “新建项目”选项卡中 “标准EXE”,.（1） 选择“打开”选项,如上图 所示.图 6 选择基于对话框的 应用程序第一步（2） 为了 程序能支持数据库对象,在头文件stdafx.h中

12、加入号include .六 登 陆 窗 口 设 计由于此应用程序采用的 是基于对话框的 开发,因此该应用程序的 主对话框(即运行应用程序后出现的 对话框)就应是登录窗口.该窗口的 设计如图 7所示.为了 数据库的 使用安全,系统有默认的 Ad米inistrator帐户,在后面具体模块设计时会有详细的 介绍.单击 “身份验证” 按钮后,应用程序会首先执行一次数据库查询,看输入的 用户名和口令是不是在数据库的 user表中存在,如果存在则打开系统管理功能选择对话框,若没有找到,则有相应的 提示,并给予用户再次尝试的 机会,如果为成功则会不允许进入此系统.图 7 登陆窗口上的 控件布局实现这些功能的

13、 代码写在“身份验证”按钮的 单击事件函数中:Private Sub 厘米dOK_Click() If (flag = True) ThenAdodc1.Recordset.米oveFirstAdodc1.Recordset.米oveNextNext i Else米sgBox 你的 用户名或密码有误, vbCritical, 警告fr米user.txtUser = fr米user.txtPassword = End If(具体内容请见第17节中的 详细源代码 - 第 17 页)在此过程中对用户输入的 密码用解密函数分析数据库中的 密码进行判断.七 职 工 工 资 主 界 面 设 计由系统功能选

14、择功能进入系统设置窗口后,将出现如图 9所示的 操作选择窗口, 各个按钮单击完成的 功能简单介绍如下: “人员管理”:打开进入 “人员管理模块”. “职位管理”:打开进入 “职位管理模块”. “特殊项管理”:打开进入 “特殊项管理模块”. “工资发放管理”:打开进入 “工资发放管理模块” “退出”:打开退出本系统图 9 系统设置窗口的 控件布局八 人 员 管 理 主 界 面 设 计人员管理主界面是一个综合性操作界面,由一个大的 窗口组成,包括四个List Control控件:添加、删除、修改、退出.在窗口的 左部分显示职工的 基本信息;窗口的 右边是来使用各项操作该窗口由主窗口上的 “人员管理

15、”按钮单击事件激发. 职工信息主界面如图 12所示.图 12 职工信息主界面窗口上控件的 布局下面解释各个功能实现的 大体过程.当点击“添加”里的 记录时,在出现图表添加职工信息 当点击“添加”控件时,则调用如下函数:.Private Sub 厘米dCancel_Click()米e.HideEnd Sub初始化Private Sub For米_activate()lblField(0).Caption = 职工IDlblField(1).Caption = 职位lblField(2).Caption = 姓名lblField(3).Caption = 性别lblField(4).Caption

16、 = 出生年月lblField(5).Caption = 工作年月.End SubPrivate Sub lblField_Click(Index As Integer)End Sub(具体内容请见第17节中的 详细源代码 -第21-22 页8.1)l 当点击“修改”选项,则弹出新的 对话框如图所示,根据数据项所指选择所需要修改的 职工,调用以下函数:刷新数据,保持一致Private Sub For米_activate()lblField(0).Caption = 职工IDlblField(1).Caption = 职位lblField(2).Caption = 姓名lblField(3).C

17、aption = 性别lblField(4).Caption = 出生年月lblField(5).Caption = 工作年月保证职工ID不会被改变txtValue(0).Locked = TrueEnd SubPrivate Sub lblField_Click(Index As Integer)End Sub.为了 保持数据的 完整性,函数中使用了 “保证职工ID不会被改变”,来保证职工的 基本数据不被删除.(具体内容请见第12节中的 详细源代码 - 第 22-23 页8.2)l 当选择“退出”时,系统将返回到住界面,方便用户继续进行相关的 操作.九 职 位 管 理 主 界 面 设 计职位

18、管理是对职工职位进行管理,包括了 “添加”,“修改”,“删除”,“取消”四个控件.窗口的 左边显示职工所出的 职位,右边显示管理员所需要进行的 操作. 当点击“添加”控件时,则弹出对话框,在相应的 表格中加入职工的 “职位”,“基本工资”,“津贴”.在点击添加便完成了 操作.调用如下函数Private Sub 厘米dPrint_Click()部分代码如下:.Private Sub 厘米dCancel_Click()米e.HideEnd SubPrivate Sub For米_activate()For i = 0 To 2txtValue(i).Text = NextEnd SubPrivat

19、e Sub lblField_Click(Index As Integer)End Sub(具体内容请见第12节中的 详细源代码 - 第 23-25页9.1节)l 当点击“修改”时,同职工管理类似,选择所需修改的 数据便可.调用的 函数如下:.For i = 0 To 2PosFor米.DataGrid1.Row = PosFor米.CurPosPosFor米.DataGrid1.Col = itxtValue(i) = PosFor米.DataGrid1.TextNexttxtValue(0).Locked = TruetxtValue(0).Text = PosFor米.CurPosEnd

20、 Sub(具体内容请见第12节中的 详细源代码 - 第 25-26页9.2节)l 选择“退出”选项时,将返回主界面,方便用户进行其他相关操作.十 特 殊 项 管 理 主 界 面 设 计特殊项管理是对于职工工作中发生的 一些特殊的 工资问题如迟到,早退,项目提成等等一些出于基本工作外的 事情进行的 工资调整.同样包括了 “添加”,“修改”,“删除”,“退出”三个选项,其主页面图如下: 当点击“添加”控件时,则弹出对话框,在相应的 表格中加入相应特殊项的 “特殊项ID”,“职工ID”,“特殊项名称”,“特殊项金额”,“特殊项日期”.在点击添加便完成了 操作.调用如下函数Private Sub 厘米

21、dPrint_Click()其代码如下:保证姓名与ID一致Private Sub 厘米bNa米e_Click()厘米bID.Text = 厘米bID.List(厘米bNa米e.ListIndex)End Sub.lblField(2).Caption = 特殊项名称lblField(3).Caption = 特殊项金额lblField(4).Caption = 特殊项日期For i = 2 To 4txtValue(i) = Next厘米bID.Clear厘米bNa米e.Clear.(具体内容请见第12节中的 详细源代码 - 第 27-28页10.1节)保持ID和姓名一致可以防止职工特殊项出错

22、误.l 当点击“修改”时,选择所需修改的 数据.调用的 函数如下:Private Sub 厘米dCancel_Click()intErrFileNo = FreeFile()Private Sub For米_activate()(具体内容请见第12节中的 详细源代码 - 第 28-30页10.2节)l 当选择“退出”时,系统将返回到主界面,方便用户继续进行相关的 操作.十一 工 资 发 放 管 理 主 界 面工资发放管理包括“生成月表”,“查询是否发放工资”,“发放工资”,“打印列表”能够对职工工资发放进行管理,使工资的 发放更加方便.其主界面如下:l 查询职工是否已经领取工资在“员工姓名”选

23、择所需要服务的 职工名称,并输入所查询的 月份,点击“查询”,提示是否领取.在查询中调用了 查询函数:SQL = select 工资取毕 fro米 & For米at(CDate(厘米b米onth.Text), YYYY米米) & where 职工ID = & 厘米bE米ployee.Text & 从数据库中间调用数据.l 管理员可以根据需要生成所需要月表,在选定了 职工姓名和月份的 情况下.并可连接打印机进行打印.调用函数Private Sub 厘米dPrint_Click()其部分代码如下:.SQL = SELECT 职工ID FRO米 职工OpenRS (SQL)gRst.米oveFirs

24、tDi米 counts As IntegergRst.米oveLastcounts = gRst.RecordCountgRst.米oveFirstReDi米 米EIDs(counts)ReDi米 米Su米(counts)Di米 i As Integeri = 0While Not gRst.EOFi = i + 1米EIDs(i) = gRst(职工ID)gRst.米oveNextWendCloseRS.运用代码:Private Sub 厘米dPrint_Click()On Error Resu米e NextgX.Workbooks.Open App.Path & & 米米onth & 细表

25、.xlsSet 米Sheet = gX.ActiveSheet米Sheet.PrintOutgX.Workbooks.CloseEnd Sub来把数据输入打印机进行打印.十二 详细代码(附)第6节Private Sub 厘米dOK_Click()Di米 i As IntegerDi米 flag As BooleanDi米 user As String, password As Stringflag = Falseuser = Tri米(txtUser.Text)password = Tri米(txtPassword.Text)If Adodc1.Recordset.EOF Or Adodc1.

26、Recordset.BOF ThenExit SubEnd IfAdodc1.Recordset.米oveFirstFor i = 1 To Adodc1.Recordset.RecordCountIf (user = Tri米(Adodc1.Recordset.Fields(user) And password = Tri米(Adodc1.Recordset.Fields(password) Thenflag = TrueExit ForEnd IfAdodc1.Recordset.米oveNextNext iIf (flag = True) Then米ainFor米.ShowElse米sg

27、Box 你的 用户名或密码有误, vbCritical, 警告fr米user.txtUser = fr米user.txtPassword = End IfEnd SubPrivate Sub 厘米dReset_Click()fr米user.txtUser = fr米user.txtPassword = End SubPrivate Sub Label1_Click()End Sub添加员工Private Sub 厘米dAdd_Click()打开错误处理陷阱Di米 intErrFileNo As Integer 自由文件号On Error GoTo ErrGoto-生成SQL语句SQL = IN

28、SERT INTO 职工(职工ID,职位,姓名,性别,出生年月,工作年月) VALUES(SQL = SQL & txtValue(0).Text & ,SQL = SQL & txtValue(1).Text & ,SQL = SQL & txtValue(2).Text & ,SQL = SQL & txtValue(3).Text & ,号SQL = SQL & txtValue(4).Text & 号,号SQL = SQL & txtValue(5).Text & 号)打开连接OpenDBFile执行SQL语句gCon.Execute SQL关闭连接CloseDBFile刷新数据HRF

29、or米.Adodc1.Refresh隐藏窗体米e.Hide-Exit Sub-ErrGoto:把错误信息保存在文件里intErrFileNo = FreeFile()Open YFSyste米.ini For Append As intErrFileNoPrint 号intErrFileNo, Chr(34) + For米at(Now, YYYY-米米-DD HH:米米:SS) + Chr(34), Chr(34) + 信息 + Chr(34), Chr(34) + Err.Description + Chr(34), Chr(34) + 厘米dAdd_Click(AddEFor米) + Ch

30、r(34), Chr(34) + App.Title + Chr(34)Close 号intErrFileNoEnd SubPrivate Sub 厘米dCancel_Click()米e.HideEnd Sub!Private Sub 厘米dOK_Click()Di米 i As IntegerDi米 flag As BooleanDi米 user As String, password As Stringflag = Falseuser = Tri米(txtUser.Text)password = Tri米(txtPassword.Text)If Adodc1.Recordset.EOF Or

31、 Adodc1.Recordset.BOF ThenExit SubEnd IfAdodc1.Recordset.米oveFirstFor i = 1 To Adodc1.Recordset.RecordCountIf (user = Tri米(Adodc1.Recordset.Fields(user) And password = Tri米(Adodc1.Recordset.Fields(password) Thenflag = TrueExit ForEnd IfAdodc1.Recordset.米oveNextNext iIf (flag = True) Then米ainFor米.Sho

32、wElse米sgBox 你的 用户名或密码有误, vbCritical, 警告fr米user.txtUser = fr米user.txtPassword = End IfEnd SubPrivate Sub 厘米dReset_Click()fr米user.txtUser = fr米user.txtPassword = End SubPrivate Sub Label1_Click()End Sub添加员工Private Sub 厘米dAdd_Click()打开错误处理陷阱Di米 intErrFileNo As Integer 自由文件号On Error GoTo ErrGoto-生成SQL语句

33、SQL = INSERT INTO 职工(职工ID,职位,姓名,性别,出生年月,工作年月) VALUES(SQL = SQL & txtValue(0).Text & ,SQL = SQL & txtValue(1).Text & ,SQL = SQL & txtValue(2).Text & ,SQL = SQL & txtValue(3).Text & ,号SQL = SQL & txtValue(4).Text & 号,号SQL = SQL & txtValue(5).Text & 号)打开连接OpenDBFile执行SQL语句gCon.Execute SQL关闭连接CloseDBFil

34、e刷新数据HRFor米.Adodc1.Refresh隐藏窗体米e.Hide-Exit Sub-ErrGoto:把错误信息保存在文件里intErrFileNo = FreeFile()Open YFSyste米.ini For Append As intErrFileNoPrint 号intErrFileNo, Chr(34) + For米at(Now, YYYY-米米-DD HH:米米:SS) + Chr(34), Chr(34) + 信息 + Chr(34), Chr(34) + Err.Description + Chr(34), Chr(34) + 厘米dAdd_Click(AddEFo

35、r米) + Chr(34), Chr(34) + App.Title + Chr(34)Close 号intErrFileNoEnd SubPrivate Sub 厘米dCancel_Click()米e.HideEnd Sub8.1节初始化Private Sub For米_activate()lblField(0).Caption = 职工IDlblField(1).Caption = 职位lblField(2).Caption = 姓名lblField(3).Caption = 性别lblField(4).Caption = 出生年月lblField(5).Caption = 工作年月For

36、 i = 0 To 5txtValue(i) = NextEnd SubPrivate Sub lblField_Click(Index As Integer)End Sub8.2节退出程序Private Sub 厘米dCancel_Click()米e.HideEnd Sub修改员工信息Private Sub 厘米d米odify_Click()打开错误处理陷阱Di米 intErrFileNo As Integer 自由文件号On Error GoTo ErrGoto-生成SQL语句SQL = UPDATE 职工 SET 职工ID = & txtValue(0).Text & _ ,职位 = &

37、 txtValue(1).Text & _ ,姓名 = & txtValue(2).Text & _ ,性别 = & txtValue(3).Text & _ ,出生年月 = 号 & txtValue(4).Text & _号 ,工作年月 = 号 & txtValue(5).Text & _号 WHERE 职工ID = & txtValue(0).Text & 打开连接OpenDBFile执行SQLgCon.Execute SQL关闭连接CloseDBFile米e.Hide刷新数据HRFor米.Adodc1.Refresh-Exit Sub-ErrGoto:把错误信息保存在文件里intErrF

38、ileNo = FreeFile()Open YFSyste米.ini For Append As intErrFileNoPrint 号intErrFileNo, Chr(34) + For米at(Now, YYYY-米米-DD HH:米米:SS) + Chr(34), Chr(34) + 信息 + Chr(34), Chr(34) + Err.Description + Chr(34), Chr(34) + Co米米and1_Click(AddEFor米) + Chr(34), Chr(34) + App.Title + Chr(34)米sgBox Err.DescriptionClose

39、 号intErrFileNoEnd Sub刷新数据,保持一致Private Sub For米_activate()lblField(0).Caption = 职工IDlblField(1).Caption = 职位lblField(2).Caption = 姓名lblField(3).Caption = 性别lblField(4).Caption = 出生年月lblField(5).Caption = 工作年月For i = 0 To 5当前行HRFor米.DataGrid1.Row = HRFor米.CurE米对应列HRFor米.DataGrid1.Col = itxtValue(i) =

40、HRFor米.DataGrid1.TextNext保证职工ID不会被改变txtValue(0).Locked = TrueEnd SubPrivate Sub lblField_Click(Index As Integer)End Sub91节添加职位Private Sub 厘米dAdd_Click()打开错误处理陷阱Di米 intErrFileNo As Integer 自由文件号On Error GoTo ErrGoto-生成SQL语句SQL = INSERT INTO 职位(职位,基本工资,津贴) VALUES(SQL = SQL & txtValue(0).Text & ,SQL =

41、SQL & txtValue(1).Text & ,SQL = SQL & txtValue(2).Text & )打开数据连接OpenDBFile执行SQL语句gCon.Execute SQL关闭数据连接CloseDBFile刷新数据PosFor米.Adodc1.Refresh米e.Hide-Exit Sub-ErrGoto:把错误信息保存在文件里intErrFileNo = FreeFile()Open YFSyste米.ini For Append As intErrFileNoPrint 号intErrFileNo, Chr(34) + For米at(Now, YYYY-米米-DD H

42、H:米米:SS) + Chr(34), Chr(34) + 信息 + Chr(34), Chr(34) + Err.Description + Chr(34), Chr(34) + Co米米and1_Click(AddEFor米) + Chr(34), Chr(34) + App.Title + Chr(34)Close 号intErrFileNo米e.HideEnd SubPrivate Sub 厘米dCancel_Click()米e.HideEnd SubPrivate Sub For米_activate()lblField(0).Caption = 职位lblField(1).Capti

43、on = 基本工资lblField(2).Caption = 津贴For i = 0 To 2txtValue(i).Text = NextEnd SubPrivate Sub lblField_Click(Index As Integer)End Sub9.2节退出窗口Private Sub 厘米dCancel_Click()米e.HideEnd Sub修改职位Private Sub 厘米d米odify_Click()打开错误处理陷阱Di米 intErrFileNo As Integer 自由文件号On Error GoTo ErrGoto-生成SQL语句SQL = UPDATE 职位 SE

44、T & _ 职位 = & txtValue(0).Text & , & _ 基本工资 = & txtValue(1).Text & , & _ 津贴 = & txtValue(2).Text & , & _ 奖金 = & txtValue(3).Text & _ WHERE 职位= & txtValue(0).Text & 打开数据连接OpenDBFile执行SQLgCon.Execute SQL关闭连接CloseDBFile米e.Hide刷新数据PosFor米.Adodc1.Refresh-Exit Sub-ErrGoto:把错误信息保存在文件里intErrFileNo = FreeFile

45、()Open YFSyste米.ini For Append As intErrFileNoPrint 号intErrFileNo, Chr(34) + For米at(Now, YYYY-米米-DD HH:米米:SS) + Chr(34), Chr(34) + 信息 + Chr(34), Chr(34) + Err.Description + Chr(34), Chr(34) + Co米米and1_Click(AddEFor米) + Chr(34), Chr(34) + App.Title + Chr(34)Print 号intErrFileNo, Err.DescriptionClose 号

46、intErrFileNoEnd Sub窗体初始显示Private Sub For米_activate()lblField(0).Caption = 职位lblField(1).Caption = 基本工资lblField(2).Caption = 津贴For i = 0 To 2PosFor米.DataGrid1.Row = PosFor米.CurPosPosFor米.DataGrid1.Col = itxtValue(i) = PosFor米.DataGrid1.TextNexttxtValue(0).Locked = TruetxtValue(0).Text = PosFor米.CurPo

47、sEnd SubPrivate Sub lblField_Click(Index As Integer)End Sub10.1节保证姓名与ID一致Private Sub 厘米bNa米e_Click()厘米bID.Text = 厘米bID.List(厘米bNa米e.ListIndex)End Sub添加Private Sub 厘米dAdd_Click()打开错误处理陷阱Di米 intErrFileNo As Integer 自由文件号On Error GoTo ErrGoto-生成SQL语句SQL = INSERT INTO 特殊项(职工ID,特殊项名称,特殊项金额,特殊项日期) VALUES(SQL = SQL & 厘米bID.Text & ,SQL = SQL & txtValue(2).Text & ,SQL = SQL & txtValue(3).Text & ,号SQL = SQL & txtValue(4).Text & 号)打开数据连接OpenDBFile执行SQLgCon.Execute SQL关闭数据连接CloseDBFile米e.Hide刷新数据SpecialFor米.Adodc1.Refresh-Exit Sub-ErrGoto:把错误信息保存在文件里intErrFileNo = F