- 博客(154)
- 资源 (4)
- 收藏
- 关注
RSS订阅原创 advString相关的几个东东
RowSelect[Row] 判断行是否选择RowColor[Row] 行颜色设置Colors[col, row] 单元格颜色设置
2011-11-26 12:04:54
388
原创 一个类似百度谷歌的下拉列表
设计目的：为了快速查找定位某些记录设计功能：按实际需要显示某些表记录到下拉列表，快速进行选择支持：1根据TEdit输入内容动态改变下拉列表的项2可在任何容器的TEdit下面显示列表，正对TEdit下方，与左端对齐3支持按上下键进行滚动选择记录，动态改变TEdit的内容4支持鼠标单击进行定位5输入内容与数据一致，并且只有一条记录时进行自动选择6当输入内容在数据不存在时
2011-11-18 14:27:52
450
原创 将函数或过程作为参数进行传递实例
又名：将事件作为参数进行传递实例首先要明白DELPHI中的事件是指针来的。1 声明一个事件：type TChangeEvent = procedure (ASelectType, AResultID :string) of object;2 定义一个类(uDataListview.pas)typeTListDataObject=classprivateFC
2011-11-15 09:58:25
1866
1
原创 坐标的相对转换ClientToScreen与ScreenToClient
假如一个有一个TEdit的实例edt_Position，edt_Position所在容器有好几层，所在的窗体为frmMain。现要弹出一个FORM，FORM的容器为frmMain,弹出的位置在edt_Position的下面，并且左边对齐，如何做呢？首先将edt_Position的坐标转换为屏蔽坐标，再将此坐标加上偏移量再转换为在frmMain的坐标即可。varLScreenPoint,
2011-11-13 13:19:14
6649
转载 Oracle to_date() 用法细节
to_date()与24小时制表示法及mm分钟的显示： 一、在使用Oracle的to_date函数来做日期转换时，很多Java程序员也许会直接的采用“yyyy-MM-dd HH:mm:ss”的格式作为格式进行转换，但是在Oracle中会引起错误：“ORA 01810 格式代码出现两次”。如：select to_date('2005-01-01 13:14:20','yyyy-MM-dd
2011-11-03 15:54:30
518
原创 说说TListView滚动条
1TListView滚动条会自动出现，没有提供属性设置2隐藏滚动条ShowScrollBar(listview.Handle, SB_HORZ, False).//隐藏水平滚动条 ShowScrollBar(listview.Handle, SB_VERT, Fals
2011-10-13 15:06:45
1331
2
原创 sendRedirect()与forward()实现转向的异同
1前者慢，后者快 （相对而言）2前者无法获取request.setAttribute()所保存的数值，而后者可以读取3前者地址栏显示真正转向后的地址，而后者显示的是转向前的地址4前者，转身地址开始的“/”,表示的是本机的根目录，而后者，“/”,表示的是应用的根目录，
2011-10-10 23:26:45
440
原创 delphi7解决“多步操作产生错误，请检查每一步的状态”的办法
可跟踪进去ADODB.pas单元中的UpdateData进行分析，看看哪个字段值为空，即可解决问题。查看字段名TField(FModifiedFields[I]).FieldName断点定位4467行。
2011-09-27 17:21:08
5239
转载 IMap接口 - [ArcEnine接口]
使用IMap接口显示各种数据源的数据。IMap接口的成员ActiveGraphicsLayer：活动图形图层，如果没有将创建一个基本memory graphics layer。AddLayer：向地图中添加单个图层。AddLayers：向地图中添加多个图层。A
2011-08-23 15:38:20
1388
原创 关于DELPHI调用JAVA服务的问题
关于DELPHI调用JAVA服务出现的问题SOAP Response Packet :result expected,received解决方法：去掉自动生成注册的代码：InvRegistry.RegisterInvokeOptions(TypeInfo(RemotingLoginServicePortType), ioDocument);14
2011-08-11 17:26:28
1223
原创 IEnvelope接口
IEnvelope是指地物的外接矩形，用来表示地物图形的大体位置和形状，一般可用于检索地物，判断地物间的拓扑关系，可以使得检索、判断的速度加快，因为有了IEnvelope，可以首先判断该外接矩形是否在检索范围内，而判断一个外接矩形是比较简单的。另： Envelop
2011-07-13 23:27:05
11170
2
原创 delphi ora-06502 pl sql 数字或值错误 字符串缓冲区太小
网上说的大多数其它语言的修正方法，没有DELPHI版本的修正方法，今刚好也碰到这个问题，就写一下解决方法吧。oracle里面定义的PK_PRJSTATUS_CONVERT.projectstatusconvert(projectid1 varchar2, projectid2 varchar2, converttype int,msg out varchar2)msg为返回给客户端的信息。delp
2011-07-02 16:47:06
1508
原创 关于distinct
<br />在一次检查程序保存记录，无论是新增的，还是修改的都无法保存，怎么也检查不出原因？非常奇怪！！！<br />新增则报错“无法插入空行.行必须至少有一个列值集”，但字段是有值，奇怪吧！<br />修改记录，则没有任何提示，奇怪吧！<br /> <br />检查了好久都没有查原因，后来有一个高手检查出来了，实在是感谢（罗）！<br /> <br />都是distinct惹的祸！！！<br /> <br />原来在查询语句中加了 distinct，导致记录集不可修改。<br /> <br />如
2011-06-01 15:03:00
701
原创 利用XML接口处理XML串数据
<br />接口：IXMLDocument<br /> 实例代码如下：<br />procedure TForm1.Button1Click(Sender: TObject);<br />var<br /> XMLString :string;<br />IXMLDocumentInt :IXMLDocument;<br /> nodeList: IXMLNodeList;<br /> i :integer;<br />begin<br /> XMLString := '<?xml version=
2011-05-28 11:49:00
672
原创 web服务接口实例
（DELPHI7）服务端：步骤1： File>New>Other>New(选项)>WebServer Application步骤2： 将新生成TWebModule页面命名为SOAP,单元保存为uMain.pas,工程保存为：SOAP_Server.dpr
2011-05-28 09:41:00
2970
1
原创 关于button caption竖排
TButton类型：Button1.WordWrap := True;Button1.Caption := '单击事件';这种情况则视宽度大小而定每行多少个字。Button1.Caption := '单' + #13 + '击' + #13 + '事' + #13 + '件';这种情况则强制每行一个字TSpeedButton：没有WordWrap 属性，则需强制指定每行多少个字，如下SpeedButton1.Caption := '单' + #13 + '击' + #13 + '事' + #13 + '件
2011-05-20 11:23:00
1285
原创 ParamStr的用处
<br />paramstr //全部字符串 <br /> paramcount //命令行参数个数 <br /> paramstr(i) //第几个参数。 paramstr(0)是运行的程序名称（包括全路径）<br /> <br /> paramstr 可用于EXE启动时从外部传进来的参数，比如WEB调用，一个EXE调用另外一个EXE等。<br />例子：<br />程序1开启另外一个EXE,代码如下：<br /><br />procedure TForm1.Button1Click(
2011-05-08 15:46:00
661
原创 SQL查看详细的结构
<br />SELECT <br />表名 = case when a.colorder=1 then d.name else ' ' end, <br />表说明 = case when a.colorder=1 then isnull(f.value, ' ') else ' ' end, <br />字段序号 = a.colorder, <br />字段名 = a.name, <br />标识 = case when COLUMNPRO
2011-04-17 20:43:00
495
原创 SQL取表字段的方法
sp_columns返回当前环境中可查询的指定表或视图的列信息。语法sp_columns[ @table_name = ] object --表名或视图名[ , [ @table_owner = ] owner ] --对象拥有者[ , [ @table_qualifier = ] qualifier ] --数据库名[ , [ @column_name = ] column ] --字段名[ , [ @ODBCVer
2011-04-17 20:40:00
721
原创 SQL取数据库表名的方法
<br />sp_tables<br />返回当前环境下可查询的对象的列表（任何可出现在 FROM 子句中的对象）。语法<br />sp_tables<br /> [ [ @table_name = ] 'name' ] --对象名<br /> [ , [ @table_owner = ] 'owner'] --表拥有者<br /> [ , [ @table_qualifier = ] 'qualifier' ] --数据库名<br
2011-04-17 20:34:00
918
原创 delphi报表
QuickReportReportBuilderRaveReportFastReportGrid++ ReportReport MachineEJunGridEMS Advanced Report详细说明：http://minyoad.yo2.cn/articles/ji-zhong-delphi-bao-biao-kong-jian-jian-dan-bi-jiao.html
2011-04-08 12:32:00
558
原创 关于GetMenuString
<br />关于GetMenuString参数说明请谷歌或百度，网上一堆，在此不多说，<br />可参考：http://baike.baidu.com/view/1080162.htm<br /> <br />说明一点：该函数获取到名称包含快捷键名称，如：打开(O)<br />下面是DELPHI的使用方法：关键是该函数的第三个参数，一定要定义成PAnsiChar或PCHAR，否则无法获取菜单项的名称，如：<br />procedure TForm1.btn1Click(Sender: TObject);<b
2010-12-27 22:13:00
2902
原创 关于递归遍历菜单
<br />结构定义：<br />TMenuInfos=packed record<br /> MenuID :Integer;<br /> MenuCaption :string[60];<br /> end;<br /> TMenuInfosArray=array[0..1999] of TMenuInfos;<br />例子中将遍历到菜单保存到结构体数组中：<br />递归函数：<br />//参数说明：AArray结构体数组，AMenuItem某菜单项<br />proce
2010-12-22 21:58:00
2059
原创 递归遍历控件
<br />procedure TForm1.TraverseWincontrol(AWinControl: TWinControl);<br />var<br /> i, j :Integer;<br />begin<br /> for i:= 0 to AWinControl.ControlCount - 1 do<br /> begin<br /> if (AWinControl.Controls[I] is TPageControl) then<br />
2010-12-20 14:45:00
470
原创 oracle禁用触发器
禁用触发器ALTER table 表名 DISABLE ALL TRIGGERS ALTER table 表名 ENABLE ALL TRIGGERS
2010-12-20 11:54:00
2226
原创 英文标点符号翻译大全
<br />+ plus 加号；正号 <br /> - minus 减号；负号 <br /> ± plus or minus 正负号 <br /> × is multiplied by 乘号 <br /> ÷ is divided by 除号 <br /> ＝ is equal to 等于号 <br /> ≠ is not equal to 不等于号 <br /> ≡ is equivalent to 全等于号 <br /> ≌ is equal to or approximately
2010-11-28 14:50:00
442
原创 TDBLookupComboBox用法
<br />TDBLookupComboBox主要用于关联其它表中的字段显示相关字段的内容，一般用于列表中。<br />如有以下两个表：主表，状态表<br />Create table main<br />(<br /> iID int primary key, --主键<br /> username nvarchar(20), --名字<br /> userage int, --年龄<br /> SexCode int
2010-11-28 14:12:00
3223
原创 delphi中double或float转Integer实践
经实践证明：var d :double;1.用int(d)或integer(d)强制转换，均无法编译2.先FloatToStr,再StrToInt时，当有小数的情况就会发生错误可行的方法是：先去掉小数部分，再强制转换integer(Trunc(d));
2010-10-19 15:50:00
21892
5
原创 遍历某盘所有目录生成树
GetRightStr //取右边字符串 EnumFileInRecursion遍历生成目录树procedure EnumFileInRecursion(ATree :TTreeView; AParentNode :TTreeNode; APath:PChar);var _searchRec :TSearchRec; _found, _len :Integer; _tmpStr :String;begin //Ctreate RootNode, for example: path is 'C:' o
2010-10-13 21:02:00
943
原创 OpenDataSource与OpenRowSet 用法
<br />OPENDATASOURCE:<br />不使用链接服务器的名称，而提供特殊的连接信息，并将其作为四部分对象名的一部分。 语法：OPENDATASOURCE(provider_name, init_string) 参数 <br />provider_name：注册为用于访问数据源的 OLE DB 访问接口的 PROGID 的名称。provider_name 的数据类型为 char，无默认值。init_string：连接字符串，该字符串将要传递给目标提供程序的 IDataInitialize 接口
2010-09-20 23:46:00
3549
原创 数据库分页语句使用
<br /><br />1.Oracle: <br /> <br /> select * from ( select row_.*, rownum rownum_ from ( query_SQL ) row_ <br /> where rownum =< max) where rownum_ >= min <br /> <br /> 2.SQL Server: <br /> <br /> select top @pagesize * from tablename w
2010-09-04 13:39:00
393
原创 GetFileSize 函数(转)
该函数用于获取指定文件的大小（长度），获取的大小限制在 0xFFFFFFFF 以内。若要获取长度超过 0xFFFFFFFF 的文件大小，请使用 GetFileSizeEx 函数。定义DWORD GetFileSize(HANDLE hFile, LPDWORD lpFileSizeHigh);参数 hFile 待获取大小的文件句柄，该文件句柄必须具有 GENERIC_READ 或 GENERIC_WRITE 访问权限。 lpFileSizeHigh 指向一个 DWORD 变量的指针，该变量用
2010-09-03 09:40:00
7426
原创 CreateFileMapping ,MapViewOfFile和OpenFileMapping的用法
MapViewOfFile, MapViewOfFileEx VB声明 Declare Function MapViewOfFile& Lib "kernel32" (ByVal hFileMappingObject As Long, ByVal dwDesiredAccess As Long, ByVal dwFileOffsetHigh As Long, ByVal dwFileOffsetLow As Long, ByVal dwNumberOfBytesToMap As Long)Dec
2010-09-02 23:34:00
7388
delphi 7实现AES 128位加解密
2022-10-30
类似百度谷歌搜索的下拉列表DLL
2011-11-23
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人