我有一组SQL查询语句,在ORALCE中可以执行,怎样在DELPHI中用QUERY控件查询出来呢

var

sqlstr:string;

begin

sqlstr:='select PPDGY0401 帐存序列,PPDGY0402 商品编码,dg0102 商品名称,';

query1connection:=自己设置；

query1close;

query1sqlclear;

query1sqladd(sqlstr);

query1open;

end;

//设置最大值和最小值

dijitbyId("recallList_edit_recallStartTime")constraintsmin = minDate;

dijitbyId("recallList_edit_recallStartTime")constraintsmax = maxDate;

//设置完以后，用户选都选不了

//dojo都两年不更新了。。。

利用Delphi建立精确计数器

在Windows中的很多场合下编程（例如工业控制、游戏）中需要比较精确的记时器，本文讨论的是在Delphi下实现记时器的若干方法以及它们的精度控制问题。

在Delphi中最常用的是Timer控件，它的设置和使用都非常方便，理论上它的记时精度可以达到1ms(毫秒)。但是众所周知的，实际上Timer在记时间隔小于50ms之下是精度是十分差的。它只适用于对于精度要求不太高的场合。

这里作者要介绍的是两种利用Windows API函数实现精确记时的方法。第一中方法是利用高性能频率记数（作者本人的称呼）法。利用这种方法要使用两个API函数QueryPerformanceFrequency和QueryPerformanceCounter。QueryPerformanceFrequency函数获得高性能频率记数器的震荡频率。

调用该函数后，函数会将系统频率记数器的震荡频率（每毫秒）保存到一个LargeInteger中。不过利用该函数在几台机器上做过试验，结果都是1193180。读者朋友可以在自己的机器上试一下

QueryPerformanceCounter函数获得系统频率记数器的震荡次数，结果也保存到一个Largenteger中。

很显然，如果在计时中首先使用QueryPerformanceFrequency获得高性能频率记数器每毫秒的震荡次数，然后在计时开始时使用QueryPerformanceCounter函数获得当前系统频率记数器的震荡次数。在计时结束时再调用QueryPerformanceCounter函数获得系统频率记数器的震荡次数。将两者相减，再将结果除以频率记数器每毫秒的震荡次数，就可以获得某一事件经过的准确时间。(次数除以频率等于时间)

另外的一种精确记时器的功能是利用多媒体记时器函数（这也是作者的定义，因为这个系列的函数是在Winmmdll中定义并且是为媒体播放服务的）。

实现多媒体记时器首先要使用timeSetEvent函数建立计时事件。该函数在Delphi中的mmsystempas中有定义，定义如下：

function timeSetEvent(uDelay, uResolution: UINT;

lpFunction: TFNTimeCallBack; dwUser: DWORD; uFlags: UINT): MMRESULT; stdcall

函数定义中参数uDelay定义延迟时间，以毫秒为单位，该参数相当于Timer控件的Interval属性。参数uResolution定义记时精度，如果要求尽可能高的精度，要将该参数设置为0；参数lpFunction定义了timeSetEvent函数的回调函数。该函数相当于一个定时中断处理函数，每当经过一个uDelay长度的时间间隔，该函数就会被调用，编程者可以在该函数中加入相应的处理语句。参数dwUser定义用户自定义的回调值，该值将传递给回调函数。参数uFlags定义定时类型，如果要不间断的记时，该值应设置为1。

如果函数调用成功，在系统中建立了一个多媒体记时器对象，每当经过一个uDelay时间后lpFunction指定的函数都会被调用。同时函数返回一个对象标识，如果不再需要记时器则必须要使用timeKillEvent函数删除记时器对象。

由于Windows是一个多任务的 *** 作系统，因此基于API调用的记时器的精度都会受到其它很多因素的干扰。到底这两中记时器的精度如何，我们来使用以下的程序进行验证：

设置三种记时器（Timer控件、高性能频率记数、多媒体记时器）。将它们的定时间隔设置为10毫秒，让它们不停工作直到达到一个比较长的时间（比如60秒），这样记时器的误差会被累计下来，然后同实际经过的时间相比较，就可以得到它们的精度。

下面是具体的检测程序。

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

StdCtrls, ExtCtrls,mmSystem;

type

TForm1 = class(TForm)

Edit1: TEdit;

Edit2: TEdit;

Edit3: TEdit;

Button1: TButton;

Button2: TButton;

Timer1: TTimer;

