主题:[讨论]怎样把DBGrid显示转换成excell?我要编译成功的源码
zhangbin0733
[专家分:20] 发布于 2007-07-02 02:59:00
看到了几个例子。都不能编译成功。哪个好心人能提供一下编译成功的源码,或者是控件。我在这里替和我遇到同样问题困惑的爱好者谢谢各位了。
不嫌多,只嫌少。希望看到更多的解决方案,也让我开开眼界。
回复列表 (共3个回复)
沙发
lishan200012 [专家分:200] 发布于 2007-07-02 14:07:00
uses 中加
excelxp,comobj
//生成Excel
procedure TDlgAcc002Form.Button3Click(Sender: TObject);
var
x,y,i,j:integer;
MsExcel:OleVariant;
begin
try
MSExcel:=CreateOleObject('Excel.Application');
MSExcel.application.Visible:=False;
Except
on Exception do raise exception.Create('无法打开xls文件,请确认已经安装了EXCEL');
end;
MSEXCEL.WORKBOOKS.ADD;
x:=adoquery1.fieldcount;
y:=adoquery1.recordcount;
for I:=1 to x do
MSExcel.cells.item[1,i]:=adoquery1.fields[i-1].fullname;
adoquery1.first;
for j:=2 to y+1 do
begin
for i:=1 to x do
begin
MSExcel.cells.item[j,i]:=adoquery1.fields[i-1].value;
end;
adoquery1.next;
end;
MSExcel.application.Visible:=True;
MSExcel.Quit;
MSExcel:=Unassigned;
Screen.cursor:=crdefault;
end;
板凳
zhangbin0733 [专家分:20] 发布于 2007-07-04 03:00:00
我一次编译成功了。谢谢你了,兄弟。
3 楼
candyffl [专家分:0] 发布于 2007-07-04 16:16:00
本人自行开发了一套ERP框架系统,有需要的朋友可以下载使用,数据库目录下面有个例子数据库F-Builder_DemoDB,同时也希望有兴趣的朋友一起合作推广,利润可以五五分!
本框架的介绍:
F-Builder,一套灵活、可自由改动、可扩展和开放型的中间框架,依赖框架提供众多流行的对象,通过Borland RTIL(对象运行时刻信息库)的功能,借以设计和控制系统;适用企业级数据库开发,可以在此架构的基础上配合数据库工具开发出适应企业任何逻辑需求的软件。
如果企业曾经使用过管理软件,但却饱受授软件后服务不能满足需求的困扰,不妨试试我们提供的F-BUILDER管理软件,或许,它正是您想要找的。
系统主要特点/优势:
1.F-Builder是针对企业在需求方面的高度不确定性而专门开发的一套软件。F-Builder的基本思想就是摆脱传统软件开发的硬编码方法,使得软件开发人员从烦琐的代码中解脱出来,集中精力去研究企业需求和业务流程。F-Builder以一种灵活的软件开发模式取代传统的僵化模式,大大简化了软件开发的过程。
2.F-Builder是一个软件开发平台,其本身提供了功能强大并且完备的程序开发接口。在F-Builder上设计和布置界面是随心所欲的,由于使用自身的接口,使得对开发人员的要求不再那么苛刻。当软件开发完成,F-Builder就转化为管理软件,在任何产生新需求的时候,还可以继续在上面开发完善,实现二次开发。
3.F-Builder具有很好的可扩展性,这是大多软件无法比拟的。出于开发的目的,在F-Builder的设计上采取了许多独到的先进的思想,这正是它强大之处之一。所以,用它来开发企业软件是非常理想的选择。因为它支持的正是企业的需求不定性,它是为了解决传统软件在这方面的不足而被开发出来的。
4.F-Builder具有很好的权限策略控制,在F-Builder系统上企业可以自行的添加权限控制项目,因为它支持的是每个系统界面的任何一个组件的权限控制。
5.F-Builder将系统的设计内容(例如界面的图片、按钮等)全部转为二进制保存在数据库中,大大的缩小了系统的容量,并加快了系统的运行速度。
6.F-Builder提供了强大的数据库支持,当前可以支持ms sql server、mysql等多种流行的数据库。在F-Builder上开发的系统可以轻易的在这些数据库之间无缝移植。
欢迎登陆http://toptom88.vicp.net/或http://2840.tomore.com/1/44649.html下载试用
联系QQ:641497992;491759995;(请注明F-Builder)
我来回复