common.pas

在打沙场用的最简单

unit common;

interface

uses SysUtils, Sconnect, Variants, DBclient, DB, Classes, Base;

type
   TbaseformClass = class of Tfrmbase;
    function applyupdata(CDS:TClientdataset; const ptablename,
      pkeyfield: WideString): WordBool;
    function getmaxid(const ptablename, pkeyfield: WideString): Integer;
    function Getsqldata(CDS:Tclientdataset;Tablename,
        keyfield:string;ssql:string;const MaxRec:integer=20):boolean;
    function Geteditdata(CDS:Tclientdataset;Tablename,
        keyfield:widestring;Cid:integer;const MaxRec:integer=20):boolean;
    function Getadddata(CDS:Tclientdataset;Tablename,
        keyfield:widestring;const MaxRec:integer=20):boolean;
    function GetAllData(CDS:Tclientdataset;Tablename,
        Keyfield:wideString;const MaxRec:integer=20):boolean;
    function GetDataFormServer(ACDS:Tclientdataset;
        sSql:String;const RecCount:integer=0):wordbool;
    function insertCDSdata(s,d:Tclientdataset):boolean;
    function ClearCDSdata(s:Tclientdataset):boolean;

type
  TDataprocessc = Class
  public
    function applyupdata(Sct:Tsocketconnection;CDS:TClientdataset; const ptablename,
      pkeyfield: WideString): WordBool; virtual;abstract;
    function getmaxid(Sct:Tsocketconnection;const ptablename, pkeyfield: WideString): Integer;
      Virtual;abstract;
    function Getsqldata(SCT:tsocketconnection;CDS:Tclientdataset;Tablename,
        keyfield:string;ssql:string;const MaxRec:integer=20):boolean;
        virtual;abstract;
    function Geteditdata(SCT:tsocketconnection;CDS:Tclientdataset;Tablename,
        keyfield:widestring;Cid:integer;const MaxRec:integer=20):boolean;
        virtual;abstract;
    function Getadddata(SCT:tsocketconnection;CDS:Tclientdataset;Tablename,
        keyfield:widestring;const MaxRec:integer=20):boolean;
        virtual;abstract;
    function GetAllData(SCT:Tsocketconnection;CDS:Tclientdataset;Tablename,
        Keyfield:wideString;const MaxRec:integer=20):boolean;
        virtual;abstract;
    function GetDataFormServer(SCT:Tsocketconnection;ACDS:Tclientdataset;
        sSql:String;const RecCount:integer=0):wordbool;
        virtual;abstract;
    function insertCDSdata(s,d:Tclientdataset):boolean;virtual;abstract;
    function ClearCDSdata(s:Tclientdataset):boolean;virtual;abstract;
end;


function CreateDataprocess:TDataprocessc;stdcall;external 'Dataprocess.dll';

var
  Dataprocess:Tdataprocessc;

implementation

uses data;

function applyupdata(CDS:TClientdataset; const ptablename,
        pkeyfield: WideString): WordBool;
begin
  Result:=Dataprocess.applyupdata(Datam.SCTlx,CDS,ptablename,pkeyfield);
end;
function getmaxid(const ptablename, pkeyfield: WideString): Integer;
begin
  Result:=Dataprocess.getmaxid(datam.SCTlx,ptablename,pkeyfield);
end;

function Getsqldata(CDS:Tclientdataset;Tablename,
        keyfield:string;ssql:string;const MaxRec:integer=20):boolean;
begin
  Result:=Dataprocess.Getsqldata(datam.SCTlx,CDS,Tablename,keyfield,sSql,Maxrec);
end;
function Geteditdata(CDS:Tclientdataset;Tablename,
        keyfield:widestring;Cid:integer;const MaxRec:integer=20):boolean;
begin
  Result:=Dataprocess.Geteditdata(Datam.SCTlx,CDS,Tablename,keyfield,cid,MaxRec);
end;                 
function Getadddata(CDS:Tclientdataset;Tablename,
         keyfield:widestring;const MaxRec:integer=20):boolean;
begin
  Result:=Dataprocess.Getadddata(Datam.SCTlx,CDS,Tablename,keyfield,20);
end;
function GetAllData(CDS:Tclientdataset;Tablename,
         Keyfield:wideString;const MaxRec:integer=20):boolean;
begin
  Result:=Dataprocess.GetAllData(Datam.SCTlx,CDS,Tablename,keyfield,Maxrec);
end;
function GetDataFormServer(ACDS:Tclientdataset;
        sSql:String;const RecCount:integer=0):wordbool;
begin
  Result:=Dataprocess.GetDataFormServer(Datam.SCTlx,ACDS,sSql,RecCount);
end;
function insertCDSdata(s,d:Tclientdataset):boolean;
begin
  Result:=Dataprocess.insertCDSdata(s,d);
end;
function ClearCDSdata(s:Tclientdataset):boolean;
begin
  Result:=Dataprocess.ClearCDSdata(S);
end;

initialization
  Dataprocess:=CreateDataprocess;
finalization
  Dataprocess.Free;

end.