当执行下面的程序,按“查询”按钮后会报错: Project project123.exe raised exception class EDatabaseError with message'Query1:Field'input11'is of an unknown type'.Process stopped.Use Step or Run to continue.
procedure TForm1.Button1Click(Sender: TObject); var strsql:string; input11:string; begin if trim(edit1.text)<>'then begin input11:=edit1.Text; strsql:='select * from handset where name=:input11'; if query1.Active then query1.Active:=false; query1.SQL.Clear; query1.SQL.Add(strsql); query1.Active:=true; end; end;