[ملهمـ]

ان شاء الله في الدرس القادم سيتم تحسين جودة الصورة والصوت

[عبد العزيز البسكري]

السّلام عليكم و رحمة الله و بركاته

أخي الكريم " ملهم " لو تكرّمت .. و هذا لطف منك .. وضع الأكواد التي قمت بكتابتها بالفيديو هنا بالمنتدى .. ريثما تتحسّن جودة الصورة و الصّوت .. لأنّي صدّقني و الله أعلم بذلك ما قدرت المتابعة الحسنة لأنّي لم أشاهد جيّدًا ما كتبته .. رغم أنّي وضعت الجهاز بحجري لأتمكّن من متابعتك و لكن للأسف ..

إلتبست لديّ بعض المسميّات المشار إليها باللون الأصفر بالصّورة أدناه .. و كذلك الأكواد الموضوعة بال SETTING و ال MODULE

كل الشكر و التقدير مقدّمًا

تحياتي

[ملهمـ]

تمام أخي عبدالعزيز ستتم عملية إرفاق للأكواد في كل شرح 
ولزيادة وضوح الفيديو يرجى تغيير دقة الفيديو 
بالنسبة للحقول باللون الأصفر لديك 
حقل الاسم (IMP_NAME ) والحقل الآخر هو حقل (DEBIT)
بالنسبة للأكواد 
كود الاعدادات  والاتصال على النحو التالي 

كود :

Public SqlConn As New SqlClient.SqlConnection
   '============ الاتصال بالسيرفر ===============
   Public Sub Open_Connection()
       If SqlConn.State = 1 Then SqlConn.Close()
       Try
           SqlConn = New SqlConnection(My.Settings.Sqlconn1)
           SqlConn.Open()

       Catch ex As Exception
           MessageBox.Show(ex.Message.ToString)
       End Try
   End Sub

والكود الموضوع في الاعدادات 

كود :

Data Source=JORE;Initial Catalog=DB_SALES;Integrated Security=True

[عبد العزيز البسكري]

السّلام عليكم و رحمة الله و بركاته

تسلم أخي الكريم .. ربّنا يبارك فيك و لك و يرزقك خيرات الدنيا و الآخرة إن شاء الله

إستحملني شويّة يا غالي .. و لا تقلق رجاءً لتساؤلاتي ..

ما هي الكلمة المشار إليها باللون الأصفر لو سمحت .. لم أتمكن من قراءتها ..

2 - الحقل STATES من نوع BIT

صحيح أنت أدرى منّي بذلك لكن فقط أردت الفهم .. لأنني لم أشاهد على الفورم CHECKBOX

محبتي واحترامي

[ملهمـ]

في الدرس القادم فيه شرح لحقل 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

[elmezo]

بارك الله فيك اخى جارى المتابعة وانتظار شروحات اخرى انشاء الله

[ملهمـ]

السلام عليكم ورحمة الله وبركاته 

الدرس الثالث : بحث الموردين + تصميم شاشة الزبائن



ملاحظة : ارجو تغيير دقة الفيديو إلى 480 لمشاهدة افضل

[sendbad100]

وعليكم السلام ورحمة الله وبركاتة 

شكرا لكل ما تقدمه 

ملاحظة على ملاحظتك    دام تعبت  وقمت بالشرح والتسجيل  الافضل  ترفع الدقة  الى 720  كي تكون اكثر وضوحاً.
  480  ما تنفع للاكواد  تطلع غير واضحة.

اسال الله ان  يكتب اجرك مضاعفاً

[عبد العزيز البسكري]

السّلام عليكم و رحمة الله و بركاته

أخي الكريم " ملهم " ..

رجاء .. ما هو الشيء الذي لم أكتبه .. لأنّني عند تشغيل الملف يظهر لي هذا الخطأ

تحياتي

[ملهمـ]

أخي عبدالعزيز 
أنشيء فورم ويكون هو الفورم الرئيسي 
وضع في حدثالفورم لود كود الاتصال Open_Connection()

ثانيا الفنكشن الخاصة بالترقيم التلقائي توضع في الموديل 
ثالثاً سأقوم بإرفاق المشروع بعد كل شرح لرؤية الأكواد 
https://up.top4top.net/downloadf-846p6g621-zip.html