project1.dpr

来自「对于医院的影像室的资料进行管理,主要方便查阅,特别是对于病人的照片的病前后比较对」· DPR 代码 · 共 40 行

program Project1;

uses
  Forms,
  U_main in 'U_main.pas' {frm_main},
  U_jibingleixing in 'U_jibingleixing.pas' {F_jibingleixing},
  U_stagequery in 'U_stagequery.pas' {F_stagequery},
  U_zhaopiandengjibianji in 'U_zhaopiandengjibianji.pas' {F_buyong},
  U_filmrecord in 'U_filmrecord.pas' {F_filmrecord},
  U_modal in 'U_modal.pas' {Form2},
  U_datamodule in 'U_datamodule.pas' {Dm: TDataModule},
  U_filmrecord2 in 'U_filmrecord2.pas' {F_filmrecord2},
  U_stagetongji in 'U_stagetongji.pas' {F_stagetongji},
  U in 'U.pas' {F_filmstage},
  U_namequery in 'U_namequery.pas' {F_namequery},
  U_jibingquery in 'U_jibingquery.pas' {F_jibingquery},
  U_datequery in 'U_datequery.pas' {F_datequery},
  u_setParams in 'u_setParams.pas' {frmSetParams};

{$R *.res}

begin
  Application.Initialize;
  Application.CreateForm(TDm, Dm);
  Application.CreateForm(Tfrm_main, frm_main);
  Application.CreateForm(TF_jibingleixing, F_jibingleixing);
  Application.CreateForm(TF_stagequery, F_stagequery);
  Application.CreateForm(TF_buyong, F_buyong);
  Application.CreateForm(TF_filmrecord, F_filmrecord);
  Application.CreateForm(TForm2, Form2);
  Application.CreateForm(TF_filmrecord2, F_filmrecord2);
  Application.CreateForm(TF_stagetongji, F_stagetongji);
  Application.CreateForm(TF_filmstage, F_filmstage);
  Application.CreateForm(TF_namequery, F_namequery);
  Application.CreateForm(TF_jibingquery, F_jibingquery);
  Application.CreateForm(TF_datequery, F_datequery);
  Application.CreateForm(TfrmSetParams, frmSetParams);
  Application.Run;
end.