frmmain.frm

HRMS是一个人力资源管理系统,非常好用,功能非常强大,希望大家的支持

  Label2(index).BorderStyle = 1
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  For i = 1 To Image1.UBound
    Image1(i).BorderStyle = 0
  Next i
  For i = 0 To Label2.UBound
    Label2(i).BorderStyle = 0
  Next i
End Sub
Private Sub Label1_Change()
  sbStatusBar.Panels(1).text = "当前位置： " & Label1
End Sub
Private Sub Image1_Click(index As Integer)
  text = lblCaption1(index).Caption
  Image1(index).BorderStyle = 1
  If blnPower(lblCaption1(index).Caption) = False Then
     MsgBox "对不起，您没有使用此项功能的权限！", vbInformation, "提示窗口"
     Exit Sub
  End If
  Select Case lblCaption1(index).Caption
    Case "部门管理"
      Load main_jbzl_bmgl
      main_jbzl_bmgl.Show 1
    Case "工种类型管理"
      jbxxtb = "工种表"
    Case "职务类型管理"
      jbxxtb = "职务表"
    Case "职称类型管理"
      jbxxtb = "职称表"
    Case "文化程度管理"
      jbxxtb = "文化程度表"
    Case "政治面貌管理"
      jbxxtb = "政治面貌表"
    Case "民族管理"
      jbxxtb = "民族表"
    Case "培训课程管理"
      Load main_jbzl_pxkc
      main_jbzl_pxkc.Show 1
    Case "考核项目管理"
      Load main_jbzl_khlx
      main_jbzl_khlx.Show 1
    Case "合同类型管理"
      Load main_jbzl_htlx
      main_jbzl_htlx.Show 1
    Case "聘用类型管理"
      Load main_jbzl_pylx
      main_jbzl_pylx.Show
    Case "考勤信息设置"
      Load main_gzsz_kqsz
      main_gzsz_kqsz.Show 1
    Case "奖励项目设置"
      jbxxtb = "奖励项目表"
      Load main_jbzl_public
      main_jbzl_public.Show 1
    Case "惩罚项目设置"
      jbxxtb = "惩罚项目表"
      Load main_jbzl_public
      main_jbzl_public.Show 1
    Case "工资设置"
      Load main_gzsz_gzgs
      main_gzsz_gzgs.Show 1
    Case "人事信息管理"
      Load main_rsgl_rsdaxx
      main_rsgl_rsdaxx.Show 1
    Case "新员工登记"
       blnAddRS = True
       Load main_rsgl_rsdaxx_lr
      main_rsgl_rsdaxx_lr.Show 1
    Case "员工调动"
      Load main_rsgl_rsbd
      main_rsgl_rsbd.Show 1
    Case "员工离职"
      Load main_rsgl_zylz
      main_rsgl_zylz.Show 1
    Case "员工复职"
      Load main_rsgl_zyfz
      main_rsgl_zyfz.Show 1
    Case "培训管理"
      Load main_rsgl_pxgl
      main_rsgl_pxgl.Show 1
    Case "考核管理"
      Load main_rsgl_khgl
      main_rsgl_khgl.Show 1
    Case "合同管理"
      Load main_rsgl_htgl
      main_rsgl_htgl.Show 1
    Case "聘用管理"
      Load main_rsgl_pygl
      main_rsgl_pygl.Show 1
    Case "保险管理"
      Load main_rsgl_bxgl
      main_rsgl_bxgl.Show 1
    Case "合同到期处理"
      Cnn.Execute ("update 合同表 set 状态='到期' where 合同结束日期>" & Date)
      MsgBox "到期合同处理成功！", , "提示"
    Case "聘用到期处理"
      Cnn.Execute ("update 聘用表 set 状态='到期' where 聘用结束日期>" & Date)
      MsgBox "聘用到期处理成功！", , "提示"
    Case "过期数据处理"
      Load main_gzgl_gqsjcl
      main_gzgl_gqsjcl.Show 1
    Case "工资信息管理"
      Load main_gzgl_gzgl
      main_gzgl_gzgl.Show 1
    Case "建立新月份工资"
      Load main_gzgl_xyfgz
      main_gzgl_xyfgz.Show 1
    Case "员工奖励管理"
      Load main_gzgl_jlgl
      main_gzgl_jlgl.Show 1
    Case "员工惩罚管理"
      Load main_gzgl_cfgl
      main_gzgl_cfgl.Show 1
    Case "考勤信息管理"
      Load main_gzgl_kqgl
      main_gzgl_kqgl.Show 1
    Case "用户管理"
      Load main_xtgl_czqx
      main_xtgl_czqx.Show 1
    Case "口令设置"
      Load main_xtgl_mm
      main_xtgl_mm.Show 1
    Case "数据初始化"
      Load main_xtgl_sjcsh
      main_xtgl_sjcsh.Show 1
    Case "数据库备份与恢复"
      Shell App.Path & "\数据备份与恢复.exe", 1
      Unload Me
    Case "记事本"
      Shell "notepad.exe", 1
    Case "计算器"
      Shell "CALC.EXE", 1
    Case "Office-Word"
      Dim newword As Word.Application
      Set newword = CreateObject("Word.application")
      newword.Documents.Add
      newword.Visible = True
    Case "Office-Excel"
      Dim newxls As Excel.Application
      Set newxls = CreateObject("Excel.Application") '创建excel应用程序,打开excel2000
      newxls.Workbooks.Add                           '创建工作簿
      newxls.Visible = True
    Case "帮助"
      CommonDialog1.HelpFile = App.Path & "/HELP.HLP"
      CommonDialog1.HelpCommand = cdlHelpContents
      CommonDialog1.ShowHelp                        '显示 Visual Basic 帮助目录主题
    Case "关于"
      Load frm_about
      frm_about.Show 1
  End Select
  With lblCaption1(index)
    If .Caption = "工种类型管理" Or .Caption = "职务类型管理" Or .Caption = "职称类型管理" Or .Caption = "文化程度管理" Or .Caption = "政治面貌管理" Or .Caption = "民族管理" Then
       Load main_jbzl_public
       main_jbzl_public.Show 1
    End If
  End With
