|
|
@@ -0,0 +1,204 @@
|
|
|
+program Measure_Cloud;
|
|
|
+
|
|
|
+uses
|
|
|
+ Windows,
|
|
|
+ ShareMem,
|
|
|
+ Forms,
|
|
|
+ Controls,
|
|
|
+ MainFrm in '..\..\Forms\MainFrm.pas' {MainForm},
|
|
|
+ ProjectManagerFme in '..\..\Frames\ProjectManagerFme.pas' {ProjectManagerFrame: TFrame},
|
|
|
+ UtilMethods in '..\..\Units\UtilMethods.pas',
|
|
|
+ ProjectManagerDm in '..\..\DataModules\ProjectManagerDm.pas' {ProjectManagerData: TDataModule},
|
|
|
+ Connections in '..\..\Units\Connections.pas',
|
|
|
+ TransFile in '..\..\Units\TransFile.pas',
|
|
|
+ ZhAPI in '..\..\Units\ZhAPI.pas',
|
|
|
+ CompactDB in '..\..\Units\CompactDB.pas',
|
|
|
+ OpenProjectManager in '..\..\Units\OpenProjectManager.pas',
|
|
|
+ ProjectData in '..\..\Units\ProjectData.pas',
|
|
|
+ UpdateDataBase in '..\..\Units\UpdateDataBase.pas',
|
|
|
+ DataBaseTables in '..\..\Units\DataBaseTables.pas',
|
|
|
+ ConfigDoc in '..\..\Units\ConfigDoc.pas',
|
|
|
+ SupportUnit in '..\..\Units\SupportUnit.pas',
|
|
|
+ StandardLibs in '..\..\Units\StandardLibs.pas',
|
|
|
+ StandardLib in '..\..\Units\StandardLib.pas',
|
|
|
+ NewProjectFrm in '..\..\Forms\NewProjectFrm.pas' {NewProjectForm},
|
|
|
+ ProjectFme in '..\..\Frames\ProjectFme.pas' {ProjectFrame: TFrame},
|
|
|
+ StandardBillsDm in '..\..\DataModules\StandardBillsDm.pas' {StandardBillsData: TDataModule},
|
|
|
+ StandardBillsFme in '..\..\Frames\StandardBillsFme.pas' {StandardBillsFrame: TFrame},
|
|
|
+ StandardLibsFme in '..\..\Frames\StandardLibsFme.pas' {StandardLibsFrame: TFrame},
|
|
|
+ BillsDm in '..\..\DataModules\BillsDm.pas' {BillsData: TDataModule},
|
|
|
+ Globals in '..\..\Units\Globals.pas',
|
|
|
+ StageDm in '..\..\DataModules\StageDm.pas' {StageData: TDataModule},
|
|
|
+ ExcelImport in '..\..\Units\ExcelImport.pas',
|
|
|
+ CacheTree in '..\..\Units\CacheTree.pas',
|
|
|
+ MCacheTree in '..\..\Units\MCacheTree.pas',
|
|
|
+ ProjectPropertiesFrm in '..\..\Forms\ProjectPropertiesFrm.pas' {ProjectPropertiesForm},
|
|
|
+ ProjectProperty in '..\..\Units\ProjectProperty.pas',
|
|
|
+ FormulaCalc in '..\..\Units\FormulaCalc.pas',
|
|
|
+ BillsCommand in '..\..\Units\BillsCommand.pas',
|
|
|
+ PhaseData in '..\..\Units\PhaseData.pas',
|
|
|
+ PhaseProperty in '..\..\Units\PhaseProperty.pas',
|
|
|
+ BillsClipboard in '..\..\Units\BillsClipboard.pas',
|
|
|
+ BillsTree in '..\..\Units\BillsTree.pas',
|
|
|
+ ProjectCommands in '..\..\Units\ProjectCommands.pas',
|
|
|
+ PhaseCompareDm in '..\..\DataModules\PhaseCompareDm.pas' {PhaseCompareData: TDataModule},
|
|
|
+ PhaseCompareFme in '..\..\Frames\PhaseCompareFme.pas' {PhaseCompareFrame: TFrame},
|
|
|
+ OptionFrm in '..\..\Forms\OptionFrm.pas' {OptionForm},
|
|
|
+ DealPaymentDm in '..\..\DataModules\DealPaymentDm.pas' {DealPaymentData: TDataModule},
|
|
|
+ DealPaymentFme in '..\..\Frames\DealPaymentFme.pas' {DealPaymentFrame: TFrame},
|
|
|
+ PhasePayDm in '..\..\DataModules\PhasePayDm.pas' {PhasePayData: TDataModule},
|
|
|
+ ZJJLDm in '..\..\DataModules\ZJJLDm.pas' {ZJJLData: TDataModule},
|
|
|
+ BillsGatherDm in '..\..\DataModules\BillsGatherDm.pas' {BillsGatherData: TDataModule},
|
|
|
+ BillsGatherFme in '..\..\Frames\BillsGatherFme.pas' {BillsGatherFrame: TFrame},
|
|
|
+ LoginFrm in '..\..\Forms\LoginFrm.pas' {LoginFrm},
|
|
|
+ PHPWebDm in '..\..\DataModules\PHPWebDm.pas' {PHPWeb: TDataModule},
|
|
|
+ MD5Unit in '..\..\Units\MD5Unit.pas',
|
|
|
+ ConstUnit in '..\..\Units\ConstUnit.pas',
|
|
|
+ ExportExcel in '..\..\Units\ExportExcel.pas',
|
|
|
+ mEncryptEditions in '..\..\Encrypt\mEncryptEditions.pas',
|
|
|
+ mEncryptUnit in '..\..\Encrypt\mEncryptUnit.pas',
|
|
|
+ CryptUtils in '..\..\Encrypt\CryptUtils.pas',
|
|
|
+ EncryptDog in '..\..\Encrypt\EncryptDog.pas',
|
|
|
+ mEncryptPWD in '..\..\Encrypt\mEncryptPWD.pas',
|
|
|
+ mEncryptTypes in '..\..\Encrypt\mEncryptTypes.pas',
|
|
|
+ mR1Encrypt in '..\..\Encrypt\mR1Encrypt.pas',
|
|
|
+ mS4Utils in '..\..\Encrypt\mS4Utils.pas',
|
|
|
+ mSNSEncrypt in '..\..\Encrypt\mSNSEncrypt.pas',
|
|
|
+ Rockey1 in '..\..\Encrypt\Rockey1.pas',
|
|
|
+ mConnectEncrypt in '..\..\Encrypt\NetClient\mConnectEncrypt.pas',
|
|
|
+ FindUserFrm in '..\..\Forms\FindUserFrm.pas' {FindUserForm},
|
|
|
+ CslJson in '..\..\Units\CslJson.pas',
|
|
|
+ OrderCheckerFme in '..\..\Frames\OrderCheckerFme.pas' {OrderCheckerFrame: TFrame},
|
|
|
+ CheckerFme in '..\..\Frames\CheckerFme.pas' {CheckerFrame: TFrame},
|
|
|
+ WebNewTenderFrm in '..\..\Forms\WebNewTenderFrm.pas' {WebNewTenderForm},
|
|
|
+ ScFileArchiver in '..\..\Encrypt\ScFileArchiver.pas',
|
|
|
+ SearchDm in '..\..\DataModules\SearchDm.pas' {SearchData: TDataModule},
|
|
|
+ DealBillsDm in '..\..\DataModules\DealBillsDm.pas' {DealBillsData: TDataModule},
|
|
|
+ BGLDm in '..\..\DataModules\BGLDm.pas' {BGLData: TDataModule},
|
|
|
+ StaffDm in '..\..\DataModules\StaffDm.pas' {StaffData: TDataModule},
|
|
|
+ BillsCompileDm in '..\..\DataModules\BillsCompileDm.pas' {BillsCompileData: TDataModule},
|
|
|
+ BillsMeasureDm in '..\..\DataModules\BillsMeasureDm.pas' {BillsMeasureData: TDataModule},
|
|
|
+ ReportManager in '..\..\Units\ReportManager.pas',
|
|
|
+ BGLSelectFrm in '..\..\Forms\BGLSelectFrm.pas' {BGLSelectForm},
|
|
|
+ BillsCompileFme in '..\..\Frames\BillsCompileFme.pas' {BillsCompileFrame: TFrame},
|
|
|
+ BillsMeasureFme in '..\..\Frames\BillsMeasureFme.pas' {BillsMeasureFrame: TFrame},
|
|
|
+ BatchReplaceBillsFrm in '..\..\Forms\BatchReplaceBillsFrm.pas' {BatchReplaceBillsForm},
|
|
|
+ ZJJLFme in '..\..\Frames\ZJJLFme.pas' {ZJJLFrame: TFrame},
|
|
|
+ BGLFme in '..\..\Frames\BGLFme.pas' {BGLFrame: TFrame},
|
|
|
+ MergeTextFrm in '..\..\Forms\MergeTextFrm.pas' {MergeTextForm},
|
|
|
+ ReportsFrm in '..\..\Forms\ReportsFrm.pas' {ReportsForm},
|
|
|
+ ReportAdjustFrm in '..\..\Forms\ReportAdjustFrm.pas' {ReportAdjustForm},
|
|
|
+ SearchFme in '..\..\Frames\SearchFme.pas' {SearchFrame: TFrame},
|
|
|
+ AuthFrm in '..\..\Forms\AuthFrm.pas' {AuthorizeForm},
|
|
|
+ AboutFrm in '..\..\Forms\AboutFrm.pas' {AboutForm},
|
|
|
+ ImportExcelHintFrm in '..\..\Forms\ImportExcelHintFrm.pas' {ImportExcelHintForm},
|
|
|
+ PasswordInputFrm in '..\..\Forms\PasswordInputFrm.pas' {PasswordInputForm},
|
|
|
+ BatchInsertBillsFrm in '..\..\Forms\BatchInsertBillsFrm.pas' {BatchInsertBillsForm},
|
|
|
+ MainDataListDm in '..\..\DataModules\MainDataListDm.pas' {MainListData: TDataModule},
|
|
|
+ mProgressFrm in '..\..\Forms\mProgressFrm.pas' {mProgress},
|
|
|
+ rmGclBillsBGDm in '..\..\DataModules\ReportMemoryDm\rmGclBillsBGDm.pas' {rmGclBillsBGData: TDataModule},
|
|
|
+ rmGclBillsCompareDm in '..\..\DataModules\ReportMemoryDm\rmGclBillsCompareDm.pas' {rmGclBillsCompareData: TDataModule},
|
|
|
+ rmBGLExecutionDm in '..\..\DataModules\ReportMemoryDm\rmBGLExecutionDm.pas' {rmBGLExecutionData: TDataModule},
|
|
|
+ rmBillsGatherDm in '..\..\DataModules\ReportMemoryDm\rmBillsGatherDm.pas' {rmBillsGatherData: TDataModule},
|
|
|
+ rmFxBillsAddDm in '..\..\DataModules\ReportMemoryDm\rmFxBillsAddDm.pas' {rmFxBillsAddData: TDataModule},
|
|
|
+ rmFxBillsCompareDm in '..\..\DataModules\ReportMemoryDm\rmFxBillsCompareDm.pas' {rmFxBillsCompareData: TDataModule},
|
|
|
+ rmGclBillsAddDm in '..\..\DataModules\ReportMemoryDm\rmGclBillsAddDm.pas' {rmGclBillsAddData: TDataModule},
|
|
|
+ rmGridHeaderDm in '..\..\DataModules\ReportMemoryDm\rmGridHeaderDm.pas' {rmGridHeaderData: TDataModule},
|
|
|
+ rmCacheData in '..\..\DataModules\ReportMemoryDm\rmCacheData.pas',
|
|
|
+ rmSelectProjectFrm in '..\..\Forms\rmSelectProjectFrm.pas' {ProjectSelectForm},
|
|
|
+ ConditionalDefines in '..\..\Units\ConditionalDefines.pas',
|
|
|
+ ProgressHintFrm in '..\..\Forms\ProgressHintFrm.pas' {ProgressHintForm},
|
|
|
+ CheckAndClearFrm in '..\..\Forms\CheckAndClearFrm.pas' {CheckAndClearForm},
|
|
|
+ rmGclBillsAuditCompareDm in '..\..\DataModules\ReportMemoryDm\rmGclBillsAuditCompareDm.pas' {rmGclBillsAuditCompareData: TDataModule},
|
|
|
+ rmTestFrm in '..\..\DataModules\ReportMemoryDm\rmTestFrm.pas' {rmTestForm},
|
|
|
+ DealBillsFrm in '..\..\Forms\DealBillsFrm.pas' {DealBillsForm},
|
|
|
+ TenderBackupFrm in '..\..\Forms\TenderBackupFrm.pas' {TenderBackupForm},
|
|
|
+ TenderBackupDm in '..\..\DataModules\TenderBackupDm.pas' {TenderBackupData: TDataModule},
|
|
|
+ BillsBookmarkDm in '..\..\DataModules\BillsBookmarkDm.pas' {BillsBookmarkData: TDataModule},
|
|
|
+ BookmarkFme in '..\..\Frames\BookmarkFme.pas' {BookmarkFrame: TFrame},
|
|
|
+ rmDealInfosDm in '..\..\DataModules\ReportMemoryDm\rmDealInfosDm.pas' {rmDealInfosData: TDataModule},
|
|
|
+ rmXmjBGLDetailDm in '..\..\DataModules\ReportMemoryDm\rmXmjBGLDetailDm.pas' {rmXmjBGLDetailData: TDataModule},
|
|
|
+ WelcomeFrm in '..\..\Forms\WelcomeFrm.pas' {WelcomeForm},
|
|
|
+ rmOtherReport1Dm in '..\..\DataModules\ReportMemoryDm\rmOtherReport1Dm.pas' {rmOtherReport1Data: TDataModule},
|
|
|
+ CheckerMemoFrm in '..\..\Forms\CheckerMemoFrm.pas' {CheckerMemoForm},
|
|
|
+ CslHint in '..\..\Units\CslHint.pas',
|
|
|
+ IPFrm in '..\..\Forms\IPFrm.pas' {IPForm},
|
|
|
+ TenderBackupManager in '..\..\Units\TenderBackupManager.pas',
|
|
|
+ UpFileManageUnit in '..\..\Units\UpFileManageUnit.pas',
|
|
|
+ UpFileFrame in '..\..\Forms\UpFileFrame.pas',
|
|
|
+ UpFileManageFrame in '..\..\Forms\UpFileManageFrame.pas',
|
|
|
+ SheetSelectFrm in '..\..\Forms\SheetSelectFrm.pas' {SheetSelectForm},
|
|
|
+ ReportInteractInfo in '..\..\Units\ReportInteractInfo.pas',
|
|
|
+ Checker in '..\..\Units\Checker.pas',
|
|
|
+ AuditSelectFrm in '..\..\Forms\ReportInteractFrms\AuditSelectFrm.pas' {AuditSelctForm},
|
|
|
+ DealBillsFme in '..\..\Frames\DealBillsFme.pas' {DealBillsFrame: TFrame},
|
|
|
+ rmGclBillsPlaneDm in '..\..\DataModules\ReportMemoryDm\rmGclBillsPlaneDm.pas' {rmGclBillsPlaneData: TDataModule},
|
|
|
+ StageCompareDm in '..\..\DataModules\StageCompareDm.pas' {StageCompareData: TDataModule},
|
|
|
+ mDataRecord in '..\..\Units\mDataRecord.pas',
|
|
|
+ BGLClipboard in '..\..\Units\BGLClipboard.pas',
|
|
|
+ rmMentalCustomized1Dm in '..\..\DataModules\ReportMemoryDm\rmMentalCustomized1Dm.pas' {rmMentalCustomized1Data: TDataModule},
|
|
|
+ rmGcl_XmjBillsDm in '..\..\DataModules\ReportMemoryDm\rmGcl_XmjBillsDm.pas' {rmGcl_XmjBillsData: TDataModule},
|
|
|
+ rmCustomized2Dm in '..\..\DataModules\ReportMemoryDm\rmCustomized2Dm.pas' {rmCustomized2Data: TDataModule},
|
|
|
+ CalcDecimal in '..\..\Units\CalcDecimal.pas',
|
|
|
+ BillsPasteSelectFrm in '..\..\Forms\BillsPasteSelectFrm.pas' {BillsPasteSelectForm},
|
|
|
+ //DetailExcelImport in '..\..\Units\DetailExcelImport.pas',
|
|
|
+ GclBillsGatherModel in '..\..\Units\GclBillsGatherModel.pas',
|
|
|
+ PriceMarginBillsDm in '..\..\DataModules\PriceMarginBillsDm.pas' {PriceMarginBillsData: TDataModule},
|
|
|
+ ProjectGLDm in '..\..\DataModules\ProjectGLDm.pas' {ProjectGLData: TDataModule},
|
|
|
+ PriceMarginBillsFme in '..\..\Frames\PriceMarginBillsFme.pas' {PriceMarginBillsFrame: TFrame},
|
|
|
+ PriceMarginFme in '..\..\Frames\PriceMarginFme.pas' {PriceMarginFrame: TFrame},
|
|
|
+ ProjectGLFme in '..\..\Frames\ProjectGLFme.pas' {ProjectGLFrame: TFrame},
|
|
|
+ DetailGLDm in '..\..\DataModules\DetailGLDm.pas' {DetailGLData: TDataModule},
|
|
|
+ rmHaBaiCustomizedDm in '..\..\DataModules\ReportMemoryDm\rmHaBaiCustomizedDm.pas' {rmHaBaiCustomizedData: TDataModule},
|
|
|
+ BaseClipboard in '..\..\Units\BaseClipboard.pas',
|
|
|
+ SelectDetailGLsFrm in '..\..\Forms\SelectDetailGLsFrm.pas' {SelectDetailGLsForm},
|
|
|
+ DealPayPlanFrm in '..\..\Forms\DealPayPlanFrm.pas' {DealPayPlanForm};
|
|
|
+
|
|
|
+{$R *.res}
|
|
|
+
|
|
|
+var
|
|
|
+ Mutex: THandle;
|
|
|
+ IPForm: TIPForm;
|
|
|
+
|
|
|
+begin
|
|
|
+ Mutex := CreateMutex(nil, True, G_AppHandleName);
|
|
|
+
|
|
|
+ if GetLastError = ERROR_ALREADY_EXISTS then
|
|
|
+ Application.MessageBox('程序正在运行, 请勿重复打开该软件！', '系统提示', MB_OK + MB_ICONINFORMATION)
|
|
|
+ else
|
|
|
+ begin
|
|
|
+ Application.CreateHandle;
|
|
|
+ Application.Initialize;
|
|
|
+ Application.Title := '纵横公路工程结算决算计量一体化软件云版';
|
|
|
+ {$IFDEF _mCloud}
|
|
|
+ IPForm := TIPForm.Create(nil);
|
|
|
+ try
|
|
|
+ if not IPForm.HasIP then
|
|
|
+ begin
|
|
|
+ IPForm.ShowModal;
|
|
|
+ if IPForm.ModalResult <> mrOK then
|
|
|
+ begin
|
|
|
+ Application.Terminate;
|
|
|
+ Exit;
|
|
|
+ end;
|
|
|
+ end;
|
|
|
+ finally
|
|
|
+ IPForm.Free;
|
|
|
+ end;
|
|
|
+
|
|
|
+ if not LoginForm then
|
|
|
+ begin
|
|
|
+ Application.Terminate;
|
|
|
+ Exit;
|
|
|
+ end;
|
|
|
+ {$ENDIF}
|
|
|
+
|
|
|
+ if CheckDogExists then
|
|
|
+ begin
|
|
|
+ Application.CreateForm(TMainForm, MainForm);
|
|
|
+ end;
|
|
|
+ Application.Run;
|
|
|
+ end;
|
|
|
+
|
|
|
+ ReleaseMutex(Mutex);
|
|
|
+end.
|
