كيف أعرف أن البيانات تغيرت في الداتا سيت في Vb2005

للرفع

أرجو أن يكون السؤال واضحا

كما لاحظت بالنسبة لموضوع الدالة HasChanged فإنه عند تعديل سجل لاتصبح قيمتها True إلا بعد الانتقال للسجل التالي ولهذا لاتخبرك دائما بأن السجل قد تغير حتى تنتقل للسجل التالي

ويمكنك الاستعلام لتحديد هذه التغييرات في الحدث CurrentItemChanged الخاص بـ BindingSource أو الحدث FormClosing الخاص بالنموذج

كنت أنوي أن أخبرك عن haschanges

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

أرجو ممن لديه معلومات أكثر عن هذا الأمر إفادتنا بها

شكرا لكم لموساتي في مشكلتي

أرجو من الأخوة إفادتنا أكبر عن هذا الموضوع و عن كيفية حله

يا إخوتي ليس من المعقول ان نكون نبرمج بـ VS.NET2005 و يوجد فيها مشكلة من هذا التوع

جربت استخدام الخاصية GetChanges الخاصة بالـ Table من ضمن الـ Dataset ونفس الشئ القيمة لا تتغير إلا بعد الانتقال للسجل التالي

يبدو أنه لسبب ما لايتم نقل التعديلات التي تمت ضمن صناديق النصوص إلى الـ Table و الـ Dataset إلا بعد الانتقال للسجل التالي

اخى العزيز هلى جربت ان نقوم بنقل المؤشر MOVE NEXT

حتى تتم عملية التعديل فى DS بصورة اكثر فاعلية

لكن يا أخي ماتريكس ريلود أنا أريد أن أفحص التغييرات التي حصلت على البيانات قبل الانتقال إلى سجل أخر

فكثيرا ما يقف المستخدم عند نفس السجل ثم يغلق النافذة و ينسى حفظ السجل فأنا أريد إظهار رسالة تنبيه له أن البيانات قد تغيرت

و هذا هو سؤالنا كيف أعرف ان البيانات تغيرت قبل إغلاق النافذة

رجاء الموضوع هام فهو إما أنه يوجد حل لهذا الأمر أو يكون هذا خطأ في إطار عمل دوت نيت

أخ was_hal أعتقد أنني توصلت للحل الصحيح والحقيقة بعد ما عرفت بساطة الحل استغربت كيف ما انتبهنا له من أول

الحل بكل بساطة استخدام الخاصية EndEdit لـ Binding Source و جربتها عمليا وشغالة بشكل رائع كما أعتقد

و إليك إجراء الحدث FormClosing كاملا الذي استخدمته فعليا في برنامجي

	' إغلاق النافذة الرئيسية
	Private Sub DiskArchive_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing

		' سؤال المستخدم قبل إنهاء البرنامج
		Dim Msg As String = "هل أنت متأكد من إنهاء البرنامج؟"
		Dim MsgStyle As Integer = MsgBoxStyle.MsgBoxRtlReading Or MsgBoxStyle.MsgBoxRight Or MsgBoxStyle.Question Or MsgBoxStyle.YesNo

		Try
			' إنهاء وضع التعديل فيما إذا كان يتم تعديل بيانات
			Me.DISKSBindingSource.EndEdit()

			' في حالة وجود تغييرات لم يتم حفظها أضف للرسالة تنبيه بوجوب الحفظ
			If Me.DisksArchiveDataSet.HasChanges = True Then
				Msg = "لم تقم بحفظ جميع التغييرات التي قمت بها. " & ControlChars.CrLf & "إذا اخترت نعم فسيتم التراجع عن جميع التعديلات التي قمت بها. " & ControlChars.CrLf & ControlChars.CrLf & Msg
			End If

			' إذا كان يتم إنهاء ويندوز ولايوجد بيانات غير محفوظة 
			' انهي البرنامج بدون السؤال
			If e.CloseReason = CloseReason.WindowsShutDown And Me.DisksArchiveDataSet.HasChanges = False Then
				e.Cancel = False
				Exit Sub
			End If

		Catch ex As Exception
			' Do nothing for now
		End Try

		System.Media.SystemSounds.Question.Play()
		If MsgBox(Msg, MsgStyle, Me.Text) = MsgBoxResult.No Then
			e.Cancel = True		 ' في حال عدم الموافقة ألغي عملية الانهاء
		Else
			e.Cancel = False		' في حال الموافقة تابع وأنهي البرنامج
		End If

	End Sub

