p_register.dpr

来自「是一小型门诊挂号软件」· DPR 代码 · 共 36 行

program P_register;

uses
  Forms,
  U_main in 'U_main.pas' {F_main},
  U_datamodule in 'U_datamodule.pas' {f_dm: TDataModule},
  U_register in 'U_register.pas' {F_register},
  U_about in 'U_about.pas' {F_about},
  U_registerbill in 'U_registerbill.pas' {F_registerBill},
  U_sick in 'U_sick.pas' {F_sick},
  U_statistic in 'U_statistic.pas' {F_statistic},
  U_system in 'U_system.pas' {F_system};

{$R *.res}

begin
  Application.Initialize;

  Application.Title := 'register';
  F_about:=TF_about.Create(Application);
  F_about.Show;                          //显示
  F_about.Update;                        //强制更新
  While F_about.Timer1.Enabled do
    Application.ProcessMessages;//延时
  F_about.Hide;   //隐藏封面

  Application.CreateForm(TF_main, F_main);
  Application.CreateForm(Tf_dm, f_dm);
  Application.CreateForm(TF_register, F_register);
  Application.CreateForm(TF_registerBill, F_registerBill);
  Application.CreateForm(TF_sick, F_sick);
  Application.CreateForm(TF_statistic, F_statistic);
  Application.CreateForm(TF_system, F_system);
  Application.Run;
end.