ticketsmanager.dpr.svn-base

这个是个简单的关于出票申请的处理

program TicketsManager;

uses
  Forms,
  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};

{$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('连接数据库失败，请检查网络设置和数据库配置！','提示',0);
      exit;
    end;
    Application.CreateForm(TFormMain, FormMain);
    SetLogo(40);
    if not DMSystem.CallLogin then exit;
    SetLogo(80);
    SetLogo(100);
    FreeLogo;
    Application.Run;
  except
    Application.MessageBox('连接数据库失败，请检查网络设置和数据库配置！','提示',0);
    exit;
  end;
end.