Delphi
Tchart 效果图
墨衍会员 · AI 创作全网分发 墨衍智能分发 通过墨衍一键同步至各平台 可同步平台 CSDN微信公众号微博知乎掘金百家号博客园抖音小红书 你的文章也可以这样分发 墨衍会员 ¥399起/年，写一次发全网
我也要 关注 + 加入社区我想做出如下图的效果
只是tchart部分，一点击字段就会统计，自己昨天弄了一下，很不成功，我的问题代码
盼望高手能帮我写一下‘性别’部分的功能实现，以及别的字段切换的思路
只是tchart部分，一点击字段就会统计，自己昨天弄了一下，很不成功，我的问题代码
procedure TForm9.bsSkinTreeView1MouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var
Series: TpieSeries;
begin
if bsskintreeview1.Selected.Text = '性别' then
//点中第一个根节点后
begin
adoquery1.Close;
adoquery1.SQL.clear;
adoquery1.SQL.Add('select * from 员工基本信息表 ');
adoquery1.open;
sumday1:=adoquery1.RecordCount;
end
else if bsskintreeview1.Selected.Text = '男' then
//点中第二个根节点后
begin
adoquery1.Close;
adoquery1.SQL.clear;
adoquery1.SQL.Add('select * from 员工基本信息表 where 性别=''男''');
adoquery1.open;
sumday2:=adoquery1.RecordCount;
end
else if bsskintreeview1.Selected.Text ='女' then
//点中第二个根节点后
begin
adoquery1.Close;
adoquery1.SQL.clear;
adoquery1.SQL.Add('select * from 员工基本信息表 where 性别=''女''');
adoquery1.open;
sumday3:=adoquery1.RecordCount;
Series := TpieSeries.Create(Chart1);
Series.Add(100, '男 '''+floattostr((sumday2/sumday1)*100)+'''''%', clRed);
Series.Add(200, '女 '''+floattostr((sumday3/sumday1)*100)+'''''%', clGreen);
Chart1.AddSeries(Series);
end;
end;
盼望高手能帮我写一下‘性别’部分的功能实现，以及别的字段切换的思路
...全文
