Bütün ADOTable ları active etmek + 1 soru

[Jire]

başlıkta yazıyor yardımcı olursanız sevinirim.

bide

yapamadığım birşey daha var, 1. tabloda kullanıcı adı,şifre ve kullanıcı adının numarası numarası var 2. tabloda ise kullanıcı adı,kullanıcı adının numarası ve rütbesi var.

ben 1. tabloyu seçiyorum ama o table ile rütbeyi (2. tabloda olan) de göstermek istiyorum. nasıl yapabilirim?

adotable ve datasource kullanıyorum.

[sabanakman]

Kod: Tümünü seç

procedure HepsiniKapat(const Kok:TComponent);
var i:Integer;
begin
  if Kok is TADOTable then TADOTable(Kok).Close;
  for i:=0 to Kok.ComponentCount-1 do
   HepsiniKapat(Kok.Components[i]);
end;

[Jire]

Kod: Tümünü seç

procedure HepsiniKapat(const Kok:TComponent);
var i:Integer;
begin
  if Kok is TADOTable then TADOTable(Kok).Close;
  for i:=0 to Kok.ComponentCount-1 do
   HepsiniKapat(Kok.Components[i]);
end;

teşekkür ederim. yapamadığım birşey daha var onuda ekledim onada bakarsanız sevinirim.

[sabanakman]

Kod: Tümünü seç

Adotable2.Locate('Kod',AdoTableKod.AsString,[]);
ShowMessage(Adotable2Rutbe.AsString);

[Jire]

Kod: Tümünü seç

Adotable2.Locate('Kod',AdoTableKod.AsString,[]);
ShowMessage(Adotable2Rutbe.AsString);

teker teker deniyorum teşekkürler,verdiğiniz kodu şöyle yaptım ama
HepsiniKapat(TADOTable); olmuyor ancak HepsiniKapat(ADOTable1); oluyor.

procedure HepsiniKapat(const Kok:TComponent);
var i:Integer;
begin
if Kok is TADOTable then TADOTable(Kok).Active := True;
for i:=0 to Kok.ComponentCount-1 do
HepsiniKapat(Kok.Components);
end;

değiştirdiğim yeri kırmızı yaptım

[sabanakman]

HepsiniKapat'ı anlamamışsın. Aşağıda küçük bir müdahale ile daha esnek bir kullanım sağlayarak örnekleyelim.

Kod: Tümünü seç

procedure HepsindeAktiflik(const Kok:TComponent;const Aktiflik:Boolean);
var i:Integer;
begin
  if Kok is TADOTable then TADOTable(Kok).Active:=Aktiflik;
  for i:=0 to Kok.ComponentCount-1 do
   HepsiniKapat(Kok.Components[i]);
end;

----------------
HepsindeAktiflik(Form1,False);//<-Form1 içindeki tüm tabloları kapatır.
----------------
HepsindeAktiflik(DataModule1,False);//<-DataModule1 içindeki tüm tabloları kapatır.
----------------
HepsindeAktiflik(Application,False);//Açık uygulamada bulunan tüm formlar içindeki tabloların hepsini kapatır.
----------------
HepsindeAktiflik(ADOTable1,True);//<-Sadece ADOTable1'i açar.

vs. vs.

[Jire]

Çok teşekkür ederim halletim. sağolun.