ADOTable İle DbGrid Nesnesinde Filtreme İşlemi

Merhaba arkadaşlar bu makalemizde ADOTable ile DbGrid nesnesinde filtreleme işlemini gerçekleştireceğiz. 

Formumuza Palette kısmından Edit, Button, DBEdit nesneleri ile DataSource ve AdoTable ekleyin.

AdoTable nesnesini seçip Object Inspector Properties kısmındaki ConnectionString kısmına tıklayıp, tablomuzun bulunduğu yolu tanımlayalım. TableName kısmından tablomuzu seçip, son olarak AdoTable in Active özelliğini True yapalım. 

Datasource nesnesini seçip Object Inspector Properties kısmındaki Dataset kısmını ADOTable olarak ayarlayalım. Son olarak DBGrid nesnesini seçip Object Inspector Properties kısmındaki DataSource kısmına formumuza eklediğimiz DataSource nesnesini tanımlayalım.

Bu örneğimizde Qty (Miktar) sütununa göre filtreleme işlemini yapacağız. 

Şekil 1

Şekil 2

unit filter_Unit1;

interface

uses

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

Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Data.DB, Vcl.StdCtrls, Data.Win.ADODB,

Vcl.Grids, Vcl.DBGrids;

type

TForm1 = class(TForm)

DBGrid1: TDBGrid;

DataSource1: TDataSource;

ADOTable1: TADOTable;

Edit1: TEdit;

Button1: TButton;

procedure Button1Click(Sender: TObject);

procedure ADOTable1FilterRecord(DataSet: TDataSet; var Accept: Boolean);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.ADOTable1FilterRecord(DataSet: TDataSet; var Accept: Boolean);

var

Value: Integer;

begin

Value:=ADOTable1['Qty'];

Accept:=Value>StrtoInt(Edit1.Text);

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

ADOTable1.Filtered:=True;

end;

end.

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