Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpbuffer As String, nSize As Long) As Long
Public OK As Boolean
Dim m_Admin As New clsAdmin
Dim m_nErrCount As Integer
Private Sub Form_Load()
m_nErrCount = 0
End Sub
Private Sub cmdCancel_Click()
OK = False
Me.Hide
End Sub
Private Sub cmdOK_Click()
'ToDo: 创建测试密码是否正确
'检查正确密码
Dim Account As String
Dim Pwd As String
Account = RealString(txtUserName.Text)
Pwd = RealString(txtPassword.Text)
'判断密码是否正确
If Not m_Admin.CheckPwd(Account, Pwd) Then
m_nErrCount = m_nErrCount + 1
If m_nErrCount >= 3 Then
MsgBox "输入密码错误次数太多，请稍后重试", vbExclamation
End
End If
MsgBox "密码错误，再试一次！还有 " & 3 - m_nErrCount & " 次机会，注意密码区分大小写", vbCritical, "登录"
txtPassword.SetFocus
txtPassword.SelStart = 0
txtPassword.SelLength = Len(txtPassword.Text)
Else
OK = True
g_Account = Account
Me.Hide
End If
End Sub
2:报损信息表:
代码分析:
Option Explicit
Private OK As Boolean '确定用户按了OK还是CANCEL按钮
Private m_obj As clsDispose '数据对象，用来存储用户输入数据
Public m_ViewType As gxcViewType '显示状态，指添加还是修改
Private m_TypeId As Long
Private m_Account As String '调用此对话框的操作员
'根据是“新增”还是修改，确定显示内容
Private Sub SetStatus()
'设置控件默认值
Call SetDefaultValue
'设置状态
Select Case m_ViewType
Case vtadd '添加
CancelButton.Visible = True
OKButton.Caption = "确定"
Case vtModify '修改
CancelButton.Visible = True
OKButton.Caption = "保存"
Case vtInfo '查看
CancelButton.Visible = False
OKButton.Caption = "关闭"
End Select
End Sub
'打开对话框，并传出用户输入数据
Public Function ShowDlg(ByRef obj As Object, _
ByVal eViewType As gxcViewType, _
Optional nTypeId As Long = -1, _
Optional strUser As S
