منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : طلب كود الله يحفضكوم رايح نستسلم انقذوني
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
الصفحات : 1 2
اريد كود اعارة الكتب في حالة الكتاب معار يرفض الاعارة وفي حالةالكتاب دخل من الاعارة يحفظ عادي انجدوني انا في ايام ولم اتوص الي الحل شكر الى كل الاعضاء
السلام عليكم و رحمة الله و بركاته
أخي الكريم .. أظن أن فكرة الحفظ و الاستعلام اذا كان الكتاب معار أم لا .. لا يمكن أن تكون بهذه الطريقة .. عندما تقوم بحفظ كتاب ما بقاعدة البيانات..ستكون لديك مكتبة بنفس الكتب و نفس العناوين .. هذه الكتب تبقى نفسها تدور للاعارة .. هل ستقوم بحفظ كتاب .. ثم تسترده  بعد الاعارة .. ثم تعيره ثانية و ثالثة .. تحت أي اسم ستقوم بحفظه..
اذن أرى أن تضيف تشيك بوكس مثلا .. تقوم بالتشييك اذا كان الكتاب معارا..بعد الاستعارة ..بالتعديل تزيل التشييك
مجرد رأي أخي الكريم
كيف ذلك هل يمكن ان تعطيني الطريقة هل التشييك يكون في االفورم ام الدتا قريد ؟؟؟؟؟؟؟
السّلام عليكم و رحمة الله و بركاته
التشيك بوكس يكون على الفورم أخي الكريم و طبعا سيظهر على الداتا جريد
إذا كانت قاعدة البيانات أكسس قم بعمل حقل خاص بالتشيك بوكس .. من نوع
Oui / Non
كل ما عليك استخدام IF
بحيث تتحقق قبل اتمام عملية الاعارة

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

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

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

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

تحياتى لك
اتمنى ان لا اكون ازعجتك اريد التوضيخ اكثر

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

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

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

وهذا الكود اتمنى لا اكون قد اثقلت عليكم

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

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

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

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

تحياتى لك 
وتمنياتى لك التوفيق
الصفحات : 1 2