form2.frm

学生信息管理系统

VERSION 5.00
Begin VB.Form Form2 
   BackColor       =   &H00FF8080&
   Caption         =   "Form2"
   ClientHeight    =   7905
   ClientLeft      =   165
   ClientTop       =   735
   ClientWidth     =   11220
   LinkTopic       =   "图书管理中心"
   ScaleHeight     =   7905
   ScaleWidth      =   11220
   StartUpPosition =   3  '窗口缺省
   Begin VB.Image Image1 
      Height          =   1575
      Left            =   2280
      Picture         =   "Form2.frx":0000
      Stretch         =   -1  'True
      Top             =   3240
      Width           =   4185
   End
   Begin VB.Label Label1 
      BackColor       =   &H00FFFF80&
      Caption         =   "欢迎登陆图书管理中心"
      BeginProperty Font 
         Name            =   "华文行楷"
         Size            =   24
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   615
      Left            =   1800
      TabIndex        =   0
      Top             =   1440
      Width           =   4935
   End
   Begin VB.Menu 书籍管理 
      Caption         =   "书籍管理"
      Index           =   0
      Begin VB.Menu 新书入库登记 
         Caption         =   "新书入库登记"
         Index           =   1
      End
      Begin VB.Menu 书库查询 
         Caption         =   "书库查询"
         Index           =   2
      End
   End
   Begin VB.Menu 读者信息管理 
      Caption         =   "读者信息管理"
      Index           =   1
      Begin VB.Menu 读者注册 
         Caption         =   "读者注册"
         Index           =   10
      End
      Begin VB.Menu 读者信息查询 
         Caption         =   "读者信息查询"
         Index           =   11
         Begin VB.Menu 按姓名 
            Caption         =   "按姓名"
            Index           =   111
         End
         Begin VB.Menu 按图书证号 
            Caption         =   "按图书证号"
            Index           =   112
         End
      End
   End
   Begin VB.Menu 借阅信息管理 
      Caption         =   "借阅信息管理"
      Index           =   2
      Begin VB.Menu 借书信息管理 
         Caption         =   "借书信息管理"
         Index           =   21
      End
      Begin VB.Menu 还书信息管理 
         Caption         =   "还书信息管理"
         Index           =   22
      End
   End
   Begin VB.Menu 退出 
      Caption         =   "退出"
      Index           =   3
   End
End
Attribute VB_Name = "Form2"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Picture1_Click(Index As Integer)

End Sub

Private Sub Command1_Click()
Unload Form2
Load Form1
Form1.Show
End Sub

Private Sub 读者注册_Click(Index As Integer)
Load Form5
Form5.Show
End Sub

Private Sub 书库查询_Click(Index As Integer)
Load Form4
Form4.Show
End Sub

Private Sub 退出_Click(Index As Integer)
Unload Form2
Load Form1
Form1.Show
End Sub

Private Sub 新书入库登记_Click(Index As Integer)
Load Form3
Form3.Show
End Sub