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

سؤال حول عرض أسماء ا لحقول

مغلق
بدأه المهنا في 9 مارس 2005 · 30 رد · 2,175 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

هل من اللممكن المساهمة في عرض بيانات حقلين فقط في الفلكس مع امكانية عرض النتائج عند الضغط على زر بحث مرتبة حسب الرقم المسلسل ملاحظة مهمة وهي عدم تحويل عنوان الحقل في الفلكس الى العنوان الافتراضي في قاعدة البيانات وهو عنوان الحقل بالانجليزية اريده بالعربي واريد عرض جميع البيانات عند الغاء البحث

الصورة الاولي قبل

999_93200591410.5520594.jpg

الصورة الثانية بعد عملية البحث

1000.jpg

باقي التفاصيل في المرفق اللى جنني

maktaba_________.rar

تم تعديل هذه المشاركة بواسطة عبد الله فتحي في 27 مارس 2005 في 04:20

#2

اخي المهنا

انت دائما معصب ومستعجل

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

إن شاء الله ياتيك الجواب قريبا جدا

تحياتي

اخوك ناصر

#3

شكرا للرد السريع

انت تطلب التعديل في مثال محدد لماذا

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

#4

عزيزي العزيز : المهنا

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

بالنسبه لما طلبت لقد حملت المرفق وان شاء الله سأحاول التعديل عليه ان تمكنت ، وسأعطيك بعض الاكواد المتوفره لدي والتي اعرفها من طلبك الاول ،،

لا تستعجل ابدا اعرف ان رساله الخطأ واللون الاصفر على السطر مزعج جدا ولكن عليك التحمل مثلنا جميعا ..

تحياتي لك اخي العزيز

#6

أولاً أخي المهنا أنا أعتب عليك وبشدة مخالفتك لقوانين المنتدى وأنت لست بالجديد عليه ..

لا يقبل توجيه السؤال لأشخاص بأعينهم

كما أنه يفضل عدم وضع الأمثلة للتعديل عليها، وفي حال وضعها يجب عدم تضمين البرنامج كاملاً وإنما يتم تضمين مثال صغير على المشكلة ..

عموماً لا أدري إن كنت قد فهمت المطلوب، ولكن جرب المرفق ..

Code.zip

ani.gif
#7

الاخ العزيز عبدالله شكرا للتجاوب والسريع واسف للمخالفة

بالنسبة فالبرنامج هذا ليس كاملا ابدا لان برنامجي عبارة عن اكثر من 25 فورم و 10 موديول و 20 تقرير داتا ربورت وانا لم اعرض برنامجي

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

واكر الشكر والتقدير للجميع

#8

بالنسبة للمرفق يا اخ عبد الله لم يحل المعضلة لاني لا اريد التسلسل من حقل ولا بدون ترتيب

شاهد الصورة للمرفق

1111_1032005728340.7498896.jpg

ثانيا لم تحل مشكلة الفلكس في الفورم الرئيسي الذي به كل عمليات البحث الهامة

كود التسلسل هو لكن لا اعرف اين اضعه حتى تكون نتائج البحث متسلسلة

http://www.arabteam2000.com/picload/Files/1111_1032005728340.7498896.jpg

Dim i As Integer

i = 0

FLEX1.Rows = 1

Do Until RS.EOF

i = i + 1

FLEX1.Rows = i + 1

FLEX1.TextMatrix(i, 0) = i

FLEX1.TextMatrix(i, 1) = RS.Fields(0)

FLEX1.TextMatrix(i, 2) = RS.Fields(1)

FLEX1.TextMatrix(i, 3) = RS.Fields(2)

FLEX1.TextMatrix(i, 4) = RS.Fields(3)

#9
اقتباس
لاني لا اريد التسلسل من حقل ولا بدون ترتيب

؟؟؟

ما زال شرحك للمشكلة غامضاً ..

أخبرني فقط ما الشكل النهائي الذي تريده ؟

هل تريد عرض الأرقام مسلسلة في الحقل الأول من الواحد إلى الأعلى ؟؟

إذا كان ذلك قصدك حمل المرفق ..

Code.zip

ani.gif
#11

2_10320051145450.8616297.jpg

1_1032005114480.1633264.jpg

المشكلة لا تزال في تغيير اسم الحقول

