place_unit.pas

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

unit place_unit;

interface
     uses
  Windows,Messages,SysUtils,Variants,DBclient,Classes,datamodule;
  type
   Tplace=class(TObject)
   private
    Datamod:TDataMod;
   public
   function CheckRec(PLACE_CODE:string):Boolean;
    function GetPlaceIdList():Tstrings;
    function GetProCode(PLACE_CODE:string):string;
    function GetAreaName(PLACE_CODE:string):string;
    function GetShelfNum(PLACE_CODE:string):string;
    function GetFloorNum(PLACE_CODE:string):string;
    function GetLineNum(PLACE_CODE:string):string;
    function GetHeight(PLACE_CODE:string):string;
    function GetWidth(PLACE_CODE:string):string;
    function GetLength(PLACE_CODE:string):string;
   function FindAllPlace(FindSQL:string):OLEVariant;
   procedure InsertPlaceRec(InsertSQL:string);
   procedure UpdatePlaceRec(UpdateSQL:string);
   procedure DeletePlaceRec(DeleteSQL:string);
   constructor create;
   destructor Destroy;override;
  end;
implementation

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

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

   function Tplace.GetPlaceIdList ():TStrings;
 var
  idrec:TStrings;
 begin
  idrec:=TStringlist.Create ;
  Datamod.adoq2.Close;
  Datamod.adoq2.SQL.Clear;
  Datamod.adoq2.SQL.Add('select distinct(Place_code) from place_info');
  Datamod.adoq2.Open;
  while not Datamod.adoq2.Eof  do
  begin
  idrec.Add(Datamod.adoq2.fieldbyname('place_code').AsString);
  Datamod.adoq2.Next;
  end;
  result:=idrec;
 end;

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

    function Tplace.GetProCode(PLACE_CODE:string):string;
  begin
  DataMod.adoq2.Close;
  DataMod.adoq2.SQL.Clear;
  DataMod.adoq2.SQL.Add('select * from place_info '
  +'where place_code='''+PLACE_CODE+'''');
  DataMod.adoq2.Open;
result:=DataMod.adoq2.fieldbyname('pro_code').AsString ;
  end;

      function Tplace.GetAreaName(PLACE_CODE:string):string;
  begin
  DataMod.adoq2.Close;
  DataMod.adoq2.SQL.Clear;
  DataMod.adoq2.SQL.Add('select * from place_info '
  +'where place_code='''+PLACE_CODE+'''');
  DataMod.adoq2.Open;
result:=DataMod.adoq2.fieldbyname('area_name').AsString ;
  end;

      function Tplace.GetShelfNum (PLACE_CODE:string):string;
  begin
  DataMod.adoq2.Close;
  DataMod.adoq2.SQL.Clear;
  DataMod.adoq2.SQL.Add('select * from place_info '
  +'where place_code='''+PLACE_CODE+'''');
  DataMod.adoq2.Open;
result:=DataMod.adoq2.fieldbyname('shelf_num').AsString ;
  end;

      function Tplace.GetFloorNum (PLACE_CODE:string):string;
  begin
  DataMod.adoq2.Close;
  DataMod.adoq2.SQL.Clear;
  DataMod.adoq2.SQL.Add('select * from place_info '
  +'where place_code='''+PLACE_CODE+'''');
  DataMod.adoq2.Open;
result:=DataMod.adoq2.fieldbyname('floor_num').AsString ;
  end;

      function Tplace.GetLineNum (PLACE_CODE:string):string;
  begin
  DataMod.adoq2.Close;
  DataMod.adoq2.SQL.Clear;
  DataMod.adoq2.SQL.Add('select * from place_info '
  +'where place_code='''+PLACE_CODE+'''');
  DataMod.adoq2.Open;
result:=DataMod.adoq2.fieldbyname('line_num').AsString ;
  end;

      function Tplace.GetHeight (PLACE_CODE:string):string;
  begin
  DataMod.adoq2.Close;
  DataMod.adoq2.SQL.Clear;
  DataMod.adoq2.SQL.Add('select * from place_info '
  +'where place_code='''+PLACE_CODE+'''');
  DataMod.adoq2.Open;
result:=DataMod.adoq2.fieldbyname('height').AsString ;
  end;

      function Tplace.GetWidth (PLACE_CODE:string):string;
  begin
  DataMod.adoq2.Close;
  DataMod.adoq2.SQL.Clear;
  DataMod.adoq2.SQL.Add('select * from place_info '
  +'where place_code='''+PLACE_CODE+'''');
  DataMod.adoq2.Open;
result:=DataMod.adoq2.fieldbyname('width').AsString ;
  end;

      function Tplace.GetLength (PLACE_CODE:string):string;
  begin
  DataMod.adoq2.Close;
  DataMod.adoq2.SQL.Clear;
  DataMod.adoq2.SQL.Add('select * from place_info '
  +'where place_code='''+PLACE_CODE+'''');
  DataMod.adoq2.Open;
result:=DataMod.adoq2.fieldbyname('length').AsString ;
  end;

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

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

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

  function  Tplace.FindAllPlace(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;





end.