CxGrid FilterRow Like

[narkotik]

Merhaba,
Mevcutta CxGridde kalıtım alan bir nesnede FilterRow özelliğini kullanmaktayım. Hücrede yapılan aramalarda iki tarafada Like %aranan% koyma özelliğini görememekteyim. 





GridView özellikleri



Gridin mevcutta böyle bir özelliği varmıdır, var ise yardımlarınızı beklemekteyim. SupportedLike açık iken tek taraflı like çalışmakta

[adelphiforumz]

@narkotik benim bildiğim kadarı ile yok siz aradığınız şeyi yazdıktan sonra PercentWildchard kısmındaki değeride yazıyorsunuz
Ben genelde bu değeri % yerine * yapıyorum kullanıcı ahmet, *ahmet yada ahmet* şeklinde yazarak aramış oluyor

[narkotik]

(11-05-2019, Saat: 19:35)adelphiforumz Adlı Kullanıcıdan Alıntı: @narkotik  benim bildiğim kadarı ile yok siz aradığınız şeyi yazdıktan sonra PercentWildchard kısmındaki değeride yazıyorsunuz
Ben genelde bu değeri % yerine * yapıyorum kullanıcı ahmet, *ahmet yada ahmet* şeklinde yazarak aramış oluyor

Açıkcası beni çözmüyor, konu ile ilgili bir araştırma yapayım

[narkotik]

Sorun çözülmüştür.

  TSKGridDBDataController = class (TcxGridDBDataController)
 private
   //
 protected
   procedure FilterChanged;override;
 end;


procedure TSKGridDBDataController.FilterChanged;
var
 xValue  : string;
 xColumm : TcxGridDBColumn;
 xView   : TcxGridDBTableView;
begin
 inherited;
 Try
   if GetGridView <> nil then
   begin
     xView := TSKGridView(Self.GetGridView);
     xView.BeginUpdate;
     Filter.BeginUpdate;
     with xView,ViewData do
     begin
        if FilterRow.Focused then
        begin
          xColumm := TcxGridDBColumn(Controller.FocusedColumn);
          if (xColumm <> nil) and (xColumm.PropertiesClassName = '') and (xColumm.DataBinding.Field.DataType = ftString) then
          begin
            xValue := VarToStr(FilterRow.Values[xColumm.Index]);
            if (Length(xValue)> 0) and (AnsiPos('%',xValue) = 0) then
              FilterRow.Values[xColumm.Index] := '%' + xValue + '%';
          end;
        end;
     end;
     Filter.EndUpdate;
     xView.EndUpdate;
   end;
 Except
   // Olası bir hatayı kes
 End;
end;

[faktoral]

(12-05-2019, Saat: 01:08)narkotik Adlı Kullanıcıdan Alıntı: Sorun çözülmüştür.

  TSKGridDBDataController = class (TcxGridDBDataController)
 private
   //
 protected
   procedure FilterChanged;override;
 end;


procedure TSKGridDBDataController.FilterChanged;
var
 xValue  : string;
 xColumm : TcxGridDBColumn;
 xView   : TcxGridDBTableView;
begin
 inherited;
 Try
   if GetGridView <> nil then
   begin
     xView := TSKGridView(Self.GetGridView);
     xView.BeginUpdate;
     Filter.BeginUpdate;
     with xView,ViewData do
     begin
        if FilterRow.Focused then
        begin
          xColumm := TcxGridDBColumn(Controller.FocusedColumn);
          if (xColumm <> nil) and (xColumm.PropertiesClassName = '') and (xColumm.DataBinding.Field.DataType = ftString) then
          begin
            xValue := VarToStr(FilterRow.Values[xColumm.Index]);
            if (Length(xValue)> 0) and (AnsiPos('%',xValue) = 0) then
              FilterRow.Values[xColumm.Index] := '%' + xValue + '%';
          end;
        end;
     end;
     Filter.EndUpdate;
     xView.EndUpdate;
   end;
 Except
   // Olası bir hatayı kes
 End;
end;

xView := TSKGridView(Self.GetGridView);    TSKGridView ???

[narkotik]

(12-05-2019, Saat: 11:46)faktoral Adlı Kullanıcıdan Alıntı:

(12-05-2019, Saat: 01:08)narkotik Adlı Kullanıcıdan Alıntı: Sorun çözülmüştür.

  TSKGridDBDataController = class (TcxGridDBDataController)
 private
   //
 protected
   procedure FilterChanged;override;
 end;


procedure TSKGridDBDataController.FilterChanged;
var
 xValue  : string;
 xColumm : TcxGridDBColumn;
 xView   : TcxGridDBTableView;
begin
 inherited;
 Try
   if GetGridView <> nil then
   begin
     xView := TSKGridView(Self.GetGridView);
     xView.BeginUpdate;
     Filter.BeginUpdate;
     with xView,ViewData do
     begin
        if FilterRow.Focused then
        begin
          xColumm := TcxGridDBColumn(Controller.FocusedColumn);
          if (xColumm <> nil) and (xColumm.PropertiesClassName = '') and (xColumm.DataBinding.Field.DataType = ftString) then
          begin
            xValue := VarToStr(FilterRow.Values[xColumm.Index]);
            if (Length(xValue)> 0) and (AnsiPos('%',xValue) = 0) then
              FilterRow.Values[xColumm.Index] := '%' + xValue + '%';
          end;
        end;
     end;
     Filter.EndUpdate;
     xView.EndUpdate;
   end;
 Except
   // Olası bir hatayı kes
 End;
end;

xView := TSKGridView(Self.GetGridView);    TSKGridView ???

Kod: (Select All)

TcxGridDBTableView

[faktoral]

Teşekkür ederim. Son bir yardım daha isteyeceğim. Bunu cxgrid de nasıl kullanacağız.

[TescilsizUzman]

(12-05-2019, Saat: 16:04)faktoral Adlı Kullanıcıdan Alıntı: Teşekkür ederim. Son bir yardım daha isteyeceğim. Bunu cxgrid de nasıl kullanacağız.

Merhaba,
@narkotik, TcxGridDBDataController sınınfından yeni bir sınıf (TSKGridDBDataController) türetmiştir. Yine aynı sınıfa ait FilterChanged olayını ezmiştir. Yani bu olayı çağırmış ve yazdığı yeni entegrasyonlarla (kodlarla) çalışmaya zorlamıştır.
TcxGridDBDataController standart sınıfı yerine kendi TSKGridDBDataController sınıfını (bileşenini) kullandığında, herhangi bir ek kod kullanmadan yeni filtered özelliği her cxGrid'inde otomatik olarak çalışacaktır. 
Yani herhangi bir kullanım biçimi yok. Bir bileşenden türettiği yeni bir bileşene ek özellikler katmıştır.

[faktoral]

@"Fesih ARSLAN"    @narkotik  Teşekkür ederim.

[bydelphi]

Merhabalar, 
konu eski ama farklı bir çözüm öneriside ben sunayım arşivimizde bulunsun.
cxgridde rowfilter alanında default olarak gelen equal operatörünü kodla runtime like olarak değiştirme konusunda;
formun on-show/create olayında 

cxGridDBTableView2.FilterRow.OperatorCustomization := True; // ile kullanıcılara manuel değiştirme imkanı da sunabiliyoruz.
      
 for i := 0 to cxGridDBTableView2.ItemCount-1 do
 TcxGridDBColumn(cxGridDBTableView2.Items[i]).Options.FilterRowOperator := foContains;

foContains operatörü like gibi çalışıyor ancak % * vb karakter istemiyor.
dolayısıyla sütun bazlı aramalarda direk aradığımızı buluyor.