منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب قسم لغات البرمجة الاخرى قسم لغة vb6.0 قسم أسئلة vb6.0 [ تمّ الحل ] : تطبيق الأداة MSChart حسب البيانات
تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
ادوات الموضوع
[ تمّ الحل ] : تطبيق الأداة MSChart حسب البيانات
عبد العزيز البسكري غير متصل
كبار الشخصيات
المشاركات : 2,669
المواضيع 205
الإنتساب : Dec 2015
السمعة : 345
الشكر: 16361
تم شكره 11222 مرات في 2656 مشاركات
#11
19-02-17, 11:56 PM (آخر تعديل لهذه المشاركة : 20-02-17, 12:04 AM {2} بواسطة عبد العزيز البسكري.)
السّلام عليكم و رحمة الله و بركاته
تسلم يا غالي .. ألف شكر و ألف تحيّة و ألف سلام
بارك الله فيك و لك و بصحّتك و أوقاتك و جزاك خير الجزاء
بالنسبة للمثال أخي و أستاذي الفاضل قمت بتجربته و ما لاحظته كالآتي :
1 - أثّر على عمليّة الطباعة و لم تعد تظهر البيانات بصفحة الأكتيف ريبورت أظن أنّ تغيير تسمية التاكسات إلى النّوع ARRAY هو سبب ذلك ..
2 - عند إدخال البيانات بالتاكسات و الضغط على زر الأمر رقم 3 تظهر رسالة الخطأ هذه :
و الإشارة إلى هذا السّطر من الكود :
رغم أنّ البيانات تنتقل إلى الجدول بقاعدة البيانات رغم هذه الرسالة المزعجة
هذه ملاحظاتي سيّدي الكريم و إليك الملف الذي أعمل عليه
ملاحظة : الفريم رقم 5 لا تعره أي إهتمام فقد سوف أنقل فيما بعد زر الحفظ إليه
فائق إحتراماتي و شكري و تقديري وامتناني


الملفات المرفقة
.rar   MSChart 333.rar (الحجم : 79.28 ك ب / التحميلات : 38)
البحث
الرد }}}
تم الشكر بواسطة: Ahmed_Mansoor , Ahmed_Mansoor , Amir_Alzubidy
sendbad100 مبتعد
مشرف عام
المشاركات : 1,535
المواضيع 33
الإنتساب : Jul 2016
السمعة : 256
الشكر: 6183
تم شكره 4343 مرات في 1696 مشاركات

a1
#12
20-02-17, 12:03 AM
العفو

كم اصدار الاكتيف ريبورت لديك

كي احمله عندي
لافهم ما يجري
اكثر من 23,000 صنف مع الباركود لسوبر ماركت

اتمنى  للجميع التوفيق والنجاح
Heart
البحث
الرد }}}
تم الشكر بواسطة: عبد العزيز البسكري , Ahmed_Mansoor , Ahmed_Mansoor , السيد الغالي , Amir_Alzubidy
عبد العزيز البسكري غير متصل
كبار الشخصيات
المشاركات : 2,669
المواضيع 205
الإنتساب : Dec 2015
السمعة : 345
الشكر: 16361
تم شكره 11222 مرات في 2656 مشاركات
#13
20-02-17, 12:13 AM (آخر تعديل لهذه المشاركة : 20-02-17, 12:18 AM {2} بواسطة عبد العزيز البسكري.)
سأقوم برفعه من على أي موقع و أضع لك الرابط إن شاء الله
إحتراماتي
تفضّل أخي الكريم :
http://up.top4top.net/downloadf-415iyb3h1-rar.html
البحث
الرد }}}
تم الشكر بواسطة: sendbad100 , Ahmed_Mansoor , السيد الغالي , Amir_Alzubidy , Amir_Alzubidy
sendbad100 مبتعد
مشرف عام
المشاركات : 1,535
المواضيع 33
الإنتساب : Jul 2016
السمعة : 256
الشكر: 6183
تم شكره 4343 مرات في 1696 مشاركات

