frmlogin.frm

学校排课管理系统 科目的查询

VERSION 5.00
Begin VB.Form frmlogin 
   Appearance      =   0  'Flat
   BackColor       =   &H80000005&
   Caption         =   "Form1"
   ClientHeight    =   11115
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   15240
   FillColor       =   &H00800000&
   FontTransparent =   0   'False
   LinkTopic       =   "Form1"
   ScaleHeight     =   11115
   ScaleWidth      =   15240
   StartUpPosition =   3  '窗口缺省
   Begin VB.PictureBox Picture1 
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      BorderStyle     =   0  'None
      DrawStyle       =   5  'Transparent
      ForeColor       =   &H80000008&
      Height          =   6015
      Left            =   -360
      Picture         =   "frmlogin.frx":0000
      ScaleHeight     =   6015
      ScaleWidth      =   9255
      TabIndex        =   8
      Top             =   1680
      Width           =   9255
   End
   Begin VB.Frame Frame1 
      BackColor       =   &H00FFFFFF&
      BorderStyle     =   0  'None
      Caption         =   "请输入您的姓名和密码："
      BeginProperty Font 
         Name            =   "华文行楷"
         Size            =   27.75
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   -1  'True
         Strikethrough   =   0   'False
      EndProperty
      Height          =   3615
      Left            =   8160
      TabIndex        =   6
      Top             =   5880
      Width           =   6615
      Begin VB.TextBox txtname 
         BeginProperty Font 
            Name            =   "楷体_GB2312"
            Size            =   26.25
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   645
         Left            =   3120
         TabIndex        =   1
         Text            =   "wjb"
         Top             =   120
         Width           =   2175
      End
      Begin VB.CommandButton cmdexit 
         BackColor       =   &H00FFC0C0&
         Caption         =   "退出"
         BeginProperty Font 
            Name            =   "楷体_GB2312"
            Size            =   21.75
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   615
         Left            =   4440
         TabIndex        =   4
         Top             =   2640
         Width           =   1575
      End
      Begin VB.CommandButton Cmdok 
         BackColor       =   &H00FFC0C0&
         Caption         =   "登录"
         Enabled         =   0   'False
         BeginProperty Font 
            Name            =   "楷体_GB2312"
            Size            =   21.75
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   615
         Left            =   600
         TabIndex        =   3
         Top             =   2640
         Width           =   1575
      End
      Begin VB.TextBox txtpassword 
         BeginProperty Font 
            Name            =   "楷体_GB2312"
            Size            =   26.25
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   645
         IMEMode         =   3  'DISABLE
         Left            =   3120
         PasswordChar    =   "*"
         TabIndex        =   2
         Text            =   "731229"
         Top             =   1200
         Width           =   2175
      End
      Begin VB.Label lbname 
         BackColor       =   &H00FFFFFF&
         Caption         =   "姓名："
         BeginProperty Font 
            Name            =   "华文行楷"
            Size            =   27.75
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   1095
         Left            =   840
         TabIndex        =   7
         Top             =   240
         Width           =   2055
      End
      Begin VB.Label lbpassword 
         BackColor       =   &H00FFFFFF&
         Caption         =   "密码："
         BeginProperty Font 
            Name            =   "华文行楷"
            Size            =   27.75
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   855
         Left            =   840
         TabIndex        =   0
         Top             =   1320
         Width           =   1935
      End
   End
   Begin VB.Label Label1 
      Alignment       =   2  'Center
      BackColor       =   &H00FFFFFF&
      BackStyle       =   0  'Transparent
      Caption         =   "××大学排课系统"
      BeginProperty Font 
         Name            =   "楷体_GB2312"
         Size            =   48
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00400000&
      Height          =   1215
      Left            =   -120
      TabIndex        =   5
      Top             =   720
      Width           =   15480
   End
End
Attribute VB_Name = "frmlogin"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim db As DAO.Database
Dim st As DAO.Recordset
Dim mywork As Workspace
Dim qry As DAO.QueryDef
Public wename As String
Option Explicit

Private Sub Cmdexit_Click()
    db.Close
    End
End Sub

Private Sub cmdOK_Click()
Dim m As Integer
Dim strsql As String
Const max_logon_attempts As Integer = 3
Static sintloginattempts As Integer
Set qry = db.CreateQueryDef("")
strsql = "parameters trydlname string;"
strsql = strsql & "select * from password where dlname=trydlname"
qry.SQL = strsql
qry.Parameters("trydlname") = txtname.Text
Set st = qry.OpenRecordset()
If st.RecordCount() = 0 Then
    MsgBox "您的用户名有误，请重新输入!"
    txtpassword.Text = ""
    txtname.Text = ""
    txtname.SetFocus
    frmlogin.Hide
    Unload Me
    frmlogin1.Show vbModal
    End
End If
Do Until st.Fields("password") = txtpassword.Text
    sintloginattempts = sintloginattempts + 1
    If sintloginattempts < max_logon_attempts Then
        MsgBox "您的密码错误，请重新输入！"
        txtpassword.Text = ""
        txtpassword.SetFocus
        frmlogin.Hide
        Unload Me
        frmlogin.Show vbModal
    Else
        MsgBox "试图登录次数太多，再见！"
        txtpassword.Text = ""
        txtname.Text = ""
        txtname.SetFocus
        frmlogin.Hide
        frmlogin1.Show vbModal
        End
    End If
Loop
    
    
    frmlogin.Hide
    frmlogin.Cls
    Unload Me
    frmmain.Show vbModal
    db.Close
    End
            
End Sub

Private Sub Form_Load()
 Set db = DBEngine.Workspaces(0).OpenDatabase("d:\wepassword.mdb")
 Cmdok.Enabled = False
End Sub


Private Sub txtpassword_Change()
    If txtpassword.Text <> " " Then
        Cmdok.Enabled = True
    End If
End Sub