关于“天啊，两天没睡觉了，程序到底错在哪呀？”的问题的第二次提问，你说我惨不惨

Question

程序这么乱，看着都累。
首先：浮点数不能用int操作。你改成strtofloat应该就可以了。
建议你写Sql语句的时候用参数。方便阅读。

Answer 1

哦，写错了，不好意思。你是lasttime类型错误。
刚才没看完就写了，呵呵。

Answer 2

用参数简单
sql.add('update t1');
sql.add('set a=:a');
parambyname('a').asDatetime:=strtoDatetime('2002-04-29');
execsql;这样处理简单多了。我不知道在paradox里有没有字符串转化为datetime类型的函数。如果有，用它就行了，没有的话，参考我的吧。

Answer 3

我觉得sql语句中变量的值都是字串形式的吧，你试试改为
：
strsql:='update zujdj set Fmoney='+IntToStr(StrToInt(Flatedit7.text)+StrToInt(Flatedit9.text))+',Smoney='+Flatedit9.text+',yu='+Flatedit10.text+',manager='''+Flatedit11.text+''',LastTime='''+Trim(Stime)+'''' where htnumber='''+trim(Flatedit1.text)+'''';
即生成的sql语句为
 update zujdj set fmoney=7800,smoney=7350,yu=0,manager='fans',lasttime='2002-4-29' where htnumber='zh001'

Answer 4

//更新数据
strsql:='update zujdj set Fmoney='+IntToStr(StrToInt(Trim(Flatedit7.text+))+StrToInt(Trim(Flatedit9.text)))+',Smoney='+Trim(Flatedit9.text)+',yu='+Trim(Flatedit10.text)+',manager='''+Trim(Flatedit11.text)+''',LastTime='''+Trim(Stime)+''' where htnumber='''+trim(Flatedit1.text)+'''';
                        Query6.Active:=false;
                        Query6.sql.clear;
                        Query6.sql.add(strsql);
                        query6.active:=true;
              //数据表修改完毕什么数据库？
时间那块可能不对。

Answer 5

你说:
showmessage(strsql)的结果为：
update zujdj set fmoney=7800,smoney=7350,yu=0,manager='fans',lasttime=2002-4-29 where htnumber='zh001'
错误提示为：Type mismatch in expression相信是 'lasttime=2002-4-29 '一项.
请叁看你的sql server是用那个格式. 如 lasttime = '4/29/2002'等.

Answer 6

你说:
showmessage(strsql)的结果为：
update zujdj set fmoney=7800,smoney=7350,yu=0,manager='fans',lasttime=2002-4-29 where htnumber='zh001'
错误提示为：Type mismatch in expression相信是 'lasttime=2002-4-29 '一项.
请叁看你的sql server是用那个格式. 如 lasttime = '4/29/2002'等.

Answer 7

可以试一试日期字段的类型 ...LastTime=#'+Trim(Stime)+'# where...

Answer 8

唉，好乱的程序，没有一点规范。
学生作的课程设计吧。paradox数据库不熟，疑为时间类型不对。