dbgrid的記錄自動一行一行往下滾動，滾到最后面重新從第一條記錄再次往下滾動，如何實作，請附代碼
uj5u.com熱心網友回復：
timer1.ontimebegin
if not adodataset.eof then
begin
adodataset.next
if adodataset.eof then
adodataset..first
end;
end;
while not adodataset.eof do
begin
adodataset.next
if adodataset.eof then
adodataset..first
sleep(10000)
end;
雖然不知道你這需求是干啥用的
大概也就這樣實作吧
定時器和死回圈兩種方式
沒測驗
不對勿噴
uj5u.com熱心網友回復：
就是要做一個顯示屏看板功能，如果再加上每5分鐘定時重繪資料，要怎么搞？
uj5u.com熱心網友回復：
procedure TForm1.Timer1Timer(Sender: TObject);begin
ADODataSet1.Next;
if ADODataSet1.Eof then
ADODataSet1.First;
end;
uj5u.com熱心網友回復：
一、在From1上放置Timer;（1）設定InterVal=500；
（2）設定Enabled=False;
（3）設定Timer1.Ttimer事件代碼
procedure TPreserveFrm.Timer1Timer(Sender: TObject);
begin
With DBGrid1.DataSource.DataSet do
begin
Next;
if Eof then First;
end;
end;
二、放二個Button，分別為“開啟”和“關閉”按鈕
procedure TPreserveFrm.Button142Click(Sender: TObject);
begin
Timer1.Enabled:=True;
end;
procedure TPreserveFrm.Button143Click(Sender: TObject);
begin
Timer1.Enabled:=False;
end;
運行程式。
點擊“開啟”按鈕，DBGrid資料開始翻滾。
點擊“關閉”按鈕，DBGrid資料停止翻滾。
代碼已經測驗。
uj5u.com熱心網友回復：
上述代碼，運行前題：Form上有一個打開資料的DBGrid1表。轉載請註明出處，本文鏈接：https://www.uj5u.com/houduan/90313.html
標籤：VCL組件開發及應用