تقصد أخي samerselo أن الدالة HasChange تعمل بعد الخاصية EndEdit لل BindingSource

و الله لم اكن أعلم يا أخي في ملفات المساعدة لم يذكر هذا الامر

على كل حال جزاك الله خيرا سأجرب و أرد عليك

was_hal كتب:

تقصد أخي samerselo أن الدالة HasChange تعمل بعد الخاصية EndEdit لل BindingSource

و الله لم اكن أعلم يا أخي في ملفات المساعدة لم يذكر هذا الامر

على كل حال جزاك الله خيرا سأجرب و أرد عليك

لاعليك أخي لا مشكلة أبدا

الحقيقة أنني استغربت من نفسي جدا لأن هذه الخاصية استخدمتها سابقا في برمجة قواعد البيانات أيام VB6

نعم نستدعي الخاصية EndEdit لـ BindingSource ثم نستعلم عن الخاصية HasChanged

و منتظر جوابك بعد التجربة

أفضل طريقة أتبعها ... هو وضع أزرار للتحرير ... فوضع التحرير يكون خاص وبعد الإنتهاء من التعديل على السجل المحدد يضغط المستخدم حفظ

وضع التعديل ، يختلف عن وضع الإضافة يختلف عن وضع التصفح

هذه أفضل طريقة مع 2003 و 2005 بدون مشاكل ( من وجهة نظري )

أخ !MMM! كلامك فيه وجهة نظر وطريقتك جيدة

بس نحنا بالوضع الطبيعي وقت بتعمل الواجهة بيكون وضع التحرير مسموح عند الاستعراض وخصوصا انو الـ 2005 عم يعمللك كل شي بالسحب والافلات يعني مريحك وأعتقد أنه بهذه الطريقة بيكون البرنامج أسلس للمستخدم بس مساوئ هذه الطريقة أن ممكن المستخدم يعدل أي سجل بالخطأ وبما أنو قدرنا نعرف ان المستخدم عدل السجل قبل الانتقال لآخر أو إغلاق الفورم ضمنا انو خلصنا من النقطة يللي عم بيصير فيها ضياع بيانات أحيانا وصار فينا ننبهوا أنو عدل سجل قبل ما ينتقل لغيروا أو يسكر البرنامج

على كل حال كل مبرمج له وجهة نظره الخاصة بهذا الموضوع

ولا أجد ما يمنع مناقشة وتعلم جميع وجهات النظر الممكنة وكافة الطرق الممكن تنفيذ العملية بها وهيك أحيانا وقت بتفرض عليك الظروف العمل بطريقة محددة بتكون متمكن من جميع النواحي

أخي samerselo السلام عليكم

اعتذر على التاخير و لكن للأسف لم تنجح الطريقة مع البرنامج الذي اعمله لم استطع معرفة السبب

فذهبت و عملت مثال صغير فيها جدول مرتبط مع اخر بعلاقة واحد لعدة و استعرضت بيانات الجدول الاب مع تفاصيله من الجدول الثاني في نفس النافذة المهم اخي الطريقة نجحت

ولكن عندي في برنامجي هناك الكثير من الجداول المرتبطة مع بعضها و يتم عرضها في نفس النافذة لا اعرف إن كان هذا السبب يا اخي المشكلة انه اصبح الان يعطي القيمة True للخاصية HasChanges للداتا سيت دائما لا اعرف لماذا حتى بعد ان أقوم بعملية حفظ السجل و استدعاء الدالة AcceptChange للداتا سيت يبقى باستمرار على القيمة

True و الله لا أعرف ما السبب منذ فتح النافذة و عرض البيانات إلى إغلاقها تبقى القيمة True لماذا ؟

حاولت بطرق شتى لاعرف ما المشكلة أو لحلها لكني لم أجد الحل قمت بإعادة بناء النافذة من جديد و بطريقة مختلفة و أيضا عبس

ماذا أفعل ساعدوني يا أصدقاء؟؟؟؟؟

بما أنه لديك أكثر من جدول يتم تعديله تأكد من عمل Update لجميع الجداول الموجودة في الداتا سيت

- فكرة أخرى جرب استخدام الدالة AcceptChanges الخاصة بالداتا سيت

جربت يا أخي ما في فائدة

ما زلت لا استطيع كشف تعديل البيانات

