| 技术论坛 |
|
|
| ≡技术区≡ ① |
| DELPHI技术 |
| lazarus/fpc/Free Pascal |
| 移动应用开发 |
| Web应用开发 |
| 数据库专区 |
| 报表专区 |
| 网络通讯 |
| 开源项目 |
| 论坛精华贴 |
| ≡发布区≡ ② |
| 发布代码 |
| 发布控件 |
| 文档资料 |
| 经典工具 |
| ≡事务区≡ ③ |
| 网站意见 |
| 盒子之家 |
| 招聘应聘 |
| 信息交换 |
| 论坛信息 |
|||
|
| 导航： | 论坛 -> DELPHI技术 斑竹:liumazi,sephil | |||||
| 作者： |
|
2003/4/18 16:19:44 | ||||
| 标题： |
|
加入我的收藏 | ||||
| 楼主： | 你给我的这段程序我史过了！我自己也改了一点，程序可以通过！但我一点哪个按钮的时候就出错！系统提示：dataset not in edit or insert modole(大致意思）现在我将我该了以后的程序给你看一下！ var Temp_Query:TADOQuery; BH_Var:String; begin Temp_Query:=TADOQuery.create(nil); Temp_Query.ClearFields; Temp_Query.SQL.Add('select max(cno) as 最大编号 from adotable1'); Temp_Query.ExecSQL; try Temp_Query.open; except Temp_Query.free; End; if Temp_Query.eof and Temp_Query.bof then BH_Var:='00000001' else begin BH_Var:=Temp_Query.FieldByName('最大编号').asstring; BH_Var:=IntToStr(StrToInt(BH_Var)+1); WHILE Length(BH_Var)<8 Do BH_Var:='0'+BH_Var; end; Temp_Query.free; adotable1.open; //打开adotable1表// adotable1.Append; adotable1.FieldByName('cno').Value:=BH_Var; adotable1.FieldByName('cname').Value:=Edit1.Text; adotable1.FieldByName('csort').Value:=ComboBox1.Text; adotable1.post; End; ---------------------------------------------- - |
|||||
| 作者： |
|
2003/4/18 17:42:48 | ||||
| 1楼： | 你怎么不回呀！！！ ---------------------------------------------- - |
|||||
| 作者： |
|
2003/4/18 17:44:16 | ||||
| 2楼： | 我等得好辛苦呀！！我中午和晚上都没有吃饭呀！！ nestle_hcl@msn.com---------------------------------------------- - |
|||||
| 作者： |
|
2003/4/18 19:23:54 | ||||
| 3楼： | 你试一下adotable1.append在后面加一句adotable.insert试试。 ---------------------------------------------- 新手，想得到您的帮助！ |
|||||
| 作者： |
|
2003/4/19 22:02:58 | ||||
| 4楼： | Temp_Query.ExecSQL; 这句有问题 ---------------------------------------------- - |
|||||
| 作者： |
|
2003/4/20 1:25:47 | ||||
| 5楼： | Temp_Query.ExecSQL;这条语句不要。 ---------------------------------------------- |
|||||
| 信息 |
| 登陆以后才能回复 |
