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