GERÇEK PAYLAŞIMI BİLENLERİN MEKANI
HOŞGELDİNİZ...

GERÇEK PAYLAŞIMI BİLENLERİN MEKANI

,.-~*´¨¯¨`*·~-.¸-(_FRM¥ØK¥ØK_)-,.-~*´¨¯¨`*·~-.¸
 
AnasayfaTakvimSSSAramaÜye ListesiKayıt OlGiriş yap

Paylaş | 
 

 Tablo veya Query ye bağlı alanların (Read only) yapılması veya çözümlenmesi

Aşağa gitmek 
YazarMesaj
KaRaKuLe
Admin
Admin
avatar


MesajKonu: Tablo veya Query ye bağlı alanların (Read only) yapılması veya çözümlenmesi   Cuma Mart 27, 2009 12:07 am

Bu kodlar Kullanıcının yetkisine gore de ayarlanabilir...
const
SOOku = 1;
SOYaz = 2 ;
var
Form1:TForm1;
.....
.....
.....


Function TFStokGir.SaltOkunurMu(Qu:TQuery;Drm:Byte):Boolean ;
var
i:integer;
Bool :Boolean;

begin
Bool := False;
Case Drm of
SOOku :
Begin
for i:=0 to Qu.FieldCount -1 do
begin
Qu.Fields[i].ReadOnly := True;
end;
Result := True;
Bool:= True;
end;
SoYaz :
Begin
for i:=0 to Qu.FieldCount -1 do
begin
Qu.Fields[i].ReadOnly := False;
end;
Result := False;
Bool:= False;;
end;

end;
Result := Bool;
end;

//Kullanımı

procedure TForm1.StokDuzenle();
begin
if not SaltOkunurMu (QStok,2) then
sowmessage('yazma modunda');

end;
Sayfa başına dön Aşağa gitmek
 
Tablo veya Query ye bağlı alanların (Read only) yapılması veya çözümlenmesi
Sayfa başına dön 
1 sayfadaki 1 sayfası
 Similar topics
-
» İdol (Örnek aldığınız kişi veya kişiler.)
» Undertaker Vickie Guerrero'ya Tombstone (Mezartaşı) Yapıyor!
» TripKolic Ropörtaj
» Psd Nasıl Yapılır?[Resimli]
» Gifli imza yapımı [ByCéma.]

Bu forumun müsaadesi var:Bu forumdaki mesajlara cevap veremezsiniz
GERÇEK PAYLAŞIMI BİLENLERİN MEKANI :: BİLGİSAYAR DÜNYASI :: Yazılım :: DelpHi-
Buraya geçin: