firebird delphi tarafı ilk adım

[ZeynelAbidin]

arkadaşlar 3-4 gündür okadar çok şey okudum ki inanın kafam karıştı.okuduğum yerleri tekrar tekrar okuyorum ama inanın tamamen karıştı. bana datamodule şu bileşenleri koy o bileşenleri şu şekilde bağla ve hali hazırdaki bir sp yi şu komut ile çağır diyebilirmisiniz.sp hakkında herşey mesajı var ve o mesajla sp yi çözebilirim ama delphi tarafı kısmını geçemedim.bana en az bilgisayarı yoracak bileşenler ile yardım edebilirmisiniz.şimdiye kadar bde kullanıyordum.ilk defa firebird kullaacağım.

[abdulkadir]

s.a
valla kimsenin bu kadar seyi bir seferde anlatacak kadar uygun zamanı oldugunu sanmıyorum ama.
Sen tek tek basla istersen. hepsini birden olmaz.

1- projeye datamodule eklemek
Örnek Delhide projende form1 adında bir formun var.
File - New - Other - Delphi Files - Data Module Seç
Datamodule olustu
Datamodulu kaydet ve Adı U1_DM olsun şimdi form1 in uses U1_DM ekle

datamodulun icine ne koyacagını ve form1 deki db componentlerine nasıl baglantı yapacagını
bilgi ve sorularına baglı olarak sonraki mesajlarında devam etsek iyi olur kanaatindeyim....
ve sen ne yaptıgını ne aşamada oldugunu da bildirmeyi ihmal etmeki okuyanlar kolay anlasın ve yardım etmek için cok caba sarfetmesin.

Yardımcı olmaya calısırız burdaki herkes gibi
Kolay gelsin....

[abdulkadir]

Önemli birsey daha

ilk defa firebird kullaacağım.

demişşin
kurdunmu delphi projenden ulasabiliyormusun database e?

[ZeynelAbidin]

firebird çalışıyor
ve bir databese de iki tane table oluşturdum.ben buna tableye nasıl bağlanacağımı soruyorum.ilginiz için teşekkür ederim
bana şu bileşenleri koy bu bileşenlerin şu kısmı ile birbirini bağla
şu komutu yaz ve mesela kayit isimli sp yi bu şekilde çağır demenizi istiyorum.
formda her şey var
ama bu kısmını bulamadım.

[abdulkadir]

ok.
datamoduleyi olusturdun ve form1 uses satırına ekledin.

Şimdi datamodule icine

1 tane IBDatabase // adı MY_DB
1 tane IBTransaction //adı MY_Tr

bunlar veritabanına baglantı için

şimdi tablolar için

1 tane IBDataSet // adı Cariler_IDs olsun
1 tane DataSource //adı Cariler_DS
1 tane IBTransaction //adı Cariler_Tr

veritabanına baglanmak ve 1 tablodan bilgileri okumak için bunlar yeterli
her tablo için yukardaki gibi 3 component ekleyip kullanmakta yarar var

Form1 içine 1 tane dbgrid yerlestir. properties sekmesinden datasource sini
datamodulumuzdeki datasource olarak belirtmeliyiz...

Kod: Tümünü seç

DataSource = DM_GENEL.Cariler_DS

diger geri kalan kısımların sana asagıya dfm kodlarını verecem tek tek yazmak cok uzun surer bunları incele
takıldıgın yerde sor
ben bu sekilde tablodan bilgileri alıyorum senin için ufak bir demo yaptım....

form1

Kod: Tümünü seç

unit1.pas

dosyası

Kod: Tümünü seç

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, DBGrids, RXDBCtrl;

type
  TForm1 = class(TForm)
    RxDBGrid1: TRxDBGrid;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation
Uses
U_DM_GENEL;
{$R *.dfm}

end

form 1 .dfm dosyası

Kod: Tümünü seç

object Form1: TForm1
  Left = 0
  Top = 0
  Caption = 'Form1'
  ClientHeight = 466
  ClientWidth = 637
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object RxDBGrid1: TRxDBGrid
    Left = 8
    Top = 304
    Width = 529
    Height = 120
    DataSource = DM_GENEL.Cariler_DS
    TabOrder = 0
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'Tahoma'
    TitleFont.Style = []
  end
end

datamodule

Kod: Tümünü seç

