数据源记录集:ClientDataSetSource:目标记录集:ClientDataSetCopy 1)复制一条记录. ClientDataSetCopy.Close;  ClientDataSetCopy.Fields.Clear;  ClientDataSetCopy.FieldDefs.Clear; //复制字段定义  ClientDataSetCopy.FieldDefs.Assign( ClientDataSetSource.FieldDefs);  ClientDataSetCop…

Delphi XE7试用记录1 在网上看到XE7的一些新特征,觉得完整Unicode支持.扩展Pascal语法.更多功能的库都很吸引人,决定试试XE7. XE7官方安装程序很大,因此选择了lite版,网上可以搜到下载地址,安装很容易,注意要把需要的附加功能包和安装程序放在一起,而且不要更名. 安装后,先建立一个VCL窗体程序,测试一下. XE7启动速度比Delphi7慢了许多,毕竟程序大了很多,自带的组件包也多了很多.减少组件包的数量可以提高一些速度,网上说有默认程序选项,设置以后可以适用于新工…

Delphi XE7试用记录2 万一博客中介绍了不少Delphi7以后的新功能测试,想跟着测试一下.每次测试建立一个工程,在窗体上放几个按钮,测试几个相关的功能,这样虽然简单明了,但日后查阅起来不方便.最好能操作简单,尽可能集中到一个项目中,功能分类清晰,同时可以看到运行效果及源代码. 窗体上放置ActionList.MainMen.TreeView.PageControl.Memo.测试代码放到Action中,运行时根据Action自动建立MainMenu和TreeView中的项目,点击Men…

DELPHI +ClientDataSet+DBGRIDEH  进行排序因为使用了DBX+ClientDataSet,所以排序显得简单些,只需要设定几个属性就OK了.1.DbGridEH 中设定:OptionsEh中dghAutoSortMarking:=True; SortLocal:=True; Columns的Title.TitleButton:=True; 2.在单元中引用 EhLibCDS 这样就实现了点击title进行排序,而且不回资料库再捞资料. (追加备注:在使用发现如果设定了C…

最近的Django项目中有复制记录的需求.数据库里有一张名为Party的表,记录用户创建的party,现在要让用户能够复制一个新的party.本身非常简单的一个功能,但运行的时候出错了.我以为是复制过程出错,所以测试了一下Django中复制记录可能遇到的情况(后来发现是其他代码的逻辑出了问题),结果整理如下. 1.Reset pk 在Django中复制一条记录最简单的方法应该是先取出这条记录,将它的主键设置为None,然后再保存一次.       Python   1 2 3 old_party…

请看下面的代码: program TestRecord; {$APPTYPE CONSOLE} uses  SysUtils,  Math; type  TRecordA = record    Name: string;  end; procedure RunTestRecord;var  R1, R2: TRecordA;begin  R1.Name := StringOfChar('A', RandomRange(64, 256) * 1024);  Move(R1, R2, SizeOf…

在各网站的文章里面,见复制数据的方法中,有move的,有system.copy的,而要实际应用中,这两种方法,并不是很完美,会遇到一些问题,比如copy在记录里面的复制时,编译都过不去,而CopyMemory的功能,就相当强大. 要注意如果不是byte时,长度可能需要使用sizeof来参与计算 Buff,BuffCmdCrc16:array of Byte SetLength(BuffCmdCrc16, 10); 一.复制10个byte CopyMemory(@BuffCmdCrc16[0],@…

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

ClientDataSet的数据查找.我所介绍的心得和技巧都是用ClientDataSet来做范例,也可以应用于其他的一些DataSet.废话就不多说了.我们还是先看代码,让后再总结.1.Scanning 扫描数据查找这是最简单最直接也是最慢的一种方法,遍历所有数据:procedure TForm1.ScanBtnClick(Sender: TObject);varFound: Boolean;beginFound := False;ClientDataSet1.DisableControls;…

1.  需要2个ClientDataSet组件: 2.  clientDataSet1连接目标表,clientDataSet2连接源表,如果无法直接连接,使用DataSetProvider进行桥接: 3.  复制clientDataSet2结构到clientDataSet1: for I := 0 to clientDataSet2.FieldDefs.Count-1 do fieldNames:=fieldNames+clientDataSet2.FieldDefs[i].Name+';';…