frmzong.frm

图书管理系统,图书信息,添加学生信息,借书与归还记载,借书卡办理,查询图书信息

VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx"
Begin VB.Form frmzong 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "图书管理系统"
   ClientHeight    =   6045
   ClientLeft      =   150
   ClientTop       =   435
   ClientWidth     =   8175
   BeginProperty Font 
      Name            =   "宋体"
      Size            =   10.5
      Charset         =   134
      Weight          =   400
      Underline       =   0   'False
      Italic          =   0   'False
      Strikethrough   =   0   'False
   EndProperty
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   Picture         =   "frmzong.frx":0000
   ScaleHeight     =   6045
   ScaleWidth      =   8175
   StartUpPosition =   3  '窗口缺省
   Begin MSComctlLib.ImageList ImageList1 
      Left            =   720
      Top             =   1680
      _ExtentX        =   1005
      _ExtentY        =   1005
      BackColor       =   -2147483643
      ImageWidth      =   32
      ImageHeight     =   32
      MaskColor       =   12632256
      _Version        =   393216
      BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
         NumListImages   =   7
         BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmzong.frx":B06F4
            Key             =   ""
         EndProperty
         BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmzong.frx":B0B46
            Key             =   ""
         EndProperty
         BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmzong.frx":B0F98
            Key             =   ""
         EndProperty
         BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmzong.frx":B12B2
            Key             =   ""
         EndProperty
         BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmzong.frx":B1704
            Key             =   ""
         EndProperty
         BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmzong.frx":B1B56
            Key             =   ""
         EndProperty
         BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmzong.frx":B1FA8
            Key             =   ""
         EndProperty
      EndProperty
   End
   Begin MSComctlLib.Toolbar Toolbar1 
      Align           =   1  'Align Top
      Height          =   585
      Left            =   0
      TabIndex        =   0
      Top             =   0
      Width           =   8175
      _ExtentX        =   14420
      _ExtentY        =   1032
      ButtonWidth     =   1455
      ButtonHeight    =   926
      _Version        =   393216
      BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
         NumButtons      =   9
         BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "图书管理"
         EndProperty
         BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "学生信息"
         EndProperty
         BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "办卡"
         EndProperty
         BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "借书管理"
         EndProperty
         BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "还书管理"
         EndProperty
         BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "书库查询"
         EndProperty
         BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "数据备份"
         EndProperty
         BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "数据还原"
         EndProperty
         BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "安全退出"
         EndProperty
      EndProperty
      OLEDropMode     =   1
   End
   Begin VB.Image Image1 
      Height          =   11700
      Left            =   0
      Picture         =   "frmzong.frx":B23FA
      Stretch         =   -1  'True
      Top             =   0
      Width           =   15540
   End
   Begin VB.Menu a 
      Caption         =   "图书管理"
      Visible         =   0   'False
   End
   Begin VB.Menu b 
      Caption         =   "办卡"
      Visible         =   0   'False
   End
   Begin VB.Menu c 
      Caption         =   "借书管理"
      Visible         =   0   'False
   End
   Begin VB.Menu d 
      Caption         =   "还书管理"
      Visible         =   0   'False
   End
   Begin VB.Menu f 
      Caption         =   "书库查询"
      Visible         =   0   'False
   End
   Begin VB.Menu g 
      Caption         =   "系统维护"
      Visible         =   0   'False
      Begin VB.Menu g1 
         Caption         =   "数据备份"
      End
      Begin VB.Menu g2 
         Caption         =   "数据还原"
      End
   End
   Begin VB.Menu quit 
      Caption         =   "安全退出"
      Visible         =   0   'False
   End
End
Attribute VB_Name = "frmzong"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
MsgBox Me.Width
MsgBox Me.Height
End Sub

Private Sub Form_Load()
Me.Left = (Screen.Width - Me.Width) / 2
Me.Top = (Screen.Height - Me.Height) / 2
'Me.ScaleHeight = 0
'Me.ScaleWidth = 0

Me.PaintPicture Me.Picture, 0, 0, Me.ScaleWidth, Me.ScaleHeight
End Sub



Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Index
      Case 1
         frmtushu.Show 1
      Case 2
         frmstudent.Show 1
      Case 3
         frmbanka.Show 1
      Case 4
         frmjieshu.Show 1
      Case 5
         frmhuanshu.Show 1
      Case 6
         frmchaxun.Show 1
      Case 7
         frmbeifen.Show 1
      Case 8
        frm_restore.Show 1
'Dim iTask As Long
''调用数据恢复可执行文件
'MsgBox "请先建立一个名称为 test 的数据源，其对应数据任意但不能是tshgl并关闭Vb程序！", 64, "提示信息"
'
'iTask = Shell(App.Path & "\restore\Restore.exe", vbNormalFocus)
'End
      Case 9
       c11 = MsgBox("确认要退出图书管理系统吗？", 33, "图书管理系统")
       If c11 = vbOK Then
        End
       End If
End Select
End Sub