pserver.~dpr

来自「delphi 编制的服务器程序」· ~DPR 代码 · 共 49 行

program PServer;

uses
  Forms,
  ServerMainFrm in 'ServerMainFrm.pas' {ServerForm},
  ChildFrm in 'ChildFrm.pas' {ChildForm},
  DbChildFrm in 'DbChildFrm.pas' {DbChildForm},
  MainDm in 'MainDm.pas' {DmMain: TDataModule},
  PublicFunc in 'PublicFunc.pas',
  QueryFrm in 'QueryFrm.pas' {QueryForm},
  ClassSelectFrm in 'ClassSelectFrm.pas' {ClassSelectForm},
  AuthGrantFrm in 'AuthGrantFrm.pas' {AuthGrantForm},
  UHead in 'UHead.pas',
  unet in 'unet.pas',
  RoomInfoFrm in 'RoomInfoFrm.pas' {RoomInfoForm},
  UserCheckFrm in 'UserCheckFrm.pas' {UserCheckForm},
  professionalFrm in 'professionalFrm.pas' {professionalForm},
  MonitorFrm in 'MonitorFrm.pas' {MonitorForm},
  StudentFrm in 'StudentFrm.pas' {StudentForm},
  DialogFrm1 in 'DialogFrm1.pas' {DialogForm},
  AccountFrm in 'AccountFrm.pas' {AccountForm},
  CourseFrm in 'CourseFrm.pas' {CourseForm},
  CourseTimeAssignFrm in 'CourseTimeAssignFrm.pas' {CourseTimeAssignForm},
  ClassCheckSelectFrm in 'ClassCheckSelectFrm.pas' {ClassCheckSelectForm},
  UserFrm in 'UserFrm.pas' {UserForm},
  TermDefineFrm in 'TermDefineFrm.pas' {TermDefineForm},
  SpecifyDayFrm in 'SpecifyDayFrm.pas' {SpecifyDaYForm},
  SysparaFrm in 'SysparaFrm.pas' {SysParaForm},
  DialogParentForm in 'DialogParentForm.pas' {DialogParent},
  AskClassCountFrm in 'AskClassCountFrm.pas' {AskClassCountForm},
  SysUserFrm in 'SysUserFrm.pas' {SysUserForm};

{$R *.res}

begin
  Application.Initialize;
  Application.CreateForm(TDmMain, DmMain);
  Application.CreateForm(TServerForm, ServerForm);
  if not DMMain.UserLogin then
  begin
//    FreeFlash;
    Application.Terminate;
    Exit;
  end;
  Application.Title := '怀医电脑计费服务器';
  Application.CreateForm(TServerForm, ServerForm);
  Application.Run;
end.