combobox问题(20分)

  • 主题发起人 主题发起人 dql_77
  • 开始时间 开始时间
D

dql_77

Unregistered / Unconfirmed
GUEST, unregistred user!
combobox1用于选择用户名的,我有一个数据库,数据库中有user表,表有用户名,密码等
字段,请问要把数据库user表中的用户名全部添加到combobox1中,请问如何实现。最好有代码。
谢谢!!
 
procedure p_inicombobox()
var
ls_sql,ls_item:String
lq_query:TQuery;
begin
ls_sql:='select c_user_name from t_user';
lq_query:=DM.pub_query;
with lq_query do
begin
close;
sql.clear;
sql.text:=ls_sql;
open;
end;
if lq_query.recordcount>0 then
begin
while (not lq_query.eof) do
begin
ls_item:=lq_query.fieldbyname('c_user_name').AsString;
combobox1.items.add(ls_item);
lq_query.next;
end;
end;
end
 
the answer is :
[8D][8D][8D][8D][8D][8D][8D]
procedure TForm1.Button1Click(Sender: TObject);

begin
table1.Open;
while not table1.Eof do
begin
combobox1.Items.Add(table1.Fieldbyname('name').AsString);
table1.Next ;
end;
end;
[8D][8D][8D][8D][8D][8D][8D]
 
何必这么麻烦,有很多第三方的控件可以解决这个问题,比如InfoPower或Rx,而且功能还
比较强大!
 
用一个TABLE联接USER表,代码如下:
table1.open;
table1.first;
while not table1.eof do
begin
combobox1.items.add(table1.fieldbyname('用户名').value;
table1.next;
end;
 
dbcombobox不就可以了?
 
后退
顶部