Question

delphi7如何让combobox的默认为第一个sql server数据库读出来的 第一个。

另外delphi我刚刚接触，有很多这种小细节不会处理，有没有哪位大虾，留个QQ让我请教请教， 感激不尽............

Answer 1

combobox1.Clear;
ADOQuery.Close; //控件 TADOQuery关闭
ADOQuery.SQl.Clear;
ADOQuery.SQL.Text:='select fl_login_name,fl_password from te_userright';
ADOQuery.Open;
while not ADOQuery.Eof do
begin
combobox1.Items.Add(ADOQuery.FieldValues['fl_login_name']);
ADOQuery.Next;
end;
combobox1.Text:='请选择';
combobox1.ItemIndex(1); // 0为第一个, 类推...

Answer 2

设置itemindex

追问

combobox1.Clear;
ADOQuery.Close; //控件 TADOQuery关闭
ADOQuery.SQl.Clear;
ADOQuery.SQL.Text:='select fl_login_name,fl_password from te_userright';
ADOQuery.Open;
while not ADOQuery.Eof do
begin
combobox1.Items.Add(ADOQuery.FieldValues['fl_login_name']);
combobox1.ItemIndex(2);
combobox1.Text:='请选择';
ADOQuery.Next;
end;
大虾，请问具体怎么写？