frmlogin.frm

图书管理系统New08-05-28.rar（包含文档）

VERSION 5.00
Begin VB.Form frmLogin 
   Caption         =   "登陆"
   ClientHeight    =   3360
   ClientLeft      =   5385
   ClientTop       =   4140
   ClientWidth     =   4635
   LinkTopic       =   "Form1"
   ScaleHeight     =   3360
   ScaleWidth      =   4635
   Begin VB.CommandButton qixiao 
      Caption         =   "取消"
      Height          =   375
      Left            =   2520
      TabIndex        =   4
      Top             =   2640
      Width           =   975
   End
   Begin VB.CommandButton denglu 
      Caption         =   "登陆"
      Height          =   375
      Left            =   1200
      TabIndex        =   3
      Top             =   2640
      Width           =   975
   End
   Begin VB.ComboBox cmbLimite 
      Height          =   300
      ItemData        =   "frmLogin.frx":0000
      Left            =   1800
      List            =   "frmLogin.frx":0013
      TabIndex        =   2
      Text            =   "请选择用户类别"
      Top             =   1800
      Width           =   1935
   End
   Begin VB.TextBox passWord 
      CausesValidation=   0   'False
      Height          =   375
      IMEMode         =   3  'DISABLE
      Left            =   1800
      PasswordChar    =   "*"
      TabIndex        =   1
      Top             =   1200
      Width           =   1935
   End
   Begin VB.TextBox userName 
      Height          =   375
      Left            =   1800
      TabIndex        =   0
      Top             =   600
      Width           =   1935
   End
   Begin VB.Label Label3 
      Caption         =   "用户类型："
      Height          =   255
      Left            =   840
      TabIndex        =   7
      Top             =   1920
      Width           =   975
   End
   Begin VB.Label Label2 
      Caption         =   "密   码："
      Height          =   255
      Left            =   840
      TabIndex        =   6
      Top             =   1320
      Width           =   855
   End
   Begin VB.Label Label1 
      Caption         =   "用户名："
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   840
      TabIndex        =   5
      Top             =   600
      Width           =   855
   End
End
Attribute VB_Name = "frmLogin"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'****************************************************************************
'       作者：林永刚
'       名称：frmLogin
'       功能：登陆验证。
'****************************************************************************
Option Explicit
Private Sub denglu_Click()
Dim rs As New ADODB.Recordset
Dim sql As String

'输入验证
 If userName = "" Then
   MsgBox "请输入正确的用户名"
   userName.SetFocus
   Exit Sub
 ElseIf passWord = "" Then
   MsgBox "请输入正确的密码"
   passWord.SetFocus
   Exit Sub
 ElseIf cmbLimite.ListIndex < 0 Or cmbLimite.ListIndex > 5 Then
    MsgBox "请选择用户类别"
    cmbLimite.SetFocus
   Exit Sub
 End If
 
 sql = "select * from admins where yhmc='" & userName.Text & "'"  'admins用户信息表
 Set rs = ADOSQL(sql)

 If Trim(rs.Fields("yhmm")) = Trim(passWord.Text) And Trim(rs.Fields("yhqx")) = Trim(cmbLimite.Text) Then
            user = userName.Text
            rs.Close
 Else
   MsgBox "用户名或密码或用户类别不正确！"
   passWord.Text = ""
   passWord.SetFocus
   Exit Sub
 End If
 
 '控制操作权限
 If cmbLimite.ListIndex = 0 Then
   limite = 0 '超级管理员，具有所有的操作行为
 ElseIf cmbLimite.ListIndex = 1 Then
   limite = 1 '借阅管理员，具有与借阅有关的操作
   ElseIf cmbLimite.ListIndex = 2 Then
     limite = 2 '分编员，具有入库有关的操作
     ElseIf cmbLimite.ListIndex = 3 Then
       limite = 3 '采购员，具有采购图书登记的操作
       ElseIf cmbLimite.ListIndex = 4 Then
         limite = 4 '读者服务员，具有办借阅证的操作
End If
 frm_main.Show
 Unload Me
End Sub

Private Sub qixiao_Click()
Unload Me

End Sub