职工工资管理系统计算机系统设计开发毕业论文

职工工资管理系统计算机系统设计开发毕业论文内容摘要：

ndow state 属性为 2最大化。 （ 4） 人员管理窗体 () （如： 图 63） 安徽广播电视大学 开放教育专科计算机应用专业毕业论文 第 18 页 共 75 页 18 图 63 功能：添加员工、删除员工、修改员工。 窗口包括四个按钮，功能分别是新增，删除，修改信息以及退出管理。 一个表格，用来显示员工列表，同时当单击上 面按钮时，功能在表格中实现。 （ 5） 职位信息管理窗体 () （如： 图 64） 图 64 功能：完成职位情况的管理 添加职位：弹出添加职位窗体，在相应文本框内输入数据后，按“新增”按钮，如果职位号与已有记录不冲突，则在数据库中增加一条记录，同时显示在窗体表格中 修改职位：弹出添加职位窗体，先在表格中选中一个职位，其信息则显示在文本框中，然后对其进行相应的信息修改（职位号不可更改），最后按“修改”按钮，信息更改写入数据库。 安徽广播电视大学 开放教育专科计算机应用专业毕业论文 第 19 页 共 75 页 19 删除职位：弹出添加职位窗体，先在表格中选中一个职位，其信息则显示在 文本框中，然后按“删除”按钮，会弹出一个确认对话框，如真的想删除此职位，则确定，否则取消“删除”。 （ 6） 特殊项信息管理窗体（如： 图 65） 图 65 功能：按职工名录入职工信息，同时也可修改、删除。 添加特殊项：弹出添加特殊项窗体，先选择要录入职工，然后填写其它信息。 删除特殊项：弹出删除特殊项窗体，先选择要删除的职工，然后删除信息。 修改特殊项：弹出修改特殊项窗体，先选择要修改的职工，然后修改其它信息。 （ 7） 工资发放信息管理窗体 () （如： 图 66） 功能：完成对职工工 资信息的管理（生成月表、查询是否已经发放、发放工资、打印工资表）。 图 66 安徽广播电视大学 开放教育专科计算机应用专业毕业论文 第 20 页 共 75 页 20 （ 8） 统计报表信息管理窗体 () （如： 图 67） 图 67 功能：按月统计职工工资及有关其它的信息。 （ 9） 添加员工窗体 (、 ) （如： 图 68） 图 68 功能：向数据库中添加职工的有关信息。 安徽广播电视大学 开放教育专科计算机应用专业毕业论文 第 21 页 共 75 页 21 （ 10） 修改员工窗体 () （如： 图 69） 图 69 功能：用于对员工有关的信息进行相关的修改，以直方图显示。 （ 11） 修改 职位的窗体（如： 图 610） 图 610 功能：对相关职工的职位进行修改。 安徽广播电视大学 开放教育专科计算机应用专业毕业论文 第 22 页 共 75 页 22 （ 12） 添加职工职位的窗体（如： 图 611） 图 611 功能：在此窗体中对职工的职位进行添加。 并加入到数据库中。 （ 13） 添加特殊项的窗体（如： 图 612） 图 612 功能：添加职工的特殊项的信息。 安徽广播电视大学 开放教育专科计算机应用专业毕业论文 第 23 页 共 75 页 23 （ 14） 修改特殊项的窗体（如： 图 613 图 613 功能：在此窗体中对职工的相关信息进行修改。 7 编码 、 登陆窗体编码 Private Sub Command1_Click() If = Or = Then MsgBox 用户名和密码错误。 , , 提示 Else If = GZGL Or = 123 Then End If Unload Me End If End Sub Private Sub Command2_Click() Unload Me 安徽广播电视大学 开放教育专科计算机应用专业毕业论文 第 24 页 共 75 页 24 End Sub Private Sub Text1_Change() End Sub 、主窗体编码 39。 调用 统计报表 窗体 Private Sub Analysis_Click() End Sub 39。 退出程序 Private Sub Exit_Click() Unload Me End End Sub 39。 调用 人员管理 窗体 Private Sub HRManage_Click() End Sub 39。 设置启动参数 Private Sub MDIForm_Load() gFile = amp。 \职工工资管理系统 .mdb Set gX = CreateObject() End Sub 39。 关闭所有窗口 Private Sub MDIForm_QueryUnload(Cancel As Integer, UnloadMode As Integer) On Error Resume Next Unload AddEForm Unload AddPForm Unload AddSForm Unload UpdateEForm 安徽广播电视大学 开放教育专科计算机应用专业毕业论文 第 25 页 共 75 页 25 Unload UpdatePForm Unload UpdateSForm End Sub 39。 调用 工资发放 窗体 Private Sub PayoffTable_Click() End Sub 39。 调用 职位管理 窗体 Private Sub PosManage_Click() End Sub 39。 调用 特殊项管理 窗体 Private Sub SpecialManage_Click() End Sub Private Sub Toolbar1_ButtonClick(ByVal Button As ) Select Case Case 1 Case 2 Case 3 Case 4 Case 5 Case 6 Unload Me End Select End Sub 安徽广播电视大学 开放教育专科计算机应用专业毕业论文 第 26 页 共 75 页 26 7． 模块编码： Option Explicit 39。 Access 数据库文件的名称 Public gFile As String 39。 数据库连接对象 Public gCon As New 39。 数据库集合对象 Public gRst As New 39。 Excel 程序对象 Public gX As 39。 打开数据库文件 Public Sub OpenDBFile() 39。 打开错误处理陷阱 Dim intErrFileNo As Integer 39。 自由文件号 On Error GoTo ErrGoto Provider=。 Data Source= amp。 gFile amp。 Mode=ReadWrite。 Persist Security Info=False Exit Sub ErrGoto: 39。 把错误信息保存在文件里 intErrFileNo = FreeFile() Open For Append As intErrFileNo Print intErrFileNo, Chr(34) + Format(Now, YYYYMMDD HH:MM:SS) + Chr(34), Chr(34) + 信息 + Chr(34), Chr(34) + + Chr(34), Chr(34) + OpenDBFile(Module1) + Chr(34), Chr(34) + + Chr(34) Close intErrFileNo End Sub 39。 关闭数据库连接 Public Sub CloseDBFile() 39。 打开错误处理陷阱 安徽广播电视大学 开放教育专科计算机应用专业毕业论文 第 27 页 共 75 页 27 Dim intErrFileNo As Integer 39。 自由文件号 On Error GoTo ErrGoto Exit Sub ErrGoto: 39。 把错误信息保存在文件里 intErrFileNo = FreeFile() Open For Append As intErrFileNo Print intErrFileNo, Chr(34) + Format(Now, YYYYMMDD HH:MM:SS) + Chr(34), Chr(34) + 信息 + Chr(34), Chr(34) + + Chr(34), Chr(34) + CloseDBFile(Module1) + Chr(34), Chr(34) + + Chr(34) Close intErrFileNo End Sub 39。 打开数据集 Public Sub OpenRS(SQL As String) 39。 打开错误处理陷阱 Dim intErrFileNo As Integer 39。 自由文件号 On Error GoTo ErrGoto OpenDBFile SQL, gCon, adOpenStatic, adLockOptimistic Exit Sub ErrGoto: 39。 把错误信息保存在文件里 intErrFileNo = FreeFile() Open For Append As intErrFileNo Print intErrFileNo, Chr(34) + Format(Now, YYYYMMDD HH:MM:SS) + Chr(34), Chr(34) + 信息 + Chr(34), Chr(34) + + Chr(34), Chr(34) + OpenRS(Module1) + Chr(34), Chr(34) + + Chr(34) Close intErrFileNo End Sub 39。 关闭打开的数据集合 Public Sub CloseRS() 安徽广播电视大学 开放教育专科计算机应用专业毕业论文 第 28 页 共 75 页 28 39。 打开错误处理陷阱 Dim intErrFileNo As Integer 39。 自由文件号 On Error GoTo ErrGoto CloseDBFile Exit Sub ErrGoto: 39。 把错误信息保存在文件里 intErrFileNo = FreeFile() Open For Append As intErrFileNo Print intErrFileNo, Chr(34) + Format(Now, YYYYMMDD HH:MM:SS) + Chr(34), Chr(34) + 信息 + Chr(34), Chr(34) + + Chr(34), Chr(34) + CloseRS(Module1) + Chr(34), Chr(34) + + Chr(34) Close intErrFileNo End Sub 8 设计总结 经过 一 个多月的设计和开发， 职工工资 管理系统基本开发完毕。 其功能基本符合用户需求，能够完成 职工工资 的 录入和 查询以及各类相关报表的打印。 并提供部分系统维护功能 ,使用户方便进行数据备份和恢复、 数据删除。 对于数据的一致性的问题也通过程序进行了有效的解决。 但是由于毕业设计时间较短，所以该系统还有许多不尽如人意的地方，比如 报表输出及时性 ，用户界面不够美观，出错处理不够等多方面问题。 这些都有待进一步改善。 9 感谢 作为一名中央电视大学铜陵学校的电脑应用专业的学生，这三年的学习，在电大老师的帮助下，让我认识到：人们改造了当今世界，创造了发达的现代文明与科技，计算机即是精华之一，她在现代社会的政治、经济、生活、科教、文化、卫生、军事等各领域都发挥极大的作用，可以说现代人类离开了电脑是什么都很难做好；计 算机技术发展很快：材料及制造工艺技术的进步，为计算机硬件的更新提供了保障，软件技术的发展为计算机更新换代提供动力。 要想学好这门技术，仅仅下苦功夫学习书本上的还不够，安徽广播电视大学 开放教育专科计算机应用专业毕。