tchar的显示问题

dlam128 2013-04-25 03:25:19
如图:

点击“增加”按钮,Tchar的X轴 会增加左侧表格(DBGridEh)里的科室。
传入Tchar的参数: name:= dbg.DataSource.DataSet.fieldbyname('dept_name').AsString.


主要是 Tchar 的显示问题!
X轴:显示科室(我增加的)。

Y轴:显示的是 sum:=ADOquery1.RecordCount的数值。


柱状图:上面的黄色标记就是
该科室 sum:=ADOquery1.RecordCount的数值。

点击一次增加===》在X轴上增加一个选中科室及其柱状图。在点击就又增加一个选中科室。

点击一次删除===》在X轴上删除上一次增加的。


网上的Tchar资料太少了……实在是搞不懂了。求大神指教
...全文
96 点赞 收藏 7
写回复
7 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
dlam128 2013-04-27
引用 6 楼 SmallHand 的回复:
[quote=引用 5 楼 feiba7288 的回复:]

ADOQuery1.Close;
DBChart1.Legend.Visible:=False;
with DBChart1.SeriesList.Series[0] do begin
 DataSource := ADOQuery1;
 XLabelsSource := ADOQuery1Company.FieldName;
 XValues.ValueSource := ADOQuery1SumItems.FieldName;
 YValues.ValueSource := '';
 Marks.Style := smsXValue;
 CheckDataSource;
end; //with
with DBChart1.SeriesList.Series[1] do begin
 DataSource := ADOQuery1;
 XLabelsSource := '';
 XValues.ValueSource := ADOQuery1NumOrders.FieldName;
 YValues.ValueSource := '';
 CheckDataSource;
end; //with

ADOQuery1.Open;
参考下这两个链接: http://delphi.about.com/od/usedbvcl/l/aa082101b.htm http://hi.baidu.com/lovejin1988/item/9dab55f42330975bc9f33792
提供的答案很到位, 但基本的原理是你使用查询做好数据源,然后直接设置关联就可以的。[/quote] 谢谢两位了,DELPHI里面自带了demo ,通过那个demo我基本知道怎么处理我的问题了……现在看看,觉得这个问题问的好弱智……
回复
feiba7288 2013-04-26

ADOQuery1.Close;
DBChart1.Legend.Visible:=False;
with DBChart1.SeriesList.Series[0] do begin
DataSource := ADOQuery1;
XLabelsSource := ADOQuery1Company.FieldName;
XValues.ValueSource := ADOQuery1SumItems.FieldName;
YValues.ValueSource := '';
Marks.Style := smsXValue;
CheckDataSource;
end; //with
with DBChart1.SeriesList.Series[1] do begin
DataSource := ADOQuery1;
XLabelsSource := '';
XValues.ValueSource := ADOQuery1NumOrders.FieldName;
YValues.ValueSource := '';
CheckDataSource;
end; //with

ADOQuery1.Open;


参考下这两个链接:
http://delphi.about.com/od/usedbvcl/l/aa082101b.htm
http://hi.baidu.com/lovejin1988/item/9dab55f42330975bc9f33792
回复
火龙岛主 2013-04-26
引用 5 楼 feiba7288 的回复:

ADOQuery1.Close;
DBChart1.Legend.Visible:=False;
with DBChart1.SeriesList.Series[0] do begin
 DataSource := ADOQuery1;
 XLabelsSource := ADOQuery1Company.FieldName;
 XValues.ValueSource := ADOQuery1SumItems.FieldName;
 YValues.ValueSource := '';
 Marks.Style := smsXValue;
 CheckDataSource;
end; //with
with DBChart1.SeriesList.Series[1] do begin
 DataSource := ADOQuery1;
 XLabelsSource := '';
 XValues.ValueSource := ADOQuery1NumOrders.FieldName;
 YValues.ValueSource := '';
 CheckDataSource;
end; //with

ADOQuery1.Open;
参考下这两个链接: http://delphi.about.com/od/usedbvcl/l/aa082101b.htm http://hi.baidu.com/lovejin1988/item/9dab55f42330975bc9f33792
提供的答案很到位, 但基本的原理是你使用查询做好数据源,然后直接设置关联就可以的。
回复
dlam128 2013-04-25
引用 3 楼 feiba7288 的回复:
设置Data Source:
引用 3 楼 feiba7288 的回复:
设置Data Source:
X轴:选中DBGIRDEH 里面的科室名称 ===> name。 series的Y的值:对应的 count(id)数值 ===>select count(id) from XXXXX where ks_name=name。 Y轴:ADOQUERY1.RecordCount。 这个 怎么处理…… ADOQUERY1.sql的语句怎么写
回复
feiba7288 2013-04-25
设置Data Source:
回复
dlam128 2013-04-25
引用 1 楼 feiba7288 的回复:
你用的DBChart,每次增加和删除都重新刷新DBChart对应的DataSet,也就是重新查询DBChart对应的数据。 按你的逻辑是要显示每个科室的病人数吧?DBChart的SQL应该是select dept_id, dept_name, count(1) from Table a, dept_table b where a.dept_id = b.dept_id ……
是显示的病人数量,这个sql语句也有。 现在是不会用Tdbchar…… X坐标轴 Y坐标轴 都不会设置。
回复
feiba7288 2013-04-25
你用的DBChart,每次增加和删除都重新刷新DBChart对应的DataSet,也就是重新查询DBChart对应的数据。 按你的逻辑是要显示每个科室的病人数吧?DBChart的SQL应该是select dept_id, dept_name, count(1) from Table a, dept_table b where a.dept_id = b.dept_id group by dept_id, dept_name
回复
相关推荐
发帖
Delphi
创建于2007-08-02

4924

社区成员

Delphi 开发及应用
申请成为版主
帖子事件
创建了帖子
2013-04-25 03:25
社区公告
暂无公告