Sayfa: [1]   Aşağı git
  Yazdır  
Gönderen Konu: Delphi İle Veritabanı Örnek Uygulama (Paradox)  (Okunma Sayısı 5121 defa)
0 Üye ve 1 Ziyaretçi konuyu incelemekte.
JoKeR
Rock On Roal
Administrator
*

Karma: 112
Offline Offline

Cinsiyet: Bay
Mesaj Sayısı: 1291



Üyelik Bilgileri
« : 22 Şubat 2008, 12:05:40 »

Örnek Program

   Bir programda ilk önce yapılacak iş veritabanını(database) ayarlamaktır. Hocamın bana öğrettiği gibi başlamak istiyorum. Ona minnettarım. Teşekkür Ederim Hocam.

Delphi yi bilgisayarınıza kurduğunuzda(Delphi 7 Kurduğumuzu varsayıyorum) veritabanı sürücüleri ile veritabanının yöneticisini de kurar. Bu DATABASE DESKTOP tır. Başlat > Programlar > Borland Delphi 7 > Database Desktop  yönergesi ile ulaşabilirsiniz. Programı yazmaya başlamadan ayarlamamız daha iyi olur. tabi istersek sonrada ekleme veya çıkarma yapabiliriz. Bir işletme için müşteri takip programı yazalım. Tablo oluşturarak başlayalım. Bu Tablo Programımızda gireceğimiz kayıtları tuttuğumuz veritabanımız olacak. Bunun için DataBase Desktop ı çalıştırıp File > New > Table komutunu veriyoruz.
 
Resimlerin Görüntülenmesine Izin Verilmiyor
Resimleri Görebilmek Için Üye Ol veya Giris Yap
 
Paradox 7 yi seçiyoruz OK tuşuna basıyoruz. Aşağıdaki resim gibi veritabanımızda kullanacağımız alanları oluşturuyoruz.

Resimlerin Görüntülenmesine Izin Verilmiyor
Resimleri Görebilmek Için Üye Ol veya Giris Yap
 
Field Name : Alan Adı            Type : Tip         

MusNo                           N : Number(Numerik)

Adi                               A : Alpha(Alfabetik)

Soyadi                            A : Alpha(Alfabetik)

Telefon                           N : Number(Numerik)

Adres                            A : Alpha(Alfabetik)

Ve Size, uzunluk.

4. sütun olan "Key" ise kayıtları sıralamada kullanılacak anahtarların gösterildiği sütundur. Biz bu tablo da müşteri numarasını anahtar alan olarak ayarladık.

Bitirmek için Save As.. tuşuna basıyoruz. C sürücüsünün altına Data diye bir klasör açtım ben. ve bu veritabanını oraya kaydetmek istiyorum. Veritabanımın ismini "data" olarak koymak istiyorum.  C:\Data\data.db olarak kaydediyorum.

Programımızda kullanacağımız veritabanını hazırlamış bulunuyoruz. Şimdi programımızı hazırlayıp bağlantılarını yapalım.

Delphi ye geçiyoruz. Programı ilk açtığımızda uygulama için hazır form1 isimli pencere önümüzde duruyor zaten. Buraya Component Palet in Stansart Sayfasından  4 adet buton koyalım. Yine aynı sayfadan 5 adet Label(Kullanıcıyı  bilgi giriş alanları hakkında bilgilendirmek için kullandığımız ve Bileşen paletinde Standart sayfasında ki "A" harfi ile belirtilen tuştur) yerleştiriyoruz.
Resimlerin Görüntülenmesine Izin Verilmiyor
Resimleri Görebilmek Için Üye Ol veya Giris Yap
 
Şimdi komponent palet üzerinde Data Controls sayfasına geçiyoruz. 5 adet DBEdit ve 1 tanede DBGrid yerleştiriyoruz.

Resimlerin Görüntülenmesine Izin Verilmiyor
Resimleri Görebilmek Için Üye Ol veya Giris Yap

Şimdide Data Acces sayfasından DataSource bileşeninden yerleştiriyoruz. Son olarak ta BDE sayfasından Query bileşeninden yerleştiriyoruz.

Arkadaşlar kitaplarda böyle bir uygulama için normal edit ve veritabanını bağlamak içinde Table bileşeni kullanılır. Kitap her zaman elinizin altında. Bunları ise çok fazla kimse göstermez. Siz böyle bir uygulama için hem benim gösterdiğim gibi hem de kitaplarda gösterildiği gibi yapın. İlerledikçe bilgiyi elde etmenin her yolu mübahtır sözü ile hangisini kullanmanızın daha kolay veya kullanışlı olacağına karar verirsiniz Resimlerin Görüntülenmesine Izin Verilmiyor
Resimleri Görebilmek Için Üye Ol veya Giris Yap

