Parametre İşaretlendiğinde TabSheet'te ki Grid'in kapatılması.

  Rs:=PrepareStmDirect("SELECT parametre_kolonu FROM parametre_tablosu")
  If Not Rs.ExecuteStm() Then
    MessageBox("HATA MESAJI","HATA",MB_ICONSTOP)
    Return
  EndIf
  
  If Rs.MoveNext() Then
    If Rs.parametre_kolonu=1 Then
      f.TabSheet.EnableSheet("TabParametreFormu",True)
    Else
       f.TabSheet.EnableSheet("TabParametreFormu",False)
       f.TabSheet.ChangeSheetCaption("TabParametreFormu","")
    EndIf
  EndIf