一; delphi 快速导出excel   uses ComObj,clipbrd;   function ToExcel(sfilename:string; ADOQuery:TADOQuery):boolean; const xlNormal=-4143; var y : integer; tsList : TStringList; s,filename :string; aSheet :Variant; excel :OleVariant; savedialog :tsavedialog;

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

.xls格式导出,uses中添加cxGridExportLink 代码如下: function SaveToExcel(gridMain: TcxGrid; FileName: string): string; var SaveFileDialog: TSaveDialog; begin //示例:SaveToExcel(dxDBGrid1,'默认文件名'); SaveFileDialog := TSaveDialog.Create(nil); SaveFileDialog.FileName :

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

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

从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

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; 此时,把存储过程中生成的二个数据集分别

//fromhttp://kingron.myetang.com/zsfunc12.htm (*//标题:处理数据网格的编辑框说明:示例添加焦点颜色;获取还没有提交到数据集的字段文本设计:Zswang日期:2002-03-31支持:wjhu111@21cn.com//*) ///////Begin   Sourcefunction   GetDBGridEdit(mDBGrid:   TDBGrid):   TEdit;var    I:   Integer;begin    Result   

function GetcdsAccountsData: OleVariant; var ASQLQuery: TSQLQuery; Adsp: TProvider; begin ASQLQuery:=CreateSQLQuery; Adsp:=TProvider.Create(nil); with ASQLQuery do try SQL.Add('Select AccID, pAccID, AccName, AccFullName, Explan, Grade, Property, Deta

dst_temp.last ;//最后一条dst_temp.first ;//第一条dst_temp.next ;//下一条dst_temp.prior;//上一条

//取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

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

[<zw版·Halcon与delphi系列原创教程>zw_halcon人脸识别 经常有用户问,halcon人脸识别方面的问题. 可能是cv在人脸识别.车牌识别方面的投入太多了. 其实,人脸识别.车牌识别,只是图像处理,机器视觉一个很小的领域,对于halcon而言,非常简单. 人脸识别.车牌识别,ocr.汉字识别原理.算法都差不多,自己建库就可以了. halcon与cv不同,面对的是工业(超市)流水线,建库基本是全自动的,扫描一下,和二维码差不多,就自动生成了相关的模型库. 非常简单,halco

本文对应<R语言实战>前3章,因为里面大部分内容已经比较熟悉,所以在这里只是起一个索引的作用. 第1章       R语言介绍 获取帮助函数 help(), ? 查看函数帮助 example() 使用函数示例 vignette() 列出vignette文档 vignette("svmdoc") 打开对应文档 管理工作空间 getwd() 显示当前工作目录 setwd("mydirectory") 修改当前工作目录为mydirectory rm(objec

(*//标题:Delphi中建议使用的语句整理:Zswang连接:http://www.csdn.net/Expert/TopicView1.asp?id=724036日期:2002-06-22支持:wjhu111#21cn.com//*) { No.1 判断逻辑类型 }var B: Boolean;begin  B := Boolean(2); //这样只是为了调试//B := True;  if B = True then ShowMessage('B = True'); //不建议//不安

 Delphi连接Oracle控件ODAC的安装及使用 2010-08-13 01:13:37 标签:Oracle Delphi 控件 休闲 ODAC 原创作品,允许转载,转载时请务必以超链接形式标明文章 原始出处 .作者信息和本声明.否则将追究法律责任.http://gang4415.blog.51cto.com/225775/373087 Delphi连接Oracle有很多种方式,但大多要在客户机上安装Oracle那庞大的客户端,比较不方便,使用ODAC控件连接Oracle则免去了这些麻烦.

在许多数据表中,数据是以代码方式存放的,如在班级编码数据表tB03(表5．5)中,系部字段TB0309采用编码方式存放,系部真实名称则存放在系部编码表TB06.使用代码的好处是,用户可在编码表TB06中改变TB0602字段的系部名称,而不会影响使用该编码的其他数据表(如TB03)的运行6其缺点是当用户输人数据编码时,必须查询编码所表示的含义,如“OO"代表“基础部”.“1 O”表示“机械系"等,这给数据录入带来很大的麻烦.最好的方法是用户 在程序界面中直接选择系部名称,而实际录入的是系

Xe5开发web服务端和手机客户端 ------------------------------------- Delphi xe5作为最新开发利器,就类似如当年的DELPHI,功能强大,快发速度快,把VS2012远远甩在后面.下面以一个小例作为您开启新的历程: 建立一个webservices  stand-alone vcl application 作为手机访问的服务端 1.new->other->webservices 2.选择 stand-alone vcl application 3.