DBGrid Nesnesinde Seçili Satırı ListBoxta Göstermek

Merhaba arkadaşlar bu makalemizde  DBGrid nesnesinde seçili satırı listbox ta göstereceğiz. Formumuza Palette kısmından 1 adet DBGrid, listBox, button ve AdoTable ve DataSource ekleyin. 

Object Inspector kısmından AdoTable in ConnectingString kısmında veritabanınızı yolunu tanımlayın. Tablename kısmından veritabanı tablonuzu seçip, AdoTable in Active özelliğini true yapınız.

Object Inspector kısmından DataSource in Dataset özelliğini AdoTable1 olarak seçiniz. 

Son olarak Object Inspector kısmından DBGrid nesnesinin DataSource özelliğini DataSource1 olarak seçiyoruz.

Şekil 1

unit select_row_Unit1; interface

uses

Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Cl

Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Data.DB, Vcl.StdCtrls, Vcl.Grids,

Vcl.DBGrids, Data.Win.ADODB;

type

TForm1 = class(TForm)

DBGrid1: TDBGrid;

ListBox1: TListBox;

Button1: TButton;

ADOTable1: TADOTable;

DataSource1: TDataSource;

procedure Button1Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject); var

i: Integer;

str : Array[0..6] of string; fieldName:string; begin with DBGrid1 do begin

for i:=0 to FieldCount-1 do begin

//secili satir bilgilerini diziye atiyoruz.

str[i]:=Fields[i].AsString;

fieldName:=fieldName + ' ' + str[i];

end;

end;

//satir verilerini listbox a ekliyoruz.

Listbox1.Items.Add(fieldName);

end;

procedure TForm1.FormCreate(Sender: TObject); var

i:integer;

str : Array[0..6] of string; colName:string;

begin colName:=''; with DBGrid1 do

for i := 0 to DBGrid1.Columns.Count-1 do begin

//dbgrid sutun isimlerini diziye atıyoruz.

str[i]:=DBGrid1.Columns[i].FieldName;

colName:=colName + ' ' + str[i];

end;

//sutun isimlerini listbox a ekliyoruz.

Listbox1.Items.Add(colName);

end;

end.

Bir makalenin daha sonuna geldik. Bir sonraki makalede görüşmek üzere. Bahadır ŞAHİN