choosedays.pas

一个典当行的业务管理系统程序

unit ChooseDays;

interface

uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls, 
  Buttons, ExtCtrls;

type
  TfrmChooseDays = class(TForm)
    cmdOk: TButton;
    Bevel1: TBevel;
    Label1: TLabel;
    opt28Day: TRadioButton;
    opt29Day: TRadioButton;
    procedure cmdOkClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmChooseDays: TfrmChooseDays;

implementation

uses GlobalVar;

{$R *.DFM}

procedure TfrmChooseDays.cmdOkClick(Sender: TObject);
begin
     if opt28Day.Checked=True then
     begin
          GlobalVar.RunMonthDays:=28;
     end;
     if opt29Day.Checked=True then
     begin
          GlobalVar.RunMonthDays:=29;
     end;
end;

end.