Firebird veritabanını kullanan projemizin veritabanınıda setup dosyamıza dahil ettiğimizde extradan 700-800 kb'lik bir dosya boyutumuz oluyor. Bu veritabanını neden setup dosyamıza dahil ediyoruzki, kullanıcının bilgisayarında veritabanımızın *.sql dosyasını IBScript yardımıyla firebird servera execute edip kullanıma sunabiliriz. Interbase IBScript bu iş için ideal.
Benim kullandığım basit bir modül var
Programın Unit dosyası
Kod: Tümünü seç
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, IBDatabase, DB, IBScript;
type
TForm1 = class(TForm)
Bevel1: TBevel;
Button1: TButton;
Button2: TButton;
Memo1: TMemo;
Panel1: TPanel;
Label1: TLabel;
Label2: TLabel;
Image1: TImage;
IBScript1: TIBScript;
IBDatabase1: TIBDatabase;
IBTransaction1: TIBTransaction;
procedure FormShow(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure IBScript1Parse(Sender: TObject; AKind: TIBParseKind; SQLText: string);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
ADB_Path, ADBSql_Path: string;
procedure CreateFirst_DB;
public
{ Public declarations }
end;
var
Form1: TForm1;
FBPassword: string = 'masterkey';
implementation
{$R *.dfm}
{-------------------------------------------------------------------------------
-------------------------------------------------------------------------------}
procedure TForm1.Button1Click(Sender: TObject);
begin
CreateFirst_DB;
end;
{-------------------------------------------------------------------------------
-------------------------------------------------------------------------------}
procedure TForm1.Button2Click(Sender: TObject);
begin
Close;
end;
{-------------------------------------------------------------------------------
-------------------------------------------------------------------------------}
procedure TForm1.FormShow(Sender: TObject);
begin
ADB_Path := ExtractFilePath(Application.ExeName) + 'TEST.FDB';
ADBSql_Path := ExtractFilePath(Application.ExeName) + 'TEST.SQL';
if not FileExists(ADBSql_Path) then begin
Memo1.Lines.Clear;
Memo1.Lines.Add(ADBSql_Path);
Memo1.Lines.Add('');
Memo1.Lines.Add('SQL dosyası bulunamıyor!!!');
Button1.Enabled := False;
end else if FileExists(ADB_Path) then begin
Memo1.Lines.Clear;
Memo1.Lines.Add(ADB_Path);
Memo1.Lines.Add('');
Memo1.Lines.Add('Sistem optimizasyonu yapılmış!');
Button1.Enabled := False;
end;
end;
{-------------------------------------------------------------------------------
-------------------------------------------------------------------------------}
procedure TForm1.IBScript1Parse(Sender: TObject; AKind: TIBParseKind; SQLText: string);
begin
if pos('SET TERM ^ ;', SQLText) > 0 then
Memo1.Lines.Add('Stored procedure ve Triggerlar oluşturuluyor..')
else if pos('CREATE GENERATOR ', SQLText) > 0 then
Memo1.Lines.Add('Generatörler oluşturuluyor..')
else if pos('ALTER TABLE ', SQLText) > 0 then
Memo1.Lines.Add('Tablolar ayarlanıyor..')
else if pos('CREATE TABLE ', SQLText) > 0 then
Memo1.Lines.Add('Tablolar oluşturuluyor..')
else if pos('CREATE UNIQUE ', SQLText) > 0 then
Memo1.Lines.Add('Unique indexler oluşturuluyor..');
end;
{-------------------------------------------------------------------------------
-------------------------------------------------------------------------------}
procedure TForm1.CreateFirst_DB;
var
a: string;
begin
if not FileExists(ADBSql_Path) then begin
Memo1.Lines.Clear;
Memo1.Lines.Add(ADBSql_Path);
Memo1.Lines.Add('');
Memo1.Lines.Add('SQL dosyası bulunamıyor!!!');
Button1.Enabled := False;
exit;
end;
try
Memo1.Clear;
with IBDatabase1 do
if not FileExists(ADB_Path) then begin
Memo1.Lines.Add('Program Veritabanı oluşturuluyor...');
Memo1.Lines.Add(ADB_Path);
Memo1.Lines.Add('');
Application.ProcessMessages;
Connected := False;
DatabaseName := ADB_Path;
Params.Clear;
Params.Add('USER ''SYSDBA''');
Params.Add('PASSWORD ''' + FbPassword + '''');
Params.Add('PAGE_SIZE 4096');
Params.Add('DEFAULT CHARACTER SET WIN1254');
SQLDialect := 3;
LoginPrompt := False;
CreateDatabase;
Button1.Enabled := False;
//--------------------------------------
Memo1.Lines.Add('Veritabanına bağlanılıyor');
Application.ProcessMessages;
Connected := False;
DefaultTransaction.Active := False;
Params.Clear;
Params.Add('user_name=SYSDBA');
Params.Add('password=' + FbPassword);
Params.Add('lc_ctype=WIN1254');
LoginPrompt := False;
connected := True;
DefaultTransaction.Active := True;
//--------------------------------------
IBScript1.Script.Clear;
IBScript1.Script.LoadFromFile(ADBSql_Path);
IBScript1.ExecuteScript;
Memo1.Lines.Add('');
Memo1.Lines.Add('');
Memo1.Lines.Add('Veritabanı oluşturma işlemi başarıyla tamamlandı.');
Application.ProcessMessages;
Button1.Enabled := False;
MessageDlg('Veritabanı başarıyla oluşturuldu.', mtInformation, [mbOK], 0);
Button2.Click;
exit;
end;
except
On E: Exception do begin
Memo1.Lines.Add('');
Memo1.Lines.Add('===========================');
Memo1.Lines.Add('Hata!');
Application.ProcessMessages;
a := 'Your user name and password are not defined. Ask your database administrator to set up a Firebird login';
if pos(a, E.Message) > 0 then begin
a := 'Yanlış kullanıcı adı veya parola!!!' + #13#10#13#10 + 'Kullanıcı Adı : SYSDBA' + #13#10 +
'Parola ' + #9 + ': masterkey' +
#13#10#13#10 +
'Eğer Interbase veya FireBird veritabanı motorunu kullanan başka bir programı' +
#13#10 + 'kullanıyorsanız ve yetkili şifresini değiştirmişseniz Programın yetkili şifresi,' + #13#10 + 'diğer programa en son verdiğiniz şifredir.';
MessageDlg(PChar(a), mtWarning, [mbOK], 0);
if InputQuery('Yetkili Şifresi', 'Firebird Admin Şifrenizi Girin : ', FbPassword) then
CreateFirst_Db;
end else
MessageDlg(PChar(E.Message), mtError, [mbOK], 0);
end;
end;
end;
{-------------------------------------------------------------------------------
-------------------------------------------------------------------------------}
end.
Kod: Tümünü seç
object Form1: TForm1
Left = 0
Top = 0
BorderStyle = bsDialog
Caption = #304'lk '#199'al'#305#351't'#305'r'#305'l'#305#351' Ayarlar'#305
ClientHeight = 280
ClientWidth = 398
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
OldCreateOrder = False
Position = poScreenCenter
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
object Bevel1: TBevel
Left = 8
Top = 236
Width = 382
Height = 36
Shape = bsTopLine
end
object Button1: TButton
Left = 229
Top = 244
Width = 75
Height = 25
Caption = 'Tamam'
TabOrder = 0
OnClick = Button1Click
end
object Button2: TButton
Left = 310
Top = 244
Width = 75
Height = 25
Caption = 'Kapat'
TabOrder = 1
OnClick = Button2Click
end
object Memo1: TMemo
Left = 8
Top = 64
Width = 382
Height = 166
Lines.Strings = (
'Program'#305'n'#305'z'#305'n ilk '#231'al'#305#351't'#305'r'#305'l'#305#351' i'#231'in veritaban'#305' ayarlar'#305'n'#305'n yap'#305'l' +
'mas'#305' gerekiyor.'
''
#304#351'lemin ba'#351'lamas'#305' i'#231'in l'#252'tfen "Tamam" butonuna t'#305'klay'#305'n...')
ReadOnly = True
TabOrder = 2
end
object Panel1: TPanel
Left = 0
Top = 0
Width = 398
Height = 57
Align = alTop
Color = clWhite
ParentBackground = False
TabOrder = 3
object Label1: TLabel
Left = 24
Top = 8
Width = 208
Height = 23
Caption = #304'lk '#199'al'#305#351't'#305'r'#305'l'#305#351' Ayarlar'#305
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -19
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentFont = False
end
object Label2: TLabel
Left = 40
Top = 34
Width = 257
Height = 13
Caption = 'Program ilk '#231'al'#305#351't'#305'r'#305'l'#305#351' i'#231'in sisteminize optimize ayarlar'#305'..'
end
object Image1: TImage
Left = 337
Top = 4
Width = 48
Height = 48
Picture.Data = {
055449636F6E0000010001003030000001002000A82500001600000028000000
3000000060000000010020000000000080250000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000020000000800000002000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000300000014
0000002C00000036000000360000002E00000019000000070000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
00000000000000070B0F0C3E0000005900000048000000300000001D0000000E
0000000500000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000070301213B2D2469816855ADBF9F85D9
DABDA1F0DFCAB0F3DDC5A7F2C8AB91E6947A65C94A392F990F08055E00000025
0000000500000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000001
000000151B3E287182D69FF376B489E6588868CD2F4B38AB0E15108500000067
0000004F00000038000000220000001100000006000000010000000000000000
00000000000000000402001C765D4D95E2BA9DECFFE4C3FFFFEFCEFFFFF4D7FE
FFF7DFFEFFFBE6FEFFFFE9FEFFFFE4FEFFFFDFFFFFFDD8FFEFD9BCF8987C69D0
140C077500000024000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000A07140C45
3F8F5BC15ECD88FF7BD499FE91DFA9FF91E0AAFF92E2ACFF94E5ADFF89D4A0F4
5F946FD940644BBB1D2E239A050806770000005B000000440000002C00000019
0000000B54403369EAC0A2F1FFDCBCFFFFE4C8FFFFE9CDFFFDEDD3FDFFF1D8FF
FFF4DFFFFFF6E4FFFDFCE4FDFFFFE0FFFFFFD8FFFDFED2FDFFFFD0FFFFFFDAFF
FDE7CBFD79614FC200000054B0B1B10600000000000000000000000000000000
0000000000000000000000000000000000000004010402251A54278947BC69F2
56C97EFF5BC684FE7AD499FD8DDDA6FF8DDDA5FF8DDDA5FD8DDDA6FF8DDDA6FE
8FE0A8FF90E2A9FF8FE1A9FE85D09CF670AF84E34A7458C6294030A3080E0A84
7F6554B7FACEB0FFFCD4B9FFFEDDC2FDFFE4C8FFFFE9CDFFFDECD1FDFFF0D6FF
FFF2DCFFFFF5E1FFFDF8E0FDFFFEDAFFFFFFD2FFFDFDCCFDFFFFCDFFFFFFCEFF
FEFFD4FEFFFCDCFFBB9E89E2080200675757580B000000000000000000000000
00000000000000000000000000000000093D0F40229737D23BC25AFF49C26CFE
55C67BFD5BC684FE79D398FE8BDCA5FD8BDCA5FD8BDBA5FE8BDCA5FD8BDCA5FE
8BDCA5FD8BDBA5FD8BDCA5FE8BDCA5FE8CDEA6FE8DE0A8FF8ADFA7FFBFC29CFE
EFC4A9FFF4CDB2FEFDD6BCFDFEDDC1FEFDE2C5FDFDE7C9FDFEEACBFEFDEDD2FD
FDEED8FDFDF2DCFDFEF5DAFEFDFCD1FDFDFEC8FDFEFEC5FEFDFDC4FDFDFDC9FD
FEFECDFEFEFED1FDFFFFDDFFC9AA94E906010066B0B1B1050000000000000000
000000000000000000000000000000001CC233FF2ABB44FF39BE56FD48C26BFF
54C57BFF5BC684FD77D397FD89DBA4FF89DAA4FF89DCA4FD89DAA4FF89DAA2FD
89DAA2FF89DCA4FF89DAA2FD89DAA4FF89DBA4FF86DCA4FDB0C398FFE5BA9FFF
EBC4AAFDF7CFB3FFFED5B9FFFDD9BDFDFFE0BFFFFFE4C4FFFDE7C8FDFFEACCFF
FFECD3FFFFEDD5FFFDF1D1FDFFF8C7FFFFFEBDFFFDFDB8FDFFFFBAFFFFFFBEFF
FDFDC3FDFFFFCAFFFFFFCDFFFFFFDBFFB79B86E1000000500000000000000000
000000000000000000000000000000001BBD31FF28BA43FF38BE55FD47C26AFF
53C57AFF5BC683FD76D295FF86DCA3FF87DBA2FF87DBA2FD87DBA1FF87DBA2FD
87DBA2FF87DBA1FF87DBA2FD87DBA1FF86DBA1FF90CA98FDE3B89DFFE0B89DFF
EEC4A9FDF8CDAFFFFED2B3FFFDD7B7FDFFDDBBFFFFE1BEFFFEE4C1FDFFE7C7FF
FEE9CDFFFEEBCEFFFEEFC8FDFEF5BBFFFFFBB2FFFDFEAEFDFFFFAFFFFFFFB4FF
FDFDBAFDFFFFC1FFFFFFC9FFFEFECFFDFFFCD8FF6E5546BD3435361F00000000
000000000000000000000000000000001ABD30FF27BA40FD36BE55FE47C269FD
53C579FD5AC784FE7AC486FD979A6BFD81D19AFD83DCA1FE83DAA1FD83DAA0FE
83DAA0FD83DAA1FD83DCA1FE85DDA1FD5AB8B0FDBFB2A2FED3A98DFDE3B99EFD
EEC2A4FEF8C9A9FDFECFADFDFED2B1FEFDD9B5FDFEDDB6FDFCE2C2FEF7DECCFD
F6CBC2FDF6BFBCFDF7BFB3FEF9D6B1FDFDF2ADFDFEFEA2FEFEFEA5FDFDFDABFD
FEFEB3FEFDFDBBFDFDFDC3FDFEFECDFEFEFFD6FEF9E2C3FC0200006CC1C1C103
0000000000000000000000000000000019BD2FFF26BA41FF35BC53FD46C268FF
52C578FF5AC684FD74CC8EFFC79239FFC39368FF94AA80FD82C48FFF80D39AFD
7FD69CFF82CB95FF929D6EFD8AB07BFF70B0B3FFD9AA8EFDD6AC8FFFE3B699FF
EDBC9EFDF7C4A3FFFECAA5FFFECFA9FDFED5AEFFF6D9BEFFF2C0A6FDF2AA8DFF
F3A08DFFF4958AFFF6917CFDF79A6BFFF6B76BFFF7E591FDFDFC9FFFFFFEA4FF
FDFDAEFDFFFFBAFFFFFFC4FFFDFDD0FDFFFFDBFFFFFFE2FF876C5AC93537361F
0000000000000000000000000000000019BD2EFF25B83EFF34BD53FD45C067FF
52C577FF5AC682FD6FD295FFAF9D49FFDAA266FFEEC8A0FDD5AE86FFBC986CFD
B38E59FFB77D47FFAF6133FD907D54FFBEC29DFFC79A7DFDD7AA8CFFE2B293FF
EAB996FDF5C09CFFFDC5A0FFFEC9A2FDF4D2B9FFF0B48CFFF0AD86FDF2A686FF
F5987EFFF79075FFF58F69FDF6A25EFFF5B957FFF2CC52FDF1E684FFFCFDA8FF
FEFEB1FDFFFFBFFFFFFFCCFFFDFDD8FDFFFFE3FFFFFFEEFFE4CCADF30D0A0853
0000000000000000000000000000000018BC2EFF24B93DFF33BD52FD44C166FF
51C577FF59C682FD6ED393FF9BAC60FFD49853FFE6C094FDE8C192FFDFAD70FD
D69C4CFFC5843BFFB26735FD99623EFFD0B092FFC59879FDD5A686FFE0AD8CFF
E9B48FFDF3BB95FFFBBF96FFF8CFB2FDEFB086FFEFAA7EFFF3A578FDE19861FF
ADB375FF9DBD80FFAAB474FED98D4BF0F5BD4DFFEFD254FDEBDA5CFFEEEFA7FF
FEFDBCFDFFFECDFFFFFEDAFFFDFEE5FDFFFFEDFFFFFFF4FFFFF8DEFF33241A8B
9E9F9F0400000000000000000000000017BD2BFF25B93CFD34BB4FFE43C165FD
50C376FD59C681FE6CD191FD87C17BFDCF8F3FFDE2B888FEE8C499FDDFAF78FE
D59E55FDC88940FDB56D37FEB6714BFDC69C80FDC49676FED2A07FFDDBA683FD
E6AD89FEF0B58CFDF7BB94FDEFC09FFEEEA475FDF3A371FDC2975EFE72D195FD
76D89AFD77D89AFD70D993FF0811097FB26C3CA9ECCD5AFFE6D56CFDE2D98EFD
F8F8D4FEFEFADCFDFDFBE6FDFEFCEEFEFDFDF3FDFDFEF8FDFFFFF1FF7A614EBD
5B5C5C1200000000000000000000000016BC2CFF23B93BFF32BD4EFD43C164FF
50C475FF59C682FD6BD08FFF79CE8EFFC28F3BFFDDAE79FDE9C69DFFE1B47FFD
D8A25DFFCC8F43FFB97339FDC98B64FFBC9173FFC29170FDCF9B78FFD9A27DFF
E3A982FDEDAE85FFF2BE9AFFEEAC7FFDF0A370FFDA8E5DFF63AF84FD76D898FF
76D697FF76D697FF70D790FF040F077C22120A15F3A55EE0E3C87DFFE2C086FF
EDE6DEFDFFF3E5FFFFF4ECFFFDF5F0FDFFF6F2FFFFF7F3FFFFFCF4FEB3947ADC
5B5C5D2000000000000000000000000016BC2BFF22B93AFD31BB4DFE42C163FD
4FC474FD58C680FE69CF8EFD71D495FDB1973FFDDAA46BFEE9C79CFDE4B986FE
D8A464FDD09446FDBD7839FECF9976FDB28565FDBE8B68FECA946FFDD59B75FD
DEA279FEE8A87CFDEEBE9DFDED9F6CFEF29E66FD8B816BFD4FB0A2FE74D694FD
73D595FD72D595FD6DD68EFF0610087C0000000CAB693D84E5B084FFE2A689FD
E8CCD3FEFEE9E3FDFDE9E5FDFEEAE6FEFDEBE6FDFDECE6FDFFEFE7FEC6AC92E7
5A5B5C2400000000000000000000000015BC2AFF21B739FF30BC4CFD41BF62FF
4EC473FF58C681FD67CE8DFF6ED694FF99A451FFD69B5AFDE7C296FFE6BE90FD
DCA96EFFD3994DFFC27F3AFDD19F7AFFBD967BFFC9A084FDD1A485FFD7A482FF
DCA47DFDE3A277FFECB897FFED9F6AFDF7AC7DFF6D7D6EFF38A6B2FD72D591FF
6ED493FF6FD493FF6AD68CFF0510087C0000000D85512E6CECA58CFFE69B90FF
EABFC4FDFEDED1FFFFDDD1FFFDDED0FDFFDFD0FFFFDFD0FFFFE3CFFEC7AE95E8
5A5B5C2300000000000000000000000015BC28FF20B738FF31BC4BFD40C061FF
4EC472FF59C680FD65CE8BFF6BD491FF7FB86EFFD29145FDE3BA8BFFE9C398FD
DDAD74FFD59D54FFC7873DFDD29A6FFFCBAD97FFD1AF98FDD8B49CFFDFB9A0FF
E4BEA3FDE9BFA2FFEFCBB3FFF2BA94FDF7BD97FF977D5CFF198CAEFD6FD690FF
6CD291FF6CD490FF67D58AFF0510087C0000000CB16C3D9AEEA891FFEC9E8BFF
EEC0B8FDFFD5B6FFFFD5B6FFFDD8B6FDFFD9B6FFFFD9B5FFFFDAB4FEC2A186E1
5A5C5D1A00000000000000000000000014BB27FF21B837FD2EBC4AFE3FC060FD
4DC271FD57C57FFE63CC89FD68D28EFD6ACB86FDC78E3AFEE1AF7CFDEAC69CFE
DFB17BFDD79F5CFDCB8D40FECD905DFDCFB09CFDCFAF9AFED7B59DFDDCB8A1FD
E1BDA2FEE8BFA5FDEEC9B0FDF4C8ABFEF9DFCFFDE9A270FD226375FE5CBF8CFD
6AD48FFD69D28EFD64D589FF020E067A1D11092EF59257F5F0B49BFEEB9471FD
F4CDB1FEFECFA0FDFDD1A0FDFED0A0FEFDD2A0FDFDD29FFDFFD4A1FF9E7F69C6
58595A0900000000000000000000000013BB26FF1FB636FF2FBA49FD3EC05FFF
4BC36FFF58C680FD74D396FF70D593FF6ED494FF77CB84FDB4B675FFE7C69BFD
E5B885FFDBA466FFD09345FDC68044FFD3B29CFFD0B29EFDD7B6A0FFDDBBA4FF
E0BEA5FDE5C0A9FFEAC4A9FFF2D5C2FDF6CEB2FFF9D6BEFFD18F62FD47694CFF
4BA76FFF59C182FF52C07BFF272312A6D47F4AE1EF9B6AFEF3BA99FFEAAB85FF
FDC891FDFFC790FFFFCA90FFFDCA90FDFFCA90FFFFC88FFFFFCF9AFF57433692
0000000000000000000000000000000013BB25FF1EB635FF2DBA48FD41C060FF
62CB82FF77D197FD98DFB1FF82DAA1FF84DBA2FF6FB4C8FD70BBB6FF8FD093FD
AEC182FFC5AF6DFFC39F52FDAE9049FFD2B695FFD0B4A2FDD7BAA4FFDCBDA8FF
DFBEA9FDE5C3ADFFE9C5ADFFECCCB8FDF4D1BAFFF8DBC6FFFADAC6FDEEA878FF
B78555FF9D8151FFB78B57FEEA955CFDEE9257FFF2B891FDEA9C6AFFF6C399FF
FEBF84FDFFC086FFFFC185FFFDBF83FDFFBF84FFFFC18AFFFBC89EFE322A264D
0000000000000000000000000000000012BB25FF1CB633FD38BE51FE6ACD82FD
76D191FD7ED29CFE98DFB2FD84DAA3FD85DCA3FD79BFC1FE69A4FBFD6EB0E0FE
76BEB2FD6BCB94FD61CA82FE5ACA86FD9DB997FDD5B8A7FED8BDA9FDDCBEABFD
E0C1ADFEE4C4AFFDE6C8B1FDEAC9B3FEEFD3C2FDF5D6C0FDF8D6C0FEF8DCCAFD
FAD5BCFDFEDDCAFDFBDDCAFEF9DECEFEF6CCB0FDEDAD82FEF3C39EFDFEB57BFD
FEB87EFEFDBC85FDFDC596FDFED0AAFEFED8BBFDFFDDC5FEC19E86D961605F12
000000000000000000000000000000000FBA23FF32BD46FF66CE7AFD71D088FF
7CD395FF83D49FFD9AE0B4FF86DBA5FF88DCA5FF82D0B0FD6EA4F5FF73BBFCFD
79C7FFFF77AFF3FF5C94E4FD2A6DE2FF3A61DCFFD7B7A8FDD9C0B1FFDBC3B2FF
DEC6B4FDE3C8B6FFE5C9B6FFE8CCB9FDEDCDB9FFEFD3C0FFF4DDCDFDF6D5C0FF
F7D3BBFFF6D3BCFFF7CFB7FDF5D3BCFFF6DECCFFFBE1CFFDFEDDC6FFFEDDC6FF
FEDDC6FDFEDEC8FFFEDDC6FFFEDBC3FDFCD9C2FFFFDCC2FF5340347100000000
000000000000000000000000000000001BBE2EFF61CC71FF6CCF7FFD77D18DFF
81D59AFF88D6A3FD9DE0B5FF89DBA8FF8BDDA8FF8ADAAAFD78AAECFF78B6FAFD
7CC9FCFF73B7FAFF70A2F8FD5B85F1FF2953E5FF8B82BAFDDDC4B0FFDDC7B7FF
E0C9B9FDE3CBB9FFE6CDBCFFE7CDBCFDEBD0BFFFECD1BEFFEED2BFFDF2D8C6FF
F4DCCBFFF5DDCFFFF6DDCEFDF7DCCAFFF9D9C4FFF9DAC4FDFADAC5FFFADAC7FF
FADBC7FDFADBC5FFF9D9C6FFF8D9C5FDF7D9C5FFC6A186DA7373740A00000000
0000000000000000000000000000000022C034FF6BCF79FD73D283FE7DD591FD
86D79CFD8DD7A7FE9FE1B7FD8CDCAAFD8EDEACFD8EDEA9FE80B6DCFD7EB5FAFE
83CAFCFD7EBFF9FD76AAF6FE729AF4FD6A8AECFD3853DBFEC8ABACFDDDC9BAFD
E0CBBDFEE1CCBFFDE4CFBFFDE8CFC1FEEAD1C1FDECD4C3FDECD5C4FEEED5C4FD
F1D6C4FDF1D7C5FDF2D7C6FEF3D8C7FDF4DAC7FDF6D9C9FEF5DBC9FDF5DBC7FD
F6D9C7FEF4DAC8FDF4D8C6FDF2D9C7FEEECBB1FB71645A450000000000000000
0000000000000000000000000000000023C035FF73D280FF78D48AFD83D596FF
8CD9A2FF92DAABFDA2E2B8FF90DEADFF92DFADFF92E0ACFD8BC6CBFF83B4FAFD
89CBFCFF87C7FCFF80B3F9FD79A2F6FF7A99F0FF7A90ECFD7781CFFFDCC3ACFF
E0CDC2FDE1D0C3FFE5D0C5FFE6D3C4FDE9D5C7FFEBD6C6FFECD7C8FDECD8C9FF
EFD9C8FFF0D8CAFFF1DAC9FDF2D9CBFFF1DBCBFFF3DBCAFDF3DCCAFFF3DBCBFF
F2D9CBFDF1DAC9FFEFD9CBFFF1D2BCFE826B5B6B000000000000000000000000
0000000000000000000000000000000025C136FF79D486FF80D68EFD89D79BFF
91DBA6FF97DBAEFDA4E3BAFF93DEB0FF95E0B1FF95E0B0FD92D4BDFF89B4F8FD
8EC8FBFF8ECEFCFF86BCF8FD81A9F7FF7F9EF2FF7F96EDFD7F8EE6FFA4C9AFFF
DDC5AEFDE2D2C6FFE5D4C9FFE7D4C8FDE7D5C9FFEAD6CBFFEBD7CCFDECD8CBFF
ECDACDFFEDD9CCFFEFDBCEFDF0DACEFFF0DCCEFFF0DACEFDF0DCCEFFEEDACEFF
EEDACDFDECDACEFFECCFBCFE997B677500000000000000000000000000000000
0000000000000000000000000000000026C136FF81D78CFD84D893FE8FDAA0FD
97DBAAFD9CDDB3FEA6E4BCFD97E0B2FD99E0B4FD99E1B3FE98DEB5FD8FB8F1FE
93C7FBFD94D2FCFD8FC4FAFE88B1F8FD86A5F4FD869FEFFE8693EBFD91C3C4FD
9FCBACFED7BEA7FDE3CFC3FDE6D9CFFEE8D8CEFDE9D9CDFDE9DACEFEEADBD0FD
ECDAD0FDEDDCCFFDECDCD1FEEEDBD1FDEEDBD1FDECDCD1FEEDDCD1FDEDDCD2FE
EBDBCFFFEAC6AEF1CBB3A35A0000000000000000000000000000000000000000
0000000000000000000000000000000027C237FF89D994FF8DDA99FD95DCA5FF
9DDEAFFFA3DFB7FDA9E5BEFF9CE1B6FF9EE3B8FF9EE2B8FD9EE3B7FF97C3E3FD
98C6FAFF9CD5FCFF98CBFBFD91BAF9FF8EADF6FF8FA6EFFD8E9CECFF94B2D4FF
9BDAB8FD96BDAAFFBFC1A5FFDEC5B0FDE5D3C8FFE8DAD2FFEADCD4FDEBDCD3FF
EBDDD3FFECDDD3FFECDDD3FDECDED3FFECDED5FFECDFD5FEECDCD0FFF0D3BFFA
AB8770A313090218000000000000000000000000000000000000000000000000
0000000000000000000000000000000028C238FF90DB9AFF92DC9EFD9BDEAAFF
A2E0B3FFA8E2BBFDACE5C1FFA0E2B9FFA0E3BAFF9DE2B6FDA3E5BBFFA0D3D3FD
9FC7FDFFA2D4FDFF9FD2FCFD9AC1F8FF95B4F7FF94ACF1FD94A5EEFF97A8E2FF
A1E1BCFD9EC7B5FF9FDBBAFFA6DEB7FDC0D1ABFFD6C6ABFFE1CAB9FDE7D2C6FF
E8D5CAFFEBDAD1FFEBD7CDFDEDDBCEFFECD2C1F8D9B69ED99978638C32241B29
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000029C33AFF98DEA0FD99DDA4FEA1E0AFFD
A8E2B8FDADE2BFFEAFE6C3FDA7E5BFFD7FD29FFD9DD6B3FE8BD2A5FD7DCF9CFE
71C7A8FD83CBCFFD9BD4F2FEA1CAFDFD9DBBFCFD9DB3F6FE9DACF2FD9DAAEBFD
A7DEC3FEA7E5BFFDA7E5BFFDA6E5BFFEA5E5BFFDA5E5BEFDADDFB7FEB5DBB5FD
B6DBB9FDBBD2BBFD78C989FF3634259A2D201732000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
000000000000000000000000000000002BC33BFF9FE0A8FFA1E1AAFDA6E1B4FF
AEE4BCFFB3E4C3FDB2E8C5FF9EE1B7FFACDABDFFF8F1F4FDF5F0F1FFF4EEF0FD
F1ECEBFFD4E1D5FFAED5B9FD98CEADFF8AC6B0FF80BCB3FD80BFB7FF84D1ACFF
92DDAEFDA4E4BCFFADE7C3FFADE7C3FDADE8C3FFADE7C3FFACE6C3FDABE7C2FF
ABE7C2FFAEE6C4FF54CF80FF000E047B0000000E000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
000000000000000000000000000000002DC43CFFA5E2ADFFA7E1AFFDADE4B7FF
B3E6C0FFB7E7C6FDB7EAC8FF84D3A2FFECEFECFFF2F0F0FDF1EFEFFFF0EDECFD
EFEAECFFEFEAEAFFEFE8E9FDEEE6E8FFEDE5E6FFEBE2E1FDDFDCD7FFD2D8CEFF
BCD1BFFD9FCBACFF8EC9A1FF84CA9DFD7FCE9CFF8BD6A6FF98DEB3FDA3E3BCFF
ABE6C2FFB5EAC9FF54D07FFF010D04860000002D000000170000000A00000000
0000000000000000000000000000000000000000000000000000000000000000
000000000000000000000000000000002EC43CFFACE4B3FFACE3B4FDB3E6BDFF
B8E7C5FFBDE8CBFDADE5C1FFA8DABBFFF6F3F4FFF2EFF1FDF1EFEFFFF0ECECFD
EFECECFFEEEAE8FFEDE8E8FDEAE6E6FFEAE4E4FFE9E2E2FDE8E0DFFFE6DDDEFF
E6DBDCFDE5D9DAFFE5D7D9FFE4D5D7FDE1D2D3FFCBCCC4FFB6C6B6FDA2C4A9FF
93C4A2FF88C79EFF53C17AFF0F4D25C1022A129C010E05790000003800000003
0000000000000000000000000000000000000000000000000000000000000000
000000000000000000000000000000002EC53DFFB2E6B9FDB3E6BBFEB9E8C3FD
BEE9CAFDAFE4C0FE87D4A4FDE2EDE7FDFAF5F9FDF8F2F4FEF5F0F2FDF3EEF0FE
F1ECEDFDEFEAEAFDEDE8E8FEEBE6E6FDEAE4E4FDE9E2E2FEE8E0E0FDE5DEDEFD
E5DADAFEE4D9D8FDE1D6D6FDE1D5D5FEE0D3D3FDDED1D1FDDECFCFFEDECDCFFD
DDCBCCFDDDCACBFDDEC9CCFEDECBCCFFCACAC1FF459C64DA0003002600000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000031C53FFFBBE9C1FFB9E8C0FD97DCA5FF
55C06AFF21AC2FFD118524FF24943DFF36A052FF60B97CFD80C798FF9FD3B1FD
C1DFCDFFDCE6DFFFE4E7E4FDEDE7E8FFEFE6E8FFEDE3E5FDEBE0E2FFE7DEDEFF
E5DBDCFDE4D8DAFFE1D8D8FFE1D4D4FDE0D3D3FFDFD1D0FFDCCECFFDDCCECCFF
DBCCCCFFDAC9CAFFD9C9C7FDDBC7C9FFA5C2A8FE031E0E550000000300000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000030C53FFF89D993FF3AB748FD16AA24FF
15B324FF09940EFD006200FF006400FF006300FF006300FD006700FF006E08FD
057713FF0B7F1EFF25923CFD3EA257FF5CB376FF81C599FDA1D0B2FFBDD5C3FF
D9DAD5FDEBDCE1FFE8D9DCFFE6D6D9FDE4D4D5FFE1D1D4FFDECFD0FDDDCDCEFF
DBCCCCFFDACAC9FFD9C8C9FDCFC9C3FF27623CA40000000F0000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000012B523FC10AA1CFE1DB62CFE27BC3AFD
27BA38FD007200FE006300FE006300FD006300FD006300FE006400FD006400FE
006300FD006300FD006300FE006200FD006200FD006400FE006901FD037510FD
08801EFE168C2FFD399F53FD5BAC70FE7CBA8DFD9DC5A7FDB6C8B8FEC8CAC1FD
DBCCCCFDE0CBCEFEE0CACDFE639E75E4000D0546000000030000000000000000
0000000000000000000000000000000000000000000000000000000000000000
000000000000000000000000173F28452DB73AFF34C046FF3AC24EFD42C456FF
45BA4DFF9DC9AAFE71B181FB52A061FE318F43FE1D7F2AFB0C7314FE006A05FE
006600FE006400FE006200FE006400FF006500FF006400FE006500FF006500FF
006300FD006400FF006300FF006400FD006700FF027F0FFF09991FFD169E31FF
24A340FF3AA956FD5FB77CFC196034C70002015D0000000A0000000000000000
0000000000000000000000000000000000000000000000000000000000000000
000000000000000000000004369A49C442C454FF4FC863FF57CB6AFD53C868FF
9BD19AFFF5EBF0FDF2EAECFFF2E8EBFFEFE7E9FFDEE0DDFECFDAD0FFBAD1C0FE
91BD9CFC6CAE7BFC32964DFB178530F9107B20FA097315FA026907FB006200FE
006100FE006300FF006400FF006300FE006400FF027B08FF049211FE028F10FD
0C9428F753A96AF7C4C6BBFE94B89DF7000F0494000000340000000200000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000194B2B5546BF55FF65CF7AFD6BD182FD73D48BFE59C465FD
E3E6DFFDEEE9E9FEEDE8E8FDEAE5E5FDEBE5E5FDE9E3E3FEE9E1E1FDE9DFE0FE
E9DEDFFEEADCDFFEEADBDEFEE6DADCFEE2D7D8FEC4CEC4FE9CC0A6FA93BA9DF9
72AD82F947975AF7378A45F720812FF80A7217F80A8217FD219E3BFA79B589F9
CFCBC5FEE2CFD2FEDECFCFFEE1D3D4FE519067E1000000710000001C00000000
0000000000000000000000000000000000000000000000000000000000000000
0000000067716C0340A556CF6DD180FF80D896FF77D48BFF66C974FF96D095FF
F6EDF1FFF1EBECFEEEE8E9FFECE6E6FFEBE5E5FFE9E3E3FDE8E1E1FFE7DFDFFD
E6DCDDFFE5DADBFFE4DAD8FDE2D8D8FFE1D6D6FFE1D4D4FDE1D2D5FFE1D2D3FF
E1D0D2FEDECFD0FFDBCDCEFFD3CAC8FEBCC6B8FE3D8C59CB90BC9DEBE7D5D8FF
E0D4D4FFE0D4D4FFE1D6D6FDE4D9D9FFD3DCD1FF114023B5000000530000000A
0000000000000000000000000000000000000000000000000000000000000000
000000006A83700A3AB948E559CA67F72EA53BAF2EAA4CA654B975C49DD2B1E3
A0D2B1F1A6D4B6FBCFE2D3FFEAE7E6FFEDE7E8FFEFE7E8FFEDE3E5FFEBE0E2FE
E8DEDEFFE7DCDCFFE5DAD9FDE2D8D8FFE1D6D6FFE0D3D3FDDFD3D3FFDED1D0FF
DDCED0FDDCCECEFFDBCCCDFFDFCDCFFE85AE8FE9000803351A6B396BD0D8CDFF
E7DDDEFFE7DEDEFFE8E0E0FDE7E0E2FFEEE5E6FF94C4A5F5000B038C00000031
0000000000000000000000000000000000000000000000000000000000000000
00000000659A6519003E0048000A000400000000000000000000000000000000
113D2209103A20220E381E3F24794457267F487B237E459E69AA81BB79C394D2
A7CFB3EBB9D1BFFDC7D3C6FFD6D5D0FFE1D6D6FFE5D7D8FFE3D3D6FFE1D2D3FE
DFD0D0FEDECECFFEDECCCFFEBCC9B8FF072C1661000000040000000066C78AC4
EFE6E8FFECE6E6FDEDE8E8FEEEEAE9FEF3ECEEFEF7F2F3FF4D8F66D200000039
0209040500000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000000000020E0604
051E100F18532F1B2F8951333C9B5F59429B637C56A774966EBB88B47FBD94D3
9CC4A7EBAEC7B1F3BAC9BAFB39714D950000000A00000000000000000E512832
AEDCBFF3F8F0F3FFF1F1F0FFDAEBDFFF97D6AFF05FB27EBF258A4C7408271510
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000000000000000031E0D04
011C0B0D114A261E1A663737000C040800000000000000000000000000000000
38A8628896D3AEED3E925FA404522256001B081F000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
A6BDAF03AADDBE07000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
00000000FF8FFFF807FF0000FF00FFE000FF0000FC000780007F0000F8000000
001F0000E0000000000F0000E000000000070000E000000000070000E0000000
00030000E000000000010000E000000000010000E000000000010000E0000000
00000000E000000000000000E000000000000000E000000000000000E0000000
00000000E000000000000000E000000000000000E000000000010000E0000000
00010000E000000000010000E000000000030000E000000000030000E0000000
00070000E0000000000F0000E0000000001F0000E0000000003F0000E0000000
007F0000E000000001FF0000E00000000FFF0000E00000000FFF0000E0000000
03FF0000E000000001FF0000E000000003FF0000E000000003FF0000E0000000
07FF0000E000000007FF0000C000000007FF00008000000003FF000080000000
03FF00000000000001FF00000000000001FF00001E00000400FF0000FFFC000C
01FF0000FFFFFC1E0FFF0000FFFFFFFE7FFF0000FFFFFFFFFFFF0000FFFFFFFF
FFFF0000}
Transparent = True
end
end
object IBScript1: TIBScript
Database = IBDatabase1
Transaction = IBTransaction1
Terminator = ';'
OnParse = IBScript1Parse
Left = 352
Top = 72
end
object IBDatabase1: TIBDatabase
DefaultTransaction = IBTransaction1
Left = 352
Top = 104
end
object IBTransaction1: TIBTransaction
DefaultDatabase = IBDatabase1
Left = 352
Top = 136
end
end
Kod: Tümünü seç
CREATE GENERATOR COCUKLAR_GEN;
CREATE GENERATOR EBEVEYN_GEN;
SET TERM ^ ;
CREATE PROCEDURE GET_CURUSERDATE
RETURNS(
EX_CURUSER VARCHAR(20) CHARACTER SET WIN1254,
EX_CURDATE DATE)
AS
BEGIN
EXIT;
END^
SET TERM ; ^
SET TERM ^ ;
CREATE PROCEDURE SET_LASTUSR
AS
DECLARE VARIABLE NUMROWS SMALLINT;
BEGIN
EXIT;
END^
SET TERM ; ^
CREATE TABLE COCUKLAR (
ID INTEGER NOT NULL,
ID_EBV INTEGER NOT NULL,
ADI VARCHAR(20) CHARACTER SET WIN1254 COLLATE WIN1254);
ALTER TABLE COCUKLAR ADD PRIMARY KEY (ID);
CREATE TABLE DBLOGS (
LASTUSR VARCHAR(20) CHARACTER SET WIN1254 COLLATE WIN1254,
LASTDATE DATE);
CREATE TABLE EBEVEYN (
ID_EBV INTEGER NOT NULL,
AILE_REISININ_ADI VARCHAR(20) CHARACTER SET WIN1254 COLLATE WIN1254,
SOYADI VARCHAR(20) CHARACTER SET WIN1254 COLLATE WIN1254,
ESININ_ADI VARCHAR(20) CHARACTER SET WIN1254 COLLATE WIN1254,
EKLEYEN VARCHAR(20) CHARACTER SET WIN1254 COLLATE WIN1254,
EKLEYEN_TARIH DATE,
DUZENLEYEN VARCHAR(20) CHARACTER SET WIN1254 COLLATE WIN1254,
DUZENLEYEN_TARIH DATE);
ALTER TABLE EBEVEYN ADD PRIMARY KEY (ID_EBV);
SET TERM ^ ;
ALTER PROCEDURE GET_CURUSERDATE
RETURNS(
EX_CURUSER VARCHAR(20) CHARACTER SET WIN1254,
EX_CURDATE DATE)
AS
BEGIN
select FIRST 1 LASTUSR,LASTDATE from DBLOGS
INTO EX_CURUSER,EX_CURDATE;
SUSPEND;
END^
SET TERM ; ^
SET TERM ^ ;
ALTER PROCEDURE SET_LASTUSR
AS
DECLARE VARIABLE NUMROWS SMALLINT;
BEGIN
select count(*) from DBLOGS
into :numrows;
if (numrows = 0) then
insert INTO DBLOGS (DBLOGS.LASTUSR,DBLOGS.LASTDATE)
VALUES (CURRENT_USER,CURRENT_DATE);
else
update DBLOGS set DBLOGS.LASTUSR = Current_user,
DBLOGS.LASTDATE=CURRENT_DATE;
SUSPEND;
END^
SET TERM ; ^
ALTER TABLE COCUKLAR ADD CONSTRAINT FK_COCUKLAR FOREIGN KEY (ID_EBV) REFERENCES EBEVEYN(ID_EBV) ON DELETE CASCADE ON UPDATE CASCADE;
SET TERM ^ ;
CREATE TRIGGER COCUKLAR_DEL FOR COCUKLAR
ACTIVE AFTER DELETE
POSITION 0
AS
BEGIN
execute procedure SET_LASTUSR;
post_event 'COCUKLAR_DELETE';
END^
SET TERM ; ^
SET TERM ^ ;
CREATE TRIGGER COCUKLAR_INS FOR COCUKLAR
ACTIVE AFTER INSERT
POSITION 0
AS
BEGIN
execute procedure SET_LASTUSR;
post_event 'COCUKLAR_INSERT';
END^
SET TERM ; ^
SET TERM ^ ;
CREATE TRIGGER COCUKLAR_UPT FOR COCUKLAR
ACTIVE AFTER UPDATE
POSITION 0
AS
BEGIN
execute procedure SET_LASTUSR;
post_event 'COCUKLAR_UPDATE';
END^
SET TERM ; ^
SET TERM ^ ;
CREATE TRIGGER EBEVEYN_BEF_INSUPTDEL FOR EBEVEYN
ACTIVE BEFORE INSERT OR UPDATE
POSITION 1
AS
BEGIN
if (inserting) then begin
NEW.EKLEYEN = CURRENT_USER;
NEW.EKLEYEN_TARIH = CURRENT_DATE;
end
if (updating) then begin
NEW.DUZENLEYEN = CURRENT_USER;
NEW.DUZENLEYEN_TARIH = CURRENT_DATE;
end
END^
SET TERM ; ^
SET TERM ^ ;
CREATE TRIGGER EBEVEYN_DEL FOR EBEVEYN
ACTIVE AFTER DELETE
POSITION 0
AS
BEGIN
execute procedure SET_LASTUSR;
post_event 'EBEVEYN_DELETE';
END^
SET TERM ; ^
SET TERM ^ ;
CREATE TRIGGER EBEVEYN_INS FOR EBEVEYN
ACTIVE AFTER INSERT
POSITION 0
AS
BEGIN
execute procedure SET_LASTUSR;
post_event 'EBEVEYN_INSERT';
END^
SET TERM ; ^
SET TERM ^ ;
CREATE TRIGGER EBEVEYN_UPT FOR EBEVEYN
ACTIVE AFTER UPDATE
POSITION 0
AS
BEGIN
execute procedure SET_LASTUSR;
post_event 'EBEVEYN_UPDATE';
END^
SET TERM ; ^
http://www.parmaja.com/forums/viewforum.php?id=3
bu adreste Firebird SQL Config ve Firebird SQL Service monitor isimli 2 program var. Source codelarını incelerseniz eminim sizde projeniz için güzel bir Firebird config oluşturabilirsiniz.
Yukarıdaki verdiğim örnek modülü bu adrestende indirebilirsiniz