End Sub
Private Sub Label2_Click(index As Integer)
  Select Case index
    Case 0
      Temp = "www.mingrisoft.com"                                         '所要连接的网站名称
      ShellExecute 0&, vbNullString, Temp, vbNullString, vbNullString, 0  '调用IE
    Case 1
      m7_Click (1)
    Case 2
      m7_Click (0)
    Case 3
      End
  End Select
End Sub
Private Sub m1_Click(index As Integer)
  text = m1(index).Caption
  If blnPower(m1(index).Caption) = False Then
     MsgBox "对不起，您没有使用此项功能的权限！", vbInformation, "提示窗口"
     Exit Sub
  End If
  Select Case m1(index).Caption
    Case "部门管理"
      Load main_jbzl_bmgl
      main_jbzl_bmgl.Show 1
    Case "工种类型管理"
      jbxxtb = "工种表"
    Case "职务类型管理"
      jbxxtb = "职务表"
    Case "职称类型管理"
      jbxxtb = "职称表"
    Case "文化程度管理"
      jbxxtb = "文化程度表"
    Case "政治面貌管理"
      jbxxtb = "政治面貌表"
    Case "民族管理"
      jbxxtb = "民族表"
    Case "培训课程管理"
      Load main_jbzl_pxkc
      main_jbzl_pxkc.Show 1
    Case "考核项目管理"
      Load main_jbzl_khlx
      main_jbzl_khlx.Show 1
    Case "合同类型管理"
      Load main_jbzl_htlx
      main_jbzl_htlx.Show 1
    Case "聘用类型管理"
      Load main_jbzl_pylx
      main_jbzl_pylx.Show
  End Select
  With m1(index)
    If .Caption = "工种类型管理" Or .Caption = "职务类型管理" Or .Caption = "职称类型管理" Or .Caption = "文化程度管理" Or .Caption = "政治面貌管理" Or .Caption = "民族管理" Then
       Load main_jbzl_public
       main_jbzl_public.Show 1
    End If
  End With
