一个关于数据显示和删除的问题，请各位大侠照顾一下第一次发贴的新手好吗？^_^

Question

界面是这样的：用户名（Label1）：ComboBox1（控件） 删除（按钮）要求把数据库里Username这个字段的内容显示在ComboBox1上，然后通过选择要删除的用户名，电击删除之后就将记录从数据库中删掉。小弟刚刚开始学DELPHI，很多都不懂。今天也是第一次发贴，希望各位大侠能帮小弟一下。还有，那位热心的大侠能收下我做徒弟吗？

Answer 1

Query1.Sql.Text:=('Delete From Table1 Where Username='''+ComboBox1.Text+'''');

Answer 2

我用的是ADO连接ACCESS数据库，然后加一个ADOTABLE控件。 DONKEY_1，你能告诉我1、怎么先将数据库的内容显示出来，2，将选定的记录删除。delphi_han，纯属手误，嘿嘿~~~

Answer 3

AdoQuery1.Sql.Clear;
AdoQuery1.Sql.Text:=('Select Username From Table1');
AdoQuery1.Open;
If Not AdoQuery1.Isempty Then
  Begin
    ComboBox1.Items.Clear;
    while Not AdoQuery1.Eof Do
      Begin
        ComboBox1.Items.Add(AdoQuery1['UserName'];
        AdoQuery1.Next;
      End;
  End;

Answer 4

1.将数据库的内容显示出来
在窗体构建时：
var 
i:integer;//根据数据字段类型选择类型，这里用integer举例；
j:integer;//用于循环；
begin
  adotable1.first;
  i:=adotable.fields[n].value;//获得所要的字段值；
  for j:=1 to adotable1.recordcount do
    begin
      if adotable1.fields[n].value<>i then
         begin
           combobox1.items.add(adotable1.fields[n].value.asstring);//add items;
           i:=adotable.fields[n].value;//避免combobox.items.text有重复值；
          end;
      adotable1.next;    
    end;
end;
2.将选定的记录删除
var j:integer;
for j:=1 to adotable1.recordcount do
  begin
    if adotable1.fields[n].value=combobox1.text then
       adotable1.delete
    else
       adotable1.next;  
  end; 
分太少了。

Answer 5

上面注释//add items；位置不够，一定要同一行。

Answer 6

loser02(loser),不好意思，因为我是新手，看看本来分那么少，想想自己肯定还会有很多问题要问，就舍不得给太多分，而且我以为这样的问题对于高手来说很简单。真的不是我小气，下次有问题我一定给多点分。然后，很谢谢你的解答，我想对我来说会很有用的。同时也谢谢DONKEY_1的解答。希望大家以后多帮助新手啊，谢谢谢谢谢谢谢谢谢谢！！！！