摘要：
环境DelphiXE，实测DevExpress手工安装顺序： 1、ExpressCore Library 2、XP Theme Manager 3、ExpressGDI+ Library 4、ExpressLibrary 5、ExpressCommon Library 6、ExpressDataCo 阅读全文
2018年3月4日
摘要：
1. 与TTable、TQuery一样，TClientDataSet也是从TDataSet继承下来的，它通常用于多层体系结构的客户端。很多数据库应用程序都用了BDE，BDE往往给发布带来很大的不便，因而TClientDataSet最大的特点是它不依赖于BDE(Borland Database Eng 阅读全文
摘要：
//使用 TFieldDef 建表: begin with ClientDataSet1.FieldDefs do begin Add('Name' , ftString, 12, True); { True 表示是必填字段 } Add('Age', ftInteger); end; ClientDataSet1.CreateDataS... 阅读全文
摘要：
1. CxGrid汇总功能 ① OptionsView-Footer设置为True，显示页脚 ② CxGrid的Summary选项卡定义要汇总的列和字段名及汇总方式，Footer选项卡定义单个汇总，Default For Groups定义按组汇总。OptionsView-GroupFooters设置 阅读全文
摘要：
列 解决： <aColumn>.GroupIndex := -1; <aColumn>.Visible := True;****************************************************************************39 保存修改到数据库解决： 阅读全文
摘要：
17. 怎样设计多表头的cxGrid？解决：cxGrid可以解决如下的表头： | 说明1 | 说明2 | | 字段1 | 字段2 | 字段3 | 字段4 || 字段5 | 字段6 || 字段7 | 字段8 | 字段9 |实现这个很简单，你可以直接在上面拖动字段名，拖动时会显示箭头的，放入你想显示的位 阅读全文
摘要：
1. 去掉cxGrid中台头的Box解决：在tableview1的ptionsview的groupbybox=false; 1. 去掉cxGrid中台头的Box解决：在tableview1的ptionsview的groupbybox=false; 2．统计功能解决：(1) tableview1. t 阅读全文
摘要：
/****** Object: StoredProcedure [dbo].[sys_Page_v3] Script Date: 08/13/2014 09:32:28 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO --/*-----存储过程 分页处理 孙伟 2005-03-28创建 -------*/ --/*--... 阅读全文
摘要：
cxgrid强大用法 (2012-07-25 14:09:42) 转载▼ cxgrid强大用法 转载▼ 标签： delphi cxgrid 用法 强大 杂谈 分类： Delphi delphi cxgrid 用法 强大 杂谈 cxGrid功能强大，适合做企业级的复杂查询。非常方便。但是对其用法介绍的 阅读全文
摘要：
字符串操作之格式化 函数 function Format(const Format: string; const Args: array of const): string; 需引用 SysUtils.pas功能 返回按指定方式格式化一个数组常量的字符形式说明 这个函数是我在Delphi中用得最多的 阅读全文
摘要：
http://bbs.csdn.net/topics/390536919 关于 cxGrid 的过滤问题 [问题点数：20分，结帖人zhengyc653] 不显示删除回复 显示所有回复 显示星级回复 显示得分回复 只显示楼主 收藏 http://bbs.csdn.net/topics/3905369 阅读全文
摘要：
cxGrid实现取消过滤和排序后定位到首行（单选和多选） 原创 2013年10月06日 18:42:24 2107 原创 2013年10月06日 18:42:24 2107 DataContoller中的函数FocusedRecordIndex没有反应，FocusedRowIndex正常。 cxgr 阅读全文
摘要：
本方案不需要修改控件源码，是完美解决cxgrid或TcxDBExtLookupComboBox支持多列模糊匹配快速输入的最佳方案！！ 小哥摸索多日，终于搞定cxgrid和TcxDBExtLookupComboBox可以支持多列模糊查找输入了！ 纵观网上的方案，不是修改控件源码，就是自己封装弹窗，代码 阅读全文
摘要：
/ // 修改cxGrid的FilterRow过滤框的默认值为左匹配// 1、建立一个公共储存过程，如果有其他Unit需要的话必须做全局声明。 procedure SetCustomFilterRow(cxGridDBBandedTableView: TcxGridDBBandedTableView 阅读全文
摘要：
uses IdHTTP; function GetPublicIP: string; var strIP, URL: string; iStart, iEnd: Integer; MyIdHTTP: TIdHTTP; begin Result := ''; MyIdHTTP := TIdHTTP.Create(nil); try try URL := MyIdHTTP.Get('http://w... 阅读全文
摘要：
https://www.cnblogs.com/false/archive/2013/02/24/2924240.html procedure TReport10Form.cxGridViewDataControllerFilterChanged(Sender: TObject);var cds: 阅读全文
2018年3月1日
摘要：
转自：http://blog.sina.com.cn/s/blog_14c50030e0102y9f7.html FireDAC 连接SQL Server一些要注意的地方 (2017-08-18 19:44:13) 转载▼ FireDAC 连接SQL Server一些要注意的地方 转载▼ 分类： 数 阅读全文
2018年2月28日
摘要：
fastscript例子一 fastscript例子一 unit Unit1; interface usesWinapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, 阅读全文
摘要：
cxgrid动态创建列 cxgrid动态创建列 procedure TFrmRuleEdit.CreateCols;varColumn: TcxGridDBColumn;begincdsPowerPrj.First;while not cdsPowerPrj.Eof dobeginColumn := 阅读全文
摘要：
安卓读写INI文件 安卓读写INI文件 uses System.IoUtils procedure TForm1.Button1Click(Sender: TObject);varIniFile:TIniFile;Count:Integer;begin tryIniFile:=TIniFile.Cr 阅读全文
摘要：
DELPHI获取宽带IP DELPHI获取宽带IP procedure TForm1.Button1Click(Sender: TObject);varurl: string;beginurl := 'http://pv.sohu.com/cityjson?ie=utf-8';Memo1.Text 阅读全文
摘要：
cxgrid回车移到下一个单元格 cxgrid回车移到下一个单元格 作用：表格式录入全键盘操作。 设置cxgrid1Dbtableview1.optionsBehavior.goToNextCellOnEnter:=true; cxgrid回车移到下一个单元格 作用：表格式录入全键盘操作。 设置cx 阅读全文
摘要：
cxGrid单元格获得输入焦点 cxGrid单元格获得输入焦点 cxGrid1.SetFocus;cxGrid1DBTableView1.Controller.EditingController.ShowEdit(cxGrid1DBTableView1.DataController.GetItemB 阅读全文
摘要：
直接端口打印 支持USB接口的打印机吗？解决办法 直接端口打印 支持USB接口的打印机吗？解决办法 www.MyException.Cn 网友分享于：2013-09-15 浏览：488次 www.MyException.Cn 网友分享于：2013-09-15 浏览：488次 直接端口打印 支持USB 阅读全文
2018年2月25日
摘要：
Delphi TStringHelper用法详解 (2013-08-27 22:45:42) 转载▼ Delphi TStringHelper用法详解 转载▼ 标签： delphi_xe5 it 分类： Delphi delphi_xe5 it Delphi XE4的TStringHelper，对操 阅读全文
2018年2月22日
摘要：
http://blog.sina.com.cn/s/blog_44fa172f0102v2x0.html procedure TForm5.Button3Click(Sender: TObject);begin TThread.CreateAnonymousThread(procedure () v 阅读全文
2018年2月15日
摘要：
function ARoundN(v: Double; n: Integer): Double; var I:Integer; begin result:=v; for I:=0 to n-1 do begin result:=result*10; end; result:=Round(result); for I:=0 to n-1 do ... 阅读全文
摘要：
function TrimAnsi(const S: AnsiString): Ansistring; var I, L: Integer; begin L := Length(S); I := 1; while (I L then Result := '' else begin while S[L] 0) and (S[I] <= ' ') do Dec(I);... 阅读全文
摘要：
CopyFileProgressBar(pwidechar(ListBox1.Items.Strings[I]),pwidechar(NewDir+'\'+ExtractFileName(ListBox1.Items.Strings[I]))); procedure CopyFileProgressBar(getPath,setPath:string); var getStrea... 阅读全文
摘要：
uses math; function GenID:String; var b, x: byte; begin Result := '{'; Randomize; for b:= 1 to 8 do begin if Random(100) > 50 then Result := Result + chr(RandomRange(48,57)) else Res... 阅读全文