我的源码:(能否改成只要B.帐号的最后10位)
sql.add('select B.商家名称,sum(A.注入资金) from money A join userinfo B on A.银行帐号=B.银行帐号 where B.银行帐号=:e and A.注入时间 between :c and :d group by B.商家名称');
parambyname('e').asstring:=trim(edit12.text);
parambyname('c').AsDateTime:=DateTimePicker1.date;
parambyname('d').AsDateTime:=DateTimePicker2.date;
sql.add('select B.商家名称,sum(A.注入资金) from money A join userinfo B on A.银行帐号=B.银行帐号 where B.银行帐号=:e and A.注入时间 between :c and :d group by B.商家名称');
parambyname('e').asstring:=trim(edit12.text);
parambyname('c').AsDateTime:=DateTimePicker1.date;
parambyname('d').AsDateTime:=DateTimePicker2.date;
解决方案 »
- 急!!!库文件更名后再恢复就不能登录了,敬请赐教!!!
- 急求INTERBASE 简体中文版本加授权号
- 急~哪个大哥帮我做下这个题目啊!!!!
- 请问,如何自己指定tips,我想在指定位置显示tips,不是使用delphi的自己的Hint!!!
- ADSL 动态的ip地址怎么转移到网卡上???100分
- 可以告诉我哪儿错了吗?
- 为何使用数据模块Data module就报错?请帮忙!!! 急!!!
- delphi通过 dll的头文件动态调用dll。函数类型不知道如何转换
- 软件自动升级需要什么写呀?
- 困惑的问题:如何把函数(Procedure,Function)作为参数传递?
- 关于创建目录的问题,在线等
- 请问有人做过:通过COM口衍射成 IP 地址,然后对多个 或 四百个点(下位机)进行读写数据的,有吗?
.......
sql.add('select B.商家名称,sum(A.注入资金) from money A join userinfo B on A.银行帐号=B.银行帐号 where B.银行帐号 like ''%'+ :e + ''' and A.注入时间 between :c and :d group by B.商家名称');
parambyname('e').asstring:=LeftStr(trim(edit12.text),10);
sql.add('select B.商家名称,sum(A.注入资金) from money A join userinfo B on A.银行帐号=B.银行帐号 where B.银行帐号 like :e and A.注入时间 between :c and :d group by B.商家名称');parambyname('e').asstring:=LeftStr(trim(edit12.text),10)+'%';
LeftStr(trim(edit12.text),10)+'%'
代码无法通过?