#12

أخي مهنا

اعتقد أن الخوارزمية التي تستخدمها خطأ بمهنى التركيب الخاص بالبحث خطأ لا اجده في أي برنامج آخر

كيف تضع كود للبحث عن كلمات مسلسلة في زر أمر

المفروض ان البحث يكون في حدث التغيير لمربع النص

انا سويتلك كده في كود منفصل كود العرض فقط وانت عليك اضافة حقل المسلسل ( سهلة إن شاء الله ) :D

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

البحث هنا في حدث التغيير لمربع النص

Code.rar

#13

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

أخى العزيز المهنا

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

أخى العزيز

كان صلى الله عليه وسلم إذا حزبه أمر هرع إلى الصلاة

عموما ما أطولش عليك وأبشرك بأن المثال المرفق فيه حل لمشكلتك بالكامل

لو ما وصلتش لكود الحل لوحدك أو طال بيك البحث - فسأقصر عليك المشوار

تلاحظ فى المثال أنه بيتحكم فى النص الذى يظهر فى السطر العلوى من الجريد حسب اللغة عربى أو انجليزى

وهو ببساطة من خاصية FormatString كما ترى فى Sub FlexSize

لا أدرى إن كان الكلام العربى سيظهر فى المشاركة أم لا ولكنه واضح فى البرنامج

