mdifm.frm

这是一个人事管理软件

VERSION 5.00
Begin VB.MDIForm MDIFm 
   BackColor       =   &H00808000&
   Caption         =   "华冈人事管理"
   ClientHeight    =   8310
   ClientLeft      =   165
   ClientTop       =   735
   ClientWidth     =   9765
   LinkTopic       =   "MDIForm1"
   StartUpPosition =   3  '窗口缺省
   WindowState     =   2  'Maximized
   Begin VB.Menu file 
      Caption         =   "文件"
      Begin VB.Menu save 
         Caption         =   "备份数据"
      End
      Begin VB.Menu update 
         Caption         =   "更新"
      End
      Begin VB.Menu exit 
         Caption         =   "退出"
      End
   End
   Begin VB.Menu ygm 
      Caption         =   "员工管理"
      Begin VB.Menu newg 
         Caption         =   "员工管理"
      End
      Begin VB.Menu ygd 
         Caption         =   "离职管理"
      End
      Begin VB.Menu ygkh 
         Caption         =   "员工考核"
      End
      Begin VB.Menu mht 
         Caption         =   "合同管理"
      End
      Begin VB.Menu ygjc 
         Caption         =   "员工奖惩"
      End
      Begin VB.Menu mzs 
         Caption         =   "住宿管理"
      End
      Begin VB.Menu zgrep 
         Caption         =   "员工报表"
      End
   End
   Begin VB.Menu jcsz 
      Caption         =   "系统初始化"
      Begin VB.Menu mbl 
         Caption         =   "班类设定"
      End
      Begin VB.Menu mbbset 
         Caption         =   "工作时间设定"
      End
      Begin VB.Menu mjcfl 
         Caption         =   "奖惩分类"
      End
      Begin VB.Menu bmda 
         Caption         =   "部门档案"
      End
      Begin VB.Menu studyset 
         Caption         =   "学历设置"
      End
      Begin VB.Menu jobset 
         Caption         =   "职务设置"
      End
      Begin VB.Menu mkbset 
         Caption         =   "考勤类别设定"
      End
      Begin VB.Menu mjrset 
         Caption         =   "法定假日设置"
      End
   End
   Begin VB.Menu kq 
      Caption         =   "考勤管理"
      Begin VB.Menu mkh 
         Caption         =   "卡号管理"
      End
      Begin VB.Menu redin 
         Caption         =   "数据读取"
      End
      Begin VB.Menu kqcl 
         Caption         =   "考勤数据处理"
      End
      Begin VB.Menu mkqwrite 
         Caption         =   "考勤登记"
      End
      Begin VB.Menu kqfind 
         Caption         =   "考勤查询"
      End
      Begin VB.Menu myc 
         Caption         =   "刷卡异常查询"
      End
      Begin VB.Menu kqmdi 
         Caption         =   "考勤调整"
      End
      Begin VB.Menu mlosskq 
         Caption         =   "未刷卡查询"
      End
   End
   Begin VB.Menu ctman 
      Caption         =   "餐厅管理"
      Begin VB.Menu mjctime 
         Caption         =   "就餐时间设置"
      End
      Begin VB.Menu mkz 
         Caption         =   "卡钟设置"
      End
      Begin VB.Menu cdateread 
         Caption         =   "数据读取"
      End
      Begin VB.Menu mgcfx 
         Caption         =   "就餐分析 "
      End
      Begin VB.Menu mgctz 
         Caption         =   "就餐调整"
      End
   End
   Begin VB.Menu mym 
      Caption         =   "月末处理"
      Begin VB.Menu mky 
         Caption         =   "考勤月末汇总"
      End
      Begin VB.Menu mkqyrp 
         Caption         =   "考勤月报表"
      End
      Begin VB.Menu mjc 
         Caption         =   "就餐月末汇总"
      End
      Begin VB.Menu mjcyrp 
         Caption         =   "就餐月报表"
      End
      Begin VB.Menu mftcount 
         Caption         =   "部门月末汇总"
      End
      Begin VB.Menu mbmk 
         Caption         =   "月扣款报表"
      End
   End
   Begin VB.Menu mxzmange 
      Caption         =   "薪资系统"
      Begin VB.Menu mxzg 
         Caption         =   "薪资管理"
      End
   End
End
Attribute VB_Name = "MDIFm"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit


Private Sub bmda_Click()
Fmbm.Show
End Sub

Private Sub cdateread_Click()
Formftkq.Show
End Sub

Private Sub exit_Click()
End
End Sub

Private Sub Image1_Click()

End Sub

Private Sub jobset_Click()
Fmjob.Show
End Sub

Private Sub jwfl_Click()

End Sub

Private Sub kqcl_Click()
fmkqfx.Show
End Sub

Private Sub kqfind_Click()
Formkqr.Show
End Sub

Private Sub kqrep_Click()

End Sub

Private Sub mbbset_Click()
Formbanset.Show
End Sub

Private Sub mbl_Click()
Fmbanl.Show
End Sub

Private Sub mbmk_Click()
Formbmftk.Show
End Sub

Private Sub mftcount_Click()
Formbmftc.Show
End Sub

Private Sub mgcfx_Click()
Formftfx.Show
End Sub

Private Sub mjc_Click()
Formftcount.Show
End Sub

Private Sub mjcfl_Click()
Formjcset.Show
End Sub

Private Sub mjctime_Click()
Formfttime.Show
End Sub

Private Sub mjcyrp_Click()
Formftrp.Show
End Sub

Private Sub mkbset_Click()
fmkbset.Show

End Sub

Private Sub mkh_Click()
Fmkhmg.Show
End Sub

Private Sub mkqwrite_Click()
Fmkqwrite.Show
End Sub

Private Sub mkqyrp_Click()
Formkrp.Show
End Sub

Private Sub mky_Click()
Fmkqcount.Show
End Sub

Private Sub mkz_Click()
Formkzset.Show
End Sub

Private Sub mlosskq_Click()
Formlosskq.Show
End Sub

Private Sub mxzg_Click()
Formxz.Show
End Sub

Private Sub myc_Click()
Formkqyc.Show
End Sub

Private Sub mzs_Click()
Formzs.Show
End Sub

Private Sub newg_Click()
fmzg.Show
End Sub

Private Sub redin_Click()
Fmkqread.Show
End Sub

Private Sub studyset_Click()
Fmstudy.Show
End Sub

Private Sub ygd_Click()
Formlz.Show
End Sub

Private Sub ygjc_Click()
Formjc.Show
End Sub

Private Sub ygkh_Click()
Formkh.Show
End Sub

Private Sub zgrep_Click()
Formzgrep.Show
End Sub