سؤال لو سمحتم احبتى فى الله - نسخة قابلة للطباعة

كود :
Imports System.Data.OleDb



Public Class Form1

    Dim connString As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=YourDatabaseName.accdb" ' استبدل YourDatabaseName.accdb باسم قاعدة البيانات الخاصة بك

    Dim tableName As String = "YourTableName" ' استبدل YourTableName باسم الجدول الخاص بك



    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        ProcessData()

    End Sub



    Private Sub ProcessData()

        Dim query As String = "SELECT ID, MAXRECEIVE, RECEIVED, DATE FROM {tableName}"



        Using conn As New OleDbConnection(connString)

            Using cmd As New OleDbCommand(query, conn)

                Try

                    conn.Open()

                    Dim reader As OleDbDataReader = cmd.ExecuteReader()



                    While reader.Read()

                        Dim ID As Integer = Convert.ToInt32(reader("ID"))

                        Dim MAXRECEIVE As Decimal = Convert.ToDecimal(reader("MAXRECEIVE"))

                        Dim RECEIVED As Decimal = Convert.ToDecimal(reader("RECEIVED"))

                        Dim DATE_OPR As Date = Convert.ToDateTime(reader("DATE"))



                        ' حساب الفرق

                        Dim difference As Decimal = MAXRECEIVE - RECEIVED



                        ' التحقق من الفرق

                        If difference <= 0 Then

                            ' إيقاف عمليات الاستلام

                            MessageBox.Show("تم الوصول إلى الحد الأقصى للاستلام للرقم المرجعي: {ID}", "تنبيه")



                            ' هنا يمكنك إضافة كود لتعطيل عناصر التحكم في واجهة المستخدم لمنع المزيد من الاستلام

                            ' For example:

                            ' TextBox_Receive.Enabled = False

                            ' Button_Receive.Enabled = False



                        Else

                            ' يمكنك هنا إضافة كود لتحديث قيمة الاستلام في قاعدة البيانات

                            ' وتفعيل عناصر التحكم في واجهة المستخدم إذا كانت معطلة

                        End If

                 

                        ' إعادة تعيين الاستلام في بداية كل شهر

                        If DateTime.Now.Day = 1 Then

                            ' تحديث قيمة الاستلام إلى صفر في قاعدة البيانات

                            ResetReceived(ID, conn)

                        End If

                    End While



                    reader.Close()



                Catch ex As Exception

                    MessageBox.Show("Error: " & ex.Message)

                End Try

            End Using

        End Using

    End Sub



    Private Sub ResetReceived(ID As Integer, conn As OleDbConnection)

        Dim updateQuery As String = "UPDATE {tableName} SET RECEIVED = 0 WHERE ID = {ID}"

        Using updateCmd As New OleDbCommand(updateQuery, conn)

            updateCmd.ExecuteNonQuery()

        End Using

    End Sub

End Class