operator_unit.pas

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

unit operator_unit;

interface
     uses
  Windows,Messages,SysUtils,Variants,DBclient,Classes,datamodule;
  type
   Toperator=class(TObject)
   private
    Datamod:TDataMod;
   public
   function OperatorRec(OPERATOR_ID:string):Boolean;
   function AllOperators(FindSQL:string):OLEVariant;
   function GetIdList():Tstrings;
   procedure InsertOperator(InsertSQL:string);
   procedure UpdateOperator(UpdateSQL:string);
   procedure DeleteOperator(DeleteSQL:string);
   constructor create;
   destructor Destroy;override;
  end;
implementation

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

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

  function Toperator.OperatorRec(OPERATOR_ID:string):Boolean;
  begin
  DataMod.adoq2.Close;
  DataMod.adoq2.SQL.Clear;
  DataMod.adoq2.SQL.Add('select * from operator_info '
  +'where operator_id='''+OPERATOR_ID+'''');
  DataMod.adoq2.Open;
  if  DataMod.adoq2.Eof  then  result:=false
  else result:=true;
  end;

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

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

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

  function  Toperator.AllOperators(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 Toperator.GetIdList():TStrings;
 var
  idrec:TStrings;
 begin
  idrec:=TStringlist.Create ;
  Datamod.sel_adoq1.Close;
  Datamod.sel_adoq1.SQL.Clear;
  Datamod.sel_adoq1.SQL.Add('select distinct(operator_id) from operator_info');
  Datamod.sel_adoq1.Open;
  while not Datamod.sel_adoq1.Eof  do
  begin
  idrec.Add(Datamod.sel_adoq1.fieldbyname('operator_id').AsString);
  Datamod.sel_adoq1.Next;
  end;
  result:=idrec;
 end;





end.