您所在位置：主题：懂dbExpress组件的人请进
triumph
[专家分：160] 发布于 2006-08-20 16:22:00
我看了书上的参考代码,可是这个变量从来都没有出现,具体如下:
这是个修改记录的程序
procedure Tdm.SimpleDataSet2AfterPost(DataSet: TDataSet);//模块窗体
begin
form1.showchangecount;
end;
主窗体
procedure TForm1.Button1Click(Sender: TObject);
begin
dm.simpledataset2.ApplyUpdates(0);//调用
showchangecount;
end;
procedure tform1.showchangecount;
begin
statusbar1.Panels[0].Text:=' 修改的数目:' +inttostr([color=FF0000]dmDynamicSQL[/color].SimpleDataSet2.ChangeCount); //显示修改的数目
end;
红色字体始终没有出现,程序也不能编译,希望高手给予我指点
这是个修改记录的程序
procedure Tdm.SimpleDataSet2AfterPost(DataSet: TDataSet);//模块窗体
begin
form1.showchangecount;
end;
主窗体
procedure TForm1.Button1Click(Sender: TObject);
begin
dm.simpledataset2.ApplyUpdates(0);//调用
showchangecount;
end;
procedure tform1.showchangecount;
begin
statusbar1.Panels[0].Text:=' 修改的数目:' +inttostr([color=FF0000]dmDynamicSQL[/color].SimpleDataSet2.ChangeCount); //显示修改的数目
end;
红色字体始终没有出现,程序也不能编译,希望高手给予我指点
