sl_server.pas

三層源碼,DELPHI寫的三層源碼,三層源碼,

//帐号管理
//******************************************************************************
procedure Tslsvr.user_model(const funid, params: WideString);
var outstr:string;
    bool:boolean;
begin
bool:=false;
outstr:='您没有使用这项功能的权限!';
if check_authority_user(funid,authority) then
case strtointdef(funid,public_unkonw) of
     public_unkonw:          outstr:='不能识别的操作标识!';
     public_add:             bool:=create_user(params,outstr,ado1);
     public_modify:          bool:=modify_user(params,outstr,ado1);
     public_del:             bool:=delete_user(params,outstr,ado1);
 
     private_change_passwd:
        begin
        if loginuser=getparamitem(params,'tuid') then
           bool:=modify_passwd_user(params,outstr,ado1)
           else outstr:='不能修改它人的密码!';
        end;
        
     private_check_passwd:   //登陆验证..
        begin
        bool:=check_passwd_user(params,outstr,ado1);
        if bool then
           begin
           authority:=outstr;
           loginuser:=getparamitem(params,'tuid');
           md5_user := md5encode(datetimetostr(now) + loginuser);
           logmemo.Add(datetimetostr(now)+':用户 ' + loginuser + ' 已经连接到服务器.');
           end;
        end;
     end;

lasterrormsger:=outstr;
operationresult:=bool;
end;
//******************************************************************************
//部门 工种 管理
//******************************************************************************
procedure Tslsvr.dept_model(const funid, params: WideString);
var outstr:string;
    bool:boolean;
begin
bool:=false;
outstr:='您没有使用这项功能的权限!';
if check_authority_dept(funid,authority) then
case strtointdef(funid,public_unkonw) of
     public_unkonw:          outstr:='不能识别的操作标识!';
     public_add:             bool:=create_dept(params,outstr,ado1);
     public_modify:          bool:=modify_dept(params,outstr,ado1); 
     public_copy:            bool:=copy_dept(params,outstr,ado1);
     public_del:             bool:=delete_dept(params,outstr,ado1);

     public_add_temp:        bool:=create_work(params,outstr,ado1);
     public_del_temp:        bool:=delete_work(params,outstr,ado1);
     public_clear_temp:      bool:=modify_work(params,outstr,ado1);
     end;

lasterrormsger:=outstr;
operationresult:=bool;
end;
//******************************************************************************
//员工管理
//******************************************************************************
procedure Tslsvr.Parchives_model(const funid, params: WideString);
var outstr:string;
    bool:boolean;
begin
bool:=false;
outstr:='您没有使用这项功能的权限!';
if check_authority_Parchives(funid,authority) then
case strtointdef(funid,public_unkonw) of
     public_unkonw:          outstr:='不能识别的操作标识!';
     public_add:             bool:=create_Parchives(params,outstr,ado1);
     public_modify:          bool:=modify_Parchives(params,outstr,ado1);
     public_del:             bool:=delete_Parchives(params,outstr,ado1);

     public_add_temp:        bool:=dimission_Parchives(params,outstr,ado1);
     public_del_temp:        bool:=delete_dimission(params,outstr,ado1);
     public_copy:            bool:=restore_Parchives(params,outstr,ado1);
     end;

lasterrormsger:=outstr;
operationresult:=bool;

end;
//******************************************************************************
//宿舍管理
//******************************************************************************
procedure Tslsvr.dormitory_model(const funid, params: WideString);
var outstr:string;
    bool:boolean;
begin
bool:=false;
outstr:='您没有使用这项功能的权限!';
if check_authority_dormitory(funid,authority) then
case strtointdef(funid,public_unkonw) of
     public_unkonw:          outstr:='不能识别的操作标识!';
     public_modify:          bool:=modify_dormitory(md5_user,params,outstr,ado1);
     public_add:             bool:=create_dormitory(md5_user,params,outstr,ado1);
     public_del:             bool:=delete_dormitory(md5_user,params,outstr,ado1);

     public_add_temp:        bool:=create_temp_dormitory(md5_user,params,outstr,ado1);
     public_del_temp:        bool:=delete_temp_dormitory(md5_user,params,outstr,ado1);
     public_clear_temp:      bool:=clear_temp_dormitory(md5_user,params,outstr,ado1);
     public_rebuild:         bool:=rebuild_temp_dormitory(md5_user,params,outstr,ado1);
     end;

