工资管理设计与实现报告.doc

1 本本 科科 生生 课课 程程 设设 计计 数数据据库库 设设计计题题目目 工工资资管管理理系系统统的的设设计计与与实实现现 学学生生 姓姓名名 葛葛慧慧君君 郭郭琼琼 胡胡志志超超 胡胡晓晓阳阳 胡胡进进 季季芸芸 何何涛涛 康康振振宇宇 孔孔军军 金金文文敏敏 专专业业名名称称 信信息息与与计计算算科科学学 指指导导教教师师 陈寿文陈寿文 2 20 01 12 2 年年 6 6 月月 1 10 0 日日 2 任务分解表 序号学号姓名任务成绩 12010212368 季芸 22010212361 葛慧君 用户界面 用户系统及毕业管理界 面的设计及实现 32010212363 郭琼 学生档案界面的设计及实现 学生 个人入学信息的输入 42010212364 何涛课程设计中所有的代码设计 52010212365 胡进 62010212366 胡晓阳 学生成绩管理系统界面的设计及实现 72010212367 胡志超 82010212369 金文敏 92010212370 康振宇 102010212371 孔军 建立学生学籍管理系统所需要学生 个人信息及学生成绩表 并存储在 数据库中 数据库课程设计实验报 告的撰写 3 目 录 1 1 管理信息系统概述管理信息系统概述 4 4 2 2 工资系统的需求分析工资系统的需求分析 4 4 2 12 1 功能分析 功能分析 4 4 3 3 工资工资管理系统的概要设计管理系统的概要设计 5 5 3 13 1 设计概述设计概述 5 5 3 23 2 系统总体结构及功能模块划分系统总体结构及功能模块划分 5 5 3 33 3 系统数据库概念结构设计系统数据库概念结构设计 7 7 3 43 4 安全保密设计安全保密设计 8 8 4 4 工资工资管理系统详细设计管理系统详细设计 9 9 4 14 1 概述概述 9 9 4 24 2 系统程序流程图系统程序流程图 9 9 4 34 3 系统主要功能模块简介系统主要功能模块简介 9 9 5 5 工资工资管理系统系统测试管理系统系统测试 2727 5 15 1 登陆测试登陆测试 4141 5 25 2 工资 工资信息查询测试信息查询测试 4141 5 35 3 工资信息 工资信息查询测试查询测试 2828 6 6 职工工资职工工资管理系统操作手册管理系统操作手册 2828 7 7 总结总结 2929 工资管理系统 4 1 1 管理信息系统概述管理信息系统概述 管理信息系统 1 Management Information System MIS 就是指为管理目的 采用计算机 和网络技术对管理系统进行统一管理的一套人机系统 管理学 系统论 信息技术等方面的相关 理论 面向统计分析和决策支持所建立的数学模型是管理信息系统发展的理论基础 随着计算机的日益普及和网络的发展 数据库的应用范围越来越广 数据库应用的功能也越来越 强 因此编写管理信息系统应用程序也显得尤为重要 在强调管理 强调信息的现代社会中它变得越 来越普及 工资管理是任何企事业单位都需要进行的一项工作 因此 开发制作工资管理系统具有较大的社 会现实意义 同时工资管理系统是一切应用系统的典范 它具有一切应用系统的特征 系统结构与现 实生活紧密结合 具体直观 具有典范的数据库系统的特性 工资管理系统主要用于企业内部员工的 信息 工资 考勤管理 便于公司领导掌握人员的动向 及时调整人才的分配 同时也减少了手工操 作带来的一些繁琐与不便 使员工情况的记录和统计变得十分简单 这些优点可以极大的提高企业对 人事管理的效率 因此 工作管理系统是企事业信息化 智能化 科学化和正规化不可缺少的管理软 件 2 2 工资系统的需求分析工资系统的需求分析 2 12 1 功能分析功能分析 2 1 12 1 1 系统目标系统目标 1 使得工资管理工作更加清晰 条理化 自动化 2 通过用户名和密码登录系统 查询工资基本资料 修改用户密码等功能 容易地完成工资信 息的查询操作 3 设计人机友好界面 功能安排合理 操作使用方便 并且进一步考虑系统在安全性 完整性 并发控制 备份和恢复等方面的功能要求 2 1 22 1 2 功能需求分析功能需求分析 本系统的功能需求分析如下 1 工资信息查询 职工可以根据工号 姓名 科室进行查询 2 工资信息管理 主要是用于工资信息更新 插入 删除 3 工资信息录入 用于工资信息管理 录入工资信息 也可以更新 2 1 32 1 3 性能需求分析性能需求分析 1 登录 用户界面需求 简洁 易懂 易用 友好的用户界面 5 2 安全保密性需求 只有凭借用户名和密码登陆系统 才能进行信息的管理等 3 3 工资管理系统的概要设计工资管理系统的概要设计 3 13 1 设计概述设计概述 根据需求把整个系统分化成不同的模块 每个模块完成一个特定的子功能 把这些模块结合起 来组成一个整体 逐一实现各个功能 用户登录模块 用于用户的登录 修改用户信息 管理模块 用于员工信息的增加 修改 删除 工资模块 查询员工的工资的各项信息 3 2 系统总体结构及功能模块划分 3 2 13 2 1 工资信息查询模块工资信息查询模块 工资信息查询 职工可以根据工号 姓名 科室进行查询 如图 3 2 2 工资信息查询模块结构 图 3 2 2 工资信息管理模块结构 3 2 23 2 2 工资信息管理模块工资信息管理模块 工资信息管理 主要是用于工资信息更新 插入 删除 如图 3 2 3 工资管理模块结构 工资信息查询 工 号 查 询 姓 名 查 询 6 图3 2 3 工资信息管理模块结构 3 33 3 系统数据库概念结构设计系统数据库概念结构设计 3 3 13 3 1 数据库需求分析数据库需求分析 数据库的设计是指对于一个给定的应用环境 构造最有效的数据库模式 建立数据及应用系统 实质能够有效地存储数据 满足用户的需求 数据库设计是在数据库管理系统支持下进行的 根据数据流程图 可以列出以下数据项和数据结构 职工信息 ID 姓名 身份证 性别 入职时间 部门 职务 职称 基本工资 备注 基 本 信 息 录 入 工 资 录 入 基 本 信 息 更 新 信 息 更 新 工 资 信 息 删 除 工 资 信 息 录 入 工资信息管理 工 资 信 息 更 新 7 职务信息 ID 职务 职务津贴 职称信息 ID 职称 职称信息 工资管理 ID 姓名 日期 基本工资 职务津贴 职称津贴奖金 房贴 养老保险 医疗保险 住房公 积金 所得税 代扣 查询信息 部门 人数 基本工资 职务津贴 奖金 房贴 应发工资 养老保险 医疗保险 住房公积 金 代扣款 个人所得税 扣款小计 实发工资 部门管理 ID 部门信息 管理员 用户名 密码 权限 3 3 23 3 2 数据库逻辑结构设计数据库逻辑结构设计 USER 表 工资表 职务表 职员表 8 职称表 部门表 查询表 3 43 4 安全保密设计安全保密设计 3 4 1 用户登录安全性用户登录安全性 系统设计了登录界面 每个合法用户有用户名及一个密码 只有当用户输入正确的用户名及密 码组合后才能够对员工信息行操作 9 4 4 工资管理系统详细设计工资管理系统详细设计 4 1 概述 细设计阶段的根本目标是确定应该怎样具体的实现所要求的系统 也就是说 经过这个阶段的 设计工作 应该得出目标系统的精确描述 从而在编码阶段可以把这个描述直接翻译成用某种程序 设计语言书写的程序 4 2 系统程序流程图 程序流程图又称为程序框图 它是历史悠久使用最广泛的描述软件设计的方法 它可将整个程 序的总体流程清楚明白的显示出来 如图 4 2 1 系统总流程图结构 图4 2 1 系统总体流程图 4 3 系统主要功能模块简介 4 3 1 系统登录系统登录 用户凭借用户名及密码登录 成功登录后可对工资信息进行操作 用户界面如图 4 3 1 用户登 10 录界面所示 图 4 3 1 登录模块代码 Public OK As Boolean Private Sub cmdCancel Click OK False Me Hide End Sub Private Sub cmdOK Click Static try times As Byte Dim strUserName As String strPassword As String strUserName txtUserName Text strPassword txtPassword Text If strUserName Then MsgBox 请输入用户名 vbOKOnly vbCritical 警告 txtUserName SetFocus Exit Sub End If If strPassword Then MsgBox 请输入密码 vbOKOnly vbCritical 警告 txtPassword SetFocus Exit Sub End If 11 strUserName MakeStr strUserName strPassword MakeStr strPassword If MyUser ExistUser strUserName False Then MsgBox 用户名不存在 vbOKOnly vbCritical 警告 txtUserName txtUserName SetFocus try times try times 1 If try times 3 Then MsgBox 您已经三次尝试进入本系统 均不成功 系统将关闭 vbOKOnly vbCritical 警告 Disconnect OK False Me Hide Exit Sub Else Exit Sub End If End If MyUser GetInfo strUserName If MyUser strPWD strPassword Then MsgBox 密码错误 vbOKOnly vbCritical 警告 txtPassword Text txtPassword SetFocus try times try times 1 If try times 3 Then MsgBox 您已经三次尝试进入本系统 均不成功 系统将关闭 vbOKOnly 12 vbCritical 警告 Disconnect OK False Me Hide Exit Sub Else Exit Sub End If End If CurUser iUserClass MyUser iUserClass CurUser strName MyUser strName CurUser strPWD MyUser strPWD OK True Me Hide End Sub 4 3 2 员工信息模块员工信息模块 工资信息查询 在程序主界面 如图 4 3 2 程序主界面 职工可以根据姓名进行查询 删除 增加和修改 图 4 3 2 员工信息模块代码 13 Dim iID As Integer bAdd As Boolean Private Sub cmbDept Click cmdAdd Enabled True End Sub Private Sub cmbDept KeyPress KeyAscii As Integer KeyAscii 0 End Sub Private Sub cmbJob Click cmdAdd Enabled True End Sub Private Sub cmbJob KeyPress KeyAscii As Integer KeyAscii 0 End Sub Private Sub cmbPro Click cmdAdd Enabled True End Sub Private Sub cmbPro KeyPress KeyAscii As Integer KeyAscii 0 End Sub Private Sub cmdAdd click Dim strSQL2 As String strSex As String i As Integer cmdDel Enabled False If cmdAdd Caption 增加 Then Status True bAdd True ClearData cmdAdd Caption 保存 cmdAdd Enabled False cmdCancel Enabled True txtName SetFocus ElseIf cmdAdd Caption 修改 Then Status True cmdCancel Enabled True cmdAdd Caption 保存 cmdAdd Enabled False ElseIf cmdAdd Caption 保存 Then 14 If bAdd Then If CheckData False Then Exit Sub 检查用户输入或修改的数据 strSQL2 INSERT INTO 职员表 姓名 部门 性别 身份证 入职时间 职务 职称 基 本工资 备注 strSQL2 strSQL2 VALUES txtName Text strSQL2 strSQL2 cmbDept ItemData cmbDept ListIndex If optMan Value Then strSex 男 Else strSex 女 End If strSQL2 strSQL2 strSex strSQL2 strSQL2 txtID Text strSQL2 strSQL2 dtpDate Value strSQL2 strSQL2 cmbJob ItemData cmbJob ListIndex strSQL2 strSQL2 cmbPro ItemData cmbPro ListIndex strSQL2 strSQL2 Val txtBasePay Text strSQL2 strSQL2 txtMemo Text SQLExt strSQL2 bAdd False Else strSQL2 UPDATE 职员表 SET 姓名 txtName Text If cmbDept ListIndex 0 Then strSQL2 strSQL2 部门 cmbDept ItemData cmbDept ListIndex If optMan Value Then strSex 男 Else strSex 女 End If strSQL2 strSQL2 性别 strSex strSQL2 strSQL2 身份证 txtID Text strSQL2 strSQL2 入职时间 dtpDate Value If cmbJob ListIndex 0 Then strSQL2 strSQL2 职务 cmbJob ItemData cmbJob ListIndex If cmbPro ListIndex 0 Then strSQL2 strSQL2 职称 cmbPro ItemData cmbPro ListIndex strSQL2 strSQL2 基本工资 Val txtBasePay Text strSQL2 strSQL2 备注 txtMemo Text strSQL2 strSQL2 WHERE ID iID SQLExt strSQL2 End If Adodc1 Refresh DataGrid1 Columns 0 Visible False 15 ClearData Status False cmdAdd Caption 增加 cmdCancel Enabled False End If End Sub Private Sub cmdCancel Click ClearData cmdAdd Caption 增加 cmdCancel Enabled False bAdd False 取消增加状态 iID 0 cmdDel Enabled False Status False End Sub Private Sub cmdDel Click Dim strSQL2 As String If iID 0 And bAdd False Then strSQL2 DELETE FROM 职员表 WHERE ID iID If MsgBox 删除员工 txtName Text 的信息 vbYesNo vbQuestion 删除 vbYes Then SQLExt strSQL2 Adodc1 Refresh End If End If End Sub Private Sub cmdExit Click Unload Me End Sub Private Sub DataGrid1 Click If bAdd Then Exit Sub With Adodc1 Recordset iID Fields ID txtName Text Fields 姓名 txtID Text Fields 身份证 If Fields 性别 男 Then optMan Value True Else 16 optWoman Value True End If cmbDept Text Fields 部门 cmbPro Text Fields 职称 cmbJob Text Fields 职务 dtpDate Value Fields 入职时间 txtBasePay Text Fields 基本工资 txtMemo Text Fields 备注 End With cmdAdd Caption 修改 cmdCancel Enabled False cmdDel Enabled True End Sub Private Sub DataGrid1 Scroll Cancel As Integer DataGrid1 Columns 0 Visible False End Sub Private Sub dtpDate Change cmdAdd Enabled True End Sub Private Sub Form Load bAdd False 增加状态 Dim strSQL2 As String Dim rs As New ADODB Recordset strSQL2 SELECT FROM 部门表 ORDER BY ID Set rs QueryExt strSQL2 读取所有记录 i 0 With cmbDept Do While Not rs EOF AddItem rs 部门 ItemData i rs ID rs MoveNext i i 1 Loop End With strSQL2 SELECT FROM 职称表 ORDER BY ID Set rs QueryExt strSQL2 i 0 17 With cmbPro Do While Not rs EOF AddItem rs 职称 ItemData i rs ID rs MoveNext i i 1 Loop End With strSQL2 SELECT FROM 职务表 ORDER BY ID Set rs QueryExt strSQL2 i 0 With cmbJob Do While Not rs EOF AddItem rs 职务 ItemData i rs ID rs MoveNext i i 1 Loop End With strSQL2 SELECT a ID 姓名 d 部门 性别 身份证 入职时间 b 职务 c 职称 基本工资 备 注 strSQL2 strSQL2 FROM 职员表 a 职务表 b 职称表 c 部门表 d strSQL2 strSQL2 WHERE a 职务 b ID AND a 职称 c ID AND a 部门 d ID Adodc1 ConnectionString Conn Adodc1 RecordSource strSQL2 Adodc1 Refresh Set DataGrid1 DataSource Adodc1 DataGrid1 Columns 0 Visible False End Sub Private Sub optMan Click cmdAdd Enabled True End Sub Private Sub optWoman Click cmdAdd Enabled True End Sub 18 Private Sub txtBasePay Click cmdAdd Enabled True End Sub Private Sub txtBasePay KeyPress KeyAscii As Integer 允许输入 0 9 小数点 退格键等字符 If KeyAscii Asc 0 And KeyAscii Asc 0 And KeyAscii Asc 9 Or KeyAscii Asc X Or KeyAscii 8 Then Else KeyAscii 0 End If End Sub Private Sub txtMemo Change cmdAdd Enabled True End Sub Private Sub txtName Change cmdAdd Enabled True End Sub Private Sub ClearData txtName Text txtID Text optMan Value True cmbDept Text cmbPro Text cmbJob Text dtpDate Value Date txtBasePay Text 19 txtMemo Text End Sub Private Sub Status bShow As Boolean txtName Enabled bShow txtID Enabled bShow optMan Enabled bShow optWoman Enabled bShow cmbDept Enabled bShow cmbPro Enabled bShow cmbJob Enabled bShow dtpDate Enabled bShow txtBasePay Enabled bShow txtMemo Enabled bShow End Sub Private Function CheckData As Boolean If Trim txtName Text Then MsgBox 请输入员工姓名 vbOKOnly vbCritical 警告 txtName SetFocus CheckData False Exit Function End If If Len txtID 0 And Len Trim txtID Text 15 And Len Trim txtID Text 18 Then MsgBox 身份证号码只能为 15 位或 18 位 vbOKOnly vbCritical 警告 txtID SetFocus CheckData False Exit Function End If If cmbDept ListIndex 0 Then MsgBox 请设置员工的工作部门 vbOKOnly vbCritical 警告 cmbDept SetFocus CheckData False Exit Function End If If cmbPro ListIndex 0 Then MsgBox 请设置员工的职称 vbOKOnly vbCritical 警告 cmbPro SetFocus CheckData False Exit Function End If If cmbJob ListIndex 0 Then i ID aEmp 0 cmbName ListIndex Else i ID aEmp 0 1 End If strSQL2 SELECT 日期 基本工资 职务津贴 职称津贴 奖金 房帖 应发 养老保险 strSQL2 strSQL2 医疗保险 住房公积金 代扣 所得税 strSQL2 strSQL2 养老保险 医疗保险 住房公积金 代扣 所得税 AS 扣款小计 strSQL2 strSQL2 实发 FROM 工资表 strSQL2 strSQL2 Where 员工 id i ID strSQL2 strSQL2 AND 日期 dtp1 Value AND 日期 dtp2 Value With Adodc1 RecordSource strSQL2 Refresh 22 End With With DataGrid1 AllowAddNew False AllowDelete False AllowUpdate False Refresh For Each col1 In Columns col1 Width 1000 Next End With With Adodc1 Recordset MoveFirst Do While Not EOF cBase cBase Fields 基本工资 cDuty cDuty Fields 职务津贴 cPro cPro Fields 职称津贴 cBonus cBonus Fields 奖金 cHouse cHouse Fields 房帖 cTotal cTotal Fields 应发 cPension cpeinsion Fields 养老保险 cMedi cMedi Fields 医疗保险 cHouseRes cHouseRes Fields 住房公积金 cOther cOther Fields 代扣 cTax cTax Fields 所得税 cSub cSub Fields 扣款小计 cFinal cFinal Fields 实发 MoveNext Loop 23 End With txtBasePay Text cBase txtDuty Text cDuty txtPro Text cPro txtBonus Text cBonus txtHouse Text cHouse txtPension Text cPension txtMedi Text cMedi txtHouseRes Text cHouseRes txtOther Text cOther txtTax Text cTax txtTotal Text cTotal txtSubtotal Text cSub txtFinal Text cFinal End Sub Private Sub dtp2 CallbackKeyDown ByVal KeyCode As Integer ByVal Shift As Integer ByVal CallbackField As String CallbackDate As Date End Sub Private Sub Form Load Dim i As Integer strSQL2 SELECT ID 姓名 FROM 职员表 Set rs QueryExt strSQL2 aEmp rs GetRows With cmbName 24 For i 0 To UBound aEmp 2 AddItem aEmp 1 i ItemData i aEmp 0 i Next cmbName ListIndex 0 End With Adodc1 ConnectionString Conn Adodc1 CommandType adCmdText cmdSearch Click End Sub 4 3 4 修改密码模块修改密码模块 用户密码修改模块 用于修改用户密码 如图 4 3 4 所示 图 4 3 4 修改密码模块代码 Public bModify As Boolean Public strOldUser As String Private Sub cmdOK Click Dim strName As String strPWD As String strPWD2 As String strName txtUserName Text strPWD txtPWD Text strPWD2 txtPWD2 Text If Trim strName Then 25 MsgBox 请输入用户名 vbOKOnly vbCritical 警告 txtUserName SetFocus Exit Sub End If If Len strPWD 0 Then MsgBox 密码不能为空 vbOKOnly vbCritical 警告 Exit Sub End If If strPWD strPWD2 Then MsgBox 密码和确认密码不相同 请重新确认 vbOKOnly vbCritical 警告 Exit Sub End If With MyUser If bModify False Or strOldUser Trim strName Then If ExistUser MakeStr strName True Then MsgBox 用户名已经存在 请重新输入 vbOKOnly vbCritical 警告 txtUserName SelStart 0 txtUserName SelLength Len strName Exit Sub End If End If strName MakeStr strName strPWD MakeStr strPWD If cmbUserClass Text 管理员 Then iUserClass 1 Else iUserClass 2 End If If bModify False Then AddUser Else UpdateUser strOldUser If strOldUser CurUser strName And Trim strName strOldUser Then CurUser strName Trim strName CurUser GetInfo CurUser strName End If End If End With 26 Unload Me End Sub Private Sub cmdCancel Click Unload Me End Sub 4 3 5 工资数据统计模块工资数据统计模块 工资数据统计模块 用于统计计算员工工资 如图 4 3 5 所示 图 4 3 4 工资数据统计模块 Private Sub cmdClose Click Unload Me End Sub 27 Private Sub cmdCount Click Dim strSQL2 As String col1 As Column strSQL2 SELECT c 部门 count c 部门 AS 人数 sum a 基本工资 AS 基本工资 strSQL2 strSQL2 sum a 职务津贴 AS 职务津贴 sum a 奖金 AS 奖金 sum a 房帖 AS 房 贴 strSQL2 strSQL2 sum a 应发 AS 应发工资 sum a 养老保险 AS 养老保险 strSQL2 strSQL2 sum a 医疗保险 AS 医疗保险 sum a 住房公积金 AS 住房公积金 strSQL2 strSQL2 sum a 代扣 AS 代扣款 sum a 所得税 AS 个人所得税 strSQL2 strSQL2 sum a 养老保险 a 养老保险 a 医疗保险 a 住房公积金 a 代扣 a 所得税 strSQL2 strSQL2 AS 扣款小计 sum a 实发 AS 实发工资 strSQL2 strSQL2 FROM 工资表 AS a 职员表 AS b 部门表 AS c strSQL2 strSQL2 Where a 员工 id b id And b 部门 c id strSQL2 strSQL2 AND a 日期 dtp1 Value AND a 日期 dtp1 Value AND a 日期 0 Then txtID Text aEmp 0 cmbEmp ListIndex End Sub Private Sub cmdAdd click Dim i As Integer j As Integer If cmdAdd Caption 增加 Then cmdAdd Caption 保存 Adodc1 Recordset AddNew i cmbEmp ListIndex If i 0 Then cmbEmp Enabled False txtID Text aEmp 0 i txtDate Text DTPicker1 Value txtBasePay Text aEmp 2 i For j 0 To UBound aDuty 32 If aDuty 0 j aEmp 3 i Then txtDuty Text aDuty 2 j Exit For End If Next For j 0 To UBound aPro If aPro 0 j aEmp 4 i Then txtPro Text aPro 2 j Exit For End If Next Else MsgBox 请首先选择要添加员工的姓名 vbOKOnly vbCritical 提示 Adodc1 Recordset CancelUpdate cmdAdd Caption 增加 cmdCancel Enabled False Exit Sub End If cmdCancel Enabled True Status True Else cmdAdd Caption 增加 cmdCancel Enabled False cmbEmp Enabled True txtDate Text DTPicker1 Value Adodc1 Recordset Update Adodc1 Refresh Status False End If 33 End Sub Private Sub cmdquit click Unload Me End Sub Private Sub cmdCancel Click cmdCancel Enabled False cmdAdd Caption 增加 cmbEmp Enabled True Status False Adodc1 Recordset CancelUpdate End Sub Private Sub cmdCalc Click Index As Integer Dim cur1 As Currency cur2 As Currency cur1 Val txtBasePay Text Val txtDuty Text cur1 cur1 Val txtPro Text Val txtBonus Text cur1 cur1 Val txtHouse Text If Index 0 Then txtPension Text Round cur1 Pension Rate 2 ElseIf Index 1 Then txtMedi Text Round cur1 Medi Rate 2 End If txtSubtotal1 Text cur1 cur2 Val txtPension Text Val txtMedi Text cur2 cur2 Val txtHouseRes Text Val txtOther Text txtSubtotal2 Text cur2 34 txtTax Text CountTax cur1 cur2 Val txtOther Text txtFinal Text cur1 cur2 Val txtTax Text End Sub Private Sub cmdExit Click Unload Me End Sub Private Sub Combo1 Change End Sub Private Sub DTPicker1 Change txtDate Text DTPicker1 Value End Sub Private Sub Form Load Dim strSQL2 As String rs As ADODB Recordset id As Integer strSQL2 SELECT FROM 职务表 Set rs QueryExt strSQL2 aDuty rs GetRows strSQL2 SELECT FROM 职称表 Set rs QueryExt strSQL2 aPro rs GetRows strSQL2 SELECT ID 姓名 基本工资 职务 职称 FROM 职员表 35 Set rs QueryExt strSQL2 aEmp rs GetRows With cmbEmp For i 0 To UBound aEmp 2 AddItem aEmp 1 i Next End With Status False With Adodc1 ConnectionString Conn CommandType adCmdTable RecordSource 工资表 id Recordset Fields 员工 ID End With For i 0 To UBound aEmp If aEmp 0 i id Then cmbEmp ListIndex i Exit For End If Next DTPicker1 Value Adodc1 Recordset 日期 End Sub Private Sub Status bShow As Boolean txtBasePay Enabled bShow txtDuty Enabled bShow txtPro Enabled bShow 36 txtBonus Enabled bShow txtHouse Enabled bShow txtPension Enabled bShow txtMedi Enabled bShow txtHouseRes Enabled bShow txtOther Enabled bShow End Sub 4 3 8 主界面模块主界面模块 主界面模块 登录后的界面用于各种基本操作 如图 4 3 8 所示 图 4 3 8 主界面代码 Private Sub MDIForm Load Me Left GetSetting App Title Settings MainLeft 1000 Me Top GetSetting App Title Settings MainTop 1000 Me Width GetSetting App Title Settings MainWidth 6500 Me Height GetSetting App Title Settings MainHeight 6500 Pension Rate GetSetting App Title Settings PensionRate 0 08 Medi Rate GetSetting App Title Settings MediRate 0 02 Tax Start GetSetting App Title Settings TaxStart 2000 37 End Sub Private Sub MDIForm Unload Cancel As Integer If Me WindowState vbMinimized Then SaveSetting App Title Settings MainLeft Me Left SaveSetting App Title Settings MainTop Me Top SaveSetting App Title Settings MainWidth Me Width SaveSetting App Title Settings MainHeight Me Height SaveSetting App Title Settings PensionRate Pension Rate SaveSetting App Title Settings MediRate Medi Rate SaveSetting App Title Settings TaxStart Tax Start End If End Sub Private Sub mnuDataEmp Click frmEmp Show End Sub Private Sub mnuDataInput Click frmInput Show End Sub Private Sub mnuDataModify Click frmModify Show End Sub Private Sub mnuDataRef Click frmDataRef Show End Sub Private Sub mnuQueryAll Click frmCountAll Show End Sub Private Sub mnuQueryDept Click frmCountDept Show End Sub Private Sub mnuQueryFind Click frmSearchName Show End Sub Private Sub mnuReportEmp Click 38 frmReportEmp Show End Sub Private Sub mnuReportPay Click frmReportPay Show End Sub Private Sub mnuSysBack Click Dim strSoureFile As String strDestFile As String iRet As Integer On Error Resume Next strSoureFile App Path strDB strDestFile App Path BAK DATA BAK If Trim strDestFile Then Exit Sub If Dir strDestFile Then iRet MsgBox Dir strDestFile 文件已经存在 是否替换 vbYesNo 警告 If iRet vbNo Then Exit Sub End If End If Dim buff As Byte i As Long i FileLen strSoureFile ReDim buff i 1 Open strSoureFile For Binary As 1 Get 1 buff Close 1 Open strDestFile For Binary As 1 Put 1 buff Close 1 MsgBox 数据库备份完成 vbInformation vbOKOnly 提示 End Sub Private Sub mnuSysPWD Click With frmUserEdit Caption 修改密码 strOldUser CurUser