دائما تكون قيمة haschanges للداتا سيت في كل الحالات True ما بعرف شو بدي ساوي

للفرع

أرجو الإفادة هل من طريقة عملية فعالة لحل هذه المشكلة

هل هذه دوت نيت 2005

يا إخوتي رجاء المساعدة

لا تجعلوا مصير هذا الموضوع السكوت و كأننا لم نرى هذا العيب في الدوت نيت

يا أخوتي في الدلفي يوجد حدث يشبه هذا اسمه AfterEdit يعمل باحسن ما يمكن

يعني لو سمحتم اخبروني هل اتبع الطريقة المتخلفة التي ذكرتها في البداية و التي أريد أن أهرب منها و اتوكل على الله

و شكرا

ما بعرف شو بدي قللك

الطريقة يللي حطيتها بالمشاركة رقم 9 الخاصة باستخدام الخاصية EndEdit جربتها عملي قبل ما حطها بالمنتدى و ببرنامج فعلي مو تجريبي و شغالة 100% وعندي أربع جداول في نفس الشاشة يوجد علاقات فيما بينها

وأنت نفسك قلت بالمشكاركة رقم 14 أنو وقت عملت مثال وجربت الطريقة نجحت معك وببرنامجك الرئيسي ما نجحت معناها يوجد مشكلة ما في برنامجك تسبب عدم فاعلية هذه الطريقة

هذا مجر رأي

وإذا ما نجحت معك هي الطريقة ما يزال لديك خيارين

الأول - طريقة الأخ !MMM! في المشاركة رقم 12

ثانيا - الحل البديل الذي تم طرحه في بداية النقاش والذي اعتبرته متخلفا

شكرا لك أخي samerselo

سأجرب مرة أخرى على قاعدة بيانات Northwind و إذا لم تنجح الطريقة سأضع المثال لتساعدوني و إلا حسبنا الله و نعم الوكيل

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

قمت بتصميم قاعدة بيانات بسيطة أقرب ما يكون لقاعدة البيانات التي أعمل عليها و ظهرت نفس المشكلة

قاعدة البيانات عبارة عن جدول للموظفين Employees

و جدول للأقسام Departments

و جدول تفاصيل الموظف Employee_Info و هو جدول مكمل لجدول الموظفين أي مرتبط معه بعلاقة واحد لواحد

و جدول Information وهو جدول ليس مرتبط بأي جدول بل فيه بيانات لحالات القيم التفصيلية

سيتوضح لكم الأمر عندما تتطلعون على المثال و على قاعدة البيانات

المهم المشكلة ما زالت قائمة و كما قلت يعطي التابع Haschanged دائما قيمة True :(

أرجوك أخي سامر و كل الأخوة في هذا المنتدى الكريم المساعدة يا شباب الموضوع مهم يعني صدقوني للأن ما زالت ديلفي تسبق الدوت نيت في كثير من الأمور

فهل هذه إحدى أخطاء نسخة الدوت نيت أم أننا لا نحسن التصرف و التعامل <_<

أين أنتم يا إخوتي الاستاذ طارق ابراهيم و السيد undo و الاستاذ الغملاسي الذي تعودنا عليه و Grazy-Man و مشرف المنتدى Solo.Net و hazoom و الأخرون سامحوني من نسيت أسمائهم :huh:

يا ريت تشاركونا بخبرتكم و لكم جزيل الشكر ;)

HasChangesData.zip

للرفع

يا شباب وضعت مثال وين الجواب

السلام عليكم

بأختصار شديد هنالك عدة أمور في المشروع تضع بجانبها علامات الاستفهام

أولاً : العلاقة بين Employee و Employee_Info هي علاقة فقط بدون مفتاح مرجعي ؟؟؟

هذه الطريقة تحرمك من ايجاد FK binding source للملف الابن Child Table والذي هو Employee_Info

الحل : غير نوع العلاقة في الـ DataSet إلى Both Relation FK and Relation ...

ثانياً : هذا الـ Enumiration وهو DataRowState.Modified ينفجر أو يفعل وفقاً لتغير القيمة في الواجهة Design

بحيث يعتمد على تدفق البيانات في تفعيله , اي عملية Flush للديتا فبطبيعة الحال سيكون True , حاول إستخدام EndEdit للـ FK Binding source

وليس للجدول Employee_Info لتحل هذه المشكلة وكما أخبروك الاخوة استخدم السلوك EndEdit ثم أختبر بالسلوك HasChange

