Merhaba arkadaşlar. Hazırladığım programda kullanıcılar diye bir tasarımım var. buraya kullanıcıları tanımlıyorum. Kullanıcılardan, kullanıcı statüsü Yönetici ise, bütün tasarımları görsün, kullanıcı statüsü Yönetici değilse bazı tasarımları göremesin istiyorum. Startup isminde betiğe yaptırtmaya çalıştım, menüyü ayarlatabildim ama tasarımlarda sınırlamayı hallettiremedim yardımcı olabilir misiniz.
Kullanıcılar Tasarımındaki alanlar
KullaniciPass
KullaniciName
KullanıcıStatu
KullaniciID
Buradaki kayıtlı kullanıcılardan kullanıcı statüsü Yönetici değilse bazı tasarımları göremesin istiyorum
Betik şu şekilde
O Startup
Tasarıma Git ["@StartUp” (Startup); Animasyon:Yok]
Değişken Ayarla [$GIRISDOGRU; Değer: 0] ©
Döngü Başlat
Alan Ayarla [Startup::gKULLANICISIFRE; ""] ©
Alan Ayarla [Startup::gKULLANICIADI; ""] ©
Özel İletişim Kutusu Göster ["Kullanıcı Girişi"; Startup::gKULLANICIADI; Startup::gKULLANICISIFRE] Q
Alana Git [] ©
# ESC tuşuna basılması durumunda sistemden çıksın. Q
Eğer [Get(LastMessageChoice)=3] Q
Dosyayı Kapat [Etkin Dosya]
Eğer Sonu
Değişken Ayarla [gKULLANICIADI; Değer: Startup::gKULLANICIADI] ©
Değişken Ayarla [gKULLANICISIFRE; Değer: Startup::gKULLANICISIFRE] ©
Eğer [IsEmpty ( Startup::gKULLANICIADI) or IsEmpty (Startup::gKULLANICISIFRE)] ©
Özel İletişim Kutusu Göster ["Hata"; "Kullanıcı adı ve Kullanıcı şifresi boş bırakılamaz."] ©
Değişken Ayarla [$GIRISDOGRU; Değer: 0] ©
Değilse
Tasarıma Git ["Kullanıcılar” (Kullanıcılar); Animasyon:Yok]
Kullanıcının Vazgeçmesine İzin Ver [Kapalı]
Hata Yakalama Ayarla [Açık]
Bul Moduna Gir [Duraklat:Kapalı] Q
Alan Ayarla [Kullanıcılar::KullaniciName; "==" & gKULLANICIADI] ©
Alan Ayarla [Kullanıcılar::KullaniciPass; "==" & gKULLANICISIFRE] ©
Arama Gerçekleştir [] ©
Alan Ayarla [Kullanıcılar::KullaniciStatu] ©
Eğer [Get(FoundCount) = 0] ©
Tasarıma Git ["@StartUp” (Startup); Animasyon:Yok]
Özel İletişim Kutusu Göster ["Uyarı"; "Girdiğiniz bilgilerle sistemimizde eşleşen bir kullanıcı bulunamadı.?Lütfen giriş bilgilerinizi ko..."] ©
Eğer Sonu
Değişken Ayarla [$KULLANICISTATU; Değer: Kullanıcılar::KullaniciStatu] ©
Eğer [Get(FoundCount)>0] ©
Eğer [$KULLANICISTATU = "Yönetici"] ©
Hesap Ekle [Hesap Adı: Kullanıcılar::KullaniciName; Şifre: .......................................................... •;...................... Ayrıcalık Kümesi: Ayrıcalık Kümesi 2] ©
Menü Çubuğunu Göster/Gizle [Kilitle:Kapalı; Göster]
Menü Kümesini Yükle ["[Standart FileMaker Menüleri]”; Dosya varsayılanı olarak kullan:Açık]
Araç Çubuklarını Göster/Gizle [Gizle] ©
Eğer Sonu
Değişken Ayarla [$KULLANICISTATU; Değer: Kullanıcılar::KullaniciStatu]
Eğer [Get(FoundCount)>0]
Eğer [$KULLANICISTATU t "Yönetici"] Hesap Ekle [Hesap Adı: Kullanıcılar::KullaniciName; $ifre: .............................................................. ;.................................. Ayrıcalık Kümesi: [LoginUser]]
Menü Kümesini Yükle ["Kullanıcılar"; Dosya varsayılanı olarak kullan:Açık] Araç Çubuklarını Göster/Gizle [Kilitle; Gizle]
Eğer Sonu
Tasarıma Git ["BlueGreyMuhasebe" (BlueGreyMuhasebe); Animasyon:Yok]
Özel İletişim Kutusu Göster ["Kullanıcı Giriş"; "Sayın" & " " & Startup: : gKULLANICIADI &" " & "kullanıcımız." & " ÎHoşgeldiniz." & " " & "Sistem..."]
Değişken Ayarla [$GIRISDOGRU; Değer: 1]
# Burdan sonra sistemden çıkış yaptırın (Close File enable yaparsanız otomatik çıkacaktır.) // Dosyayı Kapat [Etkin Dosya]
Eğer Sonu
Eğer Sonu
Eğer Sonu
Döngü Bitir Eğer [$GIRISDOGRU = 1]
Döngü Sonu
