企业考勤管理系统源代码.docVIP

frmAddUser Option Explicit Private Sub cmdCancel_Click() Unload Me End Sub Private Sub cmdOK_Click() Dim SQL As String Dim rs As ADODB.Recordset If Trim(UserName.Text) = Then 判断用户名称是否为空 MsgBox 请输入用户名称!, vbOKOnly + vbExclamation, 警告 Exit Sub UserName.SetFocus Else SQL = select * from UserInfo where UserID= UserName Set rs = TransactSQL(SQL) If rs.EOF = False Then 判断是否已经存在用户 MsgBox 这个用户已经存在！请重新输入用户名称！, vbOKOnly + vbExclamation, 警告 UserName.SetFocus UserName.Text = PassWord.Text = confirmPWD.Text = Exit Sub Else If Trim(PassWord.Text) Trim(confirmPWD.Text) Then 判断两次密码是否相同 MsgBox 两次输入的密码不一致，请重新输入密码！, vbOKOnly + vbExclamation, 警告 PassWord.Text = confirmPWD.Text = PassWord.SetFocus Exit Sub ElseIf Trim(PassWord.Text) = Then 判断密码是否为空 MsgBox 密码不能为空！, vbOKOnly + vbExclamation, 警告 PassWord.Text = confirmPWD = PassWord.SetFocus Else 添加用户 SQL = insert into UserInfo (UserID,UserPWD) values( UserName SQL = SQL , PassWord ) TransactSQL (SQL) MsgBox 添加成功！, vbOKOnly + vbExclamation, 添加结果 重新设置初始化为空 UserName.Text = PassWord.Text = confirmPWD.Text = UserName.SetFocus End If End If End If End Sub Private Sub Form_Load() UserName.Text = PassWord.Text = confirmPWD.Text = End Sub frmAlteration Option Explicit Public str1 As String 保存修改时的SQL语句 Public ID As Integer