xgrs.pas

来自「集成酒店桑拿食管管理的完整程序」· PAS 代码 · 共 52 行

unit xgrs;

interface

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

type
  TxgrsForm = class(TForm)
    Label1: TLabel;
    rmno: TEdit;
    Label2: TLabel;
    yrs: TEdit;
    xrs: TEdit;
    Label3: TLabel;
    Label4: TLabel;
    yxp: TEdit;
    Label5: TLabel;
    xxp: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Bevel1: TBevel;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  xgrsForm: TxgrsForm;

implementation

{$R *.DFM}

procedure TxgrsForm.BitBtn1Click(Sender: TObject);
begin
  BitBtn1.Tag:=1;
  close;
end;

procedure TxgrsForm.BitBtn2Click(Sender: TObject);
begin
  BitBtn1.Tag:=0;
  close;
end;

end.