Delphi World - это проект, являющийся сборником статей и малодокументированных возможностей  по программированию в среде Delphi. Здесь вы найдёте работы по следующим категориям: delphi, delfi, borland, bds, дельфи, делфи, дэльфи, дэлфи, programming, example, программирование, исходные коды, code, исходники, source, sources, сорцы, сорсы, soft, programs, программы, and, how, delphiworld, базы данных, графика, игры, интернет, сети, компоненты, классы, мультимедиа, ос, железо, программа, интерфейс, рабочий стол, синтаксис, технологии, файловая система...
Программное создание и удаление базы данных Interbase, а так же выполнение SQL-скриптов

Оформил: 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.
Проект Delphi World © Выпуск 2002 - 2024
Автор проекта: USU Software
Вы можете выкупить этот проект.