三界-CSDN博客

原创 cxGrid.DataController.DataModeController.GridMode对标题列排序功能的影响

cxGrid.DataController.DataModeController.GridMode=True时，点击列标题无法自动排序。cxGrid.DataController.DataModeController.GridMode=True时，才可以如下操作：with (cxGridMaster.ActiveView as TcxGridDBBandedTableView) do ...

2018-12-05 11:59:46 728

原创计算服务期间内的分钟数

CREATE OR REPLACE FUNCTION Cal_ServiceTime(pstartDate DATE, pLastDate DATE, pServiceBegin varchar2, ...

2018-11-19 09:32:11 290 1

原创利用大数据智能更正瑕疵数据的应用样例

-- Created on 2018-09-27 by 三界declare -- Local variables here VSDATE DATE; VEDATE DATE; VRealLine varchar2(24); vFlagJoin BOOLEAN;begin -- Test statements here liao xiaohui VSD...

2018-09-27 16:46:18 328

转载 TMemoryStream、String与OleVariant互转

//////////////////////////////////////////////////////////////////////////////////功能: STRING 的内容流化到 OLEVARIANT 中//参数：/////////////////////////////////////////////////////////////////////////////

2017-02-09 09:37:58 1105

原创 cxGrid应用笔记

1.获得当前列号 cxGridDBTableView1.Controller.FocusedColumnIndex; cxGridDBTableView1.Controller.FocusedItemIndex;2.获得当前行号 cxGridDBTableView1.Controller.FocusedRowIndex; cxGridDBTableView1

2017-01-23 14:25:40 822

转载 DevExpress vcl 动态调用皮肤

dxSkinController可以在运行时动态调入皮肤，不用在设计期Use一大堆皮肤文件。把要用的皮肤用Skin Editor编辑一个SkinRes后缀的文件，然后在程序中动态调入就可以了。uses dxSkinsDefaultPainters;procedure TForm1.FormCreate(Sender: TObject);begincxComboBox1.

2017-01-21 21:14:23 1858

原创 hp机器的PLATFORM环境变量对RAD XE的编译、DevExpress Vcl安装的冲突问题解决

hp手提电脑，用安装助手DXAutoInstaller 安装DEVEXPRESS VCL出现下图这个情况，Rad XE在编译时也出现Platform不能识别的问题！折腾了好久，终于找到解决办法了！上官网下载一个试用版的DevExpress Vcl安装，再卸载试用版，重新用它DXAutoInstaller安装破解版，OK。不再提示Unknown p

2017-01-12 11:13:18 783

原创存储过程分页查询(ORACLE)

CREATE OR REPLACE PACKAGE PKG_QUERY_PAGEDATA IS -- 存储过程分页查询包. -- 原创 : 三界. -- CREATED : 2011-12-06 09:00 -- EDIT : 2012-01-11 10:30/2014-09-09 15:00/ --留档备查. T

2016-12-15 12:00:37 1904

原创 Delphi操作EXCEL

Uses ExcelXP, Vcl.OleServer;//用Delphi组件TExcelApplication的操作方法.function TFormExcelImport.ActiveExcelFile(const FileName :String): Boolean;var i: Integer; // LCID: Integer; ExcelAppli

2016-10-18 17:54:59 1588

原创强大的字符串转DateTime/Date类型函数

字符串转DateTime/Date类型:支持格式：2016-2-6;16-02-06;20160206;160206;06-02-2016;06Feb2016;6Feb2016;06FEB16;6FEB16;06-FEB-2016;6-FEB-16;日期分隔符号支持4个:/-.\interfaceuses system.RegularExpressionsCore,sy

2016-09-06 12:34:47 4666

原创 DevExpress控件cxGrid实现多列模糊匹配输入的完美解决方案

1、把列的Properties属性设置为ExtLookupComboBox。Properties.IncrementalFiltering := False;Properties.CaseSensitiveSearch := False; Properties.DropDownListStyle := lsEditList;当然，接着要完成设置Properties.View，P

2016-08-13 14:06:51 5055

转载 Delphi 调用webservice接口的三类方法

一、使用向导 1.导入wsdl文件：file--new----other----webservice---WSDLimporter---输入wsdl地址 http://www.webxml.com.cn/webservices/qqOnlineWebService.asmx?wsdl 完成之后，即可导入wsdl文件

2016-01-13 10:51:39 11362

原创 Delphi ClientDataSet复制记录

数据源记录集：ClientDataSetSource；目标记录集：ClientDataSetCopy1）复制一条记录。 ClientDataSetCopy.Close; ClientDataSetCopy.Fields.Clear; ClientDataSetCopy.FieldDefs.Clear; //复制字段定义 ClientDataSetCopy.Fiel

2015-12-17 14:42:11 6994

原创 ORACLE 日期函数

1.取年份、月份、日数。select extract(day from sysdate) "This day", extract(month from sysdate) "This Month", extract(year from sysdate) "This year" from dual;2.localtimestamp()返回会话中

2013-09-06 15:40:11 788

原创 ADO读取EXCEL

DELPHI ADOQuery读取EXCEL文件的方法.

2013-07-24 10:04:22 1482

原创 cxGrid继承类

记录，方便查阅。TcxGridTcxCustomGridTcxControlTCustomControlTWinControlTControlTComponentTPersistentTObject----------------------------------------TcxGridLevelTcxComponentTComponen

2012-09-05 10:10:08 1173

原创设置cxGrid的最佳效果体验

一：浏览模式:浏览模式即不可编辑模式，但又可以选择单元内容复制的效果设置。uses cxGridTableView, cxGridDBBandedTableView;procedure BrowserGridSetting(var cxGridTableView: TcxGridTableView);var icol:Integer;begin WIT

2012-09-05 00:57:04 1339

转载 ClientdataSet 三层中主从表的操作

摸索了好久，终于找到了3层主从表设置的方法，为了纪念这些天来的努力，记上日记，也为不了解的朋友来学习，如果有什么不对的地方则给我留言。三层中主从表的操作（删除、新增、修改）一定要在一个事物中完成，那在Delphi中的事物又如何控制呢？我们在开发客户端时，如果为了在一个事物中而用TSqlConnection的事物来控制是徒劳的，没有一点意义，因为真正事物控制是在服务端的TDataSetProvi

2012-08-28 16:13:36 3668

转载 Delphi实现网页自动登陆

[转]Delphi实现网页自动登陆收藏比如操作 CSDN的登录先用WebBrowser定位到登录页面 WebBrowser1.Navigate('http://passport.csdn.net/UserLogin.aspx?from=http://community.csdn.net/'); 然后，看其HTML源代码，发现名字为 ctl00$CPH_Co

2012-08-28 15:06:29 2631

转载理解RESTful架构

越来越多的人开始意识到，网站即软件，而且是一种新型的软件。这种"互联网软件"采用客户端/服务器模式，建立在分布式体系上，通过互联网通信，具有高延时（high latency）、高并发等特点。网站开发，完全可以采用软件开发的模式。但是传统上，软件和网络是两个不同的领域，很少有交集；软件开发主要针对单机环境，网络则主要研究系统之间的通信。互联网的兴起，使得这两个领域开始融合，现

2012-08-22 08:42:25 653

原创 XE2 日期字符串转日期的函数

//可识别处理多种格式.Function myStrToDateTime(sdate:String):TDateTime;const dSeparator = '-';var dtpos,tmpos:Integer;begin result := 0; FormatSettings.DateSeparator := dSeparator; Fo

2012-08-20 17:54:20 1417 1

原创一段很有趣的代码

两段代码， edit2.Text结果截然不同！procedure TForm3.Button1Click(Sender: TObject); var tmpstr:string;begin tmpstr := funtest(4); //Text = 4 edit1.Text := tmpstr; tmpstr := funtest(2); edit2.Text :...

2012-07-12 12:31:49 1033

原创根据类名字符串创建实例

//先在声明TADeptForm 类的单元注册，或者选择在公共接口单元注册！initialization; RegisterClasses([TADeptForm]);实现代码: with TFormClass(FindClass('TADeptForm')).Create(Application) do begin show; end;

2012-06-17 12:17:25 1301

翻译在DLL中使用DevExpress的问题

在DLL中使用DevExpress的问题在DLL中封装了Form时使用了Devexpress控件.在程序运行时,主Exe程序可以显示使用的皮肤。可是，调用DLL中的窗口时无法显示皮肤的样式。还是原始的Windows窗口样式。方法:在dll窗体中加入skincontrol控件,然后uses ..., dxGDIPlusAPI,然后在窗体代码文件的后面加

2012-06-11 23:04:31 1768

翻译 Oracle11g新特性导致空表不能导出问题

今天，做了一次ORACLE 11G在用EXP导出时，发现空表（没有数据或者没有用过的表）不能导出了。查了一下资料，说是Oracle 11G中有个新特性，当表无数据时，不分配segment，以节省空间，所以这些表也没能导出来。用下面的SQL查询，发现不能导出的表， segment_created 字段值都是 'NO'。Select segment_created,table_

2012-01-29 01:05:44 3255 2

原创 RAD XE反射机制的应用——只获取父类的方法

应用：获取父类的方法，不包括当前类中定义的方法。uses Rtti,TypInfo;procedure TForm1.Button1Click(Sender: TObject);var ms: TArray; m: TRttiMethod; mps: TArray; mp: TRttiParameter;begin Memo1.Clear

2011-12-04 23:45:10 958

原创 StringGrid类详解

事件句柄1.StringGrid1GetEditText(Sender: TObject; ACol, ARow: Integer; var Value: string);Options.goEditing = true才能触发此事件。此事件在单元格进入可编辑状态时触发。参数ACol，ARow为当前单元格的列号和行号（列号和行号都按顺序从0开始编码）。参数Value为当前单元格中的内容。

2011-11-30 12:49:31 5072 1

四舍五入是一种应用非常广泛的近似计算方法，其有算术舍入法和银行家舍入法两种。Delphi 的 Round 函数使用的是银行家舍入法，没有封装的算术舍入法函数。下面是本人自定义的算术舍入法函数。适合整数使用，负数的情况还需要改写。FUNCTION TForm1.FixRoundTo(aValue :Extended;digit : integer) : Extended;BEGIN result := trunc(aValue*Power(10,digit) + 0.5)/Power(10,digit);

2011-04-19 10:04:00 1479

原创一些特别的SQL语法

partition by语法。ORACLE才有的。查询出表中的字段列表Select max(SYS_CONNECT_BY_PATH(COLUMN_NAME, ', ')) From (select A.COLUMN_NAME,A.TABLE_NAME, ROWNUM AS ROWNO from USER_TAB_COLUMNS A where TABLE_NAME = '表名称' ORDER BY A.COLUMN_ID) start with ROWNO = 1 connect by ROWNO =

2011-02-25 13:21:00 1199 1

原创从Oracle 9i连接SQL Server数据库

从Oracle 9i连接SQL Server2000，需要用透明网关(Transparent Gateway)，通过它，我们可以操纵其他数据库，如 ms sqlserver 、 sybase 、 infomix 等，实现数据库的异构服务。 在Oracle 9i中默认没有安装透明网关组件。 (一)安装Transparent Gateway for Windows SQL Server： *如果在Oracle主目录下有tg4msql文件夹，那么不需要重新安装。<br /

2011-02-25 13:17:00 1093

原创 SQL SERVER 系统表应用

SQL SERVER 系统表应用 0.查询表字段的标题备注 SELECT A.COLID, UPPER(A.NAME) AS NAME,ISNULL(C.VALUE,A.NAME) AS REMARK , UPPER(B.NAME) AS DATATYPE, (CASE WHEN A.XPREC=0 THEN A.LENGTH ELSE A.XPREC END) AS XPREC, A.XSCALE, A.ISNUL

2011-02-25 13:15:00 808

原创解析LoadLibrary,GetProcAddress,FreeLibrary

GetProcAddress(Hinstance,lpname)用来获取指定的动态连接库函数的地址 Hinstance为由LoadLibrary返回的模块句柄,lpname为文件名/函数名，返回值，成功返回动态连接库的地址，失败返回NULL， FreeLibrary（Hinstance），Hinstance为由LoadLibrary返回的模块句柄,功能是：释放动态连接库！动态引入方式就是使用Windows的两个API即LoadLibrary和GetProcAddress，前者用于获得DLL的句柄，后者用于

2011-02-25 09:34:00 3840

原创用TWebBrowser抓取页面

用DELPHI开发工具，在窗体上放一个TWebBrowser和Memo1控件。USES MSHTML; procedure TForm1.RzButton1Click(Sender: TObject);begin//打开页面地址 WebBrowser1.Navigate('http://www.gooooal.com/live/live.html'); Application.ProcessMessages; //SLEEP(100); 此处最好设置一下延迟。end;procedure TForm1

2011-02-22 17:02:00 1026

原创一个很有用的DELPHI字符操作函数

Unit SysUtils LastDelimiter(const Delimiters, S: string): Integer; Returns the byte index of the last character that matches any character in a specified set of delimiters. Delimiters:指定的分割符，可以是多个。 S:源字符串。 For example:<b

2011-02-22 16:28:00 793

原创 SQL SERVER 系统表应用

0.查询表字段的标题备注 SELECT A.COLID, UPPER(A.NAME) AS NAME,ISNULL(C.VALUE,A.NAME) AS REMARK , UPPER(B.NAME) AS DATATYPE, (CASE WHEN A.XPREC=0 THEN A.LENGTH ELSE A.XPREC END) AS XPREC, A.XSCALE, A.ISNULLABLE,A.CDEFAULT FROM SYSCOLUMN

2011-02-22 16:27:00 640

原创 SQL SERVER常用日期函数

0.获取一个随机的不重复的BIGINT数。 SELECT CONVERT(char(6),GETDATE(),12) + RIGHT(10000000000 + CONVERT(bigint, ABS(CHECKSUM(NEWID()))),10) AS ID 1.一个月第一天的 Select DATEADD(mm, DATEDIFF(mm,0,getdate()), 0) 2.本周的星期一 Select DATEADD(wk,

2011-02-22 16:26:00 642

原创建立ORACLE DATABASE LINK的两种方法

第一种： 是最常用的，需要预先在本地数据库服务器端配置TNSNAME名。 CREATE DATABASE LINK 数据库链接名 CONNECT TO 用户名 IDENTIFIED BY 密码 USING ‘本地数据库端配置的TNSNAME配置名’; 示例： -- Create databas link create public database link MyDataLink connect to U

2011-02-22 16:24:00 872

原创入夜

是夜，我已无法领略寂静无声的夜色。窗外一轮月色泼洒，世界睡了，宇宙睡了，而我醒着。在守候一个身影的闪现。思维在数着逝去的分秒…… 是否该给她拨个电话，打破这多日的沉寂？又担心莽撞的我，随手拨乱了琴音，倾听不到美妙的音符。胡乱敲击着键盘，敲碎心理的烦躁。在这难以入眠的长夜，心理有一个梦，是我最大的心愿。而此刻，梦未圆，只有今夜无眠！

2010-04-22 11:08:00 855 1

原创使用Delphi调用WebServices接口的简单应用实例

Delphi从6.0就开始支持Web Services的开发和应用了，本文通过使用Delphi 7.0调用新浪发送短信的Web Service进行短信应用程序开发这一实例详细的介绍在Delphi中如何开发基于Web Services的应用系统。第一步，准备工作，了解新浪短信Web Service。新浪发送短信的Web Service地址是http://smsinter.s

2010-04-22 11:03:00 1778

原创 SQL SERVER数据库快速转ORACLE实战

操作步骤如下，供参考。数据库转型工作涉及的工作事项分析：表，表数据，索引，外键约束，字段默认值。存储过程、函数、触发器、视图等由于语法存在差异，只能自行改写处理。 (一)在MS SQL SERVER服务器端的准备工作。1).创建关于表、视图、主键、索引、字段字典、默认值约束的对象视图。以方便下一步使用。USE EJ_ZSZQ ---USE [数据库名]GO

2010-04-19 16:15:00 5005

cxCheckComboBox的应用示例

DevExpress Vcl套件中的cxCheckComboBox的应用实例与源码示范。

2017-02-22

DevExpress vcl 15.2.2 For XE10.1

DevExpress vcl 15.2.2 For XE10.1 ftp://uploads@uploads.2ccc.com/DevExpress15.2.2_FullSource_Berlin.rar

2017-01-11

unidac6.4.15 for XE10.1

unidac组件，有源码，最高支持XE10.1 Berlin,版本6.4.15, 安装： 1.进入unidac64src 6.4.15\UniDAC\Source\DELPHI24目录，打开UNIDAC_GRP_240.GRP。 2.把下列目录加入IDE LIBRARY PATHS: unidac64src 6.4.15\UniDAC\Source unidac64src 6.4.15\UniDAC\Source\DELPHI24 unidac64src 6.4.15\UniDAC\Source\DELPHI24\WIN32 3.逐个编译安装UNIDAC_GRP_240.GRP。

2017-01-11

DxAutoInstallerBerlin for devexpress vcl 15.2.2

devexpress vcl 15.2.2 for XE10.1 Berlin安装工具

2017-01-11

AccessDatabaseEngine

官网下载： Microsoft Access 2010 数据库引擎可再发行程序包 https://www.microsoft.com/zh-CN/download/details.aspx?id=13255 https://www.microsoft.com/zh-TW/download/details.aspx?id=13255 https://www.microsoft.com/en-US/download/details.aspx?id=13255 2007 Office system 驱动程序：数据连接组件 https://www.microsoft.com/zh-CN/download/details.aspx?id=23734 https://www.microsoft.com/zh-TW/download/details.aspx?id=23734 https://www.microsoft.com/en-US/download/details.aspx?id=23734 若要使用此下载，请执行以下操作：如果您是应用程序用户，请查阅您的应用程序文档，了解有关如何使用相应驱动程序的详细信息。如果您是使用 OLEDB 的应用程序开发人员，请将 ConnectionString 属性的 Provider 参数设置为“Microsoft.ACE.OLEDB.12.0”。如果要连接到 Microsoft Office Excel 数据，请根据 Excel 文件类型添加相应的 OLEDB 连接字符串扩展属性：文件类型（扩展名）扩展属性 --------------------------------------------------------------------------------------------- Excel 97-2003 工作簿 (.xls) “Excel 8.0” Excel 2007-2010 工作簿 (.xlsx) “Excel 12.0 Xml” 启用宏的 Excel 2007-2010 工作簿 (.xlsm) “Excel 12.0 宏” Excel 2007-2010 非 XML 二进制工作簿 (.xlsb) “Excel 12.0” 如果您是使用 ODBC 连接到 Microsoft Office Access 数据的应用程序开发人员，请将连接字符串设置为“Driver={Microsoft Access Driver (*.mdb, *.accdb)};DBQ=path to mdb/accdb file” 如果您是使用 ODBC 连接到 Microsoft Office Excel 数据的应用程序开发人员，请将连接字符串设置为“Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)};DBQ=path to xls/xlsx/xlsm/xlsb file” 若要删除此下载，请执行以下操作：若要删除下载文件本身，请删除文件 AccessDatabaseEngine.exe 在“开始”菜单上，指向“设置”，然后单击“控制面板”。双击 “添加/删除程序”。在当前安装的应用程序列表中，选择“Microsoft Access 2010 数据库引擎”，然后单击“删除”或“添加/删除”。如果出现对话框，请按照说明删除该程序。单击“是”或“确定”，以确认要删除该程序。

2015-08-21

XE2三层主从嵌套表批量更新源码demo

XE2三层主从嵌套结构表的通用的批量更新源码demo。 DELPHI通用更新方法。

2012-08-31

RAD XE2三种调用BPL中FORM的方法

代码演示DELPHI三种调用BPL中FORM的方法，以及正确释放BPL包的方法。

2012-06-29

HTTP版本在线升级程序

程序功能：本程序是检查程序版本并提供HTTP方式在线更新的程序！支持多个文件、不同目录更新。 windows环境通用。使用： 1.把所有需要更新的文件名称和版本号信息添加到更新列表XML文件中，XML文件内容格式： <?xml version="1.0" encoding="gb2312"?> BPL\FORM.bpl 2012.6.4.0 main.exe 2012.6.5.0 注意： 1）与XML文件同一个目录的，文件名不要含目录信息。 2）没有版本号的文件，每次发布时，自己编一个不同的版本号填入XML. 3）XML文件清单信息，每次发布都应包含所有的程序文件。 4）更新列表XML文件与程序文件一同发布到IIS虚拟目录中(windows环境下的)。 2.手动直接执行UPDATE.EXE文件更新时，需要把更新列表XML文件的URL地址写在文本配置文件CLIENTDB.LXH中。内容格式如下： [UPDATE] XMLURL=HTTP://192.168.0.80/RELEASE/FILELISTS.XML 3.由主控程序调用时，调用代码格式如下： ShellAPI.ShellExecute(0, 'Open', 'UPDATE.EXE', PWideChar(Params), '',SW_SHOWNORMAL); 其中Params参数，字符串内容必须按顺序分别为：更新列表XML文件的URL地址 + 主控程序文件名 + 个性程序标题，共传入三个入口参数，每个参数之间用空格隔开。可以不传参数，则默认用CLIENTDB.LXH配置文件中的XML URL地址；可以只传1个参数，参数此时必须为XML URL地址；如果传第2个参数，更新完毕会自动启动主控程序；如果传第3个参数，则更新程序标题为第3个参数。

2012-06-20

DELPHI BPL应用

源码展示DLL的FORM模块入坞到主窗口，BPL的FORM入坞到主窗口，模块间共享数据库连接，调用DLL的主要事项，接口方法的应用等等。

2012-06-18

XE2调用BPL和DLL中的FORM窗体源码演示

当程序模块较多时，不能只编译成一个EXE文件，这是就需要把不同模块分别编译在不同的BPL或者DLL文件中。本例子演示XE2下调用BPL和DLL文件中FORM的方法。演示DLL或BPL共享主控窗口连接、接口的方式。

2012-06-18

XE2调用BPL和DLL方法

当程序模块较多时，不能只编译成一个EXE文件，这是就需要把不同模块分别编译在不同的BPL或者DLL文件中。本例子演示XE2下调用BPL和DLL文件中FORM的方法。

2012-06-18

Dev express下载

cxGrid控件，支持XE2. 包括Dev express系列组件。

2012-06-05

dev express组件

Developer Express VCL Products组件。支持XE2.

2012-06-04

程序在线升级程序

HTTP方式版本更新程序。服务端： 1.把需要更新的文件拷贝到服务端WEB目录。 2.所有文件版本信息、文件名信息保存在UPDATEFILELISTS.XML配置文件中，上传到服务端WEB目录。客户端： 1.HTTP更新目录保存在本地配置文件CLIENTDB.LXH中。 2.以HTTP协议从服务端下载UPDATEFILELISTS.XML配置文件. 3.比较版本号，版本号不同的，以HTTP协议下载文件更新。 4.没有版本号的文件类型，以XML配置文件中指明的版本号与上次下载过的版本号进行比较。版本号不同的则更新。

2012-05-29

空空如也

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

TA关注的人

cxCheckComboBox的应用示例

DevExpress vcl 15.2.2 For XE10.1

unidac6.4.15 for XE10.1

DxAutoInstallerBerlin for devexpress vcl 15.2.2

AccessDatabaseEngine

XE2三层主从嵌套表批量更新源码demo

RAD XE2三种调用BPL中FORM的方法

HTTP版本在线升级程序

DELPHI BPL应用

XE2调用BPL和DLL中的FORM窗体源码演示

XE2调用BPL和DLL方法

Dev express下载

dev express组件

程序在线升级程序

DELPHI 的dll form访问主窗口对象及变量

PL/SQL Developer 9.0.0.1601

Ehlib5.6.215 full source

Raize Components 6.0 For XE2

DELPHI2010正版安装序列号

多线程抓取网上七星彩开奖号码的源码

Delphi2010 DATASNAP开发三层应用源码

空空如也