loginsys.frm

vb电气设备管理系统的设计论文,欢迎大家下载

VERSION 5.00
Begin VB.Form LoginSys 
   BackColor       =   &H00E0E0E0&
   BorderStyle     =   1  'Fixed Single
   Caption         =   "管理员登录"
   ClientHeight    =   2625
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   4515
   Icon            =   "LoginSys.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   2625
   ScaleWidth      =   4515
   StartUpPosition =   2  '屏幕中心
   Begin VB.CommandButton cmdOkCancel 
      BackColor       =   &H00FFFFFF&
      Cancel          =   -1  'True
      Caption         =   "取消"
      Height          =   375
      Index           =   1
      Left            =   2820
      Style           =   1  'Graphical
      TabIndex        =   5
      Top             =   1890
      Width           =   930
   End
   Begin VB.CommandButton cmdOkCancel 
      BackColor       =   &H00FFFFFF&
      Caption         =   "确定"
      Height          =   375
      Index           =   0
      Left            =   1905
      Style           =   1  'Graphical
      TabIndex        =   4
      Top             =   1890
      Width           =   930
   End
   Begin VB.TextBox txtPass 
      Height          =   270
      IMEMode         =   3  'DISABLE
      Left            =   1905
      PasswordChar    =   "*"
      TabIndex        =   3
      Text            =   "Text1"
      Top             =   1410
      Width           =   2040
   End
   Begin VB.ComboBox comPer 
      Height          =   300
      Left            =   1905
      TabIndex        =   2
      Text            =   "Combo1"
      Top             =   960
      Width           =   2055
   End
   Begin VB.Frame Frame2 
      BackColor       =   &H005CE764&
      Height          =   60
      Left            =   -270
      TabIndex        =   6
      Top             =   600
      Width           =   5250
   End
   Begin VB.Label Label2 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "请输入您的管理员名及密码"
      ForeColor       =   &H00404040&
      Height          =   180
      Left            =   525
      TabIndex        =   7
      Top             =   315
      Width           =   2160
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      BackColor       =   &H8000000A&
      BackStyle       =   0  'Transparent
      Caption         =   "密码"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00800000&
      Height          =   210
      Index           =   1
      Left            =   1440
      TabIndex        =   1
      Top             =   1440
      Width           =   420
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      BackColor       =   &H8000000A&
      BackStyle       =   0  'Transparent
      Caption         =   "管理员"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00800000&
      Height          =   210
      Index           =   0
      Left            =   1245
      TabIndex        =   0
      Top             =   1005
      Width           =   630
   End
   Begin VB.Image Image1 
      Height          =   480
      Left            =   15
      Picture         =   "LoginSys.frx":058A
      Top             =   30
      Width           =   480
   End
   Begin VB.Shape Shape1 
      BackColor       =   &H00D0D0D0&
      BackStyle       =   1  'Opaque
      BorderStyle     =   0  'Transparent
      Height          =   840
      Left            =   -135
      Top             =   -240
      Width           =   5250
   End
End
Attribute VB_Name = "LoginSys"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim Asc() As Integer
Dim db As Database
Dim rst As Recordset
Dim Rec As Integer
Private Sub cmdOkCancel_Click(Index As Integer)
Dim i As Integer
'On Error GoTo erend
i = 0
Select Case Index
    Case 0
        If txtPass.Text = "" Or comPer.Text = "" Then
            MsgBox "请选择用户名或输入密码!", 0 + 48, "提示"
            txtPass.SetFocus
            Exit Sub
        End If
        If Val(txtPass.Text) = Asc(comPer.ListIndex) Then
            Mainfrm.Show
            If comPer.Text = "超级用户" Then Mainfrm.MnuOP.Enabled = True
            Unload Me
        Else
            MsgBox "密码错误,请重试！", 0 + 16, "错误"
            txtPass.SetFocus
            Exit Sub
        End If
Case 1
    Unload Me
End Select
Exit Sub
ErEnd:
    MsgBox "登录错误,请重新填写!", vbOKOnly, "不能登录"
End Sub

Private Sub comPer_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
    KeyAscii = 0
    txtPass.SetFocus
End If
End Sub

Private Sub Form_Activate()
comPer.SetFocus
End Sub

Private Sub Form_Load()
Set db = Workspaces(0).OpenDatabase(App.Path & "\Database\Data.mdb", False)
Set rst = db.OpenRecordset("Pass", dbOpenTable)

rst.MoveLast
Rec = rst.RecordCount
ReDim Asc(Rec - 1)
rst.MoveFirst
For i = 1 To Rec
    comPer.AddItem rst.Fields("名称")
    Asc(i - 1) = Val(IIf(IsNull(rst.Fields("密码")), "", rst.Fields("密码")))
    rst.MoveNext
    If rst.EOF Then Exit For
Next
comPer.Text = ""
txtPass.Text = ""
End Sub



Private Sub txtPass_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
    KeyAscii = 0
    cmdOkCancel_Click 0
End If
End Sub