Konuyu Paylaş : facebook gplus twitter

Konuyu Oyla:
  • Derecelendirme: 4/5 - 1 oy
  • 1
  • 2
  • 3
  • 4
  • 5
Delphi'de Veritabanı İle Kullanıcı Ekleme
#1
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 Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol 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


Exclamation  İ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.
Devam edelim;

BLvE4g.png


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. 


Exclamation  UYARI: Bileşen isimleri yeni başlayanlar için değiştirilmemiştir, programlama esnasında bileşen adlandırmanızı şiddetle tavsiye ederim.

G9PEDN.gif

Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol | GitHub



Saygılarımla,
İyi çalışmalar.
Eski dos'tan windows olmaz.
Cevapla

Konuyu Paylaş : facebook gplus twitter



Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  Delphi'de Indy SMTP ile e-mail gönderme. (GMail, Yandex, Yahoo vb.) csunguray 6 383 09-04-2018, Saat: 02:34
Son Yorum: dkadir
  Delphi Direktif Kullanımı narkotik 3 186 12-03-2018, Saat: 00:44
Son Yorum: mcuyan
  Delphi'de AES şifreleme (AES128, AES192, AES256) csunguray 1 160 20-02-2018, Saat: 13:50
Son Yorum: klavye
  Delphi Firemonkey Local İp Adresi Öğrenme esrehmaan 12 1.552 15-02-2018, Saat: 15:15
Son Yorum: elixir84
  Delphi IDE'sine Eklenti Yapmak - 2 SimaWB 23 908 08-01-2018, Saat: 14:09
Son Yorum: witalihakko



Konuyu Okuyanlar: 1 Ziyaretçi