2015年03月_singular2611

07月 06月 05月 04月 03月 01月

原创 cxgrid几种条件下行变色问题与解决

cxgrid几种条件下行变色问题与解决1 .鼠标选中行变色。其实默认条件下，鼠标选中的行就会变色，但是被点中的单元格不变色，如果想让单元格和其它列一样的话，在cxGrid1DBTableView中找属性OptionsSelection中的CellSelect的属性变成False.但是默认颜色可能达不到使用者的要求，比如有粉粉控的人只喜欢粉色，想让选中的行变成粉色怎么办呢？很简单，只需要

2015-03-29 11:06:41 2812

转载 Socket错误详解及处理方法

例如错误代码10061，说明服务器已经找到，但连接被服务器拒绝，连接失败原因可能是：端口号设置错误；2.服务器没有处于监听状态（即ServerSocket –>Active=true）；3.数据包被服务器端的防火墙过滤掉。附：Socket常见错误代码与描述Socket error 0 – Directly send error Socket error 10004 – Interrupt

2015-03-27 12:46:00 39820

原创 Delphi三层网络架构代码实现

Delphi三层网络架构代码实现1 .三层网络的概念三层架构(3-tier architecture) 通常意义上的三层架构就是将整个业务应用划分为：表现层（UI）、业务逻辑层（BLL）、数据访问层（DAL）。区分层次的目的即为了“高内聚，低耦合”的思想。概念简介1、表现层（UI）：通俗讲就是展现给用户的界面，即用户在使用一个系统的时候他的所见所得。2、业务逻辑层（B

2015-03-26 22:58:20 2374 1

DBLookupCombox控件的使用DBLookupCombox是以下拉列表形式显示数据中的一个字段的内容，使用DBLookupCombox一般会出现两个问题。1. 把DBLookupCombox控件与数据库表连接起来，发现运行时下拉表中没有数据。解决方法：把数据库控件搭建好后，把它的DataSource连接到DBLookupCombox控件的ListSource上，然后在ListField属性里

2015-03-24 09:50:04 1009

原创 ShellListView切换PopMenu的具体操作方法

需要用到ShellListView的OnMouseDown事件，PopMenu中的OnPopup()事件。其中还有如何获得PopMenu出现的坐标代码如下：procedure TFormSystemTree.lvMainMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); va

2015-03-22 11:33:25 605

原创 Cxgrid列表加一列序号

