(Moderator)
Registriert seit: 9. Dez 2005
Ort: Heilbronn
39.852 Beiträge
Delphi 11 Alexandria
|
Re: nach commit ist alles weg
24. Mai 2009, 13:09
SQL-Code:
SET NAMES ISO8859_1;
create database 'D:\Platte-E\Projekte\fire\Daten\daten.fdb'
user 'SYSDBA' password 'masterkey'
page_size 4096
default character set iso8859_1;
CREATE DOMAIN "TSTR25" AS VARCHAR(25) COLLATE DE_DE;
CREATE DOMAIN "TSTR50" AS VARCHAR(30) COLLATE DE_DE;
CREATE DOMAIN "TMEMO" AS VARCHAR(2000) COLLATE DE_DE;
CREATE TABLE "KUNDEN"
(
ID INTEGER NOT NULL,
anrede TSTR25,
vorname TSTR50,
name TSTR50,
land TSTR50,
plz TSTR25,
ort TSTR50,
strasse TSTR50,
tel TSTR50,
fax TSTR50,
mail TSTR50,
knr TSTR25
);
SET TERM ^ ;
CREATE TRIGGER trgTKUNDEN_BI_V3 for TKUNDEN
active before insert position 0
as
begin
if ((new.id is null) or (new.id = 0)) then
begin
new.id = gen_id( gidKUNDEN, 1 );
end
end ^
SET TERM ; ^
Markus Kinzler
|
|
Zitat
|