choose_course.dpr

来自「delphi 学生选课系统的实现 附有sql 语句」· DPR 代码 · 共 46 行

program Choose_Course;

uses
  Forms,
  Login in 'Login.pas' {LoginForm},
  DataModule in 'DataModule.pas' {DataModuleForm},
  Main in 'Main.pas' {MainForm},
  About in 'About.pas' {AboutForm},
  ChangePassWord in 'ChangePassWord.pas' {ChangePassWordForm},
  PersonInfo in 'PersonInfo.pas' {PersonInfoForm},
  QueryCourse in 'QueryCourse.pas' {QueryCourseForm},
  IorDCourse in 'IorDCourse.pas' {IorDCourseForm},
  QueryScore in 'QueryScore.pas' {QueryScoreForm},
  EnterScore in 'EnterScore.pas' {EnterScoreForm},
  UserInfo in 'UserInfo.pas' {UserInfoForm},
  CourseInfo in 'CourseInfo.pas' {CourseInfoForm},
  StudentCoursInfo in 'StudentCoursInfo.pas' {StudentCoursInfoForm},
  CollegeInfo in 'CollegeInfo.pas' {CollegeInfoForm},
  Start in 'Start.pas' {StartForm};

{$R *.res}

begin
  Application.Initialize;
  Application.CreateForm(TStartForm, StartForm);
  StartForm.Show;
  StartForm.Update;
  Application.CreateForm(TLoginForm, LoginForm);
  Application.CreateForm(TDataModuleForm, DataModuleForm);
  Application.CreateForm(TMainForm, MainForm);
  Application.CreateForm(TAboutForm, AboutForm);
  Application.CreateForm(TChangePassWordForm, ChangePassWordForm);
  Application.CreateForm(TPersonInfoForm, PersonInfoForm);
  Application.CreateForm(TQueryCourseForm, QueryCourseForm);
  Application.CreateForm(TIorDCourseForm, IorDCourseForm);
  Application.CreateForm(TQueryScoreForm, QueryScoreForm);
  Application.CreateForm(TEnterScoreForm, EnterScoreForm);
  Application.CreateForm(TUserInfoForm, UserInfoForm);
  Application.CreateForm(TCourseInfoForm, CourseInfoForm);
  Application.CreateForm(TStudentCoursInfoForm, StudentCoursInfoForm);
  Application.CreateForm(TCollegeInfoForm, CollegeInfoForm);
  StartForm.Release;
  LoginForm.Show;
  Application.Run;
end.