basereportdlgproductid.pas

来自「进销存程序设计」· PAS 代码 · 共 52 行

unit BaseReportDlgProductID;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, BaseReportDlgWarehouseID, DB, DBTables, StdCtrls, DBCtrls, Mask,
  Buttons;

type
  TfmBaseReportDlgProductID = class(TfmBaseReportDlgWarehouseID)
    GroupBox3: TGroupBox;
    Label2: TLabel;
    Label3: TLabel;
    sbEndProductID: TSpeedButton;
    sbBeginProductID: TSpeedButton;
    ED3: TDBEdit;
    ED4: TDBEdit;
    ED5: TDBCheckBox;
    DBEdit2: TDBEdit;
    DBEdit4: TDBEdit;
    procedure sbBeginProductIDClick(Sender: TObject);
    procedure sbEndProductIDClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fmBaseReportDlgProductID: TfmBaseReportDlgProductID;

implementation

uses DataModule, BaseSearch;

{$R *.dfm}

procedure TfmBaseReportDlgProductID.sbBeginProductIDClick(Sender: TObject);
begin
  inherited;
  SearchData(ED3, DM.qyProduct);
end;

procedure TfmBaseReportDlgProductID.sbEndProductIDClick(Sender: TObject);
begin
  inherited;
  SearchData(ED4, DM.qyProduct);
end;

end.