(09-02-19, 05:27 PM)princelovelorn كتب :

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

بالنسبة لترتيب عرض السجلات

في الدالة loaddata في جملة الأستعلام ضع ORDER BY kism  بدل ORDER BY ID

كما بالكود التالي

كود :

Private Sub loaddata()
       dataconnection()
       Dim da As New OleDb.OleDbDataAdapter("SELECT * From daleel ORDER BY kism", cnn)
       Dim dt As New DataTable
       da.Fill(dt)
       Me.DataGridView1.DataSource = dt
   End Sub

وبالنسبة لكود الحذف

إستبدل كود الحذف لديك بالكود التالي

كود :

   MessageBox.Show("هل تريد حذف الحساب", "تأكيد", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
       If vbYes Then
           dataconnection()
           Dim Del As New OleDb.OleDbCommand
           Dim delnum = DataGridView1.CurrentRow.Cells(0).Value
           Del.Connection = cnn
           Del.CommandType = CommandType.Text
           Del.CommandText = "DELETE * FROM daleel WHERE id like " & delnum & ""
           Del.ExecuteNonQuery()
           cnn.Close()
           loaddata()
       End If

تمنياتي لك بالتوفيق والنجاح

(11-02-19, 06:46 PM)princelovelorn كتب :

الشكر لله والفضل لله

لقد عدلت لك على المشروع بما فهمته منك 

وهو كالتالي

أولا إخفاء عمود حقل id من datagridveiw

عن طريق إضافة السطر التالي لدالة التعبئة

كود :

 DataGridView1.Columns(0).Visible = False

حيث رقم 0  يشير إلى رقم index للعمود المراد التعامل معه

ثانيا إنشاء أجراء بسيط جدا    () clear  لمسح الحقول في الفورم وإستدعاء دالة السجل الجديد

ولو تلاحظ أنت اللى كتبت الأكواد أصلا في زر حفظ وأضافة 

ويتم وضع الاجراء  () clear  في حدث  formload   وفي نهاية حدث زر حفظ وأضافة 

ثالثا بما إنك تريد جعل cod ترقيم تلقائي ( أتوماتيك بدون تدخل المستخدم ) برمجيا

فيجب جعل حقل textbox الخاص به في الفورم  للقراءة فقط  readonly=true

رابعا تم إضافة دالة  loaddata() في نهاية  زر حفظ وأضافة  حتى تقوم بعرض البيانات الجديدة بدون غلق وفتح البرنامج

مرفق المثال بعد التعديلات + الشرح بالكومنت للتغييرات الجديدة

ملحوظة أنا لست أستاذ بل مجرد مبتدئ في تعلم البرمجة 

تمنياتي لك بالتوفيق والنجاح