|
摘要：
1 'access类型 2 dim strconn,objconn 3 strconn="driver=microsoft access driver(*.mdb);dbq=" _ 4 & Server.MapPath("db.mdb") 5 set objconn=Server.CreateObject("ADODB.Connection") 6 objconn.open strconn 7 'sql类型 8 strconn="driver={sql server};descript=sqldemo 阅读全文
posted @ 2013-12-15 01:45 豪杰的爸爸 阅读(296) 评论(0) 推荐(0) 编辑
摘要：
ADO有事务功能。在数据集中的BeforePost事件添加：con.BeginTrans;AfterPost事件添加：con.CommitTrans；OnPostError事件添加：con.RollbackTrans；Action ：= daAbort； 阅读全文
posted @ 2012-06-22 20:07 豪杰的爸爸 阅读(100) 评论(0) 推荐(0) 编辑
摘要：
在Delphi中，Locate和Lookup封装了原生ADO的Find查找方法。提供以下函数形式使用1functionTCustomADODataSet.Locate(constKeyFields:string;2constKeyValues:Variant;Options:TLocateOptions):Boolean;3begin4DoBeforeScroll;5Result:=LocateRecord(KeyFields,KeyValues,Options,True);6ifResultthen7begin8Resync([rmExact,rmCenter]);9DoAfterScrol 阅读全文
posted @ 2012-02-02 12:13 豪杰的爸爸 阅读(1842) 评论(0) 推荐(0) 编辑
摘要：
打开注册表HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap\Domains看到删除 阅读全文
posted @ 2012-01-13 13:23 豪杰的爸爸 阅读(288) 评论(0) 推荐(0) 编辑
摘要：
ADO_BatchUpdate本地编辑模式，是在客户端修改好几笔数据后才一次过更新回数据源，中途可以取消修改。要进入BatchUpdate模式要进行以下设置，以ADODataset数据集为例：//属性设置withADODataset1dobeginCursorType:=KeySet;//orStaticLockType:=BatchOptimistic;Cursorlocation:=clUseClient;end;//执行更新ADODataset1.UpdateBatch;//取消更新ADODataSet1.CancelBatch; 阅读全文
posted @ 2012-01-12 10:47 豪杰的爸爸 阅读(218) 评论(0) 推荐(0) 编辑
摘要：
一、如何在程序中确定Ehlib定义的报表表头颜色? 在执行打印之前，加上下面的语句：DBGridEh1.FixedColor:=clLime;//clLime可以换成你想要的颜色比如clRed是红色等等PrintDBgridEh1.Options:=[pghColored,pghFitingByColWidths];//方括号里的"pghColored"是必需的，其它的根据你的需要决定取舍====... 阅读全文
posted @ 2011-11-09 23:57 豪杰的爸爸 阅读(504) 评论(0) 推荐(0) 编辑
摘要：
System 单元声明的TDateTime 实数类型有特殊的转换规则，当TDateTime 转换为任何其它类型时，它被看作Double 类型；当整数、实数或布尔类型转换为TDateTime 时，它先转换为Double，然后当作date-time值来读取；当一个字符串被转换为TDateTime 时，它使用区域设置解释为date-time 值；当Unassigned值转换为TDateTime 时，它被看作实数或整数的0；把Null 值转换为TDateTime 会引发异常。 大小 8字节 浮点数var d: Double; AYear, AMonth, ADay: integer;begin ... 阅读全文
posted @ 2011-10-28 11:04 豪杰的爸爸 阅读(547) 评论(0) 推荐(0) 编辑
摘要：
//Controls.pasconst mrNone = 0; mrOk = idOk; mrCancel = idCancel; mrAbort = idAbort; mrRetry = idRetry; mrIgnore = idIgnore; mrYes = idYes; mrNo = idNo; mrAll = mrNo + 1; mrNoToAll = mrAll + 1; mrYesToAll = mrNoToAll + 1;type TModalResult = Low(Intege... 阅读全文
posted @ 2011-10-21 14:16 豪杰的爸爸 阅读(292) 评论(0) 推荐(0) 编辑
摘要：
program Project1uses Forms, Unit1 in 'Unit1.pas';{$R *.res}begin Application.Initializ; Application.CreateForm(TForm1, Form1); Application.Run;end.unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs;type TForm1 = class(TForm) private .. 阅读全文
posted @ 2011-10-21 11:49 豪杰的爸爸 阅读(277) 评论(0) 推荐(0) 编辑
摘要：
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs; type TForm1 = class(TForm) private { Private declarations } public { Public declarations } procedure CreateParams(var Params: TCreateParams); override; end; var Form1: TForm... 阅读全文
posted @ 2011-10-21 10:23 豪杰的爸爸 阅读(223) 评论(0) 推荐(0) 编辑 |
||
