请问一个过程中使用adoquery的问题

Question

我定义了一个过程，如下:procedure plansave(const name,place_item,money_no,gather_month:string);
begin
  with planinput.qry_save do
    begin
    close;
   planinput.qry_save.sql.clear;
   planinput.qry_save.sql.add('insert into plan_table select b.deptindex,a.fieldname,'+''''+money_no+''''+','+''''+gather_month+'''');
   planinput.qry_save.sql.add('from public_table a,dept b where b.dept_name='+''''+name+''''+'and a.description='+''''+place_item+'''');
   execsql;
    end;
planinput:窗体名;
qry_save:adoquery名；
编译时出错；[Error] planbaseinput.pas(82): Unsatisfied forward or external declaration: 'Tplaninput.plansave'
请问是为什么出错??

Answer 1

procedure plansave(const name,place_item,money_no,gather_month:string);
改成
procedure Tplaninput.plansave(const name,place_item,money_no,gather_month:string);