مساعدة في كود VBA لقاعدة بيانات إدارة مشاريع

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

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',

PHP كود :

Public Function GetUserDepartment(userID As Integer) As String
    ' تحديد القسم الذي يتبعه المستخدم المعين باستخدام معرف المستخدم
    Dim rs As New ADODB.Recordset
    rs.Open "SELECT Departments.DepartmentName FROM Departments INNER JOIN Users ON Departments.DepartmentID = Users.DepartmentID WHERE Users.UserID=" & userID, Your_Connection_String, adOpenStatic, adLockReadOnly
    
    If Not rs.EOF Then
        GetUserDepartment = rs.Fields(0).Value
    Else
        GetUserDepartment = ""
    End If
    rs.Close
End Function

PHP كود :

Public Sub CreateOrder(CustomerName As String, VillaNumber As Integer, District As String, Supplier As String, Amount As Double, Reason As String)
    ' إنشاء طلبية جديدة في جدول الأوردرز
    Dim strSQL As String
    strSQL = "INSERT INTO Orders (CustomerName, VillaNumber, District, Supplier, Amount, Reason, Status) VALUES ('" & CustomerName & "', " & VillaNumber & ", '" & District & "', '" & Supplier & "', " & Amount & ", '" & Reason & "', 'Pending')"
    CurrentDb.Execute strSQL
End Sub

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

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

PHP كود :

Public Function TransferOrder(orderID As Integer, newAdminID As Integer, transferReason As String) As Boolean
    ' التحقق مما إذا كان المستخدم الحالي هو أدمن أم لا
    If Not IsAdmin(CurrentUser.UserID) Then
        MsgBox "Only admins can transfer orders."
        Exit Function
    End If
    
    ' التحقق مما إذا كانت الطلبية موجودة ولم يتم المواف