sslmydacdemoform.pas

来自「Crlab公司用来连接MySQL数据库的控件」· PAS 代码 · 共 67 行

{$I ..\Base\SBDemo.inc}

unit SSLMyDacDemoForm;

interface

uses
  SysUtils, Classes, DB,
{$IFDEF CLR}
  System.ComponentModel,
{$ENDIF}
{$IFNDEF LINUX}
  Windows, Messages, Graphics, Controls, Forms, MyDacVcl,
  Dialogs, Menus, ImgList, StdCtrls, ComCtrls, Buttons, ExtCtrls,
{$ELSE}
  QMenus, QTypes, QImgList, QStdCtrls, QControls, QGraphics,
  QComCtrls, QButtons, QExtCtrls, MyDacClx, QDialogs,
{$ENDIF}
  DBAccess,  MyAccess, DemoForm, DemoBase;

type
  TSSLMyDacForm = class(TDemoForm)
  private
    { Private declarations }
  protected
    //Product customization
    function ApplicationTitle: string; override;
    procedure RegisterDemos; override;
  public
    function ProductColor: TColor; override;
  end;

var
  SSLMyDacForm: TSSLMyDacForm;

implementation

uses
  VirtualTable, SSL_Client;

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

function TSSLMyDacForm.ProductColor: TColor;
begin
  Result := $0000BBFF;
end;

function TSSLMyDacForm.ApplicationTitle: string;
begin
  Result := 'SecureBridge demo';
end;

procedure TSSLMyDacForm.RegisterDemos;
begin
  Demos.RegisterDemo('SSL_Client', 'MySSLIOHandler', 'SSL_Client', '', TSSLClientFrame, 3);
end;

end.