在Cxgrid中有OnGetDisplayText（）事件，这个时间可以完成在Cxgrid表格中加一列序号，这列序号不会根据排序改变而改变。procedure TForm1.cxGrid1DBTableView1Column1GetDisplayText( Sender: TcxCustomGridTableItem; ARecord: TcxCustomGridRecord; va

2015-03-21 11:49:27 2562

原创 DevExpress VCL的多语言支持文件

用法1：在工程中加入控件cxLocalizer; 在程序中加入如下语句：Localizer.LoadFromFile(语言文件.ini);Localizer.Language := '中文(简体，中国)';Localizer.Active := true;用法2：用DevExpress提供的工具cxLocalizerEditor打开这个ini文件，然后File->Build Resource

2015-03-20 14:05:29 1600

原创创建世界唯一标识符GUID,在cxgrid单元格中关键字显示不同颜色

创建GUIDfunction WGetGUID(): string;var Uid: TGuid; rs: HResult;begin rs := CreateGuid(Uid); if rs = S_OK then beginresult := GuidToString(Uid) end elseresult := '';end;Cxgrid单元格关键字变色

2015-03-20 12:30:48 704

原创 Delphi中配置文件的架构

unit UnitConfig;interfaceuses Classes;type { TVConfig } TVConfig = class(TObject) privateAppExeDir: String;tree: AnsiString; protected public property ptree: AnsiString read tree write tre

2015-03-20 11:14:46 633

原创 delphi中的字符串，字符串数据，字符串指针的转换以及不同字符串格式的转换

delphi中不同字符串格式的转换delphi中的编码默认的应该是unicode编码，delphi中的字符串类型有 UnicodeString,AnsiSting,String,UTF8String,如果你想让他们相互转换可以在他们后面加To会有各种提示，但建议尽量不用。Delphi字符串、PChar与字符数组之间的转换：设有以下三个变量：var　　　　s:string; 　　　　p:pcha

2015-03-20 11:00:05 2553

原创 delphi中WinExec的使用

delphi中WinExec的使用WinExec((PAnsiChar(FExecFileName + ' "' + adress + '"')), SW_SHOWNORMAL);WinExec();函数是执行dos命令符操作用的，用这个函数需要注意命令参数如果有空格需要加双引号，里面的字符串应该用PAnsiChar格式。

2015-03-20 10:44:14 6040

原创 delphi中传参数才能运行的软件编写（ParamStr）

delphi中传参数才能运行的软件编写（ParamStr）ParamStr 表示的是启动应用程序时传给其的参数，比如在windows的dos系统下你想用命令符操作notepad.exe打开1.txt需要输入下面命令：c:\windows\system32\notepad.exe c:\1.txt c:\1.txt就是给notepad.exe传的参数。ParamStr(0) 代表应用

2015-03-19 14:48:48 1624

原创数据库相对路径写法，及使用

在使用数据库时，因为相对路径的原因，每次运行软件时数据库都是刚刚连接上，所以数据库中的表和控件中的table,或者query还未激活，这时需要动态打开这些表。如下 conWake.Database := ExtractFilePath(Application.ExeName) + 'wake.db3'; conWake.Connect; Self.tb_Users.Ope

2015-03-18 22:55:49 2924

原创 delphi中cxgrid和数据库搭配的基本应用

在delphi中我用的数据库控件是unidac，数据库是采用sqlite数据库，让delphi开发的软件和数据库连接上，并且对数据库的表可以操作有已下控件基本够用了。uniconnection1是连接数据库的，双击打开选择使用的数据库，然后在把下面的database里面填上数据库的所在位置，就能连接上了，sqliteuniprovider1是表示sqlite服务端，用什么数据库就选什么服务

2015-03-18 20:54:13 2467

原创 delphi中fastreport的基本使用

本人也是刚接触fastreport这款控件，其实用起来还挺简单了制作一般的报表一定够用了，需要连接数据库的组件都拖出来，连接好数据库，然后只需要Tfrxreport和TfrxDBdataset,把TfrxDBdataset控件的datasource挂上，然后双击Tfrxreport,点击左上角菜单report,再在下拉菜单里面点data里面有个TfrxDBdataset，把它左面的框框打上勾就

2015-03-18 18:07:03 6521

原创 delphi中使用sqlite数据库出现database is locked问题

本人之前编写的资产管理系统，编译时没有问题，但过了一段时间重新运行提示database is locked ，造成这种问题有很多中可能，大多部分是数据库正在处理数据时，又有其他的操作对数据库操作解决方法：这种问题首先把所有的连接数据库的表全部取消激活（Active）然后一个一个表激活，每激活一个表时就在数据库中运行一个数据库数据更改语句，如果没有弹出database is locked 那么继

2015-03-18 17:40:23 2437

原创有关使用des加密解密问题

为什么写的des加密解密软件，在本地加密的文件可以正确解密，而通过QQ传送的加密字符串解不出来？答：因为delphi中有自己的编码和转码方式，在本地加密的文本delphi软件可以自行转码，而网上的加密字符串大多为unicode码。解决：将加密的文本按照一个个字符装入内存空间

2015-03-17 14:57:56 335

原创 delphi中对数据库操作的问题与解决

1.本人用sqlite数据库时删除数据库中时，删除失败，但不报错，解决方法是将数据库中的缺省属性（default）修改成''两个单引号2在使用delphi中query控件时，对数据库操作时报语法错误！但是实际上根本没有语法错误举例如下：with query1 dobeginsql.add('delete from tb_room where id=8')；excute;en

2015-03-16 13:45:51 796

转载经典SQL语句大全

一、基础1、说明：创建数据库CREATE DATABASE database-name 2、说明：删除数据库drop database dbname3、说明：备份sql server--- 创建备份数据的 deviceUSE masterEXEC sp_addumpdevice 'disk', 'testBack', 'c:\mssql7backup\MyNwin

2015-03-16 13:41:55 424

原创永久解决delphi 2010不能2次启动问题

由于在Windows安装了最近的更新(KB2982791, KB2970228)后，Delphi的IDE需要创建的一个文件%TEMP%\EditorLineEnds.ttr会被系统锁定，导致除非重新启动操作系统，否则Delphi 8~2010无法启动两次。如果你使用了IDEFixPack 2.7以上版本，则不会受到这个问题的影响。IDEFixPack会阻止IDE调用AddFontRes

2015-03-04 17:32:31 2072