Question

Delphi程序，下面的程序是什么意思啊？

procedure TfwAccount.FormShow(Sender: TObject);
begin
MADoQuery:=fIODM.qcAccount_D1;
MasterField:='ID';
DAdoQuery[1]:=fIODM.qcAccount_D2;
MSQL:='select * from Account_D1 Order by CPNo Desc,sNo,DsNo';
DSQL[1]:=' select * from Account_D2 where ID_D1=:ID order by INNo ';
MField[1,1]:='ID';
DParamName[1,1]:='ID';
inherited;
end;

Answer 1

procedure TfwAccount.FormShow(Sender: TObject);(TfwAccount这个页面显示时的执行事件)
begin
MADoQuery:=fIODM.qcAccount_D1;（将fIODM.qcAccount_D1数据集赋值给MADoQuery数据集）
MasterField:='ID';（应该是全局变量MasterField赋值ID字符串）
DAdoQuery[1]:=fIODM.qcAccount_D2;（将fIODM.qcAccount_D2数据集赋值给本页面的DAdoQuery[1]数组数据集）
MSQL:='select * from Account_D1 Order by CPNo Desc,sNo,DsNo';
DSQL[1]:=' select * from Account_D2 where ID_D1=:ID order by INNo ';//SQL数据赋值
MField[1,1]:='ID';（将字符串'ID'赋值给数组MField[1,1]）
DParamName[1,1]:='ID';(将字符串ID赋值给数组DParamName[1,1])
inherited;
end;
这个事件你单独让翻译没多大意义 结合整个页面来看 比较清晰 只看这个没多大意义