数据库课程设计报告-通用工资管理系统课程设计

数据库课程设计报告-通用工资管理系统课程设计内容摘要：

xit Sub End If If = Then 华东交通大学理工学院通用工资管理系统课程设计报告 16 第 页 rr = MsgBox(请输入密码。 , , 应付帐管理 ) Exit Sub End If Dim As New Dim rs As New Provider=。 Integrated Security=SSPI。 Persist Security Info=False。 Initial Catalog=Wage。 Data Source=PC2020200122EOA Set rs = New Dim s1_Sql As String s1_Sql = SELECT * FROM 用户表 WHERE 用 户 号 =39。 amp。 Trim() amp。 39。 and 密码 =39。 amp。 Trim() amp。 39。 s1_Sql, , adOpenStatic, adLockOptimistic On Error Resume Next If Err = 3021 Then r = MsgBox(用户名或密码错误，请重新检查。 , , 应付帐管理 ) Exit Sub End If 系统 .Show Unload Me End Sub “取消”按钮的源代码： Private Sub Command2_Click() Unload Me End Sub 由于“取消”按钮的源代码基本上是一样的，以下的模块江不再多述。 “主界面”的详细设计 华东交通大学理工学院通用工资管理系统课程设计报告 17 第 页 主界面的设计是由菜单编辑器生成，主要由系统设置、设置、信息维护、工资查询五个模块组成。 其作用是使程序更加有条有理，有利于管理。 其中普通用户只可部分操作，管理员可以对所有模块进行操作。 子模块的设计 用户管理模块 选择“用户管理” →“添加用户”菜单，在添加用户的窗体里输入用户名、密码系统自动新增用户名及其用户信息。 如图 所示。 为了提高系统的安全性，我在系统中设置了修改 密码功能，只要输入修改后的密码即可，它会有修改后的提示信息，如图 所示。 图 工资管理系统总界面 实现工资管理系统对话框的源代码如下： Private Sub A1_Click(Index As Integer) 添加用户 .Show End Sub Private Sub A2_Click(Index As Integer) 华东交通大学理工学院通用工资管理系统课程设计报告 18 第 页 修改密码 .Show End Sub Private Sub B1_Click(Index As Integer) 员工信息设置 .Show End Sub Private Sub C1_Click(Index As Integer) 部门信息设置 .Show End Sub Private Sub D1_Click(Index As Integer) 考勤信息设置 .Show End Sub Private Sub E1_Click(Index As Integer) 基本工资管理 .Show End Sub Private Sub E2_Click(Index As Integer) 工资信息表设置 .Show End Sub Private Sub F1_Click(Index As Integer) 津贴信息表设置 .Show End Sub Private Sub F2_Click(Index As Integer) 津贴情况表设置 .Show End Sub Private Sub G_Click(Index As Integer) Unload Me End Sub Private Sub wrtdep_Click(Index As Integer) 修改部门信息 .Show End Sub 华东交通大学理工学院通用工资管理系统课程设计报告 19 第 页 图 添加用户 “添加用户”的源代码： Private Sub cmbfield_Click() = select * from 用户表 Do While Not () Loop = (0) End Sub Private Sub cmbname_Click() Dim condition condition = Trim() If VarType(condition) = 8 Then = select * from 用户表 where amp。 condition amp。 = 39。 华东交通大学理工学院通用工资管理系统课程设计报告 20 第 页 amp。 amp。 39。 39。 这里紧接上行，一下其他类是地方也同样 Else = select * from 用户表 where amp。 condition amp。 = amp。 End If = (Eno) = (密码 ) End Sub Private Sub cmdadd_Click() On Error GoTo errorhandler If Then (Eno) = (密码 ) = = select * from 用户表 Do While Not (1) Loop cmbfield_Click Else MsgBox 员工号是主索引，不能为空 , 错误提示 End If Exit Sub 华东交通大学理工学院通用工资管理系统课程设计报告 21 第 页 errorhandler: MsgBox 员工号是主索引，不能重复 , 错误提示 End Sub Private Sub Command2_Click() 系统 .Show End Sub Private Sub Form_Load() Dim i As Integer = select * from 用户表 Set = Adodc1 For i = 0 To 1 (i).Name Next i = (0) End Sub 图 修改密码 员工信息管理模块 选择“员工信息管理”→“员工信息设置”，然后再在字段名上选 Esex,字段值上选“男”，即可查询所有为男性的员工，如图 所示。 同理，也可以进行其他一些操作如删除，修改等。 华东交通大学理工学院通用工资管理系统课程设计报告 22 第 页 图 员工信息设置 员工信息管理模块的源代码： Private Sub cmbfield_Click() = select * from 员工信息 Do While Not () Loop = (0) End Sub Private Sub cmbname_Click() Dim condition condition = Trim() If VarType(condition) = 8 Then = select * from 员工信息 where amp。 condition amp。 = 39。 amp。 amp。 39。 华东交通大学理工学院通用工资管理系统课程设计报告 23 第 页 Else = select * from 员工信息 where amp。 condition amp。 = amp。 End If = (Eno) = (Ename) = (Eage) = (Dno) = (Esex) = (Ecul) = (Ejob) End Sub Private Sub cmdadd_Click() On Error GoTo errorhandler If Then (Eno) = (Ename) = (Eage) = (Dno) = (Esex) = (Ecul) = (Ejob) = = select * from 员工信息 华东交通大学理工学院通用工资管理系统课程设计报告 24 第 页 Do While Not (1) Loop cmbfield_Click 39。 cmdclear_Click Else MsgBox 员工号是主索引，不能为空 , 错误提示 End If Exit Sub errorhandler: MsgBox 员 工号是主索引，不能重复 , 错误提示 End Sub Private Sub cmdclear_Click() = = = = = = = End Sub Private Sub cmddel_Click() If Then = select * from 员工信息 where Eno= 39。 amp。 amp。 39。 华东交通大学理工学院通用工资管理系统课程设计报告 25 第 页 cmbfield_Click cmdclear_Click End If End Sub Private Sub cmdedit_Click() Dim conn As Dim rs As Dim r。