project2.dpr

某个城市的工业区的污水处理

program Project2;

uses
  Forms,
  Unit1 in 'Unit1.pas' {main},
  Unit2 in 'Unit2.pas' {realgrid},
  Unit3 in 'Unit3.pas' {realcurve},
  Unit4 in 'Unit4.pas' {realrpt},
  Unit5 in 'Unit5.pas' {realpanel},
  Unit6 in 'Unit6.pas' {Day_data},
  Unit7 in 'Unit7.pas' {photonumber},
  Unit8 in 'Unit8.pas' {config},
  Unit9 in 'Unit9.pas' {DataMD: TDataModule},
  Unit10 in 'Unit10.pas' {month_data},
  Unit11 in 'Unit11.pas' {year_data},
  Unit12 in 'Unit12.pas' {Day_curve},
  Unit14 in 'Unit14.pas' {Day_rpt},
  Unit15 in 'Unit15.pas' {exceedgrid},
  Unit16 in 'Unit16.pas' {exceedrpt},
  Unit17 in 'Unit17.pas' {version},
  Unit18 in 'Unit18.pas' {flash};

{$R *.RES}

begin
  Application.Initialize;
  flash:=Tflash.Create(application);
  flash.show;
  flash.Update;
  Application.CreateForm(Tmain, main);
  flash.ProgressBar1.Position:=10;
  Application.CreateForm(Trealgrid, realgrid);
  flash.ProgressBar1.Position:=15;
  Application.CreateForm(Trealcurve, realcurve);
  flash.ProgressBar1.Position:=20;
  Application.CreateForm(Trealrpt, realrpt);
  flash.ProgressBar1.Position:=25;
  Application.CreateForm(Trealpanel, realpanel);
  flash.ProgressBar1.Position:=30;
  Application.CreateForm(TDay_data, Day_data);
  flash.ProgressBar1.Position:=35;
  Application.CreateForm(Tphotonumber, photonumber);
  flash.ProgressBar1.Position:=40;
  Application.CreateForm(Tconfig, config);
  flash.ProgressBar1.Position:=50;
  Application.CreateForm(TDataMD, DataMD);
  flash.ProgressBar1.Position:=55;
  Application.CreateForm(Tmonth_data, month_data);
  Application.CreateForm(Tyear_data, year_data);
  Application.CreateForm(TDay_curve, Day_curve);
  flash.ProgressBar1.Position:=60;
  Application.CreateForm(TDay_rpt, Day_rpt);
  Application.CreateForm(Texceedgrid, exceedgrid);
  flash.ProgressBar1.Position:=80;
  Application.CreateForm(Texceedrpt, exceedrpt);
  flash.ProgressBar1.Position:=100;
  Application.CreateForm(Tversion, version);
  flash.Close;
  flash.Free;
  Application.Run;
end.