银行代扣代发工资系统源代码.docVIP

附 录 系统使用说明： (1) 本系统的用户名称为admin，初始密码为admin。 (2) 在系统的工资结算模块中，输入“员工编号”或“员工姓名”后按回车键，调出该名员工的个人信息和基本工资信息；选择年份及月份后，单击“更新”按钮，更新该名员工的本月的考勤信息；输入奖金等后，单击“计算”按钮，得到该名员工本月的工资，单击“保存”后保存相应的信息。 系统中各窗体代码： (1) 用户登录窗体代码 确定按钮代码： Private Sub cmdOK_Click() On Error GoTo errorhandle Dim finduser As Boolean finduser = False Adodc1.Recordset.MoveFirst 将记录指针移动到首记录 If Trim(UserName.Text = ) Then MsgBox 请输入用户名称！, vbOKOnly + vbExclamation, 警告 UserName.SetFocus Exit Sub Else Do While Not Adodc1.Recordset.EOF 判断数据表是否已经读完,即遍历整张表 If Adodc1.Recordset.Fields(用户名称) = Trim(UserName.Text) Then field就是某个字段 finduser = True If Adodc1.Recordset.Fields(用户密码) = Trim(PassWord.Text) Then Me.Hide strUserName = Trim(UserName.Text) 保存用户名称 frmMain.Show Unload Me Else MsgBox 密码不正确，请重新输入！, vbOKOnly + vbExclamation, 警告 PassWord.SetFocus PassWord.Text = End If End If Adodc1.Recordset.MoveNext 记录往下移动一条 Loop If finduser = False Then MsgBox 没有这个用户，请重新输入！, vbOKOnly + vbExclamation, 警告 UserName.SetFocus UserName.Text = End If End If Exit Sub errorhandle: MsgBox 您的操作有误！, vbOKOnly + vbExclamation, 错误 End Sub Private Sub Form_Load() UserName.Text = PassWord.Text = End Sub 取消按钮代码 Private Sub cmdCancel_Click() Unload Me Exit Sub End Sub (2)修改密码窗体代码 “确定”按钮代码 Private Sub cmdOK_Click() If Trim(OldPWD.Text) = Then MsgBox 请输入旧密码！, vbOKOnly + vbExclamation, 提示 OldPWD.SetFocus Exit Sub Else OldPWD.Text = OldPWD.SetFocus Else If Trim(NewPWD.Text) = Then MsgBox 请输入新密码！, vbOKOnly + vbExclamation, 提示 NewPWD.SetFocus Exit Sub Else If Trim(NewPWD.Text) Trim(ConfirmPWD.Text) Then MsgBox 两次密码不一致！, vbOKOnly + vbExclamation, 提示 NewPWD.Text =