wer123yao-CSDN博客

原创动态创建ACCESS数据库

1：通过OLE方式创建uses ComObj; procedure TFormOffice.BitBtn1Click(Sender: TObject);varCreateAccess:OleVariant;beginCreateAccess:=CreateOleObject(´ADOX.Catalog´);CreateAccess.Create(´Provider=

2009-07-15 16:45:00 419

原创获取完整的系统临时文件路径

有临时文件可以放到这里，而不用自己维护 function GetLongPathName(lpszShortPath: PChar; lpszLongPath: PChar; cchBuffer: DWORD): DWORD; stdcall; external kernel32 name GetLongPathNameA;//调用ker

2009-07-15 16:40:00 1071

原创邮件编码2

function sak_QuotedPrintableDecode( const FCurrentData : PChar ): string;{ This works if charset="iso-8859-1" ! }var SourceIndex : Integer; DecodedIndex : Integer; Ch

2009-07-15 10:16:00 375

原创邮件解码

很多时候有收到以 ‘=?utf-8?Q?=’或者 ‘?GB2312?B?1qe’开头的信息，那么如何解码呢以下是函数：目前增加支持 utf-8，BIG5的转换。Q表示Q编码，B表示B编码。=============================uses EncdDecd=========================//信息/Subject: =?utf-8?Q?=E

2009-07-15 09:36:00 1012 2

原创 DELPPHI 通过ADO读取EXCEL

uses ComObj; try ExcelApp := CreateOleObject( Excel.Application ); ExcelApp.visible:=False; ExcelApp.Workbooks.Open(Trim(edt1.Text));//创建COMOBJ对象，并且打开指定文件 except ShowMessa

2007-08-10 10:41:00 1313

转载 DELPHI错误分析

******************************** 编译错误信息 ********************************; not allowed before ELSE ElSE前不允许有“;” clause not allowed in OLE automation section 在OLE自动区段不允许“”子句 is not a type i

2007-05-17 16:24:00 1926

转载 XP下安装SQL2000

方法如下：一．在SQL服务器的安装盘中找到MSDE这个目录，并且点击setup.exe安装它，过程简单直接下一步就ＯＫ了。二. 重启系统WINDOWSXP,这下就可以看到SQL服务的图标出现了。三. 再拿出SQL服务器版的安装光盘，直接安装客户端工具（这个不要多说吧？最简单的方法就是直接点击光盘根目录下的autorun.exe)安装时不要选择MDSN的帮助文件根据提示安装，自检过程中知

2007-05-17 16:22:00 517

原创 EXE文件打不开

弹出对话框，让选择什么方式打开EXE文件：重新启动系统至XP ，在"运行"中输入regedit.com，注册表编辑器打开后，找到以下分支： HKEY_CLASSES_ROOT/exefile/shell/open/command 双击右侧窗口中的 (默认) 值，设置为 "%1" %* [包含引号] 再找到:

2007-05-17 16:21:00 649

转载 adoquery怎样判断数据在缓存中有修改啊

ADOQry.Filtered:=false; ADOQry.Filtered:=true; ADOQry.FilterGroup:=fgPendingRecords ;FilterGroup参数解释如下：FgUnassigned 指定不使用任何的过滤器来过滤数据fgNone 移去任何的过滤器，让所有的数据都显示出来。这也可以通过设定ADO的Filtered属性值为Fal

2007-05-17 16:12:00 1818

转载 quickreport 以多队列作为数据源

procedure TfrmNeedData.FormCreate(Sender: TObject);var i: integer;begin SomeList := TStringlist.Create; for i := 0 to 500 do SomeList.Add(Line + IntToStr(i));end;procedure TfrmNeedData.Q

2007-05-17 16:09:00 512

转载 quickreport相关

数据库字段多行显示：用 TQRDBRichText 只支持 BLOB 字段类型，保证没有问题。如果字段类型是 CHAR/VARCHAR 类型，就不能用 TQRDBRichText ，必须用没有“DB”的 TQRRichText，在 Band 的 BeforePrint 事件给 TQRRichText 值： voi

2007-05-17 15:15:00 535

原创导出到EXCEL，TEXT

var frmSendJindu: TfrmSendJindu; arXlsBegin: array[0..5] of Word = ($809, 8, 0, $10, 0, 0); arXlsEnd: array[0..1] of Word = ($0A, 00); arXlsString: array[0..5] of Word = ($204, 0, 0, 0, 0, 0); ar

2007-05-17 15:05:00 795

SELECT CONVERT(varchar(100), GETDATE(), 0): 05 16 2006 10:57AMSELECT CONVERT(varchar(100), GETDATE(), 1): 05/16/06SELECT CONVERT(varchar(100), GETDATE(), 2): 06.05.16SELECT CONVERT(varchar(100), GETDA

2007-05-17 14:59:00 858

原创延迟函数

在Delphi中，通常可以用以下三种方法来实现程序的延时，即TTtimer控件，Sleep函数，GetTickCount函数。但是其精度是各不相同的。一、三种方法的简单介绍1）TTtimer控件　 TTtimer控件的实质是调用Windows API定时函数SetTimer和KillTimer来实现的，并简化了对WM_TIMER 消息的处理过程。通过设置OnTimer事件和Inter

2007-05-17 14:58:00 1128

原创常用函数

DateDiff("y",timefield,2002-11-28)>0 在年的区分度上比较时间大小============================================================================== listview中的checkbox中的钩选： var first,secord:tlistitem;

2007-05-17 14:56:00 631

转载从字符串中解析出 [] 内的内容

function jiexi(strsql:string):string; begin while (AnsiPos([,strSql) begin result:=copy(strsql,AnsiPos([,strSql)+1,AnsiPos(],strSql)-AnsiPos([,strSql)-1); end;end;

2007-05-17 14:43:00 565

夜行血手的专栏