sysother.pas

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

unit sysother;

interface

uses SysUtils,Classes,adodb;

//-------------基本功能
function create_sysother(params:WideString;out outstr:string;adoconn:TADOConnection):boolean;
function modify_sysother(params:WideString;out outstr:string;adoconn:TADOConnection):boolean;

//-------------查询
procedure Query_sysotherinfo(params:WideString;out querys:tadoquery);

implementation
uses shareunit;

//-------------新建
function create_sysother(params:WideString;out outstr:string;adoconn:TADOConnection):boolean;
var querys:tadoquery;
begin
result:=false;
outstr:='记录已经存在!';
try
querys:=tadoquery.create(nil);
querys.Connection:=adoconn;

   try
   adoconn.Connected:=true;
   adoconn.BeginTrans;

   querys.close;
   querys.sql.clear;
   querys.sql.add('delete from sysother where pname=:ax');
   querys.parameters.parambyname('ax').value:=getparamitem(params,'tuid');
   querys.ExecSQL;

   querys.close;
   querys.sql.clear;
   querys.sql.add('insert into sysother(pname,pagesize,pagetop,pagebottom,pageleft,pageright,width,height,orientation)');
   querys.sql.add('values(:a1,:a2,:a3,:a4,:a5,:a6,:a7,:a8,:a9)');
   querys.parameters.parambyname('a1').value:=getparamitem(params,'tuid');
   querys.parameters.parambyname('a2').value:=getparamitem(params,'tpagesizes');
   querys.parameters.parambyname('a3').value:=getparamitem(params,'tptop');
   querys.parameters.parambyname('a4').value:=getparamitem(params,'tpbottom');
   querys.parameters.parambyname('a5').value:=getparamitem(params,'tpleft');
   querys.parameters.parambyname('a6').value:=getparamitem(params,'tpright');
   querys.parameters.parambyname('a7').value:=getparamitem(params,'tcwidth');
   querys.parameters.parambyname('a8').value:=getparamitem(params,'tcheight');
   querys.parameters.parambyname('a9').value:=getparamitem(params,'torientation');
   querys.ExecSQL;

   adoconn.CommitTrans;
   result:=true;
   except
   adoconn.RollbackTrans;
   outstr:='保存打印设置时更新错误!';
   end;

finally
querys.close;
freeandnil(querys);
end;
end;

function modify_sysother(params:WideString;out outstr:string;adoconn:TADOConnection):boolean;
var querys:tadoquery;
begin
result:=false;
outstr:='记录已经存在!';
try
querys:=tadoquery.create(nil);
querys.Connection:=adoconn;

   try
   adoconn.Connected:=true;
   adoconn.BeginTrans;

   querys.close;
   querys.sql.clear;
   querys.sql.add('delete from company');
   querys.ExecSQL;

   querys.close;
   querys.sql.clear;
   querys.sql.add('insert into company(pname,tel,fax,mail,web,adder,other)');
   querys.sql.add('values(:a1,:a3,:a4,:a7,:a8,:a9,:a11)');
   querys.parameters.parambyname('a1').value:=getparamitem(params,'pname');
   querys.parameters.parambyname('a3').value:=getparamitem(params,'tel');
   querys.parameters.parambyname('a4').value:=getparamitem(params,'fax');
   querys.parameters.parambyname('a7').value:=getparamitem(params,'mail');
   querys.parameters.parambyname('a8').value:=getparamitem(params,'web');
   querys.parameters.parambyname('a9').value:=getparamitem(params,'adder');
   querys.parameters.parambyname('a11').value:=getparamitem(params,'other');
   querys.ExecSQL;


   adoconn.CommitTrans;
   result:=true;
   except
   adoconn.RollbackTrans;
   outstr:='保存公司信息时更新错误!';
   end;

finally
querys.close;
freeandnil(querys);
end;
end;

//-------------查询
procedure Query_sysotherinfo(params:WideString;out querys:tadoquery);
var funid:integer;
begin
funid:=strtointdef(getparamitem(params,'funid'),public_unkonw);
case funid of
 public_list:
     begin
     querys.close;
     querys.sql.clear;
     querys.sql.add('select * from sysother where pname=:ax');
     querys.parameters.parambyname('ax').value:=getparamitem(params,'tuid');
     querys.open;
     end;

 public_infor:
     begin
     querys.close;
     querys.sql.clear;
     querys.sql.add('select * from company');
     querys.open;
     end;

 public_list_sub:
     begin
     querys.close;
     querys.sql.clear;
     querys.sql.add('select area from ID_card where number=:ax');
     querys.Parameters.ParamByName('ax').value:=getparamitem(params,'tuid');
     querys.open;
     end;
 end;
end;


end.