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

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب > قسم لغات البرمجة الاخرى > قسم لغة vb6.0 > قسم أسئلة vb6.0 > [ تمّ الحل ] : تطبيق الأداة MSChart حسب البيانات
نسخة كاملة : [ تمّ الحل ] : تطبيق الأداة MSChart حسب البيانات
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
الصفحات : 1 2 3

عبد العزيز البسكري

19-02-17, 11:56 PM
السّلام عليكم و رحمة الله و بركاته
تسلم يا غالي .. ألف شكر و ألف تحيّة و ألف سلام
بارك الله فيك و لك و بصحّتك و أوقاتك و جزاك خير الجزاء
بالنسبة للمثال أخي و أستاذي الفاضل قمت بتجربته و ما لاحظته كالآتي :
1 - أثّر على عمليّة الطباعة و لم تعد تظهر البيانات بصفحة الأكتيف ريبورت أظن أنّ تغيير تسمية التاكسات إلى النّوع ARRAY هو سبب ذلك ..
2 - عند إدخال البيانات بالتاكسات و الضغط على زر الأمر رقم 3 تظهر رسالة الخطأ هذه :
و الإشارة إلى هذا السّطر من الكود :
رغم أنّ البيانات تنتقل إلى الجدول بقاعدة البيانات رغم هذه الرسالة المزعجة
هذه ملاحظاتي سيّدي الكريم و إليك الملف الذي أعمل عليه
ملاحظة : الفريم رقم 5 لا تعره أي إهتمام فقد سوف أنقل فيما بعد زر الحفظ إليه
فائق إحتراماتي و شكري و تقديري وامتناني

sendbad100

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

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

كي احمله عندي
لافهم ما يجري

عبد العزيز البسكري

20-02-17, 12:13 AM
سأقوم برفعه من على أي موقع و أضع لك الرابط إن شاء الله
إحتراماتي
تفضّل أخي الكريم :
http://up.top4top.net/downloadf-415iyb3h1-rar.html

sendbad100

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

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

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

مثلا من 2000 الى 2005

عبد العزيز البسكري

20-02-17, 12:50 AM
السّلام عليكم و رحمة الله و بركاته
و هو كذلك أستاذي الغالي قمت بإضافة صفوف إفتراضية بقاعدة البيانات و سارت الأمور على أحسن وجه
لكن لو سمحت و تكرّمت لديّ ملاحظة أظن بهذه الطريقة يتحتّم التّفكير في كيفية التّعديل على هذه السنوات المدخلة يدويا لو إستلزم ذلك و أردنا تغييرها ..
و مشكل صفحة الطباعة كذلك بقي عالقًا
خالص التشكّرات

sendbad100

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

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

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


انظر المثال

والله الموفق

عبد العزيز البسكري

20-02-17, 05:04 AM
السّلام عليكم و رحمة الله و بركاته
كثّر ألف ألف خيرك عزيزي الغالي
جد ممنون لمساعدتك لي أدعو الله أن يزيدها بموازين حسناتك إن شاء الله
أخي الغالي لمّا تكون قاعدة البيانات فارغة و نضغط على زر الأمر 2 بالفورم 2 تأتي نفس رسالة الخطأ
أمّا الباقي يشتغل عال العال و كله تمتم و الحمد لله
هل من الممكن أخي الكريم جعل الخاصّية ..
.......IS EMPTY ......
Then Command2.enabled=False
أظن ينتهي المشكل ..ما رأيك با غالي
مرة أخرى أكرر شكري و تقديري لمجهودك المميّز
فائق إحتراماتي
تمام أخي و أستاذي العزيز
تمّ عمل المطلوب بمعرفتي المتواضعة واشتغلت على أحسن ما يكون
بارك الله فيك و لك و زادك من علمه و فضله و جعلها بموازين حسناتك يا رب
فائق الشّكر و التقدير و العرفان و الامتنان
مقدّر جهودك و صبرك معي إلهي يرزقك بخير الدنيا و الآخرة
تحياتي

sendbad100

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

عبد العزيز البسكري

20-02-17, 05:30 AM
بارك الله فيك تمّ تغيير كور زر الأمر 2 بالذي أرسلته
و على سبيل الإطّلاع خلال الساعتين لي فاتو كنت أحاول بالطّريقة المعتادة لأتمكن من الإضافة و الحذف و التعديل و البحث
و إضافة الأكواد لتتغير السنوات بالأكتيف ريبورت
لم أكمله .. فشلت فقط بزر التّعديل
تفضّل الملف فقط للإطّلاع أستاذي الكريم
أجدد تحياتي و شكري و تقديري لتضحيتك بوقتك معي
أدعو الله أن يجعل كل لحظة و كل ثانية بمليون حسنة إن شاء الله
تحياتي

sendbad100

20-02-17, 05:44 AM
جميل جداً

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

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

ثانياً :- يمكن تعديل الكود كالتالي 
كود :
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


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

والله الموفق
الصفحات : 1 2 3
منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب > قسم لغات البرمجة الاخرى > قسم لغة vb6.0 > قسم أسئلة vb6.0 > [ تمّ الحل ] : تطبيق الأداة MSChart حسب البيانات