module2.bas

人力资源管理系统

Attribute VB_Name = "Module2"
Public Search As Integer  '用来标志查询的种类
Public Flag As Integer    '用来标志信息的添加或更新
Public WageMonth As Date   '用来标志工资月份
Public Appear As Integer  '用来标志界面载入状态1
Public Appear_key As Integer   '用来标志界面载入状态2
Public Update As Integer     '用来标志信息的批量修改情形
Public WageType As String   '用来标志工资管理的类型
Public mNode As Node        '用来标志指针
Public DutyWage As Double      '用来标志全勤奖
Public DutyDays As Integer      '用来标志获全勤奖应出勤天数
Public LateTimes As Integer     '用来标志获全勤奖可迟到早退次数
Public OverWorkMoney As Double  '用来标志加班费计算
Public LessWorkMoney As Double  '用来标志旷工费计算
Public CurMonth As String       '用来标志当前工资月份
Public Calculate As Boolean     '用来标志是否已经月末结算
Public All As Boolean           '用来标志查看当月或全部
Public LoadType As Integer     '用来标志离复职的显示
Public Part As Integer          '树型选择条件
Public treechild As String            '树型选择的子节点的值

Public Sub Month()
    Dim adors As New Recordset
    Dim strSQL As String
    adors.ActiveConnection = ADOcn
    strSQL = "Select * From Bast where ID=1"
    adors.Open strSQL
    CurMonth = adors("Zu")
End Sub

Public Sub DutySet()
    Dim adors As New Recordset
    Dim strSQL As String
    adors.ActiveConnection = ADOcn
    
    strSQL = "Select Zu From Bast where ID=2"
    adors.Open strSQL
    DutyWage = adors("Zu")
    adors.Close
    
    strSQL = "Select Zu From Bast where ID=3"
    adors.Open strSQL
    DutyDays = adors("Zu")
    adors.Close
    
    strSQL = "Select Zu From Bast where ID=4"
    adors.Open strSQL
    LateTimes = adors("Zu")
    adors.Close
    
    strSQL = "Select Zu From Bast where ID=6"
    adors.Open strSQL
    OverWorkMoney = adors("Zu")
    adors.Close
    
    strSQL = "Select Zu From Bast where ID=10"
    adors.Open strSQL
    LessWorkMoney = adors("Zu")
    adors.Close
End Sub


Public Sub MyRefresh_frmHumanManage()
    Dim strTitle As String
    Dim adors As New Recordset
    Dim strSQL As String
    Dim i As Integer
    
    adors.ActiveConnection = ADOcn
    
    frmHumanManage.MSFlexGrid1.Clear
    
    frmHumanManage.MSFlexGrid1.Rows = 1
    frmHumanManage.MSFlexGrid1.Cols = 34
    frmHumanManage.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 + "登记人"
    frmHumanManage.MSFlexGrid1.AddItem strTitle, 0
    frmHumanManage.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("登记人")
        frmHumanManage.MSFlexGrid1.AddItem strTitle, i
        adors.MoveNext
        i = i + 1
   Loop
End Sub
Public Sub MyRefresh_frmWageManage()
    Dim strTitle As String
    Dim adors As New Recordset
    Dim strSQL As String
    Dim i As Integer
    
    adors.ActiveConnection = ADOcn
    
    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 All = False Then
        
        strSQL = "Select * From 工资档案表  where 所属工资月份='" + CurMonth + "'"
        
    ElseIf All = True Then
        
        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 + 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 Sub
Public Sub MyRefresh_frmHumanTransfer()
    Dim strTitle As String
    Dim adors As New Recordset
    Dim strSQL As String
    Dim i As Integer
    
    adors.ActiveConnection = ADOcn
    
   frmHumanTransfer.MSFlexGrid1.Clear
    
    frmHumanTransfer.MSFlexGrid1.Rows = 1
    frmHumanTransfer.MSFlexGrid1.Cols = 34
    frmHumanTransfer.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 + "登记人"
    frmHumanTransfer.MSFlexGrid1.AddItem strTitle, 0
    frmHumanTransfer.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("登记人")
        frmHumanTransfer.MSFlexGrid1.AddItem strTitle, i
        adors.MoveNext
        i = i + 1
   Loop
End Sub
Public Sub MyRefresh_frmHumanLeave()
    Dim strTitle As String
    Dim adors As New Recordset
    Dim strSQL As String
    Dim i As Integer
    
    adors.ActiveConnection = ADOcn