frmlogin.frm

网上教务管理系统 包括（教师

VERSION 5.00
Begin VB.Form frmLogin 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "登录"
   ClientHeight    =   1728
   ClientLeft      =   2832
   ClientTop       =   3480
   ClientWidth     =   3756
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   1019.187
   ScaleMode       =   0  'User
   ScaleWidth      =   3521.047
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  'CenterScreen
   Begin VB.CommandButton cmdMod 
      Caption         =   "修改"
      Enabled         =   0   'False
      Height          =   390
      Left            =   2520
      TabIndex        =   6
      Top             =   1080
      Width           =   1140
   End
   Begin VB.TextBox txtUserName 
      Height          =   345
      Left            =   1290
      TabIndex        =   1
      Text            =   "AA"
      Top             =   135
      Width           =   2325
   End
   Begin VB.CommandButton cmdOK 
      Caption         =   "确定"
      Height          =   390
      Left            =   120
      TabIndex        =   4
      Top             =   1080
      Width           =   1140
   End
   Begin VB.CommandButton cmdCancel 
      Caption         =   "取消"
      Height          =   390
      Left            =   1320
      TabIndex        =   5
      Top             =   1080
      Width           =   1140
   End
   Begin VB.TextBox txtPassword 
      Height          =   345
      IMEMode         =   3  'DISABLE
      Left            =   1290
      PasswordChar    =   "*"
      TabIndex        =   3
      Top             =   525
      Width           =   2325
   End
   Begin VB.Label lblLabels 
      Caption         =   "用户名(&U):"
      Height          =   270
      Index           =   0
      Left            =   105
      TabIndex        =   0
      Top             =   150
      Width           =   1080
   End
   Begin VB.Label lblLabels 
      Caption         =   "密码(&P):"
      Height          =   270
      Index           =   1
      Left            =   105
      TabIndex        =   2
      Top             =   540
      Width           =   1080
   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 PASS As String
Dim txt As String
Dim I As Integer
Dim DB As Database
Dim Modi As Boolean
Dim rec As Recordset
Public Password As String
Public LoginSucceeded As Boolean
Public User As String

Private Sub cmdCancel_Click()
    '设置全局变量为 false，指示登录失败
    LoginSucceeded = False
    Me.Hide
    Unload Me
End Sub

Private Sub cmdMod_Click()
  txtPassword = ""
  MsgBox "输入密码后按回车确认!", vbInformation + vbOKOnly
End Sub

Private Sub TXTPASSWORD_KeyPress(KeyAscii As Integer)
  
  Dim S As String
  If Modi Then
      If KeyAscii = 13 Then
         If I = 1 Then
           If txtPassword.Text = PASS Then
               S = "update user set password='" + Trim(PASS) + "' where user='" + Trim(txt) + "'"
               DB.Execute S
               Unload Me
               '显示主窗体
               User = "" + Trim(txtUserName) + ""
               Else
               I = 0
           End If
         End If
         If I = 0 Then
             PASS = txtPassword
             txtPassword = ""
         End If
         I = I + 1
         End If
 End If
End Sub

Private Sub cmdOK_Click()
    '检查密码的正确性
    Dim S As Boolean
    On Error GoTo 1
    S = True
    Dim SQL As String
    SQL = "select * from user where user='" + Trim(txtUserName) + "'"
    Set rec = DB.OpenRecordset(SQL, dbOpenSnapshot)
    rec.MoveFirst
    If txtPassword = rec!Password Then
        '此处放置代码给调用子程序传递成功信息
        '设置全局变量是最简单的
        LoginSucceeded = True
        If MsgBox("修改密码!", vbInformation + vbOKCancel) = vbOK Then
            Modi = True
            txt = "" + Trim(txtUserName) + ""
            cmdMod.Enabled = True
            txtPassword.SetFocus
        Else
             Unload Me
             '显示主窗体
              User = "" + Trim(txtUserName) + ""
             End If
    Else
        MsgBox "无效的密码，再试一次！", , "登录"
        txtPassword.SetFocus
        SendKeys "{Home}+{End}"
    End If
S = False
If S Then
1:    MsgBox "用户名不正确", vbInformation + vbOKOnly
      Exit Sub
End If
End Sub

Private Sub Form_Load()
  Set dbStudent = OpenDatabase(App.Path + "\database\student.mdb", False, False)
  Modi = False
End Sub