prjstudent.dpr

来自「使用了DELPHI和SQL实现对学生信息的管理」· DPR 代码 · 共 37 行

program Prjstudent;

uses
  Forms,
  MAIN in 'MAIN.pas' {frmMain},
  department in 'department.pas' {frmdepartment},
  studclass in 'studclass.pas' {frmclass},
  student in 'student.pas' {frmstudent},
  studentquery in 'studentquery.pas' {frmstudentquery},
  change in 'change.pas' {frmchange},
  user in 'user.pas' {frmuser},
  usermanage in 'usermanage.pas' {frmadmin},
  userlogin in 'userlogin.pas' {frmlogin},
  reward in 'reward.pas' {frmreward},
  punish in 'punish.pas' {frmpunish};

{$R *.res}

begin
  Application.Initialize;
  frmlogin:=Tfrmlogin.Create(application);
  if frmlogin.ShowModal=1 then
   begin
  Application.CreateForm(TfrmMain, frmMain);
  Application.CreateForm(Tfrmdepartment, frmdepartment);
  Application.CreateForm(Tfrmclass, frmclass);
  Application.CreateForm(Tfrmstudent, frmstudent);
  Application.CreateForm(Tfrmstudentquery, frmstudentquery);
  Application.CreateForm(Tfrmchange, frmchange);
  Application.CreateForm(Tfrmuser, frmuser);
  Application.CreateForm(Tfrmadmin, frmadmin);
  Application.CreateForm(Tfrmreward, frmreward);
  Application.CreateForm(Tfrmpunish, frmpunish);
  end;
  Application.Run;
end.