params.create: undeklarierter Bezeichner

[Dr. Jack]

Jetzt sagt er: qryProducts: Parameter 'nr_pzn' nicht gefunden.

Das ist die Procedure.

Delphi-Quellcode:

else begin

//showmessage('es folgen params');

          showmessage('es folgen params2');
main.qryproducts.SQL.Clear;
main.qryproducts.Params.Clear;

main.qryproducts.ParamByName('nr_pzn').AsString:=edit11.text;
main.qryproducts.ParamByName('menge').AsString := edit3.text ;
main.qryproducts.ParamByName('einheit').AsString := edit4.text;
main.qryproducts.ParamByName('dafo').AsString := edit5.text;
main.qryproducts.ParamByName('hersteller').AsString := edit6.text;
main.qryproducts.ParamByName('charge').AsString := edit7.text;
main.qryproducts.ParamByName('verfall').AsString := edit10.text;
main.qryproducts.ParamByName('pruefdatum').AsString := edit8.text;
main.qryproducts.ParamByName('pruefer').AsString := edit9.text;
main.qryproducts.ParamByName('name').AsString := edit2.text;
main.qryproducts.ParamByName('text').AsString := richedit1.text;
main.qryproducts.ParamByName('cb_1').AsBoolean := pruefmaske.CheckBox1.Checked;
main.qryproducts.ParamByName('cb_2').AsBoolean := pruefmaske.CheckBox2.Checked;
main.qryproducts.ParamByName('cb_3').AsBoolean := pruefmaske.CheckBox3.Checked;
main.qryproducts.ParamByName('cb_4').AsBoolean := pruefmaske.CheckBox4.Checked;

          showmessage('es folgt insert');
          main.qryproducts.SQL.text:=('insert into fam_check (name, nr_pzn, dafo_kurz, menge,einheit, hersteller_kurz, charge, verfall, p_datum, pruefer, text,cb_1, cb_2, cb_3,cb_4')+
                                     'Values (:name, :nr_pzn, :dafo, :menge, :einheit, :hersteller, :charge, :verfall, :pruefdatum, :pruefer, :cb_1, :cb_2, :cb_3, :cb_4';

          main.qryproducts.ExecSQL;

          clearfields_pruef();

end;