العمليات على قاعدة بيانات sql

لقد قمت بتصميم هذه الشاشة على قاعدة بيانات sql وهذه أكواد الأوامر مرفقة

يوجد بقاعدة البيانات جدولين

الجدول الأول TBAdmin وهو جدول الإدارات ويحتوي على

admin=رقم الإدارة
name= إسم الإدارة

الجدول الثاني TBPart وهو جدول الأقسام ويحتوي على

 
admin= رقم الإدارة
part= رقم القسم
name= اسم القسم

يتم عرض الإدارات في combobox

يتم عرض الأقسام في listbox

في عملية البحث عن قسم يتم تصفية الأقسام حسب اختيارك للإدارة

أرجو من الإخوة إبداء الرأي و تصحيح الأخطاء البرمجية إن وجدت

حدث تحميل الفورم

Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Try

            Me.SqlCnn.ConnectionString = "workstation id=HASAN;packet size=4096;integrated security=SSPI;data source=HASAN;persist security info=False;initial catalog=Salary"
            Me.SqlCnn.Open()
            Me.SqlAdmin.Fill(Me.Data1, "TBAdmin")
            Me.SqlPart.Fill(Me.Data1, "TBpart")

        Catch ex As Exception
            MessageBox.Show(ex.Message, "", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try
    End Sub

حدث الإضافة

Private Sub CmdAddnew_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdAddnew.Click
        Try

            Me.BindingContext(Me.Data1, "TBPart").AddNew()
            Cmd(Me.Controls, False, True, False, False, False, True)

        Catch ex As Exception
            MessageBox.Show(ex.Message(), "", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try
    End Sub

حدث التخزين

Private Sub CmdUpdate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdUpdate.Click
        Try

            If TextBox1.TextLength.ToString = 0 Then
                MessageBox.Show("أدخل إسم القسم لو سمحت", "", MessageBoxButtons.OK, MessageBoxIcon.Error, MessageBoxDefaultButton.Button1, MessageBoxOptions.RightAlign)
                Me.TextBox1.SelectAll()
                Me.TextBox1.Focus()
                Exit Sub
            End If

            If MessageBox.Show("هل تريد بالتأكيد حفظ هذا السجل ؟", "", MessageBoxButtons.YesNo, MessageBoxIcon.Question, MessageBoxDefaultButton.Button2, MessageBoxOptions.RightAlign) = DialogResult.No Then Exit Sub
            Me.BindingContext(Me.Data1, "TBPart").EndCurrentEdit()
            Me.SqlPart.Update(Me.Data1, "TBPart")

            MessageBox.Show("تمت عملية حفظ السجل بنجاح", "", MessageBoxButtons.OK, MessageBoxIcon.Information, MessageBoxDefaultButton.Button1, MessageBoxOptions.RightAlign)

            Me.ListBox1.Enabled = True
            Cmd(Me.Controls, True, False, True, False, False, False)

        Catch ex As Exception
            MessageBox.Show(ex.Message, "", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try
    End Sub

حدث البحث

Private Sub CmdSearch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdSearch.Click
        Try
            Me.SqlPart.SelectCommand.CommandText = "SELECT * FROM TBPart WHERE Admin=" & Convert.ToString(Me.ComboBox1.SelectedValue)
            Me.SqlPart.SelectCommand.ExecuteNonQuery()
            Me.Data1.TBpart.Clear()
            Me.SqlPart.Fill(Me.Data1.TBpart)
            Me.ListBox1.Enabled = True
            Me.ListBox1.Focus()
            Cmd(Me.Controls, False, False, False, True, True, True)

        Catch ex As Exception
            MessageBox.Show(ex.Message, "", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try

حدث التعديل

Private Sub CmdEdit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdEdit.Click
        Try

            If TextBox1.TextLength.ToString = 0 Then
                MessageBox.Show("أدخل إسم القسم لو سمحت", "", MessageBoxButtons.OK, MessageBoxIcon.Error, MessageBoxDefaultButton.Button1, MessageBoxOptions.RightAlign)
                Me.TextBox1.SelectAll()
                Me.TextBox1.Focus()
                Exit Sub
            End If

            If MessageBox.Show("هل تريد بالتأكيد تعديل هذا السجل ؟", "", MessageBoxButtons.YesNo, MessageBoxIcon.Question, MessageBoxDefaultButton.Button2, MessageBoxOptions.RightAlign) = DialogResult.No Then Exit Sub
            Me.BindingContext(Me.Data1, "TBPart").EndCurrentEdit()
            Me.SqlPart.Update(Me.Data1, "TBPart")

            MessageBox.Show("تمت عملية التعديل السجل بنجاح", "", MessageBoxButtons.OK, MessageBoxIcon.Information, MessageBoxDefaultButton.Button1, MessageBoxOptions.RightAlign)

            CmdUndo_Click(sender, e)

        Catch ex As Exception
            MessageBox.Show(ex.Message, "", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try
    End Sub

حدث الحذف

Private Sub CmdDelete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdDelete.Click
        Try

            If MessageBox.Show("هل تريد بالتأكيد حذف هذا السجل ؟", "", MessageBoxButtons.YesNo, MessageBoxIcon.Question, MessageBoxDefaultButton.Button2, MessageBoxOptions.RightAlign) = DialogResult.No Then Exit Sub
            Me.BindingContext(Me.Data1, "TBPart").EndCurrentEdit()
            Me.BindingContext(Me.Data1, "TBPart").RemoveAt(Me.BindingContext(Me.Data1, "TBPart").Position)
            Me.SqlPart.Update(Me.Data1, "TBPart")
            MessageBox.Show("تمت عملية حذف السجل بنجاح", "", MessageBoxButtons.OK, MessageBoxIcon.Information, MessageBoxDefaultButton.Button1, MessageBoxOptions.RightAlign)

            Cmd(Me.Controls, True, False, True, False, False, False)

        Catch ex As Exception
            MessageBox.Show(ex.Message, "", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try
    End Sub

حدث التراجع

Private Sub CmdUndo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdUndo.Click
        Try

            Me.BindingContext(Me.Data1, "TBPart").CancelCurrentEdit()
            Me.SqlPart.SelectCommand.CommandText = "SELECT * FROM TBPart"
            Me.SqlPart.SelectCommand.ExecuteNonQuery()
            Me.Data1.TBpart.Clear()
            Me.SqlPart.Fill(Me.Data1.TBpart)
            Me.ListBox1.Enabled = False
            Cmd(Me.Controls, True, False, True, False, False, False)

        Catch ex As Exception
            MessageBox.Show(ex.Message, "", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try
    End Sub

حدث إغلاق الفورم

Private Sub CmdExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdExit.Click
        Application.Exit()
    End Sub