请问怎样实现登陆画面（验证用户名和密码）

Question

请问怎样实现登陆画面（验证用户名和密码）我在界面上作了两个text，一个让用户输入用户名，一个输入密码
Dim ID As String
Dim pas As IntegerIf IsNull(Trim(Text1.Text)) Then
MsgBox "id不能为空"
End IfIf IsNull(Trim(Text2.Text)) Then
MsgBox "密码不能为空"
End If上面这两个判断为空的函数不好用，即使我什么都不输也没有提示。ID = Text1.Text
pas = CInt(Text2.Text)这里的类型转换不好使，我是想在text里应该是string型，用cint给他转成整型之后才能和数据库里的比较。可是这里总是提示overflow
谢谢

Answer 1

你可以添加界面时直接添加一个登录界面！很简单。
你的代码不是太好，你可以用 if text1.text = "" then msgbox "   ".

Answer 2

Dim ID As String
Dim pas As IntegerIf Trim(Text1.Text)="" Then
MsgBox "id不能为空"
End IfIf Trim(Text2.Text)="" Then
MsgBox "密码不能为空"
End If
if IsNumeric(text2.texe) then pas = val(Text2.Text)

Answer 3

如果你后台有数据库,可以参考以下代码:
Dim cnn1 As New ADODB.Connection
Dim myrs As New ADODB.Recordset
Dim sql As StringIf Trim(Combo1.Text) = "" Then
  MsgBox "请选择用户名", vbOKOnly + vbInformation, "管理助手"
  Combo1.SetFocus
  Else
    If Combo1.Text = "" Then
      MsgBox "请输入用户名", vbOKCancel + vbExclamation, "管理助手"
       Combo1.SetFocus
       Else
       If Trim(Text1.Text) = "" Then
         MsgBox "密码不能为空", vbOKCancel + vbExclamation, "管理工具"
         Text1.SetFocus
         Else
    
         cnn1.Open '
         sql = "select * from 表名 where 用户名 =" + "'" + Combo1.Text + "'"
         Set myrs = cnn1.Execute(sql)
         If myrs.EOF = True Then
            MsgBox "对不起,你输入的用户名还不是授权用户,请重新输入或与管理员联系", vbOKCancel + vbExclamation, "管理工具"
            Combo1.Text = ""
            Combo1.SetFocus
            cnn1.Close
            Text1.Text = ""
          Else
             If myrs.Fields("密码") <> Trim(Text1.Text) Then
               MsgBox "你输入的密码不正确,请核对后重新输入", vbOKCancel + vbExclamation, "管理工具"
               Text1.Text = ""
               Text1.SetFocus
               cnn1.Close
               Else
                Me.Hide
                Text1.Text = ""
               main.Show
                
                cnn1.Close
          End If
        End If
     End If
   End If
   End If
End Sub