Merhaba arkadaşlar bu makalemizde FDConnection ile Sqlite veritabanına bağlanacağız. Sqlite veritabanındaki tablodaki verileri DBGrid nesnesinde gösterimini sağlayacağız. İlk önce Formumuza Palette kısmından FDConnection, FDQuery, Dataset ve DBGrid ekleyin.
Object Inspectorde FDQuery1 in Connection özelliğini FDConnection1
ayarlayın. Yine FDQuery1 in SQL sekmesine tıklayın. Açılan String List Editor
kısmına Sql kodunuzu yazıp OK butonuna tıklayın.
Şimdi FDConnection1 in Driver name kısmını SQLite seçin
veya FDConnection1 e sağ tıklayın. Açılan pencerede Connection Editore tıklayin.
Burada veritabanınızın yolunu ekleyin. Ayrıca veritabanınızda kullanıcı adı ve
şifre varsa onlarıda girip OK butonuna tıklayın.
Şekil 1
DataSource1 nesnesini seçip DataSet özelliğini
FDQuery1 ayarlayalım. Son olarak DBGrid1 nesnesinin DataSource özelliğini DataSource1
yapalım.
Şekil 2
unit Unit1;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils,
System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Data.DB,
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, FireDAC.Comp.DataSet,
FireDAC.Comp.Client, Vcl.Grids,
Vcl.DBGrids, FireDAC.Phys.SQLite,
FireDAC.Phys.SQLiteDef,
FireDAC.Stan.ExprFuncs,
FireDAC.Phys.SQLiteWrapper.Stat;
type
TColorDBGrid = Class(TCustomDBGrid);
TForm1 = class(TForm)
DBGrid1: TDBGrid;
DataSource1: TDataSource;
FDConnection1: TFDConnection;
FDQuery1: TFDQuery;
procedure FormCreate(Sender: TObject);
procedure DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State:
TGridDrawState);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.DBGrid1DrawColumnCell(Sender:
TObject; const Rect:
TRect;
DataCol: Integer; Column: TColumn; State:
TGridDrawState);
begin
with TColorDBGrid(Sender) do begin
if DataLink.ActiveRecord = Row - 1 then begin
Canvas.Brush.Color := clLime;
Canvas.Font.Color := clFuchsia;
end
else begin
Canvas.Brush.Color := clWindow;
Canvas.Font.Color := clWindowText;
end;
DefaultDrawColumnCell(Rect, DataCol, Column, State);
end; end;
procedure TForm1.FormCreate(Sender: TObject); begin
FDConnection1.Close;
FDConnection1.Params.Clear;
FDConnection1.Params.Add('DriverID=SQLite');
FDConnection1.Params.Add('Database=D:\geo.sqlite');
FDConnection1.Open;
FDQuery1.Open;
end;
end.
Bir makalenin daha sonuna geldik. Bir sonraki makalede
görüşmek üzere. Bahadır ŞAHİN
0 comments:
Yorum Gönder