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