毕业论文范文——职工工资综合管理系统的设计与实现

职工工资综合管理系统的设计与实现目 录前 言1一 系统设计2（一）系统功能分析2（二）系统功能模块设计2二、数据库设计5（一）数据库需求分析5（二） 数据库概念结构设计5（二）数据库逻辑结构设计7三、数据库结构的实现9四、系统安全性的设计11（一）对用户密码使用了加密解密技术，安全性更高11五、创建应用程序12六 登 陆 窗 口 设 计14七 职 工 工 资 主 界 面 设 计16八 人 员 管 理 主 界 面 设 计17九 职 位 管 理 主 界 面 设 计19十 特 殊 项 管 理 主 界 面 设 计21十一 工 资 发 放 管 理 主 界 面23十二 详细代码（附）25结 束 语48参考文献48前 言现代企业都需要职工工资管理，特别是工资内容日益丰富的社会，工资管理工作更是不可缺少。电脑管理也成为企业管理必不可少的一个方面，而现在很多企业单位虽然使有电脑，但大多数都是人工记帐与电脑统计相结合的方式，由于顾客、供货商很多，为此总是产生大量的单据，而一般企业又往往是从事业务的人员很多，而作统计工作的只有一到两人，所以经常出现单据丢失现象，以至造成一些不必要的损失，例如工资发放账目不对应，发工资不及时等等问题，且查对时需要相当长的时间，因此而白白耗费了大量人力与时间，为管理上带来了诸多的困难与不便。作为计算机专业即将毕业一名学生，在本次毕业设计中我选择了职工工资管理系统，如该系统得以实施。将解决上述问题。系统将把所有进货、销货、库存的记录、单据一一登记，并可以快速查找与分类这些数据，同时可以随时备份各种数据以便计算机的维护。职工工资管理系统包括对工资发放进行管理，职工信息管理。如果一个部门或单位没有工资管理系统，那么必将会使本单位的工资管理，如果使用传统的人工统计，不仅耗费财力、物力、人力，同时也容易出现错误，也不能及时的进行查对工作。一个良好的工资管理系统就可以完全解决这些方面的不足之处。也会促使部门或单位向着健康有序的方面发展。在此运用Visual basic 设计软件开发一个较为全面的仓库管理系统以便适合任何一个单位或部门对仓库进行管理的系统。一 系统设计（一） 系统功能分析系统开发的总体任务就是实现职工工资成绩管理的系统化、规范化和自动化。职工工资成绩综合管理系统需要完成的主要功能有： 职工基本信息的录入 职工基本信息的修改 职工基本信息的查询 职工基本信息的删除 职工工资信息的录入 职工工资信息的修改 职工工资信息的查询 职工工资信息的删除（二） 系统功能模块设计对上述功能进行集中、分块和分析，按照结构化程序设计的要求，得到如图1所示的系统功能模块图。职工综合管理系统职工基本信息管理学生成绩信息管理职工基本信息修改职工基本信息 查询职工基本信息删除系统设置职工基本信息添加用户管理密码修改职工工资信息添加职工工资信息修改职工工资信息查询职工工资信息删 除图 1 系 统 功 能 模 块 图录入添加信 息查询条件的 输 入选择删除的记录职工工资信息删除 职工工资信息修改 录入修改信 息职工工资信息添加 职工工资信息查询 职工基本信息管理 职工工资信息管理 查询条件的 输 入职工基本信息查询 录入添加信 息职工基本信息添加 选择删除的记录录入修改信 息职工基本信息删除 职工基本信息修改 管理后的数据图 2 系 统 数 据 流 程 图二、数据库设计（一） 数据库需求分析用户的需求具体体现在各种信息的提供、保存、更新和查询等方面。这就要求数据库结构能充分满足各种信息的输入和输出。收集基本数据、数据结构以及数据处理的流程，组成一份详尽的数据字典，为下一步的数据库具体设计做好充分的准备。在仔细分析调查有关职工工资综合管理系统需求的基础上，将得到如图 2 所示的本系统所处理的数据流程。针对一般职工工资综合管理系统的需求，通过对职工各种信息变动过程的内容和数据流程分析，设计如下面所示的数据项和数据结构：职工基本信息，包括的数据项有：职工ID、姓名、性别、出生年月、工作年月。特殊项信息，包括的数据项有：职工ID、特殊项ID、特殊项金额、特殊项时间等。职位信息，包括的数据项有：职位，基本工资，津贴。设计好上面的数据结构、数据项和数据流程，就可以开始下面的数据库设计。（二）数据库概念结构设计得到上面的数据项和数据结构以后，就可以设计出能够满足用户需要的各种实体以及它们之间的关系，为后面的逻辑结构设计打下好的基础。这些实体包含各种具体信息，通过相互之间的作用形成数据的流动。根据上面的设计，得到的实体有：职工基本信息实体、特殊项信息实体，职位信息实体。各个实体的描述E-R图，如下所示。职工基本信息实体的E-R图，如图 3所示。职工ID工作年月职工基本信息实体职工姓名出生年月图 3 职工基本信息实体的E-R图特殊项信息实体的E-R图，如图 4所示。职工ID日 期特殊项信息实体特殊项ID 特殊项金额图 4 特殊信息实体的E-R图各个实体之间关系的E-R图，如图 5所示职工信息变 动职工基本信息管理职工成绩信息管理图 5 各个实体之间关系的E-R图（二） 数据库逻辑结构设计现在需要把上面设计好的数据库概念结构转化为Microsoft Access 2000数据库系统所支持的实际数据库模型，也就是数据库的逻辑结构。学生学籍成绩综合管理系统数据库中各个表格的设计结果如下面表格所示。每个表格对应于数据库中的一个表。其中,表 1 为职工信息表, 表2为特殊项信息表,表 3 为系统用户口令表。表1 score 职工信息表列 名数 据 类 型可 否 为 空说 明职工IDNUMBERNOT NULL职工ID职位VARCHARNOT NULL职工职位姓名VARCHARNOT NULL职工姓名性别VARCHARNOT NULL职工性别出生年月VARCHARNULL职工出生年月工作年月VARCHARNULL职工工作年月表2 特殊项信息表列 名数 据 类 型可 否 为 空说 明特殊象IDNUMBERNOT NULL职工特殊项ID职工IDNUMBERNOT NULL职工的ID特殊项名称VARCHARNOT NULL特殊项的名称特殊象日期VARCHARNOI NULL特殊项的日期因为本系统采用了用户管理模式，所以在系统中应设立数据库管理表3 user_pswd 用户口令表列 名数 据 类 型可 否 为 空说 明pswdVARCHARNOT NULL口令userVARCHARNOTNOT NULL用户名三、数据库结构的实现在需求分析、概念结构设计的基础上得到数据库逻辑结构以后，就可以在数据库系统中实现该逻辑结构。本系统使用的是Microsoft Access 2000数据库系统，下面说明创建数据库的过程。图 6（数据库操作模拟图）（1） 打开Microsoft Access 2000数据库系统如图6所示，打开下拉菜单，选者新建空白数据库。（2） 在数据库文件格式中选择“使用设计器创建”，加入所需要的字段名，和所需要的格式说明。（3） 如图7所示再设立头文件，建立数据库的工作完成图 7。四、系统安全性的设计（一）对用户密码使用了加密解密技术，安全性更高( 测试的用户 密码 ) ：Administrator Administrator系统默认的用户名和密码为Administrator,管理员可以根据需要设定密码，和增加用户名。五、创建应用程序该职工工资综合管理系统应用程序使用Microsoft Visual Basic方法开发，工程的创建步骤如下：（1） 选择窗口中的 “新建项目”选项卡中 “标准EXE”,。（1） 选择“打开”选项，如上图 所示。图 6 选择基于对话框的应用程序第一步（2） 为了程序能支持数据库对象，在头文件stdafx.h中加入#include 。六 登 陆 窗 口 设 计由于此应用程序采用的是基于对话框的开发，因此该应用程序的主对话框（即运行应用程序后出现的对话框）就应是登录窗口。该窗口的设计如图 7所示。为了数据库的使用安全，系统有默认的Administrator帐户，在后面具体模块设计时会有详细的介绍。单击 “身份验证” 按钮后，应用程序会首先执行一次数据库查询，看输入的用户名和口令是不是在数据库的user表中存在，如果存在则打开系统管理功能选择对话框，若没有找到，则有相应的提示，并给予用户再次尝试的机会，如果为成功则会不允许进入此系统。图 7 登陆窗口上的控件布局实现这些功能的代码写在“身份验证”按钮的单击事件函数中：Private Sub cmdOK_Click() If (flag = True) ThenAdodc1.Recordset.MoveFirstAdodc1.Recordset.MoveNextNext i ElseMsgBox 你的用户名或密码有误, vbCritical, 警告frmuser.txtUser = frmuser.txtPassword = End If（具体内容请见第17节中的详细源代码 - 第 17 页）在此过程中对用户输入的密码用解密函数分析数据库中的密码进行判断。七 职 工 工 资 主 界 面 设 计由系统功能选择功能进入系统设置窗口后，将出现如图 9所示的操作选择窗口， 各个按钮单击完成的功能简单介绍如下： “人员管理”：打开进入 “人员管理模块”。 “职位管理”：打开进入 “职位管理模块”。 “特殊项管理”：打开进入 “特殊项管理模块”。 “工资发放管理”：打开进入 “工资发放管理模块” “退出”：打开退出本系统图 9 系统设置窗口的控件布局八 人 员 管 理 主 界 面 设 计人员管理主界面是一个综合性操作界面，由一个大的窗口组成，包括四个List Control控件：添加、删除、修改、退出。在窗口的左部分显示职工的基本信息；窗口的右边是来使用各项操作该窗口由主窗口上的 “人员管理”按钮单击事件激发。 职工信息主界面如图 12所示。图 12 职工信息主界面窗口上控件的布局下面解释各个功能实现的大体过程。当点击“添加”里的记录时，在出现图表添加职工信息 当点击“添加”控件时，则调用如下函数：.Private Sub cmdCancel_Click()Me.HideEnd Sub初始化Private Sub Form_activate()lblField(0).Caption = 职工IDlblField(1).Caption = 职位lblField(2).Caption = 姓名lblField(3).Caption = 性别lblField(4).Caption = 出生年月lblField(5).Caption = 工作年月.End SubPrivate Sub lblField_Click(Index As Integer)End Sub（具体内容请见第17节中的详细源代码 -第21-22 页8.1）l 当点击“修改”选项,则弹出新的对话框如图所示，根据数据项所指选择所需要修改的职工，调用以下函数：刷新数据,保持一致Private Sub Form_activate()lblField(0).Caption = 职工IDlblField(1).Caption = 职位lblField(2).Caption = 姓名lblField(3).Caption = 性别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 当选择“退出”时，系统将返回到住界面，方便用户继续进行相关的操作。九 职 位 管 理 主 界 面 设 计职位管理是对职工职位进行管理，包括了“添加”，“修改”，“删除”，“取消”四个控件。窗口的左边显示职工所出的职位，右边显示管理员所需要进行的操作。 当点击“添加”控件时，则弹出对话框，在相应的表格中加入职工的“职位”，“基本工资”，“津贴”。在点击添加便完成了操作。调用如下函数Private Sub cmdPrint_Click()部分代码如下：.Private Sub cmdCancel_Click()Me.HideEnd SubPrivate Sub Form_activate()For i = 0 To 2txtValue(i).Text = NextEnd SubPrivate Sub lblField_Click(Index As Integer)End Sub（具体内容请见第12节中的详细源代码 - 第 23-25页9。1节）l 当点击“修改”时，同职工管理类似，选择所需修改的数据便可。调用的函数如下:.For i = 0 To 2PosForm.DataGrid1.Row = PosForm.CurPosPosForm.DataGrid1.Col = itxtValue(i) = PosForm.DataGrid1.TextNexttxtValue(0).Locked = TruetxtValue(0).Text = PosForm.CurPosEnd Sub（具体内容请见第12节中的详细源代码 - 第 25-26页9。2节）l 选择“退出”选项时，将返回主界面，方便用户进行其他相关操作。十 特 殊 项 管 理 主 界 面 设 计特殊项管理是对于职工工作中发生的一些特殊的工资问题如迟到，早退，项目提成等等一些出于基本工作外的事情进行的工资调整。同样包括了“添加”，“修改”，“删除”，“退出”三个选项，其主页面图如下： 当点击“添加”控件时，则弹出对话框，在相应的表格中加入相应特殊项的“特殊项ID”，“职工ID”，“特殊项名称”，“特殊项金额”，“特殊项日期”。在点击添加便完成了操作。调用如下函数Private Sub cmdPrint_Click()其代码如下：保证姓名与ID一致Private Sub cmbName_Click()cmbID.Text = cmbID.List(cmbName.ListIndex)End Sub.lblField(2).Caption = 特殊项名称lblField(3).Caption = 特殊项金额lblField(4).Caption = 特殊项日期For i = 2 To 4txtValue(i) = NextcmbID.ClearcmbName.Clear.（具体内容请见第12节中的详细源代码 - 第 27-28页10.1节）保持ID和姓名一致可以防止职工特殊项出错误。l 当点击“修改”时，选择所需修改的数据。调用的函数如下:Private Sub cmdCancel_Click()intErrFileNo = FreeFile()Private Sub Form_activate()（具体内容请见第12节中的详细源代码 - 第 28-30页10.2节）l 当选择“退出”时，系统将返回到主界面，方便用户继续进行相关的操作。十一 工 资 发 放 管 理 主 界 面工资发放管理包括“生成月表”，“查询是否发放工资”，“发放工资”，“打印列表”能够对职工工资发放进行管理，使工资的发放更加方便。其主界面如下：l 查询职工是否已经领取工资在“员工姓名”选择所需要服务的职工名称，并输入所查询的月份，点击“查询”，提示是否领取。在查询中调用了查询函数：SQL = select 工资取毕 from & Format(CDate(cmbMonth.Text), YYYYMM) & where 职工ID = & cmbEmployee.Text & 从数据库中间调用数据.l 管理员可以根据需要生成所需要月表，在选定了职工姓名和月份的情况下。并可连接打印机进行打印。调用函数Private Sub cmdPrint_Click()其部分代码如下：.SQL = SELECT 职工ID FROM 职工OpenRS (SQL)gRst.MoveFirstDim counts As IntegergRst.MoveLastcounts = gRst.RecordCountgRst.MoveFirstReDim mEIDs(counts)ReDim mSum(counts)Dim i As Integeri = 0While Not gRst.EOFi = i + 1mEIDs(i) = gRst(职工ID)gRst.MoveNextWendCloseRS.运用代码：Private Sub cmdPrint_Click()On Error Resume NextgX.Workbooks.Open App.Path & & mMonth & 细表.xlsSet mSheet = gX.ActiveSheetmSheet.PrintOutgX.Workbooks.CloseEnd Sub来把数据输入打印机进行打印。十二 详细代码（附）第6节Private Sub cmdOK_Click()Dim i As IntegerDim flag As BooleanDim user As String, password As Stringflag = Falseuser = Trim(txtUser.Text)password = Trim(txtPassword.Text)If Adodc1.Recordset.EOF Or Adodc1.Recordset.BOF ThenExit SubEnd IfAdodc1.Recordset.MoveFirstFor i = 1 To Adodc1.Recordset.RecordCountIf (user = Trim(Adodc1.Recordset.Fields(user) And password = Trim(Adodc1.Recordset.Fields(password) Thenflag = TrueExit ForEnd IfAdodc1.Recordset.MoveNextNext iIf (flag = True) ThenMainForm.ShowElseMsgBox 你的用户名或密码有误, vbCritical, 警告frmuser.txtUser = frmuser.txtPassword = End IfEnd SubPrivate Sub cmdReset_Click()frmuser.txtUser = frmuser.txtPassword = End SubPrivate Sub Label1_Click()End Sub添加员工Private Sub cmdAdd_Click()打开错误处理陷阱Dim intErrFileNo As Integer 自由文件号On Error GoTo ErrGoto-生成SQL语句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关闭连接CloseDBFile刷新数据HRForm.Adodc1.Refresh隐藏窗体Me.Hide-Exit Sub-ErrGoto:把错误信息保存在文件里intErrFileNo = FreeFile()Open YFSystem.ini For Append As intErrFileNoPrint #intErrFileNo, Chr(34) + Format(Now, YYYY-MM-DD HH:MM:SS) + Chr(34), Chr(34) + 信息 + Chr(34), Chr(34) + Err.Description + Chr(34), Chr(34) + cmdAdd_Click(AddEForm) + Chr(34), Chr(34) + App.Title + Chr(34)Close #intErrFileNoEnd SubPrivate Sub cmdCancel_Click()Me.HideEnd Sub!Private Sub cmdOK_Click()Dim i As IntegerDim flag As BooleanDim user As String, password As Stringflag = Falseuser = Trim(txtUser.Text)password = Trim(txtPassword.Text)If Adodc1.Recordset.EOF Or Adodc1.Recordset.BOF ThenExit SubEnd IfAdodc1.Recordset.MoveFirstFor i = 1 To Adodc1.Recordset.RecordCountIf (user = Trim(Adodc1.Recordset.Fields(user) And password = Trim(Adodc1.Recordset.Fields(password) Thenflag = TrueExit ForEnd IfAdodc1.Recordset.MoveNextNext iIf (flag = True) ThenMainForm.ShowElseMsgBox 你的用户名或密码有误, vbCritical, 警告frmuser.txtUser = frmuser.txtPassword = End IfEnd SubPrivate Sub cmdReset_Click()frmuser.txtUser = frmuser.txtPassword = End SubPrivate Sub Label1_Click()End Sub添加员工Private Sub cmdAdd_Click()打开错误处理陷阱Dim intErrFileNo As Integer 自由文件号On Error GoTo ErrGoto-生成SQL语句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关闭连接CloseDBFile刷新数据HRForm.Adodc1.Refresh隐藏窗体Me.Hide-Exit Sub-ErrGoto:把错误信息保存在文件里intErrFileNo = FreeFile()Open YFSystem.ini For Append As intErrFileNoPrint #intErrFileNo, Chr(34) + Format(Now, YYYY-MM-DD HH:MM:SS) + Chr(34), Chr(34) + 信息 + Chr(34), Chr(34) + Err.Description + Chr(34), Chr(34) + cmdAdd_Click(AddEForm) + Chr(34), Chr(34) + App.Title + Chr(34)Close #intErrFileNoEnd SubPrivate Sub cmdCancel_Click()Me.HideEnd Sub8.1节初始化Private Sub Form_activate()lblField(0).Caption = 职工IDlblField(1).Caption = 职位lblField(2).Caption = 姓名lblField(3).Caption = 性别lblField(4).Caption = 出生年月lblField(5).Caption = 工作年月For i = 0 To 5txtValue(i) = NextEnd SubPrivate Sub lblField_Click(Index As Integer)End Sub8.2节退出程序Private Sub cmdCancel_Click()Me.HideEnd Sub修改员工信息Private Sub cmdModify_Click()打开错误处理陷阱Dim intErrFileNo As Integer 自由文件号On Error GoTo ErrGoto-生成SQL语句SQL = UPDATE 职工 SET 职工ID = & txtValue(0).Text & _ ,职位 = & txtValue(1).Text & _ ,姓名 = & txtValue(2).Text & _ ,性别 = & txtValue(3).Text & _ ,出生年月 = # & txtValue(4).Text & _# ,工作年月 = # & txtValue(5).Text & _# WHERE 职工ID = & txtValue(0).Text & 打开连接OpenDBFile执行SQLgCon.Execute SQL关闭连接CloseDBFileMe.Hide刷新数据HRForm.Adodc1.Refresh-Exit Sub-ErrGoto:把错误信息保存在文件里intErrFileNo = FreeFile()Open YFSystem.ini For Append As intErrFileNoPrint #intErrFileNo, Chr(34) + Format(Now, YYYY-MM-DD HH:MM:SS) + Chr(34), Chr(34) + 信息 + Chr(34), Chr(34) + Err.Description + Chr(34), Chr(34) + Command1_Click(AddEForm) + Chr(34), Chr(34) + App.Title + Chr(34)MsgBox Err.DescriptionClose #intErrFileNoEnd Sub刷新数据,保持一致Private Sub Form_activate()lblField(0).Caption = 职工IDlblField(1).Caption = 职位lblField(2).Caption = 姓名lblField(3).Caption = 性别lblField(4).Caption = 出生年月lblField(5).Caption = 工作年月For i = 0 To 5当前行HRForm.DataGrid1.Row = HRForm.CurEm对应列HRForm.DataGrid1.Col = itxtValue(i) = HRForm.DataGrid1.TextNext保证职工ID不会被改变txtValue(0).Locked = TrueEnd SubPrivate Sub lblField_Click(Index As Integer)End Sub91节添加职位Private Sub cmdAdd_Click()打开错误处理陷阱Dim intErrFileNo As Integer 自由文件号On Error GoTo ErrGoto-生成SQL语句SQL = INSERT INTO 职位(职位,基本工资,津贴) VALUES(SQL = SQL & txtValue(0).Text & ,SQL = SQL & txtValue(1).Text & ,SQL = SQL & txtValue(2).Text & )打开数据连接OpenDBFile执行SQL语句gCon.Execute SQL关闭数据连接CloseDBFile刷新数据PosForm.Adodc1.RefreshMe.Hide-Exit Sub-ErrGoto:把错误信息保存在文件里intErrFileNo = FreeFile()Open YFSystem.ini For Append As intErrFileNoPrint #intErrFileNo, Chr(34) + Format(Now, YYYY-MM-DD HH:MM:SS) + Chr(34), Chr(34) + 信息 + Chr(34), Chr(34) + Err.Description + Chr(34), Chr(34) + Command1_Click(AddEForm) + Chr(34), Chr(34) + App.Title + Chr(34)Close #intErrFileNoMe.HideEnd SubPrivate Sub cmdCancel_Click()Me.HideEnd SubPrivate Sub Form_activate()lblField(0).Caption = 职位lblField(1).Caption = 基本工资lblField(2).Caption = 津贴For i = 0 To 2txtValue(i).Text = NextEnd SubPrivate Sub lblField_Click(Index As Integer)End Sub9.2节退出窗口Private Sub cmdCancel_Click()Me.HideEnd Sub修改职位Private Sub cmdModify_Click()打开错误处理陷阱Dim intErrFileNo As Integer 自由文件号On Error GoTo ErrGoto-生成SQL语句SQL = UPDATE 职位 SET & _ 职位 = & txtValue(0).Text & , & _ 基本工资 = & txtValue(1).Text & , & _ 津贴 = & txtValue(2).Text & , & _ 奖金 = & txtValue(3).Text & _ WHERE 职位= & txtValue(0).Text & 打开数据连接OpenDBFile执行SQLgCon.Execute SQL关闭连接CloseDBFileMe.Hide刷新数据PosForm.Adodc1.Refresh-Exit Sub-ErrGoto:把错误信息保存在文件里intErrFileNo = FreeFile()Open YFSystem.ini For Append As intErrFileNoPrint #intErrFileNo, Chr(34) + Format(Now, YYYY-MM-DD HH:MM:SS) + Chr(34), Chr(34) + 信息 + Chr(34), Chr(34) + Err.Description + Chr(34), Chr(34) + Command1_Click(AddEForm) + Chr(34), Chr(34) + App.Title + Chr(34)Print #intErrFileNo, Err.DescriptionClose #intErrFileNoEnd Sub窗体初始显示Private Sub Form_activate()lblField(0).Caption = 职位lblField(1).Caption = 基本工资lblField(2).Caption = 津贴For i = 0 To 2PosForm.DataGrid1.Row = PosForm.CurPosPosForm.DataGrid1.Col = itxtValue(i) = PosForm.DataGrid1.TextNexttxtValue(0).Locked = TruetxtValue(0).Text = PosForm.CurPosEnd SubPrivate Sub lblField_Click(Index As Integer)End Sub10.1节保证姓名与ID一致Private Sub cmbName_Click()cmbID.Text = cmbID.List(cmbName.ListIndex)End Sub添加Private Sub cmdAdd_Click()打开错误处理陷阱Dim intErrFileNo As Integer 自由文件号On Error GoTo ErrGoto-生成SQL语句SQL = INSERT INTO 特殊项(职工ID,特殊项名称,特殊项金额,特殊项日期) VALUES(SQL = SQL & cmbID.Text & ,SQL = SQL & txtValue(2).Text & ,SQL = SQL & txtValue(3).Text & ,#SQL = SQL & txtValue(4).Text & #)打开数据连接OpenDBFile执行SQLgCon.Execute SQL关闭数据连接CloseDBFileMe.Hide刷新数据SpecialForm.Adodc1.Refresh-Exit Sub-ErrGoto:把错误信息保存在文件里intErrFileNo = FreeFile()Open YFSystem.ini For Append As intErrFileNoPrint #intErrFileNo, Chr(34) + Format(Now, YYYY-MM-DD HH:MM:SS) + Chr(34), Chr(34) + 信息 + Chr(34), Chr(34) +