Var
I: Integer;
ID: String; //帳號
Begin
Timer1.Enabled := False;
Try
With ListView1, ADOQuery1 Do
Begin
Open; //打開刷新的數據
For I := 0 To Items.Count - 1 Do
Begin
ID := Trim(Items[I].SubItems[0]); //帳號，關鍵字
If ADOQuery1.Locate('帳號', ID, []) Then //定位到數據集，更新
Begin
Items[I].SubItems[1] := ADOQuery1.FieldByName('狀態').AsString;
Items[I].SubItems[2] := ADOQuery1.FieldByName('時間').AsString;
End;
End;
Close;
End;
Finally
Timer1.Enabled := True;
End;
End;