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

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

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

使用INSERT语句能够完成数据插入,使用DataSet对象也可以完成数据插入.为了将数据库的数据填充到DataSet中,则必须先使用DataAdapter对象的方法实现填充,当数据填充完成后,开发人员可以将记录添加到DataSet对象中,然后使用Update方法将记录插入数据库中.使用DataSet更新记录的步骤如下所示: q  创建一个Connection对象. q  创建一个DataAdapter对象. q  初始化适配器. q  使用数据适配器的Fill方法执行SELECT命令,并填充D…

使用DataSet删除记录和使用DataSet更新记录非常的相似,DataSet删除记录的步骤如下所示. q  创建一个Connection对象. q  创建一个DataAdapter对象. q  初始化适配器. q  使用数据适配器的Fill方法执行SELECT命令,并填充DataSet. q  执行SqlCommandBuilder方法生成UpdataCommand方法. q  创建DataTable对象并指定相应的DataSet中的表. q  创建DataRow对象并查找需要修改的相应行.…

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

1.Bookmark var p:pointer; procedure TForm1.Button1Click(Sender: TObject);//加个标签 begin   p:=cxGrid1DBTableView1.DataController.DataSet.GetBookmark; end;    procedure TForm1.Button2Click(Sender: TObject);//行焦点定位到标签 begin   cxGrid1DBTableView1.DataContr…

//判断是否是数字 function IsNumeric(sDestStr: string): Boolean; //简写多余汉字 function SimplifyWord(sWord: string; iMaxLen: Integer): string; //读写取注册表中的字符串值 function ReadRegStr(sDWName, KeyName: string; SvrBZ: TSvrOrClient; DefaultValue: string = ''): string; pr…

IWServerController.HistoryEnabled := True; //使浏览器后退.前进按钮有效TIWForm2.Create(WebApplication).Show;  //建立并显示 TIWForm2; 执行后 WebApplication.ActiveForm 就从 TIWForm1 变为 TIWForm2,从第一个页面跳到第二个页面.release //释放,返回主界面.释放后, TIWForm1 就出来了, 达到了返回的目的,//为什么 IW 提倡使用 Relea…

procedure TForm1.Button2Click(Sender: TObject); var R: Variant; begin R := MemTableEh1.Lookup('Name',Edit1.Text,'Name'); if not VarIsNull(R) then ShowMessage(R); end;…