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);
// Beschriftung : Create Database
procedure Button2Click(Sender: TObject);
// Beschriftung : SQL-Anweisung
procedure Button3Click(Sender: TObject);
// Beschriftung : Drop Database
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
// Hier wird durch drücken des Buttons die Datenbank erstellt
//---------------------------------------------------------------------
procedure TForm1.Button1Click(Sender: TObject);
begin
ZIbSqlDatabase1.Database := '
<<Pfad zu Datenbank>>';
ZIbSqlDatabase1.Host := '
testserver';
ZIbSqlDatabase1.Password := '
masterkey';
ZIbSqlDatabase1.Login := '
SYSDBA';
ZIbSqlDatabase1.CreateDatabase('
');
end;
// Hier wird durch drücken des Buttons das SQL-Skript im Memo ausgeführt
//----------------------------------------------------------------------
procedure TForm1.Button2Click(Sender: TObject);
begin
ZIbSqlDatabase1.Database := '
<<Pfad zu Datenbank>>';
ZIbSqlDatabase1.Host := '
testserver';
ZIbSqlDatabase1.Password := '
masterkey';
ZIbSqlDatabase1.Login := '
SYSDBA';
ZIbSqlQuery1.SQL.Clear;
ZIbSqlQuery1.SQL.AddStrings(memo1.Lines);
ZIbSqlQuery1.ExecSQL;
end;
// Hier wird durch drücken des Buttons die Datenbank komplette gelöscht
//---------------------------------------------------------------------
procedure TForm1.Button3Click(Sender: TObject);
begin
ZIbSqlDatabase1.Database := '
<<Pfad zu Datenbank>>';
ZIbSqlDatabase1.Host := '
testserver';
ZIbSqlDatabase1.Password := '
masterkey';
ZIbSqlDatabase1.Login := '
SYSDBA';
ZIbSqlDatabase1.DropDatabase;
end;
end.