在登陆窗口中,combobox显示数据库中的用户名,并用到了以下句子:
procedure TLogin.ComboBox1DropDown(Sender: TObject);
var
i:integer;
begin
Adoquery1.Close;
Adoquery1.SQL.Clear;
Adoquery1.SQL.Add('select 姓名 from 用户清单');
Adoquery1.Open;
while not adoquery1.Eof do
begin
combobox1.Items.Add(adoquery1.fieldbyname('姓名').AsString);
adoquery1.Next;
end;
end;
现在的问题是数据库中只有sys一个用户,但每次点击combobox都会增加一个sys用户选项,
procedure TLogin.ComboBox1DropDown(Sender: TObject);
var
i:integer;
begin
Adoquery1.Close;
Adoquery1.SQL.Clear;
Adoquery1.SQL.Add('select 姓名 from 用户清单');
Adoquery1.Open;
while not adoquery1.Eof do
begin
combobox1.Items.Add(adoquery1.fieldbyname('姓名').AsString);
adoquery1.Next;
end;
end;
现在的问题是数据库中只有sys一个用户,但每次点击combobox都会增加一个sys用户选项,
解决方案 »
- DBGride 一个字段分两部分显示两个子表字段
- delphi的ADO联接到mysql,为什么在TDBgrid里数据里的汉字都变成了问号了啊
- delphi和C的数据兼容...
- 函数请教
- prosessmessages函数怎么用?
- 求列名无效的解决方式
- 超级疑难问题!!急!如何在delphi自带的paradox里检索一条语句,没人帮忙吗,都扔了200分拉
- idhttp 居然获取不到HttpOnly的cookie?有没有大神知道获取HttpOnly的Cookie的方法
- 菜鸟发问:远程控制鼠标键盘...
- 如何截获从网络上传给本地一个应用程序的数据包?
- 大神帮小弟解决下这个问题 万分感谢
- sql如何去除为0的数据,如图
var
i:integer;
begin
combobox1.Items.Clear;
Adoquery1.Close;
Adoquery1.SQL.Clear;
Adoquery1.SQL.Add('select 姓名 from 用户清单');
Adoquery1.Open;
while not adoquery1.Eof do
begin
combobox1.Items.Add(adoquery1.fieldbyname('姓名').AsString);
adoquery1.Next;
end;
end;
建议在From.OnCreat事件中,加入上述代码。代码只执行一次。