frmlogin.frm

图书管理系统!有源代码!论文!心得!

VERSION 5.00
Begin VB.Form frmLogin 
   BackColor       =   &H80000003&
   BorderStyle     =   1  'Fixed Single
   Caption         =   "登陆界面"
   ClientHeight    =   2775
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   4455
   ControlBox      =   0   'False
   Icon            =   "frmLogin.frx":0000
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   2775
   ScaleWidth      =   4455
   ShowInTaskbar   =   0   'False
   StartUpPosition =   3  '窗口缺省
   Begin VB.ComboBox dbUserId 
      Appearance      =   0  'Flat
      BackColor       =   &H00FFFFFF&
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   360
      Left            =   2280
      Sorted          =   -1  'True
      Style           =   2  'Dropdown List
      TabIndex        =   5
      ToolTipText     =   "Select User Name"
      Top             =   360
      Width           =   1695
   End
   Begin VB.CommandButton cmdCancel 
      BackColor       =   &H80000004&
      Cancel          =   -1  'True
      Caption         =   "取消(&C)"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Left            =   2280
      Style           =   1  'Graphical
      TabIndex        =   4
      Top             =   1800
      Width           =   1455
   End
   Begin VB.CommandButton cmdLogin 
      BackColor       =   &H8000000B&
      Caption         =   "确定(&L)"
      Default         =   -1  'True
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Left            =   600
      Style           =   1  'Graphical
      TabIndex        =   3
      Top             =   1800
      Width           =   1455
   End
   Begin VB.TextBox txtPasswd 
      BackColor       =   &H00FFFFFF&
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   375
      IMEMode         =   3  'DISABLE
      Left            =   2280
      PasswordChar    =   "*"
      TabIndex        =   2
      ToolTipText     =   "Password is Same as User Name for Demo Version"
      Top             =   1080
      Width           =   1695
   End
   Begin VB.Label lblPasswd 
      BackStyle       =   0  'Transparent
      Caption         =   "   密  码"
      BeginProperty Font 
         Name            =   "Tahoma"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   480
      TabIndex        =   1
      Top             =   1080
      Width           =   1575
   End
   Begin VB.Label lblUserId 
      BackStyle       =   0  'Transparent
      Caption         =   "   用户名"
      BeginProperty Font 
         Name            =   "Tahoma"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   480
      TabIndex        =   0
      Top             =   360
      Width           =   1575
   End
   Begin VB.Shape Shape1 
      BackColor       =   &H00E0E0E0&
      BackStyle       =   1  'Opaque
      FillColor       =   &H00C0E0FF&
      Height          =   2535
      Left            =   120
      Shape           =   4  'Rounded Rectangle
      Top             =   120
      Width           =   4215
   End
End
Attribute VB_Name = "frmLogin"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Option Explicit

Dim Srchflag As Boolean
      



Private Sub Form_Load()
On Error Resume Next
   ' frmSYSTRAYICON.mnuAboutMe.Enabled = False
   ' frmSYSTRAYICON.mnuExit.Enabled = False
   ' frmSYSTRAYICON.mnuLogoff.Enabled = False
    
    Move (Screen.Width - Width) \ 2, (Screen.Height - Height) \ 2
    txtPasswd = ""
    
    Dim i As Integer
    
    For i = 0 To rsUser.RecordCount
        dbUserId.AddItem rsUser(0)
        rsUser.MoveNext
        If rsUser.EOF = True Then
             rsUser.MoveLast
             dbUserId.ListIndex = 0 'For displaying by default admin
             Exit Sub
        End If
    Next i
        
    Srchflag = False 'Initially Search is not found

End Sub
      
      
'Check for Valid Password Corresponding to user Name
Private Sub cmdLogin_Click()
On Error Resume Next
    rsUser.Close  'After the user_id are loaded into dbUserId close the
                  'Recordset for further usage
    rsUser.Open "Select passwd from user where user_id = '" & dbUserId.Text & "'", cn, adOpenDynamic, adLockOptimistic
    
    If rsUser.EOF <> True Then 'If Search is found
         If rsUser(0) = txtPasswd Then
             sUserName = UCase(dbUserId.Text)
             frmMain.status.Panels(1).Text = "User Name : " & sUserName
             DoEvents
             'Check If user is Admin
             'Checking : To allow Settings Menu Available only to Admin
             If sUserName <> "ADMIN" Then
                frmMain.mnuSetting.Enabled = False
             Else
                frmMain.mnuSetting.Enabled = True
             End If
             Unload Me
            ' frmSYSTRAYICON.mnuAboutMe.Enabled = True
            ' frmSYSTRAYICON.mnuExit.Enabled = True
            ' frmSYSTRAYICON.mnuLogoff.Enabled = True
             DoEvents
             frmMain.Show
             DoEvents
        '     Srchflag = True
             Exit Sub
             rsUser.Close
         Else
             MsgBox "密码为空或不正确!!!", vbInformation, "警告!!"
             txtPasswd.Text = ""
             txtPasswd.SetFocus
             Exit Sub
         End If
    End If
    
    'If Srchflag = False Then 'Display msg when search not found
    '     MsgBox "Invalid Password" & vbCrLf & "No Access!!!", vbCritical, "Invalid User"
    '     End
    'End If
End Sub

'Simply Quit the Loaded Stuff!!!
Private Sub cmdCancel_Click()
On Error Resume Next
    End
End Sub