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

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.