代码实现AdoQuery字段编辑器中Add All Fields功能

Question

代码实现AdoQuery字段编辑器中Add All Fields功能

Answer 1

你OPEN了後自動就是了。Add All Fields  是靜態了各個字段，方便RAD在代碼裏OPEN後一樣可以通過 AdoQuery1.fields[i]  去訪問

Answer 2

这些字段 如何加上事件
onchang()

Answer 3

呵呵，那就不知道你對DELPHI的認識了。這樣說吧，如果你要用onchange,OnSettext,ongettext  這些事件，建議你靜態化各個字段不然的話可以這樣寫procedure MyChanger(Sender:Tobject; DataSet:TDataSet);procedure MyChanger(Sender:Tobject; DataSet:TDataSet);
begin
 if sender...  這樣來做
end;adoquery1.fields[i].onchange := MyChanger;
沒有開發環境，不知道上面有沒有寫錯，意思就是這樣的。就是對ONCHANGE賦一個指針，指向你定義的過程類型。

Answer 4

adoquery1.fields[i].onchange := MyChanger; 
写在那个事件里啊