frmlogin.frm

学生选课vb‘源程序?】蝪b‘源程序?】蝪b‘源程序?】蝪b‘源程序?】蝪b‘源程序?】蝪b‘源程序?】蝪b‘源程序?】蝪b‘源程序?】蝪b‘源程序?】蝪b‘源程序

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