Şimdi eğer yönergeleri doğru takip ettiysek aşağıdaki gibi bir görüntü almalıyız. Ben Label lerin ve Butonların Caption özelliği ile görünen isimlerini değiştirdim. Ve sayfa düzenini kafama göre yaptım. Siz de istediğiniz gibi yapın. Aynı şekilde yapmayın. Ezberciliğe de kaçmayın.

Resimlerin Görüntülenmesine Izin Verilmiyor
Resimleri Görebilmek Için Üye Ol veya Giris Yap
 
Şimdi veritabanımızın bağlantılarını yapalım. ÖncelikleResimlerin Görüntülenmesine Izin Verilmiyor
Resimleri Görebilmek Için Üye Ol veya Giris YapQuery bileşenine Veritabanımızın nerede olduğunu gösterelim. Bunun için Object İnspector penceresinde özellikler kısmındaki DatabaseName ine veritabanımızı kaydettiğimiz yeri yazalım. Yani " C:\Data\ " yazalım. Sonra " RequestLive " özelliğini de " true " yapalım.

Resimlerin Görüntülenmesine Izin Verilmiyor
Resimleri Görebilmek Için Üye Ol veya Giris Yap
 
Sonra da  " SQL " özelliğinde (TString) yazısına çift tıklayarak açılan pencereye " Select * From Data.DB " yazalım.

Burada yazdığımız cümle bir SQL cümlesidir.

"Select" i  database i seçmek için yazdık.

"*" yıldız işaretini ise Veritabanımızdaki tüm alanları seçmek için yazdık.

"From" u seçeceğimiz veritabanını göstermek için yazdık.

"Data.db" ise C:\Data\ yolu ile belirttiğimiz adresteki Data.db dosyasını belirtmek için kullandık.
Bir programda birden fazla veritabanı olabilir.

DataSource bileşeninin DataSet özelliğine tıkladığınızda "Query1" yazısını göreceksiniz. DataSet özelliğini Query1 olarak atadıktan sonra DBGrid in DataSource özelliğini de DataSource1 olarak belirliyoruz. Bu işlemden sonra DBGrid in içindeki alanların değiştiğini görmeliyiz. İlk başta veritabanı dosyamızı hazırlarken ki belirttiğimiz alanları göreceğiz. Veritabanımıza eklediğimiz bilgileri orada göreceğiz.

Kod yazmaya geçmeden önce DBEdit lerimizi de veritabanına bağlamalıyız. Bunun içinse, DBEdit lerimizi SHIFT tuşuna basılı olarak seçiyoruz. Ama sadece DBEdit leri seçtiğimizden emin olalım. Object Inspector penceresinde DataSource özelliğini " DataSource1 " olarak belirliyoruz. Sonra dbeditlerimizin üstündeki yazılarına göre teker teker veritabanımızın hangi alanındaki bilgilerini etkileyeceğini belirteceğiz. Bunun içinde yine Object Inspector penceresinden " DataField " özelliğini değiştiriyoruz. Aşağıdaki resimde, Veritabanımızda "MusNo" olarak belirttiğimiz alanı DBEdit1 in DataField seçeneğine işaretliyoruz. Burası biraz karıştı gibi dimi Resimlerin Görüntülenmesine Izin Verilmiyor
Resimleri Görebilmek Için Üye Ol veya Giris Yap bir resim koyalım. DBEdit1 in DataSource ve DataField özelliğinin doğru şekli var. Diğerlerini de ona göre ayarlayın.
 
Resimlerin Görüntülenmesine Izin Verilmiyor
Resimleri Görebilmek Için Üye Ol veya Giris Yap

Dikkat ettiyseniz DBEdit1 in Data... özelliklerini belirlemeden önce içinde diğerleri gibi ismi yazıyordu. Ama şimdi yazmıyor dimi. Data..... özellikleri ayarlanınca o DBEdit in içerisindeki yazı silinir. Bunda bir sakınca yoktur Resimlerin Görüntülenmesine Izin Verilmiyor
Resimleri Görebilmek Için Üye Ol veya Giris Yap

Şaka tabi. Neyse Devam ediyoruz.

Diğer DBEdit leri de benzer şeklide Data..... özelliklerini ayarlıyoruz. Ve bundan sonra Kod Yazmaya Geçebiliriz.

