project1.dpr

本系统为学生管理系统,可实现选课和退选

program Project1;

uses
  Forms,
  Windows,
  Unit3 in 'Unit3.pas' {MainForm},
  Unit4 in 'Unit4.pas' {Form4},
  Unit2 in 'Unit2.pas' {Form2},
  Unit5 in 'Unit5.pas' {Form5},
  Unit6 in 'Unit6.pas' {Form6},
  Unit8 in 'I:\Unit8.pas' {Form8},
  Unit1 in 'Unit1.pas' {Form1},
  Unit11 in 'Unit11.pas' {Form11},
  Unit13 in 'Unit13.pas' {Form13},
  Unit9 in 'Unit9.pas' {Form9},
  Unit10 in '..\Documents and Settings\All Users\Documents\计02241靠\Unit10.pas' {Form10};

{$R *.res}

begin
  Form1:=TForm1.create(application);
  Form1.WindowState:=wsNormal;
  Form1.show;

  Form1.update ;
  Application.Initialize;
  Application.Title := '选课管理系统';
  Application.CreateForm(TMainForm, MainForm);
  Application.CreateForm(TForm2, Form2);
  Application.CreateForm(TForm4, Form4);
  Application.CreateForm(TForm5, Form5);
  Application.CreateForm(TForm6, Form6);
  Application.CreateForm(TForm8, Form8);
  Application.CreateForm(TForm11, Form11);
  Application.CreateForm(TForm13, Form13);
  Application.CreateForm(TForm9, Form9);
  Application.CreateForm(TForm10, Form10);
  sleep(500);
  Application.ShowMainForm:=false;
 Form1.free;
 Form2.show;
  Application.Run;
end.