الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

سوال بخصوص MDIForm

مغلق
بدأه kokogogo2000 في 11 يونيو 2005 · 10 رد · 887 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

انا عملت فى MDIForm1

status bar بياناتة كالاتى كما فى الصورة

post-44170-1118508847_thumb.jpg

#2

اريد عندما نضغط على خروج يسجل ان اسم المستخدم دة خرج الساعة كام من البرنامج

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

''''''''db.Execute " update usersview set enddate=" & MDIForm1.bar.Panels.item(2) & " where pass= " & MDIForm1.bar.Panels.item(5), dbOpenDynaset

حيث ان userview هى اسم التيبل الى هسجل فية

enddate هو الفيلد نفسة

ارجو التصليح شكرا

#3

انت تريد تسجيل البيانات في الbar فقط ثم إغلاق البرنامج

ام تريد حفظ البيانات مع كتابتها في شريط الحاله

#4

اذا كنت تريد تسجيلها فقط فاليك الكود التالي

"Bar.SimpleText = Date & " " &Time() &" " & rs.Fields("nmd

حيث ان bar تعني شريط الحاله

simpletext هي من خصائص شريط الحاله

date تاريخ الجهاز الحالي

time زمن الخروج من البرنامج

rs.fields("nmd") اسم حقل إسم المستخدم الموجود بالجدول ويمكن هنا اضافة رقم المستخدم

ملاحظه / لابد من تغير الخاصيه style الخاصه بشريط الحاله الى الوضع 1-sbrsimbe

بدلاً من الوضع normal

مع العلم انه لابد من وضع حالة إشتراط حتى يتمكن الجهاز من معرفة اسم المستخدم اي مثلاً عند دخول المستخدم يكتب اسم المستخدم على شريط الحالة او اي مكان حتى يتمكن الجهاز من الرجوع اليه عند اغلاق البرنامج وكتابة الإسم الموجود + الاوامر الأخرى المراد فعلها

اما عند إرادة حفظ البيانات في الجدول فلا بد من إضافة اعمده الى جدول المستخدمين بخصوص زمن الدخول والخروج

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

وشكراً

#5

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

1111.rar

#6

اذن كما قلت لك في السابق انك تريد الإحتفاظ بهذا المعلومات في قاعدة البيانات عندك

اذن يوجد لك مستخدم وقت لدخول والخروج وانت تريد وقت الخروج فقط

ستجد إن شاء الله الحل في هذا الملف المرفق

مجلد جديد.rar

#7

اخوى اشكرك على اهتمامك

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

ارجو المراجعة وابلاغى شكرا

وارجو تحليل هذا الكود وتقول لى ينفع اذاى ام لا

db.Execute " update usersview set enddate= date " & " and " & " set endtime=time where pass= " & bar.Panels.item(5), dbOpenDynaset

ان كان ينفع الطريقة صححلى الكود

#8

معليش يا ابو الشباب انا راجعت الكود حقي ولقيت الخطأ

انا آسف جداً

وهذا هو البرنامج بعد التعديل

MDI FORM.rar

#9

اسمع عند تشغيلك للنموذج اول شي أضيف من قائمة project من references اختر مكتبة microsoft DAO 6.3 opject

ثاني شي اضف شريط الحاله وما يحتاج اقلك كيف تضيفوا وسميه bar وغير خاصية style من الوضع العادي normal الى الوضع

1- sbr simple وبعد كدى إن شاء الله يشتغل معاك البرنامج

وظيفة البرنامج / اول شي راح يسالك عن اسم المستخدم ةهي موجوده في قاعدة البيانات اختر اي اسم وليكن (محمد) ثم سوف تدخل الى البرنامج وعند الخروج من البرنامج سوف يتم حفظ اسم المستخدم المدخل عند التشغيل والموجود في شريط الحاله وفي قاعدة البيانات واضافة له وقت الخروج

وهذا اظن هو المطلوب

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

وشكراً لك

#10

شكرا اخوى انا متشكرا جدا

ممكن نتعرف

gnady@hotmail.com

#11

لاشكر على واجب

وممكن نتعرف انا راح اضيفك عندي في الماسنجر

alihaioty@hotmail.com

هذا الموضوع مغلق.

مواضيع مشابهة