lookupcombobox点击选择close后显示的数值为notebook001
现在SQL代码为
elect product_retail_price,(select discount_price from products_discount where discount_start_date < getdate() and discount_end_date > getdate() and product_key='notebook0001') as discount_price from products where product_key='notebook0001'
如何将这段代码的最后取值赋值给LABEL1
从lookupcombobox1中 提取值后 将notebook001的 price值再赋值给Label 1
procedure TF_xsdlr.DBLookupComboBox1CloseUp(Sender: TObject);
begin
//DBLookupComboBox1.OnCloseUp
//application.MessageBox(DBLookupcombobox1.KeyValue,'提示',mb_ok);
//application.MessageBox(PChar(DBLookupcombobox1.KeyValue),'提示',mb_ok);
//ADOQuery5.SQL.SetText('select product_retail_price from products ');
//ADOQuery5.SQL.text:='where product_key values (''DBLookupcombobox1.KeyValue'' ' ;
//application.MessageBox('product_key','提示',mb_ok);
//adoquery5.parameters.ParamByName('a').Value:='%'+Trim(label6.caption)+'%';
//label6.caption:=product_retail_price.sql.value ;
label6.Caption:=DBLookupcombobox1.KeyValue;
end;
代码该怎么写啊。。有点乱