cls_view_salaries.asp

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

<%
'文件功能：view_salaries--数据逻辑（商业层）
'编写人员：阿房
'编写时间：2003-09-03 17:08:12
'开发平台：ASP3.0 + MSSQL2000
'版本：1.1.20030908.01
%>

<%
Class Cls_view_salaries
    '********************************************************************************************
    function SaveData(pStr_PK_salary_id, pStr_salary_id, pStr_salary_date, pStr_salary_month, pStr_employee_id, pStr_salary_info1, pStr_salary_info2, pStr_salary_memo, pStr_Expr1)
    '功能:存储详细数据
    '参数:详细数据集合
    '返回:错误信息或空
    dim Str_ID                           '系统编码
    dim Str_Sql                          'SQL语句
        Str_ID = trim(pStr_PK_salary_id)
    
        if isdate(pStr_salary_date) then
            pStr_salary_date = "'" + FormatDate(pStr_salary_date,"yyyy-mm-dd hh:nn:ss") + "'"
        else
            pStr_salary_date = "null"
        end if
    
        if (Str_ID = "") then
    
            Str_Sql =  "insert into view_salaries (" _
            + vbCrlf + "   salary_id" _
            + vbCrlf + "  ,salary_date" _
            + vbCrlf + "  ,salary_month" _
            + vbCrlf + "  ,employee_id" _
            + vbCrlf + "  ,salary_info1" _
            + vbCrlf + "  ,salary_info2" _
            + vbCrlf + "  ,salary_memo" _
            + vbCrlf + "  ,Expr1" _
            + vbCrlf + "   )"
            Str_Sql = Str_Sql _
            + vbCrlf + " values (" _
            + vbCrlf + "   0" + cstr(Val(pStr_salary_id)) + "" _
            + vbCrlf + "  , " +(pStr_salary_date) + "" _
            + vbCrlf + "  ,0" + cstr(Val(pStr_salary_month)) + "" _
            + vbCrlf + "  ,0" + cstr(Val(pStr_employee_id)) + "" _
            + vbCrlf + "  ,'" + ConvertSql(pStr_salary_info1) + "'" _
            + vbCrlf + "  ,'" + ConvertSql(pStr_salary_info2) + "'" _
            + vbCrlf + "  ,'" + ConvertSql(pStr_salary_memo) + "'" _
            + vbCrlf + "  ,'" + ConvertSql(pStr_Expr1) + "'" _
            + vbCrlf + "   )"
                     
        else
            Str_Sql =  "Update view_salaries Set" _
            + vbCrlf + "   salary_id=0" + cstr(Val(pStr_salary_id)) + "" _
            + vbCrlf + "  ,salary_date=" +(pStr_salary_date) + "" _
            + vbCrlf + "  ,salary_month=0" + cstr(Val(pStr_salary_month)) + "" _
            + vbCrlf + "  ,employee_id=0" + cstr(Val(pStr_employee_id)) + "" _
            + vbCrlf + "  ,salary_info1='" + ConvertSql(pStr_salary_info1) + "'" _
            + vbCrlf + "  ,salary_info2='" + ConvertSql(pStr_salary_info2) + "'" _
            + vbCrlf + "  ,salary_memo='" + ConvertSql(pStr_salary_memo) + "'" _
            + vbCrlf + "  ,Expr1='" + ConvertSql(pStr_Expr1) + "'" _
            + vbCrlf + "   Where salary_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
    end function
    '********************************************************************************************
    function GetData(pStr_PK_salary_id)
    '功能:读取详细数据
    '参数:数据系统编码
    '返回:详细数据
    dim Str_Sql                          'SQL语句
    dim Rec_Data                         '结果集
        Str_Sql =  "select *" _
        + vbCrlf + "   from view_salaries" _
        + vbCrlf + "   where salary_id = '" + ConvertSql(pStr_PK_salary_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_salary_id, pStr_salary_date, pStr_salary_month, pStr_employee_id, pStr_salary_info1, pStr_salary_info2, pStr_salary_memo, pStr_Expr1)
    '功能:查询资料
    '参数:查询条件
    '返回:查询结果
    dim Str_Sql                          'SQL语句
    dim Rec_Data                         '结果集
        Str_Sql="1=1"
    
    
        if isnumeric(pStr_salary_id) then
            Str_Sql=Str_Sql + vbCrlf + " and salary_id = 0" + cstr(Val(pStr_salary_id)) + ""
        end if
    
        if isdate(pStr_salary_date) then
            Str_Sql = Str_Sql + vbCrlf + " and datediff(d,salary_date,'" + FormatDate(pStr_salary_date,"yyyy-mm-dd") + "')=0"
            'ACCESS
            'Str_Sql = Str_Sql + vbCrlf + " and datediff('d',salary_date,'" + FormatDate(pStr_salary_date,"yyyy-mm-dd") + "')=0"
        end if
    
        if isnumeric(pStr_salary_month) then
            Str_Sql=Str_Sql + vbCrlf + " and salary_month = 0" + cstr(Val(pStr_salary_month)) + ""
        end if
    
        if isnumeric(pStr_employee_id) then
            Str_Sql=Str_Sql + vbCrlf + " and employee_id = 0" + cstr(Val(pStr_employee_id)) + ""
        end if
    
        if trim(pStr_salary_info1) <> "" then
            Str_Sql = Str_Sql + vbCrlf + " and salary_info1 like '%" + ConvertSql(pStr_salary_info1) + "%'"
        end if
    
        if trim(pStr_salary_info2) <> "" then
            Str_Sql = Str_Sql + vbCrlf + " and salary_info2 like '%" + ConvertSql(pStr_salary_info2) + "%'"
        end if
    
        if trim(pStr_salary_memo) <> "" then
            Str_Sql = Str_Sql + vbCrlf + " and salary_memo like '%" + ConvertSql(pStr_salary_memo) + "%'"
        end if
    
        if trim(pStr_Expr1) <> "" then
            Str_Sql = Str_Sql + vbCrlf + " and Expr1 like '%" + ConvertSql(pStr_Expr1) + "%'"
        end if
    
        '排序处理
        if trim(pStr_OrderBy) = "" then
             pStr_OrderBy = "salary_id"
        end if
    
        Str_Sql =  "select *" _
        + vbCrlf + "   from view_salaries" _
        + 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_salary_id)
    '功能:删除资料
    '参数:系统编码集合（如 'A01','A02','A03'）
    '返回:错误信息或空
    dim Str_ID                       '编码集合
    dim Str_Sql                      'SQL语句
        Str_ID  = trim(pStr_PK_salary_id)
        if (Str_ID = "") then Str_ID ="''"
        if IsUsed(Str_ID) then 
            DeleteData = GetDeleteErrMSG
            exit function
        end if
        
        Str_Sql =  "delete from view_salaries" _
        + vbCrlf + "   Where salary_id in (" + Str_ID + ")"
        'response.write str_sql
        'response.end
        if (not gCls_DbProcess2.ExecuteSQL(Str_Sql)) then
            DeleteData = GetDeleteErrMSG
        else
            DeleteData = ""
        end if
    end function
    '********************************************************************************************
    function Count()
    '功能:查询数据记录总数
    '参数:无
    '返回:记录总数
    dim Rec_Data                        '结果集
    dim Int_Count                       '记数
    dim Str_Sql                         'SQL语句
        Str_Sql =  "select count(*) as allcount" _
        + vbCrlf + "   from view_salaries"
        'response.write str_sql
        'response.end
        call gCls_DbProcess2.RunSQLSearch(Str_Sql,Rec_Data)
        if (Rec_Data.eof) then
            Int_Count = 0
        else
            Int_Count = Val(Rec_Data.fields("allcount") & "")
        end if
        Rec_Data.close
        Count = Int_Count
    end function
    '********************************************************************************************
    function IsUsed(pStr_PK_salary_id)
    '功能:数据是否已开始使用
    '参数:系统编码集合
    '返回:是否使用
    dim Rec_Data                          '结果集
    dim Int_Count                         '记数
    dim Str_Sql                           'SQL语句
    dim Str_ID
        Str_ID     = trim(pStr_PK_salary_id)       '编码集合
        if (Str_ID = "") then Str_ID="''"
        '本句需要根据实际情况进行调整
        Str_Sql  = "select count(*) as allcount" _
        + vbCrlf + "   from view_salaries" _
        + vbCrlf + "   where 1=2"
        'response.write str_sql
        'response.end
        call gCls_DbProcess2.RunSQLSearch(Str_Sql,Rec_Data)
        if (Rec_Data.eof) then
            Int_Count = 0
        else
            Int_Count = Val(Rec_Data.fields("allcount") & "")
        end if
        Rec_Data.Close
        if (Int_Count>0) then
            IsUsed = true
        else
            IsUsed = false
        end if
    end function
    '********************************************************************************************
    function IsExist(pStr_PK_salary_id)
    '功能:数据是否存在
    '参数:系统编码集合
    '返回:是否存在
    dim Rec_Data                          '结果集
    dim Str_Data
    dim Int_Count1                        '记数
    dim Int_Count                         '记数
    dim Str_Sql                           'SQL语句
    dim Str_ID
        Str_ID     = trim(pStr_PK_salary_id)       '编码集合
        if (Str_ID = "") then Str_ID="''"
        '本句需要根据实际情况进行调整
        Str_Sql =  "select count(*) as allcount" _
        + vbCrlf + "   from view_salaries" _
        + vbCrlf + "  where salary_id in ("+Str_ID+")"
        'response.write str_sql
        'response.end
        call gCls_DbProcess2.RunSQLSearch(Str_Sql,Rec_Data)
        if (Rec_Data.eof) then
            Int_Count = 0
        else
            Int_Count = Val(Rec_Data.fields("allcount") & "")
        end if
        Rec_Data.Close
        Str_Data = split(cstr(Str_ID),",")
        Int_Count1 = ubound(Str_Data)+1
        if (Int_Count=Int_Count1) then
            IsExist = true
        else
            IsExist = false
        end if
    end function
    '********************************************************************************************
end Class

dim mCls_view_salaries
set mCls_view_salaries = new Cls_view_salaries
%>