uquerythread.pas

来自「行业应急系统 包括: 应急系统（待遇核发） 发放系统 开」· PAS 代码 · 共 58 行

unit uQueryThread;

interface

uses
  Classes, db, dbTables;

type
  TQueryThread = class(TThread)
    qryYJBZ: TQuery;
  private
    { Private declarations }
  protected
    procedure Execute; override;
  public
    constructor Create;
  end;

implementation

{ Important: Methods and properties of objects in VCL can only be used in a
  method called using Synchronize, for example,

      Synchronize(UpdateCaption);

  and UpdateCaption could look like,

    procedure TQueryThread.UpdateCaption;
    begin
      Form1.Caption := 'Updated in a thread';
    end; }

{ TQueryThread }

constructor TQueryThread.Create;
begin
  qryYJBZ := TQuery.Create(Application);
  FreeOnTerminate := True;
  inherited Create(False);
end;

procedure TQueryThread.Execute;
begin
  with qryYJBZ then
    try
    Synchronize();
    while (not Terminated) or (FieldByName().AsInteger = 1) do
    begin

    end;
  finally
    Free;
  end;
end;

end.