module2.bas

人力资源管理系统

    frmHumanLeave.MSFlexGrid1.Clear
    
    frmHumanLeave.MSFlexGrid1.Rows = 1
    frmHumanLeave.MSFlexGrid1.Cols = 34
    frmHumanLeave.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 + "登记人"
    frmHumanLeave.MSFlexGrid1.AddItem strTitle, 0
    frmHumanLeave.MSFlexGrid1.FixedRows = 1    ' 锁定第一行
   
    strSQL = "Select * From 人事档案 order by 编号"
    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("登记人")
        frmHumanLeave.MSFlexGrid1.AddItem strTitle, i
        adors.MoveNext
        i = i + 1
   Loop
End Sub
Public Sub MyRefresh_frmHumanRework()
    Dim strTitle As String
    Dim adors As New Recordset
    Dim strSQL As String
    Dim i As Integer
    
    adors.ActiveConnection = ADOcn
    
    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    ' 锁定第一行
    
    strSQL = "Select * From 离职档案 where 是否复职 = false "
    
    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 Sub
Public Sub MyRefresh_frmLeave_ReworkSelect()
    Dim strTitle As String
    Dim adors As New Recordset
    Dim strSQL As String
    Dim i As Integer
    
    adors.ActiveConnection = ADOcn
    
    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 LoadType = 0 Then
    strSQL = "Select * From 离职档案 order by 编号 "
    ElseIf LoadType = 1 Then
    strSQL = "Select * From 离职档案 where 是否复职 = false "
    ElseIf LoadType = 2 Then
    strSQL = "Select * From 离职档案 where 是否复职 = true "
    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("登记人")
        frmLeave_ReworkSelect.MSFlexGrid1.AddItem strTitle, i
        adors.MoveNext
        i = i + 1
   Loop
End Sub
Public Sub MyRefresh_frmDefaultWage()
    Dim strTitle As String
    Dim adors As New Recordset
    Dim strSQL As String
    Dim i As Integer
    
    adors.ActiveConnection = ADOcn
    
    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    ' 锁定第一行
       
    strSQL = "Select * From 默认工资项目表 order by 员工编号"
    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 Sub
Public Sub MyRefresh_frmTimeWage()
    Dim strTitle As String
    Dim adors As New Recordset
    Dim strSQL As String
    Dim i As Integer
    
    adors.ActiveConnection = ADOcn
    
    frmTime_Piece_LiftWage.MSFlexGrid1.Clear
    
    frmTime_Piece_LiftWage.MSFlexGrid1.Rows = 1
    frmTime_Piece_LiftWage.MSFlexGrid1.Cols = 9
    frmTime_Piece_LiftWage.MSFlexGrid1.FixedRows = 0  '不锁定第一行
    '加表的标题
    strTitle = "ID" + vbTab + "所属工资月份" + vbTab + "员工编号" + vbTab + "员工姓名" + vbTab + "工序名称" + vbTab + "单价" + vbTab
    strTitle = strTitle + "数量" + vbTab + "小计" + vbTab + "记录日期"

    frmTime_Piece_LiftWage.MSFlexGrid1.AddItem strTitle, 0
    frmTime_Piece_LiftWage.MSFlexGrid1.FixedRows = 1    ' 锁定第一行
        
    If All = False Then
    strSQL = "Select * From 计时工资表 where 所属工资月份='" + CurMonth + "'"
    Else
    strSQL = "Select * From 计时工资表 order by 所属工资月份,员工编号"
    End If
    
    adors.Open strSQL
    i = 1
    Do While Not adors.EOF
       strTitle = Trim(adors("ID")) + vbTab + adors("所属工资月份") + vbTab + adors("员工编号") + vbTab + adors("员工姓名") + vbTab + adors("工序名称") + vbTab
       strTitle = strTitle + LTrim(adors("单价")) + vbTab + LTrim(adors("数量")) + vbTab + LTrim(adors("小计")) + vbTab + LTrim(adors("记录日期"))
        frmTime_Piece_LiftWage.MSFlexGrid1.AddItem strTitle, i
        adors.MoveNext
        i = i + 1
   Loop
End Sub
Public Sub MyRefresh_frmPieceWage()
    Dim strTitle As String
    Dim adors As New Recordset
    Dim strSQL As String
    Dim i As Integer
    
    adors.ActiveConnection = ADOcn
    
    frmTime_Piece_LiftWage.MSFlexGrid1.Clear