frmlogin.frm

来自「使用vb编写的人员基本系信息管理」· FRM 代码 · 共 262 行

VERSION 5.00
Begin VB.Form frmlogin 
   BackColor       =   &H00FF7722&
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "用户登录"
   ClientHeight    =   1800
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   3510
   ControlBox      =   0   'False
   Icon            =   "frmlogin.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   120
   ScaleMode       =   3  'Pixel
   ScaleWidth      =   234
   StartUpPosition =   2  '屏幕中心
   Begin VB.CommandButton cmdmang 
      Caption         =   "忘记密码"
      Height          =   255
      Left            =   1493
      TabIndex        =   7
      Top             =   1320
      Width           =   900
   End
   Begin VB.CommandButton cmdok 
      BackColor       =   &H00FF7722&
      Caption         =   "确定"
      Default         =   -1  'True
      Height          =   255
      Left            =   128
      TabIndex        =   6
      Top             =   1320
      Width           =   600
   End
   Begin VB.CommandButton cmdlogin 
      BackColor       =   &H00FF7722&
      Caption         =   "添加用户"
      Height          =   255
      Left            =   2483
      TabIndex        =   5
      Top             =   1320
      Width           =   900
   End
   Begin VB.CommandButton cmdend 
      BackColor       =   &H00FF7722&
      Cancel          =   -1  'True
      Caption         =   "退出"
      Height          =   255
      Left            =   840
      TabIndex        =   4
      Top             =   1320
      Width           =   600
   End
   Begin VB.TextBox txtpwd 
      Appearance      =   0  'Flat
      BackColor       =   &H00FF7722&
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FFFFFF&
      Height          =   315
      IMEMode         =   3  'DISABLE
      Left            =   1185
      PasswordChar    =   "*"
      TabIndex        =   2
      Top             =   720
      Width           =   1800
   End
   Begin VB.TextBox txtuser 
      Appearance      =   0  'Flat
      BackColor       =   &H00FF7722&
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FFFFFF&
      Height          =   315
      Left            =   1185
      TabIndex        =   1
      Top             =   240
      Width           =   1800
   End
   Begin VB.Label Label2 
      AutoSize        =   -1  'True
      BackColor       =   &H00FF7722&
      Caption         =   "密  码"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FFFFFF&
      Height          =   210
      Left            =   390
      TabIndex        =   3
      Top             =   765
      Width           =   630
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      BackColor       =   &H00FF7722&
      Caption         =   "用户名"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FFFFFF&
      Height          =   210
      Left            =   390
      TabIndex        =   0
      Top             =   300
      Width           =   630
   End
End
Attribute VB_Name = "frmlogin"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim mycn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim cnstr As String
Dim userid As String
Dim answer As String
Dim bln As Boolean
Private Sub cmdend_Click()
End
End Sub

Private Sub cmdlogin_Click()
txtuser.SetFocus
If cmdlogin.Caption = "进入系统" Then
  frmmain.Show
  Unload frmlogin
  Set frmlogin = Nothing
Else
  frmadd.Show
  bln = True
End If
End Sub

Private Sub cmdmang_Click()
txtuser.SetFocus
If cmdmang.Caption = "忘记密码" Then
  userid = InputBox("请输入你的用户名！", "取回密码", "")
  If userid <> "" Then
    Do While Not rs.EOF
      If Trim(rs!Id) <> userid Then
        rs.MoveNext
      Else
        answer = InputBox(rs!que, "取回密码", "")
        If answer <> Trim(rs!ans) Then
          MsgBox "您的回答不正确！", vbOKOnly + vbExclamation, "错误提示"
          Form_Load
          Exit Do
        Else
          MsgBox "您的密码是：" & Trim(rs!pwd), vbOKOnly + vbExclamation, "取回密码"
          Form_Load
          Exit Do
        End If
      End If
    Loop
    If rs.EOF Then
      MsgBox "没有该用户！", vbOKOnly + vbExclamation, "错误提示"
      Form_Load
      Exit Sub
    End If
  End If
Else
  frmmang.Show
  bln = True
End If
End Sub

Private Sub cmdok_Click()
txtuser.SetFocus
If txtuser = "" Then
  MsgBox "请填写用户名！", vbOKOnly + vbExclamation, "错误提示"
  Form_Load
  Exit Sub
End If
If txtpwd = "" Then
  MsgBox "请填写密码！", vbOKOnly + vbExclamation, "错误提示"
  Form_Load
  Exit Sub
End If
Do While Not rs.EOF
  If Trim(rs!Id) <> txtuser Then
    rs.MoveNext
  Else
    If Trim(rs!pwd) <> txtpwd Then
      MsgBox "密码错误！", vbOKOnly + vbExclamation, "错误提示"
      Form_Load
      Exit Do
    Else
      struser = txtuser
      Form_Load
      cmdlogin.Caption = "进入系统"
      cmdmang.Caption = "用户管理"
      Load frmmain
      Exit Do
    End If
  End If
Loop
If rs.EOF Then
  MsgBox "该用户不存在！", vbOKOnly + vbExclamation, "错误提示"
  Form_Load
End If
End Sub

Private Sub Form_Activate()
If bln Then
  Form_Load
  bln = False
End If
End Sub

Private Sub Form_Load()
cnstr = "provider=microsoft.jet.oledb.4.0;" _
        & "data source= " & App.Path & "\data\data.mdb"
Set mycn = New ADODB.Connection
mycn.Open cnstr
Set rs = New ADODB.Recordset
rs.CursorType = adOpenDynamic
rs.LockType = adLockOptimistic
rs.Open "pass", mycn, , , adCmdTable
txtuser = ""
txtpwd = ""
cmdlogin.Caption = "添加用户"
cmdmang.Caption = "忘记密码"
bln = False
End Sub

Private Sub Form_Unload(Cancel As Integer)
rs.Close
mycn.Close
Set rs = Nothing
Set mycn = Nothing
End Sub