Delphi用xls作为数据源，小工具解决大问题

今天接到一个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;

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