[hassan 14]

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

[عبد العزيز البسكري]

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

[hassan 14]

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

[عبد العزيز البسكري]

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

التشيك بوكس يكون على الفورم أخي الكريم و طبعا سيظهر على الداتا جريد

إذا كانت قاعدة البيانات أكسس قم بعمل حقل خاص بالتشيك بوكس .. من نوع

Oui / Non

[elgokr]

كل ما عليك استخدام IF

بحيث تتحقق قبل اتمام عملية الاعارة

مثال سطحي

كود :

If RowsTable = textbox1.text Then
' add code insert or update data
End If

طبعاً مسمى RowsTable

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

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

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

تحياتى لك

[hassan 14]

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

---

عبد العزيز البسكري وهل هناك كود اطبقه على الشييك ؟؟؟

[عبد العزيز البسكري]

أخي الكريم " حسن " .. من الصعب تكهن طبيعة مشروعك مثلما ذكر أخي الغالي elgokr

لكن بصفة عامة .. يكون إضافة التشيك بوكس بكود الحفظ  بهذا الشكل مثلا ..

كود :

 .Parameters.Add("@RETURNED_BOOK", OleDbType.Bit).Value = CheckBox1.CheckState

و بالفورم لود .. مثلا ..

كود :

CheckBox1.DataBindings.Add(New System.Windows.Forms.Binding("CheckState", InfoTable, "RETURNED_BOOK", True))

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

تحياتي

[hassan 14]

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

[hassan 14]

هذه الصورة المشروع

---

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

---

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

[elgokr]

جمعة مباركة

بخصوص هذا السطر

كود :

If dt.Rows(0).Item('mooar').ToString = True Then

هل تقصد هنا ان لو قيمة mooar  تساوى 1 المقصود ان الكتاب غير معار بعد ام 0

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

فلماذا توم بالاستعلام به يجب عملية الاستعلام باسم الكتاب او كود الكتاب

من ثم عمل التحقق بان قيمة mooar من الكتاب المستعلم قيمته تساوى 1 او 0

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

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

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

تحياتى لك 

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