VERSION 5.00
Begin VB.MDIForm frmMain 
   BackColor       =   &H8000000C&
   Caption         =   "機(jī)房管理系統(tǒng)"
   ClientHeight    =   6960
   ClientLeft      =   60
   ClientTop       =   750
   ClientWidth     =   8160
   LinkTopic       =   "MDIForm1"
   StartUpPosition =   2  '屏幕中心
   WindowState     =   2  'Maximized
   Begin VB.Menu mnuFile 
      Caption         =   "文件"
      Begin VB.Menu mnuPrint 
         Caption         =   "打印"
      End
      Begin VB.Menu mnuExitFun 
         Caption         =   "退出"
      End
   End
   Begin VB.Menu mnuAdd 
      Caption         =   "添加"
      Begin VB.Menu mnuAddNewEqui 
         Caption         =   "新設(shè)備"
      End
      Begin VB.Menu mnuAddFitting 
         Caption         =   "配件"
      End
      Begin VB.Menu mnuAddExpen 
         Caption         =   "消耗品"
      End
   End
   Begin VB.Menu mnuUse 
      Caption         =   "領(lǐng)用"
      Begin VB.Menu mnuUseFitti 
         Caption         =   "配件"
      End
      Begin VB.Menu mnuUseExpen 
         Caption         =   "消耗品"
      End
   End
   Begin VB.Menu mnuOperate 
      Caption         =   "設(shè)備操作"
      Begin VB.Menu mnuRegisterEqui 
         Caption         =   "設(shè)備管理"
      End
      Begin VB.Menu mnuHireEqui 
         Caption         =   "出租設(shè)備"
      End
      Begin VB.Menu mnuRepairEqui 
         Caption         =   "維修設(shè)備"
      End
      Begin VB.Menu mnuUselessEqui 
         Caption         =   "報(bào)廢設(shè)備"
      End
   End
   Begin VB.Menu mnuUpCom 
      Caption         =   "上機(jī)"
      Begin VB.Menu mnuVindiUser 
         Caption         =   "用戶維護(hù)"
      End
      Begin VB.Menu mnuUseCom 
         Caption         =   "設(shè)備使用"
      End
      Begin VB.Menu mnuCRoom 
         Caption         =   "機(jī)房管理"
      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 MDIForm_Load()
If Not objDBOpt.ConnectToDb(strConnStr) Then
        MsgBox "數(shù)據(jù)庫連接失敗，請檢查！"
        End
    End If
End Sub

Private Sub mnuAddExpen_Click()
    frmAddExpendable.Show
End Sub

Private Sub mnuAddFitting_Click()
    frmAddFittings.Show
End Sub

Private Sub mnuAddNewEqui_Click()
    frmNewequipment.Show
    frmNewequipment.cmdDelete.Enabled = False
    frmNewequipment.CmdModify.Enabled = False
    frmNewequipment.CmdQuery.Enabled = False
    frmNewequipment.cmdAdd.Caption = "提交"
End Sub


Private Sub mnuCRoom_Click()
    frmArrange.Show
End Sub

Private Sub mnuExitFun_Click()
    End
End Sub

Private Sub mnuPrint_Click()
'將所有需要打印的頁面送入到同一個(gè)form中
End Sub

Private Sub mnuRegisterEqui_Click()
'Dim TmpNode As Node
frmEquipment.Show
'TmpNode.Text = "登記設(shè)備"
'frmEquipment.TViewEquipment.Nodes.Item(4).Text = "登記設(shè)備"
'frmEquipment.TViewEquipment_NodeClick (TmpNode)
End Sub

Private Sub mnuRepairEqui_Click()
    frmRepair.Show
End Sub

Private Sub mnuUseCom_Click()
    frmRoom.Show
End Sub

Private Sub mnuUseExpen_Click()
    frmUseExpendable.Show
End Sub

Private Sub mnuUseFitti_Click()
    frmUseFittings.Show
End Sub

Private Sub mnuUselessEqui_Click()
    frmUseless.Show
End Sub

Private Sub mnuVindiUser_Click()
    frmUser.Show
End Sub