- 博客(27)
- 资源 (11)
- 收藏
- 关注
转载 从字符串转换为 datetime 时发生语法错误
with adoquery1 do begin close; sql.text :=format(insert into( fid,fDate) values(%s,%s) , [1,datetimetostr(now())]); execsql; end; 以上代码看上去没有什么问题。但是,有实际应该用。。 经常在电脑上出现 从字符串转换为 dateti
2008-12-31 14:56:00 1871
转载 【翻译】“PE文件格式”1.9版 完整译文(附注释)
【翻译】“PE文件格式”1.9版 完整译文(附注释)=========================================================原著:Bernd. Luevelsmeyer 翻译:ah007[注意:本译文的所有大小标题序号都是译者添加,以方便大家阅读。圆圈内的数字是注释的编号,其中
2008-12-30 13:44:00 1217
转载 PE文件格式之win32应用程序初探
PE文件格式之win32应用程序初探 汉字最好--2008.1 看雪论坛首发 几年前曾打算学习PE文件格式,但满篇的英语和c语言令人声畏。一直到上个月因为需要才硬着头皮学下来。于是参考了几篇1.9版译文,同时对数个文件反编译、修改,最后自己组装了一个小exe,总算对PE文件有了一个初步的认识。 本文仅仅研究的是win32GUI程序中重要的内容,
2008-12-30 13:42:00 788
原创 删除SQLSERVER中的临时表
IF OBJECT_ID(tempdb..#Show) IS NOT NULL DROP TABLE #Show
2008-12-30 11:45:00 909
原创 用reg刪除注冊表項
删除注册表的键或项还是要通过注册表文件 删除注册表中的项 Windows Registry Editor Version 5.00 [-HKEY_LOCAL_MACHINE/SOFTWARE/Microsoft/Windows/CurrentVersion/Run] 保存为reg文件双击导如即可删除此项 注意有个“-”号 删除注册表中的值 Windows Regis
2008-12-28 16:20:00 849
转载 @ 与 ^ 运算符
//例1:procedure TForm1.Button1Click(Sender: TObject);var str: string; p: Pointer;begin p := @str; //变量 str 的地址 p := @Form1; //变量 Form1 的地址 p := @TForm1.Button1Click; //过程 TForm1.Button1Click 的地
2008-12-27 16:00:00 752
转载 ^ 符号的特殊用法
^ 符号的特殊用法 begin ShowMessage(IntToStr(Byte(^A))); {1} ShowMessage(IntToStr(Integer(^b))); {2} ShowMessage(IntToStr(Integer(^^))); {30} ShowMessage(IntToStr(Integer(^?))); {127}end;
2008-12-27 15:57:00 1456
原创 SELECT 查询时,自动给数据带上行号
ACCESSSELECT (SELECT count(*)+1 as dd FROM tSalaryRep as a where a.fid>b.fid) AS bb, b.fidFROM tSalaryRep AS bORDER BY b.fid DESC;SQL SERVERselect identity(int,1,1) as ID,* into #Temp from TalbeName
2008-12-27 00:03:00 1445
转载 SQLite的SQL语法
SQLite的SQL语法 CREATE TABLEsql-command ::=CREATE [TEMP | TEMPORARY] TABLE [IF NOT EXISTS] table-name ( column-def [, column-def]* [, constraint]*)sql-comm
2008-12-25 10:39:00 889
原创 创建QQ临时会话。
ShellExecute(0,open,PChar(tencent://message/?uin=+Edit1.Text+),nil,nil,SW_SHOW);Edit1.text 内是 对方的 QQ 号码
2008-12-25 09:58:00 1041
原创 SQLite中的时间日期函数
SQLite包含了如下时间/日期函数:datetime().......................产生日期和时间date()...........................产生日期time()...........................产生时间strftime().......................对以上三个函数产生的日期和时间进行格式化d
2008-12-24 23:15:00 952
原创 ADO 连接 EXCEL
1、添加ADOTable1控件,设置下列属性: ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties=Excel 8.0;Persist Security Info=false;Data Source=c:/abc.xls"; Tabl
2008-12-24 23:05:00 833
转载 DELPHI 操作EXCEL
其他的一些资料 (一) 使用动态创建的方法 首先创建 Excel 对象,使用ComObj: var ExcelApp: Variant; ExcelApp := CreateOleObject( Excel.Application ); 1) 显示当前窗口: Excel
2008-12-24 23:04:00 727
原创 数据表创建
CREATE TABLE tLogin3 ( fid INTEGER PRIMARY KEY AUTOINCREMENT,fname varchar(20),fPassword varchar(50) )
2008-12-24 16:23:00 608
转载 DBGridEh和dbgrid导出
uses ComObj如果你用DBGrid把数据显示出来,不管你用什么数据库,都可以导出到Excel表里! uses ComObj; procedure TSearchinforfrm.Button11Click(Sender: TObject); var eclApp,WorkBook:olevariant;
2008-12-23 11:16:00 562
转载 移动无标题栏窗口
我们可以使用一个巧妙的方法来实现将鼠标放置 在窗体上按下就可拖动窗体,下面先看实现代码。在Form1的“Private”部分声明过程: 在private部分加入下列代码:procedure wmnchittest(var msg:twmnchittest);message wm_nchittest;在程序部分加入以下代码:procedure TForm1.wmnchittest(var
2008-12-21 12:53:00 528
原创 防止程序多次运行。
var MutexHandle:THandle;begin Application.Initialize; MutexHandle :=windows.CreateMutex(nil,True,PChar(sApp_Name)); if MutexHandle if GetLastError = windows.ERROR_ALREADY_EXISTS then begin
2008-12-11 23:14:00 530
原创 回车后自动聚焦到下一个控件
procedure TfrmItemEdit.Edit1KeyPress(Sender: TObject; var Key: Char);begin if Key =#13 then begin Key := #0; Perform(40,0,0); end;end;
2008-12-11 00:16:00 862
原创 用 MapFileAndCheckSum 函数检测 exe 或 dll 是否被修改
问题来源: http://www.cnblogs.com/del/archive/2008/12/08/1350440.html#1395177unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;typ
2008-12-09 11:37:00 1166
转载 Windows Management Instrumentation (WMI)信息可能损坏错误修复
笔者在维护管理的Windows Server2003出现了一个奇怪的问题:在查看“本地连接”的属性,并切换到“高级”选项卡后,本来应该出现的Windows防火墙(ICF)不见了!取而代之的是一个提示:“Windows不能显示此连接的属性。Windows ManagementInstrumentation(Windows管理体系结构组件WMI)信息可能损坏。要更正此问题,请使用系统还原
2008-12-08 15:50:00 5647 1
原创 用ADO连接 EXCEL 文件
Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Book1.xls;Extended Properties=Excel 8.0;Persist Security Info=False
2008-12-04 10:15:00 993
原创 用 BPL 封装数据连接
本文单并非原创,具体转自哪里,已不知道了。只是最近查看时,发现的问题。所以在文章最后面增加了解决方法;但是CSDN现在要求转载必须填转自何处,所以改成了原创方便发布文章;如原作者有异议可以联系本人以便修改增加出处,谢谢。BPL 代码:untDM.pasunit untDM;interfaceusesSysUtils, Classes, untIntf, DB, ABS...
2008-12-03 15:42:00 983
转载 Access 类型转换函数
每个函数都可以将表达式(表达式:算术或逻辑运算符、常数、函数和字段名称、控件和属性的任意组合,计算结果为单个值。表达式可执行计算、操作字符或测试数据。)强制转换为特定的数据类型 (数据类型:决定字段可拥有的数据类型的字段特征。数据类型包括Boolean、Integer、Long、Currency、Single、Double、Date、String 和 Variant(默认)。)。
2008-12-03 10:44:00 595
原创 SQL 语句的技巧
表A物品ID 库存ID 名称 编号2 1 豆 A3 1 米 B5 1 面 C9 1 纸 D10 2 豆 A11 2 米 B22 2 面 C23 2 纸
2008-12-03 00:01:00 476
原创 在使用 ADOQuery 时出现"在对应所需名称或序数的集合中,未找到项目"错误!
我今天遇到了.原因是在 filter 设置相关的过滤项目...当再用这个 adoquery 来查询其它表格的内容时,就发生了 在对应所需名称或序数的集合中,未找到项目 错误.原因,是你的过滤项目在 你新查询的表中,不一定存在.所以,在使用 adoqery 的 filter 进行数据过滤时,应该注意,在有需要时,还原它.
2008-12-01 13:22:00 1498
CrossVcl 1.53.7z
2021-05-28
FlyTreeViewPro.Suite.7z
2020-06-02
控件开发基础.rar
2020-06-02
InfoPower 4K v20.0.2.3 for XE10.3 RIO_ByJoe.7z
2019-08-04
TscExcelExport 3.6 full source
2008-12-23
Ehlib 4.3.2.1 (完整源代码)
2008-12-13
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人