对面的高手看过来——如何把查询出来的记录转化成excell文件！！！！（100高分求解）

machin 2002-03-27 04:30:27

高分求解~~~！！！
...全文
64 2 打赏 收藏 转发到动态 举报
写回复
用AI写文章
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
cz3w 2002-03-27
  • 打赏
  • 举报
 回复
Query1->Close();Query1->SQL->Clear();
Query1->SQL->Add("SELECT SUM(DBSR),SUM(CASE WHEN DBSR>DWJF.DBGRYJ THEN DWJF.DBGRYJ ELSE DBSR END),");
Query1->SQL->Add("SUM(CASE WHEN DBSR>DWJF.DBGRYJ+DWJF.DBDWYJ THEN DWJF.DBDWYJ WHEN DBSR>DWJF.DBGRYJ THEN DBSR-DWJF.DBGRYJ ELSE 0 END) FROM DWJF ");
Query1->SQL->Add("WHERE JFYF<=:JFYF");
Query1->SQL->Add("AND RYFL='0' AND JFLB='2'");
Query1->ParamByName("JFYF")->AsInteger=UpDown1->Position;
Query1->Open();
ss.OlePropertySet("Cells",8,15,Query1->Fields->Fields[1]->AsString);
Query1->Close();Query1->SQL->Clear();
Query1->SQL->Add("SELECT SUM(DBSR),SUM(CASE WHEN DBSR>DWJF.DBGRYJ THEN DWJF.DBGRYJ ELSE DBSR END),");
Query1->SQL->Add("SUM(CASE WHEN DBSR>DWJF.DBGRYJ+DWJF.DBDWYJ THEN DWJF.DBDWYJ WHEN DBSR>DWJF.DBGRYJ THEN DBSR-DWJF.DBGRYJ ELSE 0 END) FROM DWJF ");
Query1->SQL->Add("WHERE JFYF<=:JFYF");
Query1->SQL->Add("AND RYFL='2' AND JFLB='2'");
Query1->ParamByName("JFYF")->AsInteger=UpDown1->Position;
Query1->Open();
ss.OlePropertySet("Cells",9,15,Query1->Fields->Fields[1]->AsString);
for(int i=2;i<8;i++) {
Query1->Close();Query1->SQL->Clear();
Query1->SQL->Add("SELECT SUM(DBSR),SUM(CASE WHEN DBSR>DWJF.DBGRYJ THEN DWJF.DBGRYJ ELSE DBSR END),");
Query1->SQL->Add("SUM(CASE WHEN DBSR>DWJF.DBGRYJ+DWJF.DBDWYJ THEN DWJF.DBDWYJ WHEN DBSR>DWJF.DBGRYJ THEN DBSR-DWJF.DBGRYJ ELSE 0 END) ");
Query1->SQL->Add("FROM DWJF JOIN CBDW ON DWJF.DWBH=CBDW.DWBH");
Query1->SQL->Add("WHERE DWJF.JFYF=:JFYF AND CBDW.DWXZ=:DWXZ");
Query1->SQL->Add("AND RYFL='A' AND JFLB='2'");
Query1->ParamByName("JFYF")->AsInteger=UpDown1->Position;
Query1->ParamByName("DWXZ")->AsString=ss.OlePropertyGet("Cells",5,i);
Query1->Open();
ss.OlePropertySet("Cells",6,i,Query1->Fields->Fields[0]->AsString);
ss.OlePropertySet("Cells",7,i,Query1->Fields->Fields[2]->AsString);
Query1->Close();Query1->SQL->Clear();
Query1->SQL->Add("SELECT SUM(DBSR),SUM(CASE WHEN DBSR>DWJF.DBGRYJ THEN DWJF.DBGRYJ ELSE DBSR END),");
Query1->SQL->Add("SUM(CASE WHEN DBSR>DWJF.DBGRYJ+DWJF.DBDWYJ THEN DWJF.DBDWYJ WHEN DBSR>DWJF.DBGRYJ THEN DBSR-DWJF.DBGRYJ ELSE 0 END) ");
Query1->SQL->Add("FROM DWJF JOIN CBDW ON DWJF.DWBH=CBDW.DWBH");
Query1->SQL->Add("WHERE DWJF.JFYF=:JFYF AND CBDW.DWXZ=:DWXZ");
Query1->SQL->Add("AND RYFL='0' AND JFLB='2'");
Query1->ParamByName("JFYF")->AsInteger=UpDown1->Position;
Query1->ParamByName("DWXZ")->AsString=ss.OlePropertyGet("Cells",5,i);
Query1->Open();
ss.OlePropertySet("Cells",8,i,Query1->Fields->Fields[1]->AsString);
Query1->Close();Query1->SQL->Clear();
Query1->SQL->Add("SELECT SUM(DBSR),SUM(CASE WHEN DBSR>DWJF.DBGRYJ THEN DWJF.DBGRYJ ELSE DBSR END),");
Query1->SQL->Add("SUM(CASE WHEN DBSR>DWJF.DBGRYJ+DWJF.DBDWYJ THEN DWJF.DBDWYJ WHEN DBSR>DWJF.DBGRYJ THEN DBSR-DWJF.DBGRYJ ELSE 0 END) ");
Query1->SQL->Add("FROM DWJF JOIN CBDW ON DWJF.DWBH=CBDW.DWBH");
Query1->SQL->Add("WHERE DWJF.JFYF=:JFYF AND CBDW.DWXZ=:DWXZ");
Query1->SQL->Add("AND RYFL='2' AND JFLB='2'");
Query1->ParamByName("JFYF")->AsInteger=UpDown1->Position;
Query1->ParamByName("DWXZ")->AsString=ss.OlePropertyGet("Cells",5,i);
Query1->Open();
ss.OlePropertySet("Cells",9,i,Query1->Fields->Fields[1]->AsString); }
for(int i=9;i<15;i++) {
Query1->Close();Query1->SQL->Clear();
Query1->SQL->Add("SELECT SUM(DBSR),SUM(CASE WHEN DBSR>DWJF.DBGRYJ THEN DWJF.DBGRYJ ELSE DBSR END),");
Query1->SQL->Add("SUM(CASE WHEN DBSR>DWJF.DBGRYJ+DWJF.DBDWYJ THEN DWJF.DBDWYJ WHEN DBSR>DWJF.DBGRYJ THEN DBSR-DWJF.DBGRYJ ELSE 0 END) ");
Query1->SQL->Add("FROM DWJF JOIN CBDW ON DWJF.DWBH=CBDW.DWBH");
Query1->SQL->Add("WHERE DWJF.JFYF<=:JFYF AND CBDW.DWXZ=:DWXZ");
Query1->SQL->Add("AND RYFL='A' AND JFLB='2'");
Query1->ParamByName("JFYF")->AsInteger=UpDown1->Position;
Query1->ParamByName("DWXZ")->AsString=ss.OlePropertyGet("Cells",5,i);
Query1->Open();
ss.OlePropertySet("Cells",6,i,Query1->Fields->Fields[0]->AsString);
ss.OlePropertySet("Cells",7,i,Query1->Fields->Fields[2]->AsString);
Query1->Close();Query1->SQL->Clear();
Query1->SQL->Add("SELECT SUM(DBSR),SUM(CASE WHEN DBSR>DWJF.DBGRYJ THEN DWJF.DBGRYJ ELSE DBSR END),");
Query1->SQL->Add("SUM(CASE WHEN DBSR>DWJF.DBGRYJ+DWJF.DBDWYJ THEN DWJF.DBDWYJ WHEN DBSR>DWJF.DBGRYJ THEN DBSR-DWJF.DBGRYJ ELSE 0 END) ");
Query1->SQL->Add("FROM DWJF JOIN CBDW ON DWJF.DWBH=CBDW.DWBH");
Query1->SQL->Add("WHERE DWJF.JFYF<=:JFYF AND CBDW.DWXZ=:DWXZ");
Query1->SQL->Add("AND RYFL='0' AND JFLB='2'");
Query1->ParamByName("JFYF")->AsInteger=UpDown1->Position;
Query1->ParamByName("DWXZ")->AsString=ss.OlePropertyGet("Cells",5,i);
Query1->Open();
ss.OlePropertySet("Cells",8,i,Query1->Fields->Fields[1]->AsString);
Query1->Close();Query1->SQL->Clear();
Query1->SQL->Add("SELECT SUM(DBSR),SUM(CASE WHEN DBSR>DWJF.DBGRYJ THEN DWJF.DBGRYJ ELSE DBSR END),");
Query1->SQL->Add("SUM(CASE WHEN DBSR>DWJF.DBGRYJ+DWJF.DBDWYJ THEN DWJF.DBDWYJ WHEN DBSR>DWJF.DBGRYJ THEN DBSR-DWJF.DBGRYJ ELSE 0 END) ");
Query1->SQL->Add("FROM DWJF JOIN CBDW ON DWJF.DWBH=CBDW.DWBH");
Query1->SQL->Add("WHERE DWJF.JFYF<=:JFYF AND CBDW.DWXZ=:DWXZ");
Query1->SQL->Add("AND RYFL='2' AND JFLB='2'");
Query1->ParamByName("JFYF")->AsInteger=UpDown1->Position;
Query1->ParamByName("DWXZ")->AsString=ss.OlePropertyGet("Cells",5,i);
Query1->Open();
ss.OlePropertySet("Cells",9,i,Query1->Fields->Fields[1]->AsString); }
//---------------------------------------- 上年结余
Query1->Close();Query1->SQL->Clear();
Query1->SQL->Add("SELECT SUM(DBSR) FROM DWJF ");
Query1->SQL->Add("WHERE JFYF=0");
Query1->SQL->Add("AND RYFL='A' AND JFLB='2'");
Query1->Open();
ss.OlePropertySet("Cells",20,8,Query1->Fields->Fields[0]->AsString);
for(int i=2;i<8;i++) {
Query1->Close();Query1->SQL->Clear();
Query1->SQL->Add("SELECT SUM(DBSR)");
Query1->SQL->Add("FROM DWJF JOIN CBDW ON DWJF.DWBH=CBDW.DWBH");
Query1->SQL->Add("WHERE DWJF.JFYF=0 AND CBDW.DWXZ=:DWXZ");
Query1->SQL->Add("AND RYFL='A' AND JFLB='2'");
Query1->ParamByName("DWXZ")->AsString=ss.OlePropertyGet("Cells",5,i);
Query1->Open();
ss.OlePropertySet("Cells",20,i,Query1->Fields->Fields[0]->AsString); }
// for(int i=2;i<=15;i++) ss.OlePropertySet("Cells",36,i,"=SUM(R6C"+IntToStr(i)+",R20C"+IntToStr(i)+")");
ss=Unassigned;
ee=Unassigned;
cz3w 2002-03-27
  • 打赏
  • 举报
 回复
