英语翻译
PrivateSubcmdOK_Click()
DimSQLAsString
DimrsAsADODB.Recordset
IfTrim(UserName.Text)=""ThenMsgBox"请输入用户名称!",vbOKOnly+vbExclamation,"警告"
ExitSub
UserName.SetFocus
Else
SQL="select*fromUserInfowhereUserID='"&UserName&"'"
Setrs=TransactSQL(SQL)
Ifrs.EOF=FalseThenMsgBox"这个用户已经存在!请重新输入用户名称!",vbOKOnly+vbExclamation,"警告"
UserName.SetFocus
UserName.Text=""
PassWord.Text=""
confirmPWD.Text=""
ExitSub
Else
IfTrim(PassWord.Text)Trim(confirmPWD.Text)ThenMsgBox"两次输入的密码不一致,请重新输入密码!",vbOKOnly+vbExclamation,"警告"
PassWord.Text=""
confirmPWD.Text=""
PassWord.SetFocus
ExitSub
ElseIfTrim(PassWord.Text)=""ThenMsgBox"密码不能为空!",vbOKOnly+vbExclamation,"警告"
PassWord.Text=""
confirmPWD=""
PassWord.SetFocus
ElseSQL="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
PrivateSubcmdOK_Click()
DimSQLAsString
DimrsAsADODB.Recordset
本人VB水平太差.
