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

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم قواعد البيانات (http://vb4arb.com/vb/forumdisplay.php?fid=40)
+--- قسم : قسم اسئلة vb6.0 المتعلقة بقواعد البيانات (http://vb4arb.com/vb/forumdisplay.php?fid=72)
+--- الموضوع : احتفاظ تكست بوكس بما فيه دون تعديله (/showthread.php?tid=9576)



احتفاظ تكست بوكس بما فيه دون تعديله - مستر مايسترو - 10-07-13

بسم الله الرحمن الرحيم
****
باختصار و بشكل واضح
انا مبتدئ في الفيجوال بيسك
و لكني قمت بتصميم اول برنامج
****
و طلبي كالتالي
البرنامج عبارة عن نموذجين فقط
مرتبط بقاعدة بيانات اكسس عن طريق اداة data
***
هذا هو الفورم الأول
[ATTACH=CONFIG]3339[/ATTACH]
و هذا هو الفورم الثاني
[ATTACH=CONFIG]3340[/ATTACH]

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



احتفاظ تكست بوكس بما فيه دون تعديله - محمود اكرم - 11-07-13

السلام عليكم
إقتباس :form2.text1.text=text1.text
حيث ان form2.text1.text هو صندوق النص في الفورم الثاني
text1.text وهي تكون في الفورم الاول
لكن لاحظ انك عندما تريد الاضافة سفرغ المحتويات لتهيئة صندوق النص للأضافة لذا انصحك بحفظهن بمتغير
لذا يصبح الكود داخل زر الفورم الاول هو
form2.text1.text=text1.text
form2.show
وفي زر الاضافة يكون هكذا
dim xx1 as string
xx1=text1.text
data1.recordset.addnew
text1.text=xx1
اذا لم تتضح الامور يرجى الاستفسار
:confused:


احتفاظ تكست بوكس بما فيه دون تعديله - مستر مايسترو - 11-07-13

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


احتفاظ تكست بوكس بما فيه دون تعديله - مستر مايسترو - 12-07-13

نجحت الطريقة الآن بعد الضبط الصحيح
جزاك الله خيرا
و لكني اريد منع التعديل على التكست في الفورم الثاني ، أو عندما يضع الشخص الماوس داخل التكست في الفروم الثاني تظهر له رسالة أنه غير قاب للتعديل و لا يستطيع تعديله الا بغلق البرنامج و تعديله من الفورم الاول
علما بأني جعلت الخاصية Locked=true لمبرع النص
و الشئ الاخير
كيف اكرر هذا لعدد من المربعات النصية و هي بعدد مربعات الفورم الاول..
جزاك الله خيرا مرة اخرى
تحياتي


احتفاظ تكست بوكس بما فيه دون تعديله - محمود اكرم - 12-07-13

السلام عليكم
اولا
تضع في القسم العام
dim xx as boolean
ثانيا
وعندما تريد التعديل او الاضافة تضع فيه هذا الكود
xx=true
Dim c As Control
For Each c In FORM1
If TypeOf c Is TextBox Then
C.READONLY=FALSE
Next c



ثالثا
وفي صناديق النص انصحك ان تجعلهم مصفوفة ستقول لي كيف ذلك اقول لك
عليك اولا تضع اول صندوق نص تسميه بخاصية الـ name تضع الاسم txt
ثم تنسخ صندوق النص الى العدد المطلوب فتظهر عند اول عملية لصق رسالة تنبيه تنبهك بانها ستعمل على صنع مصفوفة لذا وافق بالضغط على
yes
وبعد ترتيب صناديق النصوص وربطها بال
data1 ما عليك سوى الضغط على اي صندوق نص ثم تنتقل الى القائمة المنسدلة التي على اليمين في شاشة الكود وتختار gotfocus
if xx=false then
msgbox "this operator is not allowed right now"
exit sub
end if

رابعا
وفي حالة حفظ التعديل او الاضافة يتم جعل جعل خاصية
xx=true
و يتم تهيئة صناديق النصوص للكتابة
Dim c As Control
For Each c In FORM1
If TypeOf c Is TextBox Then
C.READONLY=TRUE
Next c

هناك ملاحظة قد لاتعمل READONLY
لذا استعمل
Locked