FireBird'ün Editörü Yokmu?

[husonet]

Slm

Arkadaşlar bugün firebird'ü kurdum fakat nasıl table oluşturacağımı çıkartamadım. FireBird'ün editörü yokmu(Bilgisayar başında çok takıldım bulamıyormuyum yoksa?) görsel olarak table oluşturabiliyormuyuz? yoksa Run time damı oluşturmam gerekli fikir verirseniz sevinirim.

İyi Geceler.

[mussimsek]

Selam,

Interbase'de sadece IBConsole geliyor. Firebird kurmadığım için bilemiyorum. Ancak şu ipucu yardımcı olacaktır : http://www.delphiturkiye.com/ipdb.htm#interbase_tool

Kolay gelsin.

[sair]

http://www.mengoni.it/downloads.html

Adresinden IBOConsolu indir kur.

Sevgiler...

[mrmarman]

@husonet
- Firebird'ü mü öğrenmeye çalışıyorsun. Hayırlı olsun. Ben de geçtim.

- ADO'ya ilk geçtiğimde de yaptığım şekilde bir fonksiyonlar grubu hazırlıyorum. Bitirince sana da yollar, burada da yayınlarım.

- Amaç Replikasyon (tamir ve bakım) dahil her şeyin modüler ve dinamik olması. Bununla ilgili ADO için MS ActiveX çözümü var ama Interbase/Firebird için henüz bulamadım.

- VeritabaniOlustur(KatalogAdi:String); ile Katalog Dosyası oluşturup,

- DataStruc(Tablo : String; Liste: TStringList); ile Tablo Elemanlarını tanımlayıp Liste'yi oluşturup,

- TabloOlustur(Tablo : String; Liste: TStringList); ile de bu liste'yi tablo haline sokan,

- AlanEkle, AlanSil, AlanResize şeklinde modifikasyonlar hazırlıyorum.

- ADO için bunu yapmıştım. Mantık basit. Sadece ilgili komutları derliyor, bir araya getiriyorum.

- DataStruc kısmı dışındaki fonksiyonlar sabitler olacak, veritabanına göre değişken olan tek procedure DataStruc olacak.

- Bunun benzeri çalışma yapan arkadaşlardan önerilerini bekliyorum.

[mrmarman]

Bahsettiğim konuda ilk ve bence en önemli aşama hazır.
Veritabanı Katalog Dosyası Oluşturma

Kod: Tümünü seç

procedure TForm1.VeritabaniOlustur(DosyaAdi, User, Password: string);
// VeritabaniOlustur( 'C:\Deneme.gdb', 'SYSDBA', 'masterkey');
begin
  with TIBDataBase.Create(Self) do
  begin
    DataBaseName := DosyaAdi;
    SQLDialect := 3; // 3: Interbase6, 1: Interbase5 ve eskisi    
    LoginPrompt := False;
    Params.Clear;
    Params.Add(Format('USER %s', [QuotedStr(User)]));
    Params.Add(Format('PASSWORD %s', [QuotedStr(Password)]));
    Params.Add('PAGE_SIZE 4096');
    Params.Add('DEFAULT CHARACTER SET WIN1254'); //(Turkish)
    CreateDatabase;
    Free;
  end;
end;

[mrmarman]

Data Structure Oluşturma

- Boolean tanımlama yaptıramadım. Char(01) yapmak zorunda kaldım. Firebird'in herhangi bir sürümünde bu eklenti yapılmış mıdır ? Biliyorsanız cevap lütfen...

Kod: Tümünü seç

const
  //--- Field Names ---\\
  KayitNo = 'KAYITNO';
  WMFNo = 'WMFNO';
  KodAdi = 'CODED';
  OrjAdi = 'FILENAME';
  OrjUz = 'FILELENGTH';
  OrjWidth = 'FILEWIDTH';
  OrjHeight = 'FILEHEIGHT';
  OrjDate = 'FILEDATE';
  KatalogTarih = 'CATDATE';
  KatalogNo = 'CATNO';
  KonumBilgi1 = 'CATINFO1';
  KonumBilgi2 = 'CATINFO2';
  Secildi = 'SELECTED';
  DisardaKaldi = 'EXCLUDED';

// Global Const olarak aşağıdaki Alan İsimleri tanımlanmıştır.
// Bu yazdığım veritabanı programlarınca standardımdır. 
// Size de tavsiye ederim. Uzun zaman alan kod yazma işleminde
// programcı için anlaşılır kılar. Firebird için ekstra önem kazandı keza
// BüyükHarfler dışında isim verince kabul etmedi. Bence önemli de değil.
// Kodlamaya bir yıl ara bile verilse, dönüşte kolaylık sağlar diye 
// düşünüyorum.
procedure TForm1.StructOlustur_WMFTool(KomutListe: TStringList);
const
  AlanFmt       = ' "%s" %s(%d),';
  AlanFmtTr     = ' "%s" %s(%d) CHARACTER SET WIN1254 COLLATE PXW_TURK,';
  AlanFmtNo     = ' "%s" %s,';
  AlanFmtNoNull = ' "%s" %s NOT NULL,'; // Primary Key olması için not null olacak.
begin
  with KomutListe do
  begin
    Clear;
    Add('Create Table "WMFTOOL" (');
    Add(Format(AlanFmtNoNull, [KayitNo,     'Double Precision']));
    Add(Format(AlanFmt,       [WMFno,       'VarChar', 10]));
    Add(Format(AlanFmt,       [KodAdi,      'VarChar', 50]));
    Add(Format(AlanFmtTr,     [OrjAdi,      'VarChar', 50]));
    Add(Format(AlanFmt,       [OrjUz,       'VarChar', 50]));
    Add(Format(AlanFmt,       [OrjWidth,    'VarChar', 10]));
    Add(Format(AlanFmt,       [OrjHeight,   'VarChar', 10]));
    Add(Format(AlanFmtNo,     [OrjDate,     'DATE',     0]));
    Add(Format(AlanFmtNo,     [KatalogTarih,'DATE',     0]));
    Add(Format(AlanFmt,       [KatalogNo,   'VarChar', 05]));
    Add(Format(AlanFmt,       [KonumBilgi1, 'VarChar', 50]));
    Add(Format(AlanFmt,       [KonumBilgi2, 'VarChar',250]));
    Add(Format(AlanFmt,       [Secildi,     'Char', 01]));
    Add(Format(AlanFmt,       [Disardakaldi,'Char', 01]));
    Add('Primary Key ("' + KayitNo + '") )');
  end;
end;

[hakkus]

Merhabalar,
Sanırım Boolean alan yok ben aşağıdaki gibi bir domain yapıp kullanıyorum.

Kod: Tümünü seç

CREATE DOMAIN Alan_BOOLEAN CHAR( 1 )
  DEFAULT 'F'
  NOT NULL
  check (value in ('T', 'F'))

[husonet]

Arkadaşlar vermiş olduğunuz bilgiler için teşekkür ederim. FireBird anladığım kadarıyla interbase ile hemen hemen aynı peki interbase mi firebird mü desem tercih olayınız ne olurdu. İlk önce hangisini öğrenirdiniz.


Teşekkür'ler.

[mussimsek]

Merhaba,

gördüğüm kadarıyla genel eğilim Firebird'ten yana. Firebird'e yoğunlaş hocam.

Kolay gelsin.