?? frmmain.frm
字號:
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
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -