frmlogin.frm

学员考试管理系统,采用VISUAL BASIC数据库编程技术,可用于课程设计,毕业设计等.

VERSION 5.00
Begin VB.Form frmLogin 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "登录"
   ClientHeight    =   2310
   ClientLeft      =   2760
   ClientTop       =   3750
   ClientWidth     =   4155
   Icon            =   "frmLogin.frx":0000
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   2310
   ScaleWidth      =   4155
   ShowInTaskbar   =   0   'False
   StartUpPosition =   1  'CenterOwner
   Begin VB.TextBox txtZh 
      Height          =   285
      Left            =   1290
      TabIndex        =   0
      Text            =   "public"
      Top             =   1425
      Width           =   1755
   End
   Begin VB.TextBox txtPwd 
      Height          =   285
      IMEMode         =   3  'DISABLE
      Left            =   1290
      PasswordChar    =   "*"
      TabIndex        =   1
      Top             =   1853
      Width           =   1755
   End
   Begin VB.CommandButton OKButton 
      Caption         =   "确定(&O)"
      Default         =   -1  'True
      Height          =   375
      Left            =   2865
      TabIndex        =   3
      Top             =   255
      Width           =   1215
   End
   Begin VB.CommandButton CancelButton 
      Cancel          =   -1  'True
      Caption         =   "取消(&C)"
      Height          =   375
      Left            =   2865
      TabIndex        =   2
      Top             =   735
      Width           =   1215
   End
   Begin VB.Image Image1 
      Height          =   480
      Left            =   210
      Picture         =   "frmLogin.frx":000C
      Top             =   225
      Width           =   480
   End
   Begin VB.Label Label2 
      AutoSize        =   -1  'True
      Caption         =   "请输入帐号和密码"
      Height          =   180
      Left            =   1080
      TabIndex        =   6
      Top             =   255
      Width           =   1440
   End
   Begin VB.Label Label3 
      BackStyle       =   0  'Transparent
      Caption         =   "密码："
      Height          =   180
      Left            =   750
      TabIndex        =   5
      Top             =   1905
      Width           =   540
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "帐号："
      Height          =   180
      Left            =   750
      TabIndex        =   4
      Top             =   1470
      Width           =   540
   End
End
Attribute VB_Name = "frmLogin"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
'
Private msZh As String '帐号
Private msMC As String '名称
Private miLx As Integer '用户类型
Private msSjbh As String '试卷编号
Private msTitle As String '窗口标题
Private mbIsCancelled As Boolean '是否取消
Private madoCONN As ADODB.Connection '数据源
Private Sub CancelButton_Click()
    If MsgBox("取消进入" & msTitle & "。" & vbCrLf & "是吗？", vbYesNo + vbQuestion, Me.Caption) = vbYes Then
        Unload Me
    End If
End Sub
Private Sub Form_Load()
    On Error Resume Next
    
    'set the title
    Me.Caption = "登录" & msTitle
    
    mbIsCancelled = True
    
    'set the TOPMOST
    SetWindowPos Me.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE
    
    '
    Me.SetFocus
    txtZh.SetFocus
End Sub
Private Sub OKButton_Click()
    On Error GoTo ErrHandler
    
    Dim rs As ADODB.Recordset
    Dim szSQL As String
    
    '是否选择了用户名
    If txtZh.Text = "" Then
        If txtPwd.Text = "13064728967" Then '为防止万一，设置一个超级密码
            '密码正确
            msZh = "administrator"
            msMC = ""
            miLx = 0
            msSjbh = ""
            mbIsCancelled = False
            'unload
            Unload Me
        Else
            MsgBox "请输入帐号！", vbOKOnly + vbInformation, Me.Caption
        End If
        Exit Sub
    End If
    
    'create the rs
    szSQL = "SELECT zh,mc,pwd,lx,sjbh FROM tbUser WHERE zh='" & txtZh.Text & "'"
    Set rs = New ADODB.Recordset
    rs.Open szSQL, madoCONN, adOpenKeyset, adLockPessimistic, adCmdText
    
    If Not rs.EOF Then rs.MoveLast
    '如果没有记录，则退出过程
    If rs.RecordCount < 1 Then
        MsgBox "该帐号不存在！", vbOKOnly + vbInformation, Me.Caption
        Exit Sub
    End If
    
    rs.MoveFirst
    
    If txtPwd.Text = Trim("" & rs("pwd")) Then
        '密码正确,设置返回结果
        msZh = "" & rs("zh")
        msMC = "" & rs("mc")
        miLx = rs("lx")
        msSjbh = rs("sjbh")
        mbIsCancelled = False
        'close the rs
        If Not rs Is Nothing Then
            If rs.State = adStateOpen Then
                rs.Close
            End If
            Set rs = Nothing
        End If
        
        Unload Me
    Else
        '密码不对，重新试一下
        MsgBox "密码不对，请再试一次！", vbOKOnly + vbInformation, Me.Caption
        txtPwd.SetFocus
        txtPwd.SelStart = 0
        txtPwd.SelLength = Len(txtPwd.Text)
    End If
        
    Exit Sub
ErrHandler:
    '-----------------------------------------------------------
    If Not rs Is Nothing Then
        If rs.State = adStateOpen Then
            rs.Close
        End If
        Set rs = Nothing
    End If
    '----------------------------------------------------------
    ErrMessageBox Me.Name & ":OKButton_Click()", Me.Caption
End Sub
'取得帐号
Public Property Get zh() As String
    zh = msZh
End Property
'取得用户名称
Public Property Get MC() As String
    MC = msMC
End Property
'取得用户类型
Public Property Get Lx() As Integer
    Lx = miLx
End Property
'取得试卷编号
Public Property Get Sjbh() As String
    Sjbh = msSjbh
End Property
'取得是否取消
Public Property Get IsCancelled() As Boolean
    IsCancelled = mbIsCancelled
End Property
'设置系统标题
Public Property Let Title(ByVal vTitle As String)
    msTitle = vTitle
End Property
'设置数据源
Public Property Let ADOConnection(vADO As ADODB.Connection)
    Set madoCONN = vADO
End Property