[VB.NET] مساعدة في الكود - نسخة قابلة للطباعة

كود :
Imports System.Data.OleDb







Public Class الزبائن

    Dim conn As New OleDbConnection

    Dim cmd As New OleDbCommand

    Dim tbl As New DataTable



    Private Sub الزبائن_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        conn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" + IO.Directory.GetCurrentDirectory + "\ameer.accdb"





    End Sub



    Private Sub cleardata()

        ComboBox1.Text = ""

        TextBox1.Text = ""

        TextBox2.Text = ""

        TextBox3.Text = ""

        TextBox4.Text = ""

        ComboBox2.Text = ""

        ComboBox3.Text = ""

        TextBox5.Text = ""

        TextBox1.Focus()

        تعديل.Enabled = False

        حذف.Enabled = False



    End Sub

    Private Sub إضافة_Click(sender As Object, e As EventArgs) Handles إضافة.Click



        cmd.Connection = conn

        cmd.CommandText = "INSERT INTO Customers values('" & ComboBox1.Text & "','" + TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "','" & ComboBox2.Text & "','" & ComboBox3.Text & "','" & TextBox5.Text & "')"

        conn.Open()

        cmd.ExecuteNonQuery()

        MessageBox.Show("تمت الإضافة بنجاح")

        cleardata()

        conn.Close()

    End Sub



    Private Sub تعديل_Click(sender As Object, e As EventArgs) Handles تعديل.Click

        Dim str1 As String = InputBox("ادخل الاسم المراد التعديل عليه")

        cmd.Connection = conn

        cmd.CommandText = "Update Customers set اليوم='" & ComboBox1.Text & "',التاريخ='" & TextBox1.Text & "',إسم الزبون='" & TextBox2.Text & "',رقم الجوال='" & TextBox3.Text & "',نوع الجهاز='" & TextBox4.Text & "',حالة الجهاز='" & ComboBox2.Text & "',حالة الزبون='" & ComboBox3.Text & "',ملاحظات=" & TextBox5.Text & "where إسم الزبون=" & str1

        conn.Open()

        cmd.ExecuteNonQuery()

        conn.Close()

        MessageBox.Show("تم التعديل بنجاح")

        cleardata()

    End Sub



    Private Sub حذف_Click(sender As Object, e As EventArgs) Handles حذف.Click



        cmd.Connection = conn

        cmd.CommandText = "delete from Customers where إسم الزبون= " & ComboBox1.Text



        conn.Open()

        cmd.ExecuteNonQuery()

        conn.Close()

        MessageBox.Show("تم الحذف بنجاح")

        cleardata()

    End Sub



    Private Sub تنظيف_Click(sender As Object, e As EventArgs) Handles تنظيف.Click

        cleardata()

    End Sub



    Private Sub بحث_Click(sender As Object, e As EventArgs) Handles بحث.Click





        Panel1.Visible = True



    End Sub



    Private Sub خروج_Click(sender As Object, e As EventArgs) Handles خروج.Click

        Me.Hide()



    End Sub



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

        Panel1.Visible = False

    End Sub



    Private Sub RadioButton1_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton1.CheckedChanged

        TextBox6.Enabled = True

        TextBox7.Enabled = False



    End Sub



    Private Sub RadioButton2_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton2.CheckedChanged

        TextBox6.Enabled = False

        TextBox7.Enabled = True

    End Sub



    Private Sub TextBox6_TextChanged(sender As Object, e As EventArgs) Handles TextBox6.TextChanged

        cmd.Connection = conn

        cmd.CommandText = "select * from Customer where إسم الزبون like '%" & TextBox6.Text & "%'"

        tbl.clear()

        conn.Open()

        tbl.load(cmd.ExecuteReader())

        conn.Close()



        DataGridView1.DataSource = tbl



    End Sub



    Private Sub Panel1_Paint(sender As Object, e As PaintEventArgs) Handles Panel1.Paint



    End Sub

End Class