Önce Ekle  tuşumuzu çalıştırmak için yazalım. Yazalım yazalım da ne yazalım? Şimdi Ekle tuşunun üzerinde çift tıklayarak kod düzenleyici sayfasına geçelim. Geçtik mi? Geçtik.
Kod:
Query1.Insert;
   Query1.Edit;
   DBEdit1.SetFocus;

" yazıyoruz. Bunları ne için yazdığımızı kod yazma işi bitince açıklayacağım.

Kaydet tuşuna çift tıklayarak kod düzenleyici sayfasına geçtiğimiz de

"
Kod:
Query1.Edit;
  Query1.Post;
  Button1.SetFocus;

" yazıyoruz.

Sil tuşuna ise

"
Kod:

Query1.Delete;
  Button4.SetFocus;

" yazıyoruz.

Kapat tuşuna ise

Kod:
Close;

"   yazıyoruz.

Resimlerin Görüntülenmesine Izin Verilmiyor
Resimleri Görebilmek Için Üye Ol veya Giris Yap
 
Bunları doğru yazdıysak yandaki gibi bir görüntü almamız lazım.

Kodları yazarken 'Procedure' satırının altında

begin
.........kodlar............
end;

şeklinde olmalıdır ve nesnelerin tanımlamalarında-isimlerinde Delphi kodlamasında kullanılan terimleri yazmamalısınız(Örnek : "String, Integer, Word,....). Yazdıklarımızda gördüğünüz gibi karakterin büyük veya küçük olması sorun değildir ama İngılızce de kullanılan harflerin dişina çıkamazsınız. Yani Türkçe ye özgü karakterleri kullanamıyoruz.

Bu yazdığımız koların açıklamalarına gelince ;

"Query1.Insert;" : Query yani Sorgu bileşeni yardımıyla hazırladığımız veritabanına yeni bir veri girişi için tablo da yer açmasını söylüyoruz.

"Query1.Edit;" : Bununla Insert komutu ile eklemek istediğimiz verileri yazabilelim diye edit(yani düzenleme) anına geçmesini söylüyoruz.

"Query1.Post;" :Bununla ekleyeceğimiz veriyi yazmayı bitirip kaydetmek istediğimizi söylüyoruz.

"Query1.Delete;" : Bununla da silmek istediğimiz bilgiyi silmesi için Query1 bileşeni yardımıyla emrimizi yerine getirmesini söylüyoruz.

".SetFocus;" : DBEdit1, Button1 ve Button4 nesnelerinden sonra koyduğum bu setfocus yazısı ise kullanıcıya program arayüzünü kullanmasında kolaylık sağlamak içindi.  Ekle tuşu işini bitirdiğinde kullanıcının numara yazması için gereken alana, kendi, fare ile gelip tıklamasın, ona kolaylık sağlayalım diye DBEdit1.SetFocus yazdık.

"Close;" : Bununla da programı kapatmasını sağladık.

Kod Yazma işini bitirmiş bulunuyoruz. Şimdi F9 tuşuna basalım. İşte Müşteri Takip Programımız hazır. Doğru yaptıysanız aşağıdaki gibi bir görüntü olmalı. Tabi eklenen kayıtlar hariç Resimlerin Görüntülenmesine Izin Verilmiyor
Resimleri Görebilmek Için Üye Ol veya Giris Yap
 
Resimlerin Görüntülenmesine Izin Verilmiyor
Resimleri Görebilmek Için Üye Ol veya Giris Yap
 
Görünümü güzelleştirmek amacıyla bir iki rutuş yapalım. Öncelikle Programımızın sol üst köşesindeki ve Görev Çubuğunda ki ismi Form1 olmasın diyoruz. Bunun için form da boş bir yere tıklıyoruz. Object Inspector de Caption özelliğine uzun olmamak şartıyla Programı açıklayıcı kelimeler yazıyoruz.

Sonra Başlat > Programlar > Borland Delphi7 > İmage Editör ile programımıza bir ikon yapıyoruz. Bu yaptığımız ikonu programımızın ikonu olarak göstermek içinde, Delphi de menülerden Project > Options a tıklıyoruz. Application sekmesinde simge-ikon u görürsünüz. Load Icon tuşuna basarak İmage Editör yardımı ile yaptığımız ikonun yerini gösteriyoruz. Ok tuşuna basıp kaydediyoruz.

Forum, butonlar, DBEditler veya dbgrid in görünümü(Renk, Şekil, Dizilim vb.) nü, Object inspector penceresi ile yaptığınız değişikliklerle de programınızın görünüşünü güzelleştirebiliriz.

Sizin aramaya uğraşacağınız birşeyi göstereyim. DBGrid de Object İnspector > Options ta dgRowSelect ve dgAlwaysShowSelection özelliklerini True yapın.

Arkadaşlar şuan çok küçük bir uygulama bitirmiş bulunuyoruz. Delphi nin genel ve kısa Resimlerin Görüntülenmesine Izin Verilmiyor
Resimleri Görebilmek Için Üye Ol veya Giris Yap başlangıcı böyledir veya yakındır. Ben hocam dan böyle öğrendim. Şimdi eğer hala yazılım yapmak istiyorum diyorsanız aşağıdaki yazdıklarımı iyi öğrenin. Bu aşağıdakiler başlangıç aşamasından sonraki aşama için idealdir.

1) Veritipleri
2) Değişkenler
3) Karar Yapıları ve Döngüler
4) ve yukarıda geçen bilmediğiniz terimler...

 

Bir Sonraki Dersimizde İnşallah Daha büyük bazda bir uygulama geliştireceğiz ve Veritabanımızı da FireBird de düzenleyeceğiz. Herkese Kolay Gelsin.(Son olarak küçük bir NOT. Eğer bilgisayar başında çok duruyorsanız ekran çözünürlüğünü ve MHZ sini ayarlamanızı tavsiye ederim. Göz Sağlığınız çok önemli. 1024*768 den aşağı kullanmanız iyi olur. Ekran da 85 MHZ de çalışsın.)

 
Logged

10 Konusu Olmayan Soru Sormasın Soruları Cevaplanmayacak...

Linklerin Görülmesine Izin Verilmiyor
Linki Görebilmek Için Üye Ol veya Giris Yap
attila159
Ziyaretçi
« Yanıtla #1 : 07 Nisan 2008, 23:02:30 »

kerdeş allah razı cok makbule gecti bitirme projesi vardı bi bulamamıştım bunları cok sağol.
Logged
JoKeR
Rock On Roal
Administrator
*

Karma: 112
Offline Offline

Cinsiyet: Bay
Mesaj Sayısı: 1291



Üyelik Bilgileri
« Yanıtla #2 : 08 Nisan 2008, 02:00:46 »

attila159
Kardeşim Biraz Bile Olsa Yardımcı Olabildiysem Ne Mutlu Bize Allah Senden De Razı Olsun
Logged

10 Konusu Olmayan Soru Sormasın Soruları Cevaplanmayacak...

Linklerin Görülmesine Izin Verilmiyor
Linki Görebilmek Için Üye Ol veya Giris Yap
yaren_01
Yeni Üye
*

Karma: 0
Offline Offline

Cinsiyet: Bay
Mesaj Sayısı: 2


Üyelik Bilgileri
« Yanıtla #3 : 29 Nisan 2008, 15:02:09 »

kardeş dbgrid içerisi degiş miyor hani m.no adı soyadı falan var ya işte o dbgrid içerisine gelmiyor yardımcı olabilirmisin acaba

şimdiden teşekkür ederi ellerine saglık
Logged
JoKeR
Rock On Roal
Administrator
*

Karma: 112
Offline Offline

Cinsiyet: Bay
Mesaj Sayısı: 1291



Üyelik Bilgileri
« Yanıtla #4 : 29 Nisan 2008, 15:34:39 »

datanın yolunu tam vermezsen gelmez ...

Arkadaslar Bu İşi Yapamayanlar İçin Bu Projeyi Hazırlıyorum Ek Olarak İndirir Bakar Sınız ...
« Son Düzenleme: 29 Nisan 2008, 15:49:54 Gönderen: JoKeR » Logged

10 Konusu Olmayan Soru Sormasın Soruları Cevaplanmayacak...

Linklerin Görülmesine Izin Verilmiyor
Linki Görebilmek Için Üye Ol veya Giris Yap
JoKeR
Rock On Roal
Administrator
*

Karma: 112
Offline Offline

Cinsiyet: Bay
Mesaj Sayısı: 1291



Üyelik Bilgileri
« Yanıtla #5 : 29 Nisan 2008, 17:31:52 »

Linklerin Görülmesine Izin Verilmiyor
Linki Görebilmek Için Üye Ol veya Giris Yap
http://uploaded.to/?id=i6chex

 
Rar Pass: visualbasicturk.net
 
Gülümseme çalışıyomuş demkki
 
Resimlerin Görüntülenmesine Izin Verilmiyor
Resimleri Görebilmek Için Üye Ol veya Giris Yap
Logged

10 Konusu Olmayan Soru Sormasın Soruları Cevaplanmayacak...

