in120select.pas

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

unit IN120Select;

interface

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

type
  TfmIN120Select = class(TfmBaseDialog)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    ED1: TDBEdit;
    ED2: TDBEdit;
    sbBeginPurchaseDate: TSpeedButton;
    sbEndPurchaseDate: TSpeedButton;
    procedure bnOKClick(Sender: TObject);
    procedure bnCancelClick(Sender: TObject);
    procedure sbBeginPurchaseDateClick(Sender: TObject);
    procedure sbEndPurchaseDateClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fmIN120Select: TfmIN120Select;

implementation

uses DataModule, BaseSearch, ChinaCalendar, IN120;

{$R *.DFM}

procedure TfmIN120Select.bnOKClick(Sender: TObject);
begin
  inherited;
  fmIN120.AStartPeriodDate := DM.tbInput.FieldByName('BeginDate').AsString;
  fmIN120.AEndPeriodDate := DM.tbInput.FieldByName('EndDate').AsString;
  fmIN120.ReData := True;
end;

procedure TfmIN120Select.bnCancelClick(Sender: TObject);
begin
  inherited;
  fmIN120.ReData := False;
end;

procedure TfmIN120Select.sbBeginPurchaseDateClick(Sender: TObject);
begin
  inherited;
  MyCalendar(ED1);
end;

procedure TfmIN120Select.sbEndPurchaseDateClick(Sender: TObject);
begin
  inherited;
  MyCalendar(ED2);
end;

end.