Kullanıcı bazında özel grid ayarı.

[aesenkaya]

Şu ana kadar karşılaştığım componentler genelde grid ayarlarını programın genel bazında yapmakta idi. Fakat her kullanıcı kendi grid ayarının farklı olmasını istiyor. Her kullanıcı ayarladığı gridi sonraki severinde kullanmak istiyor. Bvcomp5 grid componenti üzerinde küçük bir değişiklik yaparak bu özelliği sizlerele paylaşmak istedim..

Olayın mantığı öncelikle yazılımınızda oturum açan kullanıcıyı aşağıdaki kod ile register kayıt ediyoruz.

Kod: Tümünü seç

           R:=TRegistry.Create;
           R.RootKey:=HKEY_CURRENT_USER;
           R.CreateKey('\SOFTWARE\BSY\Program');
           R.OpenKey('\SOFTWARE\BSY\Program',false);
           R.WriteString('user',op_kodu);
           R.CloseKey;
           R.free;

bu işlemi yaptıktan sonra ise componentte operatör kodunu registerdan alarak kullanıcıya \application\grids\userkod klasörü içerisinden kullanıcı grid ayarlarını çekiyor..

component üzerinden register işlemleri aşağıdaki kodda verilmiştir.

Kod: Tümünü seç

procedure CheckIniDir;
var str:string;
    op_kodu:string;
    R:TRegistry;
begin
        R:=TRegistry.Create;
        R.RootKey:=HKEY_CURRENT_USER;
        R.OpenKey('\SOFTWARE\BSY\Program',false);
        op_kodu:='\'+R.ReadString('user');
        R.CloseKey;
        R.free;
  str:=
     {$ifndef VER140}
        includetrailingbackslash
     {$else}
        includetrailingpathdelimiter
     {$endif}
          ( extractFilePath(Application.ExeName)+GridsaverSubDir+op_kodu);
  if not directoryexists(str)
  then CreateDir(str);
end;




function GetIniFileName(Saver:TDBGridSaver;const CompName:string=''):string;
var    op_kodu:string;
    R:TRegistry;
begin
        R:=TRegistry.Create;
        R.RootKey:=HKEY_CURRENT_USER;
        R.OpenKey('\SOFTWARE\BSY\Program',false);
        op_kodu:='\'+R.ReadString('user');
        R.CloseKey;
        R.free;
  REsult:=
     {$ifndef VER140}
        includetrailingbackslash
     {$else}
        includetrailingpathdelimiter
     {$endif}
          ( extractFilePath(Application.ExeName)+GridsaverSubDir+op_kodu);

  if (trim(CompName)='') and Assigned(saver) and Assigned(Saver.ThisGrid) then begin
     Result:=Result+saver.ThisGrid.Owner.ClassName+'.'+saver.ThisGrid.Name;
     if trim(Saver.thvariant)<>'' then Result:=REsult+'.'+Saver.thVariant;
  end
  else Result:=Result+CompName;

  REsult:=REsult+GridSaverExt;
end;

bazı ingilizce kelimeler türkçeye çevrilmiştir dilerseniz çevirmediklerimi. bvlocalization.pas dosyasından değiştirip compile edebilirsiniz. link vermek sanırım sorun olmaz son olarak componentin derlenmiş hali

http://rapidshare.com/files/169177276/bvcomp.rar.html

[AhmetNuri]

Bunun yerine Jedi DbUgrid kullanıp
JvFormStorage
JvAppIniFileStorage
ile sadece girid değil istersen formdaki her nesnenin ayarlarını kayıt edebilirsiniz.
ben yıllardır kullanıyorum
çok memnunum

[aesenkaya]

bvcomp5 içerisinde sadece gird ayarları değil. dosyayı istediğiniz formata kaydetmek için tablesaver - grid ayarlarınız için grid saver ve form ayarlarınız için form saver mevcuttur. Benim burada bahsetmek istediğim grid ayarlarını veya form ayalarını kaydetmek değil. grid ayarlarını oturum açan kullanıcı bazında saklayıp tekrar o kullanıcıya sunmaktı. Sizin bahsetmiş olduğunuz componenti incelemedim belki formsaver olarak daha kalitelidir ama başka konulardan bahsediyoruz şu anda.

[serkan]

kullanıcı bazında ayar saklamak için mecburen ayarları database de saklamanız lazım bunun içinde mesela Cxgrid ini dosyasına ayar yazıp okuyabiliyor.Bu ini dosyasına yazdıklarını tabloya yazabilirsin o ayar dosyasının hangi kullanıcının olduğunu zaten bulabilirsin böyle kullanıcı oturum açtığında o kullanıcıya ait kaydı aktif edip ayarlarını yükleyebiirsin.