代码分析:
Dim flagpassword As String
Dim flagadmin As String
Option Explicit
Private Sub cmdcancel_Click()
Me.Hide
End Sub
Private Sub cmdok_Click()
Dim conlogin As New ADODB.Connection
Dim rstlogin As New ADODB.Recordset
If Len(Trim(txtgonghao.Text)) = 0 Then
MsgBox "工号为空,请重新输入!!", vbOKOnly