basechildform.pas

用户名：SYSTEM 密码：空 第一次运行请先恢复数据库 DATABASE 到SQL服务器

unit BaseChildForm;

interface

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

type
  TfBaseChildForm = class(Tfbaseform)
    Bevel1: TBevel;
    Label1: TLabel;
    Image1: TImage;
    btnExit: TBitBtn;
    procedure btnExitClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }

  end;

var
  fBaseChildForm: TfBaseChildForm;

implementation

{$R *.dfm}

procedure TfBaseChildForm.btnExitClick(Sender: TObject);
begin
  inherited;
  Close;
end;

procedure TfBaseChildForm.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  inherited;
  Action:=cafree;
end;

procedure TfBaseChildForm.FormCreate(Sender: TObject);
begin
  inherited;

end;

end.