?? mnu.frm
字號:
VERSION 5.00
Begin VB.Form MNU
Caption = "菜單"
ClientHeight = 1680
ClientLeft = 165
ClientTop = 870
ClientWidth = 8685
LinkTopic = "Form1"
ScaleHeight = 1680
ScaleWidth = 8685
StartUpPosition = 3 'Windows Default
Begin VB.Menu mnuClass
Caption = "班次"
Begin VB.Menu mnuClassChild
Caption = "新增"
Index = 100
End
Begin VB.Menu mnuClassChild
Caption = "修改"
Index = 101
End
Begin VB.Menu mnuClassChild
Caption = "刪除"
Index = 102
End
Begin VB.Menu mnuClassChild
Caption = "刷新"
Index = 103
End
End
Begin VB.Menu mnuClassEdit
Caption = "班次編輯"
Begin VB.Menu mnuClassEditChild
Caption = "刪除"
Index = 100
End
End
Begin VB.Menu mnuEmployee
Caption = "員工管理"
Begin VB.Menu mnuEmployeeAdd
Caption = "新增"
End
Begin VB.Menu mnuEmployeeEdit
Caption = "修改"
End
Begin VB.Menu mnuEmployeeDel
Caption = "刪除"
End
Begin VB.Menu mnuEmployeeRefresh
Caption = "刷新"
End
Begin VB.Menu line4
Caption = "-"
End
Begin VB.Menu mnuEmployeeAllSelect
Caption = "全選"
End
Begin VB.Menu mnuEmployeeAllClear
Caption = "全清"
End
Begin VB.Menu mnuEmployeeReverseSelect
Caption = "反選"
End
Begin VB.Menu mnuEmployeeSelectDel
Caption = "刪除所選"
End
End
Begin VB.Menu mnuSetClass
Caption = "班次設定"
Begin VB.Menu mnuSetClassAdd
Caption = "插入一行"
End
Begin VB.Menu mnuSetClassDel
Caption = "刪除當行"
End
End
Begin VB.Menu mnuPrint
Caption = "打印"
Begin VB.Menu Print_Print
Caption = "打印(&P)"
End
Begin VB.Menu Print_Preview
Caption = "打印預覽(&V)"
End
Begin VB.Menu Print_Design
Caption = "設計樣式(&D)"
End
End
End
Attribute VB_Name = "MNU"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Sub mnuClassAdd_Click()
End Sub
Private Sub mnuClassDel_Click()
End Sub
Private Sub Form_Load()
Me.Icon = MDI.Icon
End Sub
Private Sub mnuClassChild_Click(Index As Integer)
Select Case Index
Case 100
iFrom.AddBill
Case 101
iFrom.EditBill
Case 102
iFrom.DelBill
Case 103
iFrom.RefreshBill
End Select
End Sub
Private Sub mnuClassRefresh_Click()
End Sub
Private Sub mnuClassEditChild_Click(Index As Integer)
Select Case Index
Case 100
iFrom.DelRecord
End Select
End Sub
Private Sub mnuEmployeeAdd_Click()
frmEmployee.AddBill
End Sub
Private Sub mnuEmployeeAllClear_Click()
Screen.ActiveForm.GridMnuClear
End Sub
Private Sub mnuEmployeeAllSelect_Click()
Screen.ActiveForm.GridMnuAll
End Sub
Private Sub mnuEmployeeDel_Click()
frmEmployee.DelBill
End Sub
Private Sub mnuEmployeeEdit_Click()
frmEmployee.EditBill
End Sub
Private Sub mnuEmployeeRefresh_Click()
frmEmployee.RefreshBill
End Sub
Private Sub mnuEmployeeReverseSelect_Click()
Screen.ActiveForm.GridMnuReverse
End Sub
Private Sub mnuEmployeeSelectDel_Click()
Screen.ActiveForm.DelSelect
End Sub
Private Sub mnuSetClassAdd_Click()
iFrom.AddRow
End Sub
Private Sub mnuSetClassDel_Click()
iFrom.DelRow
End Sub
Private Sub Print_Design_Click()
iFrom.ShowDesignerBill
End Sub
Private Sub Print_Preview_Click()
iFrom.PreviewBill
End Sub
Private Sub Print_Print_Click()
iFrom.PrintBill
End Sub
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -