|
lQuery := TQuery.Create(nil);
lQuery.ConnectionString := 'DATABASEURL=Biz:HGOPERATIONHGOPERATIONDB.DATABASE';;
lQuery.CommandText :=
' SELECT QualitydefectGrade AS Grade, COUNT(QualitydefectGrade) AS Count FROM NCINFOTABLE '+
' where DeptAuditDate >= :BeginDate and ' +
' DeptAuditDate <= :EndDate ' +
' GROUP BY QualitydefectGrade ';
lQuery.Params.ParamByName('BeginDate').AsDateTime := lBeginDate;
lQuery.Params.ParamByName('EndDate').AsDateTime := lEndDate;
lQuery.Open;
以上代码是获得柱状图的数据源,我现在的需求是用Grade做X轴,Count 做Y轴,做个柱状图表
类似如图的效果,要怎么做?
|
-
-
1.jpg
331.05 KB, 下载次数: 69
|