Delphi de DBlistBox Kullanımı

Merhaba arkadaşlar bu makalemizde Delphi de DblistBox kullanımına örnek vereceğim. İlk once Palette kısmından formumuza 1 tane TDBListBox ve TadoTable ekliyoruz. ADOTable nesnesini dbdemos veritabanına bağlayacağız. Bunun icin ADOTable nesnemiz seciliyken Object Inspector penceresinden ConnectionString kısmına tıklıyoruz. Acilan pencerede Use Connection String seciliyken Build butonuna tıklıyoruz. Daha sonra acılan pencerede ilk once 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. Boylece veritabanımızı ADOTable nesnemize bağlamış olduk. Şimdi aşağıdaki kodu Formumuzun acılışına yazalım. Boylece employee tablosundaki FirstName sutunundaki verileri DblistBox nesnemizde gosterimi 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