|
|
|
|
摘要：
//注意:下面的方法必须包含 ComObj, Excel97 单元 //----------------------------------------------------------- // if toExcel = false, export dbgrid contents to the Clipboard // if toExcel = true, export dbgrid to ... 阅读全文
posted @ 2010-08-04 16:35 beeone 阅读(340) 评论(0) 推荐(0) 编辑
摘要：
{功能描述：把DBGrid输出到Excel表格（支持多Sheet）调用格式：CopyDbDataToExcel([DBGrid1, DBGrid2]);}procedure CopyDbDataToExcel(Args: array of const);var iCount, jCount: Integer; XLApp: Variant; Sheet: Variant; I: Integer;b... 阅读全文
posted @ 2010-08-04 16:33 beeone 阅读(243) 评论(0) 推荐(0) 编辑
摘要：
摘 要：在DELPHI中使用ADO直接访问Excel数据文件关键字：ADO Excel类 别：数据库 承蒙各位大鱼大虾的支持，终于顿悟。现在将心经写下来，让后来者提高修成正果的效率，早日成为大鱼大虾。 要用DELPHI中的ADO系列控件访问Excel数据文件，首先应该建立一些基本概念。你需要将一个Excel数据文件想象为一个关系数据库，Excel文件中的每个工作表就对应该数据库中的一个表，而工... 阅读全文
posted @ 2010-08-04 16:33 beeone 阅读(675) 评论(0) 推荐(0) 编辑
摘要：
多表头的DBGridEH导出到Excel中把自己的解决法子说一下，虽然解决的不是很完美，缺少单元格合并和字体设置。我重写了单元DBGridEhImpExp中的函数TDBGridEhExportAsXLS.WriteTitle希望有高手继续完善这个函数，让之最终导出的Excel格式和Elib一样。//--------------------------------------------------... 阅读全文
posted @ 2010-08-04 16:32 beeone 阅读(546) 评论(0) 推荐(0) 编辑
摘要：
在delphi中调用excel有四种方式，我们选取其中的一种用OleObject来装载excel工作表的方式来谈delphi控制excel的重要属性和方法。 首先给出通过OLE创建的一些主要代码步进行简单说明：创建OLE对象：Var olecon: TOleContainer;Olecon:= TOleContainer.Create(self);Olecon.oleobject:= Oleco... 阅读全文
posted @ 2010-08-04 16:30 beeone 阅读(690) 评论(0) 推荐(0) 编辑
摘要：
得到WINDOWS的SYSTEM路径: 方法: var MySysPath : PCHAR ; begin GetMem(MySysPath,255); GetSystemDirectory(MySysPath,255); end; 注:MySysPath为SYSTEM路径得到程序的路径 ExtractFileDir(Application.Exename);察看文件是否存在 FileExist... 阅读全文
posted @ 2010-08-04 16:18 beeone 阅读(244) 评论(0) 推荐(0) 编辑
摘要：
1、财政部《会计基础工作规范》（财会字〔1996〕19号）第五十二条（五）有明确规定；2、1997.09.19中国人民银行关于印发《支付结算办法》的通知的附件一：正确填写票据和结算凭证的基本规定：银行、单位和个人填写的各种票据和结算凭证是办理支付结算和现金收付的重要依据，直接关系到支付结算的准确、及时和安全。票据和结算凭证是银行、单位和个人凭以记载帐务的会计凭证，是记载经济业务和明确经济责任的一种... 阅读全文
posted @ 2010-08-04 16:09 beeone 阅读(17860) 评论(0) 推荐(0) 编辑
摘要：
我们在编程的过程中，特别是开发和财务相关的应用程序的时候，几乎都会遇到要将阿拉伯数字(一般是货币金额)转换为中文大写的要求。也有一些转换程序，但大都不符合财务实际要求，比如最简单的：function xd(xx:currency):string;var dx,ws:string; i,cd:integer; int:currency;begin int:=trunc((abs(xx)+0.005)... 阅读全文
posted @ 2010-08-04 16:03 beeone 阅读(1226) 评论(0) 推荐(0) 编辑
摘要：
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Edit1: TEdit; ... 阅读全文
posted @ 2010-08-04 15:55 beeone 阅读(216) 评论(0) 推荐(0) 编辑 |
|