//操作员列表 CBoxCzy.Items.Clear; with MyDBConnForm.ADOQuery_Czy_D do begin Close; Sql.Clear; Sql.Add('Select czybh,czyxm'); Sql.Add('from t_czygl'); Sql.Add('order by czybh'); open; while not eof do begin CBoxCzy.Items.Add(FieldByName('czyxm').AsString); next; end; //CBoxCzy.ItemIndex:=0; end;
----------------------------------------------
Delphi 免费组件提供 http://www.delphi-free.com