Delphi Peak

Daha once burada 3-katmanli mimari konusuna ufak bir giris yapmistik. simdi sira bir sonraki adima geldi. Ufak bir ornek gelistirerek olayi biraz daha somut bir hale getirelim.

Ornegimizde Client tarafinda calisacak olan bir uygulamamiz olacak. Server tarafinda ise yazdigimiz clientin haberlesecegi bir application server ve bu serverin iletisim kuracagi veritabani olacak.

Bir onceki yazida da belirttigimiz gibi delphi cephesinde borlandin delphiye entegre olan kendi cozumleri haricinde 3. parti bir cok secenegimiz mevcut. Ben ornekte ASTA adli bilesen setini kullanmaya karar verdim. Bu bilesen setinin en buyuk ozelliklerinden bir tanesi sifir kod yazarak 3- katmanli bir yapiyi olusturmaniza izin verebilmesi. Diger application sunucular mevcut. Bu sunucular veritabanina baglanti yapmak icin kullanilan kutuphaneye gore cesitliliik gosteriyorlar. Asta\Serves klasoru altinda bulabileceginiz bu sunucular

ado
advantage
apollo
bde
ctlib
dbexpress
dbisam
doa
fibplus
flashfiler
ibexpress
ibobjects
msadodac
mySQLDac
nativedb
odac
odbcexpress
postgresdac
serveradmin
servertemplate
sqldirect
zeosmysql

seklinde yer aliyorlar. Biz bu ornegimizde ibexpress bilesenleriyle baglanti saglayan sunucuyu kullanacagimizden ilk once bu sunucunun kaynak kodlarini acip derlememiz gerekiyor. Derleme islemini basarili bir sekilde tamamladiktan sonra Asta3IBExpressServer.exe adli dosyayi tiklayarak calisir hale getiriyoruz. Sunucu kendini otomatik olarak Sytem Traya yerlestirecektir. Simgesine sag tusla tiklayip Properties penceresini acalim.

Setup Database Coonection dugmesine tiklayip Employe.fdb ye baglanmak icin gerekli olan ayarlari yapalim ve Tamam dugmesine tiklayalim.

Ardindan Start Server dugmesine basarak sunucuyu aktif hale getirelim.

Sunucu tarafinda yapacagimiz islemler bu kadardi. Simdi Client Programimizi insa etmeye baslayalim.

Yeni bir proje acip formun uzerine 1 tane ASTAClientSocket 1 tane ASTAClientDataSet 1 tana DataSource 1 tane DBGrid ve 5 tane buton koyalim.

Sunucunun varsayilan ayarlariyla oynamadiysak (port, password vs ) AstaClientSocket uzerinde yapmamiz gereken her hangi bir ayar soz konusu degil. AstaClientDataseti secip SQL ozelligine “Select * from customer” yazalim. Datasource su AstaClientDatasete , DBGRidi de Datasource baglayalim ve AstaClientDatasetin Active ozelligini True yapalim. Iste kayitlar karsimizda…. Henuz hicbir kod yazmadik ustelik

Simdi kod yazmaya sira geldi. bu isin en buyuk zorlugu burda. Kodlar cok karmasik ve zor. Kodlari anlamak icin bir kac hafta cebellesmeniz gerekebilir

Ekleme :
AstaClientDataSet1.Insert;

Silme:
AstaClientDataSet1.Delete;
AstaClientDataSet1.ApplyUpdates(usmServerTransaction);

duzenleme
AstaClientDataSet1.Edit;

kaydetme
AstaClientDataSet1.ApplyUpdates(usmServerTransaction);

Vazgecme
AstaClientDataSet1.CancelUpdates;


Silme ve update islemini yapabilmek AstaClientDataseti secin ve EditMode ozelligine tiklayin. UpdateTable bolumunden Costumer tablosunu secin, update method kismindan Cached Update secenegini secin ve Primary Key Fiedls bolumunden de CUST_NO alanini isaretleyip OK deyin.

hepsi bu kadar. Programi calistirabilirsiniz

ana makinenin (kendi ipniz) ipsini yazdiktan sonra Tamam diyin ve programi gule gule kullanin….

This entry was posted on Wednesday, February 28th, 2007 at 09:54:40 and is filed under N-Tier, bileşenler, delphi, veritabanları. You can follow any responses to this entry through the RSS 2.0 feed. You can leave a response, or trackback from your own site.