08-02-2018, Saat: 01:18
(Son Düzenleme: 08-02-2018, Saat: 01:20, Düzenleyen: Halil Han BADEM.
Sebep: Yazım Hataları
)
Herkese selamlar,
Bu yazımda Access veritabanı ile kullanıcı nasıl ekleyeceğimizi anlatmaya çalışacağım. Tabi bu başlangıç seviyeler için güzel bir yazı olduğuna inanıyorum. İlk olarak Delphi'de Veritabanı İle Kullanıcı Girişi adlı yazımı okuyup öyle devam etmenizi istiyorum çünkü bu yazı devamı niteliğinde. İsterseniz yavaştan başlayalım.
Kullanacığımız bileşen seti: UniDac
Testin yapılacağı Delphi IDE versiyonu: Delphi XE10.2
Kullandığımız veritabanı: Access
İlk olarak bir kayıt formu oluşturuyoruz. Bu formu istediğiniz gibi oluşturabilirsiniz ama formunuzda bulunması gereken bileşenler şunlardır;
Kayıt butonu kodları
Bu işlemlerin ardından artık programımız güzelce kaydını yapabilir durumda. Dediğim gibi istediğiniz kadar veritabanında alan açabilir ve alanları tanımlayarak sonrasında param tanımı yaparak kaydınızı gerçekleştirebilirsiniz.
UYARI: Bileşen isimleri yeni başlayanlar için değiştirilmemiştir, programlama esnasında bileşen adlandırmanızı şiddetle tavsiye ederim.
Saygılarımla,
İyi çalışmalar.
Bu yazımda Access veritabanı ile kullanıcı nasıl ekleyeceğimizi anlatmaya çalışacağım. Tabi bu başlangıç seviyeler için güzel bir yazı olduğuna inanıyorum. İlk olarak Delphi'de Veritabanı İle Kullanıcı Girişi adlı yazımı okuyup öyle devam etmenizi istiyorum çünkü bu yazı devamı niteliğinde. İsterseniz yavaştan başlayalım.
Kullanacığımız bileşen seti: UniDac
Testin yapılacağı Delphi IDE versiyonu: Delphi XE10.2
Kullandığımız veritabanı: Access
İlk olarak bir kayıt formu oluşturuyoruz. Bu formu istediğiniz gibi oluşturabilirsiniz ama formunuzda bulunması gereken bileşenler şunlardır;
- 1 adet UniConnection, UniQuery, AccessUniProvider, Button ekleyiniz.
- 2 adet edit, label ekleyiniz.
Ben böyle bir tasarım yapmış oldum;
Şimdi ise formumuzun onShow olayına veritabanı bağlantı kodlarını yazalım:
with UniConnection1 do begin try ProviderName := 'Access'; //Hangi tür veritabanı istediğimiz belirtiyoruz. Database := ExtractFilePath(Application.ExeName) + 'data.mdb'; //veritabanı yolumuzu belirtiyoruz. Connected := True; //Bağlantıyı açıyoruz. ShowMessage('Veritabanı bağlantısı sağlandı!'); except ShowMessage('Veritabanı bağlantı hatası!'); end; end;
Bu şekilde bağlantımızı gerçekleştirmiş olduk.
Sıra geldi kayıt butonunun kodlarına. Veritabanında bulunan telefon bölümüne kayıt eklemedim istediğiniz kolon sayısı kadar parametre tanımı yapıp kaydınızı gerçekleştirebilirsiniz.
Kayıt butonu kodları
with UniQuery1 do begin try Connection := UniConnection1; ///Hangi Connection bağlı olması gerektiğini belirtiyoruz. Close; //Bağlantıyı kapatıyoruz SQL.Clear; //SQL temizliği yapıyoruz. SQL.Text := 'insert into KullaniciGiris(KAdi, KSifre) VALUES(:KAdi, :KSifre)'; //SQL kayıt sorgusunu yazıyoruz. ParamByName('KAdi').Value := Edit1.Text; //Parametre tanımı yapıyoruz. ParamByName('KSifre').Value := Edit2.Text; //Parametre tanımı yapıyoruz. ExecSQL; ///SQL sorgusunu çalıştıyoruz. ShowMessage('Kullanıcı kaydınız tamamlanmıştır!'); except ShowMessage('Kayıt yapılırken hata oluştu!'); end; end;
Bu işlemlerin ardından artık programımız güzelce kaydını yapabilir durumda. Dediğim gibi istediğiniz kadar veritabanında alan açabilir ve alanları tanımlayarak sonrasında param tanımı yaparak kaydınızı gerçekleştirebilirsiniz.
UYARI: Bileşen isimleri yeni başlayanlar için değiştirilmemiştir, programlama esnasında bileşen adlandırmanızı şiddetle tavsiye ederim.
Kaynak Kodları | GitHub
Saygılarımla,
İyi çalışmalar.