smis.dpr

来自「大学生综合素质及诚信管理系统可以满足管理人员和高级管理员两方面管理学生综合素质及」· DPR 代码 · 共 42 行

program smis;

uses
  Forms,
  u_pass in 'u_pass.pas' {f_pass},
  u_newstu in 'u_newstu.pas' {f_newstu},
  u_change in 'u_change.pas' {f_change},
  u_reward in 'u_reward.pas' {f_reward},
  u_punish in 'u_punish.pas' {f_punish},
  U_adduser in 'U_adduser.pas' {F_user},
  U_chaxun in 'U_chaxun.pas' {f_chaxun},
  U_chaxunxianshi in 'U_chaxunxianshi.pas' {f_chaxunxianshi},
  u_main in 'u_main.pas' {f_main},
  u_addscore in 'u_addscore.pas' {f_addscore},
  u_chscore in 'u_chscore.pas' {f_chscore},
  u_qscore in 'u_qscore.pas' {f_qscore},
  u_pinfo in 'u_pinfo.pas' {f_pinfo},
  u_print in 'u_print.pas' {f_print};

{$R *.res}

begin
  Application.Initialize;
  Application.Title := '学生信息管理系统';

  Application.CreateForm(Tf_pass, f_pass);
  Application.CreateForm(Tf_newstu, f_newstu);
  Application.CreateForm(Tf_change, f_change);
  Application.CreateForm(Tf_reward, f_reward);
  Application.CreateForm(Tf_punish, f_punish);
  Application.CreateForm(Tf_user, f_user);
  Application.CreateForm(Tf_chaxun, f_chaxun);
  Application.CreateForm(Tf_chaxunxianshi, f_chaxunxianshi);
  Application.CreateForm(Tf_main, f_main);
  Application.CreateForm(Tf_addscore, f_addscore);
  Application.CreateForm(Tf_chscore, f_chscore);
  Application.CreateForm(Tf_qscore, f_qscore);
  Application.CreateForm(Tf_pinfo, f_pinfo);
  Application.CreateForm(Tf_print, f_print);
  Application.Run;
end.