?? materialsearchdmunit.pas
字號:
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.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -