frmmain.frm

一个vb编的计算机机房管理系统

VERSION 5.00
Begin VB.MDIForm frmMain 
   BackColor       =   &H8000000C&
   Caption         =   "机房管理系统"
   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         =   "新设备"
      End
      Begin VB.Menu mnuAddFitting 
         Caption         =   "配件"
      End
      Begin VB.Menu mnuAddExpen 
         Caption         =   "消耗品"
      End
   End
   Begin VB.Menu mnuUse 
      Caption         =   "领用"
      Begin VB.Menu mnuUseFitti 
         Caption         =   "配件"
      End
      Begin VB.Menu mnuUseExpen 
         Caption         =   "消耗品"
      End
   End
   Begin VB.Menu mnuOperate 
      Caption         =   "设备操作"
      Begin VB.Menu mnuRegisterEqui 
         Caption         =   "设备管理"
      End
      Begin VB.Menu mnuHireEqui 
         Caption         =   "出租设备"
      End
      Begin VB.Menu mnuRepairEqui 
         Caption         =   "维修设备"
      End
      Begin VB.Menu mnuUselessEqui 
         Caption         =   "报废设备"
      End
   End
   Begin VB.Menu mnuUpCom 
      Caption         =   "上机"
      Begin VB.Menu mnuVindiUser 
         Caption         =   "用户维护"
      End
      Begin VB.Menu mnuUseCom 
         Caption         =   "设备使用"
      End
      Begin VB.Menu mnuCRoom 
         Caption         =   "机房管理"
      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 "数据库连接失败，请检查！"
        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()
'将所有需要打印的页面送入到同一个form中
End Sub

Private Sub mnuRegisterEqui_Click()
'Dim TmpNode As Node
frmEquipment.Show
'TmpNode.Text = "登记设备"
'frmEquipment.TViewEquipment.Nodes.Item(4).Text = "登记设备"
'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