arkadaşlar tam olarak yeri burasımı bilmiyorum ama

şu şekilde bir yetkilendirme düşünüyorum

kullanıcı        form_No             Yetki
A                    10                      +
A                    11                       -
A                    12                      +
A                    13                      +
A                    14                      -
B                    10                       +
DATALARININ BULUNDUĞU BİR TABLOM VAR
ANA FORM AÇILIRKEN BU TABLODAKİ PROGRAMI AÇAN KULLANICININ YETKİLERİNİ KONTROL EDİP FORM NUMARASI VE YETKİ DURUMUNA GÖRE İLGİLİ FORMLARI AÇAN BUTONLARIN visible özelliklerini true yada false yapmak istiyorum ama beceremiyorum
bildiğim if  then else ile sadece ilk satırda bulduğu yetkiye göre davranıyor
ama istediğim ise o kullanıcıya ait tüm ekran yetkilerini kontrol ederek devam etmesi

yardımcı olursanız sevinirim

cakirr42 ilgine teşekkürler kdolar ile ilgili bşr sorun yok heralde ancak iki döngüden birisi veya ikisi birden sanki hiç bitmiyo gibi bidurum var sorguyu bir türlü bitirmiyo
neden olabilir acaba

Merhaba,

Benim de benzer yapıda bir işlem düşünüyorum. Form üzerindeki bileşenleri kullanıcı yetkisine göre göstermek istiyorum. Benim veritabanı yapım şu şekilde.

FORMNAME------BILESEN-----USER_ID-----YETKI
frmMainform      frmMainform Halit             1
frmMainform      btnYeni        Halit             1
frmMainform      btnGuncelle Halit             1

Yetki tablosu bu şekilde. Projede yer alan bütün formlar ve formlarda yer alan bütün bileşenler ( isimleri) tabloda tutuluyor. Ben bir dll üzerinden işlem yapmak istedim. Bir procedure hazırladım.
procedure FormBileseniYukle(form, Kullanici:String); export;
  var sorgu:TAdoQuery;
  gecerliBaglanti:String;
  vtbaglantisi:TIniFile;
  kayitsayisi:integer;
begin
  sorgu:=TAdoQuery.Create(nil);
  vtbaglantisi:=TIniFile.Create(ExtractFilePath( Application.ExeName )+'veritabanlari.ini');
  with sorgu do
  begin
    ConnectionString:=frmMainform.gecerlibaglantiver;
    Close;
    SQL.Clear;
    SQL.Add('Select * FROM webKULLANICIYETKILER WHERE (FORMNAME=:form) AND (Kullanici=:KUL)');
    Parameters.ParamByName('form').Value:=form;
    Parameters.ParamByName('KUL').Value:=Kullanici;
    if not Active Then Active:=True;
    Open;
    while not eof do
    begin
      for kayitsayisi:=0 to recordcount do
      begin
          ?????????????????????????????????????????????
      end;
    end;
  end;
end;

amacım her bileşen için tek tek kontrol sağlamak yerine bir döngü kurup form üzerinde yetkisi 1 olan bileşenlerin visible özelliklerini true yapmak.

Böyle bir şeyi yapmak mümkün mü acaba?

şimdi for döngüsünün içerisine şu kodu yazarsam hata verecek.
if fieldbyname('YETKI').AsInteger = 1 Then fieldbyname('BILESEN').AsString:=True Else fieldbyname('BILESEN').AsString:= False;

ya da en azından gelen bileşen adını nasıl bileşen olarak tanımlatabilirim?

Teşekkür ederim.