| Form açılışında bütün query ve tableları otomatik açmak
Kod: Kodu kopyalamak için üzerine çift tıklayın! //Onshow olayına
for i := 0 to self.ComponentCount - 1 do
begin
if Components[i]Is TTable then
begin
TTable(Components[i]).open;
TTable(Components[i]).Active := true;
end;
if Components[i]Is TQuery then
begin
TQuery(Components[i]).open;
TQuery(Components[i]).Active := true;
end;
end;
__________________ SusKun ve Sessiz Mürekkep...
Kullanıcı imzalarındaki bağlantı ve resimleri görebilmek için en az 20 mesaja sahip olmanız gerekir ya da üye girişi yapmanız gerekir.
|