احتفاظ تكست بوكس بما فيه دون تعديله - نسخة قابلة للطباعة +- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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
|