A.S.C Filtre, Grafik ve Raporlama Eklentisi

Gelişmiş Kullanıcı ve Grup Yetkilendirme
#1
access-sql-12 
[Resim: yetki4.jpg]

Merhaba arkadaşlar..

Yaklaşık üç yıl önce hazırladığım ve bir çoğumuzun çalışmalarında kullandığı Gelişmiş Kullanıcı ve Grup İzinleri Belirleme Örneğini zaman içinde geliştirmiş ve güncellemiştim..

Bu son güncellemede ilave özelliklerle beraber tasarımda da değişiklikler oldu.. Bu nedenle konuyu diğerinden ayırıp bu başlıkta işlemekte fayda var..

Önceki örneği bilmeyenler için amacımız hakkında özet geçeyim..

Amaç..:

İstiyoruz ki, birden fazla kullanıcıya ait uygulamalarımıza yetkiler verelim.. Kullanıcılarımızı gruplara ayırıp yapacakları işlemleri biz belirleyelim.. Kimi kayıt yapabilsin, kimi düzenleyebilsin veya bazıları bizim belirlediğimiz form ve raporları göremesin bile.. Bunlar gibi daha bir çok yetki verebilelim.. (Detaylı açıklama için ilk paragraftaki linki tıklayınız.)

Özellikler..:
  • Kullanıcı Ekleme / Düzenleme
    (Düğmelere bağlı yönetici şifresi, sistem saatidir.. Örn: Saat 19:46 ise şifre 1946 dır.)
  • Grup Ekleme / Düzenleme
  • Grupları Yetkilendirme
  • Form ve Raporları Gruplara Göre Yetkilendirme..:
    1. Görüntüleme
    2. Kayıt Ekleme
    3. Kayıt Düzenleme
    4. Kayıt Silme
    5. Yazdırma (Sadece raporlar için)
  • Çoklu Nesne Seçip Toplu Yetkilendirme Yeni
  • Formdaki Düğmeleri Yetkilendirme Yeni
    1. Gizle
    2. Pasif Yap
    3. Uyar
  • Düğmelere Bağlı Kodları Görüntüleme Yeni
  • Kullanıcı Form Çıkışlarını Kaydetme
  • Kullanıcılara Resim Ekleme Yeni
  • Tüm Yetkilendirmeleri Form, Rapor ve Düğmelere Otomatik Tanımlama Yeni

Uygulama..:
  1. Veritabanı içerisindeki adı Deneme ile başlamayan tüm nesneleri (Tablo, Sorgu, Form, Modül) kendi uygulamanıza çekiniz.
  2. Başlangıç formunuzu FKullaniciGiris yapınız..
  3. Kullanıcılara resim ekleme için referans gerekmektedir. Eklemek için;
    Kod sayfasını (VBA editörünü) açalım. Üstteki Tools Menüsünüden Refrences seçeneğine tıklayalım.. Ekrana gelen listeden Microsoft Office xx.x Object Library seçeneğini bulup onaylayalım.. (xx.x kısmı sürümünüze göre değişir..)
    Detaylı bilgi için bakınız..: Form Üzerinden Resim Ekleme Hakkında Her Şey

  4. Uygulamada Access penceresi gizlenmiştir. Eğer uygulamanız bu şekilde değilse tüm form ve raporların özelliklerinden Kalıcı ve Açılan seçeneklerini Evet yapınız..
    Bu konuda detaylı bilgi için bakınız..: Access Penceresini Gizleme Hakkında Her Şey Ayrıca bakınız..: Access Pencerenizi Program Yardımıyla Gizleyin!
  5. Raporu yazdırmak için görüntüleme dışında ayrı bir düğme kullanınız.. Yazdırmak için düğmede kullanmanız gereken kod..:
    Kod:
    Call RaporYazdirma("Rapor_Adi")

Ekran Görüntüleri..:

[Resim: yetki1.jpg]

[Resim: yetki3.jpg]

[Resim: yetki2.jpg]


Bu kadar detay yeterli sanırım.. Sorularınız ve destek talebiniz için bu konuya mesaj yazabilirsiniz.. Bildirimlerinize göre uygulamayı güncellemeye çalışırım..

