jfgl.dpr

来自「1. 纯粹的合同管理,不涉及其它业务,独立成系统2. 简单明了,流程清析3. 合」· DPR 代码 · 共 53 行

program jfgl;

uses
  Forms,
  TempletForm in 'TEMPLETFORM.pas' {MyForm},
  main in 'main.pas' {MainForm},
  data in 'data.pas' {DM: TDataModule},
  ModalForm in 'ModalForm.pas' {MyModalForm},
  Login in 'Login.pas' {LoginForm},
  edit in 'edit.pas' {MemberEditForm},
  syssetup in 'syssetup.pas' {SysSetupForm},
  RecordBrowse in 'RecordBrowse.pas' {BrowseForm},
  member in 'member.pas' {MemberForm},
  Admin in 'Admin.pas' {AdminForm},
  AdminEdit in 'AdminEdit.pas' {AdminEditForm},
  Online in 'Online.pas' {OnlineForm},
  InputNo in 'InputNo.pas' {InputNoForm},
  FillValue in 'FillValue.pas' {FillValueForm},
  UserLocate in 'UserLocate.pas' {UserLocateForm},
  OnlineLocate in 'OnlineLocate.pas' {OnlineLocateForm},
  FillValueLocate in 'FillValueLocate.pas' {FillValueLocateForm},
  OnlineNote in 'OnlineNote.pas' {OnlineNoteForm},
  FillValueNote in 'FillValueNote.pas' {FillValueNoteForm},
  UnLock in 'UnLock.pas' {UnLockForm},
  ChangeKey in 'ChangeKey.pas' {ChangeKeyForm},
  AwardNote in 'AwardNote.pas' {AwardNoteForm},
  OnlineNoteRep in 'OnlineNoteRep.pas' {OnlineNoteRepFrom},
  MemberRep in 'MemberRep.pas' {MemberRepForm},
  FillValueRep in 'FillValueRep.pas' {FillValueRepForm},
  DCM in 'DCM.pas' {DCMForm},
  InOutData in 'InOutData.pas' {InOutDataForm},
  MClass in 'MClass.pas' {MClassForm};

{$R *.res}

begin
  Application.Initialize;
  DM:=TDM.Create(Application);
  LoginForm:=TLoginForm.Create(Application);
  if LoginForm.ShowModal <>2 then
  begin
    Application.Title := '机房管理系统';
  Application.CreateForm(TMainForm, MainForm);
  LoginForm.Free;
    Application.Run;
  end
  else begin
    LoginForm.Free;
    DM.Free;
    Application.Terminate;
  end;
end.