paymodeedfrm.~pas

群星医药系统源码

unit PayModeEdFrm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, RzButton, RzDBEdit, StdCtrls, Mask, DBCtrls, RzLabel, RzBorder,
  ExtCtrls, RzPanel, RzEdit, ceGlobal;

type
  TFmPayModeEdit = class(TForm)
    RzLabel1: TRzLabel;
    RzLabel2: TRzLabel;
    RzLabel3: TRzLabel;
    RzLabel4: TRzLabel;
    RzLabel5: TRzLabel;
    RzDBEdit1: TRzDBEdit;
    RzDBEdit2: TRzDBEdit;
    RzDBNumericEdit1: TRzDBNumericEdit;
    RzDBEdit3: TRzDBMemo;
    RzPanel1: TRzPanel;
    RzBitBtn4: TRzBitBtn;
    RzBitBtn5: TRzBitBtn;
    procedure RzBitBtn4Click(Sender: TObject);
    procedure RzBitBtn5Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FmPayModeEdit: TFmPayModeEdit;

implementation

{$R *.dfm}

procedure TFmPayModeEdit.RzBitBtn4Click(Sender: TObject);
begin
  close;
end;

procedure TFmPayModeEdit.RzBitBtn5Click(Sender: TObject);
begin
  ModalResult:=mrOk;
end;

procedure TFmPayModeEdit.FormCreate(Sender: TObject);
begin
  Color := FormBackColor;
end;

end.