开始研究最重要的多线程读写全局数据了,结合书上的例子,我修改成下面的情况: unit Tst_Thread3U;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton; Memo1: TMemo; Button2: TButton; Button3: TButton; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObjec...
本文内容严重参考了网上其他牛人的代码,并做了一些修改,使得参数更加简单,结构更清晰,所以就厚着脸皮说是原创。 uses DBGridEhImpExp;procedure TFrm_func.DbGridEhToExcel(ADgEh: TDBGridEh);var ExpClass: TDBGridEhExportclass; Ext: string; FSaveDialog: TSaveDialog;begin try if ADgEh.DataSource.DataSet.IsEmpty then begin Application.MessageBox(PChar(‘没有可导出的数据‘), PChar(‘提示‘), MB...
DELPHI 数据库连接类做的时候目地是可以通过类的创建和释放进行数据库的短连接,在做服务端的时候每一个请求都通过类生成一个数据连接unit UnDm;interfaceusesSysUtils, Classes, Controls, Forms, Dialogs,ComCtrls, ExtCtrls, Menus, StdCtrls,ADODB,DB,inifiles;typeTRecordResult = (RRError, RRZero, RROK);TDataStatus = (DsSel, DsEdit, DsAdd);
typeTDataConnection = classDataAdoConn: TADOConnection;qryTemp1: TADOQue...
25年后从10个使用Delphi的理由到1个至25个使用Delphi 10.3的理由25年前发布Delphi 1时,我汇总了使用Delphi的十大理由。这是我精通Delphi原始书的序言中的原始列表:“可以使用许多编程环境,但是Delphi之所以出色,有很多原因。以下是我以相反顺序使用Delphi的十大理由:10.以前的Borland Pascal和C++编译器9.第三方组件和工具8.编辑器,调试器,浏览器和其他工具7.库源代码的可用性6.基于表单和面向对象的方法5.快速编译器4.数据...
下面的程序,可以实现Android下获取GNSS的NMEA0183数据:unit utAndroidNmea;interfaceuses Androidapi.JNIBridge, Androidapi.JNI.App, Androidapi.NativeActivity, Androidapi.JNI.JavaTypes, Androidapi.JNI.Location;typeTonNmeaReceived=procedure(timestamp: Int64; nmea: String) of Object;TJGpsStatus_NmeaListener = class(TJavaGenericImport<JGpsStatus_NmeaListenerClass, JGpsStatus_NmeaListener>) end;TNmeaProvid...
一般来说,用来扫描整个数据库表并修改每个记录的某一个字段的程序如下所示:with Table DobeginDisableControls;{在修改记录的过程中,使其它部件无效}First; {将记录指针指向第一条记录}while not EOF dobegin<读取记录的一个字段值到一个变量中><做适当的修改>Edit; {将TTable部件置成编辑状态}<将修改后的字段值写回到其对应的字段>post; {将修改后的记录写回数据库}next; {修改下一条记录}end;enablecontrols; {恢复其它部件的...
DBE连接SQL Server显然用ADO或DBEXPRESS更有优势,起码连接起来比较方便。 BDE的话可以用如下方法:(以下以Delphi7为例,其它版本的DELPHI请自己摸索一下,不过基本相差不大) 1.启动Delphi,选择菜单项 Database->Explorer,在左侧Database列表里面右键,选择New,在弹出的驱动对话框里面选择MSSQL,确定,然后在左侧可以更改名字,如:TEST,然后在选中TEST在右侧选项里面添入ServerName(服务器名) UserName(登录名) DatabaseName...
//取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.AsString;
//第六种 edit5.Text:=adoquery1name.value;原文:https://www.cnblogs.com/jijm123/p/10125457.html
Delphi中多线程用消息实现VCL数据同步显示Lanno Ckeeke 2006-5-12概述:delphi中严格区分主线程和子主线程,主线程负责GUI的更新,子线程负责数据运算,当数据运行完毕后,子线程可以向主线程式发送消息,以便通知其将VCL中的数据更新。实现:关键在于消息的发送及接收。在消息结构Tmessage中wParam和lParam类型为Longint,而指针类型也定义为Longint,可以通过此指针来传递自己所感兴趣的数据。如传递字符数组:数组定义:const M...
方法一:delphi中递归算法构建treeView过程:通过读取数据库中table1的数据,来构建一颗树。table1有两个字段:ID,preID,即当前结点标志和父结点标志。所以整个树的表示为父母表示法。本递归算法不难写,但是要注意:程序内部的变量都应使用局部变量!比如当Query是外部变量(函数外定义或者直接通过控件拖拽得来)时就会得到错误的结果。代码如下: unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, ...
方法一:delphi中递归算法构建treeView过程:通过读取数据库中table1的数据,来构建一颗树。table1有两个字段:ID,preID,即当前结点标志和父结点标志。所以整个树的表示为父母表示法。本递归算法不难写,但是要注意:程序内部的变量都应使用局部变量!比如当Query是外部变量(函数外定义或者直接通过控件拖拽得来)时就会得到错误的结果。代码如下: unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, ...
在Delphi中动态建立数据库结构 刘军发-------------------------------------------------------------------------------- 一、问题的提出在程序运行过程中动态建立数据库结构是我们编写功能通用的数据库管理系统常见的问题。通用数据库管理系统开发的基本思路是:系统允许用户自行设定管理对象的数据库结构,然后通过算法和编程技巧,在用户设定完成后动态创建管理对象的数据库结构和完成系统功能的一些其它数据,这样可以满足不同用...
参考http://www.cnblogs.com/del/archive/2007/12/04/982167.html在学习之初,在这么多的数据类型中,最好记住这五种标准数据类型(整型、实型、字符型、字符串型、布尔类型)和这五种类型中的最常用的类型,其他类型在以后的学习中会较快记住 其中,最常用的整型为Integer(4个字节,每个字节8位),它能满足绝大部分运算要求。 描述存储各种实数数据的类型为实型。所谓实数就是以小数形式表示的数或者以科学技术法表示的数...
一、概述 Delphi作为Windows下的一种快速开发工具,不仅能开发一般的Windows应用程序,而且还具有强大的数据库应用程序开发功能。Delphi本身提供了对BDE,ODBC,ADO和InterBase几种数据库驱动的支持,能够满足不同应用对数据库程序开发的需要。 然而,在发布用Delphi开发的数据库程序时,除了要安装应用程序之外,还需要同时发布数据库驱动程序。这对于一些只涉及单个或多个简单表数据存储的单机应用程序来说,就显得有点头...
1 unit Unit2;2 3 interface4 5 uses6 Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,7 Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Data.DB, Data.Win.ADODB, Vcl.Grids,8 Vcl.DBGrids, Vcl.ComCtrls, Vcl.StdCtrls;9 10 type11 TForm2 = class(TForm)12 TreeView1: TTreeView;13 DBGrid1: TDBGrid;14 ADOConnection1: TADOConnection;15 ADOQuery1: TA...