mdifrm_main.frm

人事管理系统

VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.MDIForm MDIfrm_main 
   BackColor       =   &H8000000C&
   Caption         =   "企业人事管理系统"
   ClientHeight    =   7890
   ClientLeft      =   165
   ClientTop       =   450
   ClientWidth     =   12795
   Icon            =   "MDIfrm_main.frx":0000
   LinkTopic       =   "MDIForm1"
   Picture         =   "MDIfrm_main.frx":164A
   StartUpPosition =   2  '屏幕中心
   Begin MSComctlLib.ImageList ImageList1 
      Left            =   6765
      Top             =   240
      _ExtentX        =   1005
      _ExtentY        =   1005
      BackColor       =   -2147483643
      ImageWidth      =   32
      ImageHeight     =   32
      MaskColor       =   12632256
      _Version        =   393216
      BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
         NumListImages   =   7
         BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "MDIfrm_main.frx":55288
            Key             =   ""
         EndProperty
         BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "MDIfrm_main.frx":568E2
            Key             =   ""
         EndProperty
         BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "MDIfrm_main.frx":57F3C
            Key             =   ""
         EndProperty
         BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "MDIfrm_main.frx":59596
            Key             =   ""
         EndProperty
         BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "MDIfrm_main.frx":5ABF0
            Key             =   ""
         EndProperty
         BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "MDIfrm_main.frx":5C24A
            Key             =   ""
         EndProperty
         BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "MDIfrm_main.frx":5D8A4
            Key             =   ""
         EndProperty
      EndProperty
   End
   Begin MSComctlLib.Toolbar Toolbar1 
      Align           =   1  'Align Top
      Height          =   855
      Left            =   0
      TabIndex        =   0
      Top             =   0
      Width           =   12795
      _ExtentX        =   22569
      _ExtentY        =   1508
      ButtonWidth     =   1455
      ButtonHeight    =   1349
      Appearance      =   1
      ImageList       =   "ImageList1"
      _Version        =   393216
      BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
         NumButtons      =   7
         BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "员工管理"
            Key             =   "yg"
            ImageIndex      =   1
         EndProperty
         BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "添加部门"
            Key             =   "bm"
            ImageIndex      =   2
         EndProperty
         BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "日常考勤"
            Key             =   "kq"
            ImageIndex      =   3
         EndProperty
         BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "公出请假"
            Key             =   "gcqj"
            ImageIndex      =   4
         EndProperty
         BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "工资管理"
            Key             =   "gzgl"
            ImageIndex      =   5
         EndProperty
         BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "过期处理"
            Key             =   "gqcl"
            ImageIndex      =   7
         EndProperty
         BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "工资导出"
            Key             =   "gzdc"
            ImageIndex      =   6
         EndProperty
      EndProperty
   End
   Begin VB.Menu rsgl 
      Caption         =   "人事管理"
      Begin VB.Menu addyg 
         Caption         =   "添加员工信息"
      End
      Begin VB.Menu modifyyg 
         Caption         =   "修改员工信息"
      End
      Begin VB.Menu findyg 
         Caption         =   "查询员工信息"
      End
      Begin VB.Menu line1 
         Caption         =   "-"
      End
      Begin VB.Menu rsdd 
         Caption         =   "员工调动"
      End
      Begin VB.Menu yglz 
         Caption         =   "员工离职"
      End
   End
   Begin VB.Menu bmgl 
      Caption         =   "部门管理"
      Begin VB.Menu addbm 
         Caption         =   "添加部门信息"
      End
      Begin VB.Menu modifybm 
         Caption         =   "修改部门信息"
      End
   End
   Begin VB.Menu kqgl 
      Caption         =   "考勤管理"
      Begin VB.Menu kqsjsz 
         Caption         =   "考勤时间设置"
      End
      Begin VB.Menu cqjl 
         Caption         =   "添加/修改出勤记录"
      End
      Begin VB.Menu gcqj 
         Caption         =   "员工公出/请假"
      End
   End
   Begin VB.Menu gzgl 
      Caption         =   "工资管理"
      Begin VB.Menu gzxxgl 
         Caption         =   "工资信息管理"
      End
      Begin VB.Menu gqcl 
         Caption         =   "过期数据处理"
      End
      Begin VB.Menu gzdc 
         Caption         =   "工资导出"
         Begin VB.Menu dc1 
            Caption         =   "导出Excel"
         End
         Begin VB.Menu dc2 
            Caption         =   "导出为网上银行文件"
         End
      End
   End
   Begin VB.Menu flgl 
      Caption         =   "福利管理"
      Begin VB.Menu addfl 
         Caption         =   "添加福利信息"
      End
      Begin VB.Menu modifyfl 
         Caption         =   "修改福利信息"
      End
   End
   Begin VB.Menu rstj 
      Caption         =   "人事信息统计"
      Begin VB.Menu nl 
         Caption         =   "员工年龄统计"
      End
      Begin VB.Menu whcd 
         Caption         =   "员工文化程度统计"
      End
      Begin VB.Menu gztj 
         Caption         =   "员工工资统计"
      End
   End
   Begin VB.Menu myWindows 
      Caption         =   "窗口"
      WindowList      =   -1  'True
      Begin VB.Menu cd 
         Caption         =   "层叠"
      End
      Begin VB.Menu pp 
         Caption         =   "平铺"
      End
      Begin VB.Menu pltb 
         Caption         =   "排列图标"
      End
   End
   Begin VB.Menu end 
      Caption         =   "退出"
   End
