procedure TForm2.FormShow(Sender: TObject);
begin
strSql := 'select * from tabuser' ;
adoWorkerQuery.SQL.Clear ;
adoworkerQuery.SQL.add(strSql);
adoWorkerQuery.Open ;
adoWorkerQuery.Refresh ;
while not adoWorkerQuery.Recordset.EOF do
begin strWorkerName := adoWorkerQuery.FieldByName('userid').AsString ;
showmessage(strWorkerName);//此处发现虽然数据集指针已经移 动,但是取出的数据仍然是第一条记录的。
cboWorker.AddItem(strWorkerName,cboWorker);
adoWorkerQuery.Recordset.MoveNext ; end;
adoWorkerQuery.Close ;
end;
begin
strSql := 'select * from tabuser' ;
adoWorkerQuery.SQL.Clear ;
adoworkerQuery.SQL.add(strSql);
adoWorkerQuery.Open ;
adoWorkerQuery.Refresh ;
while not adoWorkerQuery.Recordset.EOF do
begin strWorkerName := adoWorkerQuery.FieldByName('userid').AsString ;
showmessage(strWorkerName);//此处发现虽然数据集指针已经移 动,但是取出的数据仍然是第一条记录的。
cboWorker.AddItem(strWorkerName,cboWorker);
adoWorkerQuery.Recordset.MoveNext ; end;
adoWorkerQuery.Close ;
end;
加如一条adoquery.next