2018年3月4日

DevExpress12.2.6 安装顺序记录

摘要：环境DelphiXE，实测DevExpress手工安装顺序： 1、ExpressCore Library 2、XP Theme Manager 3、ExpressGDI+ Library 4、ExpressLibrary 5、ExpressCommon Library 6、ExpressDataCo 阅读全文

posted @ 2018-03-04 11:11 westsoft 阅读(234) 评论(0) 推荐(0)

ClientDataSet 心得

摘要： 1. 与TTable、TQuery一样，TClientDataSet也是从TDataSet继承下来的，它通常用于多层体系结构的客户端。很多数据库应用程序都用了BDE，BDE往往给发布带来很大的不便，因而TClientDataSet最大的特点是它不依赖于BDE(Borland Database Eng 阅读全文

posted @ 2018-03-04 11:09 westsoft 阅读(2827) 评论(0) 推荐(0)

TClientDataSet中关于TField、TFieldDef动态创立字段的应用

摘要： //使用　TFieldDef　建表: begin with　ClientDataSet1.FieldDefs　do begin Add('Name'　,　ftString,　12,　True);　{　True　表示是必填字段　} Add('Age',　ftInteger); end; ClientDataSet1.CreateDataS... 阅读全文

posted @ 2018-03-04 10:54 westsoft 阅读(255) 评论(0) 推荐(0)

Delphi CxGrid 汇总（4）

摘要： 1. CxGrid汇总功能 ① OptionsView-Footer设置为True，显示页脚 ② CxGrid的Summary选项卡定义要汇总的列和字段名及汇总方式，Footer选项卡定义单个汇总，Default For Groups定义按组汇总。OptionsView-GroupFooters设置阅读全文

posted @ 2018-03-04 10:49 westsoft 阅读(593) 评论(0) 推荐(0)

Delphi CxGrid 汇总（3）

摘要：列解决： <aColumn>.GroupIndex := -1; <aColumn>.Visible := True;****************************************************************************39 保存修改到数据库解决：阅读全文

posted @ 2018-03-04 10:48 westsoft 阅读(323) 评论(0) 推荐(0)

Delphi CxGrid 汇总（2）

摘要： 17. 怎样设计多表头的cxGrid？解决：cxGrid可以解决如下的表头： | 说明1 | 说明2 | | 字段1 | 字段2 | 字段3 | 字段4 || 字段5 | 字段6 || 字段7 | 字段8 | 字段9 |实现这个很简单，你可以直接在上面拖动字段名，拖动时会显示箭头的，放入你想显示的位阅读全文

posted @ 2018-03-04 10:43 westsoft 阅读(441) 评论(0) 推荐(0)

Delphi cxGrid使用汇总（一）

摘要： 1. 去掉cxGrid中台头的Box解决：在tableview1的ptionsview的groupbybox=false; 1. 去掉cxGrid中台头的Box解决：在tableview1的ptionsview的groupbybox=false; 2．统计功能解决：(1) tableview1. t 阅读全文

posted @ 2018-03-04 10:39 westsoft 阅读(480) 评论(0) 推荐(0)

修改后的SQL分页存储过程，利用2分法，支持排序

摘要： /****** 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创建 -------*/ --/*--... 阅读全文

posted @ 2018-03-04 10:29 westsoft 阅读(210) 评论(0) 推荐(0)

cxgrid强大用法

摘要： cxgrid强大用法 (2012-07-25 14:09:42) 转载▼ cxgrid强大用法转载▼ 标签： delphi cxgrid 用法强大杂谈分类： Delphi delphi cxgrid 用法强大杂谈 cxGrid功能强大，适合做企业级的复杂查询。非常方便。但是对其用法介绍的阅读全文

posted @ 2018-03-04 10:28 westsoft 阅读(832) 评论(0) 推荐(0)

字符串操作之格式化

摘要：字符串操作之格式化函数 function Format(const Format: string; const Args: array of const): string; 需引用 SysUtils.pas功能返回按指定方式格式化一个数组常量的字符形式说明这个函数是我在Delphi中用得最多的阅读全文

posted @ 2018-03-04 10:26 westsoft 阅读(191) 评论(0) 推荐(0)

关于 cxGrid 的过滤问题

摘要： http://bbs.csdn.net/topics/390536919 关于 cxGrid 的过滤问题 [问题点数：20分，结帖人zhengyc653] 不显示删除回复显示所有回复显示星级回复显示得分回复只显示楼主收藏 http://bbs.csdn.net/topics/3905369 阅读全文

posted @ 2018-03-04 10:15 westsoft 阅读(1095) 评论(0) 推荐(0)

cxGrid实现取消过滤和排序后定位到首行（单选和多选）

摘要： cxGrid实现取消过滤和排序后定位到首行（单选和多选）原创 2013年10月06日 18:42:24 2107 原创 2013年10月06日 18:42:24 2107 DataContoller中的函数FocusedRecordIndex没有反应，FocusedRowIndex正常。 cxgr 阅读全文

posted @ 2018-03-04 10:06 westsoft 阅读(324) 评论(0) 推荐(0)

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

摘要：本方案不需要修改控件源码，是完美解决cxgrid或TcxDBExtLookupComboBox支持多列模糊匹配快速输入的最佳方案！！小哥摸索多日，终于搞定cxgrid和TcxDBExtLookupComboBox可以支持多列模糊查找输入了！纵观网上的方案，不是修改控件源码，就是自己封装弹窗，代码阅读全文

posted @ 2018-03-04 10:05 westsoft 阅读(525) 评论(0) 推荐(0)

cxGrid的FilterRow默认自动匹配左边%而不是右边%

摘要： / // 修改cxGrid的FilterRow过滤框的默认值为左匹配// 1、建立一个公共储存过程，如果有其他Unit需要的话必须做全局声明。 procedure SetCustomFilterRow(cxGridDBBandedTableView: TcxGridDBBandedTableView 阅读全文

posted @ 2018-03-04 10:02 westsoft 阅读(435) 评论(0) 推荐(0)

Delphi获取公网IP地址函数

摘要： 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... 阅读全文

posted @ 2018-03-04 09:33 westsoft 阅读(492) 评论(0) 推荐(0)

cxGrid控件过滤排序和TClientDataSet同步

摘要： https://www.cnblogs.com/false/archive/2013/02/24/2924240.html procedure TReport10Form.cxGridViewDataControllerFilterChanged(Sender: TObject);var cds: 阅读全文

posted @ 2018-03-04 09:32 westsoft 阅读(181) 评论(0) 推荐(0)

2018年3月1日

FireDAC 连接SQL Server一些要注意的地方

摘要：转自：http://blog.sina.com.cn/s/blog_14c50030e0102y9f7.html FireDAC 连接SQL Server一些要注意的地方 (2017-08-18 19:44:13) 转载▼ FireDAC 连接SQL Server一些要注意的地方转载▼ 分类：数阅读全文

posted @ 2018-03-01 07:31 westsoft 阅读(158) 评论(0) 推荐(0)

2018年2月28日

fastscript例子一

摘要： fastscript例子一 fastscript例子一 unit Unit1; interface usesWinapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, 阅读全文

posted @ 2018-02-28 17:24 westsoft 阅读(203) 评论(0) 推荐(0)

cxgrid动态创建列

摘要： cxgrid动态创建列 cxgrid动态创建列 procedure TFrmRuleEdit.CreateCols;varColumn: TcxGridDBColumn;begincdsPowerPrj.First;while not cdsPowerPrj.Eof dobeginColumn := 阅读全文

posted @ 2018-02-28 16:15 westsoft 阅读(107) 评论(0) 推荐(0)

安卓读写INI文件安卓读写INI文件

摘要：安卓读写INI文件安卓读写INI文件 uses System.IoUtils procedure TForm1.Button1Click(Sender: TObject);varIniFile:TIniFile;Count:Integer;begin tryIniFile:=TIniFile.Cr 阅读全文

posted @ 2018-02-28 16:14 westsoft 阅读(3252) 评论(0) 推荐(0)

DELPHI获取宽带IP

摘要： DELPHI获取宽带IP DELPHI获取宽带IP procedure TForm1.Button1Click(Sender: TObject);varurl: string;beginurl := 'http://pv.sohu.com/cityjson?ie=utf-8';Memo1.Text 阅读全文

posted @ 2018-02-28 16:12 westsoft 阅读(162) 评论(0) 推荐(0)

cxgrid回车移到下一个单元格

摘要： cxgrid回车移到下一个单元格 cxgrid回车移到下一个单元格作用：表格式录入全键盘操作。设置cxgrid1Dbtableview1.optionsBehavior.goToNextCellOnEnter:=true; cxgrid回车移到下一个单元格作用：表格式录入全键盘操作。设置cx 阅读全文

posted @ 2018-02-28 16:11 westsoft 阅读(636) 评论(0) 推荐(0)

cxGrid单元格获得输入焦点

摘要： cxGrid单元格获得输入焦点 cxGrid单元格获得输入焦点 cxGrid1.SetFocus;cxGrid1DBTableView1.Controller.EditingController.ShowEdit(cxGrid1DBTableView1.DataController.GetItemB 阅读全文

posted @ 2018-02-28 16:10 westsoft 阅读(261) 评论(0) 推荐(0)

直接端口打印支持USB接口的打印机吗？解决办法

摘要：直接端口打印支持USB接口的打印机吗？解决办法直接端口打印支持USB接口的打印机吗？解决办法 www.MyException.Cn 网友分享于：2013-09-15 浏览：488次 www.MyException.Cn 网友分享于：2013-09-15 浏览：488次直接端口打印支持USB 阅读全文

posted @ 2018-02-28 12:47 westsoft 阅读(621) 评论(0) 推荐(0)

2018年2月25日

Delphi TStringHelper用法详解

摘要： Delphi TStringHelper用法详解 (2013-08-27 22:45:42) 转载▼ Delphi TStringHelper用法详解转载▼ 标签： delphi_xe5 it 分类： Delphi delphi_xe5 it Delphi XE4的TStringHelper，对操阅读全文

posted @ 2018-02-25 12:34 westsoft 阅读(1128) 评论(0) 推荐(0)

2018年2月22日

【转】利用线程更新ListView (2014-09-28 08:25:20)

摘要： http://blog.sina.com.cn/s/blog_44fa172f0102v2x0.html procedure TForm5.Button3Click(Sender: TObject);begin TThread.CreateAnonymousThread(procedure () v 阅读全文

posted @ 2018-02-22 14:03 westsoft 阅读(132) 评论(0) 推荐(0)

2018年2月15日

delphi 小数点四舍五入问题

摘要： 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 ... 阅读全文

posted @ 2018-02-15 16:42 westsoft 阅读(191) 评论(0) 推荐(0)

delphi 过滤开头结尾全部空格的函数

摘要： 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);... 阅读全文

posted @ 2018-02-15 16:38 westsoft 阅读(317) 评论(0) 推荐(0)

delphi CopyFileProgressBar 拷贝文件显示进度条

摘要： CopyFileProgressBar(pwidechar(ListBox1.Items.Strings[I]),pwidechar(NewDir+'\'+ExtractFileName(ListBox1.Items.Strings[I]))); procedure CopyFileProgressBar(getPath,setPath:string); var getStrea... 阅读全文

posted @ 2018-02-15 16:37 westsoft 阅读(472) 评论(0) 推荐(0)

delphi 分享三个随机字符串

摘要： 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... 阅读全文

posted @ 2018-02-15 16:36 westsoft 阅读(465) 评论(0) 推荐(0)