Private Sub Form_Load()
' تحميل البيانات في DataGrid عند تحميل النموذج
LoadDataGrid
End Sub
Private Sub LoadDataGrid()
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim sql As String
' فتح الاتصال بقاعدة البيانات
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=yourdatabase.mdb;"
' استعلام لجلب البيانات من جدول الاستهلاكات
sql = "SELECT Consumptions.ConsumptionID, Customers.CustomerName, Consumptions.Month, Consumptions.ConsumptionValue " & _
"FROM Consumptions INNER JOIN Customers ON Consumptions.CustomerID = Customers.CustomerID"
rs.Open sql, conn, adOpenStatic, adLockOptimistic
' ربط البيانات بـ DataGrid
Set DataGrid1.DataSource = rs
' إغلاق الاتصال بقاعدة البيانات
rs.Close
conn.Close
End Sub
Private Sub btnAddConsumption_Click()
Dim conn As New ADODB.Connection
Dim rsCustomers As New ADODB.Recordset
Dim rsConsumptions As New ADODB.Recordset
Dim month As String
Dim consumptionValue As Double
' تحديد الشهر الجديد والقيمة الافتراضية للاستهلاك
month = InputBox("أدخل الشهر الجديد:", "إضافة استهلاك جديد", "فبراير")
consumptionValue = 0 ' يمكنك تعيين قيمة افتراضية أو طلبها من المستخدم
' فتح الاتصال بقاعدة البيانات
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=yourdatabase.mdb;"
' جلب جميع الزبناء
rsCustomers.Open "SELECT * FROM Customers", conn, adOpenStatic, adLockOptimistic
' فتح جدول الاستهلاكات لإضافة سجلات جديدة
rsConsumptions.Open "SELECT * FROM Consumptions", conn, adOpenDynamic, adLockOptimistic
Do While Not rsCustomers.EOF
' إضافة سجل استهلاك جديد لكل زبون
rsConsumptions.AddNew
rsConsumptions("CustomerID").Value = rsCustomers("CustomerID").Value
rsConsumptions("Month").Value = month
rsConsumptions("ConsumptionValue").Value = consumptionValue
rsConsumptions.Update
rsCustomers.MoveNext
Loop
' تحديث DataGrid
LoadDataGrid
' إغلاق الاتصالات
rsCustomers.Close
rsConsumptions.Close
conn.Close
MsgBox "تم إضافة الاستهلاك الجديد لجميع الزبائن.", vbInformation
End Sub