a1
#14
20-02-17, 12:40 AM
شكرا لك الله يجعل ذلك في ميزان حسناتك

اعتقد السبب في المشكلتين
هو ان قاعدة البيانات فارغة

ضع فيها خمسه صفوف افتراضية

مثلا من 2000 الى 2005
اكثر من 23,000 صنف مع الباركود لسوبر ماركت

اتمنى  للجميع التوفيق والنجاح
Heart
البحث
الرد }}}
تم الشكر بواسطة: عبد العزيز البسكري , عبد العزيز البسكري , Ahmed_Mansoor , السيد الغالي , Amir_Alzubidy , Amir_Alzubidy
عبد العزيز البسكري غير متصل
كبار الشخصيات
المشاركات : 2,669
المواضيع 205
الإنتساب : Dec 2015
السمعة : 345
الشكر: 16361
تم شكره 11222 مرات في 2656 مشاركات
#15
20-02-17, 12:50 AM
السّلام عليكم و رحمة الله و بركاته
و هو كذلك أستاذي الغالي قمت بإضافة صفوف إفتراضية بقاعدة البيانات و سارت الأمور على أحسن وجه
لكن لو سمحت و تكرّمت لديّ ملاحظة أظن بهذه الطريقة يتحتّم التّفكير في كيفية التّعديل على هذه السنوات المدخلة يدويا لو إستلزم ذلك و أردنا تغييرها ..
و مشكل صفحة الطباعة كذلك بقي عالقًا
خالص التشكّرات
البحث
الرد }}}
تم الشكر بواسطة: Ahmed_Mansoor , sendbad100 , السيد الغالي , Amir_Alzubidy , Amir_Alzubidy
sendbad100 مبتعد
مشرف عام
المشاركات : 1,535
المواضيع 33
الإنتساب : Jul 2016
السمعة : 256
الشكر: 6183
تم شكره 4343 مرات في 1696 مشاركات

a1
#16
20-02-17, 04:35 AM
بسم الله الرحمن الرحيم

تم مراجعة الطباعة 

وتم اصلاح مشكلة الخطأ اثناء الحفظ وقاعدة البينات فارغة


انظر المثال

والله الموفق


الملفات المرفقة
.rar   MSChart 44.rar (الحجم : 40.82 ك ب / التحميلات : 52)
اكثر من 23,000 صنف مع الباركود لسوبر ماركت

اتمنى  للجميع التوفيق والنجاح
Heart
البحث
الرد }}}
تم الشكر بواسطة: عبد العزيز البسكري , السيد الغالي , السيد الغالي , Amir_Alzubidy
عبد العزيز البسكري غير متصل
كبار الشخصيات
المشاركات : 2,669
المواضيع 205
الإنتساب : Dec 2015
السمعة : 345
الشكر: 16361
تم شكره 11222 مرات في 2656 مشاركات
#17
20-02-17, 05:04 AM (آخر تعديل لهذه المشاركة : 20-02-17, 05:21 AM {2} بواسطة عبد العزيز البسكري.)
السّلام عليكم و رحمة الله و بركاته
كثّر ألف ألف خيرك عزيزي الغالي
جد ممنون لمساعدتك لي أدعو الله أن يزيدها بموازين حسناتك إن شاء الله
أخي الغالي لمّا تكون قاعدة البيانات فارغة و نضغط على زر الأمر 2 بالفورم 2 تأتي نفس رسالة الخطأ
أمّا الباقي يشتغل عال العال و كله تمتم و الحمد لله
هل من الممكن أخي الكريم جعل الخاصّية ..
.......IS EMPTY ......
Then Command2.enabled=False
أظن ينتهي المشكل ..ما رأيك با غالي
مرة أخرى أكرر شكري و تقديري لمجهودك المميّز
فائق إحتراماتي
تمام أخي و أستاذي العزيز
تمّ عمل المطلوب بمعرفتي المتواضعة واشتغلت على أحسن ما يكون
بارك الله فيك و لك و زادك من علمه و فضله و جعلها بموازين حسناتك يا رب
فائق الشّكر و التقدير و العرفان و الامتنان
مقدّر جهودك و صبرك معي إلهي يرزقك بخير الدنيا و الآخرة
تحياتي