Variant ee,ss;
ee=CreateOleObject("excel.application");
ee.OlePropertySet("Visible",true);
ee.OlePropertyGet("Workbooks").OleProcedure("Add");
ss=ee.OlePropertyGet("ActiveWorkbook").OlePropertyGet("Worksheets",1);
ss.OlePropertySet("Range","A2","淮安市医疗保险大病统筹基金收支表");
ss.OlePropertySet("Range","A4","项目");
ss.OlePropertySet("Range","B4","月计数");
ss.OlePropertySet("Range","B5","机关");
ss.OlePropertySet("Range","C5","事业");
ss.OlePropertySet("Range","D5","国有企业");
ss.OlePropertySet("Range","E5","集体企业");
ss.OlePropertySet("Range","F5","港澳台外资企业");
ss.OlePropertySet("Range","G5","其它企业");
ss.OlePropertySet("Range","H5","小计");
ss.OlePropertySet("Range","I4","累计数");
ss.OlePropertySet("Range","I5","机关");
ss.OlePropertySet("Range","J5","事业");
ss.OlePropertySet("Range","K5","国有企业");
ss.OlePropertySet("Range","L5","集体企业");
ss.OlePropertySet("Range","M5","港澳台外资企业");
ss.OlePropertySet("Range","N5","其它企业");
ss.OlePropertySet("Range","O5","小计");
ss.OlePropertyGet("Range","B:O").OlePropertySet("NumberFormat","0.00");
ss.OlePropertyGet("Range","A2:O2").OleProcedure("Merge");
ss.OlePropertyGet("Range","A4:A5").OleProcedure("Merge");
ss.OlePropertyGet("Range","B4:H4").OleProcedure("Merge");
ss.OlePropertyGet("Range","I4:O4").OleProcedure("Merge");
ss.OlePropertyGet("Range","A1:O5").OlePropertySet("HorizontalAlignment",-4108);
ss.OlePropertyGet("Range","A1:O5").OlePropertySet("VerticalAlignment",-4108);
ss.OlePropertyGet("Columns","A").OlePropertySet("ColumnWidth",30);
ss.OlePropertyGet("Range","B:O").OlePropertySet("ColumnWidth",10);
ss.OlePropertySet("Range","A6","一、医疗保险大病统筹基金收入");
ss.OlePropertySet("Range","A7"," 1、单位缴纳");
ss.OlePropertySet("Range","A8"," 2、在职职工个人缴纳");
ss.OlePropertySet("Range","A9"," 3、退休人员个人缴纳");
ss.OlePropertySet("Range","A11"," 4、基金利息收入");
ss.OlePropertySet("Range","A12"," 5、财政补贴收入");
ss.OlePropertySet("Range","A13"," 6、异地转移收入");
ss.OlePropertySet("Range","A14"," 7、基金其他收入");
ss.OlePropertySet("Range","A15"," 其中：滞纳金收入");
ss.OlePropertySet("Range","A16"," 8、上级补助收入");
ss.OlePropertySet("Range","A17"," 9、下级上解收入");
ss.OlePropertySet("Range","A19","二、上年结余");
ss.OlePropertySet("Range","A20"," 医疗保险基金");
ss.OlePropertySet("Range","A23","三、医疗保险大病统筹基金支出");
ss.OlePropertySet("Range","A24"," 1、在职职工医疗费支出");
ss.OlePropertySet("Range","A25"," (1)住院费支出");
ss.OlePropertySet("Range","A26"," (2)门诊费支出");
ss.OlePropertySet("Range","A27"," 2、退休人员医疗费支出");
ss.OlePropertySet("Range","A28"," (1)住院费支出");
ss.OlePropertySet("Range","A29"," (2)门诊费支出");
ss.OlePropertySet("Range","A30"," 3、异地转移支出");
ss.OlePropertySet("Range","A31"," 4、基金其他支出");
ss.OlePropertySet("Range","A32"," 5、上解上级支出");
ss.OlePropertySet("Range","A33"," 6、补助下级支出");
ss.OlePropertySet("Range","A35","四、累计结余");
ss.OlePropertySet("Range","A36"," 医疗保险基金");
ss.OlePropertyGet("Range","A4:O36").
OlePropertyGet("Borders").OlePropertySet("LineStyle",1);
//----------------------------------------
Query1->Close();Query1->SQL->Clear();
Query1->SQL->Add("SELECT SUM(DBSR),SUM(CASE WHEN DBSR>DWJF.DBGRYJ THEN DWJF.DBGRYJ ELSE DBSR END),");
Query1->SQL->Add("SUM(CASE WHEN DBSR>DWJF.DBGRYJ+DWJF.DBDWYJ THEN DWJF.DBDWYJ WHEN DBSR>DWJF.DBGRYJ THEN DBSR-DWJF.DBGRYJ ELSE 0 END) FROM DWJF ");
Query1->SQL->Add("WHERE JFYF=:JFYF");
Query1->SQL->Add("AND RYFL='A' AND JFLB='2'");
Query1->ParamByName("JFYF")->AsInteger=UpDown1->Position;
Query1->Open();
ss.OlePropertySet("Cells",6,8,Query1->Fields->Fields[0]->AsString);
ss.OlePropertySet("Cells",7,8,Query1->Fields->Fields[2]->AsString);
Query1->Close();Query1->SQL->Clear();
Query1->SQL->Add("SELECT SUM(DBSR),SUM(CASE WHEN DBSR>DWJF.DBGRYJ THEN DWJF.DBGRYJ ELSE DBSR END),");
Query1->SQL->Add("SUM(CASE WHEN DBSR>DWJF.DBGRYJ+DWJF.DBDWYJ THEN DWJF.DBDWYJ WHEN DBSR>DWJF.DBGRYJ THEN DBSR-DWJF.DBGRYJ ELSE 0 END) FROM DWJF ");
Query1->SQL->Add("WHERE JFYF=:JFYF");
Query1->SQL->Add("AND RYFL='0' AND JFLB='2'");
Query1->ParamByName("JFYF")->AsInteger=UpDown1->Position;
Query1->Open();
ss.OlePropertySet("Cells",8,8,Query1->Fields->Fields[1]->AsString);
Query1->Close();Query1->SQL->Clear();
Query1->SQL->Add("SELECT SUM(DBSR),SUM(CASE WHEN DBSR>DWJF.DBGRYJ THEN DWJF.DBGRYJ ELSE DBSR END),");
Query1->SQL->Add("SUM(CASE WHEN DBSR>DWJF.DBGRYJ+DWJF.DBDWYJ THEN DWJF.DBDWYJ WHEN DBSR>DWJF.DBGRYJ THEN DBSR-DWJF.DBGRYJ ELSE 0 END) FROM DWJF ");
Query1->SQL->Add("WHERE JFYF=:JFYF");
Query1->SQL->Add("AND RYFL='2' AND JFLB='2'");
Query1->ParamByName("JFYF")->AsInteger=UpDown1->Position;
Query1->Open();
ss.OlePropertySet("Cells",9,8,Query1->Fields->Fields[1]->AsString);
Query1->Close();Query1->SQL->Clear();
Query1->SQL->Add("SELECT SUM(DBSR),SUM(CASE WHEN DBSR>DWJF.DBGRYJ THEN DWJF.DBGRYJ ELSE DBSR END),");
Query1->SQL->Add("SUM(CASE WHEN DBSR>DWJF.DBGRYJ+DWJF.DBDWYJ THEN DWJF.DBDWYJ WHEN DBSR>DWJF.DBGRYJ THEN DBSR-DWJF.DBGRYJ ELSE 0 END) FROM DWJF ");
Query1->SQL->Add("WHERE JFYF<=:JFYF");
Query1->SQL->Add("AND RYFL='A' AND JFLB='2'");
Query1->ParamByName("JFYF")->AsInteger=UpDown1->Position;
Query1->Open();
ss.OlePropertySet("Cells",6,15,Query1->Fields->Fields[0]->AsString);
ss.OlePropertySet("Cells",7,15,Query1->Fields->Fields[2]->AsString);
excell保护密码破解
工作簿保护破解，内包含vba宏，加载保护的工作簿，运行宏。
Excell jingmeirili
Excell jingmeirili!超级好用的黄历！
EXCELL函数应用大全
EXCELL函数EXCELL函数EXCELL函数EXCELL函数EXCELL函数EXCELL函数EXCELL函数
excell文件数据读取demo.zip
先把excel的文件读出来，转化为Json结构。注：第一行标题作为key，其它行作为value，具体参考demo Sheet1 = ( { "\U626b\U63cf\U65e5\U671f" = "2017-06-06 18:40:18"; "\U6536/\U6d3e\U4ef6\U5458" = "\U6c49\U5370"; "\U7b7e\U6536\U7701\U4efd" = "\U5b89\U5fbd\U7701"; "\U7eed\U91cd" = "2.5"; "\U8ba1\U8d39\U91cd\U91cf" = "0.2"; "\U8d39\U7528" = 6; "\U8fd0\U5355\U7f16\U53f7" = 719819806047; "\U9996\U91cd" = 6; }, { "\U626b\U63cf\U65e5\U671f" = "2017-06-21 19:49:54"; "\U6536/\U6d3e\U4ef6\U5458" = "\U6c49\U5370"; "\U7b7e\U6536\U7701\U4efd" = "\U798f\U5efa\U7701"; "\U7eed\U91cd" = 2; "\U8ba1\U8d39\U91cd\U91cf" = "1.3"; "\U8d39\U7528" = 8; "\U8fd0\U5355\U7f16\U53f7" = 535053121266; "\U9996\U91cd" = 6; } );
EXCELl密码破解工具
很好用的EXCELl密码破解工具,支持office2003.office2007.office2010
Delphi

5,386

社区成员

262,729

社区内容

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告
暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章