humanselect.frm

人力资源管理系统

      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("登记人")
        frmHumanTransfer.MSFlexGrid1.AddItem strTitle, i
        adors.MoveNext
        i = i + 1
     Loop
End If
End Sub
Private Sub Select_PersonRework()
    Dim adors As New Recordset
    Dim strSQL As String
    Dim i As Integer

    adors.ActiveConnection = ADOcn

If txttiaojian.Text = "" Then
        MsgBox "请输入要查询条件"
ElseIf comboyiju.Text = "" Then
        MsgBox "请输入要查询依据"
Else
    frmHumanRework.MSFlexGrid1.Clear
    
    frmHumanRework.MSFlexGrid1.Rows = 1
    frmHumanRework.MSFlexGrid1.Cols = 37
    frmHumanRework.MSFlexGrid1.FixedRows = 0  '不锁定第一行
    '加表的标题
    strTitle = "离职时间" + vbTab + "离职登记日期" + vbTab + "离职登记人" + vbTab + "编号" + 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 + "登记人"
    frmHumanRework.MSFlexGrid1.AddItem strTitle, 0
    frmHumanRework.MSFlexGrid1.FixedRows = 1    ' 锁定第一行
    
    If Optmohu.Value = True Then      '模糊查询
        strSQL = "select * from 离职档案,人事档案 where " + comboyiju.Text + " like '%" + txttiaojian.Text + "%' and (离职档案.编号=人事档案.编号)"
    Else                              '精确查询
      strSQL = "select * from 离职档案,人事档案 where " + comboyiju.Text + " = '" + txttiaojian.Text + "' and (离职档案.编号=人事档案.编号)"
    End If
      adors.Open strSQL
      i = 1
      Do While Not adors.EOF
        strTitle = LTrim(adors("离职时间")) + vbTab + LTrim(adors("离职登记日期")) + vbTab + adors("离职登记人") + vbTab + adors("离职档案.编号") + vbTab + adors("离职档案.姓名") + vbTab + adors("离职档案.性别") + vbTab + adors("离职档案.身份证号") + vbTab
        strTitle = strTitle + LTrim(adors("离职档案.出生年月")) + vbTab + adors("离职档案.民族") + vbTab + adors("离职档案.婚姻状况") + vbTab + adors("离职档案.政治面貌") + vbTab + LTrim(adors("离职档案.入党团时间")) + vbTab + adors("离职档案.籍贯") + vbTab + adors("离职档案.家庭地址") + vbTab
        strTitle = strTitle + adors("离职档案.联系电话") + vbTab + adors("离职档案.手机号码") + vbTab + adors("离职档案.电子邮箱") + vbTab + adors("离职档案.其它联系方式") + vbTab + LTrim(adors("离职档案.参加工作时间")) + vbTab + LTrim(adors("离职档案.总工龄")) + vbTab
        strTitle = strTitle + adors("离职档案.自定义项目1") + vbTab + adors("离职档案.自定义项目2") + vbTab + adors("离职档案.部门") + vbTab + adors("离职档案.工种") + vbTab + adors("离职档案.职务") + vbTab + adors("人事档案.职称") + vbTab + LTrim(adors("离职档案.调入时间")) + vbTab
        strTitle = strTitle + LTrim(adors("离职档案.本单位工龄")) + vbTab + adors("离职档案.基本工资") + vbTab + adors("离职档案.其它工资") + vbTab + adors("离职档案.毕业院校") + vbTab + adors("离职档案.专业") + vbTab + adors("离职档案.文化程度") + vbTab + adors("离职档案.特长") + vbTab + adors("离职档案.简历") + vbTab + LTrim(adors("离职档案.登记日期")) + vbTab + adors("离职档案.登记人")
        frmHumanRework.MSFlexGrid1.AddItem strTitle, i
        adors.MoveNext
        i = i + 1
     Loop
End If
End Sub
Private Sub Select_Leave_Rework()
    Dim adors As New Recordset
    Dim strSQL As String
    Dim i As Integer

    adors.ActiveConnection = ADOcn

If txttiaojian.Text = "" Then
        MsgBox "请输入要查询条件"
ElseIf comboyiju.Text = "" Then
        MsgBox "请输入要查询依据"
