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

مساعدة في التقارير لبرنامج خاص بمنشأتي ..

مغلق
بدأه Turki ksa في 8 أبريل 2007 · 6 رد · 943 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السادة مبرمجي الموقع.

اضع بين ايديكم برنامج عبارة عن نافذة فيها اربعة ازرار

1- خروج : للخروج من البرنامج .

2- عرض : لعرض تقرير في فلكس جريد وهو على الصيغة التالية:

SQL= select f1,f2,sum(f3) from Item group by f1,f2, order by sum(f3)

3- طباعة : لطباعة ما في الفلكس جريد.

4- تصدير : لتصدير ما في الفلكس جريد الى ملف اكسل .

وتواجهني مشاكل وهي عدم القدرة على وضع صيغة تقوم لعرض التقرير بحيث يكون ما في الفلكس رقم اعلى من الرقم الموجود في تكس بوكس . اي كما يلي:

SQL= select f1,f2,sum(f3) from Item group by f1,f2, order by sum(f3) where sum(f3) more than text1.text

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

وماهي طريقة اضافة سعر البيع على حيث انه بوجود امر Group by لا يسمح لك اضافة اي عنصر في الفلكس الا وقد تم تطبيق معادلة عليه.

اعلم ان كلامي صعب ولكن ارجو تحميل البرنامج وتشغيله وستعلمون المشكلة .

pharmacy1.rar

#2

الملف المرفق معطوب او انا عندي مشكلة بالتحميل

#3

الملف يعمل بشكل صحيح ... نزلته وهو شغال

#4

سوف ارد عليك قريبا لكن ابقى فكرنى

موقع البرنامج

مبارك لشعب تونس photo-thumb-42837.png

#5

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

أخى تركى

حل مشكلة الاستعلام عندك هى أن تستخدم كلمة Having Sum(F3) > " & Text1.Text & " وليس Where للسبب الذى أشرت إليه أنت بنفسك وهو التجميع لا يقبل كلمة Where بل Having

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

وهى فى مديولز منفصله لتستطيع استخدامها فى برنامجك وقتما تشاء

وحاضرين لو فى استفسار بخصوص الكود

والله من وراء القصد وهو يهدى السبيل

FlexPrint.zip

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

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

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

#6

اخي abulymana

اشكرك على ردك والمعلومات المفيدة , لكن اريد ان انوه الى ان الملف لا يعمل حيث اني فتحته ببرنامج winrar ويعطي خطأ واود أن تورد مثال بالكود لكيفية طباعة محتويات الفلكس جريد ..

اما بالنسبة لملاحظتي الأخيرة فهل يمكن اضافة order by sum(f3) للجملة الاستعلامية .

#7

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

حاول مع الملف مره ثانيه بدون WinRar

والترتيب بهذا الشكل مقبول جربه

بالتوفيق إن شاء الله

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

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

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

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

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