عمل تمثيل بياني حسب التاريخ باستعمال DBChart (شرح فلاشي)

[paix144]

السلام عليكم ورحمة الله
عمل تمثيل بياني حسب التاريخ باستعمال DBChart (شرح فلاشي)
بالتوفيق إن شاء الله

[mobile]

بارك الله فيك
لكن لم افهم هذا السطر Expr1001

كود :

Series1.XValues.ValueSource:='Expr1001';

[paix144]

و فيكم بارك الله
Expr1001 هي اسم العمود الذي استرجعنا قيمه عند الاستفسار

كود :

SELECT Pseudo,[color=Red]SUM(NBR_Msg[/color][color=Red])[/color] FROM TableMembre WHERE Date BETWEEN :D1 and :D2 GROUP BY Pseudo

كود :

Pseudo | [color=Red] Expr1001[/color] paix144 | 3 kachwahed | 7

[abo-ghadab]

السلام عليكم ورحمة الله وبركاته
حاولت على ربط DBCahrt مع SQLQuery في قاعدة بيانات Baradox
يظهر خطأ ؟

كود :

procedure TForm1.Button1Click(Sender: TObject); begin Form27.Query27.Close; form27.Query27.DatabaseName:=ExtractFilePath(Application.ExeName) + 'data'; form27.DataSource33.DataSet:=Form27.Query27; Form27.Query7.SQL.Add('select Virtage_blood,SUM(Bag_Ncount)from conjugate where date_conjugate_blood Between :D1 and :D2 Group By Virtage_blood'); Form27.Query27.Params.ParamByName('D1').Value:=MaskEdit1.Text; Form27.Query27.Params.ParamByName('D2').Value:=MaskEdit2.Text; Form27.Query27.ExecSQL; Form27.Query27.Open; Series1.dataSource:=Form27.Query27; Series1.XlabelsSource:= 'Virtage_blood'; Series1.XValues.ValueSource:='Expr1001'; Series1.YValues.ValueSource:=''; Series1.CheckDataSource; end;

لكن يظهر رسالة خطأ
مرة لايوجد الجدول في القاعدة يحمل هذا الاسم
ومرة لا يوجد بارم D1

[paix144]

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

كود :

Query1.Close; Query1.DatabaseName := GetCurrentDir + '\data'; [color=Red]DataSource2.DataSet := Query1;[/color][COLOR="Red"] Query1.ParamByName('D1').AsDate:=StrToDate(MaskEdit1.Text); Query1.ParamByName('D2').AsDate:=StrToDate(MaskEdit2.Text);[/COLOR] Query1.Open; Series1.dataSource:=Query1; Series1.XlabelsSource:= 'Virtage_blood'; Series1.XValues.ValueSource:='[color=Red]SUM OF Bag_Ncount[/color]'; Series1.YValues.ValueSource:=''; Series1.CheckDataSource;