-------query变化显示实时信息-----
procedure TDataModule1.query_AfterOpen(DataSet: TDataSet);
begin
显示信息
end;
procedure TDataModule1.query_AfterRefresh(DataSet: TDataSet);
begin
显示信息
end;
procedure TDataModule1.query_AfterScroll(DataSet: TDataSet);
begin
显示信息
end;