module2.bas

人力资源管理系统

    
    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_frmLiftWage()
    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_frmRewardWage()
    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 = 8
    frmTime_Piece_LiftWage.MSFlexGrid1.FixedRows = 0  '不锁定第一行
    '加表的标题
    strTitle = "ID" + vbTab + "所属工资月份" + vbTab + "员工编号" + vbTab + "员工姓名" + vbTab + "奖励项目" + vbTab + "奖励金额" + vbTab
    strTitle = strTitle + "备注" + 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 + adors("备注") + vbTab + LTrim(adors("记录日期"))
        frmTime_Piece_LiftWage.MSFlexGrid1.AddItem strTitle, i
        adors.MoveNext
        i = i + 1
   Loop
End Sub
Public Sub MyRefresh_frmPunishWage()
    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 = 8
    frmTime_Piece_LiftWage.MSFlexGrid1.FixedRows = 0  '不锁定第一行
    '加表的标题
    strTitle = "ID" + vbTab + "所属工资月份" + vbTab + "员工编号" + vbTab + "员工姓名" + vbTab + "惩罚项目" + vbTab + "惩罚金额" + vbTab
    strTitle = strTitle + "备注" + 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 + adors("备注") + vbTab + LTrim(adors("记录日期"))
        frmTime_Piece_LiftWage.MSFlexGrid1.AddItem strTitle, i
        adors.MoveNext
        i = i + 1
   Loop
End Sub
Public Sub MyRefresh_frmDuty()
    Dim strTitle As String
    Dim adors As New Recordset
    Dim strSQL As String
    Dim i As Integer
    
    adors.ActiveConnection = ADOcn
    
    frmDutyManage.MSFlexGrid1.Clear
    
    frmDutyManage.MSFlexGrid1.Rows = 1
    frmDutyManage.MSFlexGrid1.Cols = 8
    frmDutyManage.MSFlexGrid1.FixedRows = 0  '不锁定第一行
    '加表的标题
    strTitle = "所属工资月份" + vbTab + "员工编号" + vbTab + "员工姓名" + vbTab + "出勤天数" + vbTab + "请假天数" + vbTab
    strTitle = strTitle + "迟到与早退次数" + vbTab + "旷工天数" + vbTab + "加班次数"

    frmDutyManage.MSFlexGrid1.AddItem strTitle, 0
    frmDutyManage.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 = adors("所属月份") + vbTab + adors("员工编号") + vbTab + adors("员工姓名") + vbTab + LTrim(adors("出勤天数")) + vbTab
       strTitle = strTitle + LTrim(adors("请假天数")) + vbTab + LTrim(adors("迟到与早退次数")) + vbTab + LTrim(adors("旷工天数")) + vbTab + LTrim(adors("加班次数"))
        frmDutyManage.MSFlexGrid1.AddItem strTitle, i
        adors.MoveNext
        i = i + 1
   Loop
End Sub