我放了工程中4个Timer控件,timer1、timer2、timer3的ONtimer事件都写有语句,这些语句都会在工程运行时运行:
timer1.active:=true;
timer2.active:=true;
timer3.active:=true;
而timer4的ontimer事件的语句(用来判断当网络又正常连接时,自动连接数据库),但在工程运行时不运行,只用当执行timer1、timer2、timer3的ONtimer事件中的语句出现异常(很可能因为网络断开连接,数据库连接不上)时,才会被执行,并停止执行timer1、timer2、timer3ONtimer事件中的 语句。当连接数据库又连接上时,自动停止执行timer4的ontimer事件的语句,timer1、timer2、timer3的ONtimer事件中的语句又重新自动运行。我想问的是timer4的ontimer中的语句结构怎样写?怎样自动停止timer4的运行?急!急!急!procedure TForm1.Timer1Timer(Sender: TObject);
begin
try
(执行语句)
except
timer4.active:=true;
end;
end;procedure TForm1.Timer2Timer(Sender: TObject);
begin
try
(执行语句)
except
timer4.active:=true;
end;
end;procedure TForm1.Timer3Timer(Sender: TObject);
begin
try
(执行语句)
except
timer4.active:=true;
end;
end;procedure TForm1.Timer4Timer(Sender: TObject);//关键是timer4中的语句结构怎样写?怎样在数据库连接正常时停止执行timer4,自动运行timer1、timer2、timer3,语句结构怎样写?
begin ?end;
timer1.active:=true;
timer2.active:=true;
timer3.active:=true;
而timer4的ontimer事件的语句(用来判断当网络又正常连接时,自动连接数据库),但在工程运行时不运行,只用当执行timer1、timer2、timer3的ONtimer事件中的语句出现异常(很可能因为网络断开连接,数据库连接不上)时,才会被执行,并停止执行timer1、timer2、timer3ONtimer事件中的 语句。当连接数据库又连接上时,自动停止执行timer4的ontimer事件的语句,timer1、timer2、timer3的ONtimer事件中的语句又重新自动运行。我想问的是timer4的ontimer中的语句结构怎样写?怎样自动停止timer4的运行?急!急!急!procedure TForm1.Timer1Timer(Sender: TObject);
begin
try
(执行语句)
except
timer4.active:=true;
end;
end;procedure TForm1.Timer2Timer(Sender: TObject);
begin
try
(执行语句)
except
timer4.active:=true;
end;
end;procedure TForm1.Timer3Timer(Sender: TObject);
begin
try
(执行语句)
except
timer4.active:=true;
end;
end;procedure TForm1.Timer4Timer(Sender: TObject);//关键是timer4中的语句结构怎样写?怎样在数据库连接正常时停止执行timer4,自动运行timer1、timer2、timer3,语句结构怎样写?
begin ?end;
解决方案 »
- 如何比较_FileTime
- 如何在同一端口上传输不同的数据类型?
- 散分11(鄙视wintergoes坐我沙发)
- ADOConnection连接问题
- 请问大师们,DLL 和 Package在Delphi框架设计里,那个好?
- 数据显示删除问题?
- 如何判断一个子窗口获得焦点??急用?
- 那里可以下的到DDK阿,还有Delphi到底能不能开发驱动阿?
- dbgrid更新?另开一个form添加数据后主dbgrid不能更新?
- [Error] RLINK32: Error opening file "C:\testpas.DFM"
- 数据库insert delphi中
- 【adoquery.open执行时,timer不能执行!】
begin
if (数据库正常连接) then
begin
timer4.active := False;
timer1.active := True;
timer2.active := True;
timer3.active := True;
end else
begin
//连接数据库
end
?end;
begin
while 数据库没连上 do
begin
重连数据库
end;
if timer1.enable= false then
begin
timer1.enable:=true;
end;
if timer2.enable= false then
begin
timer2.enable:=true;
end;
if timer3.enable= false then
begin
timer3.enable:=true;
end;end