materialsearchdmunit.pas

仓库管理系统 貌似是ACCESS的数据库

unit MaterialSearchDMUnit;

interface

uses
  SysUtils, Classes, DB, DBClient, SimpleDS;

type
  TDMMaterial = class(TDataModule)
    sdsMaterialPrice: TSimpleDataSet;
    sdsWHPrice: TSimpleDataSet;
    dsMaterialPrice: TDataSource;
    dsWHPrice: TDataSource;
  private
    strSQL: string;
  public
{ 根据物品类别和拼音简码定位物品}
    procedure OfferMaterialPriceBySpell(ASpell:string);
{ 返回当前条记录内容}
    procedure ReturnMaterialPrice(var AMaterialName, AMaterialID, AMaterialSpell,AMaterialModel,AMaterialSpecs,
                                 AMaterialType,AMaterialUnit, AMaterialPrice: string);
  end;

var
  DMMaterial: TDMMaterial;

implementation

uses DM_Unit;

{$R *.dfm}

{ TDMMaterial }

procedure TDMMaterial.OfferMaterialPriceBySpell(ASpell: string);
begin
   strSQL := 'select MaterialID, MaterialName,  MaterialSpell,MaterialModel, MaterialSpecs,MaterialType ,'+
              'MaterialUnit,MaterialPrice  from WMS_MaterialInfo where '+
              'MaterialSpell like '''+Aspell+'%'' order by MaterialName';
  with sdsMaterialPrice do
  begin
    Close;
    Dataset.CommandText := strSQL;
    Open;
    FieldByName('MaterialName').displaywidth:=26;
    FieldByName('MaterialModel').displaywidth:=20;
    FieldByName('MaterialSpecs').displaywidth:=14;
    FieldByName('MaterialUnit').displaywidth:=4;
    FieldByName('MaterialType').displaywidth:=8;
    FieldByName('MaterialPrice').displaywidth:=8;
    FieldByName('MaterialSpell').displaywidth:=8;
  end;
end;

procedure TDMMaterial.ReturnMaterialPrice(var AMaterialName, AMaterialID,
  AMaterialSpell, AMaterialModel, AMaterialSpecs, AMaterialType,
  AMaterialUnit, AMaterialPrice: string);
begin
  with sdsMaterialPrice do
  begin
    AMaterialName:=FieldByName('MaterialName').AsString;
    AMaterialID:=FieldByName('MaterialID').AsString;
    AMaterialSpell:=FieldByName('MaterialSpell').AsString;
    AMaterialModel:=FieldByName('MaterialModel').AsString;
    AMaterialSpecs:=FieldByName('MaterialSpecs').AsString;
    AMaterialType:=FieldByName('MaterialType').AsString;
    AMaterialUnit:=FieldByName('MaterialUnit').AsString;
    AMaterialPrice:=FieldByName('MaterialPrice').AsString;
  end;
end;

end.