求教~

Question

procedure TtestNewForm.Action1Execute(Sender: TObject);
begin
   ArchivesDataModule.testinfoOraQuery3.Close;
     ArchivesDataModule.testinfoOraQuery3.SQL.Clear;
     ArchivesDataModule.testinfoOraQuery3.SQL.Add('Insert Into h_temp(z_id,z_name,z_tel)Values(:z_id,:z_name,:z_tel)');
     ArchivesDataModule.testinfoOraQuery3.Params.ParamByName('z_id').Value:=strtoint(Trim(Edit1.Text));
     ArchivesDataModule.testinfoOraQuery3.Params.ParamByName('z_name').Value:=Trim(Edit2.Text);
     ArchivesDataModule.testinfoOraQuery3.Params.ParamByName('z_tel').Value:=Trim(Edit3.Text);
     ArchivesDataModule.testinfoOraQuery3.ExecSQL;
     TestInfoForm.testDBGrid.RefreshDisplay;
     testnewform.Close;
     ArchivesDataModule.testinfoOraQuery3.close;
    ArchivesDataModule.testinfoOraQuery3.SQL.clear;
    ArchivesDataModule.testinfoOraQuery3.SQL.Add('select * from V3.H_TEMP');
    ArchivesDataModule.testinfoOraQuery3.Open;
end;在上面代码里执行完插入后是用红色部分通过再查询一次来刷新，正常应该怎么做

Answer 1

ArchivesDataModule.testinfoOraQuery3.Requery,其实道理一样