grid de arama işlemmi

[otherside]

kolay gelsin arkadaslar ben gridde arama işlemi yapmak istiyorum mesala a bastıgımda a la baslıyanlar b ye bastıgımda ab ile baslayanlar c bastıgımda abc ile baslayanın ustune gitmesiini istiyorum diziler le biraz ugratım ama beceremedim baska yolu varsa yada dizilerle nasıl yapabilirim gridim normal grid ve kod yazarsanız sevinirim mantık olarak biliyorum sayılr

[vedatkaba]

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
var
a:String ;
begin
Query1.Close;
Query1.SQL.Clear;
Query1.SQL.Add('select* from deneme where Adi like "'+Edit1.Text+'%"');
Query1.Open;

bu sana bir fikir verir belki
denemedim ama sözlüklerde kullanılan teknik gibi diyorsan..

[mege]

locate

viewtopic.php?p=785#785

[husonet]

Ben şu şekilde yapıyorum işimi görüyor.

Kod: Tümünü seç

procedure TFrm_CariKartIsl.FormKeyPress(Sender: TObject; var Key: Char);
var
    tur:Integer;
begin
    tur := Length(Caption);
    if (key in ['A'..'Z']) or (key in ['a'..'z']) or
        (key in ['ğ','ü','ş','ı','ç','ö']) or (key in['Ğ','Ü','Ş','Ç','İ','Ö']) OR
         (key in ['0'..'9']) or (key in ['.', ',' ,'+','-','*','/', ' ']) then
    begin
        if cxGrid1DBTableView1CARI_KOD.SortIndex = 0 Then
        Begin
            if Tur = 12 then //caption un Default karekter sayısı
                caption := caption + ' [' + Key
            Else
                caption := caption + Key;
            CariDataSet.Locate('CARI_KOD',copy(caption, 15, length(caption)), [loCaseInsensitive] + [loPartialKey]);
        End
        Else
        if cxGrid1DBTableView1CARI_UNVAN.SortIndex = 0 Then
        begin
            if Tur = 12 then //caption un Default karekter sayısı
                caption := caption + ' [' + Key
            Else
                caption := caption + Key;
            CariDataSet.Locate('CARI_UNVAN',copy(caption, 15, length(caption)), [loCaseInsensitive] + [loPartialKey]);
        End;
    End
    else
        Caption := 'Cari Kartlar';

Kolay Gelsin...

[mcihad]

zannedersen dxGridde böyle bir özellik vardı sen yazdıkça o bulduğu kayda odaklanıyor CTRL+Enter ilede sonrakini buluyordu veya jedi içinde dbgrid var bide dbsearchedit olması gerekiyor ikisini kullanarakta yapabilirsin

[kite]

konudışı

Kod: Tümünü seç

    if (key in ['A'..'Z']) or (key in ['a'..'z']) or
        (key in ['ğ','ü','ş','ı','ç','ö']) or (key in['Ğ','Ü','Ş','Ç','İ','Ö']) OR
         (key in ['0'..'9']) or (key in ['.', ',' ,'+','-','*','/', ' ']) then

Ben
if (key in ['A'..'Z','a'..'z','ğ','ü','ş','ı','ç','ö']).... şeklinde kullanıyorum daha pratik geliyor.

[husonet]

konudışı

Kod: Tümünü seç

    if (key in ['A'..'Z']) or (key in ['a'..'z']) or
        (key in ['ğ','ü','ş','ı','ç','ö']) or (key in['Ğ','Ü','Ş','Ç','İ','Ö']) OR
         (key in ['0'..'9']) or (key in ['.', ',' ,'+','-','*','/', ' ']) then

Ben
if (key in ['A'..'Z','a'..'z','ğ','ü','ş','ı','ç','ö']).... şeklinde kullanıyorum daha pratik geliyor.

Haklısın +1

Kolay Gelsin...