mainfrm.frm

是有关于音像制品的管理系统

VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx"
Begin VB.MDIForm mainFrm 
   BackColor       =   &H00E0E0E0&
   Caption         =   "主系统"
   ClientHeight    =   5850
   ClientLeft      =   165
   ClientTop       =   450
   ClientWidth     =   10200
   LinkTopic       =   "MDIForm1"
   Picture         =   "mainFrm.frx":0000
   StartUpPosition =   1  '所有者中心
   Begin VB.PictureBox Picture1 
      Align           =   1  'Align Top
      AutoRedraw      =   -1  'True
      Height          =   10455
      Left            =   0
      ScaleHeight     =   10395
      ScaleWidth      =   10140
      TabIndex        =   1
      Top             =   0
      Width           =   10200
   End
   Begin MSComctlLib.StatusBar StatusBar1 
      Align           =   2  'Align Bottom
      Height          =   375
      Left            =   0
      TabIndex        =   0
      Top             =   5475
      Width           =   10200
      _ExtentX        =   17992
      _ExtentY        =   661
      _Version        =   393216
      BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628} 
         NumPanels       =   3
         BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            AutoSize        =   1
            Object.Width           =   12356
         EndProperty
         BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Style           =   6
            TextSave        =   "2008-1-18"
         EndProperty
         BeginProperty Panel3 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Style           =   5
            TextSave        =   "9:45"
         EndProperty
      EndProperty
   End
   Begin VB.Menu bookManage 
      Caption         =   "产品管理"
      Begin VB.Menu menuAddbook 
         Caption         =   "新进产品"
      End
      Begin VB.Menu menuInquirebook 
         Caption         =   "查询产品"
      End
      Begin VB.Menu menuShowingAll 
         Caption         =   "显示所有产品"
      End
   End
   Begin VB.Menu readerManage 
      Caption         =   "会员管理"
      Begin VB.Menu menuModifyreader 
         Caption         =   "修改会员信息"
      End
      Begin VB.Menu menuDeletereader 
         Caption         =   "删除会员信息"
      End
   End
   Begin VB.Menu BuyMenu 
      Caption         =   "购买信息管理"
      Begin VB.Menu menuBuy 
         Caption         =   "购买"
      End
   End
   Begin VB.Menu BookMenu 
      Caption         =   "预定信息管理"
      Begin VB.Menu menuBook 
         Caption         =   "预定"
      End
   End
   Begin VB.Menu borrowManage 
      Caption         =   "租借信息管理"
      Begin VB.Menu menuModityborrow 
         Caption         =   "租借"
      End
   End
   Begin VB.Menu returnManage 
      Caption         =   "归还信息管理"
      Begin VB.Menu menuModifyreturn 
         Caption         =   "归还"
      End
   End
   Begin VB.Menu menuSysHelp 
      Caption         =   "系统帮助"
      Begin VB.Menu menuAbout 
         Caption         =   "关于本软件"
      End
   End
   Begin VB.Menu Exit 
      Caption         =   "退出"
   End
End
Attribute VB_Name = "mainFrm"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Sub exit_Click()
    End
End Sub

Private Sub MDIForm_Unload(cancel As Integer)
    cancel = True
End Sub

Private Sub menuAbout_Click()
    frmAbout.Show
End Sub

Private Sub menuAddbook_Click()
    bookAdd.Show
End Sub

Private Sub menuAddreturn_Click()
    returnInfoAdd.Show
End Sub

Private Sub menuAdduser_Click()
    addUser.Show
End Sub

Private Sub menuBook_Click()
    book.Show
End Sub

Private Sub menuBuy_Click()
    buy.Show
End Sub

Private Sub menuDeleteborrow_Click()
    borrowInfo.Show
End Sub

Private Sub menuDeletereader_Click()
    readerInfolist.Show
    MsgBox "请输入或在列表中选择要删除会员的编号！", vbOKOnly
End Sub

Private Sub menuDelReturnInfo_Click()
    returnInfo.Show
End Sub

Private Sub menuInquirebook_Click()
    bookQuery.Show
End Sub

Private Sub menuModifypwd_Click()
    modifyPwd.Show
End Sub

Private Sub menuModifyreader_Click()
    readerInfolist.Show
    MsgBox "请先输入或在列表中选定要修改的会员编号！", vbOKOnly
End Sub

Private Sub menuModifyreturn_Click()
    returnInfo.Show
End Sub

Private Sub menuModityborrow_Click()
    borrowInfo.Show
    MsgBox "请先输入或在列表中选定要修改的产品编号！", vbOKOnly
End Sub

Private Sub menuShowingAll_Click()
    ShowingAll.Show
End Sub