U_DM_GENEL.pas

dosyası

Kod: Tümünü seç

unit U_DM_GENEL;

interface

uses
  SysUtils, Classes, DB, IBDatabase, IBCustomDataSet;

type
  TDM_GENEL = class(TDataModule)
    MY_Tr: TIBTransaction;
    MY_DB: TIBDatabase;
    Cariler_IDs: TIBDataSet;
    Cariler_IDsBLKODU: TFloatField;
    Cariler_IDsCARIKODU: TIBStringField;
    Cariler_IDsADI: TIBStringField;
    Cariler_IDsSOYADI: TIBStringField;
    Cariler_IDsTEL1: TIBStringField;
    Cariler_DS: TDataSource;
    Cariler_Tr: TIBTransaction;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DM_GENEL: TDM_GENEL;

implementation

{$R *.dfm}

end.

datamodule nin .dfm dosyası

Kod: Tümünü seç

object DM_GENEL: TDM_GENEL
  OldCreateOrder = False
  Height = 377
  Width = 510
  object MY_Tr: TIBTransaction
    Active = True
    DefaultDatabase = MY_DB
    Params.Strings = (
      'read_committed'
      'rec_version'
      'nowait')
    Left = 32
    Top = 104
  end
  object MY_DB: TIBDatabase
    Connected = True
    DatabaseName = 'C:\LEVENTLER\Database\DENEME\DENEME.FDB'
    Params.Strings = (
      'user_name=SYSDBA'
      'password=masterkey'
      'lc_ctype=WIN1254')
    LoginPrompt = False
    DefaultTransaction = MY_Tr
    Left = 32
    Top = 32
  end
  object Cariler_IDs: TIBDataSet
    Tag = 103
    Database = MY_DB
    Transaction = MY_Tr
    DeleteSQL.Strings = (
      '')
    SelectSQL.Strings = (
      'SELECT * FROM CARI WHERE BLKODU=:PARAM1')
    GeneratorField.Field = 'BLKODU'
    GeneratorField.Generator = 'CARI_GEN'
    Active = True
    Left = 160
    Top = 32
    object Cariler_IDsBLKODU: TFloatField
      DisplayWidth = 11
      FieldName = 'BLKODU'
      Origin = 'CARI.BLKODU'
      Required = True
    end
    object Cariler_IDsCARIKODU: TIBStringField
      DisplayWidth = 12
      FieldName = 'CARIKODU'
      Origin = 'CARI.CARIKODU'
      Required = True
      Size = 30
    end
    object Cariler_IDsADI: TIBStringField
      DisplayWidth = 10
      FieldName = 'ADI'
      Origin = 'CARI.ADI'
    end
    object Cariler_IDsSOYADI: TIBStringField
      DisplayWidth = 13
      FieldName = 'SOYADI'
      Origin = 'CARI.SOYADI'
    end
    object Cariler_IDsTEL1: TIBStringField
      DisplayWidth = 29
      FieldName = 'TEL1'
      Origin = 'CARI.TEL1'
    end
  end
  object Cariler_DS: TDataSource
    DataSet = Cariler_IDs
    Left = 160
    Top = 96
  end
  object Cariler_Tr: TIBTransaction
    Active = True
    DefaultDatabase = MY_DB
    Params.Strings = (
      'read_committed'
      'rec_version'
      'nowait')
    Left = 160
    Top = 160
  end
end

öncelikle amacım veritabanına bu sekilde bir baglantı saglamandır. ki yukardaki sekil yeterlidir.
ama sil ekle guncelle gibi işlemler daha sonra devam ederiz..
cok tefarruata girmiyorum yukarda dfm kodlarında componentlerin properties ayarlarını ne yaptıgım belli oluyor zaten
sana sunu sec sunu sec demek yerine dfm yi vermek daha iyi olur sanırım
hemen cıkmam lazım sonra devam ederiz.....

[ZeynelAbidin]

yarrdımın için teşekkür ederim benimde istediğim bu idi zaten sen bana fazlasını verdin
sağol

[abdulkadir]

rica ederim

ögrendikten sonra hersey basittir.

yukardaki bilgileri dogru kullanmak için yapmanız gerekenler var?
biliyorsanız zaten mesele yok:D bilmiyorsanız
Delphi ,firebird in hangi versiyonunu kullandıgınızı bildirin...

başarılar....