标题:[求助]有关Delphi方面的问题,新手问题,大家都会
取消只看楼主
初学Delphi
Rank: 3Rank: 3
等 级:新手上路
威 望:9
帖 子:330
专家分:0
注 册:2006-4-4
 问题点数:0 回复次数:5 
[求助]有关Delphi方面的问题,新手问题,大家都会

我是刚学delphi的一名学生

遇到一个问题:
就是一个充值系统,要求充值成功的时候要把本次充值记录到“交费登记表中”,然后在“消费表”里把相应的充值额加进去。。

ADOQuery1.Close ;
ADOQuery1.SQL.Clear ;
ADOQuery1.SQL.text :='select * from 交费登记表';
ADOQuery1.Open ;
ADOQuery1.Append ;
ADOQuery1.FieldByName('卡号').AsString :=trim(Edit1.Text );
ADOQuery1.FieldByName('交款人').AsString :=trim(Edit2.Text );
ADOQuery1.FieldByName('交款额').AsString :=trim(Edit3.Text );
ADOQuery1.FieldByName('身份').AsString :=trim(ComboBox1.Text );
ADOQuery1.FieldByName('交款时间').Asdatetime :=DateTimePicker1.Date;

ADOQuery2.Close ;
ADOQuery2.SQL.Clear ;
ADOQuery2.SQL.text :='update 消费表 set 余额=余额+'''+Edit3.text+''' where 卡号='''+Edit1.text+'''';
ADOQuery2.Open ;

在下感激不禁,,,,

搜索更多相关主题的帖子: Delphi 都会 trim AsString 
2006-04-04 20:44
初学Delphi
Rank: 3Rank: 3
等 级:新手上路
威 望:9
帖 子:330
专家分:0
注 册:2006-4-4
得分:0 
用的是ACCESS数据库
2006-04-04 20:56
初学Delphi
Rank: 3Rank: 3
等 级:新手上路
威 望:9
帖 子:330
专家分:0
注 册:2006-4-4
得分:0 

为了测试一下,我在ADOQuery2的SQL属性里输入update 消费表 set 余额=100
再将ADOQuery2的Action设计为Ture 结果居然报错,但是我去表中察看,余额已经全部被改成了100了

为什么?

2006-04-04 21:03
初学Delphi
Rank: 3Rank: 3
等 级:新手上路
威 望:9
帖 子:330
专家分:0
注 册:2006-4-4
得分:0 
Delphi好深奥,要好好学。。多谢斑竹赐教,我去试试看
2006-04-05 13:45
初学Delphi
Rank: 3Rank: 3
等 级:新手上路
威 望:9
帖 子:330
专家分:0
注 册:2006-4-4
得分:0 


直接这样运行
运算结果跟字符串相加似的,
余额=100 冲值50 结果数据库中边成了10050
我把 余额设成的int 怎么不能直接运算
Edit1的可以不用换吧?
谢谢斑竹。。。斑竹就是尽责。。
我是昨天在网上搜搜看怎么解决的,就进了这论坛。。
没想到斑竹这么尽责,哈哈 这里的会员肯定也都很热情了。
以后有问题就来这论坛请教。。
再次谢谢老乡,俺也是山东人

[此贴子已经被作者于2006-4-5 19:48:42编辑过]

2006-04-05 18:14
初学Delphi
Rank: 3Rank: 3
等 级:新手上路
威 望:9
帖 子:330
专家分:0
注 册:2006-4-4
得分:0 
那个clear是习惯写法,可以不用

我以前都写sql.Add(……);

单引号你说的是这里最后吧
ADOQuery2.SQL.text :='update 消费表 set 余额=余额+'''+Edit3.text+''' where 卡号='''+Edit1.text+'''';

那里是我从程序上直接贴过来的 多复制了一个单引号

ADOQuery2.SQL.text :='update 消费表 set 余额=余额+'''+Edit3.text+''' where 卡号='''+Edit1.text+''';
ADOQuery2.perpared;
ADOQuery2.execsql;
我这样就能直接想加 结果也对
不是说Edit.text里面的是字符型 必须转换类型才能相加么?
我的不知道为什么可以

[此贴子已经被作者于2006-4-6 12:57:33编辑过]

2006-04-06 12:53



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-55106-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 1.289955 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved