paichein_unit.pas

信息管理系统

unit paichein_unit;

interface
uses
  Windows,Messages,SysUtils,Variants,DBclient,Graphics,Classes,persondatamod_unit;
  type
  Tpaichein=class(Tobject)
  private
    Datamod:TPerson_datamod;
  public
     function  Check(SQL:string):boolean;
     function  Find(SQL:string):integer;
     function  Sum():real;
     function  GetPaicheIDl(SQL:string):string;
     function  GetNumTo(vehi:string):string;
     function  Sel(SQL:string):OLEVariant;
     procedure  Execu(SQL:string);
     constructor create;
     destructor Destroy;override;
  end;
implementation
constructor Tpaichein.create ;
begin
Datamod:=TPerson_datamod.Create(nil);
end;

destructor Tpaichein.Destroy;
begin
 freeandnil(Datamod);
 inherited;
end;
function  Tpaichein.Find(SQL:string):integer;
begin
  Datamod.Person_adoq2.Close;
  Datamod.Person_adoq2.SQL.Clear;
  Datamod.Person_adoq2.SQL.Add(SQL);
  Datamod.Person_adoq2.Open ;
  result:=Datamod.Person_adoq2.RecordCount;
end  ;
function  Tpaichein.Check(SQL:string):boolean;
begin
  Datamod.Person_adoq2.Close;
  Datamod.Person_adoq2.SQL.Clear;
  Datamod.Person_adoq2.SQL.Add(SQL);
  Datamod.Person_adoq2.Open ;
  if  Datamod.Person_adoq2.RecordCount=0 then
  result:=false
  else
  result:=true;
end;
function  Tpaichein.Sum():real;
begin
  Datamod.Person_adoq2.Close;
  Datamod.Person_adoq2.SQL.Clear;
  Datamod.Person_adoq2.SQL.Add('select sum(num)as ALL from WORK_INFO1');
  Datamod.Person_adoq2.Open ;
  result:=Datamod.Person_adoq2.fieldbyname('all').value;
end;
function  Tpaichein.GetPaicheIDl(SQL:string):string;
begin
  Datamod.Person_adoq2.Close;
  Datamod.Person_adoq2.SQL.Clear;
  Datamod.Person_adoq2.SQL.Add(SQL);
  Datamod.Person_adoq2.Open ;
  Datamod.Person_adoq2.last ;
  result:=Datamod.Person_adoq2.fieldbyname('PAICHE_ID').AsString ;
end;
function  Tpaichein.GetNumTo(vehi:string):string;
begin
  Datamod.Person_adoq2.Close;
  Datamod.Person_adoq2.SQL.Clear;
  Datamod.Person_adoq2.SQL.Add('select * from WORK_INFO where VEHICLE_NO='+''''+vehi+''''+' order by PAICHE_ID');
  Datamod.Person_adoq2.Open ;
  Datamod.Person_adoq2.last ;
  result:=Datamod.Person_adoq2.fieldbyname('NUM_TO').AsString ;
end;

function  Tpaichein.Sel(SQL:string):OLEVariant;
begin
  Datamod.Person_adoq1.Close;
  Datamod.Person_adoq1.SQL.Clear;
  Datamod.Person_adoq1.SQL.Add(SQL);
  Datamod.Person_adoq1.Open ;
  result:=datamod.Person_dsp1.Data;
end;
procedure  Tpaichein.Execu(SQL:string);
begin
  Datamod.Person_adoq2.Close;
  Datamod.Person_adoq2.SQL.Clear;
  Datamod.Person_adoq2.SQL.Add(SQL);
  Datamod.Person_adoq2.ExecSQL;
end;
end.