怎样根据ComboBox变化时Edit中的数据也跟着变化

Question

 我想选择combobox中的车牌号，Edit中显示相应的姓名 

Answer 1

ADOQuery1.Edit改为ADOQuery1.Append吧。

Answer 2

>>我想选择combobox中的车牌号，Edit中显示相应的姓名 
在combobox的OnChange事件中根据车牌号查询，然后显示出姓名就行了。

Answer 3

这个怎么写代码？
我这样写不对，要怎么改呢？
procedure TForm1.ComboBox1Change(Sender: TObject);begin
  ComboBox2.ItemIndex:=ComboBox1.ItemIndex;
  ADOQuery1.close;
      ADOQuery1.sql.Clear();
      ADOQuery1.SQL.Add('select    XingMing  from  users  order by ChePaiHao');
      ADOQuery1.Open;
      ComboBox1.Items.Clear  ;
      while  (not  ADOQuery1.Eof)  do
      begin
        ComboBox1.Items.Add(ADOQuery1.FieldByName('ChePaiHao').Text);
        ADOQuery1.Next;
      end; end;

Answer 4

临时ADOQuery变量 ADOQ在combobox的onchanged里ADOQ.SQL.String:= 'select XingMing from users where chepaihao = '''+combobox1.text+'''';
ADOQ.active:= true;if not ADOQ.eof then edit.txt :=  ADOQ.field[0].asstring;

Answer 5

变成这样是吗？可是ADOQuery1.SQL.String:= 'select XingMing from users where chepaihao = '''+combobox1.text+'''';中的String:= 运行时有错
procedure TForm1.ComboBox1Change(Sender: TObject);
begin
  ComboBox2.ItemIndex:=ComboBox1.ItemIndex;
  ADOQuery1.close;
      ADOQuery1.sql.Clear();
     ADOQuery1.SQL.String:= 'select XingMing from users where chepaihao = '''+combobox1.text+'''';
     ADOQuery1.Active:=true;
      ADOQuery1.Open;
      ComboBox1.Items.Clear  ;
     if not ADOQuery1.eof then edit1.txt :=  ADOQuery1.field[0].asstring;
        ADOQuery1.Next;
      end;
 end;

Answer 6

ComboBox1Change这样写可以了，可是我想让ComboBox2Change，姓名也跟着改变却不行，代码是这样的，帮看看怎么修改？procedure TForm1.ComboBox1Change(Sender: TObject);
begin
  ComboBox2.ItemIndex:=ComboBox1.ItemIndex;
    ADOQuery1.close;
      ADOQuery1.sql.Clear();
     ADOQuery1.SQL.Text:= 'select XingMing from users where chepaihao = '''+combobox1.text+'''';
     ADOQuery1.Active:=true;
      ADOQuery1.Open;
      edit1.Clear ;
     if not ADOQuery1.eof then
     edit1.Text:=  ADOQuery1.fieldbyname('XingMing').asstring;
        ADOQuery1.Next;
end;
procedure TForm1.ComboBox2Change(Sender: TObject);
begin
ComboBox1.ItemIndex:=ComboBox2.ItemIndex
  ADOQuery1.close;
      ADOQuery1.sql.Clear();
     ADOQuery1.SQL.Text:= 'select XingMing from users where chepaihao = '''+combobox2.text+'''';
     ADOQuery1.Active:=true;
      ADOQuery1.Open;
      edit1.Clear ;
     if not ADOQuery1.eof then
     edit1.Text:=  ADOQuery1.fieldbyname('XingMing').asstring;
        ADOQuery1.Next;    
end;

Answer 7

ComboBox1Change这样写可以了，可是我想让ComboBox2Change，姓名也跟着改变却不行，代码是这样的，ComboBox2Change代码运行时提示[错误] Unit1.pas(132): Missing operator or semicolon
[致命错误] Project1.dpr(5): Could not compile used unit 'Unit1.pas'高手请帮看看怎么修改？ procedure TForm1.ComboBox1Change(Sender: TObject); 
begin 
  ComboBox2.ItemIndex:=ComboBox1.ItemIndex; 
    ADOQuery1.close; 
      ADOQuery1.sql.Clear(); 
    ADOQuery1.SQL.Text:= 'select XingMing from users where chepaihao = '''+combobox1.text+''''; 
    ADOQuery1.Active:=true; 
      ADOQuery1.Open; 
      edit1.Clear ; 
    if not ADOQuery1.eof then 
    edit1.Text:=  ADOQuery1.fieldbyname('XingMing').asstring; 
        ADOQuery1.Next; 
end; 
procedure TForm1.ComboBox2Change(Sender: TObject); 
begin 
ComboBox1.ItemIndex:=ComboBox2.ItemIndex 
  ADOQuery1.close; 
      ADOQuery1.sql.Clear(); 
    ADOQuery1.SQL.Text:= 'select XingMing from users where kehuhao = '''+combobox2.text+''''; 
    ADOQuery1.Active:=true; 
      ADOQuery1.Open; 
      edit1.Clear ; 
    if not ADOQuery1.eof then 
    edit1.Text:=  ADOQuery1.fieldbyname('XingMing').asstring; 
        ADOQuery1.Next;    
end;