update tableName set column1=value1,column2=value2,......,columnN=valueN where columnX=valueX;
以上columnN=valueN与where之间要有一个空格。而你的代码里好像没有,加上试试。
也就是说,将an1+="pphone='"+Edit4->Text+"'";改成an1+="pphone='"+Edit4->Text+"' ";或者将
an1+="where psno='"+Edit1->Text+"'";改成an1+=" where psno='"+Edit1->Text+"'";