rsgl.frm

非常不错的人事管理软件

VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form RSGL 
   Caption         =   "人事管理"
   ClientHeight    =   7155
   ClientLeft      =   165
   ClientTop       =   450
   ClientWidth     =   10320
   LinkTopic       =   "Form1"
   Moveable        =   0   'False
   ScaleHeight     =   7155
   ScaleWidth      =   10320
   WindowState     =   2  'Maximized
   Begin VB.Frame Frame1 
      BackColor       =   &H00FFFFFF&
      Height          =   7935
      Left            =   120
      TabIndex        =   1
      Top             =   0
      Width           =   11655
   End
   Begin MSComctlLib.StatusBar stbMain 
      Align           =   2  'Align Bottom
      Height          =   360
      Left            =   0
      TabIndex        =   0
      Top             =   6795
      Width           =   10320
      _ExtentX        =   18203
      _ExtentY        =   635
      _Version        =   393216
      BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628} 
         NumPanels       =   4
         BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Alignment       =   1
            AutoSize        =   1
            Object.Width           =   7117
            MinWidth        =   4233
            Picture         =   "RSGL.frx":0000
            Text            =   "  LANSOFT 网络集成   1998"
            TextSave        =   "  LANSOFT 网络集成   1998"
         EndProperty
         BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Style           =   5
            Alignment       =   1
            AutoSize        =   2
            Picture         =   "RSGL.frx":0112
            TextSave        =   "23:07"
         EndProperty
         BeginProperty Panel3 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Style           =   6
            Alignment       =   1
            AutoSize        =   2
            Picture         =   "RSGL.frx":0564
            TextSave        =   "2001-12-22"
         EndProperty
         BeginProperty Panel4 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            AutoSize        =   1
            Object.Width           =   5424
            Picture         =   "RSGL.frx":09B6
            Text            =   "管理信息系统  Premiun  Edition"
            TextSave        =   "管理信息系统  Premiun  Edition"
         EndProperty
      EndProperty
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "Times New Roman"
         Size            =   9.75
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      MouseIcon       =   "RSGL.frx":0E08
   End
   Begin VB.Menu GZLLD 
      Caption         =   "工作联络单"
      Visible         =   0   'False
   End
   Begin VB.Menu mnuRenYuan 
      Caption         =   "人员管理"
      Begin VB.Menu mnurenyuanzhaopinmianshi 
         Caption         =   "招聘、面试、录取、离职"
         Begin VB.Menu mnuDingGangDingYuan 
            Caption         =   "岗位说明"
         End
         Begin VB.Menu mnuZengYuanXvQiu 
            Caption         =   "增员需求单"
         End
         Begin VB.Menu mnuZengGangXvQiu 
            Caption         =   "增岗需求单"
         End
         Begin VB.Menu mnuZhaoPinDengJi 
            Caption         =   "招聘登记"
         End
         Begin VB.Menu mnuMianShiDengJi 
            Caption         =   "面试登记"
         End
         Begin VB.Menu mnuRuZhiTongZhiShu 
            Caption         =   "入职通知书"
         End
         Begin VB.Menu mnuRenYuanJiBenXinXi 
            Caption         =   "人员基本信息登记"
         End
         Begin VB.Menu mnuLiZhiJiaoJie 
            Caption         =   "离职交接"
         End
      End
      Begin VB.Menu mnurenyuancundangfeiguanli 
         Caption         =   "存档费管理"
      End
      Begin VB.Menu mnurenyuanlaodonghetong 
         Caption         =   "劳动合同管理"
         Begin VB.Menu mnulaoDongHeTongDengJi 
            Caption         =   "劳动合同登记"
         End
         Begin VB.Menu mnuJieManYuBao 
            Caption         =   "劳动合同届满预报"
            Visible         =   0   'False
         End
         Begin VB.Menu mnuLaoDongHeTongLiShi 
            Caption         =   "劳动合同历史"
         End
         Begin VB.Menu mnuDaoQiYuBao 
            Caption         =   "劳动合同到期预报"
         End
      End
      Begin VB.Menu mnurenyuanrenyuanchaxun 
         Caption         =   "查询统计"
         Begin VB.Menu mnu_ZhaoPinCX 
            Caption         =   "招聘查询"
         End
         Begin VB.Menu mnu_MianShiCX 
            Caption         =   "面试查询"
         End
         Begin VB.Menu mnuYuanGongTongJiBiao 
            Caption         =   "公司员工统计表"
         End
         Begin VB.Menu mnuNianlingTongJi 
            Caption         =   "年龄、文化、职位统计表"
         End
         Begin VB.Menu mnuZaiCeRenYuan 
            Caption         =   "再册人员增减变动表"
         End
      End
   End
   Begin VB.Menu mnuxinzi 
      Caption         =   "薪资管理"
      Begin VB.Menu mnuxinzikaoqin 
         Caption         =   "考勤登记"
      End
      Begin VB.Menu mnuxinzikaohedengji 
         Caption         =   "考核登记"
      End
      Begin VB.Menu mnuxinzigongzishengcheng 
         Caption         =   "工资生成"
         Begin VB.Menu mnuZaiGangGongZi 
            Caption         =   "在岗职工工资生成"
         End
         Begin VB.Menu mnuXiaoShiGongGongZi 
            Caption         =   "小时工工资生成"
         End
      End
      Begin VB.Menu mnuxinzixinzichaxun 
         Caption         =   "查询统计"
         Begin VB.Menu mnu_KaoQinCX 
            Caption         =   "考勤查询"
         End
         Begin VB.Menu mnuGeRenSuoDeSui 
            Caption         =   "个人所得税表"
            Visible         =   0   'False
         End
         Begin VB.Menu mnuGongZiTongJi 
            Caption         =   "工资统计"
            Visible         =   0   'False
         End
         Begin VB.Menu mnuKouKuanTongJi 
            Caption         =   "扣款统计"
            Visible         =   0   'False
         End
         Begin VB.Menu mnuJiHuaGongZi 
            Caption         =   "计划工资"
            Visible         =   0   'False
         End
         Begin VB.Menu mnuYueYuSuan 
            Caption         =   "月预算"
            Visible         =   0   'False
         End
         Begin VB.Menu mnuYuanGongGeRenFeiYong 
            Caption         =   "员工个人费用"
            Visible         =   0   'False
         End
      End
   End
   Begin VB.Menu mnufulibaoxianlaowufei 
      Caption         =   "福利保险福利费"
      Begin VB.Menu mnufulibaoxianlaowufeiyanglaobaoxian 
         Caption         =   "养老保险"
         Begin VB.Menu mnuGongSiBiLi 
            Caption         =   "公司比例"
         End
         Begin VB.Menu mnu_YangLaoBaoXianDengJi 
            Caption         =   "养老保险登记"
         End
         Begin VB.Menu mnuGeRenFeiYong 
            Caption         =   "个人费用记录"
         End
         Begin VB.Menu mnuJiaoFeiQingKuang 
            Caption         =   "缴费情况表"
         End
         Begin VB.Menu mnuShouZhiYueBao 
            Caption         =   "收支月报"
         End
         Begin VB.Menu mnuGeRenBaoXianChaXun 
            Caption         =   "个人保险费用查询"
         End
      End
      Begin VB.Menu mnufulibaoxianlaowufeishiyebaoxian 
         Caption         =   "失业保险"
      End
      Begin VB.Menu mnufulibaoxianlaowufeidabingyiliao 
         Caption         =   "大病医疗"
         Begin VB.Menu mnu_DaBingTouChouDengJi 
            Caption         =   "大病统筹登记"
         End
         Begin VB.Menu mnu_DaBingTongChouBaoBiao 
            Caption         =   "大病统筹报表"
         End
      End
      Begin VB.Menu mnufulibaoxianlaowufeifulifeiyongdengji 
         Caption         =   "福利费"
         Begin VB.Menu mnu_FuLiFeiYongDengJi 
            Caption         =   "福利费用登记"
         End
         Begin VB.Menu mnu_FuLiFeiYongCX 
            Caption         =   "福利费用查询"
         End
         Begin VB.Menu Mnu_FuLiFeiYongBaoBiao 
            Caption         =   "福利费用报表"
         End
      End
      Begin VB.Menu mnuLaoWu 
         Caption         =   "劳务费"
         Begin VB.Menu mnuLaoWuFeiDengJi 
            Caption         =   "劳务费登记"
         End
         Begin VB.Menu mnuLaoWiFeiJiHua 
            Caption         =   "劳务费查询"
         End
      End
   End
   Begin VB.Menu mnuPeiXun 
      Caption         =   "培训"
      Begin VB.Menu mnuPeiXunJiHuaDengJi 
         Caption         =   "部门培训计划登记"
      End
      Begin VB.Menu mnuPeiXunShiShiJiHua 
         Caption         =   "培训实施计划"
      End
      Begin VB.Menu mnuPeiXunxXiangMuShiShi 
         Caption         =   "培训项目实施表"
      End
      Begin VB.Menu mnuYuanGongPeiXunDangAn 
         Caption         =   "员工培训档案"
      End
      Begin VB.Menu mnuNianDuPeiXunJiHuaHuiZong 
         Caption         =   "年度培训计划汇总"
      End
      Begin VB.Menu mnuShiShiJiHuaHuiZong 
         Caption         =   "年度实施计划汇总"
      End
      Begin VB.Menu mnuYuanGongPeiXunFeiYongHuiZong 
         Caption         =   "员工培训费用汇总"
         Visible         =   0   'False
      End
      Begin VB.Menu mnuPeiXunChaXun 
         Caption         =   "查询统计"
         Begin VB.Menu mnu_BuMenPeiXunJiHuaCX 
            Caption         =   "部门培训计划查询"
         End
         Begin VB.Menu mnu_PeiXunShiShiJiHuaCX 
            Caption         =   "培训实施计划查询"
         End
         Begin VB.Menu mnu_PeiXunXiangMuShiShiCX 
            Caption         =   "培训项目实施查询"
         End
      End
   End
   Begin VB.Menu mnulaobaowupin 
      Caption         =   "劳保物品管理"
      Begin VB.Menu mnuGangWeiLaoBaoBiaoZhun 
         Caption         =   "岗位劳保物品配备标准"
      End
      Begin VB.Menu mnuLaoBaoFaFangMingDan 
         Caption         =   "劳保发放名单"
      End
   End
   Begin VB.Menu mnujiangcheng 
      Caption         =   "奖惩"
      Begin VB.Menu mnuJiangLi 
         Caption         =   "奖励"
      End
      Begin VB.Menu mnuChengFa 
         Caption         =   "惩罚"
      End
   End
   Begin VB.Menu mnujinsheng 
      Caption         =   "晋升"
   End
   Begin VB.Menu mnuTongJi 
      Caption         =   "统计报表"
      Begin VB.Menu mnulaoDongXiaoYiJiBao 
         Caption         =   "劳动效益季报"
      End
      Begin VB.Menu mnuLaoDongXiaoYiNianBao 
         Caption         =   "劳动效益年报"
      End
      Begin VB.Menu mnulaoDongQueBao 
         Caption         =   "劳动情况月报基层表"
         Visible         =   0   'False
      End
      Begin VB.Menu mnuQuanYuanYiLanBiao 
         Caption         =   "全员情况一览表"
         Visible         =   0   'False
      End
      Begin VB.Menu mnulaoDongQingKuangBiao 
         Caption         =   "劳动情况表"
         Visible         =   0   'False
      End
   End
   Begin VB.Menu XTWH 
      Caption         =   "系统维护"
      Begin VB.Menu WPLY 
         Caption         =   "物品领用"
      End
      Begin VB.Menu BLJSWH 
         Caption         =   "比例基数维护"
      End
      Begin VB.Menu Exit 
         Caption         =   "退出"
      End
   End
End
Attribute VB_Name = "RSGL"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Sub BLJSWH_Click()
    frm_BLJSWH.Show
    Me.Enabled = False
End Sub

Private Sub Exit_Click()
    Unload Me
End Sub

Private Sub Form_Load()