VERSION 5.00
Begin VB.Form Frmlogin 
   Caption         =   "登陸"
   ClientHeight    =   2670
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   5145
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   ScaleHeight     =   2670
   ScaleWidth      =   5145
   StartUpPosition =   3  '窗口缺省
   Begin VB.CommandButton cmdCancel 
      Caption         =   "取消"
      Height          =   495
      Left            =   2880
      TabIndex        =   5
      Top             =   1920
      Width           =   1575
   End
   Begin VB.CommandButton cmdOK 
      Caption         =   "確定"
      Height          =   495
      Left            =   480
      TabIndex        =   4
      Top             =   1920
      Width           =   1455
   End
   Begin VB.TextBox txtPassword 
      Height          =   495
      Left            =   1920
      TabIndex        =   3
      Top             =   960
      Width           =   2415
   End
   Begin VB.TextBox txtUserName 
      Height          =   495
      Left            =   1920
      TabIndex        =   2
      Top             =   240
      Width           =   2415
   End
   Begin VB.Label Label2 
      Caption         =   "密碼&P"
      Height          =   495
      Left            =   120
      TabIndex        =   1
      Top             =   960
      Width           =   1455
   End
   Begin VB.Label Label1 
      Caption         =   "用戶名稱&U"
      Height          =   375
      Left            =   120
      TabIndex        =   0
      Top             =   240
      Width           =   1335
   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 LoginSucceeded As Boolean    '標記是否登錄成功

Private Sub cmdCancel_Click()
  Unload Frmlogin     '退出登錄對話框
  Introfrm.Show       '顯示初始窗體
End Sub

Private Sub cmdOK_Click()
'檢查用戶身份
If txtUserName.Text = "Administrator" Then
   LoginSucceeded = verify(txtUserName, txtPassword) '驗證用戶身份
   If (LoginSucceeded = True) Then
       ID = txtUserName
       admin = True  '標記管理用戶為管理員，以賦予相應權限
       Unload Frmlogin   '退出登錄對話框
       MDIMainfrm.Show   '顯示程序主窗體界面
   End If
Else
   LoginSucceeded = verify(txtUserName, txtPassword) '驗證用戶身份
   If (LoginSucceeded = True) Then
        ID = txtUserName
         admin = False  '標記為一般用戶，以賦予相應權限
         Unload Frmlogin   '退出登錄對話框
         MDIMainfrm.Show   '顯示程序主窗體界面
   End If
End If
End Sub

 '驗證用戶名和密碼是否正確


Function verify(userID As String, txtPWD As String) As Boolean
     Dim idinfo As Recordset   '記錄集
     Dim sqlstr As String   '存儲sql命令字符串
     
     sqlstr = " select 學號，密碼 from 密碼 where 學號='" & userID & "'"
     Set idinfo = courseDB.OpenRecordset(sqlstr, dbOpenSnapshot, dbReadOnly)
      '到數據庫中提取用戶名和密碼的記錄
     If (idinfo.RecordCount = 0) Then '無此用戶名時
          MsgBox "無此學號", , "登錄"
          verify = False
     Else
          If (idinfo.Fields("密碼").Value = txtPWD) Then
               verify = True   '登錄成功
          Else
               MsgBox "無效的密碼，請重試！", , "登錄"
               verify = False
          End If
          End If
     idinfo.Close
End Function

Private Sub Form_Load()
  Unload Introfrm    '退出登錄對話框
End Sub