{

 This unit creates a database on a Interbase-Server at run-time.

 The IBConsole is no longer needed.

 You can execute an SQL script to create tables.

 Try it out!

}



unit Unit1;

interface

uses

 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

 Dialogs, StdCtrls, ZTransact, ZIbSqlTr, DB, ZQuery, ZIbSqlQuery,

 ZConnect, ZIbSqlCon;

type

 TForm1 = class(TForm)

  Button1: TButton;

  Memo1: TMemo;

  Button2: TButton;

  ZIbSqlQuery1: TZIbSqlQuery;

  ZIbSqlTransact1: TZIbSqlTransact;

  ZIbSqlDatabase1: TZIbSqlDatabase;

  Button3: TButton;

  procedure Button1Click(Sender: TObject); // Caption/

  procedure Button2Click(Sender: TObject); // Caption/

  procedure Button3Click(Sender: TObject); // Caption/

 private

 public

 end;

var

 Form1: TForm1;

implementation

{$R *.dfm}

// Creating the database

procedure TForm1.Button1Click(Sender: TObject);

begin

 ZIbSqlDatabase1.Database := '<<Pfad zu Datenbank>>';// Path to Database

 ZIbSqlDatabase1.Host := 'testserver';

 ZIbSqlDatabase1.Password := 'masterkey';

 ZIbSqlDatabase1.Login := 'SYSDBA';

 ZIbSqlDatabase1.CreateDatabase('');

end;

// Execute the SQL-Script in the memo

procedure TForm1.Button2Click(Sender: TObject);

begin

 ZIbSqlDatabase1.Database := '<<Pfad zu Datenbank>>'; // Path to Database

 ZIbSqlDatabase1.Host := 'testserver';

 ZIbSqlDatabase1.Password := 'masterkey';

 ZIbSqlDatabase1.Login := 'SYSDBA';

 ZIbSqlQuery1.SQL.Clear;

 ZIbSqlQuery1.SQL.AddStrings(memo1.Lines);

 ZIbSqlQuery1.ExecSQL;

end;

// Deleted the database

procedure TForm1.Button3Click(Sender: TObject);

begin

 ZIbSqlDatabase1.Database := '<<Pfad zu Datenbank>>'; // Path to Database

 ZIbSqlDatabase1.Host := 'testserver';

 ZIbSqlDatabase1.Password := 'masterkey';

 ZIbSqlDatabase1.Login := 'SYSDBA';

 ZIbSqlDatabase1.DropDatabase;

end;

end.