VERSION 5.00
Begin VB.Form LoginForm 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "庫存信息管理系統(tǒng)----系統(tǒng)登陸"
   ClientHeight    =   3150
   ClientLeft      =   5295
   ClientTop       =   4665
   ClientWidth     =   5130
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   3150
   ScaleWidth      =   5130
   ShowInTaskbar   =   0   'False
   Begin VB.CommandButton cmdCancel 
      BackColor       =   &H8000000A&
      Cancel          =   -1  'True
      Caption         =   "取消"
      Height          =   420
      Left            =   2880
      TabIndex        =   6
      Top             =   2280
      Width           =   1020
   End
   Begin VB.CommandButton cmdOK 
      Caption         =   "確定"
      Default         =   -1  'True
      Height          =   420
      Left            =   1200
      TabIndex        =   5
      Top             =   2280
      Width           =   1020
   End
   Begin VB.Frame Frame1 
      Caption         =   "系統(tǒng)登陸"
      Height          =   1935
      Left            =   360
      TabIndex        =   0
      Top             =   120
      Width           =   4455
      Begin VB.TextBox txtPassword 
         BackColor       =   &H80000018&
         DataField       =   "password"
         DataSource      =   "Data1"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   12
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   345
         IMEMode         =   3  'DISABLE
         Left            =   1320
         PasswordChar    =   "*"
         TabIndex        =   4
         Top             =   1200
         Width           =   2625
      End
      Begin VB.ComboBox CB_AdminName 
         BackColor       =   &H80000018&
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   12
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   405
         Left            =   1800
         TabIndex        =   2
         Top             =   480
         Width           =   2175
      End
      Begin VB.Label lblLabels 
         BackStyle       =   0  'Transparent
         Caption         =   "密碼(&P):"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   11.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00000000&
         Height          =   360
         Index           =   1
         Left            =   240
         TabIndex        =   3
         Top             =   1200
         Width           =   1275
      End
      Begin VB.Label lblLabels 
         BackStyle       =   0  'Transparent
         Caption         =   "用戶名稱(&U):"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   11.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00000000&
         Height          =   420
         Index           =   0
         Left            =   120
         TabIndex        =   1
         Top             =   480
         Width           =   1530
      End
   End
End
Attribute VB_Name = "LoginForm"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Dim chkpassword As String '檢查密碼是否正確
Public LoginSucceeded As Boolean '全局變量表示登陸是否成功

Private Sub CB_AdminName_Click()
  Set rsload = New ADODB.Recordset
  Call check_condatabase
  If rsload.State = 1 Then rsload.close
  rsload.open "select password from user_load where user_name = '" & Me.CB_AdminName.Text & "'", cn, adOpenStatic, adLockPessimistic
  Me.txtPassword.SetFocus
  chkpassword = rsload.Fields("password") '根據(jù)下拉框中的用戶名得到該用戶的正確密碼信息
End Sub

Private Sub cmdCancel_Click()
  LoginSucceeded = False
  Me.Hide
  Unload Me
End Sub

Private Sub cmdOK_Click()
  Call check_condatabase
  If Me.CB_AdminName.Text = "" Then
    MsgBox "別忘了用戶名:)", vbOKOnly, ":("
    Exit Sub
  End If
  If Me.txtPassword.Text <> "" Then
    If Me.txtPassword.Text = chkpassword Then
      LoginSucceeded = True
      Set rsload = New ADODB.Recordset
      rsload.open "select * from user_load where user_name = '" & Me.CB_AdminName.Text & "'", cn, adOpenStatic, adLockPessimistic
      If rsload.Fields("ql_flag") <> "" Then
        czry_flag = rsload.Fields("ql_flag").Value
      Else
        czry_flag = ""
      End If
      username = Me.CB_AdminName.Text '保存全局的登陸帳戶名
      MainForm.StatusBar1.Panels(2).Text = "操作人員:" & Me.CB_AdminName.Text
      MainForm.StatusBar1.Panels(1).Text = "狀態(tài)：無"
      Unload Me
      MainForm.Show
    Else
      MsgBox "無效的密碼，請重試!", vbOKOnly + vbExclamation, "登陸失敗"
      Me.txtPassword.SetFocus
      SendKeys "{Home}+{End}}"
    End If
  Else
    MsgBox "別忘了請輸入密碼:)", vbOKOnly, "登陸失敗"
    Me.txtPassword.SetFocus
    SendKeys "{Home}+{End}"
  End If
  Call close_condatabase
  
End Sub

Private Sub Form_Load()
  Dim rsload As ADODB.Recordset
  
  Me.txtPassword.Text = ""
  Call condatabase '連接數(shù)據(jù)庫
  Set rsload = New ADODB.Recordset
  rsload.open "select * from user_load", cn, adOpenStatic, adLockPessimistic
  Me.CB_AdminName.Clear
  Do Until rsload.EOF '將所有的帳戶名稱加入用戶名下拉框中
    Me.CB_AdminName.AddItem rsload.Fields("user_name")
    rsload.MoveNext
  Loop
End Sub