[请求]请问如何对页面进行刷新

ccyy0112

procedure TGZHZMXB.Button1Click(Sender: TObject);
var bm,n,y,s2:string;
    rs:integer;
    jbgz,jbjj,xj,jk,sk,sk1,slouble;
    date:TDate;
    year,month,d2,d3:integer;
begin
     bm := '';  //部门
     rs := 0;   //人数
     jbgz :=0;  //基本工资
     jbjj :=0;  //基本奖金
     xj :=0;    //小计
     jk :=0;  //基险个扣
     sk :=0;    //失扣
     sk1 :=0;   //税扣
     sl :=0;    //实领
     date:=business.Data.SysSrv.SysService.Time;
     month := Business.System.DateUtils.MonthOf(date);
     s2 :=  sysutils.IntToStr(month);
     d2 :=  sysutils.StrToInt(s2);
     datasetbroker2.DataSet.First;
     while not datasetbroker2.DataSet.Eof do
     begin
          if(datasetbroker2.DataSet.FieldByName('y').AsFloat = d2)  then
          begin
              y :=  datasetbroker2.DataSet.FieldByName('y').AsString;
              datasetbroker1.DataSet.Insert;
              datasetbroker1.DataSet.FieldByName('y').Value := y;
              datasetbroker1.DataSet.Post;
          end;
          datasetbroker2.DataSet.Next;
     end;
        datasetbroker1.DataSet.ApplyUpdates(false);
        datasetbroker1.DataSet.Refresh;
        /////////////////////////////////////////////////////
end;
数据集刷新之后 对当前窗体进行刷新 请问如何实现

atiger

数据集刷新之后 对当前窗体进行刷新 请问如何实现
没有理解，你当前窗体上显示的是啥控件，是数据感知控件吗？例如DataGrid，DataEdit等等，如果是刷新数据集，那么这些数据集感知控件也会自动感知的

atiger

??