自动刷新药品等

UserDM.InitDrugAndChargeSelect; 自动刷新药品等

将
Application.CreateForm(TDataTransmitForm, DataTransmitForm);
加入到
begin
    Application.CreateForm(TMainForm, MainForm);
    Application.CreateForm(TDataTransmitForm, DataTransmitForm);
    Application.Run;
  end;
//在mainfrom中procedure TMainForm.tmGetImeNameTimer(Sender: TObject);中
引用 数据传送的 DataTransmitForm.btnConfirmClick(nil) ;
如：
  tmGetImeName.Enabled :=false;
  Stb.Panels[2].text:='输入法:[ '+ SysDM.GetCurrImeName+' ]';
  DataTransmitForm.btnConfirmClick(nil) ;

3.在RecipeSettlfrm 中 (PubRecipeSettlForm:TPubRecipeSettlForm;)
TPubRecipeSettlForm.btnDyClick(Sender: TObject);引用

MainForm.tmGetImeName.Enabled :=true;