cls_wh_tech_bonuses.asp

这是一个自己研发的薪酬管理系统

<%
'文件功能：wh_tech_bonuses--数据逻辑（商业层）
'编写人员：阿房
'编写时间：2003-08-16 19:57:18
'开发平台：ASP3.0 + MSSQL2000

%>

<%
Class Cls_wh_tech_bonuses
    '********************************************************************************************
    function SaveData(pStr_PK_tbonus_id, pStr_tbonus_memo, pStr_tbonus_quote, pStr_tbonus_firstsum, pStr_tbonus_fpercent, pStr_tbonus_fisgive, pStr_tbonus_fdate, pStr_tbonus_lastsum, pStr_tbonus_lpercent, pStr_tbonus_lisgive, pStr_tbonus_ldate, pStr_employee_id, pStr_project_id)
    '功能:存储详细数据
    '参数:详细数据集合
    '返回:错误信息或空
    dim Str_ID                           '系统编码
    dim Str_Sql                          'SQL语句
        Str_ID = trim(pStr_PK_tbonus_id)
    
        if isdate(pStr_tbonus_fdate) then
            pStr_tbonus_fdate = "'" + FormatDate(pStr_tbonus_fdate,"yyyy-mm-dd hh:nn:ss") + "'"
        else
            pStr_tbonus_fdate = "null"
        end if
        if isdate(pStr_tbonus_ldate) then
            pStr_tbonus_ldate = "'" + FormatDate(pStr_tbonus_ldate,"yyyy-mm-dd hh:nn:ss") + "'"
        else
            pStr_tbonus_ldate = "null"
        end if
    
        if (Str_ID = "") then
