各位大哥帮小弟看看如下的代码。

Question

是SQL错误吗，是不是类型不匹配？

Answer 1

Query2.SQL.Add('Insert Into Operater(UserID,UserName,UserPassword,LevelDescribe,Role,Memo)');//Memo后边应该有空格
      
      Query2.SQL.Add('Values(:UserID,:UserName,:UserPassword,:LevelDescribe,:Role,:Memo)');

Answer 2

把你创建参数的语句去掉，Query已经自动创建，直接赋值即可。
—————————————————————————————————
MaximStr := '宠辱不惊，看庭前花开花落，去留无意；
             毁誉由人，望天上云卷云舒，聚散任风。';
if Not Assigned(I) then
  I := TI.Create(Nil);
I.Maxim := MaximStr;
I.Explain := '假如上述代码中出现“OA”等字样，删除它们';
I.Desire := '加不加分随你';
—————————————————————————————————
　　　　　　　

Answer 3

不是有没有空格的问题，Add方法会自动处理。
—————————————————————————————————
MaximStr := '宠辱不惊，看庭前花开花落，去留无意；
             毁誉由人，望天上云卷云舒，聚散任风。';
if Not Assigned(I) then
  I := TI.Create(Nil);
I.Maxim := MaximStr;
I.Explain := '假如上述代码中出现“OA”等字样，删除它们';
I.Desire := '加不加分随你';
—————————————————————————————————
　　　　　　　

Answer 4

Query2.Params.CreateParam(ftString,'UserID',ptInput);
      Query2.Params.CreateParam(ftString,'UserName',ptInput);
      Query2.Params.CreateParam(ftString,'UserPassword',ptInput);
      Query2.Params.CreateParam(ftString,'LevelDescribe',ptInput);
      Query2.Params.CreateParam(ftInteger,'Role',ptInput);
      Query2.Params.CreateParam(ftString,'Memo',ptInput);
去掉