frmMain.frm
上传用户:wd52qq
上传日期:2022-07-24
资源大小:5366k
文件大小:26k
源码类别:

企业管理

开发平台:

Visual Basic

  1. VERSION 5.00
  2. Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
  3. Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
  4. Begin VB.Form frmMain 
  5.    Caption         =   "人力资源管理系统"
  6.    ClientHeight    =   8790
  7.    ClientLeft      =   165
  8.    ClientTop       =   450
  9.    ClientWidth     =   11970
  10.    Icon            =   "frmMain.frx":0000
  11.    LinkTopic       =   "Form1"
  12.    Picture         =   "frmMain.frx":164A
  13.    ScaleHeight     =   8790
  14.    ScaleWidth      =   11970
  15.    StartUpPosition =   2  '屏幕中心
  16.    Begin MSComDlg.CommonDialog CommonDialog1 
  17.       Left            =   -105
  18.       Top             =   720
  19.       _ExtentX        =   847
  20.       _ExtentY        =   847
  21.       _Version        =   393216
  22.    End
  23.    Begin MSComctlLib.StatusBar sbStatusBar 
  24.       Align           =   2  'Align Bottom
  25.       Height          =   390
  26.       Left            =   0
  27.       TabIndex        =   0
  28.       Top             =   8400
  29.       Width           =   11970
  30.       _ExtentX        =   21114
  31.       _ExtentY        =   688
  32.       _Version        =   393216
  33.       BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628} 
  34.          NumPanels       =   1
  35.          BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
  36.          EndProperty
  37.       EndProperty
  38.    End
  39.    Begin MSComctlLib.ImageList imlToolbarIcons 
  40.       Left            =   -330
  41.       Top             =   90
  42.       _ExtentX        =   1005
  43.       _ExtentY        =   1005
  44.       BackColor       =   -2147483643
  45.       ImageWidth      =   32
  46.       ImageHeight     =   32
  47.       MaskColor       =   12632256
  48.       _Version        =   393216
  49.       BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
  50.          NumListImages   =   2
  51.          BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  52.             Picture         =   "frmMain.frx":168CF
  53.             Key             =   ""
  54.          EndProperty
  55.          BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  56.             Picture         =   "frmMain.frx":17F29
  57.             Key             =   ""
  58.          EndProperty
  59.       EndProperty
  60.    End
  61.    Begin MSComctlLib.TreeView TreeView1 
  62.       Height          =   6945
  63.       Left            =   150
  64.       TabIndex        =   2
  65.       Top             =   1380
  66.       Width           =   2865
  67.       _ExtentX        =   5054
  68.       _ExtentY        =   12250
  69.       _Version        =   393217
  70.       Style           =   7
  71.       ImageList       =   "imlToolbarIcons"
  72.       Appearance      =   0
  73.    End
  74.    Begin VB.Label Label2 
  75.       BackStyle       =   0  'Transparent
  76.       Height          =   300
  77.       Index           =   3
  78.       Left            =   11445
  79.       TabIndex        =   7
  80.       Top             =   570
  81.       Width           =   300
  82.    End
  83.    Begin VB.Label Label2 
  84.       BackStyle       =   0  'Transparent
  85.       Height          =   300
  86.       Index           =   2
  87.       Left            =   10845
  88.       TabIndex        =   6
  89.       Top             =   570
  90.       Width           =   300
  91.    End
  92.    Begin VB.Label Label2 
  93.       BackStyle       =   0  'Transparent
  94.       Height          =   300
  95.       Index           =   1
  96.       Left            =   10245
  97.       TabIndex        =   5
  98.       Top             =   570
  99.       Width           =   300
  100.    End
  101.    Begin VB.Label Label2 
  102.       BackStyle       =   0  'Transparent
  103.       Height          =   300
  104.       Index           =   0
  105.       Left            =   9675
  106.       TabIndex        =   4
  107.       Top             =   570
  108.       Width           =   300
  109.    End
  110.    Begin VB.Label lblCaption1 
  111.       BackStyle       =   0  'Transparent
  112.       Height          =   180
  113.       Index           =   0
  114.       Left            =   4005
  115.       TabIndex        =   3
  116.       Top             =   3765
  117.       Width           =   1470
  118.    End
  119.    Begin VB.Image Image1 
  120.       Height          =   1125
  121.       Index           =   0
  122.       Left            =   4000
  123.       Picture         =   "frmMain.frx":19583
  124.       Top             =   2625
  125.       Visible         =   0   'False
  126.       Width           =   1470
  127.    End
  128.    Begin VB.Label Label1 
  129.       BackStyle       =   0  'Transparent
  130.       Height          =   180
  131.       Left            =   3705
  132.       TabIndex        =   1
  133.       Top             =   1260
  134.       Width           =   6045
  135.    End
  136.    Begin VB.Menu m 
  137.       Caption         =   "1000"
  138.       Index           =   0
  139.       Begin VB.Menu m1 
  140.          Caption         =   "1001"
  141.          Index           =   0
  142.       End
  143.       Begin VB.Menu m1 
  144.          Caption         =   "-"
  145.          Index           =   1
  146.       End
  147.       Begin VB.Menu m1 
  148.          Caption         =   "1002"
  149.          Index           =   2
  150.       End
  151.       Begin VB.Menu m1 
  152.          Caption         =   "1003"
  153.          Index           =   3
  154.       End
  155.       Begin VB.Menu m1 
  156.          Caption         =   "1004"
  157.          Index           =   4
  158.       End
  159.       Begin VB.Menu m1 
  160.          Caption         =   "-"
  161.          Index           =   5
  162.       End
  163.       Begin VB.Menu m1 
  164.          Caption         =   "1005"
  165.          Index           =   6
  166.       End
  167.       Begin VB.Menu m1 
  168.          Caption         =   "1006"
  169.          Index           =   7
  170.       End
  171.       Begin VB.Menu m1 
  172.          Caption         =   "1007"
  173.          Index           =   8
  174.       End
  175.       Begin VB.Menu m1 
  176.          Caption         =   "-"
  177.          Index           =   9
  178.       End
  179.       Begin VB.Menu m1 
  180.          Caption         =   "1008"
  181.          Index           =   10
  182.       End
  183.       Begin VB.Menu m1 
  184.          Caption         =   "1009"
  185.          Index           =   11
  186.       End
  187.       Begin VB.Menu m1 
  188.          Caption         =   "1010"
  189.          Index           =   12
  190.       End
  191.       Begin VB.Menu m1 
  192.          Caption         =   "1011"
  193.          Index           =   13
  194.       End
  195.    End
  196.    Begin VB.Menu m 
  197.       Caption         =   "1012"
  198.       Index           =   1
  199.       Begin VB.Menu m2 
  200.          Caption         =   "1013"
  201.          Index           =   0
  202.       End
  203.       Begin VB.Menu m2 
  204.          Caption         =   "1014"
  205.          Index           =   1
  206.       End
  207.       Begin VB.Menu m2 
  208.          Caption         =   "1015"
  209.          Index           =   2
  210.       End
  211.    End
  212.    Begin VB.Menu m 
  213.       Caption         =   "1016"
  214.       Index           =   2
  215.       Begin VB.Menu m3 
  216.          Caption         =   "1017"
  217.          Index           =   0
  218.       End
  219.       Begin VB.Menu m3 
  220.          Caption         =   "1018"
  221.          Index           =   1
  222.       End
  223.       Begin VB.Menu m3 
  224.          Caption         =   "-"
  225.          Index           =   2
  226.       End
  227.       Begin VB.Menu m3 
  228.          Caption         =   "1019"
  229.          Index           =   3
  230.       End
  231.       Begin VB.Menu m3 
  232.          Caption         =   "1020"
  233.          Index           =   4
  234.       End
  235.       Begin VB.Menu m3 
  236.          Caption         =   "1021"
  237.          Index           =   5
  238.       End
  239.       Begin VB.Menu m3 
  240.          Caption         =   "-"
  241.          Index           =   6
  242.       End
  243.       Begin VB.Menu m3 
  244.          Caption         =   "1022"
  245.          Index           =   7
  246.       End
  247.       Begin VB.Menu m3 
  248.          Caption         =   "1023"
  249.          Index           =   8
  250.       End
  251.       Begin VB.Menu m3 
  252.          Caption         =   "1024"
  253.          Index           =   9
  254.       End
  255.       Begin VB.Menu m3 
  256.          Caption         =   "1025"
  257.          Index           =   10
  258.       End
  259.       Begin VB.Menu m3 
  260.          Caption         =   "1026"
  261.          Index           =   11
  262.       End
  263.       Begin VB.Menu m3 
  264.          Caption         =   "-"
  265.          Index           =   12
  266.       End
  267.       Begin VB.Menu m3 
  268.          Caption         =   "1027"
  269.          Index           =   13
  270.       End
  271.       Begin VB.Menu m3 
  272.          Caption         =   "1028"
  273.          Index           =   14
  274.       End
  275.    End
  276.    Begin VB.Menu m 
  277.       Caption         =   "1029"
  278.       Index           =   3
  279.       Begin VB.Menu m4 
  280.          Caption         =   "1030"
  281.          Index           =   0
  282.       End
  283.       Begin VB.Menu m4 
  284.          Caption         =   "1031"
  285.          Index           =   1
  286.       End
  287.       Begin VB.Menu m4 
  288.          Caption         =   "1032"
  289.          Index           =   2
  290.       End
  291.       Begin VB.Menu m4 
  292.          Caption         =   "-"
  293.          Index           =   3
  294.       End
  295.       Begin VB.Menu m4 
  296.          Caption         =   "1033"
  297.          Index           =   4
  298.       End
  299.       Begin VB.Menu m4 
  300.          Caption         =   "1034"
  301.          Index           =   5
  302.       End
  303.       Begin VB.Menu m4 
  304.          Caption         =   "-"
  305.          Index           =   6
  306.       End
  307.       Begin VB.Menu m4 
  308.          Caption         =   "1035"
  309.          Index           =   7
  310.       End
  311.    End
  312.    Begin VB.Menu m 
  313.       Caption         =   "1036"
  314.       Index           =   4
  315.       Begin VB.Menu m5 
  316.          Caption         =   "1037"
  317.          Index           =   0
  318.       End
  319.       Begin VB.Menu m5 
  320.          Caption         =   "1038"
  321.          Index           =   1
  322.       End
  323.       Begin VB.Menu m5 
  324.          Caption         =   "1039"
  325.          Index           =   2
  326.       End
  327.       Begin VB.Menu m5 
  328.          Caption         =   "1040"
  329.          Index           =   3
  330.       End
  331.    End
  332.    Begin VB.Menu m 
  333.       Caption         =   "1041"
  334.       Index           =   5
  335.       Begin VB.Menu m6 
  336.          Caption         =   "1042"
  337.          Index           =   0
  338.       End
  339.       Begin VB.Menu m6 
  340.          Caption         =   "1043"
  341.          Index           =   1
  342.       End
  343.       Begin VB.Menu m6 
  344.          Caption         =   "1044"
  345.          Index           =   2
  346.       End
  347.       Begin VB.Menu m6 
  348.          Caption         =   "1045"
  349.          Index           =   3
  350.       End
  351.    End
  352.    Begin VB.Menu m 
  353.       Caption         =   "1046"
  354.       Index           =   6
  355.       Begin VB.Menu m7 
  356.          Caption         =   "1047"
  357.          Index           =   0
  358.       End
  359.       Begin VB.Menu m7 
  360.          Caption         =   "1048"
  361.          Index           =   1
  362.       End
  363.    End
  364. End
  365. Attribute VB_Name = "frmMain"
  366. Attribute VB_GlobalNameSpace = False
  367. Attribute VB_Creatable = False
  368. Attribute VB_PredeclaredId = True
  369. Attribute VB_Exposed = False
  370. Dim i As Integer, a As Integer
  371. Function blnPower(str As String) As Boolean
  372.   Dim rs1 As New ADODB.Recordset
  373.   rs1.Open "select * from 权限信息表 where 操作员='" & czy & "'", Cnn, adOpenKeyset, adLockOptimistic
  374.    If rs1.RecordCount > 0 Then
  375.       If rs1.Fields(str) = False Then
  376.          blnPower = False
  377.       Else
  378.          blnPower = True
  379.       End If
  380.    End If
  381.    rs1.Close
  382. End Function
  383. Private Sub Form_Load()
  384.   Dim pnlX As Panel
  385.   '添加面板,并将它们设置为目录。
  386.   sbStatusBar.Panels(1).AutoSize = sbrContents
  387.   sbStatusBar.Panels(1) = mytag
  388.   Set pnlX = sbStatusBar.Panels.Add
  389.   pnlX.AutoSize = sbrContents
  390.   pnlX.text = "当前操作员: " & czy
  391.   Set pnlX = sbStatusBar.Panels.Add
  392.   pnlX.Style = sbrDate
  393.   Set pnlX = sbStatusBar.Panels.Add
  394.   pnlX.Style = sbrTime
  395.   '设置图形按钮的初始位置
  396.   Image1(0).Left = 4000
  397.   Image1(0).Top = 2625
  398.   '将VB资源管理器中的字符串添加到菜单中
  399.   On Error Resume Next
  400.   Dim ctl As Control
  401.   Dim sCtlType As String
  402.   For Each ctl In Me.Controls
  403.     sCtlType = TypeName(ctl)
  404.     If sCtlType = "Menu" Then
  405.        ctl.Caption = LoadResString(CInt(ctl.Caption))
  406.     End If
  407.   Next
  408.   '添加树状菜单
  409.   Dim nodX As Node
  410.   Set nodX = TreeView1.Nodes.Add(, , "X1", "基本资料管理", 1)
  411.   For a = 1 To 11
  412.      TreeView1.Nodes.Add "X1", tvwChild, "C" & a, LoadResString(a + 1000), 2
  413.   Next a
  414.   Set nodX = TreeView1.Nodes.Add(, , "X2", "工资设置", 1)
  415.   For a = 12 To 14
  416.      TreeView1.Nodes.Add "X2", tvwChild, "C" & a, LoadResString(a + 1001), 2
  417.   Next a
  418.   Set nodX = TreeView1.Nodes.Add(, , "X3", "人事管理", 1)
  419.   For a = 15 To 26
  420.      TreeView1.Nodes.Add "X3", tvwChild, "C" & a, LoadResString(a + 1002), 2
  421.   Next a
  422.   Set nodX = TreeView1.Nodes.Add(, , "X4", "工资管理", 1)
  423.   For a = 27 To 32
  424.      TreeView1.Nodes.Add "X4", tvwChild, "C" & a, LoadResString(a + 1003), 2
  425.   Next a
  426.   Set nodX = TreeView1.Nodes.Add(, , "X5", "系统管理", 1)
  427.   For a = 33 To 36
  428.     TreeView1.Nodes.Add "X5", tvwChild, "C" & a, LoadResString(a + 1004), 2
  429.   Next a
  430.   Set nodX = TreeView1.Nodes.Add(, , "X6", "工具", 1)
  431.   For a = 37 To 40
  432.     TreeView1.Nodes.Add "X6", tvwChild, "C" & a, LoadResString(a + 1005), 2
  433.   Next a
  434.   Set nodX = TreeView1.Nodes.Add(, , "X7", "帮助", 1)
  435.   Set nodX = TreeView1.Nodes.Add("X7", tvwChild, "C41", "帮助", 2)
  436.   Set nodX = TreeView1.Nodes.Add("X7", tvwChild, "C42", "关于", 2)
  437.   nodX.EnsureVisible
  438.   '动态创建图形按钮(Image控件)和标题(Label控件)
  439.   For i = 1 To 12
  440.      i = Image1.UBound + 1
  441.      Load Image1(i)
  442.      Load lblCaption1(i)
  443.      Image1(i).ZOrder (0)
  444.      lblCaption1(i).ZOrder (0)
  445.   Next i
  446. End Sub
  447. Private Sub Image1_MouseMove(index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
  448.   Image1(index).BorderStyle = 1
  449.   Label1.Caption = TreeView1.SelectedItem.text & "/" & lblCaption1(index).Caption
  450. End Sub
  451. Private Sub Label2_MouseMove(index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
  452.   Label2(index).BorderStyle = 1
  453. End Sub
  454. Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  455.   For i = 1 To Image1.UBound
  456.     Image1(i).BorderStyle = 0
  457.   Next i
  458.   For i = 0 To Label2.UBound
  459.     Label2(i).BorderStyle = 0
  460.   Next i
  461. End Sub
  462. Private Sub Label1_Change()
  463.   sbStatusBar.Panels(1).text = "当前位置: " & Label1
  464. End Sub
  465. Private Sub Image1_Click(index As Integer)
  466.   text = lblCaption1(index).Caption
  467.   Image1(index).BorderStyle = 1
  468.   If blnPower(lblCaption1(index).Caption) = False Then
  469.      MsgBox "对不起,您没有使用此项功能的权限!", vbInformation, "提示窗口"
  470.      Exit Sub
  471.   End If
  472.   Select Case lblCaption1(index).Caption
  473.     Case "部门管理"
  474.       Load main_jbzl_bmgl
  475.       main_jbzl_bmgl.Show 1
  476.     Case "工种类型管理"
  477.       jbxxtb = "工种表"
  478.     Case "职务类型管理"
  479.       jbxxtb = "职务表"
  480.     Case "职称类型管理"
  481.       jbxxtb = "职称表"
  482.     Case "文化程度管理"
  483.       jbxxtb = "文化程度表"
  484.     Case "政治面貌管理"
  485.       jbxxtb = "政治面貌表"
  486.     Case "民族管理"
  487.       jbxxtb = "民族表"
  488.     Case "培训课程管理"
  489.       Load main_jbzl_pxkc
  490.       main_jbzl_pxkc.Show 1
  491.     Case "考核项目管理"
  492.       Load main_jbzl_khlx
  493.       main_jbzl_khlx.Show 1
  494.     Case "合同类型管理"
  495.       Load main_jbzl_htlx
  496.       main_jbzl_htlx.Show 1
  497.     Case "聘用类型管理"
  498.       Load main_jbzl_pylx
  499.       main_jbzl_pylx.Show
  500.     Case "考勤信息设置"
  501.       Load main_gzsz_kqsz
  502.       main_gzsz_kqsz.Show 1
  503.     Case "奖励项目设置"
  504.       jbxxtb = "奖励项目表"
  505.       Load main_jbzl_public
  506.       main_jbzl_public.Show 1
  507.     Case "惩罚项目设置"
  508.       jbxxtb = "惩罚项目表"
  509.       Load main_jbzl_public
  510.       main_jbzl_public.Show 1
  511.     Case "工资设置"
  512.       Load main_gzsz_gzgs
  513.       main_gzsz_gzgs.Show 1
  514.     Case "人事信息管理"
  515.       Load main_rsgl_rsdaxx
  516.       main_rsgl_rsdaxx.Show 1
  517.     Case "新员工登记"
  518.        blnAddRS = True
  519.        Load main_rsgl_rsdaxx_lr
  520.       main_rsgl_rsdaxx_lr.Show 1
  521.     Case "员工调动"
  522.       Load main_rsgl_rsbd
  523.       main_rsgl_rsbd.Show 1
  524.     Case "员工离职"
  525.       Load main_rsgl_zylz
  526.       main_rsgl_zylz.Show 1
  527.     Case "员工复职"
  528.       Load main_rsgl_zyfz
  529.       main_rsgl_zyfz.Show 1
  530.     Case "培训管理"
  531.       Load main_rsgl_pxgl
  532.       main_rsgl_pxgl.Show 1
  533.     Case "考核管理"
  534.       Load main_rsgl_khgl
  535.       main_rsgl_khgl.Show 1
  536.     Case "合同管理"
  537.       Load main_rsgl_htgl
  538.       main_rsgl_htgl.Show 1
  539.     Case "聘用管理"
  540.       Load main_rsgl_pygl
  541.       main_rsgl_pygl.Show 1
  542.     Case "保险管理"
  543.       Load main_rsgl_bxgl
  544.       main_rsgl_bxgl.Show 1
  545.     Case "合同到期处理"
  546.       Cnn.Execute ("update 合同表 set 状态='到期' where 合同结束日期>" & Date)
  547.       MsgBox "到期合同处理成功!", , "提示"
  548.     Case "聘用到期处理"
  549.       Cnn.Execute ("update 聘用表 set 状态='到期' where 聘用结束日期>" & Date)
  550.       MsgBox "聘用到期处理成功!", , "提示"
  551.     Case "过期数据处理"
  552.       Load main_gzgl_gqsjcl
  553.       main_gzgl_gqsjcl.Show 1
  554.     Case "工资信息管理"
  555.       Load main_gzgl_gzgl
  556.       main_gzgl_gzgl.Show 1
  557.     Case "建立新月份工资"
  558.       Load main_gzgl_xyfgz
  559.       main_gzgl_xyfgz.Show 1
  560.     Case "员工奖励管理"
  561.       Load main_gzgl_jlgl
  562.       main_gzgl_jlgl.Show 1
  563.     Case "员工惩罚管理"
  564.       Load main_gzgl_cfgl
  565.       main_gzgl_cfgl.Show 1
  566.     Case "考勤信息管理"
  567.       Load main_gzgl_kqgl
  568.       main_gzgl_kqgl.Show 1
  569.     Case "用户管理"
  570.       Load main_xtgl_czqx
  571.       main_xtgl_czqx.Show 1
  572.     Case "口令设置"
  573.       Load main_xtgl_mm
  574.       main_xtgl_mm.Show 1
  575.     Case "数据初始化"
  576.       Load main_xtgl_sjcsh
  577.       main_xtgl_sjcsh.Show 1
  578.     Case "数据库备份与恢复"
  579.       Shell App.Path & "数据备份与恢复.exe", 1
  580.       Unload Me
  581.     Case "记事本"
  582.       Shell "notepad.exe", 1
  583.     Case "计算器"
  584.       Shell "CALC.EXE", 1
  585.     Case "Office-Word"
  586.       Dim newword As Word.Application
  587.       Set newword = CreateObject("Word.application")
  588.       newword.Documents.Add
  589.       newword.Visible = True
  590.     Case "Office-Excel"
  591.       Dim newxls As Excel.Application
  592.       Set newxls = CreateObject("Excel.Application") '创建excel应用程序,打开excel2000
  593.       newxls.Workbooks.Add                           '创建工作簿
  594.       newxls.Visible = True
  595.     Case "帮助"
  596.       CommonDialog1.HelpFile = App.Path & "/HELP.HLP"
  597.       CommonDialog1.HelpCommand = cdlHelpContents
  598.       CommonDialog1.ShowHelp                        '显示 Visual Basic 帮助目录主题
  599.     Case "关于"
  600.       Load frm_about
  601.       frm_about.Show 1
  602.   End Select
  603.   With lblCaption1(index)
  604.     If .Caption = "工种类型管理" Or .Caption = "职务类型管理" Or .Caption = "职称类型管理" Or .Caption = "文化程度管理" Or .Caption = "政治面貌管理" Or .Caption = "民族管理" Then
  605.        Load main_jbzl_public
  606.        main_jbzl_public.Show 1
  607.     End If
  608.   End With
  609. End Sub
  610. Private Sub Label2_Click(index As Integer)
  611.   Select Case index
  612.     Case 0
  613.       Temp = "www.mingrisoft.com"                                         '所要连接的网站名称
  614.       ShellExecute 0&, vbNullString, Temp, vbNullString, vbNullString, 0  '调用IE
  615.     Case 1
  616.       m7_Click (1)
  617.     Case 2
  618.       m7_Click (0)
  619.     Case 3
  620.       End
  621.   End Select
  622. End Sub
  623. Private Sub m1_Click(index As Integer)
  624.   text = m1(index).Caption
  625.   If blnPower(m1(index).Caption) = False Then
  626.      MsgBox "对不起,您没有使用此项功能的权限!", vbInformation, "提示窗口"
  627.      Exit Sub
  628.   End If
  629.   Select Case m1(index).Caption
  630.     Case "部门管理"
  631.       Load main_jbzl_bmgl
  632.       main_jbzl_bmgl.Show 1
  633.     Case "工种类型管理"
  634.       jbxxtb = "工种表"
  635.     Case "职务类型管理"
  636.       jbxxtb = "职务表"
  637.     Case "职称类型管理"
  638.       jbxxtb = "职称表"
  639.     Case "文化程度管理"
  640.       jbxxtb = "文化程度表"
  641.     Case "政治面貌管理"
  642.       jbxxtb = "政治面貌表"
  643.     Case "民族管理"
  644.       jbxxtb = "民族表"
  645.     Case "培训课程管理"
  646.       Load main_jbzl_pxkc
  647.       main_jbzl_pxkc.Show 1
  648.     Case "考核项目管理"
  649.       Load main_jbzl_khlx
  650.       main_jbzl_khlx.Show 1
  651.     Case "合同类型管理"
  652.       Load main_jbzl_htlx
  653.       main_jbzl_htlx.Show 1
  654.     Case "聘用类型管理"
  655.       Load main_jbzl_pylx
  656.       main_jbzl_pylx.Show
  657.   End Select
  658.   With m1(index)
  659.     If .Caption = "工种类型管理" Or .Caption = "职务类型管理" Or .Caption = "职称类型管理" Or .Caption = "文化程度管理" Or .Caption = "政治面貌管理" Or .Caption = "民族管理" Then
  660.        Load main_jbzl_public
  661.        main_jbzl_public.Show 1
  662.     End If
  663.   End With
  664. End Sub
  665. Private Sub m2_Click(index As Integer)
  666.   text = m2(index).Caption
  667.   If blnPower(m2(index).Caption) = False Then
  668.      MsgBox "对不起,您没有使用此项功能的权限!", vbInformation, "提示窗口"
  669.      Exit Sub
  670.   End If
  671.   Select Case m2(index).Caption
  672.     Case "工资设置"
  673.       Load main_gzsz_gzgs
  674.       main_gzsz_gzgs.Show 1
  675.     Case "奖励项目设置"
  676.       jbxxtb = "奖励项目表"
  677.       Load main_jbzl_public
  678.       main_jbzl_public.Show 1
  679.     Case "惩罚项目设置"
  680.       jbxxtb = "惩罚项目表"
  681.       Load main_jbzl_public
  682.       main_jbzl_public.Show 1
  683.   End Select
  684. End Sub
  685. Private Sub m3_Click(index As Integer)
  686.   text = m3(index).Caption
  687.   If blnPower(m3(index).Caption) = False Then
  688.      MsgBox "对不起,您没有使用此项功能的权限!", vbInformation, "提示窗口"
  689.      Exit Sub
  690.   End If
  691.   Select Case m3(index).Caption
  692.     Case "人事信息管理"
  693.       Load main_rsgl_rsdaxx
  694.       main_rsgl_rsdaxx.Show 1
  695.     Case "新员工登记"
  696.        blnAddRS = True
  697.        Load main_rsgl_rsdaxx_lr
  698.       main_rsgl_rsdaxx_lr.Show 1
  699.     Case "员工调动"
  700.       Load main_rsgl_rsbd
  701.       main_rsgl_rsbd.Show 1
  702.     Case "员工离职"
  703.       Load main_rsgl_zylz
  704.       main_rsgl_zylz.Show 1
  705.     Case "员工复职"
  706.       Load main_rsgl_zyfz
  707.       main_rsgl_zyfz.Show 1
  708.     Case "培训管理"
  709.       Load main_rsgl_pxgl
  710.       main_rsgl_pxgl.Show 1
  711.     Case "考核管理"
  712.       Load main_rsgl_khgl
  713.       main_rsgl_khgl.Show 1
  714.     Case "合同管理"
  715.       Load main_rsgl_htgl
  716.       main_rsgl_htgl.Show 1
  717.     Case "聘用管理"
  718.       Load main_rsgl_pygl
  719.       main_rsgl_pygl.Show 1
  720.     Case "保险管理"
  721.       Load main_rsgl_bxgl
  722.       main_rsgl_bxgl.Show 1
  723.     Case "合同到期处理"
  724.       Cnn.Execute ("update 合同表 set 状态='到期' where 合同结束日期>" & Date)
  725.       MsgBox "到期合同处理成功!", , "提示"
  726.     Case "聘用到期处理"
  727.       Cnn.Execute ("update 聘用表 set 状态='到期' where 聘用结束日期>" & Date)
  728.       MsgBox "聘用到期处理成功!", , "提示"
  729.   End Select
  730. End Sub
  731. Private Sub m4_Click(index As Integer)
  732.   text = m4(index).Caption
  733.   If blnPower(m4(index).Caption) = False Then
  734.      MsgBox "对不起,您没有使用此项功能的权限!", vbInformation, "提示窗口"
  735.      Exit Sub
  736.   End If
  737.   Select Case m4(index).Caption
  738.     Case "过期数据处理"
  739.       Load main_gzgl_gqsjcl
  740.       main_gzgl_gqsjcl.Show 1
  741.     Case "工资信息管理"
  742.       Load main_gzgl_gzgl
  743.       main_gzgl_gzgl.Show 1
  744.     Case "建立新月份工资"
  745.       Load main_gzgl_xyfgz
  746.       main_gzgl_xyfgz.Show 1
  747.     Case "员工奖励管理"
  748.       Load main_gzgl_jlgl
  749.       main_gzgl_jlgl.Show 1
  750.     Case "员工惩罚管理"
  751.       Load main_gzgl_cfgl
  752.       main_gzgl_cfgl.Show 1
  753.     Case "考勤信息管理"
  754.       Load main_gzgl_kqgl
  755.       main_gzgl_kqgl.Show 1
  756.   End Select
  757. End Sub
  758. Private Sub m5_Click(index As Integer)
  759.   text = m5(index).Caption
  760.    If blnPower(m5(index).Caption) = False Then
  761.      MsgBox "对不起,您没有使用此项功能的权限!", vbInformation, "提示窗口"
  762.      Exit Sub
  763.   End If
  764.   Select Case m5(index).Caption
  765.     Case "数据初始化"
  766.       Load main_xtgl_sjcsh
  767.       main_xtgl_sjcsh.Show 1
  768.     Case "用户管理"
  769.       Load main_xtgl_czqx
  770.       main_xtgl_czqx.Show 1
  771.     Case "口令设置"
  772.       Load main_xtgl_mm
  773.       main_xtgl_mm.Show 1
  774.     Case "数据库备份与恢复"
  775.       Shell App.Path & "数据备份与恢复.exe", 1
  776.       Unload Me
  777.   End Select
  778. End Sub
  779. Private Sub m6_Click(index As Integer)
  780.   text = m6(index).Caption
  781.   Select Case m6(index).Caption
  782.     Case "记事本"
  783.       Shell "notepad.exe", 1
  784.     Case "计算器"
  785.       Shell "CALC.EXE", 1
  786.     Case "Office-Word"
  787.       Dim newword As Word.Application
  788.       Set newword = CreateObject("Word.application")
  789.       newword.Documents.Add
  790.       newword.Visible = True
  791.     Case "Office-Excel"
  792.       Dim newxls As Excel.Application
  793.       Set newxls = CreateObject("Excel.Application") '创建excel应用程序,打开excel2000
  794.       newxls.Workbooks.Add   '创建工作簿
  795.       newxls.Visible = True
  796.   End Select
  797. End Sub
  798. Private Sub m7_Click(index As Integer)
  799.   text = m7(index).Caption
  800.   Select Case m7(index).Caption
  801.     Case "帮助"
  802.       CommonDialog1.HelpFile = App.Path & "/HELP.HLP"
  803.       CommonDialog1.HelpCommand = cdlHelpContents
  804.       CommonDialog1.ShowHelp ' 显示 Visual Basic 帮助目录主题
  805.     Case "关于"
  806.       Load frm_about
  807.       frm_about.Show 1
  808.   End Select
  809. End Sub
  810. Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)
  811.   Label1 = Node.FullPath
  812.   For b = 1 To Image1.UBound
  813.     Image1(b).Visible = False
  814.     lblCaption1(b).Visible = False
  815.     lblCaption1(b).Caption = ""
  816.   Next b
  817.   For a = 1 To TreeView1.SelectedItem.Children
  818.     Image1(a).Visible = True
  819.     lblCaption1(a).Visible = True
  820.     lblCaption1(a) = TreeView1.Nodes(TreeView1.SelectedItem.Child.index + a - 1).text
  821.     Image1(a).Picture = LoadPicture(App.Path & "" & Node.text & "" & a & ".jpg")
  822.     Image1(a).Left = Image1(0).Left + (Image1(a).Width + 420) * ((a - 1) Mod 4)
  823.     lblCaption1(a).Left = Image1(a).Left
  824.     Image1(a).Top = Int(a / 4.1) * (Image1(0).Height + 420) + Image1(0).Top
  825.     lblCaption1(a).Top = Image1(a).Top + Image1(a).Height + 30
  826.   Next a
  827.   If TreeView1.SelectedItem.Key = "C1" Then
  828.      m1_Click (0)
  829.   End If
  830.   For i = 2 To 4
  831.     If TreeView1.SelectedItem.Key = "C" & i Then
  832.        m1_Click (i)
  833.     End If
  834.   Next i
  835.   For i = 6 To 8
  836.     If TreeView1.SelectedItem.Key = "C" & i - 1 Then
  837.        m1_Click (i)
  838.     End If
  839.   Next i
  840.   For i = 10 To 13
  841.     If TreeView1.SelectedItem.Key = "C" & i - 2 Then
  842.        m1_Click (i)
  843.     End If
  844.   Next i
  845.   For i = 12 To 14
  846.     If TreeView1.SelectedItem.Key = "C" & i Then
  847.        m2_Click (i - 12)
  848.     End If
  849.   Next i
  850.   For i = 0 To 1
  851.     If TreeView1.SelectedItem.Key = "C" & i + 15 Then
  852.        m3_Click (i)
  853.     End If
  854.   Next i
  855.   For i = 3 To 5
  856.     If TreeView1.SelectedItem.Key = "C" & i + 14 Then
  857.        m3_Click (i)
  858.     End If
  859.   Next i
  860.   For i = 7 To 11
  861.     If TreeView1.SelectedItem.Key = "C" & i + 13 Then
  862.        m3_Click (i)
  863.     End If
  864.   Next i
  865.   For i = 13 To 14
  866.     If TreeView1.SelectedItem.Key = "C" & i + 12 Then
  867.        m3_Click (i)
  868.     End If
  869.   Next i
  870.   For i = 0 To 2
  871.   If TreeView1.SelectedItem.Key = "C" & i + 27 Then
  872.      m4_Click (i)
  873.   End If
  874.   Next i
  875.   For i = 4 To 5
  876.   If TreeView1.SelectedItem.Key = "C" & i + 26 Then
  877.      m4_Click (i)
  878.   End If
  879.   Next i
  880.   If TreeView1.SelectedItem.Key = "C32" Then
  881.      m4_Click (7)
  882.   End If
  883.   For i = 0 To 3
  884.   If TreeView1.SelectedItem.Key = "C" & i + 33 Then
  885.      m5_Click (i)
  886.   End If
  887.   Next i
  888.   For i = 0 To 3
  889.   If TreeView1.SelectedItem.Key = "C" & i + 37 Then
  890.      m6_Click (i)
  891.   End If
  892.   Next i
  893.   For i = 0 To 1
  894.   If TreeView1.SelectedItem.Key = "C" & i + 41 Then
  895.      m7_Click (i)
  896.   End If
  897.   Next i
  898. End Sub