frmlogin.frm

该压缩包包含有很多关于数据库原理与应用的课件以及课程设计

VERSION 5.00
Begin VB.Form frmLogin 
   Caption         =   "用户登录"
   ClientHeight    =   3060
   ClientLeft      =   120
   ClientTop       =   420
   ClientWidth     =   4560
   LinkTopic       =   "Form2"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   3060
   ScaleWidth      =   4560
   StartUpPosition =   2  '屏幕中心
   Begin VB.TextBox txtPasswd 
      BackColor       =   &H00FFFFFF&
      Height          =   375
      Left            =   2040
      TabIndex        =   4
      Text            =   "Text1"
      Top             =   960
      Width           =   1095
   End
   Begin VB.ComboBox dbUserId 
      Height          =   300
      Left            =   2040
      TabIndex        =   3
      Text            =   "Combo1"
      Top             =   240
      Width           =   1215
   End
   Begin VB.CommandButton cmdCancel 
      Caption         =   "取消"
      Height          =   615
      Left            =   2280
      TabIndex        =   1
      Top             =   2280
      Width           =   1215
   End
   Begin VB.CommandButton cmdLogin 
      Caption         =   "登录"
      Height          =   615
      Left            =   360
      TabIndex        =   0
      Top             =   2280
      Width           =   1095
   End
   Begin VB.Label Label2 
      Caption         =   "密码"
      Height          =   375
      Left            =   960
      TabIndex        =   5
      Top             =   960
      Width           =   855
   End
   Begin VB.Label Label1 
      Caption         =   "用户名"
      Height          =   375
      Left            =   960
      TabIndex        =   2
      Top             =   360
      Width           =   975
   End
End
Attribute VB_Name = "frmlogin"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub cmdCancel_Click()
End
End Sub

Private Sub cmdLogin_Click()
    '从数据库查找用户记录
    rsUser.Open "Select passwd from user where user_id='" & dbUserId.Text & "'", cn, adOpenDynamic, adLockOptimistic
    '文本框密码
    txtPasswd.Text = "admin"
    '若查找的用户信息存在
    If rsUser.EOF <> True Then
    '若用户密码也正确
        If rsUser(0) = txtPasswd Then
            sUserName = UCase(dbUserId.Text)
            '设置状态栏内容
            FrmMain.Status.Panels(1).Text = "User Name:" & sUserName
            DoEvents
            '若用户不是默认的ADMIN用户
            If sUserName <> "ADMIN" Then
                FrmMain.mnuSettingUser.Enabled = False
            Else
                FrmMain.mnuSettingUser.Enabled = True
            End If
            Unload Me
            frmSYSTRAYICON.mnuAboutMe.Enabled = True
            frmSYSTRAYICON.mnuExit.Enabled = True
            frmSYSTRAYICON.mnuLogOff.Enabled = True
            DoEvents
            '显示程序主窗体
            FrmMain.Show
            DoEvents
            Exit Sub
            rsUser.Close
            '若用户登录错误
            Else
                MsgBox "Invalid Password!" & vbCrLf & "Note:Password is same as Username", vbInformation, "Enjoy Freeware"
                txtPasswd.Text = ""
                txtPasswd.SetFocus
                Exit Sub
            End If
    End If
End Sub

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    '显示默认管理员账号
            Exit Sub
        End If
        Next i
        Srchflag = False
    
End Sub