Merhaba arkadaşlar bu makalemizde Delphi’de DblistBox kullanımına örnek vereceğim. İlk önce Palette kısmından formumuza 1 tane TDBListBox ve TadoTable ekliyoruz. ADOTable nesnesini dbdemos veritabanına bağlayacağız. Bunun için ADOTable nesnemiz seçiliyken Object Inspector penceresinden ConnectionString kısmına tıklıyoruz.
Açılan pencerede Use Connection String seçiliyken Build butonuna
tıklıyoruz. Daha sonra açılan pencerede ilk önce veritabanımızın olduğu yolu
butona tıklayarak tanımlıyoruz. Eğer bağlanacağımız tabloda kullanıcı adı ve
şifresi varsa onları girip, tamam butonuna tıklıyoruz. Böylece veritabanımızı
ADOTable nesnemize bağlamış olduk. Şimdi aşağıdaki kodu Formumuzun açılışına
yazalım. Böylece employee tablosundaki FirstName sütunundaki verileri DblistBox
nesnemizde gösterimi sağlamış olduk.
Şekil 1
unit dblistbox_Unit1; interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils,
System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Data.DB,
Data.Win.ADODB, Vcl.StdCtrls,
Vcl.DBCtrls;
type
TForm1 = class(TForm)
DBListBox1: TDBListBox;
ADOTable1: TADOTable;
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject); begin
with ADOTable1 do begin
open;
while not EOF do
begin
DBlistbox1.items.add(FieldByName('FirstName').AsString);
next;
end;
end;
end;
end.
Bir
makalenin daha sonuna geldik. Bir sonraki makalede görüşmek üzere. Bahadır
ŞAHİN
0 comments:
Yorum Gönder