一.我们定义一个简单的类 TPeople = class private FName: string; FScore: Integer; FAge: TDateTime; public property Name: string read FName write FName; property Score: Integer read FScore write FScore; property Age: TDateTime read FAge write FAge; end; 二.我们写下如下De

\Delphi 6数据库开发典型实例\图表的绘制 1.在主窗体里面打开子窗体:ShowForm(Tfrm_Print); procedure Tfrm_Main.ShowForm(AFormClass:TFormClass); begin with AFormClass.Create(Self) do try ShowModal; // 阻塞或者模态窗口,只有你把当前窗口关闭后,才能去操作父亲窗口. finally Free; end; end; //这个例子打开有异常,提示单元chart 引用

一.有必要了解INI文件的结构: ;注释 [小节名] 关键字=值 ... ---- INI文件允许有多个小节,每个小节又允许有多个关键字, “=”后面是该关键字的值. ---- 值的类型有三种:字符串.整型数值和布尔值.其中字符串存贮在INI文件中时没有引号,布尔真值用1表示,布尔假值用0表示. ---- 注释以分号“;”开头. 二.定义 ---- 1.在Interface的Uses节增加IniFiles: ---- 2.在Var变量定义部分增加一行: myinifile:Tinifile; -

ADO多线程数据库查询通常会出现3个问题: 1.CoInitialize 没有调用(CoInitialize was not called):所以,在使用任何dbGo对象前,必须手 调用CoInitialize和CoUninitialize.调用CoInitialize失败会产生"CoInitialize was not called"例外. 2.画布不允许绘画(Canvas does not allow drawing):所以,必须通过Synchronize过程来通知主线程访问主窗体

ADO多线程数据库查询通常会出现3个问题: 1.CoInitialize 没有调用(CoInitialize was not called):所以,在使用任何dbGo对象前,必须手 调用CoInitialize和CoUninitialize.调用CoInitialize失败会产生"CoInitialize was not called"例外. 2.画布不允许绘画(Canvas does not allow drawing):所以,必须通过Synchronize过程来通知主线程访问主窗体

procedure TForm1.Button1Click(Sender: TObject); // 插入图片过程 var Stream:TMemoryStream;begin try Stream := TMemoryStream.Create; // 创建内存流Image1.Picture.Graphic.SaveToStream(Stream); // 将图片保存到内存流中adoquery1.Close; adoquery1.SQL.Clear; adoQuery1.SQL.Add('In

procedure TUIOperate.FillTree(treeview: TTreeView); var   findq: TADOQuery;   node: TTreeNode;     //这个方法是根据记录的id字段值,查找TreeView上的父节点   function FindParentNode(id:Integer):TTreeNode;   var     i:Integer;   begin     Result := nil;     for i := 0 to tr

我单机确定还会显示窗体?? Application.Terminate;

樊伟胜

function ReplaceString(AString: string): string; begin Result := StringReplace(AString, '&', '&', [rfReplaceAll]); Result := StringReplace(Result, '>', '>', [rfReplaceAll]); Result := StringReplace(Result, '<', '<', [rfReplaceAll]); en

http://www.360doc.com/content/16/1128/19/28222077_610249962.shtml 利用Delphi的File Of Type创建并管理属于你自己的数据库 2016-11-28  疯魔狂徒...  转自 aaie_ 修改   微信分享:   前言 在程序中,我们需要用一个途径去把一些有规律的信息存储在磁盘上.不能用TXT格式的文件──因为它不是基于"记录"的,而且管理很不方便. BDE或ADO也就是说Paradox.Access--唉,不

2014年9月,delphi xe7 出来了,这次在数据库技术方面,彻底抛掉了从1995 年 delphi 1.0 就自带的(Borland Database Engine)数据库访问技术.从而宣告了这个持续 了20余年delphi 访问数据库技术进入历史. 纵观delphi 数据库技术的20年发展史,其实也是delphi 的发展史.通过数据库技术的 变化,也可以了解delphi的发展历史及未来的方向. 一. 话说当初 Delphi 1.0 是16 位的编译器,当时的互联网几乎是不存在,拿到的第

