frmlogin.frm

在线图书馆系统 包括VB程序设计的后台与ASP的网页

VERSION 5.00
Begin VB.Form FrmLogin 
   BackColor       =   &H80000003&
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "用户登录"
   ClientHeight    =   3405
   ClientLeft      =   45
   ClientTop       =   435
   ClientWidth     =   5070
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   3405
   ScaleWidth      =   5070
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  '屏幕中心
   Begin VB.TextBox TxtPassword 
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   12
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   315
      IMEMode         =   3  'DISABLE
      Left            =   2160
      MaxLength       =   10
      PasswordChar    =   "*"
      TabIndex        =   3
      Top             =   1755
      Width           =   1815
   End
   Begin VB.ComboBox ComUserCode 
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   12
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   360
      Left            =   2160
      TabIndex        =   2
      Text            =   "Combo1"
      Top             =   1260
      Width           =   1815
   End
   Begin VB.CommandButton CmdOK 
      Caption         =   "确定(&Y)"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   12
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Left            =   840
      TabIndex        =   0
      Top             =   2355
      Width           =   1455
   End
   Begin VB.CommandButton CmdCancle 
      Caption         =   "取消(&C)"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   12
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Left            =   2640
      TabIndex        =   1
      Top             =   2355
      Width           =   1455
   End
   Begin VB.Label Label1 
      BackStyle       =   0  'Transparent
      Caption         =   "图书馆管理信息系统"
      BeginProperty Font 
         Name            =   "华文彩云"
         Size            =   21.75
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H80000001&
      Height          =   615
      Left            =   480
      TabIndex        =   6
      Top             =   480
      Width           =   4575
   End
   Begin VB.Label LabUserCode 
      BackStyle       =   0  'Transparent
      Caption         =   "用户编号"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   12
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   300
      Left            =   840
      TabIndex        =   5
      Top             =   1275
      Width           =   1200
   End
   Begin VB.Label LabUserName 
      BackStyle       =   0  'Transparent
      Caption         =   "用户口令"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   12
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   300
      Left            =   840
      TabIndex        =   4
      Top             =   1755
      Width           =   1200
   End
   Begin VB.Shape Shape1 
      BackColor       =   &H00E0E0E0&
      BackStyle       =   1  'Opaque
      FillColor       =   &H00C0E0FF&
      Height          =   3135
      Left            =   120
      Shape           =   4  'Rounded Rectangle
      Top             =   120
      Width           =   4815
   End
End
Attribute VB_Name = "FrmLogin"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim LoginNum As Integer   '登录次数
Dim Conn As New ADODB.Connection
Dim AdoRs As New ADODB.Recordset
Dim sql As String

Private Sub CmdCancle_Click()
    Conn.Close
    End
End Sub

Private Sub CmdOk_Click()
    Dim i As Integer
    Dim s As String
    s = ComUserCode.Text
    i = InStr(1, s, "|")
    LoginNum = LoginNum + 1
    If i <> 0 Then
        s = Left(s, i - 1)
    Else
        Exit Sub
    End If
    sql = "select OperatorId,Password,Name,Popedom from  operators where OperatorId='" & s & "' and "
    sql = sql & " Password='" & TxtPassword.Text & "'"
    AdoRs.Open sql, Conn, adOpenKeyset
    If Not AdoRs.EOF Then
        If Login = False Then
            Login = True
            OperatorId = s
            OperatorPass = TxtPassword.Text
            OperatorPopedom = Trim(AdoRs("Popedom"))
        End If
        AdoRs.Close
        Conn.Close
        OK = True
        Me.Hide
    Else
        OK = flase
        MsgBox "错误的用户编号或口令！", vbOKOnly
        If LoginNum = 3 Then
            MsgBox "输入次数过多，您无权进入系统！"
            AdoRs.Close
            Conn.Close
            End
        Else
            TxtPassword.SelStart = 0
            TxtPassword.SelLength = Len(TxtPassword.Text)
            TxtPassword.SetFocus
        End If
        AdoRs.Close
    End If

End Sub

Private Sub ComUserCode_Change()
    TxtPassword.Text = ""
End Sub

Private Sub Form_Load()
    Conn.Provider = "sqloledb"
    Conn.ConnectionString = ConnString
    Conn.Open
    AdoRs.Open "select OperatorId,Password,Name from  operators", Conn, adOpenKeyset
    Do While Not AdoRs.EOF
        ComUserCode.AddItem (AdoRs!OperatorId & "|" & AdoRs!Name)
        AdoRs.MoveNext
    Loop
    If ComUserCode.ListCount >= 0 Then
        ComUserCode.ListIndex = 0
    End If
    AdoRs.Close
    LoginNum = 0
    Login = False
End Sub