| 技术论坛 |
|
|
| ≡技术区≡ ① |
| DELPHI技术 |
| lazarus/fpc/Free Pascal |
| 移动应用开发 |
| Web应用开发 |
| 数据库专区 |
| 报表专区 |
| 网络通讯 |
| 开源项目 |
| 论坛精华贴 |
| ≡发布区≡ ② |
| 发布代码 |
| 发布控件 |
| 文档资料 |
| 经典工具 |
| ≡事务区≡ ③ |
| 网站意见 |
| 盒子之家 |
| 招聘应聘 |
| 信息交换 |
| 论坛信息 |
|||
|
| 导航： | 论坛 -> DELPHI技术 斑竹:liumazi,sephil | |||||
| 作者： |
|
2004/1/13 18:15:52 | ||||
| 标题： |
|
加入我的收藏 | ||||
| 楼主： | 小黑大哥，我做的程序在运行一会时出现了下面的错误的提示，麻烦你帮我解决一下（在添加完记录保存时出现）
- |
|||||
| 作者： |
|
2004/1/13 18:34:59 | ||||
| 1楼： | 还没遇到过 学习！ ----------------------------------------------  
|
|||||
| 作者： |
|
2004/1/13 21:45:51 | ||||
| 2楼： | sql的错误,请把你的添加记录的源代码贴出来,才能好好的分析, ---------------------------------------------- | | 凡事无绝对 | | 不须太强求 | | |
|||||
| 作者： |
|
2004/1/14 0:51:43 | ||||
| 3楼： | 这是我的源代码： procedure TnewXM.SpeedButton1Click(Sender: TObject); begin mydata.MX.close; mydata.MX.Open; mydata.mx.insert;//操作表 if (combobox1.Text=')and(combobox2.Text=')and(combobox3.Text=')and(edit1.text=')and(edit2.text=')and(edit3.text=')and(edit4.text=')and(edit5.text=') then begin application.MessageBox('信息不可全为空，请重新输入！','提示',mb_ok); exit; end; //更新mx表 if edit1.text=' then edit1.Text:='0'; if edit2.text=' then edit2.Text:='0'; if edit3.text=' then edit3.Text:='0'; if edit4.text=' then edit4.Text:='0'; if edit5.text=' then edit5.Text:='0'; mydata.mx.fieldbyname('检修号').value:=newtz.Edit7.Text;; mydata.MX.FieldByName('定额依据').Value :=combobox1.Text; mydata.MX.FieldByName('修理项目').Value:=combobox2.Text; mydata.MX.FieldByName('修理方式').value:=combobox3.text; mydata.MX.FieldByName('人工费').value:=edit1.text; mydata.MX.FieldByName('材料费').value:=edit2.text; mydata.MX.FieldByName('机械费').value:=edit3.text; mydata.MX.FieldByName('浮动费').value:=edit4.text; mydata.MX.FieldByName('损耗费').value:=edit5.text; //保存信息 try mydata.mx.post; mydata.MX.Close; mydata.MX.Open; except application.MessageBox('输入有误，请重新输入！','提示',mb_ok); exit; end; newxm.Close; end; ---------------------------------------------- - |
|||||
| 作者： |
|
2004/1/14 8:04:00 | ||||
| 4楼： | 看了一下源碼﹐暫時看到一處有問題﹐就是賦值的時候兩邊類型要相同。 比如﹕ mydata.MX.FieldByName('损耗费').value:=edit5.text; 如果'损耗费'是float類型的﹐應該這樣寫 mydata.MX.FieldByName('损耗费').value:=strtofloat(edit5.text); 不知道你這些字段的類型﹖﹖﹖ 看你的上面賦值為 if edit5.text=' then edit5.Text:='0'; 應該是了 ---------------------------------------------- - |
|||||
| 作者： |
|
2004/1/14 10:37:04 | ||||
| 5楼： | 给字段值时，最好指定类型，如Asstring ---------------------------------------------- 老杨 |
|||||
| 作者： |
|
2004/1/14 10:39:34 | ||||
| 6楼： | mydata.mx.insert;//操作表 if (combobox1.Text=')and(combobox2.Text=')and(combobox3.Text=')and(edit1.text=')and(edit2.text=')and(edit3.text=')and(edit4.text=')and(edit5.text=') then begin application.MessageBox('信息不可全为空，请重新输入！','提示',mb_ok); exit; end; 改一下 if (combobox1.Text=')and(combobox2.Text=')and(combobox3.Text=')and(edit1.text=')and(edit2.text=')and(edit3.text=')and(edit4.text=')and(edit5.text=') then begin application.MessageBox('信息不可全为空，请重新输入！','提示',mb_ok); exit; end; mydata.mx.insert;//操作表 ---------------------------------------------- 老杨 |
|||||
| 作者： |
|
2004/1/14 11:07:45 | ||||
| 7楼： | 不好意思，老杨大哥，不行呀，还是出那个错误信息，原来还可以添加两三条记录，现在一条也不能添加了，而错误提示老在下面这一行上： newxm:=tnewxm.create(self); newxm.showmodal; newxm.free;//错误提示老在这一行上 再麻烦你看一下！ ---------------------------------------------- - |
|||||
| 作者： |
|
2004/1/14 11:28:09 | ||||
| 8楼： | 你要對newxm這個窗口的formcreate或formshow跟蹤調試一下﹐到底哪里錯誤 ---------------------------------------------- - |
|||||
| 作者： |
|
2004/1/14 12:07:57 | ||||
| 9楼： | 我把代码跟踪了一下，错误主要出现在： mydata.mx.post 这一行 //保存信息 try mydata.mx.post;//在这程序无法执行下去 mydata.MX.Close; mydata.MX.Open; except application.MessageBox('输入有误，请重新输入！','提示',mb_ok); exit; end; newxm.Close; ---------------------------------------------- - |
|||||
| 作者： |
|
2004/1/14 13:16:20 | ||||
| 10楼： | 将mydata.mx.open; 改为mydata.mx.ExecSQL; 去掉mydata.mx.post; ---------------------------------------------- - |
|||||
| 作者： |
|
2004/1/14 13:39:58 | ||||
| 11楼： | 不用了，现在好了！ ---------------------------------------------- - |
|||||
| 信息 |
| 登陆以后才能回复 |
