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

*فورم* برنامج Finder الجديد (المعين)

مغلق
بدأه أبو هادي في 17 ديسمبر 2002 · 12 رد · 2,851 مشاهدة · في قسم الأرشيف و المواضيع المميزه
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

الأخوة الكرام

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

هذه نسخة تجربة mde حتى يكتمل وينقح وأستقبل فيه ملاحظاتكم ثم سأضعه إن شاء على شكل mdb آمل أن لا يزعج هذا الإجراء أحدا .

هناك نواقص مثل :

1 - الترتيب التنازلي

2 - الفلترة على مستوى المجموع HAVING

3 - كتابة معادلة - تعبير Expression

4 - وضع الأقواس المربعة للحقول (قد تخلق مشاكلات مع الحقول العربية)

آمل أن يحوز على رضاكم وفي انتظار ملاحظاتكم .

تحياتي

hmd_finder.zip

#2

جزاك الله خير

حملت المثال لكن لم يقبل تحويله إلى 2000 ولا فتحه

وتظهر الرسالة لا يمكنك تحويل ملف mde أو تمكينه

هل يمكن تزويدنا بنسخة على إصدار 2000

#3

آسف لم أنتبه

hmd_finder_2000.zip

#4

الأخ ابو هادي

معظم الأخوة يستخدمون 2000 و اكس بي

و بالتالي لن يستطيعوا فتح ال mde المصنوع باكسس 97

-------

اقتباس
هذه نسخة تجربة mde حتى يكتمل وينقح وأستقبل فيه ملاحظاتكم ثم سأضعه إن شاء على شكل mdb آمل أن لا يزعج هذا الإجراء أحدا .

----------------

أطرح عليك السؤال قبل أن يطرحه أحد ، و هو لماذا هذا الاجراء الغير مسبوق

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

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

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

أما ما يطرح للمناقشة أو للرد علي تساؤل أو يطرح فى صيغة تعليمية بهدف افادة الأخرين ، فلا أري ذلك مناسب له ( وجهة نظري)

مع خالص تحياتي

و أنا أيضا أرجو الا يزعجك رأيي ، و الاختلاف فى الرأي لا يفسد للود قضية (f)

#5

(f)(f)(f) هذه لك يا محمد طاهر

لا يوجد عندي الآن Winzip من يستطيع فتحه ثم ضغطه بالـ Winzip فله كل الشكر .

تحياتي

hmd_finder.rar

#6

هذا ما تعودناه منك

و نشكرك علي الرغبة فى افادتنا أولا و ثانيا علي رحابة صدرك

و لك 3 وواحدة زيادة (f)(f)(f)(f)

#7

تحية عطرة للأبي هادي ولمحمد

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

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

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

تحياتي وشكراً مجدداً لكما

#8

شكرا لابو هادى على هذا المثال الرائع

#9

جزاك الله خير

مثال رائع جدا

لمن أراد المثال zip

hmd_finder.zip

#10

السلام عليكم

هذا إصدار منقح آمل أن يكون مرضيا وهذه بعض الملاحظات على المثال :

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

ميزات المثال :

1 – حفظ الاستفسارات بالخيارات التالية :

- سجلات

- أو عبارة SQL

- أو كليهما معا

2 – لا حدود لعدد أسطر الاستفسار الواحد مقارنة مع ما سبق من أمثلة سابقة حيث لم تتعدى الخمسة أسطر فقط .

3 – إمكانية عمل 255 استفسار لكل جدول أو استعلام ويعطى لكل استفسار رقم نسخة جديد Revision .

4 – إمكانية تعطيل عمل بعض الأسطر دون الحاجة لمسحها وإعادة كتابتها مرة أخرى باستخدام خاصية Hold .

5 – إعادة ترتيب الأسطر بتحريكها للأعلى أو للأسفل .

6 – يوجد إضافات متقدمة (قسم المجاميع) يحتوي على اختيار الأعمدة المطلوبة إظهارها وترتيبها واستخدام دوال التجميع .

7 – التبديل بين العربي والإنجليزي .

تطويرات مستقبلية :

1 – الفلترة على مستوى المجموع HAVING .

2 – كتابة معادلة – تعبير Expression

3 – إضافة شرح للاستفسار حتى يمكن الوصول إليه بسرعة عند الحاجة .

تحياتي للجميع

hmd_finder.zip

#11

المثال يحتاج إلى تعديل في الفورم hmd-FinderAdvanced في الإجراء التالي بإضافة سطرين حسب ما هو موضح :

Private Sub FieldsList_Click()

  Dim Count As Integer

  

  On Error Resume Next

  

  With Me.hmd_FinderTotals.Form.RecordsetClone

    .MoveFirst

    Do While Not .EOF

      Count = Count + 1

      .Edit

        !Sequence = Count

      .Update

      .MoveNext

    Loop

    

    .AddNew

      !Sequence = Count + 1

      !ObjectID = Me.ObjectID

      !FieldName = Me.FieldsList

      

      '----- مطلوب إضافتهما ----

      !Total = 0

      !Sort = 0

      '-------------------------

      

      !Show = True

    .Update

  End With

End Sub

ولكم تحياتي

#12

أحتاج إلى :

1 - تبديل صورة زر الأوامر بالكود .

2 - تعريب دوال المجاميع .

جزاكم الله عنا خيرا .

#13

ما لي سوى التعلم من هذه الإبدعات ، لا أدري متى سأصل إلى ذلك المستوى :rolleyes: .

ibnmusqat.gif

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

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