Delphi Combox 显示用户列表（表中所有项）
指尖风暴 直接上代码：
- procedure TForm1.FormCreate(Sender: TObject);
- begin
- ADOQuery1.Close;
- ADOQuery1.SQL.Clear;
- ADOQuery1.SQL.Text:='select Fuser from admin';
- AdoQuery1.Open;
- ComboBox1.Items.Clear;
- while not AdoQuery1.eof do
- begin
- ComboBox1.Items.Add(AdoQuery1.fieldbyname('Fuser').AsString);
- AdoQuery1.next;
- end;
- end;
声明：本站所有文章，如无特殊说明或标注，均为本站原创发布。任何个人或组织，在未征得本站同意时，禁止复制、盗用、采集、发布本站内容到任何网站、书籍等各类媒体平台。如若本站内容侵犯了原著者的合法权益，可联系我们进行处理。
