由于库文件可能在几分钟就要追加一个记录,就是希望程序在30秒钟去扫描一次库。我设个timer1控件,timer1.interval:=3000; table1.First; while not table1.Eof do begin table1.Next; end; ss:=table1.fieldbyname('CZ_01').Value+' '+table1.fieldbyname('CL_05').Value+' '+IntToStr(table1.fieldbyname('GC_07').Value); label2.caption:=ss; 现在遇到的困难就是要求程序在30秒钟访问一次库
if label2.left>4 then label2.left:=label2.left-5 else label2.left:=初始值
table1.First;
while not table1.Eof do
begin
table1.Next;
end;
ss:=table1.fieldbyname('CZ_01').Value+' '+table1.fieldbyname('CL_05').Value+' '+IntToStr(table1.fieldbyname('GC_07').Value);
label2.caption:=ss;
现在遇到的困难就是要求程序在30秒钟访问一次库
label2.left:=label2.left-5
else label2.left:=初始值
每次扫描完成的时候,纪录最大ID,(SELECT MAX(ID)....)
下次扫描大于最大ID的就是新纪录。(SELECT * FROM ... WHERE ID>:OLD_MAX_ID)
应该可以吧,就是不知道效率如何。