defaultwage.frm

人力资源管理系统

    Set rsPartment.ActiveConnection = ADOcn          '添加部门子目录
    For i = 0 To i - 4
       strSQLQuery = "Select 名称 from 部门类型 where 上级='" + strPartmentType(i) + "'"
       
       rsPartment.Open strSQLQuery
      
     Do Until rsPartment.EOF
   
            Set mNode = TreePartment.Nodes.Add(intIndex(i), tvwChild)
            strPartment = rsPartment.Fields("名称")
            
            mNode.Text = strPartment
                        
            rsPartment.MoveNext
    
      Loop
      rsPartment.Close '关闭记录集，一定要记住。
      Next i
      
    Set rsPartment.ActiveConnection = ADOcn       '添加工种的子目录
      strSQLQuery = "Select 工种 from 工种"
      rsPartment.Open strSQLQuery
      
     Do Until rsPartment.EOF
   
            Set mNode = TreePartment.Nodes.Add(intIndex(i - 1), tvwChild)
            strPartment = rsPartment.Fields("工种")
            mNode.Text = strPartment
            rsPartment.MoveNext
    Loop
      rsPartment.Close
      
    Set rsPartment.ActiveConnection = ADOcn       '添加职务的子目录
      strSQLQuery = "Select 职务 from 职务"
      rsPartment.Open strSQLQuery
      
     Do Until rsPartment.EOF
   
            Set mNode = TreePartment.Nodes.Add(intIndex(i), tvwChild)
            strPartment = rsPartment.Fields("职务")
            mNode.Text = strPartment
            rsPartment.MoveNext
    Loop
      rsPartment.Close
      i = i + 1
      
    Set rsPartment.ActiveConnection = ADOcn       '添加职称的子目录
      strSQLQuery = "Select 职称 from 职称"
      rsPartment.Open strSQLQuery
      
     Do Until rsPartment.EOF
   
            Set mNode = TreePartment.Nodes.Add(intIndex(i), tvwChild)
            strPartment = rsPartment.Fields("职称")
            mNode.Text = strPartment
            rsPartment.MoveNext
    Loop
      rsPartment.Close
      i = i + 1
      
    Set rsPartment.ActiveConnection = ADOcn       '添加人员的子目录
      strSQLQuery = "Select 姓名 from 人事档案"
      rsPartment.Open strSQLQuery
      
     Do Until rsPartment.EOF
   
            Set mNode = TreePartment.Nodes.Add(intIndex(i), tvwChild)
            strPartment = rsPartment.Fields("姓名")
            mNode.Text = strPartment
            rsPartment.MoveNext
    Loop
      rsPartment.Close
 '/***********************************TreeVeiwStart********************************************/
 
MyRefresh_frmDefaultWage
End Sub

Private Sub TreePartment_NodeClick(ByVal Node As MSComctlLib.Node)
    Dim adors As New Recordset
    Dim strSQL As String
    Dim i As Integer

    adors.ActiveConnection = ADOcn

    MSFlexGrid1.Clear
    
    MSFlexGrid1.Rows = 1
    MSFlexGrid1.Cols = 34
    MSFlexGrid1.FixedRows = 0  '不锁定第一行
    '加表的标题
    strTitle = "编号" + vbTab + "姓名" + vbTab + "性别" + vbTab + "身份证号" + vbTab + "出生年月" + vbTab + "民族" + vbTab + "婚姻状况" + vbTab + "政治面貌" + vbTab + "入党团时间" + vbTab + "籍贯" + vbTab + "家庭地址" + vbTab + "联系电话" + vbTab + "手机号码" + vbTab + "电子邮箱" + vbTab + "其它联系方式" + vbTab + "参加工作时间" + vbTab + "总工龄" + vbTab + "自定义项目1" + vbTab + "自定义项目2" + vbTab + "部门" + vbTab + "工种" + vbTab + "职务" + vbTab + "职称" + vbTab + "调入时间" + vbTab + "本单位工龄" + vbTab + "基本工资" + vbTab + "其它工资" + vbTab + "毕业院校" + vbTab + "专业" + vbTab + "文化程度" + vbTab + "特长" + vbTab + "简历" + vbTab + "登记日期" + vbTab + "登记人"
    MSFlexGrid1.AddItem strTitle, 0
    MSFlexGrid1.FixedRows = 1
    
    'If mNode.Index >= 0 And mNode.Index < (i - 4) Then '模糊查询
        'strSQL = "select * from 人事档案 where 部门='" + mNode.Text + "'"
    If mNode.Index = 1 Then                           '精确查询
        strSQL = "select * from 人事档案 where 部门='" + mNode.Text + "'"
     ' ElseIf mNode.Index = i - 3 Then
  
      adors.Open strSQL
      i = 1
      Do While Not adors.EOF
        strTitle = adors("编号") + vbTab + adors("姓名") + vbTab + adors("性别") + vbTab + adors("身份证号") + vbTab + LTrim(adors("出生年月")) + vbTab + adors("民族") + vbTab + adors("婚姻状况") + vbTab + adors("政治面貌") + vbTab + LTrim(adors("入党团时间")) + vbTab + adors("籍贯") + vbTab + adors("家庭地址") + vbTab + adors("联系电话") + vbTab + adors("手机号码") + vbTab + adors("电子邮箱") + vbTab + adors("其它联系方式") + vbTab + LTrim(adors("参加工作时间")) + vbTab + LTrim(adors("总工龄")) + vbTab + adors("自定义项目1") + vbTab + adors("自定义项目2") + vbTab + adors("部门") + vbTab + adors("工种") + vbTab + adors("职务") + vbTab + adors("职称") + vbTab + LTrim(adors("调入时间")) + vbTab + LTrim(adors("本单位工龄")) + vbTab + adors("基本工资") + vbTab + adors("其它工资") + vbTab + adors("毕业院校") + vbTab + adors("专业") + vbTab + adors("文化程度") + vbTab + adors("特长") + vbTab + adors("简历") + vbTab + LTrim(adors("登记日期")) + vbTab + adors("登记人")
        MSFlexGrid1.AddItem strTitle, i
        adors.MoveNext
        i = i + 1
     Loop

  End If


