list_unit.pas

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

unit list_unit;

interface
     uses
  Windows,Messages,SysUtils,Variants,DBclient,Classes,datamodule;
  type
   Tlist=class(TObject)
   private
    Datamod:TDataMod;
   public
   function ListRec(List_code:string):Boolean;
   function ListsFind(SQL:string):Boolean;
   function Lists(FindSQL:string):OLEVariant; 
   procedure ListInsert(InsertSQL:string);
   procedure ListUpdate(UpdateSQL:string);
   procedure ListDelete(DeleteSQL:string);
   function GetlistIdList():Tstrings;
   constructor create;
   destructor Destroy;override;
  end;
implementation

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

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

  function TList.ListRec(List_code:string):Boolean;
  begin
  DataMod.adoq2.Close;
  DataMod.adoq2.SQL.Clear;
  DataMod.adoq2.SQL.Add('select * from list_info '
  +'where list_code='''+List_code+'''');
  DataMod.adoq2.Open;
  if  DataMod.adoq2.Eof  then  result:=false
  else result:=true;
  end;

    function TList.ListsFind(SQL:string):Boolean;
  begin
  DataMod.adoq2.Close;
  DataMod.adoq2.SQL.Clear;
  DataMod.adoq2.SQL.Add(SQL);
  DataMod.adoq2.Open;
  if  DataMod.adoq2.Eof  then  result:=false
  else result:=true;
  end;

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

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

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

  function  Tlist.Lists(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 Tlist.GetlistIdList():TStrings;
 var
  idlist:TStrings;
 begin
  idlist:=TStringlist.Create  ;
  Datamod.sel_adoq1.Close;
  Datamod.sel_adoq1.SQL.Clear;
  Datamod.sel_adoq1.SQL.Add('select * from list_info where list_code like ''O%''');
  Datamod.sel_adoq1.Open;
  while not Datamod.sel_adoq1.Eof  do
  begin
  idlist.Add(Datamod.sel_adoq1.fieldbyname('list_code').AsString);
  Datamod.sel_adoq1.Next;
  end;
  result:=idlist;
 end;



end.