今天接到一个CASE,要求做几个分类汇总,可苦了财务室的魏大侠,以前只是要求对5个片区进行汇总统计,结果今天集团办的领导些要求对各个社区进行汇总统计,六七百个社区啊,全是手动汇总不弄死个人才怪,在了解详细的需求分析后(再一次领会到需求很重要),其实只要一条SQL语句就可以完成,最关键是有些数据要进行人工处理一下后才能方便统计,比如社区名为空的,某些片区不对的,都要手工调整后才能汇总。
于是乎产生一个念头,把系统生成的XLS表格导出后,进行手工处理后,再用工具软件进行分析统计,我需要做的就是做一个分析工具软件,至于手工处理表格,就交给财务室的MM吧,也修改不到多少数据,几分钟就搞定了,关键是分析软件做好,可以节省很多时间,如果全手工的话,恐怕花两天时间整理几百个社区也有点困难哦,关键是全手工处理容易出错,呵呵。
言归正传,看看Delphi如何使用XLS数据源,首先是用ADO连接XLS,其实该SQL连接字符串也可以用于其它语言,连接代码都是一样的。
if OpenDialog1.Execute then
begin
mydatasrc:=OpenDialog1.FileName;
try
con_xls.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+mydatasrc+';Extended Properties=Excel 8.0;Persist Security Info=False';
con_xls.Connected:=True;
Application.MessageBox('连接数据源成功!', '提示', MB_OK +
MB_ICONQUESTION);
except
Application.MessageBox('连接数据源失败!', '提示', MB_OK +
MB_ICONSTOP);
end;
end;
将打开的XLS文件作为ADO连接的数据源,连接成功后就可以操作了,excle工作表中第一行会作为字段行,剩下的跟连接SQL SERVER操作一样的。
不过XLS的工作表名要加上$符号,如工作表的名字是fee,那么SQL语句就中表名就应为[fee$],一定要加上[$],不然的话会报SQL语句出错,为了这个中括号,俺找了很多,最后才发现必须加上[],最后附上多字段汇总的SQL,以及汇总统计运算。
procedure TForm1.btn_countClick(Sender: TObject);
var sql:string;
begin
try
if rb1.Checked then //按片区汇总
sql:='select 片区,count(main_id) as 收费户数,sum(缴费金额) as 总金额,sum(缴费周期) as 总周期,sum(优惠天数)' +' as 总天数,总金额/(总周期+总天数/30) as ARP,(总周期+总天数/30)/收费户数 as 时长 from [fee$] group by 片区'
else //按社区名汇总
sql:='select 社区名,count(main_id) as 收费户数,sum(缴费金额) as 总金额,sum(缴费周期) as 总周期,sum(优惠天数)' +' as 总天数,总金额/(总周期+总天数/30) as ARP,(总周期+总天数/30)/收费户数 as 时长 from [fee$] group by 社区名';
qry_fee.Close;
qry_fee.SQL.Clear;
qry_fee.SQL.Add(sql);
qry_fee.Open;
Sa_myDBGridAutoSize(SamoolGrid1,155,64,70,64,73,130,134,0,0,0);
except
ShowMessage('ERR');
end;
end;
3 comments
excel函数和vba也挺强的
不要简单问题复杂化
猫,你好强哦