Else
    frmLeave_ReworkSelect.MSFlexGrid1.Clear
    
    frmLeave_ReworkSelect.MSFlexGrid1.Rows = 1
    frmLeave_ReworkSelect.MSFlexGrid1.Cols = 37
    frmLeave_ReworkSelect.MSFlexGrid1.FixedRows = 0  '不锁定第一行
    '加表的标题
    strTitle = "离职时间" + vbTab + "离职登记日期" + vbTab + "离职登记人" + vbTab + "编号" + 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 + "登记人"
    frmLeave_ReworkSelect.MSFlexGrid1.AddItem strTitle, 0
    frmLeave_ReworkSelect.MSFlexGrid1.FixedRows = 1    ' 锁定第一行
    
    If Optmohu.Value = True Then      '模糊查询
        If LoadType = 0 Then
        strSQL = "select * from 离职档案 where " + comboyiju.Text + " like '%" + txttiaojian.Text + "%' "
        ElseIf LoadType = 1 Then
        strSQL = "select * from 离职档案 where " + comboyiju.Text + " like '%" + txttiaojian.Text + "%'  and 是否复职=false"
        ElseIf LoadType = 2 Then
        strSQL = "select * from 离职档案 where " + comboyiju.Text + " like '%" + txttiaojian.Text + "%'  and 是否复职=true"
        End If
   Else               '精确查询
        If LoadType = 0 Then
        strSQL = "select * from 离职档案 where " + comboyiju.Text + " = '" + txttiaojian.Text + "' "
        ElseIf LoadType = 1 Then
        strSQL = "select * from 离职档案 where " + comboyiju.Text + " = '" + txttiaojian.Text + "' and 是否复职=false"
        ElseIf LoadType = 2 Then
        strSQL = "select * from 离职档案 where " + comboyiju.Text + " = '" + txttiaojian.Text + "' and 是否复职=true"
        End If
   End If
      adors.Open strSQL
      frmLeave_ReworkSelect.Label5.Caption = comboyiju.Text
      frmLeave_ReworkSelect.Label6.Caption = txttiaojian.Text
      i = 1
      Do While Not adors.EOF
        strTitle = LTrim(adors("离职时间")) + vbTab + LTrim(adors("离职登记日期")) + vbTab + adors("离职登记人") + vbTab + adors("编号") + vbTab + adors("姓名") + vbTab + adors("性别") + vbTab + adors("身份证号") + vbTab
        strTitle = strTitle + LTrim(adors("出生年月")) + vbTab + adors("民族") + vbTab + adors("婚姻状况") + vbTab + adors("政治面貌") + vbTab + LTrim(adors("入党团时间")) + vbTab + adors("籍贯") + vbTab + adors("家庭地址") + vbTab
        strTitle = strTitle + adors("联系电话") + vbTab + adors("手机号码") + vbTab + adors("电子邮箱") + vbTab + adors("其它联系方式") + vbTab + LTrim(adors("参加工作时间")) + vbTab + LTrim(adors("总工龄")) + vbTab
        strTitle = strTitle + adors("自定义项目1") + vbTab + adors("自定义项目2") + vbTab + adors("部门") + vbTab + adors("工种") + vbTab + adors("职务") + vbTab + adors("职称") + vbTab + LTrim(adors("调入时间")) + vbTab
        strTitle = strTitle + LTrim(adors("本单位工龄")) + vbTab + adors("基本工资") + vbTab + adors("其它工资") + vbTab + adors("毕业院校") + vbTab + adors("专业") + vbTab + adors("文化程度") + vbTab + adors("特长") + vbTab + adors("简历") + vbTab + LTrim(adors("登记日期")) + vbTab + adors("登记人")
        frmLeave_ReworkSelect.MSFlexGrid1.AddItem strTitle, i
        adors.MoveNext
        i = i + 1
     Loop
End If
End Sub


   
Private Sub Select_Wage()
    Dim adors As New Recordset
    Dim strSQL As String
    Dim i As Integer

    adors.ActiveConnection = ADOcn

If txttiaojian.Text = "" Then
        MsgBox "请输入要查询条件"
ElseIf comboyiju.Text = "" Then
        MsgBox "请输入要查询依据"
