materialinfosearchunit.pas

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

unit MaterialInfoSearchUnit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, DBGrids, StdCtrls, Buttons;

type
  TfrmMaterialSearch = class(TForm)
    GroupBox2: TGroupBox;
    Label1: TLabel;
    LabDurgCount: TLabel;
    EdtSpell: TEdit;
    Okbtn: TBitBtn;
    DBGDurglist: TDBGrid;
    CloseBtn: TBitBtn;
    procedure FormShow(Sender: TObject);
    procedure EdtSpellChange(Sender: TObject);
    procedure EdtSpellKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure EdtSpellKeyPress(Sender: TObject; var Key: Char);
    procedure OkbtnClick(Sender: TObject);
    procedure FormCanResize(Sender: TObject; var NewWidth,
      NewHeight: Integer; var Resize: Boolean);
  private
    MaterialID:string;  //物品编号
    MaterialName:string; // 物品名称
    MaterialSpell:string;//拼音简码
    MaterialModel:string;//型号
    MaterialSpecs:string;//规格
    MaterialType:string; //类型
    MaterialUnit:string; //单位
    MaterialPrice:string;//价格
  public
    procedure GetMaterialInfo(var AMaterialName, AMaterialID, AMaterialSpell,AMaterialModel,AMaterialSpecs,
                                 AMaterialType,AMaterialUnit, AMaterialPrice: string);
  { showmodal,返回选中信息}
  end;

var
  frmMaterialSearch: TfrmMaterialSearch;

implementation

uses MaterialSearchDMUnit;

{$R *.dfm}

procedure TfrmMaterialSearch.FormShow(Sender: TObject);
begin
  Edtspell.Text:='';
  EdtSpell.SetFocus;
  DMMaterial.OfferMaterialPriceBySpell(EdtSpell.text);
  DBGDurglist.DataSource:=DMMaterial.dsMaterialPrice;
  LabDurgCount.Caption:='[物品数量：'+inttostr(DMMaterial.sdsMaterialPrice.RecordCount)+']';
end;

procedure TfrmMaterialSearch.EdtSpellChange(Sender: TObject);
begin
  DMMaterial.OfferMaterialPriceBySpell(EdtSpell.text);
  LabDurgCount.Caption:='[物品数量：'+inttostr(DMMaterial.sdsMaterialPrice.RecordCount)+']';
end;

procedure TfrmMaterialSearch.EdtSpellKeyDown(Sender: TObject;
  var Key: Word; Shift: TShiftState);
begin
  if key=VK_UP then
  begin
    if not DMMaterial.sdsMaterialPrice.Bof then
    begin
      DBGDurgList.SetFocus;
      DMMaterial.sdsMaterialPrice.Prior;
    end;
  end;

  if key=VK_DOWN then
  begin
    if not DMMaterial.sdsMaterialPrice.Eof then
    begin
      DBGDurgList.SetFocus;
      DMMaterial.sdsMaterialPrice.Next;
    end;
  end;
end;

procedure TfrmMaterialSearch.EdtSpellKeyPress(Sender: TObject;
  var Key: Char);
begin
  if key=#13 then
  begin
    DMMaterial.ReturnMaterialPrice(MaterialName, MaterialID, MaterialSpell,MaterialModel,MaterialSpecs,
                                 MaterialType,MaterialUnit, MaterialPrice);
    close;
  end;
end;

procedure TfrmMaterialSearch.OkbtnClick(Sender: TObject);
begin
  DMMaterial.ReturnMaterialPrice(MaterialName, MaterialID, MaterialSpell,MaterialModel,MaterialSpecs,
                                 MaterialType,MaterialUnit, MaterialPrice);
    close;
end;

procedure TfrmMaterialSearch.FormCanResize(Sender: TObject; var NewWidth,
  NewHeight: Integer; var Resize: Boolean);
begin
  Resize:=false;
end;

procedure TfrmMaterialSearch.GetMaterialInfo(var AMaterialName,
  AMaterialID, AMaterialSpell, AMaterialModel, AMaterialSpecs,
  AMaterialType, AMaterialUnit, AMaterialPrice: string);
begin
  showmodal;
  AMaterialName := MaterialName;
  AMaterialID := MaterialID;
  AMaterialSpell := MaterialSpell;
  AMaterialModel := MaterialModel;
  AMaterialSpecs := MaterialSpecs;
  AMaterialType := MaterialType;
  AMaterialUnit := MaterialUnit;
  AMaterialPrice := MaterialPrice;
end;

end.