DBCtrlGrid Kullanımı ve SqlLite Bağlantısı

Merhaba arkadaşlar bu makalemizde DBCtrlGrid örneği yapacağız. DBCtrlEdit içerisine ekleyeceğimiz DBEdit ve DBMemo da SqlLite database deki tablodaki verileri göstereceğiz. Formumuza ekleyeceğimiz DBNavigator ile database mizinde ki kayıtlar arasında dolaşacağız.

Formumuza FDQuery, FDConnection ve DataSource ekliyoruz.

DBCtrlEdit   içerisine eklediğimiz DBEditler  ve DBMemo nun DataSource ünü DataSource1 seçiyoruz. Bu nesnelerin DataField özelliğinde de tablomuzdaki sütunları seçiyoruz. 

FDQuery in SQL kısmına,   Sql komutumuzu yazıyoruz. DataSource un DataSet kısmında FDQuery1 i seçiyoruz. Son olarak DBNavigator ün DataSource kısmında DataSource1 i seçiyoruz.

Şekil 1

unit Unit1;

interface

uses

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

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

Vcl.ExtCtrls, Vcl.Buttons, Vcl.DBCGrids, FireDAC.Stan.Intf,

FireDAC.Stan.Option, FireDAC.Stan.Error, FireDAC.UI.Intf, FireDAC.Phys.Intf,

FireDAC.Stan.Def, FireDAC.Stan.Pool, FireDAC.Stan.Async, FireDAC.Phys,

FireDAC.VCLUI.Wait, FireDAC.Stan.Param, FireDAC.DatS, FireDAC.DApt.Intf,

FireDAC.DApt, Data.DB, FireDAC.Comp.DataSet, FireDAC.Comp.Client,

FireDAC.Phys.SQLite, FireDAC.Phys.SQLiteDef, FireDAC.Stan.ExprFuncs,

FireDAC.Phys.SQLiteWrapper.Stat;

type

TForm1 = class(TForm)

DBCtrlGrid1: TDBCtrlGrid;

DBNavigator1: TDBNavigator;

DBEdit1: TDBEdit;

DBEdit2: TDBEdit;

DBEdit3: TDBEdit;

DBEdit4: TDBEdit;

DBEdit5: TDBEdit;

DBMemo1: TDBMemo;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

FDConnection1: TFDConnection;

FDQuery1: TFDQuery;

DataSource1: TDataSource;

procedure FormCreate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);

begin

FDConnection1.Close;

FDConnection1.Params.Clear;

FDConnection1.Params.Add('DriverID=SQLite');

FDConnection1.Params.Add('Database=D:\geo2.sqlite');

FDConnection1.Open;

FDQuery1.Open;

end;

end.

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