function XXXXXFrom.CheckData(Sender: TObject): Boolean; var tmpcds:TfwClientDataset; begin Result:=False; tmpcds:=TfwClientDataset.Create(nil); try tmpcds.CopyFromDataSet(fcdsImport); tmpcds.First; while not tmpcds.Eof do begin if Trim(tmpcds.FieldBy…

//取name字段的示例   edit1.Text:=ADOquery1.Fields[2].AsString;   //取得数据表的第二个字段的值 edit2.Text:=ADOquery1.FieldValues['name']; edit3.Text:=ADOquery1['name']; edit4.Text:=ADOquery1.FieldByname('name').AsString;   //以下是设为永久字段时设置的 edit5.Text:=adoquery1name.AsStr…

1. 在UniDBgrid的extEvent属性中写入以下代码: function OnAfterCreate(sender){ var toolbar=sender.getDockedItems()[1]; //取出固定在bottom的ToolBar toolbar.items.getAt(10).hide(); //取出ToolBar中的Refresh按钮,序号10,隐藏他 //增加一个显示总记录数的tbtext toolbar.add( [{ 'id':'pagecount99', 'xt…

1. 在UniDBgrid的extEvent属性中写入以下代码: function OnAfterCreate(sender) { var toolbar=sender.getDockedItems()[1]; //取出固定在bottom的ToolBar toolbar.items.getAt(10).hide(); //取出ToolBar中的Refresh按钮,序号10,隐藏他 //增加一个显示总记录数的tbtext toolbar.add( [{ 'id':'pagecount99', 'x…

从Delphi 2009开始,DataSnap技术发生了很大的变化,并在Delphi 2010和Delphi XE的后续版本中得到了持续的改进.Delphi 2009之前的DataSnap,虽然也实现了对中间层的方法调用,但那是基于COM技术的,实现起来比较麻烦,而且最关键的,是不能直接返回数据集(TDataSet).如今,基于JSON的DataSnap,已经脱离了COM的束缚,可以很方便地直接返回数据集.我们在开发多层的数据库应用时,就可以采用全新的方式来进行,即客户端的所有数据查询和更新,可…

在delphi中,数据集是最常用数据存取方式.因此,必须建立JSON与TDataSet之间的互转关系,实现数据之间通讯与转换.值得注意的是,这只是普通的TDataset与JSON之间转换,由于CDS包含了Delta数据包,其数据格式远比普通的TDataset更复杂. 数据集字段信息,是一个完整的字典信息.因此,我们在JSON必须也建立字典信息,才能创建数据集的字段信息.我们设置其JSON信息如下: COLS:[字段列表信息],如: "Cols":[{"JsonType&quo…

在<强大的DELPHI RTTI--兼谈需要了解多种开发语言>一文中,我说了一下我用DELPHI的RTTI实现了数据集的简单对象化.本文将详细介绍一下我的实现方法.     首先从一个简单的例子说起:假设有一个ADODataSet控件,连接罗斯文数据库,SQL为: select * from Employee     现在要把它的内容中EmployeeID, FirstName, LastName,BirthDate四个字段显示到ListView里.传统的代码如下: With ADODataS…

1.1Delphi数据库应用程序的层次结构 Delphi数据库应用程序通过数据存取构件对数据库进行访问,通过可视的数据构件(Data Control)将数据呈现给用户,并与用户进行交互.Delphi数据库应用程序的结构如下图: 图 2‑1 Delphi数据库应用程序结构图 Delphi访问数据库可以分为三级: (1).由ADO(Active Data Object)对象及底层数据库驱动程序来访问数据源. (2).再由数据集构件(TADOTable.TADOQuery.TADODataSet)与A…

Delphi(Tuxedo,BDE,ADO)三合一数据集组件HsTxQuery 一.背景 为什么要做这个三合一数据集组件呢?曾经我们公司用delphi开发的系统大多以ADO,BDE方式来连接数据库,这两套组件使用十分方便和灵活,对成本控制也十分友好,从曾经十多年间使用情况来看问题都不大,用户也没有三层架构的要求.但在今年投标大公司的项目时,往往会被技术要求阻拦,为什么呢?甲方的标书上写着要三层架构,这令我们十分头疼,眼下我们公司是使用Tuxedo来做中间层,假设改造,那么成本估计是一年的时间,二…

varaintf:_Recordset;RecordsAffected:OleVariant; begin ADOStoredProc1.Close;ADOStoredProc1.Open;aintf:=ADOStoredProc1.Recordset;ADOQuery1.Recordset:=aintf;aintf:=aintf.NextRecordset(RecordsAffected);ADOQuery2.Recordset:=aintf; end; 此时,把存储过程中生成的二个数据集分别…