开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Delphi控件源码 > 查看源码
Project1.~dpr
资源名称：HIS.rar　[点击查看]
上传用户：fjdqny
上传日期：2016-10-26
资源大小：6299k
文件大小：2k
源码类别：

Delphi控件源码

开发平台：

Delphi

Project1.~dpr：源码内容
  1. program Project1;
  3. uses
  4.   Forms,windows,
  5.   hospital in 'hospital.pas' {Form1},
  6.   Unit2 in 'Unit2.pas' {Form2},
  7.   Unit3 in 'Unit3.pas' {Form3},
  8.   Unit4 in 'Unit4.pas' {Form4},
  9.   Unit5 in 'Unit5.pas' {Form5},
  10.   Unit6 in 'Unit6.pas' {Form6},
  11.   Unit7 in 'Unit7.pas' {Form7},
  12.   Unit8 in 'Unit8.pas' {Form8},
  13.   Unit9 in 'Unit9.pas' {Form9},
  14.   Unit10 in 'Unit10.pas' {Form10},
  15.   Unit11 in 'Unit11.pas' {Form11},
  16.   Unit12 in 'Unit12.pas' {Form12},
  17.   Unit13 in 'Unit13.pas' {Form13},
  18.   Unit14 in 'Unit14.pas' {Form14},
  19.   Unit15 in 'Unit15.pas' {Form15},
  20.   Unit16 in 'Unit16.pas' {Form16},
  21.   Unit17 in 'Unit17.pas' {Form17},
  22.   Unit18 in 'Unit18.pas' {Form18},
  23.   Unit19 in 'Unit19.pas' {Form19},
  24.   Unit20 in 'Unit20.pas' {Form20},
  25.   Unit21 in 'Unit21.pas' {Form21},
  26.   Unit22 in 'Unit22.pas' {Form22},
  27.   Unit23 in 'Unit23.pas' {Form23},
  28.   Unit24 in 'Unit24.pas' {Form24},
  29.   Unit25 in 'Unit25.pas' {Form25},
  30.   Unit26 in 'Unit26.pas' {Form26},
  31.   Unit27 in 'Unit27.pas' {Form27},
  32.   Unit28 in 'Unit28.pas' {splash};
  34. {$R *.res}
  36. begin
  37.   Application.Initialize;
  38.   Application.Initialize;
  39.   Splash:=Tsplash.Create(Application);
  40.   splash.Show;
  41.   splash.Update;
  42.   Sleep(3000);
  43.   Application.CreateForm(TForm1, Form1);
  44.   splash.Hide;
  45.   Splash.Free;
  46.   Application.Run;
  47.   Application.CreateForm(TForm2, Form2);
  48.   Application.CreateForm(TForm3, Form3);
  49.   Application.CreateForm(TForm4, Form4);
  50.   Application.CreateForm(TForm5, Form5);
  51.   Application.CreateForm(TForm6, Form6);
  52.   Application.CreateForm(TForm7, Form7);
  53.   Application.CreateForm(TForm8, Form8);
  54.   Application.CreateForm(TForm9, Form9);
  55.   Application.CreateForm(TForm10, Form10);
  56.   Application.CreateForm(TForm11, Form11);
  57.   Application.CreateForm(TForm12, Form12);
  58.   Application.CreateForm(TForm13, Form13);
  59.   Application.CreateForm(TForm14, Form14);
  60.   Application.CreateForm(TForm15, Form15);
  61.   Application.CreateForm(TForm16, Form16);
  62.   Application.CreateForm(TForm17, Form17);
  63.   Application.CreateForm(TForm18, Form18);
  64.   Application.CreateForm(TForm19, Form19);
  65.   Application.CreateForm(TForm20, Form20);
  66.   Application.CreateForm(TForm21, Form21);
  67.   Application.CreateForm(TForm22, Form22);
  68.   Application.CreateForm(TForm23, Form23);
  69.   Application.CreateForm(TForm24, Form24);
  70.   Application.CreateForm(TForm25, Form25);
  71.   Application.CreateForm(TForm26, Form26);
  72.   Application.CreateForm(TForm27, Form27);
  73.   Application.Run;
  74. end.