End Sub
Private Sub m2_Click(index As Integer)
  text = m2(index).Caption
  If blnPower(m2(index).Caption) = False Then
     MsgBox "对不起，您没有使用此项功能的权限！", vbInformation, "提示窗口"
     Exit Sub
  End If
  Select Case m2(index).Caption
    Case "工资设置"
      Load main_gzsz_gzgs
      main_gzsz_gzgs.Show 1
    Case "奖励项目设置"
      jbxxtb = "奖励项目表"
      Load main_jbzl_public
      main_jbzl_public.Show 1
    Case "惩罚项目设置"
      jbxxtb = "惩罚项目表"
      Load main_jbzl_public
      main_jbzl_public.Show 1

  End Select
End Sub
Private Sub m3_Click(index As Integer)
  text = m3(index).Caption
  If blnPower(m3(index).Caption) = False Then
     MsgBox "对不起，您没有使用此项功能的权限！", vbInformation, "提示窗口"
     Exit Sub
  End If
  Select Case m3(index).Caption
    Case "人事信息管理"
      Load main_rsgl_rsdaxx
      main_rsgl_rsdaxx.Show 1
    Case "新员工登记"
       blnAddRS = True
       Load main_rsgl_rsdaxx_lr
      main_rsgl_rsdaxx_lr.Show 1
    Case "员工调动"
      Load main_rsgl_rsbd
      main_rsgl_rsbd.Show 1
    Case "员工离职"
      Load main_rsgl_zylz
      main_rsgl_zylz.Show 1
    Case "员工复职"
      Load main_rsgl_zyfz
      main_rsgl_zyfz.Show 1
    Case "培训管理"
      Load main_rsgl_pxgl
      main_rsgl_pxgl.Show 1
    Case "考核管理"
      Load main_rsgl_khgl
      main_rsgl_khgl.Show 1
    Case "合同管理"
      Load main_rsgl_htgl
      main_rsgl_htgl.Show 1
    Case "聘用管理"
      Load main_rsgl_pygl
      main_rsgl_pygl.Show 1
    Case "保险管理"
      Load main_rsgl_bxgl
      main_rsgl_bxgl.Show 1
    Case "合同到期处理"
      Cnn.Execute ("update 合同表 set 状态='到期' where 合同结束日期>" & Date)
      MsgBox "到期合同处理成功！", , "提示"
    Case "聘用到期处理"
      Cnn.Execute ("update 聘用表 set 状态='到期' where 聘用结束日期>" & Date)
      MsgBox "聘用到期处理成功！", , "提示"
  End Select
End Sub
Private Sub m4_Click(index As Integer)
  text = m4(index).Caption
  If blnPower(m4(index).Caption) = False Then
     MsgBox "对不起，您没有使用此项功能的权限！", vbInformation, "提示窗口"
     Exit Sub
  End If
  Select Case m4(index).Caption
    Case "过期数据处理"
      Load main_gzgl_gqsjcl
      main_gzgl_gqsjcl.Show 1
    Case "工资信息管理"
      Load main_gzgl_gzgl
      main_gzgl_gzgl.Show 1
    Case "建立新月份工资"
      Load main_gzgl_xyfgz
      main_gzgl_xyfgz.Show 1
    Case "员工奖励管理"
      Load main_gzgl_jlgl
      main_gzgl_jlgl.Show 1
    Case "员工惩罚管理"
      Load main_gzgl_cfgl
      main_gzgl_cfgl.Show 1
    Case "考勤信息管理"
      Load main_gzgl_kqgl
      main_gzgl_kqgl.Show 1
  End Select
End Sub
Private Sub m5_Click(index As Integer)
  text = m5(index).Caption
   If blnPower(m5(index).Caption) = False Then
     MsgBox "对不起，您没有使用此项功能的权限！", vbInformation, "提示窗口"
     Exit Sub
  End If
  Select Case m5(index).Caption
    Case "数据初始化"
      Load main_xtgl_sjcsh
      main_xtgl_sjcsh.Show 1
    Case "用户管理"
      Load main_xtgl_czqx
      main_xtgl_czqx.Show 1
    Case "口令设置"
      Load main_xtgl_mm
      main_xtgl_mm.Show 1
    Case "数据库备份与恢复"
      Shell App.Path & "\数据备份与恢复.exe", 1
      Unload Me
  End Select