Deneme için; şifreler kullanıcıların ilk harfleridir.. Access 2010 ile hazırladım.. Ekteki Access 2003 versiyonu dönüştürme sonrası 2003 ile test etmedim..

Herkese Access dolu günler dilerim.. Vv



Alıntı: 05 Mart 2014 Tarihli Güncelleme
Kullanıcı Şifre Değiştirme probleminin çözümü..:

FKullanicilar formunda bulunan Kaydet resim yazılı Etiket14 adlı etiketin tıklandığında kod bölümünde bulunan kodların tamamını aşağıdaki ile değiştiriniz..:
Visual Basic
  1. Komut21.SetFocus
  2. If Len(Metin10) = 0 Or Len(Metin12) = 0 Or Metin10.Value = Metin12.Value Then
  3.  
  4. With DoCmd
  5. .SetWarnings 0
  6. .RunSQL "update TKullanicilar set sifre = '" & Me.Metin12 & "' where kul_id= " & Me.Liste0
  7. .SetWarnings -1
  8. End With
  9.  
  10. Liste0.Requery
  11. Sifre = Liste0.Column(4)
  12. Sifre.InputMask = "Password"
  13. Etiket9.Caption = "Göster"
  14.  
  15.  
  16.  
  17. Metin12.Visible = 0
  18. Metin10.Visible = 0
  19. Etiket14.Visible = 0
  20. Etiket9.Visible = 0
  21. Etiket32.Visible = 0
  22. Sifre.Visible = -1
  23. MsgBox "Şifre değiştirildi..", vbDefaultButton1, "Taruz"
  24. Call Komut20_Click
  25. Metin12 = ""
  26. Metin10 = ""
  27. Else
  28. MsgBox "Şifreler birbirleriyle uyumlu değil. Tekrar deneyiniz..", vbCritical, "Taruz"
  29. Metin12 = ""
  30. Metin10 = ""
  31. Metin10.SetFocus
  32. End If




  Alıntı
Bu mesajı beğenenler: BRAVE , accessman
#2
Sn. Taruz
Bu güzel çalışma için teşekkürler.



  Alıntı
Bu mesajı beğenenler:
#3
Bu harika paylaşım için teşekkürler. Ellerinize sağlık.



  Alıntı
Bu mesajı beğenenler:
#4
Büyük usta eline sağlık.Ben bu işi bu defa başarıcam sanırım Smile



  Alıntı
Bu mesajı beğenenler:
#5
Paylaşım için teşekkürler Taruz Hocam



  Alıntı
Bu mesajı beğenenler:
#6
Hocam değerli çalışmanız için gönülden teşekkürler...



  Alıntı
Bu mesajı beğenenler:


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
access-sql-1 Gelişmiş Kullanıcı ve Grup İzinleri Belirleme Örneği Taruz 228 132.429 17-12-2019, 16:36
Son Mesaj: ucuzbaba
access-sql-7 E-Posta Aktivasyonlu Kullanıcı Kaydı ve Destek Formu Taruz 13 10.088 20-08-2019, 10:21
Son Mesaj: cozum@msn.com
  Yetkilendirmeli Kullanıcı Giriş Formu Abdullah 15 9.522 13-10-2018, 12:18
Son Mesaj: vokkani
  Kullanıcı ve Şifre Oluşturma Sihirbazı Taruz 122 74.907 28-12-2017, 10:33
Son Mesaj: serkanoz
  Gelişmiş Kullanıcı Programı v1.0 Beta tktukaci 11 8.455 05-07-2016, 15:11
Son Mesaj: okumas
  Kullanıcı Giriş Formu Abdullah 25 18.475 22-09-2014, 23:35
Son Mesaj: blueman
  Yetkilendirme ile Treeview Menü Oluşturmak Berkant Öztürk 18 11.841 07-06-2012, 13:09
Son Mesaj: kesoka

Foruma Git:


Bu konuyu görüntüleyen kullanıcı(lar): 1 Ziyaretçi