My Sql Veritabanında Arama Yapmak ve Arama Sonucunu DBGrid de Göstermek

Merhaba arkadaşlar bu makalemizde MS Sql e UniConnection ile bağlanacağız. UniConnection ile bağlantı nasıl yapılır konusunu daha önceki makalemizde detaylı anlatmıştım. Önceki makaleyi okumak için buraya tıklayabilirsiniz.

Formumuza Palette kısmından Edit, Button, DBGrid, UniConnection, UniQuery, MySQLUniProvider ve DataSource nesnesi ekleyin.

UniConnection nesnesine sağ tıklayıp, açılan pencerede Connection Editor’ e tıklayın. My Sql veritabanına bağlanacağımız için aşağıdaki gibi düzenlemeyi yapıp, OK butonuna tıklayın.

Şekil 1

Şekil 2

Şekil 3

unit mysql_uniquery_Unit1;

interface

uses

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

Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Data.DB, Vcl.StdCtrls, Vcl.Grids,

Vcl.DBGrids, DBAccess, Uni, MemDS, UniProvider, MySQLUniProvider;

type

TForm1 = class(TForm)

UniQuery1: TUniQuery;

DataSource1: TDataSource;

UniConnection1: TUniConnection;

DBGrid1: TDBGrid;

Edit1: TEdit;

btnSearch: TButton;

MySQLUniProvider1: TMySQLUniProvider;

procedure btnSearchClick(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.btnSearchClick(Sender: TObject);

begin

with UniQuery1 do

begin

Close;

SQL.Clear;

SQL.Add('Select * From person Where Name =:name');

ParamByName('name').Value:=Edit1.Text;

Open;

end;

end;

end.

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