inheritedconnectform.pas

Crlab公司用来连接MySQL数据库的控件

unit InheritedConnectForm;

interface

uses

{$IFNDEF LINUX}
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  DBGrids, StdCtrls, ToolWin, ComCtrls, Buttons, Mask,
{$ELSE}
  SysUtils, Types, Classes, QGraphics, QControls, QForms, QDialogs, QStdCtrls,
  QDBCtrls, MyDacClx, QButtons,
{$ENDIF}
  MyConnectForm;

type
  TfmInheritedConnect = class(TMyConnectForm)
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fmInheritedConnect: TfmInheritedConnect;

implementation

{$IFDEF CLR}
{$R *.nfm}
{$ENDIF}
{$IFDEF WIN32}
{$R *.dfm}
{$ENDIF}
{$IFDEF LINUX}
{$R *.xfm}
{$ENDIF}

initialization
  if GetClass('TfmInheritedConnect') = nil then
    Classes.RegisterClass(TfmInheritedConnect);
end.