急救,因SQL语句过长,加了加号始终说我语法错误,大师们快快看看啊
ADOQuery1.SQL.Add(' insert into jl(姓名,柜员号,身份证号,笔数时间,网点名称,网点编号,存款取款,补登换折修改信息,挂失,解挂,新开户,'
+'代发工资,补发存单折,本社代理业务,贷款发放贷款收回,利息收回贷款维护,转帐,现金汇款,电汇,打印满页帐,反洗钱反假币,国库集中,对帐,其它,合计)'
+' values(:姓名,:柜员号,:身份证号,:笔数时间,:网点名称,:网点编号,:存款取款,:补登换折修改信息,:挂失,:解挂,:新开户,:代发工资,:补发存单折,'
+':本社代理业务,:贷款发放贷款收回,:利息收回贷款维护,:转帐,:现金汇款,:电汇,'
+':打印满页帐,:反洗钱反假币,:国库集中,:对帐,:其它,:合计');
运行时,说查询语句错误,大家帮我看看是哪里误了?
20分啊,快来领啊
[解决办法]
uses ComObj;{ TForm1 }procedure TForm1.Button1Click(Sender: TObject);var s:string;begin Edit1.Text:='1'; Edit2.Text:='2'; Edit3.Text:='3'; s:=edit1.Text+'*4'; // 1*4 s:=s+'+'+edit2.Text+'/2'; // 2/2 s:=s+'-'+edit3.Text+'+99'; // 3+99 ShowMessage(s); //=1*4+2/2-3+99 ShowMessage(eval(s)); //=101end;function TForm1.eval(s: string): string;var js:OleVariant;begin try try js:=CreateOleObject('ScriptControl'); js.Language:='JavaScript'; Result:=js.Eval(s); except Abort; end; finally js:=Unassigned; end;end;