BCB生成EXCEL表并实现表格的设置数据的填写

1、 /将数据导入excel表中201010 /保存数据到excel文件中 savedialog1-filename =s_reportname+edt.formatstring(yyyymmdd); if(savedialog1-execute() ansistring filenamex=savedialog1-filename+.xls; variant wb,sh1; wb=createoleobject(excel.sheet); int i=0; ansistring cc; sh1=wb.olepropertyget(activesheet); /设置1行1列单元格属性 /设置字号为

2、18,粗体 sh1.pg(cells,1,1).pg(font).ps(size,18); sh1.pg(cells,1,1).pg(font).ps(bold,true); sh1.pg(cells,1,1).pg(font).ps(name,宋体); /设置行高 sh1.pg(rows,1).ps(rowheight,1.155/0.035); / 1/0.035=1cm /合并单元格 sh1.pg(range, a1:k1 ).pr(merge); /水平对齐 1:顶端对齐，2：居中， 3：底端对齐 sh1.pg(cells,1,1).ps(horizontalalignment,3);

3、 /垂直对齐 2:左端对齐，3：居中， 4：右端对齐 sh1.pg(cells,1,1).ps(verticalalignment,2); /设置2行1列单元格属性 /设置字号为18,粗体 sh1.pg(cells,2,1).pg(font).ps(size,16); sh1.pg(cells,2,1).pg(font).ps(bold,true); sh1.pg(cells,2,1).pg(font).ps(name,宋体); sh1.pg(rows,2).ps(rowheight,1.155/0.035); / 1/0.035=1cm sh1.pg(range, a2:k2 ).pr(me

4、rge); sh1.pg(cells,2,1).ps(horizontalalignment,3); sh1.pg(cells,2,1).ps(verticalalignment,2); /设置3行1列单元格属性 sh1.pg(cells,3,1).pg(font).ps(size,10); sh1.pg(cells,3,1).pg(font).ps(bold,true); sh1.pg(cells,3,1).pg(font).ps(name,宋体); sh1.pg(range, a3:h3).pr(merge); /设置3行9列单元格属性 sh1.pg(cells,3,9).pg(font)

5、.ps(size,10); sh1.pg(cells,3,9).pg(font).ps(bold,true); sh1.pg(cells,3,9).pg(font).ps(name,宋体); sh1.pg(rows,3).ps(rowheight,1/0.035); / 1/0.035=1cm /设置列宽 sh1.pg(columns,1).ps(columnwidth,5.2); sh1.pg(columns,2).ps(columnwidth,8); sh1.pg(columns,3).ps(columnwidth,8.4); sh1.pg(columns,4).ps(columnwidt

6、h,7.6); sh1.pg(columns,5).ps(columnwidth,7.2); sh1.pg(columns,6).ps(columnwidth,7.2); sh1.pg(columns,7).ps(columnwidth,7.2); sh1.pg(columns,8).ps(columnwidth,7.2); sh1.pg(columns,9).ps(columnwidth,7.2); sh1.pg(columns,10).ps(columnwidth,7.2); sh1.pg(columns,11).ps(columnwidth,6); /填写标题栏 sh1.oleprope

7、rtyget(cells,1,1).olepropertyset(value,s_stationname); /填写报表名称 sh1.olepropertyget(cells,2,1).olepropertyset(value,s_reportname); /填写日期栏 sh1.olepropertyget(cells,3,1).olepropertyset(value,报表日期:+s_reportdate); sh1.olepropertyget(cells,3,9).olepropertyset(value,单位:rmb 元); /填写列名称 sh1.pg(cells,4,1).pg(fo

8、nt).ps(size,10); sh1.pg(cells,4,1).pg(font).ps(bold,true); sh1.pg(cells,4,1).pg(font).ps(name,宋体); sh1.pg(cells,4,1).ps(horizontalalignment,3); sh1.pg(cells,4,1).ps(verticalalignment,2); cc=序号; sh1.olepropertyget(cells,4,1).olepropertyset(value,cc); sh1.pg(cells,4,2).pg(font).ps(size,10); sh1.pg(cel

9、ls,4,2).pg(font).ps(bold,true); sh1.pg(cells,4,2).pg(font).ps(name,宋体); sh1.pg(cells,4,2).ps(horizontalalignment,3); sh1.pg(cells,4,2).ps(verticalalignment,2); cc=车牌号码; sh1.olepropertyget(cells,4,2).olepropertyset(value,cc); sh1.pg(cells,4,3).pg(font).ps(size,10); sh1.pg(cells,4,3).pg(font).ps(bold,

10、true); sh1.pg(cells,4,3).pg(font).ps(name,宋体); sh1.pg(cells,4,3).ps(horizontalalignment,3); sh1.pg(cells,4,3).ps(verticalalignment,2); cc=车队小号; sh1.olepropertyget(cells,4,3).olepropertyset(value,cc); sh1.pg(cells,4,4).pg(font).ps(size,10); sh1.pg(cells,4,4).pg(font).ps(bold,true); sh1.pg(cells,4,4).

11、pg(font).ps(name,宋体); sh1.pg(cells,4,4).ps(horizontalalignment,3); sh1.pg(cells,4,4).ps(verticalalignment,2); cc=车主名称; sh1.olepropertyget(cells,4,4).olepropertyset(value,cc); sh1.pg(cells,4,5).pg(font).ps(size,10); sh1.pg(cells,4,5).pg(font).ps(bold,true); sh1.pg(cells,4,5).pg(font).ps(name,宋体); sh1

12、.pg(cells,4,5).ps(horizontalalignment,3); sh1.pg(cells,4,5).ps(verticalalignment,2); cc=交费次数; sh1.olepropertyget(cells,4,5).olepropertyset(value,cc); sh1.pg(cells,4,6).pg(font).ps(size,10); sh1.pg(cells,4,6).pg(font).ps(bold,true); sh1.pg(cells,4,6).pg(font).ps(name,宋体); sh1.pg(cells,4,6).ps(horizon

13、talalignment,3); sh1.pg(cells,4,6).ps(verticalalignment,2); cc=验票次数; sh1.olepropertyget(cells,4,6).olepropertyset(value,cc); sh1.pg(cells,4,7).pg(font).ps(size,10); sh1.pg(cells,4,7).pg(font).ps(bold,true); sh1.pg(cells,4,7).pg(font).ps(name,宋体); sh1.pg(cells,4,7).ps(horizontalalignment,3); sh1.pg(c

14、ells,4,7).ps(verticalalignment,4); cc=单次收费金额; sh1.olepropertyget(cells,4,7).olepropertyset(value,cc); sh1.pg(cells,4,8).pg(font).ps(size,10); sh1.pg(cells,4,8).pg(font).ps(bold,true); sh1.pg(cells,4,8).pg(font).ps(name,宋体); sh1.pg(cells,4,8).ps(horizontalalignment,3); sh1.pg(cells,4,8).ps(verticalal

15、ignment,4); cc=通过次数合计; sh1.olepropertyget(cells,4,8).olepropertyset(value,cc); sh1.pg(cells,4,9).pg(font).ps(size,10); sh1.pg(cells,4,9).pg(font).ps(bold,true); sh1.pg(cells,4,9).pg(font).ps(name,宋体); sh1.pg(cells,4,9).ps(horizontalalignment,3); sh1.pg(cells,4,9).ps(verticalalignment,4); cc=收费金额合计;

16、sh1.olepropertyget(cells,4,9).olepropertyset(value,cc); sh1.pg(cells,4,10).pg(font).ps(size,10); sh1.pg(cells,4,10).pg(font).ps(bold,true); sh1.pg(cells,4,10).pg(font).ps(name,宋体); sh1.pg(cells,4,10).ps(horizontalalignment,3); sh1.pg(cells,4,10).ps(verticalalignment,4); cc=卡内余额; sh1.olepropertyget(c

17、ells,4,10).olepropertyset(value,cc); sh1.pg(cells,4,11).pg(font).ps(size,10); sh1.pg(cells,4,11).pg(font).ps(bold,true); sh1.pg(cells,4,11).pg(font).ps(name,宋体); sh1.pg(cells,4,11).ps(horizontalalignment,3); sh1.pg(cells,4,11).ps(verticalalignment,2); cc=备注; sh1.olepropertyget(cells,4,11).olepropert

18、yset(value,cc); i=4; cardcnt=0; while (!datamodules-adoquery-eof) i+; cardcnt+; /填写列内容 sh1.pg(cells,i,1).pg(font).ps(size,10); sh1.pg(cells,i,1).pg(font).ps(name,宋体); sh1.pg(cells,i,1).ps(horizontalalignment,3); sh1.pg(cells,i,1).ps(verticalalignment,2); cc= inttostr(cardcnt); sh1.olepropertyget(cel

19、ls,i,1).olepropertyset(value,cc); sh1.pg(cells,i,2).pg(font).ps(size,10); sh1.pg(cells,i,2).pg(font).ps(name,宋体); sh1.pg(cells,i,2).ps(horizontalalignment,3); sh1.pg(cells,i,2).ps(verticalalignment,2); cc= datamodules-adoquery-fields-fieldbyname(cpuvlpnumber)-asstring.trim(); sh1.olepropertyget(cell

20、s,i,2).olepropertyset(value,cc); sh1.pg(cells,i,3).pg(font).ps(size,10); sh1.pg(cells,i,3).pg(font).ps(name,宋体); sh1.pg(cells,i,3).ps(horizontalalignment,3); sh1.pg(cells,i,3).ps(verticalalignment,2); cc= datamodules-adoquery-fields-fieldbyname(cpusvlpnumber)-asstring.trim(); sh1.olepropertyget(cell

21、s,i,3).olepropertyset(value,cc); sh1.pg(cells,i,4).pg(font).ps(size,10); sh1.pg(cells,i,4).pg(font).ps(name,宋体); sh1.pg(cells,i,4).ps(horizontalalignment,3); sh1.pg(cells,i,4).ps(verticalalignment,2); cc= datamodules-adoquery-fields-fieldbyname(cardownername)-asstring.trim(); sh1.olepropertyget(cell

22、s,i,4).olepropertyset(value,cc); sh1.pg(cells,i,5).pg(font).ps(size,10); sh1.pg(cells,i,5).pg(font).ps(name,宋体); sh1.pg(cells,i,5).ps(horizontalalignment,3); sh1.pg(cells,i,5).ps(verticalalignment,2); totaljfcnt+=datamodules-adoquery-fields-fieldbyname(autotype)-asinteger; cc= inttostr(datamodules-a

23、doquery-fields-fieldbyname(autotype)-asinteger); sh1.olepropertyget(cells,i,5).olepropertyset(value,cc); sh1.pg(cells,i,6).pg(font).ps(size,10); sh1.pg(cells,i,6).pg(font).ps(name,宋体); sh1.pg(cells,i,6).ps(horizontalalignment,3); sh1.pg(cells,i,6).ps(verticalalignment,2); totalypcnt+=datamodules-ado

24、query-fields-fieldbyname(yapcount)-asinteger; cc= inttostr(datamodules-adoquery-fields-fieldbyname(yapcount)-asinteger); sh1.olepropertyget(cells,i,6).olepropertyset(value,cc); sh1.pg(cells,i,7).pg(font).ps(size,10); sh1.pg(cells,i,7).pg(font).ps(name,宋体); sh1.pg(cells,i,7).ps(horizontalalignment,3)

25、; sh1.pg(cells,i,7).ps(verticalalignment,4); cc= inttostr(datamodules-adoquery-fields-fieldbyname(price)-asinteger); sh1.olepropertyget(cells,i,7).olepropertyset(value,cc); sh1.pg(cells,i,8).pg(font).ps(size,10); sh1.pg(cells,i,8).pg(font).ps(name,宋体); sh1.pg(cells,i,8).ps(horizontalalignment,3); sh

26、1.pg(cells,i,8).ps(verticalalignment,2); totaltgcnt+=datamodules-adoquery-fields-fieldbyname(autotype)-asinteger+datamodules-adoquery-fields-fieldbyname(yapcount)-asinteger; cc= inttostr(datamodules-adoquery-fields-fieldbyname(autotype)-asinteger+datamodules-adoquery-fields-fieldbyname(yapcount)-asi

27、nteger); sh1.olepropertyget(cells,i,8).olepropertyset(value,cc); sh1.pg(cells,i,9).pg(font).ps(size,10); sh1.pg(cells,i,9).pg(font).ps(name,宋体); sh1.pg(cells,i,9).ps(horizontalalignment,3); sh1.pg(cells,i,9).ps(verticalalignment,2); totaljfprice+=datamodules-adoquery-fields-fieldbyname(autotype)-asi

28、nteger*datamodules-adoquery-fields-fieldbyname(price)-asinteger; cc= inttostr(datamodules-adoquery-fields-fieldbyname(autotype)-asinteger*datamodules-adoquery-fields-fieldbyname(price)-asinteger); sh1.olepropertyget(cells,i,9).olepropertyset(value,cc); sh1.pg(cells,i,10).pg(font).ps(size,10); sh1.pg

29、(cells,i,10).pg(font).ps(name,宋体); sh1.pg(cells,i,10).ps(horizontalalignment,3); sh1.pg(cells,i,10).ps(verticalalignment,2); cc= inttostr(datamodules-adoquery-fields-fieldbyname(restcost)-asinteger); sh1.olepropertyget(cells,i,10).olepropertyset(value,cc); datamodules-adoquery-next(); /交费次数合计 sh1.pg(cells,cardcnt+5,5).pg(font).ps(size,10); sh1.pg(cells,cardcnt+5,5).pg(