sshmydacdemoform.pas

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

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

unit SSHMyDacDemoForm;

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
  TSSHMyDacForm = class(TDemoForm)
  private
    { Private declarations }
  protected
    //Product customization
    function ApplicationTitle: string; override;
    procedure RegisterDemos; override;
  public
    function ProductColor: TColor; override;
  end;

var
  SSHMyDacForm: TSSHMyDacForm;

implementation

uses
  VirtualTable, SSH_Client;

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

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

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

procedure TSSHMyDacForm.RegisterDemos;
begin
  Demos.RegisterDemo('SSH_Client', 'MySSHIOHandler', 'SSH_Client', '', TSSHClientFrame, 3);
end;

end.