Sub FlexSize()
'''*** To Make the Flex AutoFit ***
 Dim R As Long, C As Integer, Tw As Double
 If optArabic.Value Then
   Hed = "^ã |>ÑÞã ÇáãæÙÝ |<ÇáÇÓã ÇáÃÎíÑ |<ÇáÇÓã ÇáÃæá|<ÊÇÑíÎ ÇáãíáÇÏ |<ÇáÅÞÇãÉ |>ÇáÑÇÊÈ"
 Else
   Hed = "^S |<Emp ID |<Last Name |<First Name |<Birth Date |<Country |<Salary"
 End If
 MSHFlexGrid1.RightToLeft = optArabic.Value
 With MSHFlexGrid1
   .FormatString = Hed
  For C = 0 To .Cols - 1
    Tw = 0
    For R = 0 To .Rows - 1
     If R >= .FixedRows Then
       .TextMatrix(R, 0) = R - .FixedRows + 1
     End If
     If TextWidth(.TextMatrix(R, C)) > Tw Then Tw = TextWidth(.TextMatrix(R, C))
    Next R
    .ColWidth(C) = Tw + 150
  Next C
 End With
End Sub

وفى الأسفل ترى أنه يعيد ترقيم الصفوف مهما كان محتوى قاعدة البيانات

ولإثبات ذلك لك إذا نقرت DoubleClick على أى عمود سيرتبه تصاعديا لك والأرقام المسلسلة التسعة لن تتغير لأنه يعيد ترتيبها

لو لم تعثر على الكود بسهولة فى الـ Sub FlexSize فستراه فى حدث النقر المزدوج على الجريد هذا

Private Sub MSHFlexGrid1_DblClick()
  Dim R As Long
  With MSHFlexGrid1
    .Sort = 1
    For R = .FixedRows To .Rows - 1
      .TextMatrix(R, 0) = R - .FixedRows + 1
    Next R
  End With
End Sub

أسأل الله أن تكون الآن نادم على تهديد إخوانك بأن تتركنا ولا تعود للمنتدى

وجزا الله الأخوة المساهمين فى المنتدى كل خير على ما يقدموه لنا من علم لن نجده فى أعقد وأقوى الكتب

والأهم بمنتهى الدقة والسرعة والمناسبة لمشكلاتنا

وفى الختام أسأل الله أن ييسر لك كل أمر عسير ويوسع لك فى العلم ويرضى عنك ويرضيك برضاه

أخوك أيمن همام

FlexPrint.zip

عن عبدالله بن عمر رضي الله عنهما أن رسول الله صلى الله عليه وسلم قال :

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

رواه الطبراني في الكبير

#15

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

في الحقيقة اخي المهنا ان لم اعمل شيء يقارن مع مجهودات الاخوة ...

ولكن لك لدي نصيحه ..

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

تقبل تحياتي اخي العزيز

#16

المشكلة لا تزال في تغيير اسم الحقول

SQL = "select ID as [مسلسل],bookname as [اسم الكتاب],name as [اسم المؤلف] from data where bookname LIKE '%" & Trim(Text7) & "%'"
sql1 = "select bookname as [اسم الكتاب],name as [اسم المؤلف] from data where name LIKE '%" & Trim(Text7) & "%'"
SQL = "select bookname as [اسم الكتاب],name as [اسم المؤلف] from data where bookname LIKE '%" & Trim(Text7) & "%'"

ليس من السهل عمل SQL مكررة اكثر من 55 مرة على عدد الحقول

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

2_10320051145450.8616297.jpg

1_1032005114480.1633264.jpg

#17

اخي المهنا

أولا الحمد لله على السلامة .... وينك اخي من زمان :D :D

ثانيا : طالما أخي وصلت الي طريق مقفل الى هذه الدرجة فيكون بسبب التالي

أن طريقة البحث التي تستخدمها خطأ تماما فقم بأعادة تحليل عملية البحث مرة ثانية

فأنصحك اخي أن تستخدم طريقة بحث ميسرة تؤدي نفس الغرض بلا تعقيد او تعب واقترح عليك التالي

أن تستخدم مربع نص للبحث في الاسم وعرض النتائج كاملة لنتيجة البحث في الداتا جريد او الفليكس جريد

وتضع مربع نص لتاريخ النشر مثلا وهكذا

أو كما انت مسوي تضع أزرار الاسم والتاريخ والرقم .... ثم مربع نص يبحث عن الحروف وعرض النتائج في الفليكس

نصيحة هااااااااااااامة

ما يؤدي الغرض بابسط الطرق نفعله

تحياتي لك

أخوك ناصر

#19

أخى المهنا

أرجو أن تراجع الخاصية FormatString فى الجريد فهى التى تريدها بالضبط ستجدها بإذن الله فى مشاركتى السابقة - صدقنى لن تحتاج سواها لعرض العناوين - بالإضافة لنصيحة أستاذنا ناصر فى التعامل مع البحث

عن عبدالله بن عمر رضي الله عنهما أن رسول الله صلى الله عليه وسلم قال :

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

رواه الطبراني في الكبير

#21

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

أخى المهنا

جرب إضافة السطر التالى ستفهم كلامى

Set Me.FLEX1.DataSource = RS
FLEX1.Refresh
Flex1.FormatString="^م |^عنوان الكتاب  |^المؤلف |^دار النشر  |^تاريخ النشر

بذلك - بإذن الله - ستنحل مشكلتك 100%

أخوك أيمن همام

يا رب لك الحمد كما ينبغى لجلال وجهك وعظيم سلطانك

عن عبدالله بن عمر رضي الله عنهما أن رسول الله صلى الله عليه وسلم قال :

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

رواه الطبراني في الكبير

#22

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

وقمت بتجربة

Set Me.FLEX1.DataSource = RS
FLEX1.Refresh
Flex1.FormatString="^م |^عنوان الكتاب  |^المؤلف |^دار النشر  |^تاريخ النشر

ولم تنفع الطريقة ما زال يضهر الاسم الاساسي في الفلكس

#23

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

أخى المهنا

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

فأكيد أكيد أكيد

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

صحيح أى جريد تستخدم ، MsFlexGrid أم MSHFlexGrid؟

سُبْحَانَكَ لاَ عِلْمَ لَنَا إِلاَّ مَا عَلَّمْتَنَا إِنَّكَ أَنتَ الْعَلِيمُ الْحَكِيمُ

عن عبدالله بن عمر رضي الله عنهما أن رسول الله صلى الله عليه وسلم قال :

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

رواه الطبراني في الكبير

#25

أخوي المهنا .. صراحة مش عارف بالضبط إيش اللي تبغاه ...

مره تقول التسلسل .. ومره تقول اسماء الحقول تظهر بالإنجليزي .. ومره تبغى تضيف بس حقلين في الفليكس ..

على العموم على حسب اللي فهمته منك عدلت البرنامج على السريع ...

وهو في المرفقات ..

وإذا كان مش هذا اللي تبغاه ياريت توضح أكثر وإن شاء الله ما يهمك ولا يكون خاطرك إلا طيب ...

أخوك shoqi

maktaba.zip

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

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