frmmain.frm

来自「数据库课程设计」· FRM 代码 · 共 144 行

VERSION 5.00
Begin VB.Form frmMain 
   Caption         =   "影碟出租管理系统"
   ClientHeight    =   6465
   ClientLeft      =   165
   ClientTop       =   735
   ClientWidth     =   9420
   LinkTopic       =   "Form1"
   ScaleHeight     =   6465
   ScaleWidth      =   9420
   StartUpPosition =   3  'Windows Default
   Begin VB.Menu systemmanage 
      Caption         =   "系统管理(&S)"
      Begin VB.Menu exitSys 
         Caption         =   "退出系统(&X)"
      End
   End
   Begin VB.Menu member 
      Caption         =   "会员管理(&M)"
      Begin VB.Menu addMember 
         Caption         =   "会员添加(&A)"
      End
      Begin VB.Menu updateMember 
         Caption         =   "删改会员(&U)"
      End
      Begin VB.Menu queryMember 
         Caption         =   "会员查询(&Q)"
      End
   End
   Begin VB.Menu category 
      Caption         =   "类别管理(&C)"
      Begin VB.Menu addCategory 
         Caption         =   "类别添加(&A)"
      End
      Begin VB.Menu updateCategory 
         Caption         =   "类别删改(&U)"
      End
      Begin VB.Menu listCategory 
         Caption         =   "类别列表(&L)"
      End
   End
   Begin VB.Menu videoDisk 
      Caption         =   "影碟管理(&D)"
      Begin VB.Menu addDisk 
         Caption         =   "影碟添加(&A)"
      End
      Begin VB.Menu updateDisk 
         Caption         =   "影碟删改(&U)"
      End
      Begin VB.Menu queryDisk 
         Caption         =   "影碟查询(&Q)"
      End
   End
   Begin VB.Menu lend 
      Caption         =   "租借管理(&L)"
      Begin VB.Menu lendDisk 
         Caption         =   "影碟出租(&O)"
      End
      Begin VB.Menu returnDisk 
         Caption         =   "影碟归还(&R)"
      End
      Begin VB.Menu querylendInfo 
         Caption         =   "租借查询(&Q)"
      End
   End
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub addCategory_Click()
frmAddCategory.Show

End Sub

Private Sub addDisk_Click()
frmAddDisk.Show

End Sub

Private Sub addMember_Click()
frmAddMember.Show

End Sub

Private Sub Form_Load()

'窗体居中显示
Me.Top = (Screen.Height - Me.Height) \ 2
Me.Left = (Screen.Width - Me.Width) \ 2

'获取数据库的位置
dbPath = App.Path + "\db\diskrent.mdb"
connStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbPath

End Sub

Private Sub lendDisk_Click()
frmRentDisk.Show

End Sub

Private Sub listCategory_Click()
frmListCategory.Show

End Sub

Private Sub queryDisk_Click()
frmQueryDisk.Show

End Sub

Private Sub querylendInfo_Click()
frmQueryLendInfo.Show

End Sub

Private Sub queryMember_Click()
frmQueryMember.Show

End Sub

Private Sub returnDisk_Click()
frmReturnDisk.Show

End Sub

Private Sub updateCategory_Click()
frmUpdateCat.Show

End Sub

Private Sub updateDisk_Click()
frmUpdateDisk.Show

End Sub

Private Sub updateMember_Click()
frmUpdateMember.Show


End Sub