frmmain.frm

数据库课程设计

VERSION 5.00
Begin VB.Form frmMain 
   Caption         =   "设备管理"
   ClientHeight    =   6495
   ClientLeft      =   165
   ClientTop       =   735
   ClientWidth     =   8715
   LinkTopic       =   "Form1"
   ScaleHeight     =   6495
   ScaleWidth      =   8715
   StartUpPosition =   3  'Windows Default
   Begin VB.Menu sysManage 
      Caption         =   "系统管理(&S)"
      Begin VB.Menu exitSystem 
         Caption         =   "退出系统(&X)"
      End
   End
   Begin VB.Menu deviceManage 
      Caption         =   "设备管理(&E)"
      Begin VB.Menu addDevice 
         Caption         =   "添加设备(&A)"
      End
      Begin VB.Menu desertDevice 
         Caption         =   "设备报废(&D)"
      End
      Begin VB.Menu queryDevice 
         Caption         =   "设备查询(&Q)"
      End
   End
   Begin VB.Menu accManage 
      Caption         =   "配件管理(&A)"
      Begin VB.Menu addAccessory 
         Caption         =   "添加配件(&A)"
      End
      Begin VB.Menu updateAccessory 
         Caption         =   "修改/删除配件(&M)"
      End
      Begin VB.Menu queryAccessory 
         Caption         =   "查询配件(&M)"
      End
   End
   Begin VB.Menu maintainence 
      Caption         =   "维修管理(&M)"
      Begin VB.Menu newMaintain 
         Caption         =   "设备维修(&N)"
      End
      Begin VB.Menu queryMaitainence 
         Caption         =   "维修查询(&H)"
      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 addAccessory_Click()
frmAddAcc.Show
End Sub

Private Sub addDevice_Click()
frmAddDevice.Show
End Sub

Private Sub desertDevice_Click()
frmDesertDevice.Show
End Sub

Private Sub exitSystem_Click()
End
End Sub

Private Sub Form_Load()

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

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


End Sub

Private Sub newMaintain_Click()
frmAddMaintain.Show

End Sub

Private Sub queryAccessory_Click()
frmQueryAcc.Show
End Sub

Private Sub queryDevice_Click()
frmQueryDevice.Show
End Sub

Private Sub queryMaitainence_Click()
frmQueryMaintain.Show

End Sub

Private Sub updateAccessory_Click()
frmUpdateAcc.Show
End Sub