[sanyor77]

الخطوة الأولى: تحديد قسم المستخدم
يمكن استخدام دالة GetUserDepartment لتحديد القسم الخاص بالمستخدم، كما هو موضح في الكود التالي:
 

PHP كود :

Public Function GetUserDepartment(userID As Integer) As String
    Dim rs As New ADODB.Recordset
    rs.Open "SELECT Department FROM Users WHERE UserID=" & userID, Your_Connection_String, adOpenStatic, adLockOptimistic
    
    If rs.EOF Then
        GetUserDepartment = "Unknown"
    Else
        GetUserDepartment = rs.Fields("Department").Value
    End If
    
    rs.Close
End Function 


الخطوة الثانية: السماح للمستخدم بإنشاء طلبية والموافقة أو الرفض من قبل الأدمن مع إبداء الأسباب
يمكن استخدام نموذج الطلبيات والأكواد التالية لتمكين المستخدم من إنشاء طلبية والأدمن من الموافقة أو الرفض وإضافة تفاصيل الرد في حقل "Reason":
نموذج الطلبيات:
 

PHP كود :

OrderID (Primary key, AutoNumber)
Department (Text)
CreatedBy (Number)
CreatedOn (Date/Time)
Status (Text)
ApprovedBy (Number)
ApprovedOn (Date/Time)
RejectedBy (Number)
RejectedOn (Date/Time)
Reason (Text)
Amount (Currency) 


الكود لإنشاء طلبية:

PHP كود :

Public Sub CreateOrder(department As String, amount As Currency)
    Dim strSQL As String
    strSQL = "INSERT INTO Orders (Department, CreatedBy, CreatedOn, Status, Amount) VALUES ('" & department & "', " & CurrentUser.UserID & ", Now(), 'Pending', " & amount & ")"
    CurrentDb.Execute strSQL
End Sub 


الكود للموافقة على الطلبية:

PHP كود :

Public Sub ApproveOrder(OrderID As Integer, AdminName As String, Reason As String)
    ' تحديث حالة الأوردر إلى "معتمد" وإضافة اسم الأدمن المعمد والسبب
    Dim strSQL As String
    strSQL = "UPDATE Orders SET Status='Approved', ApprovedBy='" & AdminName & "', ApprovedOn=Now(), Reason='" & Reason & "' WHERE OrderID=" & OrderID
    CurrentDb.Execute strSQL
End Sub 


الكود للرفض على الطلبية:

PHP كود :

Public Sub RejectOrder(OrderID As Integer, AdminName As String, Reason As String)
    ' تحديث حالة الأوردر إلى "مرفوض" وإضافة اسم الأدمن المرفوض والسبب
    Dim strSQL As String
    strSQL = "UPDATE Orders SET Status='Rejected', 


 هذه الخطوات هي الأساسية التي يجب اتباعها لتنفيذ مثل هذا النظام. بالطبع، يمكن تعديلها وتخصيصها وفقًا لمتطلبات نظامك الخاص. إذا كان لديك أي أسئلة أو استفسارات، فلا تتردد في طرحها. سأكون سعيدًا لمساعدتك في أي شيء آخر.