form2.frm

来自「公司考勤管理系统设计与实施」· FRM 代码 · 共 126 行

VERSION 5.00
Begin VB.Form 考勤管理系统 
   Caption         =   "考勤管理系统"
   ClientHeight    =   3090
   ClientLeft      =   165
   ClientTop       =   855
   ClientWidth     =   4680
   LinkTopic       =   "Form2"
   ScaleHeight     =   3090
   ScaleWidth      =   4680
   StartUpPosition =   3  '窗口缺省
   Begin VB.Menu kqgl 
      Caption         =   "考勤管理"
      Begin VB.Menu cqgl 
         Caption         =   "出勤管理"
         Checked         =   -1  'True
      End
      Begin VB.Menu jbgl 
         Caption         =   "加班管理"
      End
      Begin VB.Menu ccgl 
         Caption         =   "出差管理"
      End
      Begin VB.Menu qjgl 
         Caption         =   "请假管理"
      End
   End
   Begin VB.Menu kqcx 
      Caption         =   "考勤查询"
      Begin VB.Menu cxcq 
         Caption         =   "查询出勤"
      End
      Begin VB.Menu cxjb 
         Caption         =   "查询加班"
      End
      Begin VB.Menu cxcc 
         Caption         =   "查询出差"
      End
      Begin VB.Menu cxqj 
         Caption         =   "查询请假"
      End
   End
   Begin VB.Menu xtqh 
      Caption         =   "系统维护"
      Begin VB.Menu zgjbzl 
         Caption         =   "职工基本资料管理"
      End
   End
   Begin VB.Menu kqtj 
      Caption         =   "考勤统计"
      Begin VB.Menu tjcq 
         Caption         =   "统计出勤"
      End
      Begin VB.Menu tjcc 
         Caption         =   "统计出差"
      End
      Begin VB.Menu tjjb 
         Caption         =   "统计加班"
      End
      Begin VB.Menu tjqj 
         Caption         =   "统计请假"
      End
   End
End
Attribute VB_Name = "考勤管理系统"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub ccgl_Click()
出差管理.Show vbModal
End Sub

Private Sub cqgl_Click()
出勤管理.Show vbModal
End Sub

Private Sub cxcc_Click()
查询出差.Show vbModal
End Sub

Private Sub cxcq_Click()
查询出勤.Show vbModal
End Sub

Private Sub cxjb_Click()
查询加班.Show vbModal

End Sub

Private Sub cxqj_Click()
查询请假.Show vbModal
End Sub

Private Sub jbgl_Click()
加班管理.Show vbModal
End Sub


Private Sub qjgl_Click()
请假管理.Show vbModal
End Sub

Private Sub tjcc_Click()
统计出差.Show vbModal
End Sub

Private Sub tjcq_Click()
统计出勤.Show vbModal
End Sub

Private Sub tjjb_Click()
统计加班.Show vbModal

End Sub

Private Sub tjqj_Click()
统计请假.Show vbModal
End Sub



Private Sub zgjbzl_Click()
员工个人资料.Show vbModal
End Sub