frm_start.frm

基于vb的图书管理系统的设计

VERSION 5.00
Begin VB.Form frm_Start 
   BackColor       =   &H00FF8080&
   BorderStyle     =   0  'None
   ClientHeight    =   4680
   ClientLeft      =   0
   ClientTop       =   2130
   ClientWidth     =   6810
   LinkTopic       =   "Form1"
   MousePointer    =   11  'Hourglass
   Picture         =   "frm_Start.frx":0000
   ScaleHeight     =   4680
   ScaleWidth      =   6810
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  '屏幕中心
   Begin VB.CommandButton Command2 
      Caption         =   "普通用户登陆"
      Height          =   375
      Left            =   3600
      TabIndex        =   3
      Top             =   2880
      Visible         =   0   'False
      Width           =   1455
   End
   Begin VB.CommandButton Command1 
      Caption         =   "管理员登陆"
      Height          =   375
      Left            =   1560
      TabIndex        =   2
      Top             =   2880
      Visible         =   0   'False
      Width           =   1215
   End
   Begin VB.Timer Timer1 
      Interval        =   50
      Left            =   5085
      Top             =   3915
   End
   Begin VB.Label mfrm_Main 
      Caption         =   "Label1"
      Height          =   1215
      Left            =   1680
      TabIndex        =   1
      Top             =   1320
      Visible         =   0   'False
      Width           =   3735
   End
   Begin VB.Label lblTitle 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "正在加载系统资源，请等待..."
      ForeColor       =   &H00000000&
      Height          =   180
      Left            =   360
      TabIndex        =   0
      Top             =   4140
      Width           =   2430
   End
End
Attribute VB_Name = "frm_Start"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Dim m As Integer
Dim n As Integer

Private Sub Command1_Click()
frm_Login.Show 1
Unload frm_Start

End Sub

Private Sub Command2_Click()
frm_Borrow.Show
Unload frm_Start
End Sub

Private Sub Form_Load()
m = 0
n = 3
End Sub

Private Sub Timer1_Timer()
m = m + 1

If m = 100 Then
 Unload Me
 frm_PD.Show 1
 

 
End If

If m = 10 Then
 lblTitle.Caption = "正在加载登录验证信息，请等待..."
End If

If m = 20 Then
  frm_Login.Show 1
 lblTitle.Caption = "正在验证用户输入的信息，请等待..."
 Dim rsR As New classCon
 Dim strPWD As String
 If rsR.IsRecord(strID, "AdminInfo") Then
   strPWD = rsR.strField(strID, 3, "AdminInfo")
   strPopedom = rsR.strField(strID, 2, "AdminInfo")
   If strAPWD = strPWD Then
     loginFlag = True
   Else
     loginFlag = False
   End If
 Else
   loginFlag = False
 End If
End If

If m = 30 And loginFlag = True Then
 lblTitle.Caption = "用户输入的信息已通过验证！"
 Set rsR = Nothing
End If

If m = 30 And loginFlag = False Then
 n = n - 1
 If n = 0 Then
  MsgBox "你无权使用本系统！", 48, "警告"
  End
 End If
 
 lblTitle.Caption = "警告：用户输入的信息错误！" & "您还有 " & n & " 次机会"
 m = 19
End If

If m = 50 Then
  lblTitle.Caption = "正在继续加载系统资源，请等待..."
  mfrm_Main.Caption = "图书馆信息管理系统"
  If strPopedom = "普通管理员" Then
 
  'mfrm_Main.mnuDSClear.Enabled = False
'mfrm_Main.mnuSetAAdmin.Enabled = False
  End If
End If
End Sub