有一断程序,让大家看看错在哪在,用数据库存储过程的..提示'@Date_zk'没发现!(50分)

var
ls_find:string;
ls_date:string;
ls_d:TdateTime;
begin
ls_find:=copy(ComboBoxEx1.Text,1,6);
ls_date:=DateToStr(datetimepicker1.date);
with data_use do
if comboboxex1.ItemIndex<>0 then
begin
if data_use.ADOTable_lb2.Locate('LBBM',ls_find,[]) then
begin
if (edit2.Text<>'') and (edit3.Text<>'') then
begin
if data_use.ADOStoredProc3.active then close;
begin
ls_date:='2001-01-01';
ls_d:=StrToDate(ls_date);
data_use.ADOStoredProc3.Parameters.ParamByName('@Date_zk').value:=ls_d;
data_use.ADOStoredProc3.Parameters.ParamByName('@Bm_zk').value:=ls_find;

在设计期先把@Date_zk的类型设置一下

你在属性窗口中打点击一下params 属性就可以了