evet sonunda cevap olarak bunu buldum süperrrrrrr

[kazimates]

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
Db, Grids, DBGrids, ADODB, StdCtrls, DBCtrls;

type
TForm1 = class(TForm)
ADOConnection1: TADOConnection;
ADOTable1: TADOTable;
DBGrid1: TDBGrid;
DataSource1: TDataSource;
ADOTable1KAYITNO: TBCDField;
ADOTable1KULAKNO: TStringField;
ADOTable1OLAYTAR: TDateTimeField;
ADOTable1OLAYTURU: TStringField;
ADOTable1ACIKLAMA: TStringField;
ADOTable1RGROUPNO: TBCDField;
Edit1: TEdit;
ADOQuery1: TADOQuery;
procedure DBGrid1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure DBGrid1TitleClick(Column: TColumn);
procedure Edit1Change(Sender: TObject);



private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}



procedure TForm1.DBGrid1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
var
pt: TGridcoord;
begin
pt:= DBGrid1.MouseCoord(x, y);

if pt.y=0 then
DBGrid1.Cursor:=crHandPoint
else
DBGrid1.Cursor:=crDefault;
end;

procedure TForm1.DBGrid1TitleClick(Column: TColumn);
{$J+}
const PreviousColumnIndex : integer = 1;
{$J-}
begin

if DBGrid1.DataSource.DataSet is TCustomADODataSet then
with TCustomADODataSet(DBGrid1.DataSource.DataSet) do
begin
try
DBGrid1.Columns[PreviousColumnIndex].title.Font.Style :=
DBGrid1.Columns[PreviousColumnIndex].title.Font.Style - [fsBold];
except
end;

Column.title.Font.Style :=
Column.title.Font.Style + [fsBold];
PreviousColumnIndex := Column.Index;

if (Pos(Column.Field.FieldName, Sort) = 1) and (Pos(' DESC', Sort)= 0) then
Sort := Column.Field.FieldName + ' DESC'
else
Sort := Column.Field.FieldName + ' ASC';
end;
end;


procedure TForm1.Edit1Change(Sender: TObject);
begin

with adoquery1 do
begin
close;
sql.clear;
sql.add('select * from OLAYLARTABLE where KULAKNO like '''+edit1.text+'''');
open;

end;
ADOTable1.Locate('KULAKNO',edit1.text,[loCaseInsensitive, LoPartialKey]);
end;

end.

[t-hex]

Önceki başlığın altına devam etseydiniz. Yanlışlık oldu heralde

[kazimates]

evet malesef yanlışlık ve heyacanla ilgili yerde değilde main menuye gitmiş bunun için umarım admin arkadaşlar kusura bakmazlar vede konuyu ilgili başlığın altına kaydırabilirler.

[fduman]

Ne buldun? Bu ne? KULAKNO???

[aslangeri]

Ne buldun? Bu ne? KULAKNO???

[bobasturk]

olaylar tablosunda kulak no

heralde telekulak

[naile]

Hangi sorunuzun cevabı ise o sorunun devamına yazarsanız bu sonucu biz de bu konuyu silelim.

[kadirkurtoglu]

arkadaş table ile arama işlemleri üzerinde soru soruyordu diğer arkadaşlarda uğraşma Query kullan diye telkinde bulundular. kazımates arkadaşımda bu telkinlere kulak verip, Query like ifadesinin güzelliğinin farkına vardığından biraz heyecanlanıp yeni başlık atmış......

[kazimates]

evet malesef heyacanla olan birşey olduğu kesin