|
|
@@ -1,283 +0,0 @@
|
|
|
-program Measure_GuangDong_Cloud;
|
|
|
-
|
|
|
-{$R '..\..\res\uac.res' '..\..\res\uac.rc'}
|
|
|
-
|
|
|
-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},
|
|
|
- rmGclBillsAuditCompareDm in '..\..\DataModules\ReportMemoryDm\rmGclBillsAuditCompareDm.pas' {rmGclBillsAuditCompareData: TDataModule},
|
|
|
- rmTestFrm in '..\..\DataModules\ReportMemoryDm\rmTestFrm.pas' {rmTestForm},
|
|
|
- CheckAndClearFrm in '..\..\Forms\CheckAndClearFrm.pas' {CheckAndClearForm},
|
|
|
- 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' {Form1},
|
|
|
- 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',
|
|
|
- UpFileFrame in '..\..\Forms\UpFileFrame.pas',
|
|
|
- UpFileManageFrame in '..\..\Forms\UpFileManageFrame.pas',
|
|
|
- UpFileManageUnit in '..\..\Units\UpFileManageUnit.pas',
|
|
|
- SheetSelectFrm in '..\..\Forms\SheetSelectFrm.pas' {SheetSelectForm},
|
|
|
- Checker in '..\..\Units\Checker.pas',
|
|
|
- ReportInteractInfo in '..\..\Units\ReportInteractInfo.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',
|
|
|
- mProgressProFrm in '..\..\Forms\mProgressProFrm.pas' {ProgressProForm},
|
|
|
- BaseClipboard in '..\..\Units\BaseClipboard.pas',
|
|
|
- PriceMarginBillsDm in '..\..\DataModules\PriceMarginBillsDm.pas' {PriceMarginBillsData: TDataModule},
|
|
|
- ProjectGLDm in '..\..\DataModules\ProjectGLDm.pas' {ProjectGLData: TDataModule},
|
|
|
- GclBillsGatherModel in '..\..\Units\GclBillsGatherModel.pas',
|
|
|
- DetailGLDm in '..\..\DataModules\DetailGLDm.pas' {DetailGLData: TDataModule},
|
|
|
- rmHaBaiCustomizedDm in '..\..\DataModules\ReportMemoryDm\rmHaBaiCustomizedDm.pas' {rmHaBaiCustomizedData: TDataModule},
|
|
|
- PriceMarginBillsFme in '..\..\Frames\PriceMarginBillsFme.pas' {PriceMarginBillsFrame: TFrame},
|
|
|
- PriceMarginFme in '..\..\Frames\PriceMarginFme.pas' {PriceMarginFrame: TFrame},
|
|
|
- ProjectGLFme in '..\..\Frames\ProjectGLFme.pas' {ProjectGLFrame: TFrame},
|
|
|
- SelectDetailGLsFrm in '..\..\Forms\SelectDetailGLsFrm.pas' {SelectDetailGLsForm},
|
|
|
- DealPayPlanFrm in '..\..\Forms\DealPayPlanFrm.pas' {DealPayPlanForm},
|
|
|
- tpBaseGatherData in '..\..\TenderPartition\tpBaseGatherData.pas',
|
|
|
- tpGatherGcl in '..\..\TenderPartition\tpGatherGcl.pas',
|
|
|
- tpGatherTree in '..\..\TenderPartition\tpGatherTree.pas',
|
|
|
- tpMainData in '..\..\TenderPartition\tpMainData.pas',
|
|
|
- tpMainFrm in '..\..\TenderPartition\tpMainFrm.pas' {tpMainForm},
|
|
|
- tpNoPegDm in '..\..\TenderPartition\tpNoPegDm.pas' {tpNoPegData: TDataModule},
|
|
|
- tpPartTender in '..\..\TenderPartition\tpPartTender.pas',
|
|
|
- tpPartTenderFme in '..\..\TenderPartition\tpPartTenderFme.pas' {tpPartTenderFrame: TFrame},
|
|
|
- tpPartTenderSet in '..\..\TenderPartition\tpPartTenderSet.pas',
|
|
|
- tpPartTenderSetFme in '..\..\TenderPartition\tpPartTenderSetFme.pas' {tpPartTenderSetFrame: TFrame},
|
|
|
- tpPeg in '..\..\TenderPartition\tpPeg.pas',
|
|
|
- tpPeg_GclDm in '..\..\TenderPartition\tpPeg_GclDm.pas' {tpPeg_GclData: TDataModule},
|
|
|
- tpPeg_GclFme in '..\..\TenderPartition\tpPeg_GclFme.pas' {tpPeg_GclFrame: TFrame},
|
|
|
- tpPegBlock in '..\..\TenderPartition\tpPegBlock.pas',
|
|
|
- tpPegGclGatherDm in '..\..\TenderPartition\tpPegGclGatherDm.pas' {tpPegGclGatherData: TDataModule},
|
|
|
- tpPegGclGatherFme in '..\..\TenderPartition\tpPegGclGatherFme.pas' {tpPegGclGatherFrame: TFrame},
|
|
|
- tpPegPartSettingFrm in '..\..\TenderPartition\tpPegPartSettingFrm.pas' {tpPegPartSettingForm},
|
|
|
- tpPricePartSettingFrm in '..\..\TenderPartition\tpPricePartSettingFrm.pas' {tpPricePartSettingForm},
|
|
|
- tpSelectTenderDm in '..\..\TenderPartition\tpSelectTenderDm.pas' {tpSelectTenderData: TDataModule},
|
|
|
- tpSelectTenderNode in '..\..\TenderPartition\tpSelectTenderNode.pas',
|
|
|
- tpSelectTendersFrm in '..\..\TenderPartition\tpSelectTendersFrm.pas' {SelectTendersForm},
|
|
|
- tpTrialPegInputFrm in '..\..\TenderPartition\tpTrialPegInputFrm.pas' {TrialPegInputForm},
|
|
|
- mPegFilter in '..\..\Units\mPegFilter.pas',
|
|
|
- ReportPrepare in '..\..\Report\ReportPrepare.pas',
|
|
|
- rdpBillsGatherDm in '..\..\Report\DataPrepare\rdpBillsGatherDm.pas' {rdpBillsGatherData: TDataModule},
|
|
|
- rdpTables in '..\..\Report\DataPrepare\rdpTables.pas',
|
|
|
- ColVisibleManager in '..\..\Units\ColVisibleManager.pas',
|
|
|
- ReportConnection in '..\..\Report\ReportConnection.pas',
|
|
|
- rgpGatherControl in '..\..\Report\ProjGather\rgpGatherControl.pas',
|
|
|
- rpgBillsCalcDm in '..\..\Report\ProjGather\rpgBillsCalcDm.pas' {rpgBillsCalcData: TDataModule},
|
|
|
- rpgBillsDm in '..\..\Report\ProjGather\rpgBillsDm.pas' {rpgBillsData: TDataModule},
|
|
|
- rpgGatherControl in '..\..\Report\ProjGather\rpgGatherControl.pas',
|
|
|
- rpgGatherData in '..\..\Report\ProjGather\rpgGatherData.pas',
|
|
|
- rpgGatherProjDm in '..\..\Report\ProjGather\rpgGatherProjDm.pas' {rpgGatherProjData: TDataModule},
|
|
|
- rProjGatherTables in '..\..\Report\ProjGather\rProjGatherTables.pas',
|
|
|
- ProjGatherTree in '..\..\ProjGather\ProjGatherTree.pas',
|
|
|
- ProjGather in '..\..\ProjGather\ProjGather.pas',
|
|
|
- CalcData in '..\..\Units\CalcData.pas',
|
|
|
- GatherProjInfo in '..\..\ProjGather\GatherProjInfo.pas',
|
|
|
- ProjGatherCalcData in '..\..\ProjGather\ProjGatherCalcData.pas',
|
|
|
- ProjGatherSelectFrm in '..\..\ProjGather\ProjGatherSelectFrm.pas' {ProjGatherSelectForm},
|
|
|
- DealBillsExcelImport in '..\..\Units\DealBillsExcelImport.pas',
|
|
|
- ExcelImport_Bills in '..\..\Units\ExcelImport_Bills.pas',
|
|
|
- ExcelImport_GclBills in '..\..\Units\ExcelImport_GclBills.pas',
|
|
|
- DbTreeImport in '..\..\Units\DbTreeImport.pas',
|
|
|
- DbTreeDm in '..\..\DataModules\DbTreeDm.pas',
|
|
|
- DebugUsers in '..\..\Units\DebugUsers.pas',
|
|
|
- OtherMeasurePhaseDm in '..\..\DataModules\OtherMeasurePhaseDm.pas' {OtherMeasurePhaseData: TDataModule},
|
|
|
- OtherMeasureOnceDm in '..\..\DataModules\OtherMeasureOnceDm.pas' {OtherMeasureOnceData: TDataModule},
|
|
|
- OMPhaseRecord in '..\..\Units\DataRecord\OMPhaseRecord.pas',
|
|
|
- OtherMeasureFme in '..\..\Frames\OtherMeasureFme.pas' {OtherMeasureFrame: TFrame},
|
|
|
- ProjGatherSelectFme in '..\..\ProjGather\ProjGatherSelectFme.pas' {ProjGatherSelectFrame: TFrame},
|
|
|
- rpgZoneGatherControl in '..\..\Report\ProjGather\Zone\rpgZoneGatherControl.pas',
|
|
|
- rpgZoneProjGatherSelectFrm in '..\..\Report\ProjGather\Zone\rpgZoneProjGatherSelectFrm.pas' {rpgZoneProjGatherSelectForm},
|
|
|
- UpFileSelectOnLineFrm in '..\..\Forms\UpFileSelectOnLineFrm.pas' {UpFileSelectOnLineForm},
|
|
|
- LogUtils in '..\..\Units\LogUtils.pas',
|
|
|
- ReportPdfHelper in '..\..\Units\ReportPdfHelper.pas',
|
|
|
- SelectOnlineSignPhaseFrm in '..\..\Forms\SelectOnlineSignPhaseFrm.pas' {SelectOnlineSignPhaseForm},
|
|
|
- SignOnlineReportsFrm in '..\..\Forms\SignOnlineReportsFrm.pas' {SignOnlineReportsForm},
|
|
|
- SignReports in '..\..\Units\SignReports.pas',
|
|
|
- VirtualTrees in '..\..\..\SmartCost\Components\virtualtree\VirtualTrees.pas',
|
|
|
- TemplateManagerHelper in '..\..\Units\TemplateManagerHelper.pas',
|
|
|
- RenameSignReportFrm in '..\..\Forms\RenameSignReportFrm.pas' {RenameSignReportForm},
|
|
|
- rmWeiWuZjjlGatherDm in '..\..\DataModules\ReportMemoryDm\rmWeiWuZjjlGatherDm.pas' {rmWeiWuZjjlGatherData: TDataModule},
|
|
|
- SetGuestFrm in '..\..\Forms\SetGuestFrm.pas' {SetGuestForm},
|
|
|
- ProjGatherDealPay in '..\..\ProjGather\ProjGatherDealPay.pas',
|
|
|
- ProjGatherProperties in '..\..\ProjGather\ProjGatherProperties.pas',
|
|
|
- rpgDealPayDm in '..\..\Report\ProjGather\rpgDealPayDm.pas' {rgpDealPayData: TDataModule},
|
|
|
- superobject in '..\..\Units\superobject\superobject.pas',
|
|
|
- FileDownLoadFrm in '..\..\Forms\FileDownLoadFrm.pas' {FileDownLoadForm},
|
|
|
- ReportManagerFrm in '..\..\Forms\ReportManagerFrm.pas' {ReportManagerForm},
|
|
|
- ReportManagerDM in '..\..\DataModules\ReportManagerDM.pas' {Reports: TDataModule},
|
|
|
- ReportHistoryFrm in '..\..\Forms\ReportHistoryFrm.pas' {ReportHistoryForm};
|
|
|
-
|
|
|
-{$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);
|
|
|
- Application.CreateForm(TSetGuestForm, SetGuestForm);
|
|
|
- end;
|
|
|
- Application.Run;
|
|
|
- end;
|
|
|
-
|
|
|
- ReleaseMutex(Mutex);
|
|
|
-end.
|
