[ملهمـ]

في الدرس القادم فيه شرح لحقل STATE
وبالنسبة لكود الاتصال الـ tYPE اجعله CONNECTION 
والـ SCOPE اجعله APPLICATION
طبعا السير تبعي اسمه JORE غيره باسم السيرفر لديك

---

الدرس الثاني : تكملة شاشة الموردين ( تنظيف الشاشة - الاضافة والتعديل والحذف ) 

---

الأكواد المستخدمة في الدرس 

كود :

   '===== الترقيم التلقائي ===============

   Public Function CODE_GENE(TBLNAME, ID_) As Integer
       CODE_GENE = 0
       Dim DT As New DataTable
       Dim DA As New SqlClient.SqlDataAdapter("SELECT * FROM " & TBLNAME & " ORDER BY " & ID_ & "", SqlConn)
       DA.Fill(DT)
       If DT.Rows.Count <> 0 Then
           Dim I = DT.Rows.Count - 1
           CODE_GENE = Val(DT.Rows(I).Item(ID_))

       End If
   End Function

كود التنظيف :

كود :

'===========  تنظيف الشاشة
       For I = 0 To GroupBox1.Controls.Count - 1
           If TypeOf GroupBox1.Controls(I) Is TextBox Then GroupBox1.Controls(I).Text = ""

       Next
       For I = 0 To GroupBox2.Controls.Count - 1
           If TypeOf GroupBox2.Controls(I) Is TextBox Then GroupBox2.Controls(I).Text = ""

       Next
       '============الترقيم التلقائي========
       TXT_CODE.Text = CODE_GENE("IMPORTERS", "ID") + 1
       '=============================================
       ButtEdit.Enabled = False
       ButtDelete.Enabled = False
       DEBIT.Text = "0.000"
       CREDIT.Text = "0.000"
       TXT_MINES.Text = "0.000"
       TXT_NAME.Select()

كود الحفظ :

كود :