End
Attribute VB_Name = "MDIfrm_main"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim rs As New ADODB.Recordset
Private Sub cd_Click()
  '层叠子窗体
  Me.Arrange vbCascade
End Sub

Private Sub dc1_Click()
  intSelMonth = 2
  Load main_gzgl_xyfgz
  main_gzgl_xyfgz.Show
End Sub

Private Sub dc2_Click()
  intSelMonth = 3
  Load main_gzgl_xyfgz
  main_gzgl_xyfgz.Show
End Sub

Private Sub gztj_Click()
  Load main_tj_gztj
  main_tj_gztj.Show
End Sub

Private Sub pp_Click()
  '平铺子窗体
  Me.Arrange vbTileHorizontal
End Sub
Private Sub pltb_Click()
  '排列所有子窗体图标
  Me.Arrange vbArrangeIcons
End Sub
Private Sub addbm_Click()
  blnAddBM = True
  Load main_bmgl_addmodify
  main_bmgl_addmodify.Show
End Sub
Private Sub addfl_Click()
  Load main_rsgl_bxgl
  main_rsgl_bxgl.Show
End Sub
Private Sub addyg_Click()
  blnAddRS = True
  Load main_yggl_addmodify
  main_yggl_addmodify.Show
End Sub
Private Sub cqjl_Click()
  Load main_kqgl_addmodify
  main_kqgl_addmodify.Show
End Sub
Private Sub gcqj_Click()
  Load main_kqgl_gcqj
  main_kqgl_gcqj.Show
End Sub
Private Sub gqcl_Click()
  Load main_gzgl_gqsjcl
  main_gzgl_gqsjcl.Show
End Sub
Private Sub gzxxgl_Click()
  intSelMonth = 1
  Load main_gzgl_xyfgz
  main_gzgl_xyfgz.Show
End Sub
Private Sub kqsjsz_Click()
  Load main_kqgl_sjsz
  main_kqgl_sjsz.Show
End Sub
Private Sub modifybm_Click()
  Load main_bmgl_cx
  main_bmgl_cx.Show
End Sub
Private Sub modifyfl_Click()
  Load main_rsgl_bxgl
  main_rsgl_bxgl.Show
End Sub
Private Sub new_Click()
  Load main_gzgl_xyfgz
  main_gzgl_xyfgz.Show
End Sub
Private Sub nl_Click()
  Load main_tj_age
  main_tj_age.Show
End Sub

Private Sub findyg_Click()
  Load main_yggl_find
  main_yggl_find.Show
End Sub
Private Sub modifyyg_Click()
  blnAddRS = False
  Load main_yggl_modify
  main_yggl_modify.Show
End Sub
Private Sub rsdd_Click()
  Load main_rsgl_rsbd
  main_rsgl_rsbd.Show
End Sub

Private Sub whcd_Click()
  Load main_tj_whcd
  main_tj_whcd.Show
End Sub

Private Sub yglz_Click()
  Load main_rsgl_yglz
  main_rsgl_yglz.Show
End Sub
Private Sub END_Click()
  End
End Sub

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
  Select Case Button.Key
    Case "yg"
      blnAddRS = True
      Load main_yggl_addmodify
      main_yggl_addmodify.Show
    Case "bm"
      blnAddBM = True
      Load main_bmgl_addmodify
      main_bmgl_addmodify.Show
    Case "kq"
      Load main_kqgl_addmodify
      main_kqgl_addmodify.Show
    Case "gcqj"
      Load main_kqgl_gcqj
      main_kqgl_gcqj.Show
    Case "gzgl"
      Load main_gzgl_xyfgz
      main_gzgl_xyfgz.Show
    Case "gqcl"
      Load main_gzgl_gqsjcl
      main_gzgl_gqsjcl.Show
    Case "gzdc"
      dc1_Click
  End Select
End Sub