调用其他模块(刷新数据)范例

procedure RefsheData;
var
  I: Integer;
  frmMain: TForm;
begin
  if CurrCNPeriod > 0 then
    exit;
  frmMain := Application.MainForm;
  for i := frmMain.MDIChildCount - 1 downto 0 do
  begin
    if frmMain.MDIChildren[i].ClassName = 'TfrmBankInit' then
    begin
      TfrmBankInit(frmMain.MDIChildren[i]).RunMain;
    end;
  end;
end;