product_unit.pas

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

unit product_unit;

interface
     uses
  Windows,Messages,SysUtils,Variants,DBclient,Classes,datamodule;
  type
   Tproduct=class(TObject)
   private
    Datamod:TDataMod;
   public
   function CheckProRec(ProID:string):Boolean;
   function FindAllPro(FindSQL:string):OLEVariant;
   function GetProIdList():Tstrings;
   function GetProName(ProID:string):string;
   function GetUnit(ProID:string):string;
   function GetProSize(ProID:string):string;
    function GetProType(ProID:string):string;
   function GetProPrice(ProID:string):string;
   function GetSupplierCode(ProID:string):string;
   function GetOrderNum(ProID:string):string;
   function GetOrderTime(ProID:string):string;
   function GetFitStoreNum(ProID:string):string;
   procedure InsertProRec(InsertSQL:string);
   procedure UpdateProRec(UpdateSQL:string);
   procedure DeleteProRec(DeleteSQL:string);
   constructor create;
   destructor Destroy;override;
  end;
implementation

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

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

  function Tproduct.CheckProRec(ProID:string):Boolean;
  begin
  DataMod.adoq2.Close;
  DataMod.adoq2.SQL.Clear;
  DataMod.adoq2.SQL.Add('select * from pro_info '
  +'where pro_code='''+ProID+'''');
  DataMod.adoq2.Open;
  if  DataMod.adoq2.Eof  then  result:=false
  else result:=true;
  end;

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

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

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

  function  Tproduct.FindAllPro(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 Tproduct.GetProIdList():TStrings;
 var
  idlist:TStrings;
 begin
  idlist:=TStringlist.Create ;
  Datamod.sel_adoq1.Close;
  Datamod.sel_adoq1.SQL.Clear;
  Datamod.sel_adoq1.SQL.Add('select * from pro_info');
  Datamod.sel_adoq1.Open;
  while not Datamod.sel_adoq1.Eof  do
  begin
  idlist.Add(Datamod.sel_adoq1.fieldbyname('pro_code').AsString);
  Datamod.sel_adoq1.Next;
  end;
  result:=idlist;
 end;

  function Tproduct.GetProName(ProId:string):string;
  begin
  DataMod.sel_adoq1.Close;
  DataMod.sel_adoq1.SQL.Clear;
  DataMod.sel_adoq1.SQL.Add('select * from pro_info where pro_code='''+ProId+'''');
  DataMod.sel_adoq1.Open;
  result:=DataMod.sel_adoq1.fieldbyname('pro_name').AsString;
  end;

    function Tproduct.GetUnit(ProId:string):string;
  begin
  DataMod.sel_adoq1.Close;
  DataMod.sel_adoq1.SQL.Clear;
  DataMod.sel_adoq1.SQL.Add('select * from pro_info where pro_code='''+ProId+'''');
  DataMod.sel_adoq1.Open;
  result:=DataMod.sel_adoq1.fieldbyname('unit').AsString;
  end;

    function Tproduct.GetProSize(ProId:string):string;
  begin
  DataMod.sel_adoq1.Close;
  DataMod.sel_adoq1.SQL.Clear;
  DataMod.sel_adoq1.SQL.Add('select * from pro_info where pro_code='''+ProId+'''');
  DataMod.sel_adoq1.Open;
  result:=DataMod.sel_adoq1.fieldbyname('pro_size').AsString;
  end;

      function Tproduct.GetProType(ProId:string):string;
  begin
  DataMod.sel_adoq1.Close;
  DataMod.sel_adoq1.SQL.Clear;
  DataMod.sel_adoq1.SQL.Add('select * from pro_info where pro_code='''+ProId+'''');
  DataMod.sel_adoq1.Open;
  result:=DataMod.sel_adoq1.fieldbyname('pro_type').AsString;
  end;

    function Tproduct.GetProPrice(ProId:string):string;
  begin
  DataMod.sel_adoq1.Close;
  DataMod.sel_adoq1.SQL.Clear;
  DataMod.sel_adoq1.SQL.Add('select * from pro_info where pro_code='''+ProId+'''');
  DataMod.sel_adoq1.Open;
  result:=DataMod.sel_adoq1.fieldbyname('pro_price').AsString;
  end;

    function Tproduct.GetSupplierCode(ProId:string):string;
  begin
  DataMod.sel_adoq1.Close;
  DataMod.sel_adoq1.SQL.Clear;
  DataMod.sel_adoq1.SQL.Add('select * from pro_info where pro_code='''+ProId+'''');
  DataMod.sel_adoq1.Open;
  result:=DataMod.sel_adoq1.fieldbyname('supplier_code').AsString;
  end;

    function Tproduct.GetOrderNum(ProId:string):string;
  begin
  DataMod.sel_adoq1.Close;
  DataMod.sel_adoq1.SQL.Clear;
  DataMod.sel_adoq1.SQL.Add('select * from pro_info where pro_code='''+ProId+'''');
  DataMod.sel_adoq1.Open;
  result:=DataMod.sel_adoq1.fieldbyname('order_num').AsString;
  end;

    function Tproduct.GetOrderTime(ProId:string):string;
  begin
  DataMod.sel_adoq1.Close;
  DataMod.sel_adoq1.SQL.Clear;
  DataMod.sel_adoq1.SQL.Add('select * from pro_info where pro_code='''+ProId+'''');
  DataMod.sel_adoq1.Open;
  result:=DataMod.sel_adoq1.fieldbyname('order_time').AsString;
  end;

    function Tproduct.GetFitStoreNum(ProId:string):string;
  begin
  DataMod.sel_adoq1.Close;
  DataMod.sel_adoq1.SQL.Clear;
  DataMod.sel_adoq1.SQL.Add('select * from pro_info where pro_code='''+ProId+'''');
  DataMod.sel_adoq1.Open;
  result:=DataMod.sel_adoq1.fieldbyname('fit_store_num').AsString;
  end;





end.