Linklerin Görülmesine Izin Verilmiyor
Linki Görebilmek Için Üye Ol veya Giris Yap
yaren_01
Yeni Üye
*

Karma: 0
Offline Offline

Cinsiyet: Bay
Mesaj Sayısı: 2


Üyelik Bilgileri
« Yanıtla #6 : 29 Nisan 2008, 19:33:12 »

teşekkürler ben yapamamıştım
Logged
JoKeR
Rock On Roal
Administrator
*

Karma: 112
Offline Offline

Cinsiyet: Bay
Mesaj Sayısı: 1291



Üyelik Bilgileri
« Yanıtla #7 : 30 Nisan 2008, 00:11:38 »

Arkadaslar Proje Halinde Hazırladığım Halde Hala Ben Anlamadım Diosanız Bunu Küçümsediğimden Yada Başka Bişeyden Dolayı Demiyorum Olabilir İnsanlık Hali Herkes Herşeyi yapabilecek Diye Birşey Yok Yanlış Anlamayın Yani... Neyse Birde Videolu Ders Hazırladım

Linklerin Görülmesine Izin Verilmiyor
Linki Görebilmek Için Üye Ol veya Giris Yap

Burdan İndire Bilirsiniz..
« Son Düzenleme: 07 Mayıs 2008, 04:26:04 Gönderen: JoKeR » Logged

10 Konusu Olmayan Soru Sormasın Soruları Cevaplanmayacak...

Linklerin Görülmesine Izin Verilmiyor
Linki Görebilmek Için Üye Ol veya Giris Yap
mysticwolf
Yeni Üye
*

Karma: 0
Offline Offline

Cinsiyet: Bay
Mesaj Sayısı: 1


Üyelik Bilgileri
« Yanıtla #8 : 07 Ağustos 2008, 14:50:59 »

abi bir'de şu database desktopu nerden açtıgını  gosterdeydin
Logged
JoKeR
Rock On Roal
Administrator
*

Karma: 112
Offline Offline

Cinsiyet: Bay
Mesaj Sayısı: 1291



Üyelik Bilgileri
« Yanıtla #9 : 08 Ağustos 2008, 01:48:35 »

"C:\Program Files\Common Files\Borland Shared\Database Desktop\DBD32.EXE"

yaz açılır

başlat programlar delphi 7 altında da var
Logged

10 Konusu Olmayan Soru Sormasın Soruları Cevaplanmayacak...

Linklerin Görülmesine Izin Verilmiyor
Linki Görebilmek Için Üye Ol veya Giris Yap
al-kan
Yeni Üye
*

Karma: 0
Offline Offline

Cinsiyet: Bay
Mesaj Sayısı: 14


Üyelik Bilgileri
« Yanıtla #10 : 19 Ekim 2008, 11:09:09 »

Linklerin Görülmesine Izin Verilmiyor
Linki Görebilmek Için Üye Ol veya Giris Yap

Başka Pclerde Bu Hatayı Verior Bende Bİşi Yok AMa:S
Logged
NeverFear
Acemi Üye
**

Karma: 0
Offline Offline

Cinsiyet: Bay
Mesaj Sayısı: 30



Üyelik Bilgileri
« Yanıtla #11 : 20 Ekim 2008, 00:00:07 »

al-kan demiş ki;
Başka Pclerde Bu Hatayı Verior Bende Bİşi Yok AMa:S

bunun nedeni o pc'lerde bde kurulu olmaması. BorlandDatabaseEngine hatası veriyor. bahsi geçen pc'lere bde kurduğunda bu hata ortadan kalkacaktır.


Ayrıca;
program içinden de kodlama ile veritabanı oluşturabilirsiniz. bu konuyu aşağıdaki linkte anlatmıştım.

Linklerin Görülmesine Izin Verilmiyor
Linki Görebilmek Için Üye Ol veya Giris Yap
http://www.visualbasicturk.net/forum/program_icinden_veritabani_olusturma-t7537.0.html
« Son Düzenleme: 20 Ekim 2008, 00:13:57 Gönderen: NeverFear » Logged
barracuda_88
Yeni Üye
*

Karma: 0
Offline Offline

Cinsiyet: Bay
Mesaj Sayısı: 2


Üyelik Bilgileri
« Yanıtla #12 : 03 Ocak 2009, 23:21:45 »

ya ben bu uygulamayı accesle bağlantılı olarak yaptım,      Query1'lerde hata weriyo yerine ne yazabilirim?Ney??
Logged
Sayfa: [1]   Yukarı git
  Yazdır  
GoogleTagged

 
Gitmek istediğiniz yer: