ticketsmanager.dpr

来自「这个是个简单的关于出票申请的处理」· DPR 代码 · 共 56 行

program TicketsManager;

uses
  Forms,
  Windows,
  MainFrm in 'MainFrm.pas' {FormMain},
  AppInstance in 'AppInstance.pas',
  CommonFuncLib in 'CommonFuncLib.pas',
  systemPH in 'systemPH.pas',
  systemLogoFaceFM in 'systemLogoFaceFM.pas' {frm_LogoFace},
  SystemDM in 'SystemDM.pas' {DMSystem: TDataModule},
  systemLoginFM in 'systemLoginFM.pas' {frm_Login},
  BaseFrm in 'BaseFrm.pas' {FormBase},
  AgentLQFrm in 'AgentLQFrm.pas' {FormAgentLQ},
  DisTicketFrm in 'DisTicketFrm.pas' {FormDisTickets},
  DoApplyFrm in 'DoApplyFrm.pas' {FormDoApply},
  StoreTickets in 'StoreTickets.pas' {FormStoreTicket},
  ViewTicketsFrm in 'ViewTicketsFrm.pas' {FormViewTicket},
  StaticsFrm in 'StaticsFrm.pas' {FormStatics},
  DatetimeSelectedFrm in 'DatetimeSelectedFrm.pas' {FormDatetimeSelected},
  logicSelectedFrm in 'logicSelectedFrm.pas' {FormSelectLogic},
  IniOptions in 'IniOptions.pas',
  PensonalLQFrm in 'PensonalLQFrm.pas' {FrmPersonalLQ},
  LQTicketHintFrm in 'LQTicketHintFrm.pas' {FrmLQTicketHint},
  RefundFrm in 'RefundFrm.pas' {FrmRefund};

{$R *.res}
begin
  Application.Initialize;
  Application.Title := '票据管理系统';
  try
    if ActivePreAppInstance(False) then Exit;
    LoadLogo;
    SetLogo(10);
    Application.CreateForm(TDMSystem, DMSystem);
  if not DMSystem.ConnectFlag then
    begin
      Application.MessageBox(DEF_FAILED_CONNECTEDDB, '提示', 0);
      exit;
    end;
    Application.CreateForm(TFormMain, FormMain);
    SetLogo(40);
    if not DMSystem.CallLogin then exit;
    SetLogo(80);
    SetLogo(85);
    SetLogo(90);
    SetLogo(95);
    SetLogo(100);
    FreeLogo;
    Application.Run;
  except
    Application.MessageBox(DEF_FAILED_CONNECTEDDB ,'提示',0);
    exit;
  end;
end.