自定义博客皮肤VIP专享

*博客头图:

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

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

博客底图:

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

栏目图:

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

主标题颜色:

RGB颜色,例如:#AFAFAF

Hover:

RGB颜色,例如:#AFAFAF

副标题颜色:

RGB颜色,例如:#AFAFAF

自定义博客皮肤

-+
  • 博客(22)
  • 资源 (11)
  • 收藏
  • 关注

转载 SQL备份到异机

 -SQL如何备份到异机 写成存储过程,建立作业定时备份~~~ --在sql中映射一下就可以了 exec master..xp_cmdshell net use z: //yizhi/D$ "密码" /user:yizhi/administrator /*--说明: exec master..xp_cmdshell net use z: //xz/c$ "密码" /user:xz/admin

2009-02-28 08:38:00 498

原创 在使用MinutesBetween求两个时间之间相差多少分钟的问题

 在使用MinutesBetween求两个时间之间相差多少分钟时,经常出现1分钟误差 以下是解决办法;  就是自己写一个函数。 uses DateUtilsfunction MyMinutesBetween(const ANow, AThen: TDateTime): integer;begin Result := round((MinuteSpan(AN

2009-02-26 14:23:00 4878

转载 如何使Tstringgrid中的数字都靠右,并且以货币格式显示

 StringGrid没有这样的属性设置,但利用自绘功能可以很容易地实现。如果Grid的DefaultDrawing属性设置为True(默认值),Delphi会绘制单元格,包括背景色、边框、焦点框、固定单元格的三维效果。如果用户处理了OnDrawCell事件,Delphi会接着调用用户的DrawCell过程。如果DefaultDrawing属性设置为False,Delphi只调用用户的Dr

2009-02-23 23:47:00 2153

原创 Intraweb 10.0.7 破解方法

 Intraweb 10.0.7 破解方法 昨天没有啥事干,试了一下INTRAWEB 10.0.7 FOR DELPHI7,发现支持了AJAX技术,感觉不错,就试了一下破解,竟然破掉了,不敢独享,把方法共享给大家:安装好后,在LicenseRegistration里面输入:+007TmFtZT1CcnVubyBGaWVyZW5zDQpDb21wYW55PVRNUyBTb2Z

2009-02-22 23:17:00 4164 4

原创 Inno Setup使用教程大全

 如何使用:文档约定 创建安装程序 创建脚本 段内参数 一些常量 公共参数 安装脚本段 [Setup] 段 [Dirs] 段 [Files] 段 [Icons] 段 [INI] 段 [InstallDelete] 段 [Messages] 段 [Registry] 段 [Run] 段 [UninstallDelete] 段

2009-02-20 16:06:00 5917 3

转载 SQL Server索引管理之六大铁律

     索引是以表列为基础的数据库对象。索引中保存着表中排序的索引列,并且纪录了索引列在数据库表中的物理存储位置,实现了表中数据的逻辑排序。通过索引,可以加快数据的查询速度和减少系统的响应时间;可以使表和表之间的连接速度加快。  但是,不是在任何时候使用索引都能够达到这种效果。若在不恰当的场合下,使用索引反而会事与愿违。所以,在SQL Server数据库中使用索引的话,还是需要遵守一定的规则

2009-02-19 21:43:00 888

转载 Delphi之MIDAS三层完美解决方案----中间层构建

 思路:中间层与客户端通过五个关键的接口过程进行交互操作(OpenData,SaveData,DeleteData,ExecRule,ExecProd)OpenData:获取数据集。          客户端传递数据标记给中间层,          中间层根据数据标记请求和条件从数据库的配置文件中获取相关信息,          得到数据,返回客户端         

2009-02-19 11:54:00 1518

原创 delphi取得进程与线程的CPU使用率

就是这个类了,取得进行与线程的CPU使用率,也是从国外技术站上学来的  unit bCPUUsage;interfaceuses Windows, SysUtils, MMSystem;const bWaitTime = 700;type TCPUUsage = class private { Private declarations

2009-02-19 11:48:00 3197 1

原创 delphi 三层架构简单例子(经测试成功)

 所谓三层:(1) 客户端(2) 服务器端(3) 数据库    在数据访问时,使得客户端必须通过服务器来访问数据库。提高了系统的安全性。    在Delphi中可以使用Socket或者Dcom来连接他们相互间的通讯。如果使用Scocket在系统使用时必须提供Scocket连接器,而Dcom则不用。客户端和服务器的连接需要Broker来联系。环境为winxp

2009-02-19 08:55:00 5194 6

原创 获得汉字拼音首位字母的函数

 Function TF_zct.getpy(hzchar:string):char;begin case word(hzchar[1]) shl 8+word(hzchar[2]) of    $B0A1..$B0C4:RESULT:=A;    $B0C5..$B2C0:RESULT:=B;    $B2C1..$B4ED:RESULT:=C;

2009-02-19 08:47:00 810

转载 Delphi ActiveX Form的使用实例

Delphi ActiveX Form的使用实例By knityster1. ActiveX控件简介ActiveX控件也就是一般所说的OCX控件,它是ActiveX技术的一部分。ActiveX控件可以被集成到很多支持ActiveX的应用当中去,或者直接用来扩展应用的功能,这些支持ActiveX的应用包括C++ Builder、Delphi、Visual dBASE、 Visual

2009-02-18 13:31:00 1356

翻译 常用聊天英语100句

 1. so-so.(我过得一般般。)2. I’m doing great.(我过得很好。)3. What’s up?(出什么事了/你在忙些什么/怎么了?)4. Nothing special.(没什么特别的。)5. Hi. Long time no see.(嗨,好久不见了。)6. So far so good.(到目前为止,一切都好。)7. Things couldn’

2009-02-17 08:47:00 789

原创 IntraWeb9.0.42破解

 将安装目录(如D:/Program Files/IntraWeb 9.0/LibBDS5)下IWKlooch.dcu文件用UltraEdit编辑器(类似的其它编辑器也可以)打开,在二进制模式下,按下边修改: 地址原值新值2dfe01042eee01042ff00104314d

2009-02-14 22:42:00 2623

原创 锁定和隐藏Excel公式

 在Excel中辛辛苦苦编制的计算公式,通常不希望使用者查看和修改。怎么办呢?利用Excel锁定、隐藏和保护工作表的功能,把公式隐藏和锁定起来。  1、选中整个工作表数据区域,执行“格式→单元格”命令,打开“单元格格式”对话框。  2、切换到“保护”标签,清除“锁定”选项前面复选框中的“∨” 号,确定返回。  3、执行“编辑定位”命令,打开“定位”对话框,单击其中的“定位条件”按钮,打

2009-02-13 14:32:00 1521

转载 Delphi数据库操作函数的封装(转)

 一些Delphi数据库操作方面的书籍,大都对数据库泛泛而淡,对操作封装方面更是少之甚少,本人不才,将自已前些日子写的数据库操作函数奉献给大家,如果写的好,送些鲜花什么的就可以了,写的不好,也不要扔臭鸡蛋,请批评指正。先给个使用封装函数的例子:   sql := update 通话记录 set +                         呼叫类型=:CallT

2009-02-12 13:55:00 1468

转载 简单的Delphi三层程序开发

 一年前开发了一个MIDAS的程序,最近修改服务端,可是这个服务无法注册,最后终于找到了解决办法,这个相关文章如下:(算是备份吧)(一)MIDAS是什么? Delphi中MIDAS到底是什么呢?和他相关组件是什么呢?  MIDAS(Multitiered Distributed Application Services)多层分布式应用服务。   Delphi所提出的Multi-

2009-02-12 13:48:00 732

转载 pl的使用以及与Dll的区别

 Bpl就是Dll,这句话当然没错。  简单的例子,当然可以做,而且可以做得很好,我就曾把左兄的离线浏览器改成了这样一个版本: 实现多个数据连接方式,ADO、DOA、ODAC、IBX、KAO,每个连接对应它的特定数据库,都以一个独立的BPL来实现;主程序没有任何连接数据库的代码,主窗体切换版本时只要这样一段代码就行了:class function TfrmMain.SelectVersion(

2009-02-12 13:46:00 707

转载 Delphi制作DLL

 Delphi制作DLL一 Dll的制作一般步骤二 参数传递三 DLL的初始化和退出清理[如果需要初始化和退出清理]四 全局变量的使用五 调用静态载入六 调用动态载入七 在DLL建立一个TForM八 在DLL中建立一个TMDIChildForM九 示例:十 Delphi制作的Dll与其他语言的混合编程中常遇问题:十一 相关

2009-02-12 13:39:00 1455

转载 DLL方式封装MDI子窗体是一种常用的软件开发技术

 DLL方式封装MDI子窗体是一种常用的软件开发技术,它的优点:人员可以负责某一个模块的编写包括(界面+逻辑),可以互不干扰,模块开发完成后,主程序统一调用。程序升级,当程序升级时,不用编译主exe文件,更新某个DLL就可以升级。可以根据客户不同的需求、价钱给他们不同的模块。(奸商都愿意用这招) 用到这个技术,因为小弟没有用过,在网上google了一下,对它有了了解,我用的是基于C

2009-02-12 13:38:00 783

原创 Format函数的用法(Delphi)

 unction Format(const Format: string; const Args: array of const): string; $[SysUtils.pas 功能 返回按指定方式格式化一个数组常量的字符形式 说明 这个函数是我在Delphi中用得最多的函数,现在就列举几个例子给

2009-02-09 00:32:00 846

转载 SQLite 不支持的 SQL 特性

 外键约束(FOREIGN KEY constraints)外键约束会被解析但不会被执行。完整的触发器支持(Complete trigger support)现在有一些触发器的支持,但是还不完整。 缺少的特性包括 FOR EACH STATEMENT 触发器(现在所有的触发器都必须是 FOR EACHROW ), 在表上的 INSTEAD OF 触发器(现在 INSTEAD OF 触发器只

2009-02-04 11:09:00 1497

转载 delphi透明组件开发

透明的控件, 一般继承自TGraphicControl的(就是那些没有handle属性, 不能有focus的控件, 如image)都有Transparent属性. 对TWinControl类的控件, 要实现透明只要完成以下四步基本上就成了.1.在Create中设定ControlStyle :=ControlStyle - [csOpaque]; 2. override 它的CreateParams

2009-02-04 08:17:00 1342

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关注的人

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