ثالثاً : بما أن الربط لم يتم مع جدول الاب Employee و جدول الابن Employee_Info فبطبيعة الحال لم ولن تخزن قيم فيهم..

رابعاً : لم تقوم بعمل DataBinding للقوائم المنسدلة ComboBoxes لربط الحدث SelectedValue لعرض القيمة التي في

جدول الـ Employee_Info كأرقام مستندة على جدول Lookup table

هذا الذي يبدولي و إن شاء الله بإصلاح ذلك يعمل المشروع كما هو متوقع منه

بالتوفيق إن شاء الله.

السلام عليكم أخي الغملاسي

اقتباس

أولاً : العلاقة بين Employee و Employee_Info هي علاقة فقط بدون مفتاح مرجعي ؟؟؟

إذا كنت فهمت عليك أخي فإنه يوجد علاقة بين الجدولين حيث أنه في الجدول Employees يوجد مفتاح أساسي هو Emp_Id متصل بعلاقة مع الجدول Employee_Info من خلال المفتاح الأساسي Emp_Id حيث يمثل هنا هذا المفتاح دور المفتاح المرجعي ،وهذا النوع من العلاقات يسمى ب One to One أنا أحتاج لهذا النوع من العلاقات في برنامجي وإذا اطلعت على قاعدة البيانات ستجد ان هذه العلاقة موضحة و تم فرض التكامل المرجعي عليها و إذا اتطلعت تصميم الداتا سيت ستجد هذه العلاقة موضحة و لكن يضعها الفيجول كأنها علاقة واحد لعدة ولكنها ضمنيا هي One To One

اقتباس

هذه الطريقة تحرمك من ايجاد FK binding source للملف الابن Child Table والذي هو Employee_Info

الحل : غير نوع العلاقة في الـ DataSet إلى Both Relation FK and Relation ...

إذا فهمت عليك أنا أرى هذه العلاقة في ال DataSource و قمت بسحب هذه العلاقة إلى الفورم لتوليد BindingSource و TableAdapter من هذا الجدول تلقائيا و يفلتر حسب الجدول الاساسي Employee عند التنقل بين السجلات لوجود العلاقة أي لا داعي لعمل استعلام اجلب منه السجل المقابل من هذا الجدول في كل مرة.

الرجاء أخي إذا لم يكن هذا ما تقصده أن تفصل أكثر و ماذا يعني (غير نوع العلاقة في الـ DataSet إلى Both Relation FK and Relation ... )

اقتباس

حاول إستخدام EndEdit للـ FK Binding source

وليس للجدول Employee_Info لتحل هذه المشكلة وكما أخبروك الاخوة استخدم السلوك EndEdit ثم أختبر بالسلوك HasChange

أنا فعلت ذلك أخي استخدمت حدث EndEdit للجدول Employee_Info الناتج من العلاقة أي كما قلت سابقا قمت بسحبه من تحت جذر الجدول Employee

في ال DataSource هل هذا صحيح؟

اقتباس

ثالثاً : بما أن الربط لم يتم مع جدول الاب Employee و جدول الابن Employee_Info فبطبيعة الحال لم ولن تخزن قيم فيهم..

عفوا أخي لكن قلت لك أنني أنشأت العلاقة بين الجدولين و هي موضحة في قاعدة البيانات و الداتا سيت

الرجاء أخي ااطلاع أكثر على المثال

اقتباس

رابعاً : لم تقوم بعمل DataBinding للقوائم المنسدلة ComboBoxes لربط الحدث SelectedValue لعرض القيمة التي في

جدول الـ Employee_Info كأرقام مستندة على جدول Lookup table

أخي أنا لم أصل القوائم المنسدلة لأنني أمرر لها القيم من الكود حيث قمت بعمل استعلام من الجدول Information لأحضر منه القيم بدلالة اسم الحقل و بالتالي أمرر لهذا الاستعلام قيمة الحقل في الكود فيعرض لي القيم في القائمة حسب اسم الحقل

أما ال DataBinding فهي موصولة مع الجدول Employee_Info عن طريق ال SelectedValue لتضع فيها قيم ال Info_Id المحدد في القائمة

هل اتضح الأمر أخي

شكرا لك لمساعدتك لي و لو سمحت ممكن تساعدني بعمل هذا المثال ليعمل فإنه لن يفيدني فقط بل سيفيد الجميع الذين يتعاملون مع قواعد البيانات

والسلام

للرفع