guanliyuandenglu.frm

这是我学生写的关于游戏系统的论文

VERSION 5.00
Begin VB.Form guanliyuandenglu 
   Caption         =   "管理员登录"
   ClientHeight    =   3195
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   3195
   ScaleWidth      =   4680
   StartUpPosition =   2  '屏幕中心
   Begin VB.Frame Frame1 
      Height          =   3135
      Left            =   120
      TabIndex        =   0
      Top             =   0
      Width           =   4455
      Begin VB.TextBox Text1 
         Height          =   390
         Left            =   1680
         TabIndex        =   1
         Top             =   600
         Width           =   1695
      End
      Begin VB.CommandButton Command1 
         BackColor       =   &H80000018&
         Caption         =   "登 录"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   12
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   375
         Left            =   840
         MaskColor       =   &H000040C0&
         TabIndex        =   3
         Top             =   2040
         Width           =   855
      End
      Begin VB.Data userData 
         Caption         =   "Data1"
         Connect         =   "Access"
         DatabaseName    =   "D:\图书管理系统\db2.mdb"
         DefaultCursorType=   0  '缺省游标
         DefaultType     =   2  '使用 ODBC
         Exclusive       =   0   'False
         Height          =   345
         Left            =   960
         Options         =   0
         ReadOnly        =   0   'False
         RecordsetType   =   1  'Dynaset
         RecordSource    =   "manager"
         Top             =   2640
         Visible         =   0   'False
         Width           =   1140
      End
      Begin VB.CommandButton Command2 
         Caption         =   "取 消"
         Default         =   -1  'True
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   12
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   375
         Left            =   2160
         TabIndex        =   4
         Top             =   2040
         Width           =   855
      End
      Begin VB.TextBox Text2 
         Height          =   375
         IMEMode         =   3  'DISABLE
         Left            =   1680
         PasswordChar    =   "*"
         TabIndex        =   2
         Top             =   1320
         Width           =   1695
      End
      Begin VB.Label Label1 
         AutoSize        =   -1  'True
         BackColor       =   &H80000013&
         Caption         =   "密  码:"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   12
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H80000008&
         Height          =   240
         Index           =   1
         Left            =   600
         TabIndex        =   6
         Top             =   1440
         Width           =   930
      End
      Begin VB.Label Label1 
         AutoSize        =   -1  'True
         BackColor       =   &H80000013&
         Caption         =   "管理员:"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   12
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H80000008&
         Height          =   240
         Index           =   0
         Left            =   600
         TabIndex        =   5
         Top             =   720
         Width           =   915
      End
   End
End
Attribute VB_Name = "guanliyuandenglu"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
Dim ts As Recordset
Set ts = userData.Recordset
ts.MoveFirst
condition = "username='" & Text1.Text & "' And password='" & Text2.Text & "' and class='管理员'"
'condition1 = "password'" & Text1.Text & "'"
userData.Recordset.FindFirst condition
If userData.Recordset.NoMatch Then
   
   MsgBox "用户名或密码不正确,或者你不是管理员,没有权利管理用户,请重试!"
    Text1.SetFocus
   
Else
   Load usermanager
   usermanager.Show
   Unload guanliyuandenglu
End If
End Sub

Private Sub Command2_Click()
Unload guanliyuandenglu
End Sub

Private Sub Frame1_DragDrop(Source As Control, X As Single, Y As Single)
Text1.SetFocus
End Sub