frmreader.frm

来自「图书馆管理」· FRM 代码 · 共 42 行

VERSION 5.00
Begin VB.Form FrmReader 
   Caption         =   "Form2"
   ClientHeight    =   7980
   ClientLeft      =   165
   ClientTop       =   855
   ClientWidth     =   11190
   LinkTopic       =   "Form2"
   Picture         =   "FrmReader.frx":0000
   ScaleHeight     =   7980
   ScaleWidth      =   11190
   StartUpPosition =   3  '窗口缺省
   Begin VB.Menu mnuselect 
      Caption         =   "查询"
      Begin VB.Menu mnubookselect 
         Caption         =   "书库查询"
      End
      Begin VB.Menu mnulendselect 
         Caption         =   "借阅查询"
      End
   End
   Begin VB.Menu mnuexit 
      Caption         =   "退出"
   End
End
Attribute VB_Name = "FrmReader"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub mnubookselect_Click()
FrmBookQuery.Show
End Sub

Private Sub mnuexit_Click()
Unload Me
End Sub

Private Sub mnulendselect_Click()
FrmLendQuery.Show
End Sub