cf2frm.pas

来自「《Delphi开发人员指南》配书原码」· PAS 代码 · 共 49 行

unit CF2Frm;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics,
  Controls, Forms, Dialogs, ChildFrm, Grids, DBGrids, Db, DBTables;

type
  TCF2Form = class(TChildForm)
    tblCustomer: TTable;
    dtsrcCustomer: TDataSource;
    dbgrdCustomer: TDBGrid;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    function GetCaption: String; override;
  end;

var
  CF2Form: TCF2Form;

implementation

{$R *.DFM}

{ TCF2Form }

function TCF2Form.GetCaption: String;
begin
  Result := Caption;
end;

procedure TCF2Form.FormCreate(Sender: TObject);
begin
  tblCustomer.Active := True;
end;

initialization

  RegisterClass(TCF2Form);

finalization

  UnRegisterClass(TCF2Form);

end.