Question

关于delphi中ADOQuery组件的问题

现有窗口，有DBGrid组件、DataSouce、ADOQuery等，要实现每从数据库读一条记录就把其中一个字段除10再赋值回去。我其他窗口是以前别人留下的，可以实现该功能，但新窗口中ADOqry的OnCalcFields属性，加了过程之后总是得不到执行，不是在事件里双击OnCalcFields属性自动生成一个过程就行了么，还需要些别的什么设置？
现在我过程体中加showmessage('');都不执行。到底实现什么功能和过程体中的语句大家就别操心了，只要帮我实现了每读一条记录能运行一次该过程就可，我会再加分。

总算回答到点子上了，问题解决了，没浪费了我30分啊……
我就是听人说计算字段可以不加，所以才运行不下去……实在太感谢了。

Answer 1

首先数据集的AutoCalcFields属性应设为true，并且数据集中你得确实加了计算字段（没有计算字段时事件不会被触发），系统才会自动触发该事件，
该事件在以下情况下会被自动触发：
1、刚打开数据集时 AdoQuery.Open
2、数据集进入编辑状态（daEdit）
3、从数据库中重新取回数据后 (cloe掉,重新open)
4、移动记录指针 (QdoQeury.next 或者previe..)
5, 提交的时候 (Adoquery.Post)