自定义博客皮肤VIP专享

*博客头图:

格式为PNG、JPG,宽度*高度大于1920*100像素,不超过2MB,主视觉建议放在右侧,请参照线上博客头图

请上传大于1920*100像素的图片!

博客底图:

图片格式为PNG、JPG,不超过1MB,可上下左右平铺至整个背景

栏目图:

图片格式为PNG、JPG,图片宽度*高度为300*38像素,不超过0.5MB

主标题颜色:

RGB颜色,例如:#AFAFAF

Hover:

RGB颜色,例如:#AFAFAF

副标题颜色:

RGB颜色,例如:#AFAFAF

自定义博客皮肤

-+
  • 博客(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内建函数表

 QLite内建函数表 算术函数 abs(X) 返回给定数字表达式的绝对值。

2008-12-24 23:17:00 686

转载 SQLite语法 1

  结构定义 CREATE TABLE 创建新表。 语法:

2008-12-24 23:16:00 738

原创 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

frp内网穿透,解决客户端(frpc.exe)莫名退出后自动重启

frp内网穿透,解决客户端(frpc.exe)莫名退出后自动重启

2023-07-25

Raize Components 7.0 FS D11.0.7z

没有什么好说的,基本上是标配组件了。

2021-10-18

CrossVcl 1.53.7z

CrossVcl is a toolchain that permits the development macOS and Linux application using Embarcadero OSX compiler and VCL. Conceptually, CrossVcl is a combination of two major components: Runtimes: Brand-new implementations of WinAPI for macOS nad Linux, tightly integrated with the native OS runtime. Design Time Management: An IDE expert which allows to add OSX64 and Linux64 platform to VCL project and setup it with CrossVcl.

2021-05-28

FastReport V6.4.8_ByJoe.7z

解决 fastreport 字符中出现 行首 为标点符号的问题.

2020-06-24

FlyTreeViewPro.Suite.7z

此控件在树控件,速度绝对可以称为最快(没有之一) 10万个节点,不管是创建,还是清除,1秒钟内可以创建完成,而其它同类控件至少需要15秒;(我的电脑 I5-10500 + 32G + SSD(NVME)500G * 2) 有一个小细节须注意。 TreeView1.ITEMS.beginUpdate; // 生成树的代码 TreeView1.ITEMS.endUpdate; 如果前后不加上 BeginUpdate 与 EndUpdate 的话, 生成速度甚至不如同类控件;

2020-06-02

控件开发基础.rar

想要学习DELPHI的控件开发,这个资料非常的值得一看。 Delphi控件开发 1~8 由CowNew开源团队撰写。 文章将通过一个简单的例子来为初学者介绍编写控件的一些基本方法和模式。   这个例子控件叫TLeiLabel,是在TLabel的基础上增加两个实用的功能:一是使文字具有立体形状,二是使文字具有超链接属性。下面就让我们一步步来实现这些功能。   一、使文字具有立体形状   首先定义类型T3DEffect和属性Style3D分别如下:   T3DEffect=(Normal,Raised,Lowered, Shadowed);   property Style3D:T3DEffect read FStyle3D write SetStyle3D default Normal;   再在private中定义变量:“FStyle3D:T3DEffect;”,并设置SetStyle3D()方法如下,这也是写方法的一般格式:   procedure TLeiLabel.SetStyle3D(Value: T3DEffect);    begin    if FStyle3D <> value then    begin    FStyle3D := value;    invalidate; //表示控件将重画    end;    end;   另外对于带阴影的文字还要定义阴影的偏移量ShadeXOffSet和ShadeYOffSet:   property ShadowXOffSet: integer read FXOffSet write SetFXOffSet default 5;   property ShadowYOffSet: integer read FYOffSet write SetFYOffSet default -5;   写方法SetFXOffSet()、SetFYOffSet()和上面的SetStyle3D()类似。   要重画控件一般要重载Paint方法,此处只是重画文字,我们只需重载DoDrawText方法。   DoDrawText的声明放在Protected中:   procedure DoDrawText(var Rect: TRect; Flags: Longint); override;   此处DoDrawText()根据四种类型(正常、凸起、凹进和阴影)分别画出不同的文字。 二、使文字具有超链接属性   定义一个属性URL表示要链接的网址或Email地址。   Property URL : String read FURL write SetURL;   写方法SetURL如下:   procedure TLeiLabel.SetURL(Value: String);   Begin   if FURL <> Value then FURL := Value ;   if FURL <> then   Cursor := crHandPoint;   end;   当点击此Label时要打开浏览器或收发邮件工具,这便要重载Click方法。    Procedure Click; Override;    procedure TLeiLabel.Click;    var s: string;    Begin    Inherited Click;    if FURL = then exit;    if LowerCase(Copy(FURL,1,7)) = http:// then    s := FURL    else if Pos(@,FURL) <> 0 Then    s := mailt + FURL    else    s := http:// + FURL;    ShellExecute(Application.Handle, open, PChar(s), NIL, NIL, SW_SHOWNORMAL);    end;   一般的超链接当鼠标移入时文字的颜色发生变化。为此加上属性HoverColor,表示鼠标移入时文字的颜色。   Property HoverColor : TColor Read FHoverColor Write SetHoverColor default clRed;   还要定义两个接收Windows消息CM_MOUSEENTER和CM_MOUSELEAVE(鼠标移进和移出)的过程:   Procedure CMMouseE

2020-06-02

InfoPower 4K v20.0.2.3 for XE10.3 RIO_ByJoe.7z

在各种群或是网上找到的类似 InfoPower 4K v20.0.2.3 for D10.3 Rio Full Source 基本上想顺利的安装上都相当的不容易。仿佛是对BDE的支持问题导致很多地方编译通不过 于是我整理了一下。 简化的安装方法,只需要编译安装一个DPK。

2019-08-04

FastReport QRCode

让你的 FastReport 支持 QRCode 二维码

2013-06-19

html5Builder注册

html5Builder的注册机,及官方下载地址

2013-06-19

TscExcelExport 3.6 full source

* The warnings 'unsafe code', 'unsafe type' and 'unsafe typecast' should be ignored. In Delphi 7, 2005, 2006, Turbo Delphi and 2007 these warnings can be disabled in your project options. -------------------------------------------------------------------------------- Version 1.0 (February 2000) Version 1.2 - Improved connection to Excel Version 1.3 - Added Orientation of titles - Added StyleColumnWidth Version 1.4 - Improved GetColumnCharacters - Added Border properties and background colors for Titles, Data and Summary - Added Summary properties (SummarySelection, SummaryFields, SummaryCalculation) Version 1.5 - Improved speed of exporting data - Improved exporting string-fields - Added ConnectTo property Version 1.6 - Suppression of reference to Dataset.RecordCount (thanks to G閞ard Beneteau) - Added VisibleFieldsOnly property Version 1.7 - Notification when disconnecting dataset - Very fast export by using a variant matrix (thanks to Frank van den Bergh) Version 1.8 - Bug in exporting titles (thanks to Roberto Parola) - Setting format of cells before exporting data (thanks to Asbj鴕n Heggvik) - Added BlockOfRecords property : little bit faster and more control of memory - Added properties to set begin row of titles and data Version 1.9 - Added properties (Orientation, WrapText, Alignment) to font (thanks to David Balick) (property OrientationTitles is removed) - Added HeaderText (thanks to David Balick) - Improved some routines Version 2.0 - Added read only property with row number of last data row - Added property with the Excel tabsheet so after the export it is possible to access the cells in Excel - Added event OnExportRecords Version 2.1 - Bugfixes Version 2.2 - Bugfix when exporting filtered dataset (thanks to Heinz Faerber) - New column width styles : cwFieldDisplayWidth, cwFieldDataSize, cwEnhAutoFit (idea from Scott Stanek) Version 2.3 - Added properties begin column data/titles and header (idea from Knjazev Sergey) - Added property ShowTitles Version 2.4 - Support for Delphi 6.0 Version 2.5 - D6 : problem when using disconnect Version 2.6 - Bugfixes and some improvements - Added method LoadDefaultProperties to reset all properties - Improvement SetFormat (thanks to Enrico Chiaramonte) - Improvements using borders (thanks to Ot醰io) - Added event OnGetCellBackgroundColorEvent (thanks to Yuri Plotnikov) - Added events to export data without using a TDataset and new property DataPipe : dpDataset, dpCustom (thanks to David Balick) - Event OnExportRecords will be triggered after exporting the record Version 2.7 - Some bugfixes - Added new unit scExcelExportReg which contains a component editor - Added exceptions to prevent access violations (EFileNotExists, ENoDatasetConnected, EDatasetNotActive, ENoActiveWorkbook) - Added new property Filename which can be used to add data to existing file - Add data to existing worksheet when name of given worksheet already exists - Added new feature to group rows (thanks to Vadim Mescheryakov & Stijn Vansummeren) - Added new group options properties : ClearContents, BorderRange, IntervalFontSize - New events for exporting without dataset : OnGotoFirstRecord, OnGotoNextRecord Version 2.81 - Created a package for Delphi5 and Delphi6 to make installation easier - Added new public method Connect. Can be used to make a connection to Excel before exporting data. When exporting more datasets at the same time, the Disconnect method should be used after using the ExportDataset method ! - Added new read only property Connected. - Text property of field in stead of Value property is exported so OnGetText events can be used Version 2.91 - Improvements SetFormat (before exporting data) - Added support for fieldtype ftTimeStamp - Added fieldtype ftMemo, ftOraClob, ftFmtMemo, these kinds of fields are exported using AsVariant not the Text property like other fields - Improvement for regional settings of floats (thanks to Jorge Pinetta) - Improvement ShowTitles and BeginRowData properties (thanks to Jordi March i Nogu? - Added FooterText properties - Small changes for Delphi 7.0 Version 3.0 - Bugfix for Delphi 5 (added extra compiler directives) - Improvements constants of Borders, Colors, ... - Use OnGetText event for memo field when it is assigned, otherwise export contents of memo - Improvement exporting string data when DataPipe = dpCustom - New demonstration program Version 3.1 - Bugfix for displayformat (InitFormatNumbers was disabled) - Improvements for exporting currency fields (a kind of curency displayformat is created so that the result in Excel looks the same as in your Delphi program) - Improvement for setting displayformat for cells. This has to be done before exporting. In previous version this was done from row 1 to 9999. When exporting more records they had no displayformat. Now displayformat for each block of rows is set. This will also increase the file size ! - Added resource strings for the exceptions. Now these error messages can be translated. - Added scAVG (average) as new TSummaryCalculation type Version 3.11 - Added support for displayformat of datetime fields Version 3.12 - Bugfix displayformat of time field Version 3.2 (May 2004) - Bugfix displayformat with thousand seperators - Bugfix date time fields with Excel 2003 (internal American datetime format should be used) - Tested with MS Excel 2003 Version 3.3 (February 2005) - Bugfixes : ExcelVersion, Excel 2003, ... - Created 2 packages, a run-time (ExcelExportPack) and a design-time (dclExcelExportPack) - Added package for Delphi (BDS) 2005 - Added new OnCellStyle event which can be used to change the background color and font color, size, name and bold style of a cell - Added new OnFieldCellStyle event which can be used to change the background color and font color, size, name and bold style of a cell when datapipe is set to dpCustom - Added ftBCD and ftFMTBCD datatype in IsValueField function - Added ftFMTBCD datatype to CanConvertFieldToCell function Version 3.31 (February 2005) - Empty datetime fields are exported as '' instead of 31/12/1899 (thanks to Peter Hannah) Version 3.4 (April 2006) - Bugfix Memo fields, maximum length 910 (thanks to Douglas Neckers) - Bugfix set font and style when there are more then 26 columns (thanks to Horst Borscht) - Made properties ExcelApplication and ExcelWorkbook public - Added IsExcelAppActive function - Added ENotSupported exception - Added Quit option for Disconnect method - Added support for ExcelXP type library - Added FileFormat XML (XML spreadsheet, only with ExcelXP type library) - Added scExcelExportConfig.inc unit with compiler directives for choosing Excel type library (97, 2000, XP) - Added package and package group for Delphi (BDS) 2006 Version 3.41 (May 2006) - Bugfix compiler directives in Delphi 5 - Added SummaryDisplayFormat property Version 3.42 (June 2006) - Bugfix BeginRowHeader - Added PropertyGroups parameter to LoadDefaultProperties Now a set of property groups can be given : pgFont, pgPositions, pgSummary, pgGroup, pgText, pgOther - Improvement WorkSheetName. By setting the WorkSheetName property an existing or new worksheet can be focused after the export. Version 3.5 (September 2006) - Bugfix setting column width - Added properties for merging of header and footer cells (MergeHeaderCells, MergeFooterCells) - Added AutoFilter property for titles of dataset - Added support for Excel 2007 (b鑤a) - Added ffXLSX for saving files in Excel 2007 Open XML format - Added support for OnGetText event for numeric fields - Added public property for LCID so it can be used after exporting - Using default font and size of Excel by setting Size = -1 and Font.Name = 'MS Sans Serif' -> Excel97/2003 : Arial size 10, Excel 2007 : Calibri size 11 - Tested with Turbo Delphi Explorer (Win32) Version 3.51 (October 2006) - Added readonly TypeLibrary property Version 3.6 (June 2007) - Added support for Delphi 2007 - Retested support for Excel 2007 - Tested with Windows Vista - Started with converting comments to XML documentation - Added public method FindFirstEmptyRow

2008-12-23

Ehlib 4.3.2.1 (完整源代码)

EhLib 4.3 Build 4.3.21 source included version. ---------------------------------------------- The Library contains components and classes for Borland Delphi versions 5, 6, 7, 8 & 9 , Borland C++ Builder versions 5 & 6, Borland Developer Studio 2006, CodeGear Delphi 2007 and CodeGear RAD Studio 2009.

2008-12-13

NexusDB 2.0706.exe

听说是最快的数据库控制。且是C/S的。。。

2008-12-12

空空如也

TA创建的收藏夹 TA关注的收藏夹

TA关注的人

提示
确定要删除当前文章?
取消 删除