Else
    
    frmWageManage.MSFlexGrid1.Clear
    
    frmWageManage.MSFlexGrid1.Rows = 1
    frmWageManage.MSFlexGrid1.Cols = 30
    frmWageManage.MSFlexGrid1.FixedRows = 0  '不锁定第一行
    '加表的标题
    strTitle = "所属工资月份" + vbTab + "员工编号" + vbTab + "员工姓名" + vbTab + "基本工资" + vbTab + "计件工资" + vbTab
    strTitle = strTitle + "计时工资" + vbTab + "提成工资" + vbTab + "加班费" + vbTab + "旷工费" + vbTab + "技能工资" + vbTab
    strTitle = strTitle + "工龄工资" + vbTab + "全勤奖" + vbTab + "奖励总额" + vbTab + "惩罚总额" + vbTab + "津贴费" + vbTab
    strTitle = strTitle + "交通费" + vbTab + "水电费" + vbTab + "生活费" + vbTab + "高温贴" + vbTab + "房租费" + vbTab
    strTitle = strTitle + "其它保险费" + vbTab + "养老保险费" + vbTab + "失业保险费" + vbTab + "医疗保险费" + vbTab
    strTitle = strTitle + "其它金额" + vbTab + "应发工资" + vbTab + "个人所得税" + vbTab + "税后工资" + vbTab + "其它扣额" + vbTab + "实发工资"

    frmWageManage.MSFlexGrid1.AddItem strTitle, 0
    frmWageManage.MSFlexGrid1.FixedRows = 1    ' 锁定第一行
    
    If Optmohu.Value = True Then      '模糊查询
      strSQL = "select * from 工资档案表,人事档案 where " + comboyiju.Text + " like '%" + txttiaojian.Text + "%'and (工资档案表.员工编号=人事档案.编号)"
    Else                              '精确查询
      strSQL = "select 编号 from 工资档案表,人事档案 where (" + comboyiju.Text + " ='" + txttiaojian.Text + "') and (工资档案表.员工编号=人事档案.编号)"
    End If
    adors.Open strSQL
    i = 1
    Do While Not adors.EOF
       strTitle = adors("所属工资月份") + vbTab + adors("员工编号") + vbTab + adors("员工姓名") + vbTab + LTrim(adors("工资档案表.基本工资")) + vbTab + LTrim(adors("计件工资"))
       strTitle = strTitle + vbTab + LTrim(adors("计时工资")) + vbTab + LTrim(adors("提成工资")) + vbTab + LTrim(adors("加班费")) + vbTab + LTrim(adors("旷工费")) + vbTab + LTrim(adors("技能工资"))
       strTitle = strTitle + vbTab + LTrim(adors("工龄工资")) + vbTab + LTrim(adors("全勤奖")) + vbTab + LTrim(adors("奖励总额")) + vbTab + LTrim(adors("惩罚总额")) + vbTab + LTrim(adors("津贴费"))
       strTitle = strTitle + vbTab + LTrim(adors("交通费")) + vbTab + LTrim(adors("水电费")) + vbTab + LTrim(adors("生活费")) + vbTab + LTrim(adors("高温贴")) + vbTab + LTrim(adors("房租费"))
       strTitle = strTitle + vbTab + LTrim(adors("其它保险费")) + vbTab + LTrim(adors("养老保险费")) + vbTab + LTrim(adors("失业保险费")) + vbTab + LTrim(adors("医疗保险费"))
       strTitle = strTitle + vbTab + LTrim(adors("其它金额")) + vbTab + LTrim(adors("应发工资")) + vbTab + LTrim(adors("个人所得税")) + vbTab + LTrim(adors("税后工资")) + vbTab + LTrim(adors("其它扣额")) + vbTab + LTrim(adors("实发工资"))
        frmWageManage.MSFlexGrid1.AddItem strTitle, i
        adors.MoveNext
        i = i + 1
   Loop
End If
End Sub

Private Sub Select_DefaultWage()
    Dim adors As New Recordset
    Dim strSQL As String
    Dim i As Integer

    adors.ActiveConnection = ADOcn

If txttiaojian.Text = "" Then
        MsgBox "请输入要查询条件"
ElseIf comboyiju.Text = "" Then
        MsgBox "请输入要查询依据"
