
delphi编译问题:line too long(more than 1023 characters)
if showbox(QMessTitle,'确定要删除信息吗?如果删除,信息将不能恢复!',2,Question)<>mrOkthen...
if showbox(QMessTitle,'确定要删除信息吗?如果删除,信息将不能恢复!',2,Question) <> mrOk then begin get_exec('delete from t_member where memno in(select memno from t_memcard where cardno not in ' +'(select cardno from t_ryxs where oprtdate<=getdate()-365 group by cardno having max(oprtdate) >0))'); get_exec('delete from t_jfkczda where cardno in(select cardno from t_memcard where cardno not in ' +'(select cardno from t_ryxs where oprtdate<=getdate()-365 group by cardno having max(oprtdate) >0))'); get_exec('delete from t_ryxs where cardno in(select cardno from t_memcard where cardno not in ' +'(select cardno from t_ryxs where oprtdate<=getdate()-365 group by cardno having max(oprtdate) >0))'); get_exec('delete from t_jfxx where cardno in(select cardno from t_memcard where cardno not in ' +'select cardno from t_ryxs where oprtdate<=getdate()-365 group by cardno having max(oprtdate) >0))'); get_exec('delete from t_jfxf where kh in(select cardno from t_memcard where cardno not in ' +'(select cardno from t_ryxs where oprtdate<=getdate()-365 group by cardno having max(oprtdate) >0))'); get_exec('delete from t_memcard where cardno in(select cardno from t_ryxs where oprtdate<=getdate()-365 group by cardno having max(oprtdate) >0)'); get_exec('delete from t_ryxs where cardno in(select cardno,max(oprtdate) from t_ryxs where oprtdate<=getdate()-365 group by cardno)'); end;在begin行提示的错误
展开
展开全部
提示得很明确呀,行太长,把连续的四个空格替换成回车就行了。
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询