03 2015 档案

摘要：导入的实至就是让CXCRID所关联的DATASET能打得开EXCEL报表，并在CXCRID中显示出来吗？如果是主样的话，可这样试试的varxlsName:string;beginOpenDialog1.Filter:='*.XLS|*.XLS';OpenDialog1.DefaultExt:='XL... 阅读全文

摘要：procedure DBGridToExcel(dbGrid: TDBGridEh ; fname: string);const msoScaleFromTopLeft = $00000000; msoScaleFromMiddle = $00000001; msoScaleFromBottomRi... 阅读全文

摘要：functionsearchFile(path:string):Integer;varSearchRec:TSearchRec;found,fileCount:Integer;beginfileCount:=0;found:=FindFirst(Path+'\*.*',faAnyFile,searc... 阅读全文

摘要：Delphi数据库技术中Disablecontrols和Enablecontrols的功能 2010-12-06 10:48:43| 分类： delphi技术 | 标签：disablecontrols enablecontrols |字号大中小 订阅 一般来说，用来扫描整个数据库表并修改每个记录的某... 阅读全文

摘要：TdxMemData控件可以把DataSet数据库保存在内存中，并显示在TdxDBGrid上，而通过dxmdt1.FieldByName('字段').value得到当前光标所在值。通过while遍历 整个数据集中的值。如此可以在内存中先操作数据然后再用sql语句提交到数据库， 通常对一条记录都有增... 阅读全文

摘要：办事端:TROBinMessage，TROIndyHTTPServer 供给办事接口: IBinaryMidService = interface [""{51904085-6D27-4EDA-A55D-A9EE21686894}""] function Add（Const A... 阅读全文

摘要：unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TMyCacl = class(TObject) pu... 阅读全文

摘要：TdxMemData控件可以把DataSet数据库保存在内存中，并显示在TdxDBGrid上，而通过dxmdt1.FieldByName('字段').value得到当前光标所在值。通过while遍历 整个数据集中的值。如此可以在内存中先操作数据然后再用sql语句提交到数据库，通常对一条记录都有增删... 阅读全文

摘要：//判断是否是数字functionIsNumeric(sDestStr:string):Boolean;//简写多余汉字functionSimplifyWord(sWord:string;iMaxLen:Integer):string;//读写取注册表中的字符串值functionReadRegStr... 阅读全文

摘要：一、 单元中添加udmclxBaseAppx二、 设置对象、全局变量1、 第一个AO中添加GlobalVars：如：GlobalVars.AddObject(‘AO_PagingDemo’,Self); //把自已放进去，它可以被其他所有AO引用。 GlobalVars.Values[‘a_Var’... 阅读全文

摘要：TStrings是一个抽象类，在实际开发中，是除了基本类型外，应用得最多的。常规的用法大家都知道，现在来讨论它的一些高级的用法。先把要讨论的几个属性列出来：1、CommaText2、Delimiter & DelimitedText3、Names & Values & ValueFromIndex先... 阅读全文

摘要：说明：复制表(只复制结构,源表名：a 新表名：b) SQL: select * into b from a where 11 说明：拷贝表(拷贝数据,源表名：a 目标表名：b) SQL: insert into b(a, b, c) select d,e,f from b; 说... 阅读全文

摘要：procedure TAO_EWordPdf.ShowDoc;var Adapter: iStream;//TStreamAdapter; DataLoader: TMemoryStream;beginif not cdsGetDocDOC_DATA.IsNull then //判断数据字段不为空 ... 阅读全文