Else
    
    frmDefaultWage.MSFlexGrid1.Clear
    
    frmDefaultWage.MSFlexGrid1.Rows = 1
    frmDefaultWage.MSFlexGrid1.Cols = 16
    frmDefaultWage.MSFlexGrid1.FixedRows = 0  '不锁定第一行
    '加表的标题
    strTitle = "员工编号" + vbTab + "员工姓名" + vbTab + "基本工资" + vbTab + "技能工资" + vbTab + "津贴费" + vbTab
    strTitle = strTitle + "交通费" + vbTab + "水电费" + vbTab + "生活费" + vbTab + "高温贴" + vbTab + "房租费" + vbTab
    strTitle = strTitle + "其它保险费" + vbTab + "养老保险费" + vbTab + "失业保险费" + vbTab + "医疗保险费" + vbTab
    strTitle = strTitle + "其它金额" + vbTab + "其它扣额"
    
    frmDefaultWage.MSFlexGrid1.AddItem strTitle, 0
    frmDefaultWage.MSFlexGrid1.FixedRows = 1    ' 锁定第一行
    
    If Optmohu.Value = True Then      '模糊查询
      strSQL = "select * from 默认工资项目表,人事档案 where " + comboyiju.Text + " like '%" + txttiaojian.Text + "%' and (默认工资项目表.员工编号=人事档案.编号)"
    Else                              '精确查询
      strSQL = "select * from 默认工资项目表,人事档案 where (" + comboyiju.Text + " ='" + txttiaojian.Text + "') and (默认工资项目表.员工编号=人事档案.编号)"
    End If
    adors.Open strSQL
    i = 1
    Do While Not adors.EOF
       strTitle = adors("员工编号") + vbTab + adors("员工姓名") + vbTab + LTrim(adors("默认工资项目表.基本工资")) + vbTab + LTrim(adors("技能工资")) + vbTab + LTrim(adors("津贴费"))
       strTitle = strTitle + vbTab + LTrim(adors("交通费")) + vbTab + LTrim(adors("水电费")) + vbTab + LTrim(adors("生活费")) + vbTab + LTrim(adors("高温贴")) + vbTab + LTrim(adors("房租费"))
       strTitle = strTitle + vbTab + LTrim(adors("其它保险费")) + vbTab + LTrim(adors("养老保险费")) + vbTab + LTrim(adors("失业保险费")) + vbTab + LTrim(adors("医疗保险费"))
       strTitle = strTitle + vbTab + LTrim(adors("其它金额")) + vbTab + LTrim(adors("其它扣额"))
        frmDefaultWage.MSFlexGrid1.AddItem strTitle, i
        adors.MoveNext
        i = i + 1
   Loop
End If
End Sub
Private Sub Select_TimeWage()
    Dim adors As New Recordset
    Dim strSQL As String
    Dim i As Integer

    adors.ActiveConnection = ADOcn

If txttiaojian.Text = "" Then
        MsgBox "请输入要查询条件"
ElseIf comboyiju.Text = "" Then
        MsgBox "请输入要查询依据"
Else
    
    frmTimeWage.MSFlexGrid1.Clear
    
    frmTimeWage.MSFlexGrid1.Rows = 1
    frmTimeWage.MSFlexGrid1.Cols = 8
    frmTimeWage.MSFlexGrid1.FixedRows = 0  '不锁定第一行
    '加表的标题
    strTitle = "所属工资月份" + vbTab + "员工编号" + vbTab + "员工姓名" + vbTab + "工序名称" + vbTab + "单价" + vbTab
    strTitle = strTitle + "数量" + vbTab + "小计" + vbTab + "记录日期"

    frmTimeWage.MSFlexGrid1.AddItem strTitle, 0
    frmTimeWage.MSFlexGrid1.FixedRows = 1    ' 锁定第一行
    
    If Optmohu.Value = True Then      '模糊查询
      strSQL = "select * from 计时工资表,人事档案 where " + comboyiju.Text + " like '%" + txttiaojian.Text + "%' and (计时工资表.员工编号=人事档案.编号)"
    Else                              '精确查询
      strSQL = "select * from 计时工资表,人事档案 where (" + comboyiju.Text + " ='" + txttiaojian.Text + "') and (计时工资表.员工编号=人事档案.编号)"
    End If
    adors.Open strSQL
    i = 1
    Do While Not adors.EOF
       strTitle = adors("所属工资月份") + vbTab + adors("员工编号") + vbTab + adors("员工姓名") + vbTab + adors("工序名称") + vbTab
       strTitle = strTitle + LTrim(adors("单价")) + vbTab + LTrim(adors("数量")) + vbTab + LTrim(adors("小计")) + vbTab + LTrim(adors("记录日期"))
        frmTimeWage.MSFlexGrid1.AddItem strTitle, i
        adors.MoveNext
        i = i + 1
   Loop
End If
End Sub