sy240.~pas

一套融入了系统营销管理思想的管理软件产品

unit SY240;

interface

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

type
  TfmSY240 = class(TfmBaseDialog)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    ED1: TDBEdit;
    ED2: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    sbBeginProgramID: TSpeedButton;
    sbEndProgramID: TSpeedButton;
    ED3: TDBCheckBox;
    procedure sbBeginProgramIDClick(Sender: TObject);
    procedure sbEndProgramIDClick(Sender: TObject);
    procedure bnOKClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fmSY240: TfmSY240;

implementation

uses DataModule, BaseSearch, SY240Report;

{$R *.dfm}

procedure TfmSY240.sbBeginProgramIDClick(Sender: TObject);
begin
  inherited;
  SearchData(ED1, DM.qyProgram);
end;

procedure TfmSY240.sbEndProgramIDClick(Sender: TObject);
begin
  inherited;
  SearchData(ED2, DM.qyProgram);
end;

procedure TfmSY240.bnOKClick(Sender: TObject);
begin
  inherited;
  qrSY240.Preview;
end;

end.