请帮忙解决数据刷新问题?

想问一下问题:在一个程序中有两个模块(其中一个为数据录入模块,另一个为数据修改模块),当我在数据录入模块中录入数据后关掉此模块,再打开数据修改模块时却看不到刚录入的数据,必须将整个程序关闭后再打开才能看到.以下为我的录入代码，请帮忙解决数据刷新问题?
unit FormRepairInput;interface……
var
  RepairInput: TRepairInput;implementation
uses  datamain,Formlogin;{$R *.dfm}procedure TRepairInput.FormShow(sender: TObject);
begin
DataModuleMain.ADOQueryRepairInput.Close;
DataModuleMain.ADOQueryRepairInput.SQL.Clear;
DataModuleMain.ADOQueryRepairInput.SQL.Text:='select * from Mis_RepairInput';
DataModuleMain.ADOQueryRepairInput.Open;
end;procedure TRepairInput.BitBtn3Click(Sender: TObject);
begin
close;
end;procedure TRepairInput.FormCreate(Sender: TObject);
begin
  ADOQuery1.Close;
  ADOQuery1.SQL.Add('select DISTINCT dep from Mis_usersd');
  ADOQuery1.Open;
  Combobox1.Clear;
  while not ADOQuery1.Eof do
  begin
    combobox1.Items.Add(ADOQuery1.fieldbyname('dep').AsString);
    ADOQuery1.Next;
  end;
RadioButton1.Checked:=false;
RadioButton2.Checked:=false;
RadioButton3.Checked:=false;
//datetimepicker1.enabled:=false;
//datetimepicker2.Enabled:=false;
//datetimepicker1.DateTime:=now;
//datetimepicker2.DateTime:=now;
edit8.Text:=login.combobox1.text;
edit6.Text:=login.ComboBox1.Text;
edit9.Text:=datetostr(date)+'     '+timetostr(time);
edit10.Text:=datetostr(date)+'     '+timetostr(time);
label14.Caption:=IntToStr(DataModuleMain.ADOQueryRepairInput.RecordCount)+'条';
label15.Caption:=IntToStr(DataModuleMain.ADOQueryRepairList.RecordCount)+'条';
edit3.Enabled:=false;
edit4.Enabled:=false;
edit5.Enabled:=false;
edit6.Enabled:=false;
edit7.Enabled:=false;
combobox4.Enabled:=false;
edit8.Visible:=false;
BitBtn7.Visible:=false;
BitBtn5.Enabled:=false;
end;procedure TRepairInput.BitBtn5Click(Sender: TObject);
begin
edit1.Text:=trim(edit1.Text);
edit2.Text:=trim(edit2.text);
edit3.Text:=trim(edit3.text);
edit4.Text:=trim(edit4.text);
edit5.Text:=trim(edit5.text);
edit6.Text:=trim(edit6.text);
edit7.Text:=trim(edit7.text);
if (RadioButton1.Checked=false) and (RadioButton2.Checked=false) and (RadioButton3.Checked=false) then
begin
  MessageBox(0,'请选择用户类型！','提示',MB_OK);
  RadioButton1.SetFocus;
  Exit;
end;
if combobox1.text='' then
begin
  MessageBox(0,'部门不能为空！','提示',MB_OK);
  combobox1.SetFocus;
  Exit;
end;
if combobox2.text='' then
begin
  MessageBox(0,'中文名不能为空！','提示',MB_OK);
  combobox2.SetFocus;
  Exit;
end;
if combobox3.text='' then
begin
  MessageBox(0,'英文名不能为空！','提示',MB_OK);
  combobox3.SetFocus;
  Exit;
end;
if edit3.text='' then
begin
  MessageBox(0,'故障原因不能为空！','提示',MB_OK);
  edit3.SetFocus;
  Exit;
end;
if combobox4.text='' then
begin
  MessageBox(0,'故障类型不能为空！','提示',MB_OK);
  combobox4.SetFocus;
  Exit;
end;
if edit4.text='' then
begin
  MessageBox(0,'解决方案不能为空！','提示',MB_OK);
  edit4.SetFocus;
  Exit;
end;
DataModuleMain.ADOQueryRepairList.Edit;
DataModuleMain.ADOQueryRepairList.Append;
DataModuleMain.ADOQueryRepairList.FieldByName('dep').AsString:=combobox1.Text;
DataModuleMain.ADOQueryRepairList.FieldByName('cname').AsString:=combobox2.Text;
DataModuleMain.ADOQueryRepairList.FieldByName('ename').AsString:=combobox3.Text;
DataModuleMain.ADOQueryRepairList.FieldByName('tel').AsString:=edit1.Text;
DataModuleMain.ADOQueryRepairList.FieldByName('Startdate').value:=DataModuleMain.ADOQueryRepairInput.FieldByName('Startdate').value;
DataModuleMain.ADOQueryRepairList.FieldByName('Exception1').AsString:=edit2.Text;
DataModuleMain.ADOQueryRepairList.FieldByName('InputName').AsString:=edit8.Text;
if RadioButton1.Checked=true then
   DataModuleMain.ADOQueryRepairList.FieldByName('UserType').AsString:=RadioButton1.Caption;
if RadioButton2.Checked=true then
   DataModuleMain.ADOQueryRepairList.FieldByName('UserType').AsString:=RadioButton2.Caption;
if RadioButton3.Checked=true then
   DataModuleMain.ADOQueryRepairList.FieldByName('UserType').AsString:=RadioButton3.Caption;
DataModuleMain.ADOQueryRepairList.FieldByName('Enddate').AsString:=edit9.text;
DataModuleMain.ADOQueryRepairList.FieldByName('UseTime').AsString:=edit3.Text;
DataModuleMain.ADOQueryRepairList.FieldByName('Exception2').AsString:=edit4.Text;
DataModuleMain.ADOQueryRepairList.FieldByName('ExceptionClass').AsString:=combobox4.Text;
DataModuleMain.ADOQueryRepairList.FieldByName('Project').AsString:=edit5.Text;
DataModuleMain.ADOQueryRepairList.FieldByName('Handlers').AsString:=edit6.Text;
DataModuleMain.ADOQueryRepairList.FieldByName('Re').AsString:=edit7.Text;
DataModuleMain.ADOQueryRepairList.post;
DataModuleMain.ADOQueryRepairInput.Delete;
label14.Caption:=IntToStr(DataModuleMain.ADOQueryRepairInput.RecordCount)+'条';
label15.Caption:=IntToStr(DataModuleMain.ADOQueryRepairList.RecordCount)+'条';
end;end.