主界面.frm

ＶＢ的图书馆管理系统．管理员的帐号和密码都是

VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form Form02 
   AutoRedraw      =   -1  'True
   Caption         =   "图书馆管理系统"
   ClientHeight    =   7140
   ClientLeft      =   165
   ClientTop       =   855
   ClientWidth     =   9510
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   Picture         =   "主界面.frx":0000
   ScaleHeight     =   7140
   ScaleWidth      =   9510
   StartUpPosition =   3  '窗口缺省
   WhatsThisButton =   -1  'True
   WhatsThisHelp   =   -1  'True
   Begin MSComctlLib.StatusBar StatusBar1 
      Align           =   2  'Align Bottom
      Height          =   360
      Left            =   0
      TabIndex        =   0
      Top             =   6780
      Width           =   9510
      _ExtentX        =   16775
      _ExtentY        =   635
      _Version        =   393216
      BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628} 
         NumPanels       =   3
         BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Object.Width           =   12347
            MinWidth        =   12347
         EndProperty
         BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Style           =   6
            TextSave        =   "2006-11-12"
         EndProperty
         BeginProperty Panel3 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Style           =   5
            TextSave        =   "9:16"
         EndProperty
      EndProperty
   End
   Begin VB.Image Image1 
      Height          =   6615
      Left            =   0
      Picture         =   "主界面.frx":1334
      Stretch         =   -1  'True
      Top             =   0
      Width           =   9495
   End
   Begin VB.Menu RD 
      Caption         =   "读者用户(&R)"
      Begin VB.Menu RD1 
         Caption         =   "添加用户(&A)"
      End
      Begin VB.Menu RD2 
         Caption         =   "删除用户(&D)"
      End
      Begin VB.Menu RD3 
         Caption         =   "修改用户信息(&M)"
      End
      Begin VB.Menu RD4 
         Caption         =   "查询用户(&C)"
      End
   End
   Begin VB.Menu B 
      Caption         =   "图书管理(&B)"
      Begin VB.Menu B1 
         Caption         =   "借书(&L)"
      End
      Begin VB.Menu B4 
         Caption         =   "还书(&K)"
      End
   End
   Begin VB.Menu S 
      Caption         =   "查询图书(&S)"
   End
   Begin VB.Menu U 
      Caption         =   "用户设置(&U)"
      Begin VB.Menu U1 
         Caption         =   "添加管理员"
      End
      Begin VB.Menu U2 
         Caption         =   "更改密码"
      End
      Begin VB.Menu U3 
         Caption         =   "切换用户"
      End
   End
   Begin VB.Menu Q 
      Caption         =   "退出(&Q)"
   End
End
Attribute VB_Name = "Form02"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Sub B1_Click()
Form06.Show
End Sub

Private Sub B4_Click()
Form08.Show
End Sub

Private Sub Q_Click()
End
End Sub

Private Sub RD1_Click()
Form03.Show
End Sub

Private Sub RD2_Click()
Form04.Show
End Sub

Private Sub RD3_Click()
Form04.Show
End Sub

Private Sub RD4_Click()
Form05.Show
End Sub

Private Sub S_Click()
Form09.Show
End Sub

Private Sub U1_Click()
Form10.Show
End Sub

Private Sub U2_Click()
Form11.Show
End Sub

Private Sub U3_Click()
Form01.Show
Unload Me
End Sub