frmlib.frm

第一次用VB编写的图书管理系统,仅供大家参考,呵呵,不足之处多多包含

VERSION 5.00
Begin VB.Form FrmMain 
   Caption         =   "图书借阅系统"
   ClientHeight    =   3180
   ClientLeft      =   3990
   ClientTop       =   3705
   ClientWidth     =   4680
   Icon            =   "FrmLib.frx":0000
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   MaxButton       =   0   'False
   ScaleHeight     =   3180
   ScaleWidth      =   4680
   Begin VB.CommandButton cmdfirst 
      Cancel          =   -1  'True
      Caption         =   "退 出(&E)"
      Height          =   375
      Index           =   4
      Left            =   720
      TabIndex        =   6
      Top             =   2640
      Width           =   1455
   End
   Begin VB.CommandButton cmdfirst 
      Caption         =   "在线借书(&B)"
      Height          =   375
      Index           =   0
      Left            =   360
      TabIndex        =   0
      Top             =   240
      Width           =   2175
   End
   Begin VB.Timer Timer1 
      Interval        =   1000
      Left            =   4200
      Top             =   240
   End
   Begin VB.PictureBox pic 
      AutoSize        =   -1  'True
      Height          =   1980
      Left            =   2640
      Picture         =   "FrmLib.frx":F84A
      ScaleHeight     =   1920
      ScaleWidth      =   1920
      TabIndex        =   4
      Top             =   240
      Width           =   1980
   End
   Begin VB.CommandButton cmdfirst 
      Caption         =   "管理员(&A)"
      Height          =   375
      Index           =   3
      Left            =   360
      TabIndex        =   3
      Top             =   2040
      Width           =   2175
   End
   Begin VB.CommandButton cmdfirst 
      Caption         =   "学生管理(&S)"
      Height          =   375
      Index           =   2
      Left            =   360
      TabIndex        =   2
      Top             =   1440
      Width           =   2175
   End
   Begin VB.CommandButton cmdfirst 
      Caption         =   "查询图书(&F)"
      Height          =   375
      Index           =   1
      Left            =   360
      TabIndex        =   1
      Top             =   840
      Width           =   2175
   End
   Begin VB.Label lblTime 
      Alignment       =   2  'Center
      BorderStyle     =   1  'Fixed Single
      Caption         =   "欢迎进入"
      BeginProperty Font 
         Name            =   "System"
         Size            =   12
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000000FF&
      Height          =   375
      Left            =   2640
      TabIndex        =   5
      Top             =   2640
      Width           =   1815
   End
End
Attribute VB_Name = "FrmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub showpic()
On Error GoTo Show_Err
pic.Picture = LoadPicture(DBRct_M.Fields(2))
DBRct_M.MoveNext
If DBRct_M.EOF Then DBRct_M.MoveFirst
Show_Err:
End Sub
Private Sub cmdFirst_Click(Index As Integer)
Select Case Index
 Case 0: Load FrmB: FrmB.Show vbModal
 Case 1: Load FrmF: FrmF.Show
 Case 2: Load FrmSL: FrmSL.Show
 Case 3: Load Frmglyuan: Frmglyuan.Show
 Case 4: Unload Me: Call DisConnect: End
End Select
End Sub

Private Sub cmdfirst_KeyPress(Index As Integer, KeyAscii As Integer)
Select Case Chr(KeyAscii)
 Case "B", "b": cmdFirst_Click (0)
 Case "F", "f": cmdFirst_Click (1)
 Case "S", "s": cmdFirst_Click (2)
 Case "A", "a": cmdFirst_Click (3)
 Case "E", "e": cmdFirst_Click (4)
End Select
End Sub


Private Sub Timer1_Timer()
Static t As Byte
lblTime.Caption = Time()
t = t + 1
If t Mod 2 = 0 Then
showpic
t = 0
End If
End Sub