frmmain.frm

花几周时间做的企业人事管理系统

  pnlX.text = "当前操作员： " & czy
  Set pnlX = sbStatusBar.Panels.Add
  pnlX.Style = sbrDate
  Set pnlX = sbStatusBar.Panels.Add
  pnlX.Style = sbrTime
  '设置图形按钮的初始位置
  Image1(0).Left = 4000
  Image1(0).Top = 2625
  '将VB资源管理器中的字符串添加到菜单中
  On Error Resume Next
  Dim ctl As Control
  Dim sCtlType As String
  For Each ctl In Me.Controls
    sCtlType = TypeName(ctl)
    If sCtlType = "Menu" Then
       ctl.Caption = LoadResString(CInt(ctl.Caption))
    End If
  Next
  '添加树状菜单
  Dim nodX As Node
  Set nodX = TreeView1.Nodes.Add(, , "X1", "基本信息管理", 1)
  For A = 1 To 8
     TreeView1.Nodes.Add "X1", tvwChild, "C" & A, LoadResString(A + 1000), 2
  Next A
  Set nodX = TreeView1.Nodes.Add(, , "X2", "工作管理", 1)
  For A = 9 To 11
     TreeView1.Nodes.Add "X2", tvwChild, "C" & A, LoadResString(A + 1001), 2
  Next A
  Set nodX = TreeView1.Nodes.Add(, , "X3", "人员管理", 1)
  For A = 12 To 13
     TreeView1.Nodes.Add "X3", tvwChild, "C" & A, LoadResString(A + 1002), 2
  Next A
  Set nodX = TreeView1.Nodes.Add(, , "X4", "系统管理", 1)
  For A = 14 To 17
     TreeView1.Nodes.Add "X4", tvwChild, "C" & A, LoadResString(A + 1003), 2
  Next A
  Set nodX = TreeView1.Nodes.Add(, , "X5", "工具", 1)
  For A = 18 To 21
    TreeView1.Nodes.Add "X5", tvwChild, "C" & A, LoadResString(A + 1004), 2
  Next A
 
  Set nodX = TreeView1.Nodes.Add(, , "X6", "帮助", 1)
  Set nodX = TreeView1.Nodes.Add("X6", tvwChild, "C22", "帮助", 2)
  Set nodX = TreeView1.Nodes.Add("X6", tvwChild, "C23", "关于", 2)
  nodX.EnsureVisible
  '动态创建图形按钮（Image控件）和标题（Label控件）
  For i = 1 To 8
     i = Image1.UBound + 1
     Load Image1(i)
     Load lblCaption1(i)
     Image1(i).ZOrder (0)
     lblCaption1(i).ZOrder (0)
  Next i
End Sub
Private Sub Image1_MouseMove(index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
  Image1(index).BorderStyle = 1
  Label1.Caption = TreeView1.SelectedItem.text & "\" & lblCaption1(index).Caption
End Sub
Private Sub Label2_MouseMove(index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
  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_khlx
      main_jbzl_khlx.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_gzgl_gzap
     main_gzgl_gzap.Show 1
    Case "考核管理"
      Load main_gzgl_khgl
      main_gzgl_khgl.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应用程序,打开excel2003
      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.baidu.com"                                         '所要连接的网站名称
      ShellExecute 0&, vbNullString, Temp, vbNullString, vbNullString, 0  '调用IE
    Case 1
      m6_Click (1)
    Case 2
      m6_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_khlx
      main_jbzl_khlx.Show 1
  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_gzgl_gzap
     main_gzgl_gzap.Show 1
    Case "考核管理"
      Load main_gzgl_khgl
      main_gzgl_khgl.Show 1
    
    Case "考勤信息管理"
      Load main_gzgl_kqgl
      main_gzgl_kqgl.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
 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_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
  End Select
End Sub
Private Sub m5_Click(index As Integer)
  text = m5(index).Caption
  Select Case m5(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应用程序,打开excel2003
      newxls.Workbooks.Add   '创建工作簿
      newxls.Visible = True
  End Select
End Sub
Private Sub m6_Click(index As Integer)
  text = m6(index).Caption
  Select Case m6(index).Caption
    Case "帮助"
      CommonDialog1.HelpFile = App.Path & "/HELP.HLP"
      CommonDialog1.HelpCommand = cdlHelpContents
      CommonDialog1.ShowHelp ' 显示 Visual Basic 帮助目录主题
    Case "关于"
      Load frm_About1
      frm_About1.Show 1
  End Select
End Sub

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Key
     Case "manage"
       'blnAddRS = True
       Load main_rsgl_rsdaxx
       main_rsgl_rsdaxx.Show 1
     Case "query"
       'blnAddRS = False
       Load main_rsgl_rsdaxx
       main_rsgl_rsdaxx.Show 1
     Case "count"
       MsgBox "正在维护系统此功能，请稍候再试…", , "提示窗口"
     Case "output"
       Load main_rsgl_rsdaxx
       main_rsgl_rsdaxx.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 3
    If TreeView1.SelectedItem.Key = "C" & i Then
       m1_Click (i)
    End If
  Next i
  For i = 5 To 7
    If TreeView1.SelectedItem.Key = "C" & i - 1 Then
       m1_Click (i)
    End If
  Next i
  For i = 9 To 10
    If TreeView1.SelectedItem.Key = "C" & i - 2 Then
       m1_Click (i)
    End If
  
  Next i
  If TreeView1.SelectedItem.Key = "C9" Then
     m2_Click (0)
  End If
  For i = 10 To 11
    If TreeView1.SelectedItem.Key = "C" & i Then
       m2_Click (i - 10)
    End If
  Next i
  For i = 0 To 1
    If TreeView1.SelectedItem.Key = "C" & i + 12 Then
       m3_Click (i)
    End If
  Next i

  For i = 0 To 1
  If TreeView1.SelectedItem.Key = "C" & i + 14 Then
     m4_Click (i)
  End If
  Next i
  For i = 3 To 4
  If TreeView1.SelectedItem.Key = "C" & i + 13 Then
     m4_Click (i)
  End If
  Next i
   For i = 0 To 3
  If TreeView1.SelectedItem.Key = "C" & i + 18 Then
     m5_Click (i)
  End If
  Next i
  For i = 0 To 1
  If TreeView1.SelectedItem.Key = "C" & i + 22 Then
     m6_Click (i)
  End If
  Next i
End Sub