الملفات المرفقة
.rar   MSChart55.rar (الحجم : 29.83 ك ب / التحميلات : 36)
البحث
الرد }}}
تم الشكر بواسطة: sendbad100 , السيد الغالي , Amir_Alzubidy , Amir_Alzubidy , عمور2016
sendbad100 مبتعد
مشرف عام
المشاركات : 1,535
المواضيع 33
الإنتساب : Jul 2016
السمعة : 256
الشكر: 6183
تم شكره 4343 مرات في 1696 مشاركات

a1
#18
20-02-17, 05:21 AM
امين تقبل الله منا ومنكم صالح الاعمال 

اضف الكود التالي في     زر الأمر 2 بالفورم 2   وامسح السابق


كود :
Call Connection

If RS.State = 1 Then RS.Close

RS.Open "select * from LIST1A", DB, adOpenStatic, adLockOptimistic


If RS.RecordCount < 1 Then

MsgBox "عفوا قم اولا بادخال النتائج والحفظ "

       RS.Close
   Exit Sub
End If

Me.Hide
Form1.Show
اكثر من 23,000 صنف مع الباركود لسوبر ماركت

اتمنى  للجميع التوفيق والنجاح
Heart
البحث
الرد }}}
تم الشكر بواسطة: عبد العزيز البسكري , السيد الغالي , السيد الغالي , Amir_Alzubidy , عمور2016
عبد العزيز البسكري غير متصل
كبار الشخصيات
المشاركات : 2,669
المواضيع 205
الإنتساب : Dec 2015
السمعة : 345
الشكر: 16361
تم شكره 11222 مرات في 2656 مشاركات
#19
20-02-17, 05:30 AM
بارك الله فيك تمّ تغيير كور زر الأمر 2 بالذي أرسلته
و على سبيل الإطّلاع خلال الساعتين لي فاتو كنت أحاول بالطّريقة المعتادة لأتمكن من الإضافة و الحذف و التعديل و البحث
و إضافة الأكواد لتتغير السنوات بالأكتيف ريبورت
لم أكمله .. فشلت فقط بزر التّعديل
تفضّل الملف فقط للإطّلاع أستاذي الكريم
أجدد تحياتي و شكري و تقديري لتضحيتك بوقتك معي
أدعو الله أن يجعل كل لحظة و كل ثانية بمليون حسنة إن شاء الله
تحياتي


الملفات المرفقة
.rar   MSChart66.rar (الحجم : 75.85 ك ب / التحميلات : 45)
البحث
الرد }}}
تم الشكر بواسطة: sendbad100 , السيد الغالي , Amir_Alzubidy
sendbad100 مبتعد
مشرف عام
المشاركات : 1,535
المواضيع 33
الإنتساب : Jul 2016
السمعة : 256
الشكر: 6183
تم شكره 4343 مرات في 1696 مشاركات

a1
#20
20-02-17, 05:44 AM (آخر تعديل لهذه المشاركة : 20-02-17, 05:51 AM {2} بواسطة sendbad100.)
جميل جداً

ربنا يوفقك  ويعينك ويسهل امرك 

اولا اتمنى تستخدم الكتف ريبورت التي عدلتها لاني غيرت الالوان الذكور اخضر والاناث احمر

ثانياً :- يمكن تعديل الكود كالتالي 
كود :
Private Sub Command1_Click()
Dim t As String
t = " مواليد"

