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

[jjz7987496]

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+'恭喜你查到你需要的结果');
？？？？？
我想在这里调入一个结果模块，使结果模块里结果显示为红松球蚜，请问怎么调入啊？谢谢！

[zshsuming]

没明白你要做什么？

[sparklerl]

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;

不知道是不是这个意思??

[de410]

放一个edit即可啊~~

[jjz7987496]

是！我就是想在那里 调入一个模块（里面显示查询的结果 和图片）

[jjz7987496]

怎么没人呢！谢谢大家了！急。。。。。

[taste品味]

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

[cs920]

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;

[lhy]

你的数据库是什么样的，有什么内容？