BillsEditor/Dpr/Common/BillsEditor_OnLine.dpr

program BillsEditor_OnLine;

uses
  Forms,
  Windows,
  MainForm in '..\..\MF\MainForm.pas' {MainFrm},
  BillsProjectFrame in '..\..\MF\BillsProjectFrame.pas' {BillsProjectView: TFrame},
  StdBillsLibForm in '..\..\MF\StdBillsLibForm.pas' {StdBillsLibFrm},
  DataBase in '..\..\DB\DataBase.pas' {DMDataBase: TDataModule},
  StdBillsLibDM in '..\..\DB\StdBillsLibDM.pas' {DMStdBillsLib: TDataModule},
  ConstMethodUnit in '..\..\CU\ConstMethodUnit.pas',
  ConstTypeUnit in '..\..\CU\ConstTypeUnit.pas',
  ConstVarUnit in '..\..\CU\ConstVarUnit.pas',
  ScAutoUpdateUnit in '..\..\CU\ScAutoUpdateUnit.pas',
  ScBillsTree in '..\..\CU\ScBillsTree.pas',
  ScCopyBills in '..\..\CU\ScCopyBills.pas',
  ScFileArchiver in '..\..\CU\ScFileArchiver.pas',
  ScFileProviders in '..\..\CU\ScFileProviders.pas',
  ScKindsOfTrees in '..\..\CU\ScKindsOfTrees.pas',
  ScProjectManager in '..\..\CU\ScProjectManager.pas',
  ScTables in '..\..\CU\ScTables.pas',
  ScUpdateDataBase in '..\..\CU\ScUpdateDataBase.pas',
  AboutForm in '..\..\AF\AboutForm.pas' {AboutFrm},
  CheckPosForm in '..\..\AF\CheckPosForm.pas' {CheckPosFrm},
  FlashForm in '..\..\AF\FlashForm.pas' {flashFrm},
  ScConfig in '..\..\CU\ScConfig.pas',
  ScStdBillsCtrl in '..\..\CU\ScStdBillsCtrl.pas',
  ScOptionsFrm in '..\..\MF\ScOptionsFrm.pas' {frmOptions},
  HisRestorePointFrm in '..\..\MF\HisRestorePointFrm.pas' {frmRestorePoint},
  HisRestorePointDM in '..\..\DB\HisRestorePointDM.pas' {DMHisRestorePoint: TDataModule},
  ScEvaluate in '..\..\CU\ScEvaluate.pas',
  ScExprsDM in '..\..\DB\ScExprsDM.pas' {DMExprs: TDataModule},
  beProgressFrm in '..\..\AF\beProgressFrm.pas' {frmProgressor},
  CryptUtils in '..\..\NetServer\CryptUtils.pas',
  ScLicenseCodeFrm in '..\..\AF\ScLicenseCodeFrm.pas' {LicenseCodeForm},
  ProjectPropertyDM in '..\..\DB\ProjectPropertyDM.pas' {ProjPropertyDM: TDataModule},
  NewProjectFrm in '..\..\AF\NewProjectFrm.pas' {NewProjectForm},
  fraFileManagerFrame in '..\..\MF\fraFileManagerFrame.pas' {FileManagerFrame: TFrame},
  fraBillsItemsFrame in '..\..\MF\fraBillsItemsFrame.pas' {BillsItemsFrame: TFrame},
  ProjectPropertyUnit in '..\..\CU\ProjectPropertyUnit.pas',
  SingleObjectAggregateUnit in '..\..\CU\SingleObjectAggregateUnit.pas',
  CustomDoc in '..\..\CU\CustomDoc.pas',
  ExportExcel in '..\..\CU\ExportExcel.pas',
  ImportExcel in '..\..\CU\ImportExcel.pas',
  ProjectFileManager in '..\..\CU\ProjectFileManager.pas',
  ProjectMergeSplitUnit in '..\..\CU\ProjectMergeSplitUnit.pas',
  ProjectPropertyThread in '..\..\CU\ProjectPropertyThread.pas',
  BidLotDM in '..\..\DB\BidLotDM.pas' {BidLotDataModule: TDataModule},
  DetailItemsDM in '..\..\DB\DetailItemsDM.pas' {DMDetailItems: TDataModule},
  LocateBillsDM in '..\..\DB\LocateBillsDM.pas' {BillsLocateDM: TDataModule},
  ProjectManagerDM in '..\..\DB\ProjectManagerDM.pas' {ProjectMgrDM: TDataModule},
  ExportExFrm in '..\..\AF\ExportExFrm.pas' {ExportExForm},
  BidLotAliasFrm in '..\..\AF\BidLotAliasFrm.pas' {BidAliasForm},
  ExportDecorateUnit in '..\..\CU\ExportDecorateUnit.pas',
  CommonIntfUnit in '..\..\CU\CommonIntfUnit.pas',
  FXQDManagerUnit in '..\..\CU\FXQDManagerUnit.pas',
  StdLibsManagerFrm in '..\..\AF\StdLibsManagerFrm.pas' {StdLibsManagerForm},
  FileOprUnit in '..\..\CU\FileOprUnit.pas',
  ScReportDM in '..\..\DB\ScReportDM.pas' {ReportData: TDataModule},
  ScProgressFrm in '..\..\MF\ScProgressFrm.pas' {ProgressFrm2},
  ScCustomSetErrorFrm in '..\..\MF\ScCustomSetErrorFrm.pas' {ScCustomSetErrorForm},
  ScReportsFrm in '..\..\Reports\UI\ScReportsFrm.pas' {ScReportsForm},
  ScWorkListFrm in '..\..\Reports\UI\ScWorkListFrm.pas' {ScWorkListForm},
  ReportAdjusterUnit in '..\..\Reports\Config\ReportAdjusterUnit.pas' {ReportAdjuster},
  ScGatherProjFrm in '..\..\MF\ScGatherProjFrm.pas' {GatherProjForm},
  ImportDecorate in '..\..\CU\ImportDecorate.pas',
  ScProvinceFrm in '..\..\DB\ScProvinceFrm.pas' {ScProvinceForm},
  RecycleBinDM in '..\..\DB\RecycleBinDM.pas' {RecycleBinData: TDataModule},
  RecycleBinFrm in '..\..\AF\RecycleBinFrm.pas' {RecycleBinForm},
  CfgPort in '..\..\..\SmartCost\netclient\CfgPort.pas',
  ClientService in '..\..\..\SmartCost\netclient\ClientService.pas',
  CorrespondClient in '..\..\..\SmartCost\netclient\CorrespondClient.pas',
  EnctyptClientData in '..\..\..\SmartCost\netclient\EnctyptClientData.pas',
  ScConnectEncrypt in '..\..\..\SmartCost\netclient\ScConnectEncrypt.pas',
  ScPHPWeb in '..\..\..\SmartCost\MainModule\Model\ScPHPWeb.pas' {PHPWeb: TDataModule},
  ScLoginFrm in '..\..\..\SmartCost\MainUI\Forms\ScLoginFrm.pas' {LoginFrm};

{$R *.res}

const
  strProcessName = 'BillsEditor_OnLine.exe';
  
var
  FlashWin: TflashFrm;

begin
  if ProcessIsRunning(strProcessName) = 1 then
  begin
    Application.Initialize;
    Application.Title := '纵横公路工程清单编制软件(网络版)';
  if not LoginForm then
    begin
      Application.Terminate;
      Exit;
    end;

    FlashWin := TflashFrm.Create(nil);
    FlashWin.Show;
    FlashWin.Update;
    Application.CreateForm(TMainFrm, MainFrm);
  FlashWin.Hide;
    FlashWin.Free;
    Application.Run;
  end;
end.