ActiveReport1.Shape1.Height = Val(Text9) * -57
ActiveReport1.Shape2.Height = Val(Text10) * -57
ActiveReport1.Shape3.Height = Val(Text7) * -57
ActiveReport1.Shape4.Height = Val(Text8) * -57
ActiveReport1.Shape5.Height = Val(Text5) * -57
ActiveReport1.Shape6.Height = Val(Text6) * -57
ActiveReport1.Shape7.Height = Val(Text3) * -57
ActiveReport1.Shape8.Height = Val(Text4) * -57
ActiveReport1.Shape9.Height = Val(Text1) * -57
ActiveReport1.Shape10.Height = Val(Text2) * -57

ActiveReport1.Label60 = Text1
ActiveReport1.Label61 = Text2
ActiveReport1.Label62 = Text3
ActiveReport1.Label63 = Text4
ActiveReport1.Label64 = Text5
ActiveReport1.Label65 = Text6
ActiveReport1.Label66 = Text7
ActiveReport1.Label67 = Text8
ActiveReport1.Label68 = Text9
ActiveReport1.Label69 = Text10

ActiveReport1.Label11 = t & Text25
ActiveReport1.Label12 = t & Text26
ActiveReport1.Label13 = t & Text27
ActiveReport1.Label14 = t & Text33
ActiveReport1.Label15 = t & Text34

ActiveReport1.Label26 = t & Text25
ActiveReport1.Label27 = t & Text26
ActiveReport1.Label28 = t & Text27
ActiveReport1.Label29 = t & Text33
ActiveReport1.Label30 = t & Text34

ActiveReport1.Show
End Sub
ايضا  يمكن الاستغناء عن تكرار هذا الكود 

