Private Sub CmdOK_Click() '登录
If txtPassword = Password And Trim(Password) <> "" Or datacount = 0 Then
If Login1 = 1 Then
Load Mainform
Else
Mainform.Show
End If
If Rights = 2 Then
Mainform.M_Setup.Visible = False
Else
Mainform.M_Setup.Visible = True
End If
Me.Hide
If Login1 = 1 Then Mainform.StatusBar1.Panels.Item(1).Text = "管理员: " & Operater1
If Rights = 1 Then
Mainform.M_ChangePassword.Visible = True
Else
Mainform.M_ChangePassword.Visible = False
End If
Else
MsgBox "输入的密码有误,请重新输入!!!!"
txtPassword.SetFocus
End If
txtPassword = ""
End Sub

以上的Login1 = 1和Rights = 1代表的是什么意思.谢谢

上下文不足.不愿多说.

LS的美女回答问题真是精骇(惊骇同音)...