来自「As information technology is more and mo」· 代码 · 共 82 行

VERSION 5.00
Begin VB.Form Form6 
   Caption         =   "查询界面"
   ClientHeight    =   6090
   ClientLeft      =   165
   ClientTop       =   855
   ClientWidth     =   7545
   LinkTopic       =   "Form6"
   ScaleHeight     =   6090
   ScaleWidth      =   7545
   StartUpPosition =   3  '窗口缺省
   Begin VB.PictureBox Picture1 
      Height          =   6495
      Left            =   0
      Picture         =   "查询界面.frx":0000
      ScaleHeight     =   6435
      ScaleWidth      =   8955
      TabIndex        =   0
      Top             =   0
      Width           =   9015
   End
   Begin VB.Menu jibenxinxi 
      Caption         =   "图书馆信息"
      Begin VB.Menu jianjie 
         Caption         =   "图书馆简介"
      End
      Begin VB.Menu tushuguanixni 
         Caption         =   "图书馆信息"
      End
      Begin VB.Menu tushuguanweizhi 
         Caption         =   "图书室位置"
      End
   End
   Begin VB.Menu borrow 
      Caption         =   "借书信息"
   End
   Begin VB.Menu reader 
      Caption         =   "读者信息"
   End
   Begin VB.Menu exit 
      Caption         =   "退出"
   End
End
Attribute VB_Name = "Form6"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub borrow_Click()
Form6.Hide
frmfindborrowinfo.Show
End Sub

Private Sub exit_Click()
Form6.Hide
Form1.Show
End Sub

Private Sub jianjie_Click()
Form6.Hide
Form7.Show
End Sub

Private Sub reader_Click()
Form6.Hide
frmfindreaderinfo.Show
End Sub

Private Sub tushuguanixni_Click()
Form6.Hide
Form8.Show
End Sub

Private Sub tushuguanweizhi_Click()
Form6.Hide
Form9.Show
End Sub

Private Sub tushuxinxi_Click()

End Sub