UC知道VB问题 谁能帮我注释？跪谢！
来源：百度知道 编辑：UC知道 时间：2024/05/02 14:57:57
Private Sub Default_Click()
Dim tmp As String
If Len(Ntype.Text) < 1 Then
MsgBox "请选择用户类型!", vbInformation + vbOKOnly, "提示"
Ntype.SetFocus
Else
If Len(Nuser.Text) < 1 Then
MsgBox "请选择用户名!", vbInformation + vbOKOnly, "提示"
Nuser.SetFocus
Else
If Len(pass.Text) < 1 Then
MsgBox "请输入密码!", vbInformation + vbOKOnly, "提示"
pass.SetFocus
Else
Select Case Ntype.Text
Case "总经理":
tmp = "2"
Case "项目经理":
tmp = "1"
Case "收银员":
tmp = "0"
End Select
SQL = "select *
Dim tmp As String
If Len(Ntype.Text) < 1 Then
MsgBox "请选择用户类型!", vbInformation + vbOKOnly, "提示"
Ntype.SetFocus
Else
If Len(Nuser.Text) < 1 Then
MsgBox "请选择用户名!", vbInformation + vbOKOnly, "提示"
Nuser.SetFocus
Else
If Len(pass.Text) < 1 Then
MsgBox "请输入密码!", vbInformation + vbOKOnly, "提示"
pass.SetFocus
Else
Select Case Ntype.Text
Case "总经理":
tmp = "2"
Case "项目经理":
tmp = "1"
Case "收银员":
tmp = "0"
End Select
SQL = "select *
这就是一个登录验证界面，不知道你哪里不明白呢，pm我把
就是先验证 “类型，用户名，密码，不能为空”
(f Len(Ntype.Text) < 1 Then
， MsgBox "请选择用户类型!", vbInformation + vbOKOnly, "提示"
Ntype.SetFocus 提示，在得到焦点 )
然后再检索数据库，用户名密码 类型 是否正确（SQL = "select * from TB_USER where UserName='" & Nuser.Text & "' and Pass='" & pass.Text & "' and type='" & tmp & "'" ），
正确就就登录相应的管理员，用户等的窗口（frmSY主窗口 frmMaster frmAdmin）Case "0":
frmSY.Show vbModal, MDIMain
Case "1":
frmMaster.Show
Case "2":
frmAdmin.Show
End Select
初学的吧，100分我替你解决