End Sub
Private Sub Delete()
Dim strSQL As String
     Dim mystr As String
     
     MSFlexGrid1.Col = 0
     mystr = MSFlexGrid1.Text
     
    If MsgBox("你真的要删除它吗？", vbInformation + vbYesNo) = vbYes Then
        strSQL = "Delete From 默认工资项目表 Where 员工编号='" + mystr + "'"
        ADOcn.Execute strSQL
    End If
    MyRefresh_frmDefaultWage
End Sub

Private Sub MSFlexGrid1_DblClick()
Dim mystr As String
    MSFlexGrid1.Col = 0
    mystr = MSFlexGrid1.Text
    frmDefaultSet.txtNum = mystr
    frmDefaultSet.Show
End Sub

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
 On Error Resume Next
    Select Case Button.Key
        Case "Hide"
            '应做:添加 '新建' 按钮代码。
            TreePartment.Visible = False
            Button.Caption = "显示部门栏"
            Button.Key = "Show"
        Case "Show"
            TreePartment.Visible = True
            Button.Caption = "隐藏部门栏"
            Button.Key = "Hide"
        Case "Select"
            Search = 3   '标志查询默认工资
            ComboAddItem
            frmSelect.Show
        Case "All"
            MyRefresh_frmDefaultWage
        Case "Add"
            frmHumanInfo.Show
        Case "Delete"
            Delete
        Case "UpdateSome"
            Update = 0
            frmUpdateSome.Show
            ComboUpdateItem
        Case "Update"
            Dim mystr As String
            MSFlexGrid1.Col = 0
            mystr = MSFlexGrid1.Text
            frmDefaultSet.txtNum = mystr
            frmDefaultSet.Show
        Case "Back"
            Unload Me
    End Select
End Sub
Private Sub ComboAddItem()
frmSelect.comboyiju.AddItem ("员工编号")
frmSelect.comboyiju.AddItem ("员工姓名")
frmSelect.comboyiju.AddItem ("基本工资")
frmSelect.comboyiju.AddItem ("技能工资")
frmSelect.comboyiju.AddItem ("津贴费")
frmSelect.comboyiju.AddItem ("交通费")
frmSelect.comboyiju.AddItem ("水电费")
frmSelect.comboyiju.AddItem ("生活费")
frmSelect.comboyiju.AddItem ("高温贴")
frmSelect.comboyiju.AddItem ("房租费")
frmSelect.comboyiju.AddItem ("其它保险费")
frmSelect.comboyiju.AddItem ("养老保险费")
frmSelect.comboyiju.AddItem ("失业保险费")
frmSelect.comboyiju.AddItem ("医疗保险费")
frmSelect.comboyiju.AddItem ("其它金额")
frmSelect.comboyiju.AddItem ("其它扣额")

End Sub

Private Sub ComboUpdateItem()
frmUpdateSome.cmbUpdate.AddItem ("基本工资")
frmUpdateSome.cmbUpdate.AddItem ("技能工资")
frmUpdateSome.cmbUpdate.AddItem ("津贴费")
frmUpdateSome.cmbUpdate.AddItem ("交通费")
frmUpdateSome.cmbUpdate.AddItem ("水电费")
frmUpdateSome.cmbUpdate.AddItem ("生活费")
frmUpdateSome.cmbUpdate.AddItem ("高温贴")
frmUpdateSome.cmbUpdate.AddItem ("房租费")
frmUpdateSome.cmbUpdate.AddItem ("其它保险费")
frmUpdateSome.cmbUpdate.AddItem ("养老保险费")
frmUpdateSome.cmbUpdate.AddItem ("失业保险费")
frmUpdateSome.cmbUpdate.AddItem ("医疗保险费")
frmUpdateSome.cmbUpdate.AddItem ("其它金额")
frmUpdateSome.cmbUpdate.AddItem ("其它扣额")
End Sub