Оформил: DeeCo
Автор: http://www.swissdelphicenter.ch

{ 
 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! 
}

 { 
 Diese Unit erstellt eine Datenbank auf einem Interbase - Server zur Laufzeit des Programms. 
 Es wird nicht mehr die IBConsole gebraucht. 
 Dazu kann man im Memo noch ein SQL - Skript ablaufen lassen zum erstellen der Tabellen. 
 Probiert es einfach aus. 
}

 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/ Beschriftung : Create Database 
 procedure Button2Click(Sender: TObject); // Caption/ Beschriftung : SQL-Anweisung 
 procedure Button3Click(Sender: TObject); // Caption/ Beschriftung : Drop Database 
 private
 { Private-Deklarationen }
 public
 { Public-Deklarationen }
 end;

 var
 Form1: TForm1;

 implementation

 {$R *.dfm}

 // Creating the database 
// Hier wird durch drucken des Buttons die Datenbank erstellt 
//--------------------------------------------------------------------- 
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 
// Hier wird durch drucken des Buttons das SQL-Skript im Memo ausgefuhrt 
//---------------------------------------------------------------------- 
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 
// Hier wird durch drucken des Buttons die Datenbank komplette geloscht 
//--------------------------------------------------------------------- 
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.