smxyjcgl.dpr

来自「教材管理系统」· DPR 代码 · 共 62 行

program smxyjcgl;

uses
  Forms,
  main in 'main.pas' {Frmmain},
  mycommon in 'mycommon.pas',
  udm in 'udm.pas' {DM: TDataModule},
  server in 'server.pas' {Frmserver},
  loading in 'loading.pas' {Frmloading},
  login in 'login.pas' {Frmlogin},
  dingdan in 'dingdan.pas' {Frmdingdan},
  jiao in 'jiao.pas' {Frmjiao},
  about in 'about.pas' {Frmabout},
  jiaoshi in 'jiaoshi.pas' {Frmjiaoshi},
  student in 'student.pas' {Frmstudent},
  UserAuthor in 'UserAuthor.pas' {FrmUserAuthor},
  changepwd in 'changepwd.pas' {Frmchangepwd},
  qrystuent in 'qrystuent.pas' {Frmqrystuent},
  qryk in 'qryk.pas' {Frmqryk},
  shifree in 'shifree.pas' {Frmshifree},
  returnfree in 'returnfree.pas' {Frmreturnfree},
  shifreesql in 'shifreesql.pas' {Frmshifreesql},
  flash in 'flash.pas' {Frmflash};

{$R *.res}

begin
 Application.Initialize;
  CheckServer;
  if CheckUser then
  begin
    with TFrmloading.Create(nil) do
    begin
      Show;
      Update;
  Application.CreateForm(TFrmmain, Frmmain);
  Application.CreateForm(TDM, DM);
  Application.CreateForm(TFrmserver, Frmserver);
  Application.CreateForm(TFrmloading, Frmloading);
  Application.CreateForm(TFrmlogin, Frmlogin);
  Application.CreateForm(TFrmdingdan, Frmdingdan);
  Application.CreateForm(TFrmjiao, Frmjiao);
  Application.CreateForm(TFrmabout, Frmabout);
  Application.CreateForm(TFrmjiaoshi, Frmjiaoshi);
  Application.CreateForm(TFrmstudent, Frmstudent);
  Application.CreateForm(TFrmUserAuthor, FrmUserAuthor);
  Application.CreateForm(TFrmchangepwd, Frmchangepwd);
  Application.CreateForm(TFrmqrystuent, Frmqrystuent);
  Application.CreateForm(TFrmqryk, Frmqryk);
  Application.CreateForm(TFrmshifree, Frmshifree);
  Application.CreateForm(TFrmreturnfree, Frmreturnfree);
  Application.CreateForm(TFrmshifreesql, Frmshifreesql);
  Application.CreateForm(TFrmflash, Frmflash);
  Free;
    end;
    Application.Run;
  end
  else
    Application.Terminate;
end.