码迷,mamicode.com
首页 > Windows程序 > 详细

delphi中我用定时器每隔一段时间执行操作

时间:2019-10-27 15:03:52      阅读:270      评论:0      收藏:0      [点我收藏+]

标签:unit   ffffff   nbsp   ecs   highlight   err   一个   creat   ide   

delphi中,我用定时器每隔一段时间执行数据库插入及更新工作!
adoquery.close;
adoquery.sql.cleare;
adoquery.connection:=con1;
adoquery.sql.add(‘exec addery‘);
execsql;
上面的基本语句!
我的问题是:定时器执行时,在软件界面就会很卡,无法操作!请问是不是需要创建一个线程才能处理卡的问题呢?请大神们帮帮忙!非常感谢!如果是需要写线程,更希望能把线程也写出来!非常感谢!

 

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, DB, ADODB;

type
TForm1 = class(TForm)
BitBtn1: TBitBtn;
ADOConnection1: TADOConnection;
procedure BitBtn1Click(Sender: TObject);
private
public
end;

Type
TAdoExec = Class(TThread)
Private
Public
Protected
Procedure Execute; Override;
End;

var
Form1: TForm1;

implementation

uses ActiveX;

{$R *.dfm}

{ TAdoExec }

procedure TAdoExec.Execute;
begin
Inherited;
ActiveX.CoInitialize(Nil);
Try
With TADOQuery.Create(Nil) Do
Begin
ConnectionString :=
‘Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=TEST;Data Source=.‘;
SQL.Add(‘Select * From Tree‘);
ExecSQL;
Free;
End;
Finally
ActiveX.CoUninitialize;
Terminate;
End;
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
TAdoExec.Create(False);
end;

end.

delphi中我用定时器每隔一段时间执行操作

标签:unit   ffffff   nbsp   ecs   highlight   err   一个   creat   ide   

原文地址:https://www.cnblogs.com/jijm123/p/11747258.html

(0)
(0)
   
举报
评论 一句话评论(0
登录后才能评论!
© 2014 mamicode.com 版权所有  联系我们:gaon5@hotmail.com
迷上了代码!