procedure FormCreate(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure Timer1Timer(Sender: TObject);

procedure Button2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

actTime1,actTime2:Cardinal;

smmCount,sTimerCount,sPCount:Single;

hTimeID:Integer;

iTen:Integer;

proTimeCallBack:TFNTimeCallBack;

procedure TimeProc(uTimerID, uMessage: UINT;

dwUser, dw1, dw2: DWORD) stdcall;

procedure proEndCount;

implementation

{$R DFM}

//timeSetEvent的回调函数

procedure proEndCount;

begin

actTime2:=GetTickCount-actTime1;

Form1Button2Enabled :=False;

Form1Button1Enabled :=TRue;

Form1Timer1Enabled :=False;

smmCount:=60;

sTimerCount:=60;

spCount:=-1;

timeKillEvent(hTimeID);

end;

procedure TimeProc(uTimerID, uMessage: UINT;

dwUser, dw1, dw2: DWORD) stdcall;

begin

Form1Edit2Text:=FloatToStr(smmCount);

smmCount:=smmCount-001;

end;

procedure TForm1FormCreate(Sender: TObject);

begin

Button1Caption :='开始倒计时';

Button2Caption :='结束倒计时';

Button2Enabled :=False;

Button1Enabled :=True;

Timer1Enabled :=False;

smmCount:=60;

sTimerCount:=60;

sPCount:=60;

end;

procedure TForm1Button1Click(Sender: TObject);

var

lgTick1,lgTick2,lgPer:TLargeInteger;

fTemp:Single;

begin

Button2Enabled :=True;

Button1Enabled :=False;

Timer1Enabled :=True;

Timer1Interval :=10;

proTimeCallback:=TimeProc;

hTimeID:=timeSetEvent(10,0,proTimeCallback,1,1);

actTime1:=GetTickCount;

//获得系统的高性能频率计数器在一毫秒内的震动次数

QueryPerformanceFrequency(lgPer);

fTemp:=lgPer/1000;

iTen:=Trunc(fTemp10);

QueryPerformanceCounter(lgTick1);

lgTick2:=lgTick1;

sPCount:=60;

while sPCount>0 do begin

QueryPerformanceCounter(lgTick2);

//如果时钟震动次数超过10毫秒的次数则刷新Edit3的显示

If lgTick2 - lgTick1 > iTen Then begin

lgTick1 := lgTick2;

sPCount := sPCount - 001;

Edit3Text := FloatToStr(sPCount);

我们知道 win 或winNT都是 多线程 的 *** 作系统 在DELPHI ． 中 我们可以充分利用这一特性 编写出 多线程 的应用程序 对以往在DOS或 位windows下写程序的人来说 多线程 仍然是陌生的 但如同以前我们从DOS下的单任务过渡到windows ． 下的多任务 如今我们又必须过渡到 多线程 领域 毕竟计算机时代是在不断发展的 不过 幸运的是 在DELPHI ． 下进行多线程程序设计并不需要我们去学习庞大的WIN API函数 我们可以利用DELPHI下标准的多线程类TThread来完成我们的工作  TThread是一个abstract（抽象）类 也就是说 并不需要根据TThread来声明变量（而且根据TThread声明的变量也是完全无用） 我们要做的是把TThread作为基类 用继承的形式来生成子类 实际上 根据TThread来写多线程应用程序是非常容易的 下面就是一个基本的继承TThread生成的多线程类 QuerThrd．Pas unitQuerThrd interface uses Classes DBTables type TQueryThreadΚclass（TThread） private fQuery tQuery protected procedureExecute override public constructorCreate（Suspended Boolean Query TQuery） end implementation constructor TQueryThread．Create（Suspended Boolean Query TQuery） begin inheritedCreate（Suspended） fQuery ΚQuery FreeOnTerminate ΚTrue end procedureTQueryThread．Execute begin fQuery．Open end end． 在上面这个简单的例子中 我们构造了一个TThread的子类TQueryThread 用于在后台执行数据库查询 在该类的Create函数中 传递了两个参数Suspended和Query 其中Suspended用于控制线程的运行 如果Suspend为真 TQueryThread类的线程在建立后将立即被悬挂 一直到运行了Resume方法 该线程才会继续执行 Query参数用于接受一个已经存在的Query控件（在窗体中真正的Query控件）而使它在多线程的情况下运行 Execute是最重要的过程 它是类TQueryThread的执行部分 所有需要在这个多线程类中运行的语句都必须写在这个过程里 实际上构造自己的多线程类时 并不需要输入所有的这些代码 选择DELPHI的File菜单下的new选项 再选 TThreadObject 项目 DELPHI就会为你构造基本的程序模块 然后我们可以根据需要再做相应的修改 进程的执行 假设我们已经建立了一个窗体FORM 窗体中有我们将要使用的查询控件Query 那么我们在该单元的USES部分加入上面写的QuerThrd单元 procedureTForm ．Button Click（Sender TObject） begin ｛建立一个运行的进程｝ TQueryThread．Create（False Query ） end 如果这个过程被执行 那么窗体中的查询控件Query 就会自动在多线程的环境下运行查询 注意TQueryThread类中只有Create而没有Free 动态建立类以后又忘记删除是我们常犯的错误之一 不过在这里由于我们指定了FreeOnTerminate（运行完即删除）为真 所以当Execute里的语句执行完后 TQueryThread类占据的内存控件将被自动释放 然而还有一个问题值得我们注意 由于同一时刻可以有多个线程同时运行 那么我们还必须解决好同步的问题 如果几个多线程程序之间没有任何关联 那么它们之间也不会有任何冲突 但实际上 可能同时运行几个多线程的数据库应用程序 由于需要共享相同的数据库资源 我们还需要为Query 增加一个Tsession控件 其实 虽然我们也许没有亲自使用过Session控件 但实际上 在所有的数据库访问时DELPHI都会自动建立一个临时的Session控件 使用完后又动态地删除掉它 在平常的数据库编程时 用不着我们亲自来 *** 作 但在数据库多线程执行的情况下 为了不相互冲突 我们必须为每个数据库访问都定制自己的Session控件 这个步骤非常简单 我们只需要在窗体中增加一个Session控件 然后给它的属性 Sessionname 写一个任意的名字 并再在Query 的 Sessionname 中写一个相同的名字 这样我们的数据库程序就安全了 另一类需要解决同步问题的是那些对VCL资源进行 *** 作的程序 这类的程序非常多 好在解决的方法也非常简单 我们可以看下面这样一个程序 unitBncThrd interface uses WinProcs Classes Graphics ExtCtrls type TBounceThreadΚclass（TThread） private FShape TShape FXSpeed Integer FYSpeed Integer procedureMoveShape protected procedureExecute override public constructorCreate（Suspended Boolean Shape TShape XSpeed YSpeed Integer） propertyShape TShapereadFShape end implementation procedureTBouad．MoveShape var MaxHeight MaxWidth Integer begin withFShapedo begin Left ΚLeft＋FXSpeed Top ΚTop＋FYSpeed if（LeftΙ ）or （Left＋WidthΛParent．Width）then FXSpeed ΚFXSpeed＊－ if（TopΙ ）or （Top＋HeightΛParent．Height）then FYSpeed ΚFYSpeed＊－ end end procedureTBounceThread．Execute begin WhilenotTerminateddo begin Synchronize（MoveShape） end end constructorTBounceThread．Create（Suspended Boolean Shape TShape XSpeed YSpeed Integer） begin inheritedCreate（Suspended） FShape ΚShape FXSpeed ΚXSpeed ｛X轴走向的速度｝ FYSpeed ΚYSpeed ｛Y轴走向的速度｝ FreeOnTerminate ΚTrue end end． 这是一个多线程的碰碰球游戏 你可以有多个不同的球 它们分属不同的线程 各自独立的在屏幕上碰撞 显然 由于多个球运行的显示会同时 *** 作VCL资源 为了安全 我们在Execute过程中的执行部分加入了Synchronize（MoveShape）来调用MoveShape过程 实际上 在任何需要 *** 作VCL资源的地方 例如窗体 位图 都应加入Synchronize调用 执行时我们可以新建一个程序 然后在USES部分加入以上的BncThrd单元 再在它的窗体FORM 上加入两个Shape控件Shape 和Shape Shape 可以是一个矩形而Shape 是一个圆 加入以下的代码就可以让矩形和圆动起来 procedureTForm ．Button Click（Sender TObject） begin TBounceThread．Create（False Shape ） TBounceThread．Create（False Shape ） end lishixinzhi/Article/program/Delphi/201311/25059

看一下这个:1:querysqladd('select

max(number)

from

table');查询用

queryfiledbyname('字段名')asstring

的方法显示查询的结果,那么'字段名'应该是什么2:如果1的方法不行,将上面的SQL语句改变一下,将查询的值付给一个变量该怎么写

以上就是关于我有一组SQL查询语句,在ORALCE中可以执行,怎样在DELPHI中用QUERY控件查询出来呢全部的内容，包括:我有一组SQL查询语句,在ORALCE中可以执行,怎样在DELPHI中用QUERY控件查询出来呢、dojo中日历控件怎么做验证，代码如下，不知如何使用，第一次接触dojo、delphi timer的用法等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！