学无止境
摘要: 连接数据库有:dbExpress,DBE,ADO,IBX和ODBCdbExpress是宝蓝一种新的数据库引擎,它目前只能连接SQL服务器类型的数据库它是一种跨平台的数据库引擎,到目前只能连DB2、oracle、InterBase、MySQL、INFORMIX。它连接速度比较快,占有空间也比较小,加起来也只要近1M的大小。用它查出的数据集都是只读的单向移动的,如需更新数据需自己处理.ADO是微软的数据库引擎,它的稳定性比较强,由于是微软出的,在2000以上的系统中都自带了它,所以分发程序时不要打包它的驱动。IBX是一种专门用于连接InterBase数据库的。BDE是宝蓝的一个老牌数据库引擎,可以 阅读全文
posted @ 2011-09-08 10:52 DHT 阅读(359) 评论(0) 推荐(0) 编辑
摘要: 可能大部分人对JavaScript调用ActiveX比较熟悉,但 在ActiveX中如何调用JavaScript的函数呢?网上看过一篇用C++编写的ActiveX组件调用JavaScript函数的贴子,但似乎没 人关心Delphi中如何编写相应功能的代码,前段时间研究了一下,很简单,现分享出来。1.建立ActiveXForm工程,添加对SHDocVw,MSHTML单元的引用;2.在类中声明如下私有函数:private FWebBrowser: IWebBrowser2; function FindIEWebBrowser: IWebBrowser2; function FindIEWindow 阅读全文
posted @ 2011-09-08 10:51 DHT 阅读(274) 评论(0) 推荐(0) 编辑
摘要: MessageBox对话框是比较常用的一个信息对话框,其不仅能够定义显示的信息内容、信息提示图标,而且可以定义按钮组合及对话框的标题,是一个功能齐全的信息对话框信息提示图标,而且可以定义按钮组合及对话框的标题,是一个功能齐全的信息对框。 1、函数原型及参数 function MessageBox(hWnd:HWND;Text, Caption:PChar;Type:Word): Integer; hWnd:对话框父窗口句柄,对话框显示在Delphi窗体内,可使用窗体的Handle属性,否则可用0,使其直接作为桌面窗口的子窗口。 Text:欲显示的信息字符串。 Caption:对话框标题字符串。 阅读全文
posted @ 2011-09-08 10:49 DHT 阅读(160) 评论(0) 推荐(0) 编辑
摘要: 在windows中内存的分配一次是4个字节的。而packed按数据类型进行内存的申请和分配,读取时也是按照数据型的大小进行指针定位,这样速度要慢一些,因为需要额外的时间来进行指针的定位。因此如果不用packed的话,delphi将按一次4个字节的方式申请内存,因此如果一个变量没有4个字节宽的话也要占4个字节!这样就浪费了,你可以用packed关键字取消这种优化。例子:typemyrec = packed recordn1 : integer; 4个字节n2 : shortint; 1个字节end;sizeof(myrec)------ 5typemyrec = recordn1 : integ 阅读全文
posted @ 2011-09-07 16:34 DHT 阅读(392) 评论(0) 推荐(0) 编辑
摘要: 1.工程文件(Delphi Project File)工程文件是一个特殊的单元文件,是应用程序的主程序,它管理应用程序中的其他文件,该文件的拓展名是*.dpr,是一个文本文件2.窗体文件(Delphi Form)窗体文件存储有关窗体中对象的信息,它是一个二进制文件,窗体文件的拓展名为*.dfm,每个窗体文件都有一个与之相对应的单元文件,如有一个名为Unit1.dfm的窗体文件,就有一个名为Unit1.pas的单元文件与之对应。Unin23.单元文件(Pascal File)用于存储与程序功能有关的常量、变量、数据类型、函数与过程的定义,单元文件的拓展名为*.pas,是一个文本文件4.资源文件( 阅读全文
posted @ 2011-09-07 15:53 DHT 阅读(329) 评论(0) 推荐(0) 编辑
摘要: try ...excepton e:exception do begin //出错回滚 dm.OraSession.Rollback; MessageBox(Handle,pchar(e.message),'保存出错',MB_OK + MB_ICONSTOP); //恢复事务自动提交 dm.OraSession.AutoCommit := true; OraQuery1.AutoCommit := true; StringGrid1.SetFocus(); StringGrid1.Row := 1; StringGrid1.Col := 3; exit... 阅读全文
posted @ 2011-09-07 15:52 DHT 阅读(384) 评论(0) 推荐(0) 编辑
摘要: strtodate('2001-12-30') 出现'is not a valid date '错误查看 控制面板->区域设置->日期发现日期 分隔符号用了 '/' 如果改为'-'就没有问题解决办法:在程序中引入:DateUtils单元加入:DateSeparator := '-';ShortDateFormat:= 'yyyy-mm-dd';然后使用strtodate('2001-12-30') 阅读全文
posted @ 2011-09-07 15:52 DHT 阅读(454) 评论(0) 推荐(0) 编辑
摘要: DBCheckbox的初始化包括:1.绑定数据源: 可直接设置属性,也可在程序里设置 DBCheckbox.DataSource:=DataSource1; DataSource.DataSet:=ADOQuery; DBCheckbox.DataField:=Field1; 注:DBCheckbox捆绑的数据字段最好是Nnumber(1)类型;2.设置ValueChecked和ValueUnchecked 在属性栏中将ValueChecked设为1,ValueUnchecked设为03.只这些还不够,当新添加一条数据的时候,Field1为空,所以DBCheckbox显示第三种状态。后来想这在 阅读全文
posted @ 2011-09-07 15:51 DHT 阅读(1739) 评论(2) 推荐(0) 编辑
摘要: 对于模态对话框,ModalResult一旦被赋值,就会自动关闭。我遇到一个情况:1.在Form1中点击button1通过ShowModal打开模式窗口Form22.在Form2中点击button2通过ShowModal打开模式窗口Form33.在Form3退出的后,Form2同时出退出了查了很久发现原来是Form2中的button2的ModalResult属性设置了mrAll,改为mrNone随即解决问题 阅读全文
posted @ 2011-09-07 15:50 DHT 阅读(627) 评论(0) 推荐(0) 编辑
摘要: unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, xmldom, XMLIntf, msxmldom, XMLDoc, msxml,StdCtrls;type TForm1 = class(TForm) btn1: TButton; XMLDocument1: TXMLDocument; procedure btn1Click(Sender: TObject); private { Private declarations } 阅读全文
posted @ 2011-09-07 15:49 DHT 阅读(1151) 评论(0) 推荐(0) 编辑