ما فائدة هذا الكود <_<
MSHFlexGrid1.ColSel = 6
وما فائدة هذا السطر <_<
AbsolutePosition
ولماذا استخدمنا فعمليه الإضافه هذا السطر <_<
If rs.RecordCount > 0 Then
With rs
If Not Trim(Text3) = "" Then ![Dsc_CardNo] = Trim(Text3)
انا لاحظت انا الفرق بين كود الاضافة والتعديل هذا السطر <_<
<_< وما هذا الكود بالتفصيل لو سمحت
s = MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 2)
وياريت حل يغنيني عن الدبل كلك.... :blink:
تم تعديل هذه المشاركة بواسطة POWER _GIRL في 25 فبراير 2005 في 02:24
<< CLICK TO START>>
ليس أن تجد حلا بل أن تجد الافضل
أن تصـــنع الخـيال هذا هوا الأفضل</span>
:blink: [CODE]MSHFlexGrid1.ColSel = 6
هذا الكود .. لمعرفة عدد الحقول الكليه المطلوب تحديدها وتلوينها
:wacko:
AbsolutePosition
وهذا الكود لمعرفة رقم السجل الحالي .. (المنتقله إليه)
If rs.RecordCount > 0 Then
هنا التأكد من وصول البحث عن البيانات المطلوبه إلى آخر السجل
:wacko:
With rs
جملة لتنفيذ الأوامر التي بداخلها الخاصة بـ rs
:wacko:
If Not Trim(Text3) = "" Then ![Dsc_CardNo] = Trim(Text3)
وهذا الكود .. لتأكد من أن القيمة المدرجه في الحقل ليست قيمة فارغة .. لكي يتم حفظه في حقل الجدول
:wacko:
s = MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 2)
للأحتفاظ بالقيمة السجل الذي قمتي بالضغط عليه في المتغير S
تحياتي B)
تم تعديل هذه المشاركة بواسطة HnHn في 25 فبراير 2005 في 13:49
سجل ايميلك هنا
ليصلك كل ما هو مفيد في عالم البرمجةشكرا على الشرح ولكن
لماذا اضفنا كلمه Trim قبل إسم كائن النص؟!!
If rs.RecordCount > 0 Then ..هنا التأكد من وصول البحث عن البيانات المطلوبه إلى آخر السجل ..لم افهمك HnHn
هذا الكود يقول بشرط ان عدد السجلات اكبر من الصفر!.؟!!!!
وماذا يعني رقم 2 ,MSHFlexGrid1.Row !؟؟
(MSHFlexGrid1.Row, MSHFlexGrid1.Col) لماذا لم نكتب هكذا
(رقم الصف,رقم العامود)
وياريت حل يغنيني عن الدبل كلك.... وشكراااااا
تم تعديل هذه المشاركة بواسطة POWER _GIRL في 25 فبراير 2005 في 18:39
<< CLICK TO START>>
ليس أن تجد حلا بل أن تجد الافضل
أن تصـــنع الخـيال هذا هوا الأفضل</span>
Trim لأخذ الحروف النصي و يمكن الاستغناء عنه بمعنى عندما نبدء بعملية الضرب نستخدم Val وهي للقيم الرقمية
If rs.RecordCount > 0
تستخدم زي
If rs.EOF
بمعنى عند العثور على (شرط معين )
2 ,MSHFlexGrid1.Row !؟؟
بمعنى الرف الثاني .. أو السطر الثاني لأن السطر الأول هو عنوان للحقول
وماذا يعني رقم 2 ,MSHFlexGrid1.Row !؟؟ (MSHFlexGrid1.Row, MSHFlexGrid1.Col) لماذا لم نكتب هكذا (رقم الصف,رقم العامود)
حتى يتم التحديد في اداة الفليكس اثناء التنقل بين السجلات
تحيـــاتي
سجل ايميلك هنا
ليصلك كل ما هو مفيد في عالم البرمجةشكرا HnHn ولكن
rs.RecordCount > 0
لماذا استخدمنا هذا الشرط عند الاضافة والتعديل
وايضا هذا لما استخدمنا عند التعديل والاضافه هذا الشرط
If Not Trim(Text3) = ""
تم تعديل هذه المشاركة بواسطة POWER _GIRL في 25 فبراير 2005 في 21:02
<< CLICK TO START>>
ليس أن تجد حلا بل أن تجد الافضل
أن تصـــنع الخـيال هذا هوا الأفضل</span>
-09
الاخت الفاضلة
rs.RecordCount > 0
يجب ان نعرف تناميكية العمل و هى ان يجب عند اضافة سجل يجب ان يسبق عملية الحفظ اما (( اضافة سجل جديد )) أو (( تعديل )) اذا قمنا بعملية الحفظ و ليس هناك سجل قمت بأضافتة فى قاعدة البيانات فماذا يحدث !!!! هذا ما سوف يبحث عنة الكون حيث سوف يرى ما اذا كان عدد السجلات أكبر من 0 اى ان عناك سجلات موجودة فى قاعدة البيانات
الاخ الفاضل HnHn
اقتباسIf rs.RecordCount > 0تستخدم زي
If rs.EOF
لا أعتقد ان هناك تشابة حيث ان :
- الشرط الاول سوف يعيد true فى حالة وجود سجلات أكثر من 0 اى بعد أول عملية حفظ
- الشرط الثانى ( ويستخدم كثيرا فى البحث ) حيث يعيد قيمة true فى حالة الوصل الى نهاية قاعدة البيانات
و الله أعلم
و شكرا
ارجوا مساعدتى للعمل كمبرمج اوراكل باى شركة خبرتى 1 سنه و ربنا الموفق
خبرى 6 سنوات فى فيجوال بيزك 6و ASP
احسنت ..اخي codefinder هذا الذي كنت اريد قوله ... ومشكور للتوضيح
تم تعديل هذه المشاركة بواسطة HnHn في 25 فبراير 2005 في 23:48
سجل ايميلك هنا
ليصلك كل ما هو مفيد في عالم البرمجةشكرا codefinder & hn hn
If Not Trim(Text3) = ""s = MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 2) 'حتى يتم تحديد السجل اثناء التنقل
ابغا شرح لهذا الكود اكثر لأني ماني قادره اربط توضيحك للكود بوظيفتها
مساعده اخواني جزاكم الله خير
:lol:
تم تعديل هذه المشاركة بواسطة POWER _GIRL في 26 فبراير 2005 في 02:59
<< CLICK TO START>>
ليس أن تجد حلا بل أن تجد الافضل
أن تصـــنع الخـيال هذا هوا الأفضل</span>
ما أشوف احد رد على السؤال.!؟؟
<< CLICK TO START>>
ليس أن تجد حلا بل أن تجد الافضل
أن تصـــنع الخـيال هذا هوا الأفضل</span>
ممكن شرح الكود لو سمحتوا
يامبرمجين..ياخبراء الفيجول بيسك..ساعدوني
<< CLICK TO START>>
ليس أن تجد حلا بل أن تجد الافضل
أن تصـــنع الخـيال هذا هوا الأفضل</span>
-09
الاخ العزيز HnHn
شكرا على التواضع و التقدير و اذا كان من استاذ كبير مثلك
شكرا
الا خت POWER _GIRL
أعتقد الن الكود المكتوب خطأ !!
فى البداية يجب ان نعرف فكرة عمل الـ trim و هى بكل بساطة على أهمال المسافات ( حزف المسافات الموجودة فى النص ) بمعنى أخر
هناك ثلاث انواع للtrim :
و سوف يكون المثال معنا على الاتى :: "- - - VB - - - "
1- LTIMR --> LRFT TRIM
و هى مسؤولة عن حزف المسافات الموجودة على يسار الكلام و على المثل سوف يظهر الاتى :: "- - - VB"
2- RTRIM --> RGIHT TRIM
و هى المسؤولة عن حزف المسافات الموجودة يمين الكلام و المثال سوف يكون :: "VB - - - "
3- TRIM
و هى التى سوف تحزف المسافات يمين و يسار :: "VB"
تمام
نرجع الى الكود
اقتباسIf Not Trim(Text3.TEXT) = ""
معنى الكود هذا او المراد اننا نريد أن نعرف ما اذا كان هناك كلام مكتوب فى التكست بوكس ام لا التووضيح :
فاذا قلنا :
If Trim(Text3.TEXT) = ""
فهى تعنى ان يقوم الـ VB فى البداية بحزف المسافات الموجودة فى الـ TEXT3.TEXT ثم يرى ما اذا كان مكتوب شئ أم لا و سوف يعيد ان التكست فارغ أما وضع الNOT سوف تكون للتأكيد على وجوب وجود كلام فى التكست
فتعنى (( يجب ان يكون الموجود بالتكست بعد حزف الفراغ لا يساوى فارغ ))
و بالنسبة لــ
اقتباسs = MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 2)
فيفترض ان هذا هى الأوامر فى حالة وجوب الشرط و أعتقد انها خطأ فى الكتابة ويمكن ان يكون الكود هكذا :
If Not Trim(Text3.text) = "" Then s = MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 2) End If
و أعتقد انها هكذا و تعنى (( اذا لم يكون التكست فارغ فقوم بتعليم الجريد ذات الصف ... و اللون ...))
ملحوظة :
الاخ الفاضلة أنا لا أجيد التعامل مع الفليكس جريد عامة و بالتالى ارجوا ان تتأكدى من اعلومة الخاصة بالجريد
و الله أعلم
وشكرا
ارجوا مساعدتى للعمل كمبرمج اوراكل باى شركة خبرتى 1 سنه و ربنا الموفق
خبرى 6 سنوات فى فيجوال بيزك 6و ASP
thank u to much codefinder & Hn Hn
100%
بس في كود اخير ((حاليا)) يحتاج للإيضاح لو سمحتم..
rs.CursorLocation = adUseClient
and thank u
<< CLICK TO START>>
ليس أن تجد حلا بل أن تجد الافضل
أن تصـــنع الخـيال هذا هوا الأفضل</span>
-09
الاخ الفاضلة لا شكر على واجب !!!
بالنسبة لــ
rs.CursorLocation = adUseClient
هذا من أهم الاكواد الموجودة و تعنى :
ان تجعل تحديد المأشر فى قاعدة البيانات تحت أمر المستخدم
و هذا سوف يفيد فى عملية الربط مع الفليكس جريد و الداتا جريد و من دون الامر هذا و الذى يوضع بعد الفتح مباشرا ( فتح قاعدة البيانات قبل فتح الجداول )
و هذا الذى يوف يممكننا من تمرير اوامر الـ sql و البحث
و الله أعلم
و شكرا
ارجوا مساعدتى للعمل كمبرمج اوراكل باى شركة خبرتى 1 سنه و ربنا الموفق
خبرى 6 سنوات فى فيجوال بيزك 6و ASP
شكرا لك الله يوفقك
طيب سؤال فالفلكس جريد إذا ما فيها تقل ..
كيف اقدر احفظ قيمة خليه لأحد حقول الداتا جديرد فمتغير
(للصف المضغوط عليه بالفأرة)
وشكرا
تم تعديل هذه المشاركة بواسطة POWER _GIRL في 26 فبراير 2005 في 19:05
<< CLICK TO START>>
ليس أن تجد حلا بل أن تجد الافضل
أن تصـــنع الخـيال هذا هوا الأفضل</span>
هذا الموضوع مغلق.