supplier_unit.pas

这是用delphi开发的一个物资管理信息系统

unit supplier_unit;

interface
     uses
  Windows,Messages,SysUtils,Variants,DBclient,Classes,datamodule;
  type
   Tsupplier=class(TObject)
   private
    Datamod:TDataMod;
   public
   function CheckRec(ID:string):Boolean;
   function FindAll(FindSQL:string):OLEVariant;
   function GetIdList():Tstrings;
   procedure InsertRec(InsertSQL:string);
   procedure UpdateRec(UpdateSQL:string);
   procedure DeleteRec(DeleteSQL:string);
   constructor create;
   destructor Destroy;override;
  end;
implementation

  constructor  Tsupplier.create;
  begin
  Datamod:=TDataMod.Create(nil);
  end;

  destructor Tsupplier.Destroy ;
  begin
  freeandnil(Datamod);
 inherited;
  end;

  function Tsupplier.CheckRec(ID:string):Boolean;
  begin
  DataMod.adoq2.Close;
  DataMod.adoq2.SQL.Clear;
  DataMod.adoq2.SQL.Add('select * from supplier_info '
  +'where supplier_code='''+ID+'''');
  DataMod.adoq2.Open;
  if  DataMod.adoq2.Eof  then  result:=false
  else result:=true;
  end;

  procedure Tsupplier.InsertRec(InsertSQL:string);
  begin
  DataMod.adoq2.Close;
  DataMod.adoq2.SQL.Clear;
  DataMod.adoq2.SQL.Add(InsertSQL);
  DataMod.adoq2.ExecSQL ;
  end;

    procedure Tsupplier.UpdateRec(UpdateSQL:string);
  begin
  DataMod.adoq2.Close;
  DataMod.adoq2.SQL.Clear;
  DataMod.adoq2.SQL.Add(UpdateSQL);
  DataMod.adoq2.ExecSQL ;
  end;

      procedure Tsupplier.DeleteRec(DeleteSQL:string);
  begin
  DataMod.adoq2.Close;
  DataMod.adoq2.SQL.Clear;
  DataMod.adoq2.SQL.Add(DeleteSQL);
  DataMod.adoq2.ExecSQL ;
  end;

  function  Tsupplier.FindAll(FindSQL:string):OLEVariant;
  begin
  DataMod.sel_adoq1.Close;
  DataMod.sel_adoq1.SQL.Clear;
  DataMod.sel_adoq1.SQL.Add(FindSQL);
  DataMod.sel_adoq1.Open;
  result:=DataMod.sel_dsp1.Data;
  end;

   function Tsupplier.GetIdList():TStrings;
 var
  idrec:TStrings;
 begin
  idrec:=TStringlist.Create ;
  Datamod.adoq2.Close;
  Datamod.adoq2.SQL.Clear;
  Datamod.adoq2.SQL.Add('select * from supplier_info');
  Datamod.adoq2.Open;
  while not Datamod.adoq2.Eof  do
  begin
  idrec.Add(Datamod.adoq2.fieldbyname('supplier_code').AsString);
  Datamod.adoq2.Next;
  end;
  result:=idrec;
 end;





end.