كود :
Private Sub Text1_Change()
Me.Text12.Text = Val(Replace(Me.Text1, ",", ".")) + Val(Replace(Me.Text2, ",", ".")) + Val(Replace(Me.Text3, ",", ".")) + Val(Replace(Me.Text4, ",", ".")) + Val(Replace(Me.Text5, ",", ".")) + Val(Replace(Me.Text6, ",", ".")) + Val(Replace(Me.Text7, ",", ".")) + Val(Replace(Me.Text8, ",", ".")) + Val(Replace(Me.Text9, ",", ".")) + Val(Replace(Me.Text10, ",", "."))
End Sub
Private Sub Text2_Change()
Me.Text12.Text = Val(Replace(Me.Text1, ",", ".")) + Val(Replace(Me.Text2, ",", ".")) + Val(Replace(Me.Text3, ",", ".")) + Val(Replace(Me.Text4, ",", ".")) + Val(Replace(Me.Text5, ",", ".")) + Val(Replace(Me.Text6, ",", ".")) + Val(Replace(Me.Text7, ",", ".")) + Val(Replace(Me.Text8, ",", ".")) + Val(Replace(Me.Text9, ",", ".")) + Val(Replace(Me.Text10, ",", "."))
End Sub
Private Sub Text3_Change()
Me.Text12.Text = Val(Replace(Me.Text1, ",", ".")) + Val(Replace(Me.Text2, ",", ".")) + Val(Replace(Me.Text3, ",", ".")) + Val(Replace(Me.Text4, ",", ".")) + Val(Replace(Me.Text5, ",", ".")) + Val(Replace(Me.Text6, ",", ".")) + Val(Replace(Me.Text7, ",", ".")) + Val(Replace(Me.Text8, ",", ".")) + Val(Replace(Me.Text9, ",", ".")) + Val(Replace(Me.Text10, ",", "."))
End Sub
Private Sub Text4_Change()
Me.Text12.Text = Val(Replace(Me.Text1, ",", ".")) + Val(Replace(Me.Text2, ",", ".")) + Val(Replace(Me.Text3, ",", ".")) + Val(Replace(Me.Text4, ",", ".")) + Val(Replace(Me.Text5, ",", ".")) + Val(Replace(Me.Text6, ",", ".")) + Val(Replace(Me.Text7, ",", ".")) + Val(Replace(Me.Text8, ",", ".")) + Val(Replace(Me.Text9, ",", ".")) + Val(Replace(Me.Text10, ",", "."))
End Sub
Private Sub Text5_Change()
Me.Text12.Text = Val(Replace(Me.Text1, ",", ".")) + Val(Replace(Me.Text2, ",", ".")) + Val(Replace(Me.Text3, ",", ".")) + Val(Replace(Me.Text4, ",", ".")) + Val(Replace(Me.Text5, ",", ".")) + Val(Replace(Me.Text6, ",", ".")) + Val(Replace(Me.Text7, ",", ".")) + Val(Replace(Me.Text8, ",", ".")) + Val(Replace(Me.Text9, ",", ".")) + Val(Replace(Me.Text10, ",", "."))
End Sub
Private Sub Text6_Change()
Me.Text12.Text = Val(Replace(Me.Text1, ",", ".")) + Val(Replace(Me.Text2, ",", ".")) + Val(Replace(Me.Text3, ",", ".")) + Val(Replace(Me.Text4, ",", ".")) + Val(Replace(Me.Text5, ",", ".")) + Val(Replace(Me.Text6, ",", ".")) + Val(Replace(Me.Text7, ",", ".")) + Val(Replace(Me.Text8, ",", ".")) + Val(Replace(Me.Text9, ",", ".")) + Val(Replace(Me.Text10, ",", "."))
End Sub
Private Sub Text7_Change()
Me.Text12.Text = Val(Replace(Me.Text1, ",", ".")) + Val(Replace(Me.Text2, ",", ".")) + Val(Replace(Me.Text3, ",", ".")) + Val(Replace(Me.Text4, ",", ".")) + Val(Replace(Me.Text5, ",", ".")) + Val(Replace(Me.Text6, ",", ".")) + Val(Replace(Me.Text7, ",", ".")) + Val(Replace(Me.Text8, ",", ".")) + Val(Replace(Me.Text9, ",", ".")) + Val(Replace(Me.Text10, ",", "."))
End Sub
Private Sub Text8_Change()
Me.Text12.Text = Val(Replace(Me.Text1, ",", ".")) + Val(Replace(Me.Text2, ",", ".")) + Val(Replace(Me.Text3, ",", ".")) + Val(Replace(Me.Text4, ",", ".")) + Val(Replace(Me.Text5, ",", ".")) + Val(Replace(Me.Text6, ",", ".")) + Val(Replace(Me.Text7, ",", ".")) + Val(Replace(Me.Text8, ",", ".")) + Val(Replace(Me.Text9, ",", ".")) + Val(Replace(Me.Text10, ",", "."))
End Sub
Private Sub Text9_Change()
Me.Text12.Text = Val(Replace(Me.Text1, ",", ".")) + Val(Replace(Me.Text2, ",", ".")) + Val(Replace(Me.Text3, ",", ".")) + Val(Replace(Me.Text4, ",", ".")) + Val(Replace(Me.Text5, ",", ".")) + Val(Replace(Me.Text6, ",", ".")) + Val(Replace(Me.Text7, ",", ".")) + Val(Replace(Me.Text8, ",", ".")) + Val(Replace(Me.Text9, ",", ".")) + Val(Replace(Me.Text10, ",", "."))
End Sub
Private Sub Text10_Change()
Me.Text12.Text = Val(Replace(Me.Text1, ",", ".")) + Val(Replace(Me.Text2, ",", ".")) + Val(Replace(Me.Text3, ",", ".")) + Val(Replace(Me.Text4, ",", ".")) + Val(Replace(Me.Text5, ",", ".")) + Val(Replace(Me.Text6, ",", ".")) + Val(Replace(Me.Text7, ",", ".")) + Val(Replace(Me.Text8, ",", ".")) + Val(Replace(Me.Text9, ",", ".")) + Val(Replace(Me.Text10, ",", "."))
End Sub

