pz_rqxz.~pas

亚惠快餐管理信息系统 包括亚惠快餐管理的各项功能

unit PZ_RqXz;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls, Grids, dbctrls;

type
  TFrmPZ_RqXz = class(TForm)
    GroupBox1: TGroupBox;
    MonthCalendar1: TMonthCalendar;
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

procedure SetWork(var Rq: TDate);

implementation

uses PZ_Sjpz;

{$R *.dfm}

procedure SetWork(var Rq: TDate);
var
  FrmPZ_RqXz: TFrmPZ_RqXz;
begin
  Application.CreateForm(TFrmPZ_RqXz, FrmPZ_RqXz);
  with FrmPZ_RqXz do
  begin
    if ShowModal = mrOk then
      Rq := MonthCalendar1.Date;
    Free;
  end;
end;

procedure TFrmPZ_RqXz.Button1Click(Sender: TObject);
begin
  ModalResult := mrOk;
end;

procedure TFrmPZ_RqXz.Button2Click(Sender: TObject);
begin
  Close;
end;

procedure TFrmPZ_RqXz.FormShow(Sender: TObject);
begin
  MonthCalendar1.Date := Date;
end;

end.