改成这个试试
SQL.Text:='Insert into tblLog(userName,opTime,opContent) values('''+MainForm.UserAccount+''','''+datetimetostr(now())+''',''恢复会员编号为"'+trim(Consumer.Text)+'"操作'' )';