Delphi Combox 显示用户列表(表中所有项)

直接上代码:

  1. procedure TForm1.FormCreate(Sender: TObject);  
  2. begin  
  3.   ADOQuery1.Close;  
  4.   ADOQuery1.SQL.Clear;  
  5.   ADOQuery1.SQL.Text:=’select Fuser from admin’;  
  6.   AdoQuery1.Open;  
  7.   
  8.   
  9.   ComboBox1.Items.Clear;  
  10.   while not AdoQuery1.eof do  
  11.   begin  
  12.     ComboBox1.Items.Add(AdoQuery1.fieldbyname(‘Fuser’).AsString);  
  13.     AdoQuery1.next;  
  14.   end;  
  15.   
  16. end;  

发表回复

登录... 后才能评论