'======== قيود الادخال ============
       If TXT_NAME.Text = "" Then
           MessageBox.Show("يرجى إدخال اسم المورد", "رسالة تنبيه", MessageBoxButtons.OK, MessageBoxIcon.Error)
           TXT_NAME.Select()
           Exit Sub
       End If
       If TXT_PHONE.Text = "" Then
           MessageBox.Show("يرجى إدخال رقم هاتف المورد", "رسالة تنبيه", MessageBoxButtons.OK, MessageBoxIcon.Error)
           TXT_PHONE.Select()
           Exit Sub
       End If
       '============================  كود الحفظ =====================
       Dim DT As New DataTable
       Dim DA As New SqlClient.SqlDataAdapter("SELECT * FROM IMPORTERS WHERE IMP_NAME = '" & TXT_NAME.Text & "' OR IMP_PHONE = '" & TXT_PHONE.Text & "' ", SqlConn)
       DA.Fill(DT)
       If DT.Rows.Count > 0 Then
           MessageBox.Show("المورد موجود مسبقاً", "رسالة تنبيه", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
       Else
           DT.Rows.Add()
           Dim ADD_ As Integer = DT.Rows.Count - 1
           DT.Rows(ADD_).Item("IMP_CODE") = TXT_CODE.Text
           DT.Rows(ADD_).Item("IMP_NAME") = TXT_NAME.Text
           DT.Rows(ADD_).Item("IMP_ADDRESS") = TXT_ADDRESS.Text
           DT.Rows(ADD_).Item("IMP_PHONE") = TXT_PHONE.Text
           DT.Rows(ADD_).Item("NOTES") = TXT_NOTES.Text
           DT.Rows(ADD_).Item("COMPANY") = TXT_COMPANY.Text
           DT.Rows(ADD_).Item("DEBIT") = Val(DEBIT.Text)
           DT.Rows(ADD_).Item("CREDIT") = Val(CREDIT.Text)
           DT.Rows(ADD_).Item("STATE") = True
           Dim SAVE As New SqlClient.SqlCommandBuilder(DA)
           DA.Update(DT)
           DT.AcceptChanges()
           MessageBox.Show("تمت عملية إضافة بيانات المورد بنجاح", "رسالة تأكيد", MessageBoxButtons.OK, MessageBoxIcon.Information)
           ButtNew_Click(sender, e)

       End If

كود التعديل :

كود :

If TXT_NAME.Text = "" Then
           MessageBox.Show("يرجى إدخال اسم المورد", "رسالة تنبيه", MessageBoxButtons.OK, MessageBoxIcon.Error)
           TXT_NAME.Select()
           Exit Sub
       End If
       If TXT_PHONE.Text = "" Then
           MessageBox.Show("يرجى إدخال رقم هاتف المورد", "رسالة تنبيه", MessageBoxButtons.OK, MessageBoxIcon.Error)
           TXT_PHONE.Select()
           Exit Sub
       End If
       '============================  كود الحفظ =====================
       Dim DT As New DataTable
       Dim DA As New SqlClient.SqlDataAdapter("SELECT * FROM IMPORTERS WHERE IMP_NAME = '" & TXT_NAME.Text & "' OR IMP_PHONE = '" & TXT_PHONE.Text & "' ", SqlConn)
       DA.Fill(DT)
       If DT.Rows.Count = 0 Then
           MessageBox.Show("المورد غير موجود يرجى التأكد", "رسالة تنبيه", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
       Else
           Dim UPDATE As Integer = BindingContext(DT).Position
           DT.Rows(UPDATE).Item("IMP_CODE") = TXT_CODE.Text
           DT.Rows(UPDATE).Item("IMP_NAME") = TXT_NAME.Text
           DT.Rows(UPDATE).Item("IMP_ADDRESS") = TXT_ADDRESS.Text
           DT.Rows(UPDATE).Item("IMP_PHONE") = TXT_PHONE.Text
           DT.Rows(UPDATE).Item("NOTES") = TXT_NOTES.Text
           DT.Rows(UPDATE).Item("COMPANY") = TXT_COMPANY.Text
           DT.Rows(UPDATE).Item("DEBIT") = Val(DEBIT.Text)
           DT.Rows(UPDATE).Item("CREDIT") = Val(CREDIT.Text)
           DT.Rows(UPDATE).Item("STATE") = True
           Dim Save As New SqlClient.SqlCommandBuilder(DA)
           DA.Update(DT)
           DT.AcceptChanges()
           MessageBox.Show("تمت عملية تعديل بيانات المورد بنجاح", "رسالة تأكيد", MessageBoxButtons.OK, MessageBoxIcon.Information)
           ButtNew_Click(sender, e)

       End If

كود الحذف : 

كود :

If MessageBox.Show("هل ترغب في حذف بيانات المورد ؟", "رسالة تنبيه", MessageBoxButtons.YesNo) = Windows.Forms.DialogResult.No Then Exit Sub
       '============================  كود الحفظ =====================
       Dim DT As New DataTable
       Dim DA As New SqlClient.SqlDataAdapter("SELECT * FROM IMPORTERS WHERE IMP_NAME = '" & TXT_NAME.Text & "' OR IMP_PHONE = '" & TXT_PHONE.Text & "' ", SqlConn)
       DA.Fill(DT)
       If DT.Rows.Count = 0 Then
           MessageBox.Show("المورد غير موجود يرجى التأكد", "رسالة تنبيه", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
       Else
           Dim UPDATE As Integer = BindingContext(DT).Position
           DT.Rows(UPDATE).Item("STATE") = False
           Dim Save As New SqlClient.SqlCommandBuilder(DA)

           DA.Update(DT)
           DT.AcceptChanges()
           MessageBox.Show("تمت عملية حذف بيانات المورد بنجاح", "رسالة تأكيد", MessageBoxButtons.OK, MessageBoxIcon.Information)
           ButtNew_Click(sender, e)

       End If