السلام عليكم ورحمة الله وبركاته
المشروع مرفق كامل
في الفورم رقم 8 قمت بعرض الداتا في الداتاقريد فيو
طبعا الفكرة انه تجي اسم الشخص ورقمه وبياناته وفي الاخير الإجراء
في الفورمات السابقة كان يضيف لي تلقائي تحت الإجراء
اريد مثلا إذا دخل المدير يعدل فقط كلمة تحت الإجراء ويخليها مثلا تم التنفيذ أو لم يتم التنفيذ ولا اريده يعدل باقي الخانات نهائيا
كيف يمكنني عمل ذلك
المشروع مرفق كامل
السلام عليكم ورحمة الله وبركاته
اخي الكريم كلمة المرور واسم المستخدم مطلوبتان وانت لم تذكرهما اضافة الى ان قاعدة البيانات لم تفتح معي
المهم في الفورم التي سيدخل عليها المدير اجعل DataGridview1.ReadOnly=true حتى لايستطيع التغيير فيها
وفي حدث DataGridView1_CellContentClick النقر على صف في الداتاغرايد سيجلب رقم الايدي ويضعه في المتغير الذي ستعرفه
ويجلب الحقل الذي سيكتب فيه المدير الى مربع التكست بوكس
كود :
' عرف هذا المتغير في الاعلى
Dim N_Id As Integer = 0
Private Sub DataGridView1_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles DataGridView1.CellContentClick
N_Id = DataGridView1.CurrentRow.Cells("اسم عمود الاي دي في الجدول").Value.ToString()
State_H.Text = DataGridView1.CurrentRow.Cells("اسم عمود التنفيذ في الجدول").Value.ToString()
End Sub
الان مع كل اختيار لصف سيجلب الايدي مع حقل المدير بعدها سيكتب المدير في التكست بوكس ويضغط على زر تحذيث الطلب والذي ستكون اكواده التعديل على السجل ذو الاي دي الموجود في المتغير الذي عرفناه
طبعا ستعدل حقل واحد فقط هو حقل التكست بوكس(الخاص بالمدير) بشرظ الاي دي المذكور
(22-10-21, 12:55 AM)ابراهيم ايبو كتب : [ -> ]السلام عليكم ورحمة الله وبركاته
اخي الكريم كلمة المرور واسم المستخدم مطلوبتان وانت لم تذكرهما اضافة الى ان قاعدة البيانات لم تفتح معي
المهم في الفورم التي سيدخل عليها المدير اجعل DataGridview1.ReadOnly=true حتى لايستطيع التغيير فيها
وفي حدث DataGridView1_CellContentClick النقر على صف في الداتاغرايد سيجلب رقم الايدي ويضعه في المتغير الذي ستعرفه
ويجلب الحقل الذي سيكتب فيه المدير الى مربع التكست بوكس
كود :
' عرف هذا المتغير في الاعلى
Dim N_Id As Integer = 0
Private Sub DataGridView1_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles DataGridView1.CellContentClick
N_Id = DataGridView1.CurrentRow.Cells("اسم عمود الاي دي في الجدول").Value.ToString()
State_H.Text = DataGridView1.CurrentRow.Cells("اسم عمود التنفيذ في الجدول").Value.ToString()
End Sub
الان مع كل اختيار لصف سيجلب الايدي مع حقل المدير بعدها سيكتب المدير في التكست بوكس ويضغط على زر تحذيث الطلب والذي ستكون اكواده التعديل على السجل ذو الاي دي الموجود في المتغير الذي عرفناه
طبعا ستعدل حقل واحد فقط هو حقل التكست بوكس(الخاص بالمدير) بشرظ الاي دي المذكور
أهلا أستاذي الكريم
أنا لم أذكرهما وذلك لأن القاعدة مرفقه وبداخلها اسم المستخدم والرقم السري
علماً أن اسم المستخدم abdurhman
الرقم السري abd2006
وجاري الان تجربة الأكواد
(22-10-21, 12:48 PM)ابراهيم ايبو كتب : [ -> ]عدل هذا السطر
كود :
N_Id = DataGridView1.CurrentRow.Cells("اسم عمود الاي دي في الجدول").Value.ToString()
الى هذا السطر
كود :
N_Id = DataGridView1.CurrentRow.Cells("اسم عمود الاي دي في الجدول").Value
اي الغ كلمة .Tostrıng لان المتغير رقمي واسف على الخطأ
ما ضبط معي للاسف
طبعا ضفت زر جديد سميته عرض حالة الطلب
والحين إذا وقفت على خانة معينة يجلبها لي لتكست State_H.Text
لكن ابي اعدل
خليت زر التعديل مختلف
واحتاج اعدل فيه
الأكواد ماضبطت
علماً
أن اسم المستخدم abdurhman
الرقم السري abd2006
القاعدة اسم الجدول المطلوب التعديل فيه Hardwere
اسم الخانة المطلوب التعديل فيها State_H
مرفق الملف كامل
السلام عليكم ورحمة الله وبركاته
اخي الكريم قاعدة البيانات لاتفتح حتى مع البرنامج ومع ادخال كلمة المرور والسر
والرسالة تقول عدم توافق اصدار الاكسس
The database you are trying to open requires a newer version of Microsoft Access.
حاول ان ترفع قاعدة البيانات باصدار 2003 و2007
لا استطيع مساعدتك اذا لم اتمكن من تشغيل قاعدة البيانات والدخول الى البرنامج
(22-10-21, 09:53 PM)ابراهيم ايبو كتب : [ -> ]السلام عليكم ورحمة الله وبركاته
اخي الكريم قاعدة البيانات لاتفتح حتى مع البرنامج ومع ادخال كلمة المرور والسر
والرسالة تقول عدم توافق اصدار الاكسس
The database you are trying to open requires a newer version of Microsoft Access.
حاول ان ترفع قاعدة البيانات باصدار 2003 و2007
لا استطيع مساعدتك اذا لم اتمكن من تشغيل قاعدة البيانات والدخول الى البرنامج
ممكن أتواصل معك على الخاص
السلام عليكم ورحمة الله وبركاته
اخي الكريم تفضل التعديل في المرفقات
اتمنى ان يكون المطلوب