mdiform1.frm

这是一个vb图书管理系统程序

VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx"
Begin VB.MDIForm MDIForm1 
   BackColor       =   &H00808080&
   Caption         =   "主菜单"
   ClientHeight    =   7110
   ClientLeft      =   4155
   ClientTop       =   2490
   ClientWidth     =   9615
   LinkTopic       =   "MDIForm1"
   Picture         =   "MDIForm1.frx":0000
   Begin MSComctlLib.ImageList ImageList1 
      Left            =   5280
      Top             =   1440
      _ExtentX        =   1005
      _ExtentY        =   1005
      BackColor       =   -2147483643
      ImageWidth      =   55
      ImageHeight     =   32
      MaskColor       =   12632256
      _Version        =   393216
      BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
         NumListImages   =   6
         BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "MDIForm1.frx":116C7
            Key             =   ""
         EndProperty
         BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "MDIForm1.frx":12C19
            Key             =   ""
         EndProperty
         BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "MDIForm1.frx":14013
            Key             =   ""
         EndProperty
         BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "MDIForm1.frx":15365
            Key             =   ""
         EndProperty
         BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "MDIForm1.frx":16837
            Key             =   ""
         EndProperty
         BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "MDIForm1.frx":17CB9
            Key             =   ""
         EndProperty
      EndProperty
   End
   Begin MSComctlLib.Toolbar Toolbar1 
      Align           =   1  'Align Top
      Height          =   795
      Left            =   0
      TabIndex        =   0
      Top             =   0
      Width           =   9615
      _ExtentX        =   16960
      _ExtentY        =   1402
      ButtonWidth     =   1640
      ButtonHeight    =   1349
      Appearance      =   1
      Style           =   1
      ImageList       =   "ImageList1"
      _Version        =   393216
      BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
         NumButtons      =   6
         BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "退出"
            Key             =   "SC"
            ImageIndex      =   1
         EndProperty
         BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "添加用户"
            Key             =   "SB"
            ImageIndex      =   2
         EndProperty
         BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "密码修改"
            Key             =   "SA"
            ImageIndex      =   3
         EndProperty
         BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "书籍类别"
            Key             =   "plm"
            ImageIndex      =   4
         EndProperty
         BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "书籍信息"
            Key             =   "JAF"
            ImageIndex      =   5
         EndProperty
         BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "帮助"
            Key             =   "AB"
            ImageIndex      =   6
         EndProperty
      EndProperty
   End
   Begin VB.Menu S 
      Caption         =   "系统"
      Begin VB.Menu SA 
         Caption         =   "修改密码"
      End
      Begin VB.Menu SB 
         Caption         =   "添加用户"
      End
      Begin VB.Menu SC 
         Caption         =   "退出"
      End
   End
   Begin VB.Menu R 
      Caption         =   "读者管理"
      Begin VB.Menu RB 
         Caption         =   "修改读者信息"
      End
      Begin VB.Menu RD 
         Caption         =   "查询读者信息"
      End
   End
   Begin VB.Menu J 
      Caption         =   "书籍管理"
      Begin VB.Menu JA 
         Caption         =   "书籍类别管理"
         Begin VB.Menu plm 
            Caption         =   "书籍类别列表"
         End
         Begin VB.Menu JAB 
            Caption         =   "修改书籍类别"
         End
      End
      Begin VB.Menu JAD 
         Caption         =   "书籍信息管理"
         Begin VB.Menu JAF 
            Caption         =   "修改书籍信息"
         End
         Begin VB.Menu JAH 
            Caption         =   "查询书籍信息"
         End
      End
   End
   Begin VB.Menu Y 
      Caption         =   "借阅信息管理"
      Begin VB.Menu YA 
         Caption         =   "借书信息管理"
         Begin VB.Menu YAB 
            Caption         =   "修改借书信息"
         End
         Begin VB.Menu YAD 
            Caption         =   "查询借书信息"
         End
      End
      Begin VB.Menu YAE 
         Caption         =   "还书信息管理"
         Begin VB.Menu YAG 
            Caption         =   "修改还书信息"
         End
         Begin VB.Menu YAH 
            Caption         =   "查询还书信息"
         End
      End
   End
   Begin VB.Menu dy 
      Caption         =   "打印"
      Begin VB.Menu dy1 
         Caption         =   "书籍信息表"
      End
      Begin VB.Menu dy2 
         Caption         =   "借阅信息表"
      End
   End
   Begin VB.Menu B 
      Caption         =   "帮助"
      Begin VB.Menu AB 
         Caption         =   "About"
      End
   End
End
Attribute VB_Name = "MDIForm1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub AB_Click()
帮助.Show
End Sub

Private Sub dy1_Click()
DataReport2.Show
End Sub

Private Sub dy2_Click()
DataReport1.Show
End Sub

Private Sub JAB_Click()
书籍类别.Show
End Sub

Private Sub JAF_Click()
书籍信息.Show
End Sub

Private Sub RA_Click()
读者信息添加.Show
End Sub

Private Sub JAH_Click()
书籍信息查询.Show
End Sub

Private Sub MDIForm_Load()
MDIForm1.Height = Screen.Height
MDIForm1.Width = Screen.Width
MDIForm1.Top = 0
MDIForm1.Left = 0
End Sub

Private Sub plm_Click()
书籍类别列表.Show
End Sub

Private Sub RB_Click()
读者信息添加.Show
End Sub

Private Sub RD_Click()
读者信息查询.Show
End Sub

Private Sub SA_Click()
修改密码.Show
End Sub

Private Sub SB_Click()
添加用户.Show
End Sub

Private Sub SC_Click()
Unload Me
End Sub

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Key
 Case "SB"
SB_Click
 Case "SA"
SA_Click
 Case "plm"
plm_Click
 Case "JAF"
JAF_Click
 Case "AB"
AB_Click
 Case "SC"
SC_Click
End Select
End Sub

Private Sub YAB_Click()
借书信息添加.Show
End Sub

Private Sub YAD_Click()
借书信息查询.Show
End Sub

Private Sub YAG_Click()
还书信息.Show
End Sub

Private Sub YAH_Click()
还书信息查询.Show
End Sub