maininterface.frm

简单的图书管理系统

VERSION 5.00
Begin VB.Form Form2 
   Appearance      =   0  'Flat
   BackColor       =   &H80000005&
   BorderStyle     =   0  'None
   Caption         =   "图书管理系统"
   ClientHeight    =   7185
   ClientLeft      =   150
   ClientTop       =   720
   ClientWidth     =   9555
   LinkTopic       =   "Form2"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   7185
   ScaleWidth      =   9555
   ShowInTaskbar   =   0   'False
   StartUpPosition =   3  '窗口缺省
   Begin VB.Image Image1 
      Height          =   7200
      Left            =   0
      Picture         =   "MainInterface.frx":0000
      Top             =   0
      Width           =   9600
   End
   Begin VB.Menu book_BL 
      Caption         =   "图书借阅管理"
      Begin VB.Menu Book_bor 
         Caption         =   "读者借书"
      End
      Begin VB.Menu Book_ret 
         Caption         =   "读者还书"
      End
   End
   Begin VB.Menu Book_man 
      Caption         =   "图书管理"
      Begin VB.Menu Book_Add 
         Caption         =   "添加新书"
      End
      Begin VB.Menu Book_del 
         Caption         =   "删除信息"
      End
      Begin VB.Menu Book_up 
         Caption         =   "修改信息"
      End
   End
   Begin VB.Menu readerman 
      Caption         =   "读者管理"
      Begin VB.Menu reader_add 
         Caption         =   "增加一名读者"
      End
      Begin VB.Menu reader_del 
         Caption         =   "删除一名读者"
      End
      Begin VB.Menu reader_up 
         Caption         =   "修改读者信息"
      End
   End
   Begin VB.Menu SysMan 
      Caption         =   "系统管理"
      Begin VB.Menu user_add 
         Caption         =   "增加用户"
      End
      Begin VB.Menu user_del 
         Caption         =   "删除用户"
      End
      Begin VB.Menu user_up 
         Caption         =   "修改用户信息"
      End
   End
   Begin VB.Menu help 
      Caption         =   "帮助"
      Begin VB.Menu about 
         Caption         =   "关于"
      End
      Begin VB.Menu help_info 
         Caption         =   "帮助信息"
      End
   End
   Begin VB.Menu sys_exit 
      Caption         =   "退出系统"
   End
End
Attribute VB_Name = "Form2"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
Unload Me

End Sub

Private Sub Command2_Click()
Form1.Show vbModal
Form1.Text1.Text = ""
Form1.Text2.Text = ""
End Sub

Private Sub sys_exit_Click()
Unload Me

End Sub