form1.frm

以上所有操作应用程序及数据库均要对其进行合法性有效性验证及相关约束条件检查

VERSION 5.00
Begin VB.Form 登入 
   Caption         =   "登入"
   ClientHeight    =   7590
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   9525
   LinkTopic       =   "Form1"
   ScaleHeight     =   7590
   ScaleWidth      =   9525
   StartUpPosition =   3  '窗口缺省
   Begin VB.CommandButton Command2 
      Caption         =   "退出"
      Height          =   615
      Left            =   4440
      TabIndex        =   10
      Top             =   6840
      Width           =   1935
   End
   Begin VB.CommandButton command1 
      Caption         =   "确定"
      Height          =   615
      Left            =   1800
      TabIndex        =   9
      Top             =   6840
      Width           =   2055
   End
   Begin VB.TextBox Text2 
      Height          =   735
      IMEMode         =   3  'DISABLE
      Left            =   3840
      PasswordChar    =   "*"
      TabIndex        =   6
      Top             =   5880
      Width           =   2655
   End
   Begin VB.TextBox Text1 
      Height          =   735
      Left            =   3840
      TabIndex        =   5
      Top             =   4680
      Width           =   2655
   End
   Begin VB.Frame Frame1 
      Caption         =   "管理员身份"
      Height          =   1455
      Left            =   1800
      TabIndex        =   1
      Top             =   2760
      Width           =   4215
      Begin VB.OptionButton Option1 
         Caption         =   "图书管理员"
         Height          =   375
         Index           =   2
         Left            =   240
         TabIndex        =   4
         Top             =   960
         Width           =   2055
      End
      Begin VB.OptionButton Option1 
         Caption         =   "图书编目员"
         Height          =   375
         Index           =   1
         Left            =   240
         TabIndex        =   3
         Top             =   600
         Width           =   2055
      End
      Begin VB.OptionButton Option1 
         Caption         =   "借阅人"
         Height          =   375
         Index           =   0
         Left            =   240
         TabIndex        =   2
         Top             =   240
         Width           =   2055
      End
   End
   Begin VB.Label Label3 
      Caption         =   "密码:"
      Height          =   615
      Left            =   1800
      TabIndex        =   8
      Top             =   6000
      Width           =   1455
   End
   Begin VB.Label Label2 
      Caption         =   "图书证："
      Height          =   615
      Left            =   1800
      TabIndex        =   7
      Top             =   4680
      Width           =   1455
   End
   Begin VB.Label Label1 
      Caption         =   "欢迎登陆到图书馆管理系统"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   15
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   855
      Left            =   1920
      TabIndex        =   0
      Top             =   960
      Width           =   4215
   End
End
Attribute VB_Name = "登入"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False




Private Sub Command1_Click()
Dim STR1, STR2 As String

If staoPtion = 0 Then
    STR1 = "SELECT * FROM " + "stuloading" + " where door_no='" + Trim(Text1.Text) + "'"
ElseIf staoPtion = 1 Then
    STR1 = "SELECT * FROM " + "biruloading" + " where door_no='" + Trim(Text1.Text) + "'"
Else
    STR1 = "SELECT * FROM " + "libloading" + " where door_no='" + Trim(Text1.Text) + "'"
End If

ExecSql (STR1)

With adoRs
    If Not .EOF And Not .BOF Then
    STR2 = Trim(.Fields("door_password").Value)
    
        If STR2 = Trim(Text2.Text) Then
            DoorNumber = Trim(Text1.Text)
            If staoPtion = 0 Then
                Main.Show
            ElseIf staoPtion = 1 Then
                    编目.Show
            Else
                     图书馆借书.Show
            End If
        Exit Sub
        End If
    End If
    MsgBox "密码输入不正确或用户不存在,请重新输入"
    Text1.Text = ""
    Text2.Text = ""
   .Close
   
End With
  


   
End Sub

Private Sub Command2_Click()
End
End Sub

Private Sub Form_Load()
staoPtion = 0
End Sub

Private Sub Option1_Click(Index As Integer)
If Index = 0 Then
    staoPtion = 0
ElseIf Index = 1 Then
    staoPtion = 1
Else
    staoPtion = 2
End If


End Sub