كالتالي 

اضف الاجراء التالي 
كود :
Sub sumAll()
Me.Text12.Text = Val(Replace(Me.Text1, ",", ".")) + Val(Replace(Me.Text2, ",", ".")) + Val(Replace(Me.Text3, ",", ".")) + Val(Replace(Me.Text4, ",", ".")) + Val(Replace(Me.Text5, ",", ".")) + Val(Replace(Me.Text6, ",", ".")) + Val(Replace(Me.Text7, ",", ".")) + Val(Replace(Me.Text8, ",", ".")) + Val(Replace(Me.Text9, ",", ".")) + Val(Replace(Me.Text10, ",", "."))
End Sub

ثم قم باستدعائة    كالتالي 
كود :
Private Sub Text1_Change()
Call sumAll
End Sub
Private Sub Text2_Change()
Call sumAll
End Sub
Private Sub Text3_Change()
Call sumAll
End Sub
Private Sub Text4_Change()
Call sumAll
End Sub
Private Sub Text5_Change()
Call sumAll
End Sub
Private Sub Text6_Change()
Call sumAll
End Sub
Private Sub Text7_Change()
Call sumAll
End Sub
Private Sub Text8_Change()
Call sumAll
End Sub
Private Sub Text9_Change()
Call sumAll
End Sub
Private Sub Text10_Change()
Call sumAll
End Sub


هذا يسهل عملية التصحيح  بحيث لا تحتاج لتعديل الكل 

والله الموفق
اكثر من 23,000 صنف مع الباركود لسوبر ماركت

اتمنى  للجميع التوفيق والنجاح
Heart
البحث
الرد }}}
تم الشكر بواسطة: amer2000 , amer2000 , السيد الغالي , السيد الغالي , Amir_Alzubidy , عبد العزيز البسكري


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  احتاج موديول احساب القيم كما بالمرفق - (تم الحل) hsab 1 276 17-12-24, 03:23 PM
آخر رد: hsab
Question [vb6.0] كيف احفظ الخيارات التي في القائمة في قاعدة البيانات نامل المساعدة في المثال المرفق ؟ Microformt 1 355 29-11-24, 04:05 AM
آخر رد: justforit
Lightbulb [VB.NET] إنشاء فولد ووضع نسخه به من قاعدة البيانات AMRMOGA 1 281 17-11-24, 09:59 PM
آخر رد: Taha Okla
  [vb6.0] تجميع البيانات في تقرير مفصل Faisel 1 328 12-11-24, 11:49 PM
آخر رد: السيد الغالي
  تمثيل بيانى لعدد الذكور والاناث حسب السنة باستخدام MSChart haitham Muhammed 0 210 30-08-24, 12:32 AM
آخر رد: haitham Muhammed
  حفظ قيم مربعات الاختيار فى قاعدة البيانات واسترجاعها haitham Muhammed 1 411 20-06-24, 02:01 AM
آخر رد: Taha Okla
  نقل البيانات من جدولين مرتبطين الى جدول اخر بعد الفلترة haitham Muhammed 0 381 29-04-24, 01:51 AM
آخر رد: haitham Muhammed
  [vb6.0] اضافة الصور الى ملف واسترجاعها بدون قاعدة البيانات haitham Muhammed 3 948 24-01-24, 01:51 PM
آخر رد: haitham Muhammed
  عدم ضهور كل البيانات فراس محي 1 513 15-12-23, 06:05 AM
آخر رد: Taha Okla
Question [vb6.0] نامل المساعدة في المثال المرفق يوجد مشكلة في إضافة رقم الصنف الى قاعدة البيانات لا اع Microformt 1 499 23-10-23, 12:11 AM
آخر رد: Taha Okla

التنقل السريع :


يقوم بقرائة الموضوع: