开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 行业应用 > 企业管理 > 查看源码
RSGL.frm
资源名称：dbbase.rar　[点击查看]
上传用户：xiao_xia32
上传日期：2022-07-21
资源大小：1174k
文件大小：35k
源码类别：

企业管理

开发平台：

Visual Basic

RSGL.frm：源码内容
  1. VERSION 5.00
  2. Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
  3. Begin VB.Form RSGL 
  4.    BackColor       =   &H80000001&
  5.    Caption         =   "人事管理"
  6.    ClientHeight    =   7155
  7.    ClientLeft      =   165
  8.    ClientTop       =   450
  9.    ClientWidth     =   10320
  10.    Icon            =   "RSGL.frx":0000
  11.    LinkTopic       =   "Form1"
  12.    LockControls    =   -1  'True
  13.    Moveable        =   0   'False
  14.    ScaleHeight     =   7155
  15.    ScaleWidth      =   10320
  16.    WindowState     =   2  'Maximized
  17.    Begin MSComctlLib.ImageList ImageList1 
  18.       Left            =   0
  19.       Top             =   720
  20.       _ExtentX        =   1005
  21.       _ExtentY        =   1005
  22.       BackColor       =   -2147483643
  23.       ImageWidth      =   32
  24.       ImageHeight     =   32
  25.       MaskColor       =   12632256
  26.       _Version        =   393216
  27.       BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
  28.          NumListImages   =   29
  29.          BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  30.             Picture         =   "RSGL.frx":0CCA
  31.             Key             =   ""
  32.          EndProperty
  33.          BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  34.             Picture         =   "RSGL.frx":15A4
  35.             Key             =   ""
  36.          EndProperty
  37.          BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  38.             Picture         =   "RSGL.frx":36DE
  39.             Key             =   ""
  40.          EndProperty
  41.          BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  42.             Picture         =   "RSGL.frx":6568
  43.             Key             =   ""
  44.          EndProperty
  45.          BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  46.             Picture         =   "RSGL.frx":95EA
  47.             Key             =   ""
  48.          EndProperty
  49.          BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  50.             Picture         =   "RSGL.frx":B2F4
  51.             Key             =   ""
  52.          EndProperty
  53.          BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  54.             Picture         =   "RSGL.frx":BFCE
  55.             Key             =   ""
  56.          EndProperty
  57.          BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  58.             Picture         =   "RSGL.frx":E780
  59.             Key             =   ""
  60.          EndProperty
  61.          BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  62.             Picture         =   "RSGL.frx":108BA
  63.             Key             =   ""
  64.          EndProperty
  65.          BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  66.             Picture         =   "RSGL.frx":125C4
  67.             Key             =   ""
  68.          EndProperty
  69.          BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  70.             Picture         =   "RSGL.frx":142CE
  71.             Key             =   ""
  72.          EndProperty
  73.          BeginProperty ListImage12 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  74.             Picture         =   "RSGL.frx":16A80
  75.             Key             =   ""
  76.          EndProperty
  77.          BeginProperty ListImage13 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  78.             Picture         =   "RSGL.frx":1878A
  79.             Key             =   ""
  80.          EndProperty
  81.          BeginProperty ListImage14 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  82.             Picture         =   "RSGL.frx":1A494
  83.             Key             =   ""
  84.          EndProperty
  85.          BeginProperty ListImage15 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  86.             Picture         =   "RSGL.frx":1A8E6
  87.             Key             =   ""
  88.          EndProperty
  89.          BeginProperty ListImage16 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  90.             Picture         =   "RSGL.frx":1AC00
  91.             Key             =   ""
  92.          EndProperty
  93.          BeginProperty ListImage17 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  94.             Picture         =   "RSGL.frx":1DC82
  95.             Key             =   ""
  96.          EndProperty
  97.          BeginProperty ListImage18 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  98.             Picture         =   "RSGL.frx":20434
  99.             Key             =   ""
  100.          EndProperty
  101.          BeginProperty ListImage19 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  102.             Picture         =   "RSGL.frx":20D0E
  103.             Key             =   ""
  104.          EndProperty
  105.          BeginProperty ListImage20 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  106.             Picture         =   "RSGL.frx":21160
  107.             Key             =   ""
  108.          EndProperty
  109.          BeginProperty ListImage21 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  110.             Picture         =   "RSGL.frx":215B2
  111.             Key             =   ""
  112.          EndProperty
  113.          BeginProperty ListImage22 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  114.             Picture         =   "RSGL.frx":21A04
  115.             Key             =   ""
  116.          EndProperty
  117.          BeginProperty ListImage23 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  118.             Picture         =   "RSGL.frx":21E56
  119.             Key             =   ""
  120.          EndProperty
  121.          BeginProperty ListImage24 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  122.             Picture         =   "RSGL.frx":222A8
  123.             Key             =   ""
  124.          EndProperty
  125.          BeginProperty ListImage25 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  126.             Picture         =   "RSGL.frx":226FA
  127.             Key             =   ""
  128.          EndProperty
  129.          BeginProperty ListImage26 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  130.             Picture         =   "RSGL.frx":22B4C
  131.             Key             =   ""
  132.          EndProperty
  133.          BeginProperty ListImage27 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  134.             Picture         =   "RSGL.frx":22E66
  135.             Key             =   ""
  136.          EndProperty
  137.          BeginProperty ListImage28 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  138.             Picture         =   "RSGL.frx":232B8
  139.             Key             =   ""
  140.          EndProperty
  141.          BeginProperty ListImage29 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  142.             Picture         =   "RSGL.frx":2370A
  143.             Key             =   ""
  144.          EndProperty
  145.       EndProperty
  146.    End
  147.    Begin MSComctlLib.Toolbar Toolbar1 
  148.       Align           =   1  'Align Top
  149.       Height          =   600
  150.       Left            =   0
  151.       TabIndex        =   2
  152.       Top             =   0
  153.       Width           =   10320
  154.       _ExtentX        =   18203
  155.       _ExtentY        =   1058
  156.       ButtonWidth     =   1032
  157.       ButtonHeight    =   1005
  158.       Style           =   1
  159.       ImageList       =   "ImageList1"
  160.       _Version        =   393216
  161.       BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
  162.          NumButtons      =   21
  163.          BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  164.             Key             =   "ToolRYGL"
  165.             Object.ToolTipText     =   "员工基本信息"
  166.             ImageIndex      =   1
  167.          EndProperty
  168.          BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  169.             Key             =   "ToolCDFGL"
  170.             Object.ToolTipText     =   "存档费管理"
  171.             ImageIndex      =   20
  172.          EndProperty
  173.          BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  174.             Key             =   "ToolHTDJ"
  175.             Object.ToolTipText     =   "劳动合同登记"
  176.             ImageIndex      =   21
  177.          EndProperty
  178.          BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  179.             Style           =   3
  180.          EndProperty
  181.          BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  182.             Key             =   "ToolKQDJ"
  183.             Object.ToolTipText     =   "考勤登记"
  184.             ImageIndex      =   23
  185.          EndProperty
  186.          BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  187.             Key             =   "ToolKHDJ"
  188.             Object.ToolTipText     =   "考核登记"
  189.             ImageIndex      =   8
  190.          EndProperty
  191.          BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  192.             Key             =   "ToolGZSC"
  193.             Object.ToolTipText     =   "在职职工工资生成"
  194.             ImageIndex      =   24
  195.          EndProperty
  196.          BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  197.             Style           =   3
  198.          EndProperty
  199.          BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  200.             Key             =   "ToolYLBX"
  201.             Object.ToolTipText     =   "养老保险登记"
  202.             ImageIndex      =   25
  203.          EndProperty
  204.          BeginProperty Button10 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  205.             Key             =   "ToolFLFY"
  206.             Object.ToolTipText     =   "福利费用登记"
  207.             ImageIndex      =   26
  208.          EndProperty
  209.          BeginProperty Button11 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  210.             Key             =   "ToolLWFDJ"
  211.             Object.ToolTipText     =   "劳务费登记"
  212.             ImageIndex      =   27
  213.          EndProperty
  214.          BeginProperty Button12 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  215.             Style           =   3
  216.          EndProperty
  217.          BeginProperty Button13 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  218.             Key             =   "ToolBMPX"
  219.             Object.ToolTipText     =   "部门培训计划登记"
  220.             ImageIndex      =   28
  221.          EndProperty
  222.          BeginProperty Button14 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  223.             Key             =   "ToolPXSSJH"
  224.             Object.ToolTipText     =   "培训实施计划"
  225.             ImageIndex      =   29
  226.          EndProperty
  227.          BeginProperty Button15 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  228.             Style           =   3
  229.          EndProperty
  230.          BeginProperty Button16 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  231.             Key             =   "ToolJL"
  232.             Object.ToolTipText     =   "奖  励"
  233.             ImageIndex      =   14
  234.          EndProperty
  235.          BeginProperty Button17 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  236.             Key             =   "ToolCF"
  237.             Object.ToolTipText     =   "惩  罚"
  238.             ImageIndex      =   15
  239.          EndProperty
  240.          BeginProperty Button18 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  241.             Style           =   3
  242.          EndProperty
  243.          BeginProperty Button19 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  244.             Key             =   "ToolOperMana"
  245.             Object.ToolTipText     =   "操作员管理"
  246.             ImageIndex      =   6
  247.          EndProperty
  248.          BeginProperty Button20 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  249.             Key             =   "ToolPWS"
  250.             Object.ToolTipText     =   "口令修改"
  251.             ImageIndex      =   18
  252.          EndProperty
  253.          BeginProperty Button21 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  254.             Key             =   "ToolQuit"
  255.             Object.ToolTipText     =   "退出系统"
  256.             ImageIndex      =   19
  257.          EndProperty
  258.       EndProperty
  259.       BorderStyle     =   1
  260.    End
  261.    Begin VB.Frame Frame1 
  262.       BackColor       =   &H00FFFFFF&
  263.       Height          =   7935
  264.       Left            =   120
  265.       TabIndex        =   1
  266.       Top             =   600
  267.       Visible         =   0   'False
  268.       Width           =   11655
  269.    End
  270.    Begin MSComctlLib.StatusBar stbMain 
  271.       Align           =   2  'Align Bottom
  272.       Height          =   360
  273.       Left            =   0
  274.       TabIndex        =   0
  275.       Top             =   6795
  276.       Width           =   10320
  277.       _ExtentX        =   18203
  278.       _ExtentY        =   635
  279.       _Version        =   393216
  280.       BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628} 
  281.          NumPanels       =   4
  282.          BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
  283.             Alignment       =   1
  284.             AutoSize        =   1
  285.             Object.Width           =   7117
  286.             MinWidth        =   4233
  287.             Picture         =   "RSGL.frx":23864
  288.             Text            =   "  保宁制药   2003"
  289.             TextSave        =   "  保宁制药   2003"
  290.          EndProperty
  291.          BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
  292.             Style           =   5
  293.             Alignment       =   1
  294.             AutoSize        =   2
  295.             Picture         =   "RSGL.frx":23976
  296.             TextSave        =   "10:23"
  297.          EndProperty
  298.          BeginProperty Panel3 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
  299.             Style           =   6
  300.             Alignment       =   1
  301.             AutoSize        =   2
  302.             Picture         =   "RSGL.frx":23DC8
  303.             TextSave        =   "2001-10-21"
  304.          EndProperty
  305.          BeginProperty Panel4 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
  306.             AutoSize        =   1
  307.             Object.Width           =   5424
  308.             Picture         =   "RSGL.frx":2421A
  309.             Text            =   "人事管理信息系统  Premiun  Edition"
  310.             TextSave        =   "人事管理信息系统  Premiun  Edition"
  311.          EndProperty
  312.       EndProperty
  313.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  314.          Name            =   "Times New Roman"
  315.          Size            =   9.75
  316.          Charset         =   0
  317.          Weight          =   400
  318.          Underline       =   0   'False
  319.          Italic          =   0   'False
  320.          Strikethrough   =   0   'False
  321.       EndProperty
  322.       MouseIcon       =   "RSGL.frx":2466C
  323.    End
  324.    Begin VB.Menu GZLLD 
  325.       Caption         =   "工作联络单"
  326.       Visible         =   0   'False
  327.    End
  328.    Begin VB.Menu mnuRenYuan 
  329.       Caption         =   "人员管理(&R)"
  330.       Begin VB.Menu mnurenyuanzhaopinmianshi 
  331.          Caption         =   "招聘、面试、录取、离职"
  332.          Begin VB.Menu mnuMaster 
  333.             Caption         =   "部门管理"
  334.          End
  335.          Begin VB.Menu mnuDingGangDingYuan 
  336.             Caption         =   "岗位说明"
  337.          End
  338.          Begin VB.Menu mnuZengYuanXvQiu 
  339.             Caption         =   "增员需求单"
  340.          End
  341.          Begin VB.Menu mnuZengGangXvQiu 
  342.             Caption         =   "增岗需求单"
  343.          End
  344.          Begin VB.Menu mnuZhaoPinDengJi 
  345.             Caption         =   "招聘登记"
  346.          End
  347.          Begin VB.Menu mnuMianShiDengJi 
  348.             Caption         =   "面试登记"
  349.          End
  350.          Begin VB.Menu mnuRuZhiTongZhiShu 
  351.             Caption         =   "入职通知书"
  352.             Visible         =   0   'False
  353.          End
  354.          Begin VB.Menu mnuRenYuanJiBenXinXi 
  355.             Caption         =   "员工基本信息"
  356.          End
  357.          Begin VB.Menu mnuLiZhiJiaoJie 
  358.             Caption         =   "离职交接"
  359.          End
  360.       End
  361.       Begin VB.Menu mnurenyuancundangfeiguanli 
  362.          Caption         =   "存档费管理"
  363.       End
  364.       Begin VB.Menu mnurenyuanlaodonghetong 
  365.          Caption         =   "劳动合同管理"
  366.          Begin VB.Menu mnulaoDongHeTongDengJi 
  367.             Caption         =   "劳动合同登记"
  368.          End
  369.          Begin VB.Menu mnuJieManYuBao 
  370.             Caption         =   "劳动合同届满预报"
  371.             Visible         =   0   'False
  372.          End
  373.          Begin VB.Menu mnuLaoDongHeTongLiShi 
  374.             Caption         =   "劳动合同历史"
  375.          End
  376.          Begin VB.Menu mnuDaoQiYuBao 
  377.             Caption         =   "劳动合同到期预报"
  378.          End
  379.       End
  380.       Begin VB.Menu mnurenyuanrenyuanchaxun 
  381.          Caption         =   "查询统计"
  382.          Begin VB.Menu mnu_ZhaoPinCX 
  383.             Caption         =   "招 聘 查 询"
  384.          End
  385.          Begin VB.Menu mnu_MianShiCX 
  386.             Caption         =   "面 试 查 询"
  387.          End
  388.          Begin VB.Menu mnuYGSearch 
  389.             Caption         =   "员工信息查询"
  390.          End
  391.          Begin VB.Menu mnuYuanGongTongJiBiao 
  392.             Caption         =   "公司员工统计表"
  393.             Visible         =   0   'False
  394.          End
  395.          Begin VB.Menu mnuNianlingTongJi 
  396.             Caption         =   "年龄、文化、职位统计表"
  397.             Visible         =   0   'False
  398.          End
  399.          Begin VB.Menu mnuZaiCeRenYuan 
  400.             Caption         =   "在册人员增减变动表"
  401.          End
  402.       End
  403.    End
  404.    Begin VB.Menu mnuxinzi 
  405.       Caption         =   "薪资管理(&M)"
  406.       Begin VB.Menu mnuxinzikaoqin 
  407.          Caption         =   "考勤登记"
  408.       End
  409.       Begin VB.Menu mnuxinzikaohedengji 
  410.          Caption         =   "考核登记"
  411.       End
  412.       Begin VB.Menu mnuxinzigongzishengcheng 
  413.          Caption         =   "工资生成"
  414.          Begin VB.Menu mnuZaiGangGongZi 
  415.             Caption         =   "在岗职工工资生成"
  416.          End
  417.          Begin VB.Menu mnuXiaoShiGongGongZi 
  418.             Caption         =   "小时工工资生成"
  419.          End
  420.       End
  421.       Begin VB.Menu mnuxinzixinzichaxun 
  422.          Caption         =   "查询统计"
  423.          Begin VB.Menu mnu_KaoQinCX 
  424.             Caption         =   "考勤查询"
  425.          End
  426.          Begin VB.Menu mnuGeRenSuoDeSui 
  427.             Caption         =   "个人所得税表"
  428.             Visible         =   0   'False
  429.          End
  430.          Begin VB.Menu mnuGongZiTongJi 
  431.             Caption         =   "工资统计"
  432.             Visible         =   0   'False
  433.          End
  434.          Begin VB.Menu mnuKouKuanTongJi 
  435.             Caption         =   "扣款统计"
  436.             Visible         =   0   'False
  437.          End
  438.          Begin VB.Menu mnuJiHuaGongZi 
  439.             Caption         =   "计划工资"
  440.             Visible         =   0   'False
  441.          End
  442.          Begin VB.Menu mnuYueYuSuan 
  443.             Caption         =   "月预算"
  444.             Visible         =   0   'False
  445.          End
  446.          Begin VB.Menu mnuYuanGongGeRenFeiYong 
  447.             Caption         =   "员工个人费用"
  448.             Visible         =   0   'False
  449.          End
  450.       End
  451.    End
  452.    Begin VB.Menu mnufulibaoxianlaowufei 
  453.       Caption         =   "福利保险福利费(&F)"
  454.       Begin VB.Menu mnufulibaoxianlaowufeiyanglaobaoxian 
  455.          Caption         =   "养老保险"
  456.          Begin VB.Menu mnuGongSiBiLi 
  457.             Caption         =   "公司比例"
  458.          End
  459.          Begin VB.Menu mnu_YangLaoBaoXianDengJi 
  460.             Caption         =   "养老保险登记"
  461.          End
  462.          Begin VB.Menu mnuGeRenFeiYong 
  463.             Caption         =   "个人费用记录"
  464.          End
  465.          Begin VB.Menu mnuJiaoFeiQingKuang 
  466.             Caption         =   "缴费情况表"
  467.          End
  468.          Begin VB.Menu mnuShouZhiYueBao 
  469.             Caption         =   "收支月报"
  470.          End
  471.          Begin VB.Menu mnuGeRenBaoXianChaXun 
  472.             Caption         =   "个人保险费用查询"
  473.          End
  474.       End
  475.       Begin VB.Menu mnufulibaoxianlaowufeishiyebaoxian 
  476.          Caption         =   "失业保险"
  477.          Visible         =   0   'False
  478.       End
  479.       Begin VB.Menu mnufulibaoxianlaowufeidabingyiliao 
  480.          Caption         =   "大病医疗"
  481.          Begin VB.Menu mnu_DaBingTouChouDengJi 
  482.             Caption         =   "大病统筹登记"
  483.          End
  484.          Begin VB.Menu mnu_DaBingTongChouBaoBiao 
  485.             Caption         =   "大病统筹报表"
  486.          End
  487.       End
  488.       Begin VB.Menu mnufulibaoxianlaowufeifulifeiyongdengji 
  489.          Caption         =   "福利费"
  490.          Begin VB.Menu mnu_FuLiFeiYongDengJi 
  491.             Caption         =   "福利费用登记"
  492.          End
  493.          Begin VB.Menu mnu_FuLiFeiYongCX 
  494.             Caption         =   "福利费用查询"
  495.          End
  496.          Begin VB.Menu Mnu_FuLiFeiYongBaoBiao 
  497.             Caption         =   "福利费用报表"
  498.          End
  499.       End
  500.       Begin VB.Menu mnuLaoWu 
  501.          Caption         =   "劳务费"
  502.          Begin VB.Menu mnuLaoWuFeiDengJi 
  503.             Caption         =   "劳务费登记"
  504.          End
  505.          Begin VB.Menu mnuLaoWiFeiJiHua 
  506.             Caption         =   "劳务费查询"
  507.          End
  508.       End
  509.    End
  510.    Begin VB.Menu mnuPeiXun 
  511.       Caption         =   "培    训(&P)"
  512.       Begin VB.Menu mnuPeiXunJiHuaDengJi 
  513.          Caption         =   "部门培训计划登记"
  514.       End
  515.       Begin VB.Menu mnuPeiXunShiShiJiHua 
  516.          Caption         =   "培训实施计划"
  517.       End
  518.       Begin VB.Menu mnuPeiXunxXiangMuShiShi 
  519.          Caption         =   "培训项目实施表"
  520.       End
  521.       Begin VB.Menu mnuYuanGongPeiXunDangAn 
  522.          Caption         =   "员工培训档案"
  523.       End
  524.       Begin VB.Menu mnuNianDuPeiXunJiHuaHuiZong 
  525.          Caption         =   "年度培训计划汇总"
  526.       End
  527.       Begin VB.Menu mnuShiShiJiHuaHuiZong 
  528.          Caption         =   "年度实施计划汇总"
  529.       End
  530.       Begin VB.Menu mnuYuanGongPeiXunFeiYongHuiZong 
  531.          Caption         =   "员工培训费用汇总"
  532.          Visible         =   0   'False
  533.       End
  534.       Begin VB.Menu mnuPeiXunChaXun 
  535.          Caption         =   "查询统计"
  536.          Begin VB.Menu mnu_BuMenPeiXunJiHuaCX 
  537.             Caption         =   "部门培训计划查询"
  538.          End
  539.          Begin VB.Menu mnu_PeiXunShiShiJiHuaCX 
  540.             Caption         =   "培训实施计划查询"
  541.          End
  542.          Begin VB.Menu mnu_PeiXunXiangMuShiShiCX 
  543.             Caption         =   "培训项目实施查询"
  544.          End
  545.       End
  546.    End
  547.    Begin VB.Menu mnulaobaowupin 
  548.       Caption         =   "劳保物品管理(&M)"
  549.       Begin VB.Menu mnuGangWeiLaoBaoBiaoZhun 
  550.          Caption         =   "岗位劳保物品配备标准"
  551.       End
  552.       Begin VB.Menu mnuLaoBaoFaFangMingDan 
  553.          Caption         =   "劳保发放名单"
  554.       End
  555.    End
  556.    Begin VB.Menu mnujiangcheng 
  557.       Caption         =   "奖    惩(&J)"
  558.       Begin VB.Menu mnuJiangLi 
  559.          Caption         =   "奖  励"
  560.       End
  561.       Begin VB.Menu mnuChengFa 
  562.          Caption         =   "惩  罚"
  563.       End
  564.    End
  565.    Begin VB.Menu mnujinsheng 
  566.       Caption         =   "晋    升(&Y)"
  567.    End
  568.    Begin VB.Menu mnuTongJi 
  569.       Caption         =   "统计报表(&R)"
  570.       Begin VB.Menu mnulaoDongXiaoYiJiBao 
  571.          Caption         =   "劳动效益季报"
  572.       End
  573.       Begin VB.Menu mnuLaoDongXiaoYiNianBao 
  574.          Caption         =   "劳动效益年报"
  575.       End
  576.       Begin VB.Menu mnulaoDongQueBao 
  577.          Caption         =   "劳动情况月报基层表"
  578.          Visible         =   0   'False
  579.       End
  580.       Begin VB.Menu mnuQuanYuanYiLanBiao 
  581.          Caption         =   "全员情况一览表"
  582.          Visible         =   0   'False
  583.       End
  584.       Begin VB.Menu mnulaoDongQingKuangBiao 
  585.          Caption         =   "劳动情况表"
  586.          Visible         =   0   'False
  587.       End
  588.    End
  589.    Begin VB.Menu XTWH 
  590.       Caption         =   "系统维护(&S)"
  591.       Begin VB.Menu WPLY 
  592.          Caption         =   "物品领用"
  593.          Visible         =   0   'False
  594.       End
  595.       Begin VB.Menu BLJSWH 
  596.          Caption         =   "比例基数维护"
  597.          Visible         =   0   'False
  598.       End
  599.       Begin VB.Menu mnuAbout 
  600.          Caption         =   "关 于……"
  601.       End
  602.       Begin VB.Menu LINE1 
  603.          Caption         =   "-"
  604.       End
  605.       Begin VB.Menu ToolData 
  606.          Caption         =   "数据维护"
  607.          Visible         =   0   'False
  608.       End
  609.       Begin VB.Menu mnuOperMana 
  610.          Caption         =   "操作员管理"
  611.       End
  612.       Begin VB.Menu mnuPWS 
  613.          Caption         =   "口令修改"
  614.       End
  615.       Begin VB.Menu Exit 
  616.          Caption         =   "退    出"
  617.          Shortcut        =   ^Q
  618.       End
  619.    End
  620. End
  621. Attribute VB_Name = "RSGL"
  622. Attribute VB_GlobalNameSpace = False
  623. Attribute VB_Creatable = False
  624. Attribute VB_PredeclaredId = True
  625. Attribute VB_Exposed = False
  627. 'Private Function pGetPicture(sFileName As String) As StdPicture
  628. '    Set pGetPicture = LoadPicture(App.Path + "Image" + sFileName + ".ico")
  629. 'End Function
  630. '
  631. 'Private Sub ShowMenu()
  632. '    With SmartMenuXP1.MenuItems
  633. '        .Add 0, "mnuRenYuan", , "人员管理(&R)    "
  634. '        .Add "MENU_QT", "MENU_Par_RUZHU", , "入住登记    "
  635. '        .Add "MENU_Par_RUZHU", "mnuChina", , "国内旅客入住      ", pGetPicture("BreakPoints"), , vbKeyF5
  636. '        .Add "MENU_Par_RUZHU", "mnuChina_Group", , "国内团体入住      ", pGetPicture("Designer"), vbCtrlMask, vbKeyF5
  637. '        .Add "MENU_Par_RUZHU", "mnuSoil", , "境外旅客入住      ", pGetPicture("Processes"), , vbKeyF6
  638. '        .Add "MENU_Par_RUZHU", "mnuSoil_Group", , "境外团体入住      ", pGetPicture("NewProject"), vbCtrlMask, vbKeyF6
  639. '        .Add "MENU_QT", "mnuRetu", , "退房登记    ", pGetPicture("closesolution"), , vbKeyF7
  640. '        .Add "MENU_QT", "mnuChange", , "换房登记    ", pGetPicture("OpenProject"), , vbKeyF8
  641. '        .Add "MENU_QT", "mnuModi", , "旅客信息修改      ", pGetPicture("ViewOpen"), , vbKeyF9
  642. '        .Add "MENU_QT", "mnuRoomMana", , "客房管理      "
  643. '        .Add "MENU_QT", "mnuOutInfo", , "外部接口信息      "
  644. '        .Add "MENU_QT", "mnuExit", , "退出系统    ", pGetPicture("OpenProjectFromWeb"), vbCtrlMask, vbKeyQ
  645. '
  646. '        .Add 0, "mnuSysTools", , "&S.系统工具    "
  647. '        .Add "mnuSysTools", "mnuRoomMan", , "客房管理    ", pGetPicture("FindSymbol")
  648. '        .Add "mnuSysTools", "mnuDataMana", , "数据库维护     ", pGetPicture("NewFile")
  649. '
  650. '        .Add 0, "mnuSysReports", , "&R.查询报表    "
  651. '        .Add "mnuSysReports", "mnuHistoryInfo", , "客历信息    "
  652. '        .Add "mnuSysReports", "mnuGuestInfo", , "旅客信息    ", pGetPicture("Code")
  653. '        .Add "mnuSysReports", "mnuSearchTotal", , "统计信息    "
  654. '        .Add "mnuSearchTotal", "mnuPreceTotal", , "开房率统计     "
  655. '        .Add "mnuSearchTotal", "mnuMonthTotal", , "旅客按月统计      "
  656. '        .Add "mnuSearchTotal", "mnuDayTotal", , "旅客按日统计      "
  657. '
  658. '
  659. '        .Add 0, "mnuSysManager", , "&M.系统管理    "
  660. '        .Add "mnuSysManager", "mnuOperatorMana", , "操作员管理     "
  661. '        .Add "mnuSysManager", "mnuCodeMana", , "数据字典管理      "
  662. '        .Add "mnuSysManager", "mnuSysSet", , "系统设置    "
  663. '        .Add "mnuSysManager", "mnuSysInfo", , "日志信息    "
  664. '        .Add "mnuSysManager", "mnuTONGXUN", , "通讯发包情况       "
  665. '
  666. '        .Add 0, "mnuHelp", , "&H.帮助  "
  667. '    End With
  668. '
  669. '    SmartMenuXP1.Font.Name = "Ms Sans Serif"
  670. '    SmartMenuXP1.Font.Size = 9
  671. '
  672. 'End Sub
  673. Private Sub BLJSWH_Click()
  674.     frm_BLJSWH.Show
  675.     Me.Enabled = False
  676. End Sub
  678. Private Sub Exit_Click()
  679.     If MsgBox("是否确认退出本系统？", vbYesNo + vbQuestion, "系统提示") = vbNo Then Exit Sub
  680.         End
  681. End Sub
  683. Private Sub Form_Load()
  684.     'Dim TextBox As TextBox
  685.     On Error Resume Next
  686.     For Each TextBox In Me.Controls
  687.         'TextBox.Font.Name = "宋体"
  688.         'TextBox.Font.Size = 9
  689.     Next
  690. '
  691. '   DRP_人员增减变动.Show
  692. '   SetParent DRP_人员增减变动.hWnd, Frame1.hWnd
  693.  
  694. End Sub
  696. Private Sub GZLLD_Click()
  697.     FRM_GZLLDJS.Show
  698.     Me.Enabled = False
  699. End Sub
  701. Private Sub mnu_BuMenPeiXunJiHuaCX_Click()
  702.     F_PeiXunJiHuaCX.Show
  703.     Me.Enabled = False
  704. End Sub
  706. Private Sub mnu_BuMenYueGongZiHuiZong_Click()
  707. F_KYGongZiYueBuMen.Show
  708. Me.Enabled = False
  709. End Sub
  711. Private Sub mnu_DaBingTongChouBaoBiao_Click()
  712.     frm_DBYLJL.Show
  713.     Me.Enabled = False
  714. End Sub
  716. Private Sub mnu_DaBingTouChouDengJi_Click()
  717.     frm_DBTCDJ.Show
  718.     Me.Enabled = False
  719. End Sub
  721. Private Sub mnu_GongZiTiao_Click()
  722. F_KYGongZiTiao.Show
  723. Me.Enabled = False
  725. End Sub
  727. Private Sub Mnu_FuLiFeiYongBaoBiao_Click()
  728. F_FuliFeiDaYin.Show
  729. Me.Enabled = False
  731. End Sub
  733. Private Sub mnu_FuLiFeiYongCX_Click()
  734.     F_FuliFeiCX.Show
  735.     Me.Enabled = False
  736. End Sub
  738. Private Sub mnu_FuLiFeiYongDengJi_Click()
  739. F_FuLiFeiYong.Show
  740. Me.Enabled = False
  742. End Sub
  744. Private Sub mnu_KaoQinCX_Click()
  745. F_KaoQinCX.Show
  746. Me.Enabled = False
  747. End Sub
  749. Private Sub mnu_MianShiCX_Click()
  750.     F_MianShiCX.Show
  751.     Me.Enabled = False
  752. End Sub
  754. Private Sub mnu_PeiXunShiShiJiHuaCX_Click()
  755.     F_PeiXunShiShiJiHuaCX.Show
  756.     Me.Enabled = False
  757. End Sub
  759. Private Sub mnu_PeiXunXiangMuShiShiCX_Click()
  760.     F_PeiXunXiangMuShiShiCX.Show
  761.     Me.Enabled = False
  762. End Sub
  764. Private Sub mnu_YangLaoBaoXianDengJi_Click()
  765. F_YangLaoBaoXianDengJi.Show
  766. Me.Enabled = False
  767. End Sub
  769. Private Sub mnu_YueGeRenGongZiMingXi_Click()
  770. 'F_KYGongZiYueGeRen.Show
  771. 'Me.Enabled = False
  772. End Sub
  774. Private Sub mnu_ZhaoPinCX_Click()
  775. F_ZhaoPInCX.Show
  776. Me.Enabled = False
  777. End Sub
  779. Private Sub mnu_ZhengShiGongGongZi_Click()
  780. F_KongYunGongZi.Show
  781. Me.Enabled = False
  782. End Sub
  784. Private Sub mnuAbout_Click()
  785.     frmAbout.Show vbModal
  786. End Sub
  788. Private Sub mnuChengFa_Click()
  789.     F_ChengFa.Show
  790.     Me.Enabled = False
  791. End Sub
  793. Private Sub mnuDaoQiYuBao_Click()
  794. F_LaoDongHeTongYuBao.Show
  795. Me.Enabled = False
  796. End Sub
  798. Private Sub mnuDingGangDingYuan_Click()
  799.     F_GangWeiShuoMing.Show
  800.     Me.Enabled = False
  801. End Sub
  803. Private Sub mnufulibaoxianlaowufeifulifeiyongdengji_Click()
  804.     'ToDo: Add 'mnufulibaoxianlaowufeifulifeiyongdengji_Click' code.
  806. End Sub
  808. Private Sub mnufulibaoxianlaowufeidabingyiliao_Click()
  809.     'ToDo: Add 'mnufulibaoxianlaowufeidabingyiliao_Click' code.
  811. End Sub
  813. Private Sub mnufulibaoxianlaowufeishiyebaoxian_Click()
  814.     'ToDo: Add 'mnufulibaoxianlaowufeishiyebaoxian_Click' code.
  815. 'F_ShiYeBaoXian.Show
  816.     frm_SYBXJL.Show
  817.     Me.Enabled = False
  818. End Sub
  820. Private Sub mnufulibaoxianlaowufeiyanglaobaoxian_Click()
  821.     'ToDo: Add 'mnufulibaoxianlaowufeiyanglaobaoxian_Click' code.
  822.     
  823. End Sub
  825. Private Sub mnuGangWeiLaoBaoBiaoZhun_Click()
  826.     F_LaoBaoBiaoZhun.Show
  827.     Me.Enabled = False
  828. End Sub
  830. Private Sub mnuGeRenFeiYong_Click()
  831. F_GeRenJiShu.Show
  832. Me.Enabled = False
  833. End Sub
  835. Private Sub mnuGeRenSuoDeSui_Click()
  836. F_GeRenSuoDeShui.Show
  837. Me.Enabled = True
  838. End Sub
  840. Private Sub mnuGongSiBiLi_Click()
  841.     F_YangLaoBeLi.Show
  842.     Me.Enabled = False
  843. End Sub
  845. Private Sub mnuJiangLi_Click()
  846.     F_Jiangli.Show
  847.     Me.Enabled = False
  848. End Sub
  850. Private Sub mnuJiaoFeiQingKuang_Click()
  851.     F_YangLaoJiaoFei.Show
  852.     Me.Enabled = False
  853. End Sub
  855. Private Sub mnujinsheng_Click()
  856.     F_JinSheng.Show
  857.     Me.Enabled = False
  858. End Sub
  860. Private Sub mnuLaoBaoFaFangMingDan_Click()
  861.     F_LaoBaoFaFangMingDan.Show
  862.     Me.Enabled = False
  863. End Sub
  865. Private Sub mnulaoDongHeTongDengJi_Click()
  866.  F_LaoDongHeTong.Show
  867.  Me.Enabled = False
  868. End Sub
  870. Private Sub mnuLaoDongHeTongLiShi_Click()
  871. F_LaoDongHeTongLiShi.Show
  872. Me.Enabled = False
  873. End Sub
  875. Private Sub mnulaoDongXiaoYiJiBao_Click()
  876.     F_GongZiXiaoYiJiBao.Show
  877.     Me.Enabled = False
  878. End Sub
  880. Private Sub mnuLaoDongXiaoYiNianBao_Click()
  881.     F_GongZiXiaoYiNianBao.Show
  882.     Me.Enabled = False
  883. End Sub
  885. Private Sub mnuLaoWiFeiJiHua_Click()
  886.     F_LaoWuFeiCX.Show
  887.     Me.Enabled = False
  888. End Sub
  890. Private Sub mnuLaoWuFeiDengJi_Click()
  891.     F_LaoWuFeiDengJi.Show
  892.     Me.Enabled = False
  893. End Sub
  895. Private Sub mnuLiZhiJiaoJie_Click()
  896. F_LiZhiJiaoJie.Show
  897. Me.Enabled = False
  898. End Sub
  900. Private Sub mnuMaster_Click()
  901.     frmMaster.Show vbModal
  902. End Sub
  904. Private Sub mnuMianShiDengJi_Click()
  905. F_Mianshi.Show
  906. Me.Enabled = False
  907. End Sub
  909. Private Sub mnuNianDuPeiXunJiHuaHuiZong_Click()
  911. 'f_PeiXunJiHuaHuiZong.Show
  912.     F_PXJHHZ.Show
  913.     Me.Enabled = False
  914. End Sub
  916. Private Sub mnuNianlingTongJi_Click()
  917. DRP_年龄文化职位.Show
  918. End Sub
  920. Private Sub mnuOperMana_Click()
  921.     frmOperMan.Show vbModal
  922. End Sub
  924. Private Sub mnuPeiXunJiHuaDengJi_Click()
  925.     F_BuMenPeiXunJiHua.Show
  926.     Me.Enabled = False
  927. End Sub
  929. Private Sub mnuPeiXunShiShiJiHua_Click()
  930.     F_PeiXunShiShiJiHua1.Show
  931.     Me.Enabled = False
  932. End Sub
  934. Private Sub mnuPeiXunxXiangMuShiShi_Click()
  935.     F_PeiXunXiangMuShiShi.Show
  936.     Me.Enabled = False
  937. End Sub
  939. Private Sub mnuPWS_Click()
  940.     frmPWS.Show vbModal
  941. End Sub
  943. Private Sub mnuRenYuanJiBenXinXi_Click()
  944.     F_JiBenXinXi.Show
  945.     Me.Enabled = False
  946. End Sub
  948. Private Sub mnuRuZhiTongZhiShu_Click()
  949. F_RuZhiTongZhiShu.Show
  950. Me.Enabled = False
  951. End Sub
  953. Private Sub mnuShiShiJiHuaHuiZong_Click()
  954.     F_ShiShiJiHuaHuiZong.Show
  955. End Sub
  957. Private Sub mnuShouZhiYueBao_Click()
  958.     F_ShouZhiYueBao.Show
  959.     Me.Enabled = False
  960. End Sub
  962. Private Sub mnuXiaoShiGongGongZi_Click()
  963. F_XiaoShiGongGongZi.Show
  964. Me.Enabled = False
  965. End Sub
  967. Private Sub mnuxinzixinzichaxun_Click()
  968.     'ToDo: Add 'mnuxinzixinzichaxun_Click' code.
  969.    
  970. End Sub
  972. Private Sub mnuxinzigongzishengcheng_Click()
  973.     'ToDo: Add 'mnuxinzigongzishengcheng_Click' code.
  975. End Sub
  977. Private Sub mnuxinzikaohedengji_Click()
  978.     'ToDo: Add 'mnuxinzikaohedengji_Click' code.
  980. F_KaoHe.Show
  981. Me.Enabled = False
  982. End Sub
  984. Private Sub mnuxinzikaoqin_Click()
  985.     'ToDo: Add 'mnuxinzikaoqin_Click' code.
  987. F_KaoQin.Show
  988. Me.Enabled = False
  989. End Sub
  991. Private Sub mnurenyuanrenyuanchaxun_Click()
  992.     'ToDo: Add 'mnurenyuanrenyuanchaxun_Click' code.
  993.    
  994.   
  995. End Sub
  997. Private Sub mnurenyuanlaodonghetong_Click()
  998.     'ToDo: Add 'mnurenyuanlaodonghetong_Click' code.
  999.  
  1000. End Sub
  1002. Private Sub mnurenyuancundangfeiguanli_Click()
  1003.   'ToDo: Add 'mnurenyuancundangfeiguanli_Click' code.
  1004.   
  1005.   F_CunDangFeiYong.Show
  1006.   Me.Enabled = False
  1008. End Sub
  1010. Private Sub mnuYGSearch_Click()
  1011.     F_YGSearch.Show vbModal
  1012. End Sub
  1014. Private Sub mnuYuanGongPeiXunDangAn_Click()
  1015.     F_YuanGongPeiXunDangAn.Show
  1016.     Me.Enabled = False
  1017. End Sub
  1019. Private Sub mnuYuanGongTongJiBiao_Click()
  1020.     DRP_员工用工类型性别统计.Show
  1021. End Sub
  1023. Private Sub mnuZaiCeRenYuan_Click()
  1024.     F_RenYuanZhengJian.Show
  1025.     Me.Enabled = False
  1026. End Sub
  1028. Private Sub mnuZaiGangGongZi_Click()
  1030.     F_ZaiZhiGongGongZi.Show
  1031.     Me.Enabled = False
  1033. End Sub
  1035. Private Sub mnuZengGangXvQiu_Click()
  1037.     F_ZhengGangXVQiu.Show
  1038.     Me.Enabled = False
  1040. End Sub
  1042. Private Sub mnuZengYuanXvQiu_Click()
  1043.     F_BuYuanShenQing.Show
  1044.     Me.Enabled = False
  1045. End Sub
  1047. Private Sub mnuZhaoPinDengJi_Click()
  1049.     F_ZhaoPin.Show
  1050.     Me.Enabled = False
  1051. End Sub
  1054. Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
  1055.     Select Case Button.Key
  1056.         Case "ToolRYGL"
  1057.             Call mnuRenYuanJiBenXinXi_Click  '人员基本信息
  1058.         Case "ToolCDFGL"
  1059.             Call mnurenyuancundangfeiguanli_Click
  1060.         Case "ToolHTDJ"                     '合同登记
  1061.             Call mnulaoDongHeTongDengJi_Click
  1062.         Case "ToolKQDJ"
  1063.             Call mnuxinzikaoqin_Click        '考勤登记
  1064.         Case "ToolKHDJ"
  1065.             Call mnuxinzikaohedengji_Click
  1066.         Case "ToolGZSC"
  1067.             Call mnuZaiGangGongZi_Click       '在职职工工资生成
  1068.         Case "ToolYLBX"
  1069.             Call mnu_YangLaoBaoXianDengJi_Click     '养老保险登记
  1070.         Case "ToolFLFY"
  1071.             Call mnu_FuLiFeiYongDengJi_Click      '福利费用登记
  1072.         Case "ToolLWFDJ"
  1073.             Call mnuLaoWuFeiDengJi_Click        '劳务费登记
  1074.         Case "ToolBMPX"
  1075.             Call mnuPeiXunJiHuaDengJi_Click     '部门培训计划登记
  1076.         Case "ToolPXSSJH"
  1077.             Call mnuPeiXunShiShiJiHua_Click     '培训实施计划
  1078.         Case "ToolJL"
  1079.             Call mnuJiangLi_Click               '奖励
  1080.         Case "ToolCF"
  1081.             Call mnuChengFa_Click               '惩罚
  1082.         Case "ToolOperMana"
  1083.              Call mnuOperMana_Click         '操作员管理
  1084.         Case "ToolPWS"
  1085.             Call mnuPWS_Click               '口令修改
  1086.         Case "ToolQuit"
  1087.             Call Exit_Click                 '退出系统
  1088.     End Select
  1089. End Sub
  1091. Private Sub ToolData_Click()
  1092.     frmDBMaintain.Show vbModal
  1093. End Sub
  1095. Private Sub WPLY_Click()
  1096.     FRMckd.Show
  1097.     Me.Enabled = False
  1098. End Sub