| 技术论坛 |
|
|
| ≡技术区≡ ① |
| DELPHI技术 |
| lazarus/fpc/Free Pascal |
| 移动应用开发 |
| Web应用开发 |
| 数据库专区 |
| 报表专区 |
| 网络通讯 |
| 开源项目 |
| 论坛精华贴 |
| ≡发布区≡ ② |
| 发布代码 |
| 发布控件 |
| 文档资料 |
| 经典工具 |
| ≡事务区≡ ③ |
| 网站意见 |
| 盒子之家 |
| 招聘应聘 |
| 信息交换 |
| 论坛信息 |
|||
|
| 导航： | 论坛 -> DELPHI技术 斑竹:liumazi,sephil | |||||
| 作者： |
|
2004/3/9 17:35:35 | ||||
| 标题： |
|
加入我的收藏 | ||||
| 楼主： | 大家看看，为什么一执行就死机？ procedure TForm1.DBEdit3KeyPress(Sender: TObject; var Key: Char); begin table2.First; if dbedit3.text<>' then begin repeat table2.next; until trim(dbedit3.Text)=table2.FieldByName('type').AsString; end; dbedit1.Text:=table2.fieldbyname('code').AsString; dbedit2.Text:=table2.fieldbyname('name').AsString; end; ---------------------------------------------- 命运是一只沦落在鸡窝里的鹰 |
|||||
| 作者： |
|
2004/3/9 17:41:18 | ||||
| 1楼： | 是这样，当DBEdit3有键按下时，开始循环，这时DBEdit3的Text中只有一个字符，无法满足until的条件，所以就一直在循环中。 你这段代码应该放在OnExit事件中。 ----------------------------------------------  敬请光临 学海Delphi站 http://delphi.studysea.net 学海无涯，让我们共同成长！ |
|||||
| 作者： |
|
2004/3/9 17:47:54 | ||||
| 2楼： | 我不是很明白，那应该如何写哪？谢谢！ ---------------------------------------------- 命运是一只沦落在鸡窝里的鹰 |
|||||
| 作者： |
|
2004/3/9 18:04:53 | ||||
| 3楼： | 好吧。如下 procedure TForm1.DBEdit3Exit(Sender: TObject; var Key: Char); begin //table2.First; if dbedit3.text<>' then begin {repeat table2.next; until trim(dbedit3.Text)=table2.FieldByName('type').AsString;} if table2.Locate('type',VarArrayof[trim(dbedit3.Text)],[loPartialKey]) then begin dbedit1.Text:=table2.fieldbyname('code').AsString; dbedit2.Text:=table2.fieldbyname('name').AsString; end else begin MessageBox(Handle,'未发现符合条件的记录！',提示',MB_OK+MB_ICONEXCLAMATION); dbedit3.SetFocus; end; end; end; locate的用法有点忘了，不知道够不够准确。 ---------------------------------------------- 敬请光临 学海Delphi站 http://delphi.studysea.net 学海无涯，让我们共同成长！ |
|||||
| 作者： |
|
2004/3/9 18:09:45 | ||||
| 4楼： | 3ku!3ku!!!!! ---------------------------------------------- 命运是一只沦落在鸡窝里的鹰 |
|||||
| 作者： |
|
2004/3/9 19:09:01 | ||||
| 5楼： | 我觉得你这个应该放到 edit3change事件中 ---------------------------------------------- - |
|||||
| 信息 |
| 登陆以后才能回复 |
