DBCtrlGrid de MySql Veritabanındaki Verileri Sıralı Göstermek

 Merhaba arkadaşlar bu makalemizde MySql veritabanına bağlanacağız.

Formumuza 1 adet DBCtrlGrid ekleyelim. DBCtrlGrid içerisine 5 adet Label ve  5 adet DBEdit nesnesi ekleyelim. Ayrıca formumuza 1 er adet DataSource, FDConnection ve FDQuery ekleyelim.

 

FDConnection nesnesine sağ tıklayalım. Açılan pencerede Connection Editor e sol tıklayalım.

 

 

 

 

 

 

 

 

 

 

 

 

Şekil 1

 

 

 

 

 

 

 

 

 

 

 

 

Şekil 2

 

 

unit ado_Unit1;

interface

uses

Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,

Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.Mask, Vcl.ExtCtrls,

Vcl.DBCtrls, Data.DB, Data.Win.ADODB;

type

TForm1 = class(TForm)

ADOConnection1: TADOConnection;

ADOTable1: TADOTable;

DataSource1: TDataSource;

DBEdit1: TDBEdit;

Button1: TButton;

DBEdit2: TDBEdit;

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

begin

ADOConnection1.ConnectionString:=('Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Db1.mdb; User Id=Admin;Password=; Persist Security ADOConnection1.Connected:=True;

ADOTable1.Connection:=ADOConnection1;

ADOTable1.TableName:='Musteri';

ADOTable1.Active:=True;

DataSource1.DataSet:=ADOTable1;

DBEdit1.DataSource:=DataSource1;

DBEdit1.DataField:='Adi';

DBEdit2.DataSource:=DataSource1;

DBEdit2.DataField:='Soyadi';

if DBEdit1.Text= '' then

begin

ADOConnection1.Connected:=True;

end;

end;

end.

 

 

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

Share This:

Facebook Twitter Pinterest Linkedin Whatsapp Whatsapp

About Bahadır Şahin

This is a short description in the author block about the author. You edit it by entering text in the "Biographical Info" field in the user admin panel.