call checksalary(pStr_project_id,pStr_employee_id)   
            Str_Sql =  "insert into wh_tech_bonuses (" _
            + vbCrlf + "   tbonus_memo" _
            + vbCrlf + "  ,tbonus_quote" _
            + vbCrlf + "  ,tbonus_firstsum" _
            + vbCrlf + "  ,tbonus_fpercent" _
            + vbCrlf + "  ,tbonus_fisgive" _
            + vbCrlf + "  ,tbonus_fdate" _
            + vbCrlf + "  ,tbonus_lastsum" _
            + vbCrlf + "  ,tbonus_lpercent" _
            + vbCrlf + "  ,tbonus_lisgive" _
            + vbCrlf + "  ,tbonus_ldate" _
            + vbCrlf + "  ,employee_id" _
            + vbCrlf + "  ,project_id" _
            + vbCrlf + "   )"
            Str_Sql = Str_Sql _
            + vbCrlf + " values (" _
            + vbCrlf + "   '" + ConvertSql(pStr_tbonus_memo) + "'" _
            + vbCrlf + "  ,0" + cstr(Val(pStr_tbonus_quote)) + "" _
            + vbCrlf + "  ,0" + cstr(Val(pStr_tbonus_firstsum)) + "" _
            + vbCrlf + "  ,0" + cstr(Val(pStr_tbonus_fpercent)) + "" _
            + vbCrlf + "  ,'" + ConvertSql(pStr_tbonus_fisgive) + "'" _
            + vbCrlf + "  , " +(pStr_tbonus_fdate) + "" _
            + vbCrlf + "  ,0" + cstr(Val(pStr_tbonus_lastsum)) + "" _
            + vbCrlf + "  ,0" + cstr(Val(pStr_tbonus_lpercent)) + "" _
            + vbCrlf + "  ,'" + ConvertSql(pStr_tbonus_lisgive) + "'" _
            + vbCrlf + "  , " +(pStr_tbonus_ldate) + "" _
            + vbCrlf + "  ,'" + ConvertSql(pStr_employee_id) + "'" _
            + vbCrlf + "  ,'" + ConvertSql(pStr_project_id) + "'" _
            + vbCrlf + "   )"
                     
        else
            Str_Sql =  "Update wh_tech_bonuses Set" _
            + vbCrlf + "   tbonus_memo='" + ConvertSql(pStr_tbonus_memo) + "'" _
            + vbCrlf + "  ,tbonus_quote=0" + cstr(Val(pStr_tbonus_quote)) + "" _
            + vbCrlf + "  ,tbonus_firstsum=0" + cstr(Val(pStr_tbonus_firstsum)) + "" _
            + vbCrlf + "  ,tbonus_fpercent=0" + cstr(Val(pStr_tbonus_fpercent)) + "" _
            + vbCrlf + "  ,tbonus_fisgive='" + ConvertSql(pStr_tbonus_fisgive) + "'" _
            + vbCrlf + "  ,tbonus_fdate=" +(pStr_tbonus_fdate) + "" _
            + vbCrlf + "  ,tbonus_lastsum=0" + cstr(Val(pStr_tbonus_lastsum)) + "" _
            + vbCrlf + "  ,tbonus_lpercent=0" + cstr(Val(pStr_tbonus_lpercent)) + "" _
            + vbCrlf + "  ,tbonus_lisgive='" + ConvertSql(pStr_tbonus_lisgive) + "'" _
            + vbCrlf + "  ,tbonus_ldate=" +(pStr_tbonus_ldate) + "" _
            + vbCrlf + "  ,employee_id='" + ConvertSql(pStr_employee_id) + "'" _
            + vbCrlf + "  ,project_id='" + ConvertSql(pStr_project_id) + "'" _
            + vbCrlf + "   Where tbonus_id='" + ConvertSql(Str_ID) + "'"
        end if
        
        'response.write str_sql
        'response.end
        if (not gCls_DbProcess2.ExecuteSQL(Str_Sql)) then
            SaveData = GetUpdateErrMSG
        else
            SaveData = ""
        end if
		dim lr
		if (Str_ID = "") then
			lr="<font color=green>"&now()&"</font>  <font color=blue>"&session("name")&"</font>添加<font color=blue>员工(员工ID："&cstr(Val(pStr_employee_id))&")技术部提成(项目ID："&ConvertSql(pStr_project_id)&")记录  </font> IP:<font color=red>"&REQUEST.SERVERVARIABLES("REMOTE_ADDR")&"</font>"
			call savelogdata(now(),session("name"),"添加员工(员工ID："&cstr(Val(pStr_employee_id))&")技术部提成(项目ID："&ConvertSql(pStr_project_id)&")",REQUEST.SERVERVARIABLES("REMOTE_ADDR"),1)
		else
			lr="<font color=green>"&now()&"</font>  <font color=blue>"&session("name")&"</font>修改<font color=blue>员工(员工ID："&cstr(Val(pStr_employee_id))&")技术部提成(项目ID："&ConvertSql(pStr_project_id)&")记录  </font> IP:<font color=red>"&REQUEST.SERVERVARIABLES("REMOTE_ADDR")&"</font>"
			call savelogdata(now(),session("name"),"修改员工(员工ID："&cstr(Val(pStr_employee_id))&")技术部提成(项目ID："&ConvertSql(pStr_project_id)&")",REQUEST.SERVERVARIABLES("REMOTE_ADDR"),1)
		end if
		call savelog("../pub/log.htm",lr)
    end function
    '********************************************************************************************
    function GetData(pStr_PK_tbonus_id)
    '功能:读取详细数据
    '参数:数据系统编码
    '返回:详细数据
    dim Str_Sql                          'SQL语句
    dim Rec_Data                         '结果集
        Str_Sql =  "select *" _
        + vbCrlf + "   from wh_tech_bonuses" _
        + vbCrlf + "   where tbonus_id = '" + ConvertSql(pStr_PK_tbonus_id) + "'"
        'response.write str_sql
        'response.end
        call gCls_DbProcess2.RunSQLSearch(Str_Sql,Rec_Data)
        set GetData = Rec_Data
    end function
    '********************************************************************************************
    function SearchData(pStr_OrderBy, pStr_tbonus_quote, pStr_tbonus_firstsum, pStr_tbonus_fpercent, pStr_tbonus_fisgive, pStr_tbonus_fdate, pStr_tbonus_lastsum, pStr_tbonus_lpercent, pStr_tbonus_lisgive, pStr_tbonus_ldate, pStr_employee_id, pStr_project_id)
    '功能:查询资料
    '参数:查询条件
    '返回:查询结果
    dim Str_Sql                          'SQL语句
    dim Rec_Data                         '结果集
        'Str_Sql="1=1 and project_id like '%"&PK_project_id&"%'"
		if len(PK_project_id)=0 then
			Str_Sql="1=1"
		else
			Str_Sql="1=1 and project_id = "&PK_project_id
		end if
    
        if isnumeric(pStr_tbonus_quote) then
            Str_Sql=Str_Sql + vbCrlf + " and tbonus_quote = 0" + cstr(Val(pStr_tbonus_quote)) + ""
        end if
    
        if isnumeric(pStr_tbonus_firstsum) then
            Str_Sql=Str_Sql + vbCrlf + " and tbonus_firstsum = 0" + cstr(Val(pStr_tbonus_firstsum)) + ""
        end if
    
        if isnumeric(pStr_tbonus_fpercent) then
            Str_Sql=Str_Sql + vbCrlf + " and tbonus_fpercent = 0" + cstr(Val(pStr_tbonus_fpercent)) + ""
        end if
    
        if trim(pStr_tbonus_fisgive) <> "" then
            Str_Sql = Str_Sql + vbCrlf + " and tbonus_fisgive like '%" + ConvertSql(pStr_tbonus_fisgive) + "%'"
        end if
    
        if isdate(pStr_tbonus_fdate) then
            Str_Sql = Str_Sql + vbCrlf + " and datediff(d,tbonus_fdate,'" + FormatDate(pStr_tbonus_fdate,"yyyy-mm-dd") + "')=0"
            'ACCESS
            'Str_Sql = Str_Sql + vbCrlf + " and datediff('d',tbonus_fdate,'" + FormatDate(pStr_tbonus_fdate,"yyyy-mm-dd") + "')=0"
        end if
    
        if isnumeric(pStr_tbonus_lastsum) then
            Str_Sql=Str_Sql + vbCrlf + " and tbonus_lastsum = 0" + cstr(Val(pStr_tbonus_lastsum)) + ""
        end if
    
        if isnumeric(pStr_tbonus_lpercent) then
            Str_Sql=Str_Sql + vbCrlf + " and tbonus_lpercent = 0" + cstr(Val(pStr_tbonus_lpercent)) + ""
        end if
    
        if trim(pStr_tbonus_lisgive) <> "" then
            Str_Sql = Str_Sql + vbCrlf + " and tbonus_lisgive like '%" + ConvertSql(pStr_tbonus_lisgive) + "%'"
        end if
    
        if isdate(pStr_tbonus_ldate) then
            Str_Sql = Str_Sql + vbCrlf + " and datediff(d,tbonus_ldate,'" + FormatDate(pStr_tbonus_ldate,"yyyy-mm-dd") + "')=0"
            'ACCESS
            'Str_Sql = Str_Sql + vbCrlf + " and datediff('d',tbonus_ldate,'" + FormatDate(pStr_tbonus_ldate,"yyyy-mm-dd") + "')=0"
        end if
    
        if trim(pStr_employee_id) <> "" then
            Str_Sql = Str_Sql + vbCrlf + " and employee_id =" + ConvertSql(pStr_employee_id) 
        end if
    
        if trim(pStr_project_id) <> "" then
            Str_Sql = Str_Sql + vbCrlf + " and project_id = " + ConvertSql(pStr_project_id) 
        end if
    
        '排序处理
        if trim(pStr_OrderBy) = "" then
             pStr_OrderBy = "tbonus_id"
        end if
    
        Str_Sql =  "select *" _
        + vbCrlf + "   from wh_tech_bonuses" _
        + vbCrlf + "   where " + Str_Sql  _
        + vbCrlf + "   order by " + pStr_OrderBy
        'response.write str_sql
        'response.end
        call gCls_DbProcess2.RunSQLSearch(Str_Sql,Rec_Data)
        set SearchData = Rec_Data
    end function
    '********************************************************************************************
    function DeleteData(pStr_PK_tbonus_id)
    '功能:删除资料
    '参数:系统编码集合（如 'A01','A02','A03'）
    '返回:错误信息或空
    dim Str_ID                       '编码集合
    dim Str_Sql                      'SQL语句