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;