Nasserff

مثال مبسط لإضافة أسماء المستخدمين من خلال الكود

2 ردود في هذا الموضوع

السلام/

تم اعداد الإجراءات التالية:

إضافة مستخدم
addNewUser(userName As String, ID As String, Optional password As String)
حذف مستخدم
deleteUser(userName As String)
تغير الرقم السري لمستخدم
changePassword(userName As String, oldPass As String, NewPass As String)

ولعمل هذه الإجراءات يجب نسخ ما يلي في وحده نمطية ويتم حفظها داخل ملف Access

Sub addNewUser(userName As String, ID As String, Optional password As String)
On Error GoTo han
DBEngine.Workspaces(0).Users.Append DBEngine.Workspaces(0).CreateUser(userName, ID, password)
MsgBox "User: " & userName & " was added"
Exit Sub
han:
MsgBox Err.Description
End Sub

Sub deleteUser(userName As String)
On Error GoTo han
DBEngine.Workspaces(0).Users.Delete userName
MsgBox "User: " & userName & " was deleted"
Exit Sub
han:
MsgBox Err.Description
End Sub

Sub changePassword(userName As String, oldPass As String, NewPass As String)
On Error GoTo han
DBEngine.Workspaces(0).Users(userName).NewPassword oldPass, NewPass
MsgBox "Change password for: " & userName
Exit Sub
han:
MsgBox Err.Description
End Sub

ولضيق الوقت لم اتم باقي الأوامر مثل إضافة مستخدم إلى مجموعة، تحديد الصلاحيات وغيرها من الأمور.

وبأذن الله في وقت لاحق سأقوم بتطبيق باقي الأوامر للحصول على وحدة نمطية كاملة لتنظيم عملية الدخول لأي نظام Access ويمكن استخدامة في أكثر من مشروع عن طريق الكود

أخوك/ فراس فهد ناصر

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

بسم الله الرحمن الرحيم

بارك الله فيك اخي الكريم وحفظك

جهد جميل ولكن نريد الاستمرار

"وبأذن الله في وقت لاحق سأقوم بتطبيق باقي الأوامر للحصول على وحدة نمطية كاملة لتنظيم عملية الدخول لأي نظام Access ويمكن استخدامة في أكثر من مشروع عن طريق الكود"

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
زوار
This topic is now closed to further replies.

  • يستعرض القسم حالياً   0 members

    لا يوجد أعضاء مسجلين يشاهدون هذه الصفحة .