数据库查询问题！急急急！

Question

begin
 if (ComboBox1.Text='体卵圆形')and
    (ComboBox2.Text='')and
    (ComboBox3.Text='1.3')and
    (ComboBox4.Text='1.0')and
    (ComboBox5.Text='黑色')and
    (ComboBox6.Text='黑色')and
    (ComboBox7.Text='淡色')and
    (ComboBox8.Text='无')then
    ShowMessage('红松球蚜'+#13+'恭喜你查到你需要的结果');
   ？？？？？
我想在这里调入一个结果模块，使结果模块里结果显示为红松球蚜，请问怎么调入啊？谢谢！

Answer 1

if (ComboBox1.Text='体卵圆形')and
    (ComboBox2.Text='')and
    (ComboBox3.Text='1.3')and
    (ComboBox4.Text='1.0')and
    (ComboBox5.Text='黑色')and
    (ComboBox6.Text='黑色')and
    (ComboBox7.Text='淡色')and
    (ComboBox8.Text='无')then
  begin
    ShowMessage('红松球蚜'+#13+'恭喜你查到你需要的结果'); 
    //your Code?????
  end;不知道是不是这个意思??

Answer 2

show一个窗体罗，自己写调用方法

Answer 3

if (ComboBox1.Text='体卵圆形')and 
    (ComboBox2.Text='')and 
    (ComboBox3.Text='1.3')and 
    (ComboBox4.Text='1.0')and 
    (ComboBox5.Text='黑色')and 
    (ComboBox6.Text='黑色')and 
    (ComboBox7.Text='淡色')and 
    (ComboBox8.Text='无')then
    begin 
    ShowMessage('红松球蚜'+#13+'恭喜你查到你需要的结果'); 
    Label1.caption:='红松球';
    //都加这行了
    end;