if CDSUserFunc.Locate('mod_id;res_id', VarArrayOf([UserFunc.MOD_ID, UserFunc.RES_ID]), [loCaseInsensitive]) then begin CDSUserFunc.Delete; end; if not CDS_UserDict.Locate('DICT_ID', strDictId, [loCaseInsensitive]) then begin…

原来的控件delphi7里何处寻? 经常有朋友提这样的问题,“我原来在delphi5或者delphi6中用的很熟的控件到哪里去了?是不是在delphi7中没有了呢?这是不是意味着我以前写的代码全都不能够移植到delphi7中来了呢?是不是我必须学习适应这些新的控件呢?” 现在我就对这一问题进行解释,并对在delphi7中的VCL以及CLX进行一下总结,方便有这方面需求的朋友进行查询 其实,我们在原来版本如D5.D6中使用的控件如Quickrep,FastNet等,在D7中仍然是保留的.只是Del…

由层得到数据表名: procedure TFB_PatientWaiting.cxgrdbtblvwGrid1DBTableView_MyPatienWaitingDblClick( Sender: TObject); var tmp_ifGHD : Boolean; MyTV: TcxGridDBTableView; begin tmp_ifGHD := False; then tmp_ifGHD := True; MyTV := TcxGridDBTableView(cxgrd_Patien…

TClientDataSet 中计算字段有两种: Calculated(计算字段).InternalCalc(内部计算字段). 两者区别是: Calculated 在每次需要时都要重新计算; InternalCalc 只需要计算一次.Calculated 需要计算的时间, InternalCalc 需要存取的时间; 当然后者快. 计算字段不会被保存到文件. 下面的例子先定义了两个整数字段: sum1.sum2;又定义了两个计算字段: SUM(求和).MUL(求积), 分别指定了 Calculat…

1．TClientDataSet的基本属性和方法介绍 1)．FieldDefs: 字段定义列表属性 开发者可通过单击属性编辑器中该属性编辑按钮,或在该控件上单击右键选择弹出菜单中的"Fields Editor"菜单进行字段编辑.设置完此属性后,实际上就相当于定义了表的结构:如果想装入已有的数据表的结构和数据,可通过单击右键选择弹出菜单中的"Assign Local Data"菜单,从弹出对话框中选取当前窗体中已与数据库连接好的数据集控件名称即可(当前窗体中必须已放置…

本例用到: TClientDataSet.Fields[];          { 字段集合; 它比 FieldList 有更多功能, 如可获取嵌套字段 } TClientDataSet.FieldList[];        { 字段列表; 它比 Fields 轻便, 如果只是取值用它快一些 } TClientDataSet.FieldByName();      { 根据字段名称获取字段对象; 获取一个字段对象时它比上两个快 } TClientDataSet.FindField();   …

打开Delphi的安装目录,如C:\Program Files\Borland\Delphi7,你将会看到目录下包含了一些文件和文件夹: ²        Source:存放的是Delpi提供的所有源码,包括VCL.WEBSNAP.IntraWeb.ToolsAPI等的源码,我们平时要查找delphi的源码就可以到这里查找.还有一些Delphi提供的工具的源码也放在其下,如borland socket server(ScktSrvr.exe)的源码.IntraWeb的调试用的Web服务器(HTT…

Delphi7目录结构 打开Delphi的安装目录,如C:\Program Files\Borland\Delphi7,你将会看到目录下包含了一些文件和文件夹:Source:存放的是Delpi提供的所有源码,包括VCL.WEBSNAP.IntraWeb.ToolsAPI等的源码,我们平时要查找delphi的源码就可以到这里查找.还有一些Delphi提供的工具的源码也放在其下,如borland socket server(ScktSrvr.exe)的源码.IntraWeb的调试用的Web服务器(H…

TClientDataSet[12]: 查找 方法有:1.Locate: 根据字段列表和对应的字段值查找并定位, 找到返回 True.2.Lookup: 根据字段列表和对应的字段值查找, 返回需要的字段值.3.SetKey.GotoKey 或 SetKey.GotoNearest: 根据索引字段的值查找, 先切换状态再根据条件定位.4.FindKey 或 FindNearest: 根据索引字段的值查找. 其中的 GotoNearest.FindNearest 在找不到的情况下会定位到近似值. 测…

在SQL2008查找某数据库中的列是否存在某个值 --SQL2008查找某数据库中的列是否存在某个值 create proc spFind_Column_In_DB ( @type int,--类型:1为文字类型.2为数值类型 )--需要搜索的名字 ) as --创建临时表存放结果 create table #tbl(PK int identity primary key ,tbl sysname,col sysname) ),) begin declare curTable cursor fa…