想问一下TChart的问题,怎样显示多条柱装图? ( 积分: 50 )

J

jjaacc

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-06-26

• #1

我想做成显示效果如下:
6
30 5 |
| 4 |
20 |3 | |3
|| | ||
10 || |2 ||
|| || ||
0 || || ||
Jackie Susan Jayce

 

J

jjaacc

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-06-26

• #2

我想做成显示效果如下:
6
30 5 |
| 4 |
20 |3 | |3
|| | ||
10 || |2 ||
|| || ||
0 || || ||
Jackie Susan Jayce

 

0

011101

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-06-26

• #3

chart上加兩個barseries,以不同顏色顯示,這樣可以解決你的問題.[]

 

J

jjaacc

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-06-26

• #4

我的代码是这样的:
Listop.SQL.Clear;
Listop.SQL.Add(sqlstr);
Listop.Open;
pricechart.Series[0].Clear;
while not Listop.Eofdo
begin
pricechart.Series[0].Add(0,listop.fieldbyname('worker').AsString);
pricechart.Series[1].Add(listop.fieldbyname('pricecount').AsInteger,listop.fieldbyname('price').AsString+'元');
Listop.Next;
end;

可是达不到我上面画的那种效果

 

0

011101

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-06-26

• #5

眼花,看代碼有困難.
兩個series,dateset相同,x軸的字段相同,y軸的字段不相同.
over

 

J

jjaacc

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-06-26

• #6

能不能帮我写段代码啊?谢谢了.

 

0

011101

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-06-26

• #7

cds1.Close;
cds1.CommandText:='select workno,price,pricecount from utable where group by workno'
cds1.Open;
dbchart1.Series[0].DataSource:=cds1;
dbchart1.Series[1].DataSource:=cds1;
dbchart1.Series[0].XLabelsSource:='wrokno';
dbchart1.Series[1].XLabelsSource:='wrokno';
dbchart1.Series[0].YValues.ValueSource :=price';
dbchart1.Series[1].YValues.ValueSource :='pricecount' ;
dbchart1.Series[0].RefreshSeries;
dbchart1.Series[1].RefreshSeries;

 

J

jjaacc

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-06-26

• #8

楼上这位大哥,你的方法虽然可以达到两条柱装并在一起,但是只能显示一条记录?
还有只有显示pricecount,没有PRICE

 

J

jjaacc

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-06-26

• #9

请问怎样动态创建柱装图形?

 

L

leadyli

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-06-26

• #10

給你個提示吧:
Series1.Clear;
Series1.Add(5,'Jackie');
Series1.Add(4,'Susan');
Series1.Add(6,'Jayce');
Series2.Clear;
Series2.AddY(3,'');
Series2.AddY(2,'');
Series2.AddY(3,'');

 

0

011101

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-06-26

• #11

樓主自已做吧,如果代碼不行你改改就是了.
多動手..............

 

J

jjaacc

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-06-26

• #12

怎样动态创建呢?我的程序我现在发现应该动态创建柱装图的,因为数量会不一样,所以要在程序中来知道数量,然后创建多少个数量的图

 

0

011101

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-06-26

• #13

AddSeries()
樓主多動手.不要懶惰啊.

 

J

jjaacc

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-06-26

• #14

我水平有限啊,弄了一天了,还是弄不好啊.
大家帮帮我吧,
列表如下
worker price pricecount
Jackie 1 1
Jackie 11 1
Jackie 32 3
Susan 2 1

我想得到如下显示效果:
3 3
2 |
1 1 1 | 1
| | | |
Jackie SUSAN

 

Z

zxy666666

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-06-27

• #15

procedure TForm1.BitBtn1Click(Sender: TObject);
var S: TBarSeries;
begin
S := TBarSeries.Create(self);
S.ParentChart := DBChart1;
S.AddBar(100,'test',clred);
end;

DBChart1.Series[p].DataSource := Listop ;
DBChart1.Series[p].YValues.ValueSource := 'pricecount';
DBChart1.Series[p].XValues.ValueSource := 'worker';