计算机类专业毕业-源代码.doc

frmAddUser

OptionExplicit

PrivateSubcmdCancel_Click()

UnloadMe

EndSub

PrivateSubcmdOK_Click()

DimSQLAsString

DimrsAsADODB.Recordset

IfTrim(UserName.Text)=Then判断用户名称是否为空

MsgBox请输入用户名称!,vbOKOnly+vbExclamation,警告

ExitSub

UserName.SetFocus

Else

SQL=select*fromUserInfowhereUserID=UserName

Setrs=TransactSQL(SQL)

Ifrs.EOF=FalseThen判断是否已经存在用户

MsgBox这个用户已经存在！请重新输入用户名称！,vbOKOnly+vbExclamation,警告

UserName.SetFocus

UserName.Text=

PassWord.Text=

confirmPWD.Text=

ExitSub

Else

IfTrim(PassWord.Text)Trim(confirmPWD.Text)Then判断两次密码是否相同

MsgBox两次输入的密码不一致，请重新输入密码！,vbOKOnly+vbExclamation,警告

PassWord.Text=

confirmPWD.Text=

PassWord.SetFocus

ExitSub

ElseIfTrim(PassWord.Text)=Then判断密码是否为空

MsgBox密码不能为空！,vbOKOnly+vbExclamation,警告

PassWord.Text=

confirmPWD=

PassWord.SetFocus

Else添加用户

SQL=insertintoUserInfo(UserID,UserPWD)values(UserName

SQL=SQL,PassWord)

TransactSQL(SQL)

MsgBox添加成功！,vbOKOnly+vbExclamation,添加结果

重新设置初始化为空

UserName.Text=

PassWord.Text=

confirmPWD.Text=

UserName.SetFocus

EndIf

EndIf

EndIf

EndSub

PrivateSubForm_Load()

UserName.Text=

PassWord.Text=

confirmPWD.Text=

EndSub

frmAlteration

OptionExplicit

Publicstr1AsString保存修改时的SQL语句

PublicIDAsInteger