设计一个登录窗体,两个文本框和两个按钮,一个文本框输”用户名”(ID),一个输”密码”(PW),在”登录”按钮中写入:If IsNull(Me![ID]) ThenMsgBox “请选择用登录用户!”, 64, “系统提示”Me![ID].SetFocusElseIf IsNull(Me![PW]) ThenMsgBox “请输入密码,密码不能为空!”, 64, “系统提示”Me![PW].SetFocusElseDim stemp As StringDim rs As ADODB.RecordsetSet rs = New ADODB.Recordsetstemp = “select * from tb用户资料 where 职员姓名=” & Me![ID] & “‘”rs.Open stemp, CurrentProject.Connection, adOpenKeyset, adLockOptimisticIf rs(“密码”) Me![PW] ThenMsgBox “密码错误,请重新输入!”, vbOKOnly, “系统提示”Me![PW] = “”Me![PW].SetFocusElseDoCmd.CloseDoCmd.OpenForm “管理主界面”End IfEnd IfEnd If