End Sub
Private Sub m6_Click(index As Integer)
  text = m6(index).Caption
  Select Case m6(index).Caption
    Case "记事本"
      Shell "notepad.exe", 1
    Case "计算器"
      Shell "CALC.EXE", 1
    Case "Office-Word"
      Dim newword As Word.Application
      Set newword = CreateObject("Word.application")
      newword.Documents.Add
      newword.Visible = True
    Case "Office-Excel"
      Dim newxls As Excel.Application
      Set newxls = CreateObject("Excel.Application") '创建excel应用程序,打开excel2000
      newxls.Workbooks.Add   '创建工作簿
      newxls.Visible = True
  End Select
End Sub
Private Sub m7_Click(index As Integer)
  text = m7(index).Caption
  Select Case m7(index).Caption
    Case "帮助"
      CommonDialog1.HelpFile = App.Path & "/HELP.HLP"
      CommonDialog1.HelpCommand = cdlHelpContents
      CommonDialog1.ShowHelp ' 显示 Visual Basic 帮助目录主题
    Case "关于"
      Load frm_about
      frm_about.Show 1
  End Select
End Sub
Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)
  Label1 = Node.FullPath
  For b = 1 To Image1.UBound
    Image1(b).Visible = False
    lblCaption1(b).Visible = False
    lblCaption1(b).Caption = ""
  Next b
  For a = 1 To TreeView1.SelectedItem.Children
    Image1(a).Visible = True
    lblCaption1(a).Visible = True
    lblCaption1(a) = TreeView1.Nodes(TreeView1.SelectedItem.Child.index + a - 1).text
    Image1(a).Picture = LoadPicture(App.Path & "\" & Node.text & "\" & a & ".jpg")
    Image1(a).Left = Image1(0).Left + (Image1(a).Width + 420) * ((a - 1) Mod 4)
    lblCaption1(a).Left = Image1(a).Left
    Image1(a).Top = Int(a / 4.1) * (Image1(0).Height + 420) + Image1(0).Top
    lblCaption1(a).Top = Image1(a).Top + Image1(a).Height + 30
  Next a
  If TreeView1.SelectedItem.Key = "C1" Then
     m1_Click (0)
  End If
  For i = 2 To 4
    If TreeView1.SelectedItem.Key = "C" & i Then
       m1_Click (i)
    End If
  Next i
  For i = 6 To 8
    If TreeView1.SelectedItem.Key = "C" & i - 1 Then
       m1_Click (i)
    End If
  Next i
  For i = 10 To 13
    If TreeView1.SelectedItem.Key = "C" & i - 2 Then
       m1_Click (i)
    End If
  Next i
  For i = 12 To 14
    If TreeView1.SelectedItem.Key = "C" & i Then
       m2_Click (i - 12)
    End If
  Next i
  For i = 0 To 1
    If TreeView1.SelectedItem.Key = "C" & i + 15 Then
       m3_Click (i)
    End If
  Next i
  For i = 3 To 5
    If TreeView1.SelectedItem.Key = "C" & i + 14 Then
       m3_Click (i)
    End If
  Next i
  For i = 7 To 11
    If TreeView1.SelectedItem.Key = "C" & i + 13 Then
       m3_Click (i)
    End If
  Next i
  For i = 13 To 14
    If TreeView1.SelectedItem.Key = "C" & i + 12 Then
       m3_Click (i)
    End If
  Next i
  For i = 0 To 2
  If TreeView1.SelectedItem.Key = "C" & i + 27 Then
     m4_Click (i)
  End If
  Next i
  For i = 4 To 5
  If TreeView1.SelectedItem.Key = "C" & i + 26 Then
     m4_Click (i)
  End If
  Next i
  If TreeView1.SelectedItem.Key = "C32" Then
     m4_Click (7)
  End If
  For i = 0 To 3
  If TreeView1.SelectedItem.Key = "C" & i + 33 Then
     m5_Click (i)
  End If
  Next i
  For i = 0 To 3
  If TreeView1.SelectedItem.Key = "C" & i + 37 Then
     m6_Click (i)
  End If
  Next i
  For i = 0 To 1
  If TreeView1.SelectedItem.Key = "C" & i + 41 Then
     m7_Click (i)
  End If
  Next i
End Sub