Delphi 7 'de Veri tabanı bağlantı ( görsel )

[Ra_eM]

Merhaba arkadaşlar resimde bir örnek yaptım. Benim projem access de bir öğrenci otomasyonu yaptım ancak bunu görsellikle bağlamak istiyorum. Accessde formlarla yaptım ancak delphide görsellik yapmam gerekli.

Access veritabanım hazır bunu resimde gösterdiğim gibi delphiye nasıl yapabilirim?

[CiTiZEN]

merhabalar, eklemek, kaydetmek, silmek vs. gibi işlemleri butonlara bağlamak istiyorsunuz sanırım:
kayıt eklemek için öncelikle insert komutu vermelisiniz

Kod: Tümünü seç

ekle: procedure buttonekle.click;
begin
dataset.insert; 
end;

kaydet: procedure buttonkaydet.click(sender:TObject);
begin
dataset.post;
end;

sil: procedure buttonsil.click;
var q:integer;
begin
dataset.fetchall;
if dataset.recordcount>0 then //kayıt var mı kontrol et
q:=application.messagebox('Kayıt Silinsin mi?','Kayıt Sil',mb_yesno+mb_iconquestion);
if q=mryes then
dataset.delete;
end;

düzenle: procedure buttonduzenle;
begin
dataset.edit;
end;

iptal: procedure buttoniptal;
begin
dataset.cancel;
end;

açılır listelere yüklemek için ise dbcombobox kullan, 
(bütün kayıtları çektiğini farzediyorum)
dbcombobox.items.clear;
dataset.first;
while not (dataset.eof) do
begin
dbcombobox.items.add(dataset.fieldyname('alan adın').value);
dataset.next;
end;

forumda arama yaparak daha fazla sonuca ulaşabilirsiniz, kolay gelsin

[estemacan]

Butonlarla işlem yapacaksan datasetin durumuna göre butonların enabled durumlarını kontrol etmen lazım. Mesela kullanıcı herhangi bir kayıt yapmadan kaydet butonuna basarsa, program dataset edit durumunda değil diye hata mesajı verecektir.
Bir başka seçenekte buton yerine navigator kullanıp

Kod: Tümünü seç

(DBNavigator1.Controls[0] As TNavButton).Caption:='İlk Kayıt';

bu kod ile navigator butonlarına istediğini yazarsın.
controls[0]. buradaki 0 rakamını değiştirerek tüm butonlara erişebilirsin.