|
|
|
|
摘要：
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ShellApi; type TForm1 = class(TForm) ListBox1: TListBox; Dr... 阅读全文
posted @ 2010-08-04 17:26 beeone 阅读(509) 评论(0) 推荐(0) 编辑
摘要：
MessageBox对话框是比较常用的一个信息对话框，其不仅能够定义显示的信息内容、信息提示图标，而且可以定义按钮组合及对话框的标题，是一个功能齐全的信息对话框信息提示图标，而且可以定义按钮组合及对话框的标题，是一个功能齐全的信息对框。 1、函数原型及参数 function MessageBox(hWnd: HWND; Text, Caption: PChar; Type: Word): Inte... 阅读全文
posted @ 2010-08-04 17:17 beeone 阅读(185) 评论(0) 推荐(0) 编辑
摘要：
unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObjec... 阅读全文
posted @ 2010-08-04 17:14 beeone 阅读(154) 评论(0) 推荐(0) 编辑
摘要：
自己捕捉WM_MOUSEWHEEL消息处理private OldGridWnd : TWndMethod;procedure NewGridWnd (var Message : TMessage);publicprocedure TForm1.NewGridWnd(var Message: TMessage);var IsNeg : Boolean;begin if Message.Msg = W... 阅读全文
posted @ 2010-08-04 16:46 beeone 阅读(280) 评论(0) 推荐(0) 编辑
摘要：
了以上这么多的技巧和方法，想必大家未免会有一种冲动吧－自己动手做一个DBGrid，下面就介绍一种自制DBGrid的方法啦。 Delphi中的TDBGrid是一个使用频率很高的VCL元件。TDBGrid有许多优良的特性，例如它是数据绑定的，能够定义功能强大的永久字段，事件丰富等，特别是使用非常简单。但是，与FoxPro、VB 、PB中的DBGrid相比就会发现，TDBGrid也有明显的缺陷：它的键... 阅读全文
posted @ 2010-08-04 16:44 beeone 阅读(393) 评论(0) 推荐(1) 编辑
摘要：
procedure PrintDbGrid(DataSet:TDataSet;DbGrid:TDbGrid;Title:String);varPointX,PointY:integer;ScreenX:integer;i,lx,ly:integer;px1,py1,px2,py2:integer;RowPerPage,RowPrinted:integer;ScaleX:Real;THeight:i... 阅读全文
posted @ 2010-08-04 16:43 beeone 阅读(325) 评论(0) 推荐(0) 编辑
摘要：
在 Form1 上放置 DBGrid1、Query1、DataSource1 三个数据库组件，设置相关的属性，使 DBGrid1 能显示表中的数据。然后，在 DBGrid1 的 onDrawColumnCell 事件中键入以下代码，然后运行程序代码:procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;D... 阅读全文
posted @ 2010-08-04 16:42 beeone 阅读(386) 评论(0) 推荐(0) 编辑
摘要：
{ 背景：今天要把DataSet导入Excel，查询以前的贴子，一部分用Ole，速度太慢， 一部分用ADO连接到Excel文件，也很慢，一气之下把DBGrigEh的导出部分改了出来， 欢迎大家指教、改进。 功能：将数据集的数据导入Excel; 用法：With TDS2Excel.Create(TDataSet(ADOQuery1)) do Try Save2File(SaveDialog1.Fi... 阅读全文
posted @ 2010-08-04 16:40 beeone 阅读(258) 评论(0) 推荐(0) 编辑
摘要：
1 创建Excel文件 要在Delphi中控制Excel，就必须用到OLE自动化。现在一般采用OLE2来创建OLE对象，当激活一个OLE对象时，服务器程序仅在容器程序内部激活，这就是所谓的“就地激活”(in-place activation)。 创建Excel文件时，先创建一个OLE对象，然后在对象中建立工作表worksheet，如函数createExcel所示： f... 阅读全文
posted @ 2010-08-04 16:38 beeone 阅读(575) 评论(0) 推荐(1) 编辑
摘要：
前言： 在软件实际制作中，为节省开发成本和开发周期，一些软件人员通常会吧DBGrid中的数据直接导出到Excel表中，而先前能看到的函数仅仅只能在WorkBook的一个Sheet中导入数据，不支持多Sheet！。单元应用：Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCt... 阅读全文
posted @ 2010-08-04 16:37 beeone 阅读(211) 评论(0) 推荐(0) 编辑
摘要：
unit Unit1;interfaceusesWindows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,Grids, DBGrids, StdCtrls, Buttons, Db, DBTables, ExtCtrls, jpeg;const ROWCNT=20;type tmygrid=class(tdb... 阅读全文
posted @ 2010-08-04 16:36 beeone 阅读(354) 评论(0) 推荐(0) 编辑
摘要：
//注意:下面的方法必须包含 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) 编辑
摘要：
摘 要：在DELPHI中使用ADO直接访问Excel数据文件关键字：ADO Excel类 别：数据库 承蒙各位大鱼大虾的支持，终于顿悟。现在将心经写下来，让后来者提高修成正果的效率，早日成为大鱼大虾。 要用DELPHI中的ADO系列控件访问Excel数据文件，首先应该建立一些基本概念。你需要将一个Excel数据文件想象为一个关系数据库，Excel文件中的每个工作表就对应该数据库中的一个表，而工... 阅读全文
posted @ 2010-08-04 16:33 beeone 阅读(677) 评论(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) 编辑
摘要：
多表头的DBGridEH导出到Excel中把自己的解决法子说一下，虽然解决的不是很完美，缺少单元格合并和字体设置。我重写了单元DBGridEhImpExp中的函数TDBGridEhExportAsXLS.WriteTitle希望有高手继续完善这个函数，让之最终导出的Excel格式和Elib一样。//--------------------------------------------------... 阅读全文
posted @ 2010-08-04 16:32 beeone 阅读(549) 评论(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 阅读(17885) 评论(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 阅读(1229) 评论(0) 推荐(0) 编辑 |
|