project1.dpr

用于开发税务票据管理的软件

program Project1;

uses
  Forms,IdGlobal,
  Unit1 in 'Unit1.pas' {Form1},
  Unit2 in 'Unit2.pas' {dbs: TDataModule},
  Unit3 in 'Unit3.pas' {Form3},
  Unit4 in 'Unit4.pas' {Form4},
  Unit5 in 'Unit5.pas' {Form5},
  Unit6 in 'Unit6.pas' {Form6},
  Unit7 in 'Unit7.pas' {Form7},
  Unit8 in 'Unit8.pas' {Form8},
  Unit9 in 'Unit9.pas' {Form9},
  Unit10 in 'Unit10.pas' {Form10},
  Unit12 in 'Unit12.pas' {Form12},
  Unit11 in 'Unit11.pas' {Form11},
  Unit13 in 'Unit13.pas' {Form13},
  Unit14 in 'Unit14.pas' {Form14},
  Unit15 in 'Unit15.pas' {Form15},
  Unit16 in 'Unit16.pas' {Form16},
  Unit17 in 'Unit17.pas' {Form17},
  Unit18 in 'Unit18.pas' {AboutBox},
  Unit19 in 'Unit19.pas' {Form19},
  Unit20 in 'Unit20.pas' {Form20};

{$R *.res}
  var p:integer;
begin

  Application.Initialize;
  form20:=tform20.Create(application);
  form20.Show;

  form20.pb.Position:=form20.pb.Position+5;
  Application.Title := '小灵通销售管理系统';
  Application.CreateForm(Tdbs, dbs);
  form20.pb.Position:=form20.pb.Position+10;
  Application.CreateForm(TForm1, Form1);
  form20.pb.Position:=form20.pb.Position+10;
  Application.CreateForm(TForm3, Form3);
  form20.pb.Position:=form20.pb.Position+10;
  Application.CreateForm(TForm4, Form4);
  Application.CreateForm(TForm5, Form5);
  form20.pb.Position:=form20.pb.Position+10;
  Application.CreateForm(TForm6, Form6);
  Application.CreateForm(TForm7, Form7);
  form20.pb.Position:=form20.pb.Position+10;
  Application.CreateForm(TForm8, Form8);
  Application.CreateForm(TForm9, Form9);
  form20.pb.Position:=form20.pb.Position+10;
  Application.CreateForm(TForm11, Form11);
  Application.CreateForm(TForm14, Form14);
  form20.pb.Position:=form20.pb.Position+10;
  Application.CreateForm(TForm10, Form10);
  Application.CreateForm(TForm12, Form12);
  form20.pb.Position:=form20.pb.Position+10;
  Application.CreateForm(TForm13, Form13);
  Application.CreateForm(TForm15, Form15);
  Application.CreateForm(TForm16, Form16);
  Application.CreateForm(TForm17, Form17);
  form20.pb.Position:=form20.pb.Position+10;
  Application.CreateForm(TAboutBox, AboutBox);
  Application.CreateForm(TForm19, Form19);
  form20.pb.Position:=form20.pb.Position+5;
  form20.pb.hide;
  for p:=1 to 20 do
  begin
  form20.Width:=form20.Width-15;
  sleep(5);
  end;
  
  form20.Free;
  Application.Run;
end.