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

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : طلب كود الله يحفضكوم رايح نستسلم انقذوني (/showthread.php?tid=24980)

الصفحات: 1 2

طلب كود الله يحفضكوم رايح نستسلم انقذوني - hassan 14 - 15-05-18

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

RE: طلب كود الله يحفضكوم رايح نستسلم انقذوني - عبد العزيز البسكري - 15-05-18

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

RE: طلب كود الله يحفضكوم رايح نستسلم انقذوني - hassan 14 - 15-05-18

كيف ذلك هل يمكن ان تعطيني الطريقة هل التشييك يكون في االفورم ام الدتا قريد ؟؟؟؟؟؟؟

RE: طلب كود الله يحفضكوم رايح نستسلم انقذوني - عبد العزيز البسكري - 15-05-18

السّلام عليكم و رحمة الله و بركاته
التشيك بوكس يكون على الفورم أخي الكريم و طبعا سيظهر على الداتا جريد
إذا كانت قاعدة البيانات أكسس قم بعمل حقل خاص بالتشيك بوكس .. من نوع
Oui / Non


RE: طلب كود الله يحفضكوم رايح نستسلم انقذوني - elgokr - 15-05-18

كل ما عليك استخدام IF
بحيث تتحقق قبل اتمام عملية الاعارة

مثال سطحي
كود :
If RowsTable = textbox1.text Then
' add code insert or update data
End If

طبعاً مسمى RowsTable
هو الاسم للاستعلام عن الحاجة والتحق قيمة الحقل مع النص بالفورم

بسبب عدم وجود تفاصيل عن مشروعك لا يمكننى افادتك اكثر من ذلك

واتمنى ان الفكرة مبسطة

تحياتى لك


RE: طلب كود الله يحفضكوم رايح نستسلم انقذوني - hassan 14 - 16-05-18

اتمنى ان لا اكون ازعجتك اريد التوضيخ اكثر
عبد العزيز البسكري وهل هناك كود اطبقه على الشييك ؟؟؟

RE: طلب كود الله يحفضكوم رايح نستسلم انقذوني - عبد العزيز البسكري - 16-05-18

أخي الكريم " حسن " .. من الصعب تكهن طبيعة مشروعك مثلما ذكر أخي الغالي elgokr
لكن بصفة عامة .. يكون إضافة التشيك بوكس بكود الحفظ  بهذا الشكل مثلا ..
كود :
 .Parameters.Add("@RETURNED_BOOK", OleDbType.Bit).Value = CheckBox1.CheckState

و بالفورم لود .. مثلا ..
كود :
CheckBox1.DataBindings.Add(New System.Windows.Forms.Binding("CheckState", InfoTable, "RETURNED_BOOK", True))

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


RE: طلب كود الله يحفضكوم رايح نستسلم انقذوني - hassan 14 - 16-05-18

شكرا لكم الخوة الاعزاء على تعاونكم رمضان كريم

RE: طلب كود الله يحفضكوم رايح نستسلم انقذوني - hassan 14 - 25-05-18

هذه الصورة المشروع
وهذا الكود اتمنى لا اكون قد اثقلت عليكم
وهذا الكود اتمنى لا اكون قد اثقلت عليكم

RE: طلب كود الله يحفضكوم رايح نستسلم انقذوني - elgokr - 25-05-18

جمعة مباركة
بخصوص هذا السطر
كود :
If dt.Rows(0).Item('mooar').ToString = True Then

هل تقصد هنا ان لو قيمة mooar  تساوى 1 المقصود ان الكتاب غير معار بعد ام 0
ثانياً كود الاستعلام اذا كان mooar حتى الان كما انا فهمت هوة قيمة ان الكتاب معار او لا
فلماذا توم بالاستعلام به يجب عملية الاستعلام باسم الكتاب او كود الكتاب
من ثم عمل التحقق بان قيمة mooar من الكتاب المستعلم قيمته تساوى 1 او 0

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

مع اخذ بالاعتبار ان قيمة 1 تعنى غير معار

تحياتى لك 
وتمنياتى لك التوفيق