//NUH EROĞLU
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, DBCtrls, Grids, DBGrids, DB, ADODB, StdCtrls;
type
TForm1 = class(TForm)
ADOConnection1: TADOConnection;
ADOTable1: TADOTable;
DataSource1: TDataSource;
DBGrid1: TDBGrid;
DBNavigator1: TDBNavigator;
ADOQuery1: TADOQuery;
Button1: TButton;
Button2: TButton;
Button3: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
DataSource1.DataSet:=ADOQuery1;
ADOQuery1.Active:=False;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.add('SELECT Ad FROM veriler WHERE Ad LIKE %');
ADOQuery1.Active:=true;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
DataSource1.DataSet:=ADOQuery1;
ADOQuery1.Active:=False;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('SELECT Soyad FROM veriler');
ADOQuery1.Active:=true;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
DataSource1.DataSet:=ADOTable1;
ADOTable1.Active:=true;
end;
//NUH EROĞLU
end.