loginform.frm

库存信息管理系统.本系统要实现的功能如下：商品类别信息管理,商品信息管理,库存操作信息管理,各种报表信息打印,数据表信息导出,操作员管理.

VERSION 5.00
Begin VB.Form LoginForm 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "库存信息管理系统----系统登陆"
   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         =   "系统登陆"
      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") '根据下拉框中的用户名得到该用户的正确密码信息
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 = "状态：无"
      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 '连接数据库
  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