gljm.frm

员工考勤工资员工考勤工员工考勤工资资员工考勤工资员工考勤工资员工考勤工资

VERSION 5.00
Begin VB.MDIForm MDIForm1 
   BackColor       =   &H8000000C&
   Caption         =   "管理界面"
   ClientHeight    =   5760
   ClientLeft      =   60
   ClientTop       =   750
   ClientWidth     =   8385
   LinkTopic       =   "MDIForm1"
   StartUpPosition =   2  '屏幕中心
   WindowState     =   2  'Maximized
   Begin VB.Menu wj 
      Caption         =   "文件(&F)"
      Begin VB.Menu dl 
         Caption         =   "登录"
      End
      Begin VB.Menu tch 
         Caption         =   "退出"
      End
      Begin VB.Menu a 
         Caption         =   "-"
      End
      Begin VB.Menu rjshm 
         Caption         =   "软件说明"
      End
   End
   Begin VB.Menu zhgzlgl 
      Caption         =   "职工资料管理(&G)"
      Begin VB.Menu xygtj 
         Caption         =   "新员工添加"
      End
      Begin VB.Menu ygzlxg 
         Caption         =   "员工资料修改"
      End
      Begin VB.Menu ygchx 
         Caption         =   "员工查询"
      End
   End
   Begin VB.Menu kqgl 
      Caption         =   "考勤管理(&K)"
      Begin VB.Menu rdtkqchx 
         Caption         =   "日动态考勤查询"
      End
      Begin VB.Menu b 
         Caption         =   "-"
      End
      Begin VB.Menu rchpb 
         Caption         =   "日常排班"
      End
      Begin VB.Menu tbgl 
         Caption         =   "调班管理"
      End
      Begin VB.Menu qjgl 
         Caption         =   "请假管理"
      End
   End
   Begin VB.Menu qtgl 
      Caption         =   "其他管理"
      Enabled         =   0   'False
      Begin VB.Menu gzgl 
         Caption         =   "工资管理"
      End
      Begin VB.Menu bcshed 
         Caption         =   "班次设定"
      End
   End
End
Attribute VB_Name = "MDIForm1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub bcshed_Click()
Form16.Show
End Sub

Private Sub dkqtj_Click()

End Sub

Private Sub dl_Click()
Form14.Show
End Sub

Private Sub gzgl_Click()
Form15.Show

End Sub

Private Sub qjgl_Click()
Form11.Show

End Sub

Private Sub rchpb_Click()
Form18.Show
End Sub

Private Sub rdtkqchx_Click()
Form12.Show
End Sub

Private Sub rjshm_Click()
Form17.Show
End Sub

Private Sub tbgl_Click()
Form10.Show


End Sub

Private Sub tch_Click()
Unload Me

End Sub

Private Sub xygtj_Click()
Form7.Show

End Sub

Private Sub ygchx_Click()
Form9.Show
End Sub

Private Sub ygzlxg_Click()
Form8.Show
End Sub