lasterrormsger:=outstr;
operationresult:=bool;
end;
//******************************************************************************
// 事件提醒管理
//******************************************************************************
procedure Tslsvr.event_model(const funid, params: WideString);
var outstr:string;
    bool:boolean;
begin
bool:=false;
outstr:='您没有使用这项功能的权限!';
if check_authority_event(funid,authority) then
case strtointdef(funid,public_unkonw) of
     public_unkonw:          outstr:='不能识别的操作标识!';
     public_modify:          bool:=modify_event(params,outstr,ado1);
     public_add:             bool:=create_event(params,outstr,ado1);
     public_del:             bool:=delete_event(params,outstr,ado1);

     public_clear_temp:      bool:=clear_event(params,outstr,ado1);
     end;

lasterrormsger:=outstr;
operationresult:=bool;
end;
//******************************************************************************
// 系统设置,打印
//******************************************************************************
procedure Tslsvr.sysother_model(const funid, params: WideString);
var outstr:string;
    bool:boolean;
begin
bool:=false;
outstr:='您没有使用这项功能的权限!';
case strtointdef(funid,public_unkonw) of
     public_unkonw:          outstr:='不能识别的操作标识!';
     public_add:             bool:=create_sysother(params,outstr,ado1);
     public_modify:          bool:=modify_sysother(params,outstr,ado1);
     end;
lasterrormsger:=outstr;
operationresult:=bool;
end;
//******************************************************************************
// 税率表
//******************************************************************************
procedure Tslsvr.cess_model(const funid, params: WideString);
var outstr:string;
    bool:boolean;
begin
bool:=false;
outstr:='您没有使用这项功能的权限!';
if check_authority_cess(funid,authority) then
case strtointdef(funid,public_unkonw) of
     public_unkonw:          outstr:='不能识别的操作标识!';
     public_add:             bool:=create_cess(params,outstr,ado1);
     public_modify:          bool:=modify_cess(params,outstr,ado1);
     public_del:             bool:=delete_cess(params,outstr,ado1);
     end;
lasterrormsger:=outstr;
operationresult:=bool;
end;

procedure Tslsvr.medicare_model(const funid, params: WideString);
var outstr:string;
    bool:boolean;
begin
bool:=false;
outstr:='您没有使用这项功能的权限!';
if check_authority_medicare(funid,authority) then
case strtointdef(funid,public_unkonw) of
     public_unkonw:          outstr:='不能识别的操作标识!';
     public_add:             bool:=create_medicare(params,outstr,ado1);
     public_modify:          bool:=modify_medicare(params,outstr,ado1);
     public_del:             bool:=delete_medicare(params,outstr,ado1);
     end;
lasterrormsger:=outstr;
operationresult:=bool;
end;

procedure Tslsvr.insurance_model(const funid, params: WideString);
var outstr:string;
    bool:boolean;
begin
bool:=false;
outstr:='您没有使用这项功能的权限!';
if check_authority_insurance(funid,authority) then
case strtointdef(funid,public_unkonw) of
     public_unkonw:          outstr:='不能识别的操作标识!';
     public_add:             bool:=create_insurance(params,outstr,ado1);
     public_modify:          bool:=modify_insurance(params,outstr,ado1);
     public_del:             bool:=delete_insurance(params,outstr,ado1);
     end;
lasterrormsger:=outstr;
operationresult:=bool;
end;

procedure Tslsvr.incometax_model(const funid, params: WideString);
var outstr:string;
    bool:boolean;
begin
bool:=false;
outstr:='您没有使用这项功能的权限!';
if check_authority_incometax(funid,authority) then
case strtointdef(funid,public_unkonw) of
     public_unkonw:          outstr:='不能识别的操作标识!';
     public_add:             bool:=create_incometax(params,outstr,ado1);
     public_modify:          bool:=modify_incometax(params,outstr,ado1);
     public_del:             bool:=delete_incometax(params,outstr,ado1);
     end;
lasterrormsger:=outstr;
operationresult:=bool;
end;

initialization
  TComponentFactory.Create(ComServer, Tslsvr,
    Class_slsvr, ciMultiInstance, tmApartment);
end.