Delphi数据库处理 第一节 BDE.ADO.InterBase和dbExpress Delphi中处理数据库主要有两种方法,也就是BDE.ADO,从Delphi 6.0开始还加入了一种dbExpress方法.另外,Delphi还提供了专门处理Borland 公司自己的数据库产品InterBase 数据库的专门的方法. BDE(Borland Databas Engine),是Delphi中最古老的技术,从delphi 2.0加入BDE 技术以后,一直是Delphi处理数据库的事实上的标准.B

第16章 Delphi数据库程序设计----使用BDE组件 Delphi访问数据库的方式有:ADO.BDE.dbExpress.InterBase Express. 一.TDataSet组件 虽然Delphi有多种方式访问数据库,但它们必须依赖TDataSet.它用来显示从数据库单一或多个数据表取得的所有记录. 1.TDataSet常用属性 Active:指定或取得DataSet是否为打开状态.为True时,相当于调用Open. Bof.Eof:Bof检测DataSet是否停在第一条记录.Eof

TField对象的SetText和GetText事件处理函数 使用TField对象的SetText和GetText事件处理函数可方便的解决字段的代码与代码所对应值的显示问题 TSimpleDataset/TClientDataset对象的Aggregation 使用TDataset对象的Aggregate属性可以来计算客户端数据集中数据的总计数值.平均值或是计算最大值和最小值. 使用TBookMark来标记记录书签, 访问数据集中的数据 通过使用TBookMark以及TDataset对象的 Bo

DELPHI 把数据库中的数据转换成XML格式 function ReplaceString(AString: string): string; begin Result := StringReplace(AString, '&', '&', [rfReplaceAll]); Result := StringReplace(Result, '>', '>', [rfReplaceAll]); Result := StringReplace(Result, '<', '&l

http://www.delphifans.com/infoview/Article_730.html日期:2006年2月20日 作者:潇潇2003 人气:5602 查看:[大字体 中字体 小字体] 1．引言 在利用Delphi开发应用程序的时候,通常我们要设计出很多各种格式的文档.报表,经常要进行文件的创建.编辑及修改,虽然Delphi本身提供了很多设计报表的控件或方法,但是存在明显的不足,比如中文输入,数据格式的控制等操作起来比较麻烦.利用大家都很熟悉的Office工具结合开发,能够很好的解

基于Delphi的三层数据库系统的实现方法   1  引言 当前的数据库应用系统中,按其结构划分为两类,一类是两层结构的数据库应系统,另一类是多层结构的数据库应用系统. 两层结构的数据库应用系统包括客户/服务器(C/S)模式和浏览器/服务器(B/S)模式,它的特点是数据和程序分离,数据库服务器端管理数据,客户机或浏览器显示.访问和更新数据,因此可以分别进行开发和维护,同时也降低了数据库服务器的工作量,减小了网络的流量,具有较强的安全性,但当客户端程序或浏览器较多时,服务器的性能会明显下降,而且应

Fastreport使用经验(转) 在Delphi程序中访问报表对象 最基本的方法就是frxReport1.FindObject. 然后把返回的对象强制转换成它的类型,当然,在报表中必须真的有这么个东东.如改变一个 Tfrxmemoview的内容,可以这样写TfrxMemoView(frxReport1.FindObject('memo1')).Text:='jade'; 还可以用TfrxReportPage的FindBand方法,这个方法的参数是Band类,如报表抬头就可以直接使用这个方法,因

用Delphi从数据库中取得资料,然后导出到Excel中做成报表是个不错的选择,因为Excel强大的报表功能那可是没话说前提Delphi中要 uses comobj;var Excel:Variant;一.Excel操作1.创建Excel对象Excel := CreateOleObject( Excel.Application );2.显示ExcelExcel.Visible:=true;3.更改标题Excel.Caption:=Excel的标题;4.退出ExcelExcel.Quit;二.工作

以下讨论均基于Delphi XE8,主要是利用DELPHI新版的功能,如:Unicode,泛型,匿名函数等[XE2 后应该都支持]. 用新特性的好处是少写代码,提高效率.本博客不再讨论Delphi旧版,旧版资料太多,无需太多重复. 本博客不讨论第三方控件,因为Delphi没落已成事实,第三方控件很难再去支持新版,但Delphi本身作为非程序员的工具,还是非常合适的. 非程序员要用DELPHI生存(生存是指用Delphi熟练正确地解决问题)下来,请参考以下技能:(本文会不断更内容并加上实例代码)