Ασφάλεια Βάσης Δεδομένων

[Tasos]

Δημήτρη καλωσόρισες στο φόρουμ!
Μεταφέραμε το Μήνυμα σου σε νέο θέμα.
Πες μας σε τι περιβάλλον (πχ.δίκτυο) θέλεις να μοιράσεις δικαιώματα πρόσβασης
καθώς και ποια είναι τα δικαιώματα πρόσβασης που σ ενδιαφέρουν.
Επειδή το θέμα είναι πολύπτυχο, αν μπορείς, επισύναψε ένα αρχείο/παράδειγμα
για να μπορέσεις να πάρεις μια πιο εύστοχη απάντηση.
Με εκτίμηση

Τάσος

[jimvasiloudis]

Αρχική Δημοσίευση από Tasos

Δημήτρη καλωσόρισες στο φόρουμ!
Μεταφέραμε το Μήνυμα σου σε νέο θέμα.
Πες μας σε τι περιβάλλον (πχ.δίκτυο) θέλεις να μοιράσεις δικαιώματα πρόσβασης
καθώς και ποια είναι τα δικαιώματα πρόσβασης που σ ενδιαφέρουν.
Επειδή το θέμα είναι πολύπτυχο, αν μπορείς, επισύναψε ένα αρχείο/παράδειγμα
για να μπορέσεις να πάρεις μια πιο εύστοχη απάντηση.
Με εκτίμηση

Τάσος

Φίλε Τάσο σε χαιρετώ και σε ευχαριστώ για την άμεση απάντηση. σου στέλνω τη βάση.
Θα ήθελα ανάλογα με το χρήστη για παράδειγμα εκτός από τον Αdmin κανένας να μη μπορεί να βάλει έναν νέο χρήστη,
άρα να μη μπορεί να διαχειριστεί την φόρμα χρήστες.

Κωδικός για τον χρήστη Bασιλουδη και Αdmin = 1964.

Σου στέλνω τη βάση.

[Tasos]

Δημήτρη καλημέρα!

Δες το αρχείο σου στο παρακάτω συνημμένο.

Στον πίνακα tblUsers πρόσθεσα ένα πεδίο τύπου Ναι/Οχι με το όνομα HasAdminRights
θα το ορίζεις με κλικ στο CheckBox .
Το πεδίο αυτό συνδέθηκε με στο DropDown της φόρμας frmLogin και ή τιμή της τρίτης (κρυφής) κολόνας του,
αποθηκεύεται σαν μεταβλητή Boolean με το όνομα
UserHasAdminRights που θα χρησιμοποιηθεί αργότερα από την κυρίως φόρμα
προκειμένου να ενεργοποιηθεί ή όχι το κουμπί "ΧΡΗΣΤΕΣ".

Ελπίζω να βοήθησα.

Φιλικά

Τάσος

[jimvasiloudis]

ΤΑΣΟ ΕΠΕΙΔΗ ΑΚΟΜΗ ΣΤΟΝ ΚΩΔΙΚΑ ΕΙΜΑΙ ΑΡΧΑΡΙΟΣ ΘΑ ΗΘΕΛΑ ΝΑ ΡΩΤΗΣΩ, ΤΗ ΜΕΤΑΒΛΗΤΗ UserHasAdminRights = CBool(Nz(Me.TmpUserID.Column(2), 0)) ΠΩΣ ΘΑ ΤΟΥ ΔΕΙΞΩ ΝΑ ΤΗ ΔΕΙ ΚΑΙ ΝΑ ΕΝΕΡΓΟΠΟΙΗΣΕΙ ΤΟ ΚΟΥΜΠΙ ΤΩΝ ΧΡΗΣΤΩΝ?
ΕΠΙΣΗΣ ΟΤΑΝ ΠΡΟΠΣΑΘΗΣΑ ΝΑ ΑΛΛΑΞΩ ΤΗ ΦΟΡΜΑ ΤὮΝ ΧΡΗΣΤΩΝ ΚΑΙ ΝΑ ΚΑΤΑΧΩΡΩ ΤΟ ΝΕΟ ΠΕΔΙΟ ΜΟΥ ΕΒΓΑΖΕ ΜΗΝΥΜΑ ΔΕΝ ΕΧΕΙ ΑΡΚΕΤΗ ΜΝΗΜΗ. ΔΟΥΛΕΥΩ ΣΕ ΕΝΑΝ ΦΟΡΗΤΟ ΜΕ 2 GB RAM. ΥΠΑΡΧΕΙ ΠΕΡΙΠΤΩΣΗ ΝΑ ΕΙΝΑΙ ΘΕΜΑ ΜΝΗΜΗΣ ΥΠΟΛΟΓΙΣΤΗ?
ΣΕ ΕΥΧΑΡΙΣΤΩ

[Tasos]

Δημήτρη Καλησπέρα!

Γράφε με πεζά για να μπορούμε να σε διαβάζουμε πιο άνετα.

Η Public UserHasAdminRights As Boolean βρίσκεται στο Module BasCustFunctions
και παίρνει τιμή όταν πατηθεί το κουμπί OK της φόρμας frmLogin

Κατά την εκκίνηση της κεντρικής σου φόρμας τρέχει αυτό:

Private Sub Form_Load()
    Me.cmdOpenUsers.Enabled = UserHasAdminRights
End Sub

όπου cmdOpenUsers = το κουμπί που ανοίγει τη φόρμα με τους χρήστες.

Φιλικά

Τάσος

[jimvasiloudis]

Τάσο σε ευχαριστω πολύ αυτόν ήταν που ηθελα. Πιστευω να μπορώ να σε ξαναενοχλήσω και στο μέλλον. Έτσι για εγκυκλοπαιδική ενημέρωση με την Access να προχωρήσω ή να ψάξω το Delphi?

Καλό βράδυ

[wint3r]

Αρχική Δημοσίευση από Tasos

Δημήτρη καλημέρα!

Δες το αρχείο σου στο παρακάτω συνημμένο.

Στον πίνακα tblUsers πρόσθεσα ένα πεδίο τύπου Ναι/Οχι με το όνομα HasAdminRights
θα το ορίζεις με κλικ στο CheckBox .
Το πεδίο αυτό συνδέθηκε με στο DropDown της φόρμας frmLogin και ή τιμή της τρίτης (κρυφής) κολόνας του,
αποθηκεύεται σαν μεταβλητή Boolean με το όνομα
UserHasAdminRights που θα χρησιμοποιηθεί αργότερα από την κυρίως φόρμα
προκειμένου να ενεργοποιηθεί ή όχι το κουμπί "ΧΡΗΣΤΕΣ".

Ελπίζω να βοήθησα.

Φιλικά

Τάσος

Πως μπορώ να κάνω κάτι αντίστοιχο, δηλαδή να μου ζητάει στην αρχή user και pass για να ανοίξει το αρχείο?

Φιλικά/Πάνος