|  | @@ -0,0 +1,356 @@
 | 
												
													
														
															|  | 
 |  | +program Measure_Cloud_Debug;
 | 
												
													
														
															|  | 
 |  | +
 | 
												
													
														
															|  | 
 |  | +{$R '..\..\res\uac.res' '..\..\res\uac.rc'}
 | 
												
													
														
															|  | 
 |  | +
 | 
												
													
														
															|  | 
 |  | +uses
 | 
												
													
														
															|  | 
 |  | +  Windows,
 | 
												
													
														
															|  | 
 |  | +  ShareMem,
 | 
												
													
														
															|  | 
 |  | +  HttpApp,
 | 
												
													
														
															|  | 
 |  | +  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',
 | 
												
													
														
															|  | 
 |  | +  mProgressProFrm in '..\..\Forms\mProgressProFrm.pas' {ProgressProForm},
 | 
												
													
														
															|  | 
 |  | +  rmHaBaiCustomizedDm in '..\..\DataModules\ReportMemoryDm\rmHaBaiCustomizedDm.pas' {rmHaBaiCustomizedData: TDataModule},
 | 
												
													
														
															|  | 
 |  | +  ProjectGLDm in '..\..\DataModules\ProjectGLDm.pas' {ProjectGLData: TDataModule},
 | 
												
													
														
															|  | 
 |  | +  PriceMarginBillsDm in '..\..\DataModules\PriceMarginBillsDm.pas' {PriceMarginBillsData: TDataModule},
 | 
												
													
														
															|  | 
 |  | +  GclBillsGatherModel in '..\..\Units\GclBillsGatherModel.pas',
 | 
												
													
														
															|  | 
 |  | +  DetailGLDm in '..\..\DataModules\DetailGLDm.pas' {DetailGLData: TDataModule},
 | 
												
													
														
															|  | 
 |  | +  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},
 | 
												
													
														
															|  | 
 |  | +  BaseClipboard in '..\..\Units\BaseClipboard.pas',
 | 
												
													
														
															|  | 
 |  | +  mPegFilter in '..\..\Units\mPegFilter.pas',
 | 
												
													
														
															|  | 
 |  | +  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},
 | 
												
													
														
															|  | 
 |  | +  PriceMarginBillsFme in '..\..\Frames\PriceMarginBillsFme.pas' {PriceMarginBillsFrame: TFrame},
 | 
												
													
														
															|  | 
 |  | +  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' {DbTreeData: TDataModule},
 | 
												
													
														
															|  | 
 |  | +  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},
 | 
												
													
														
															|  | 
 |  | +  ReportManagerFrm in '..\..\Forms\ReportManagerFrm.pas',
 | 
												
													
														
															|  | 
 |  | +  ReportManagerDM in '..\..\DataModules\ReportManagerDM.pas' {Reports: TDataModule},
 | 
												
													
														
															|  | 
 |  | +  ReportHistoryFrm in '..\..\Forms\ReportHistoryFrm.pas' {ReportHistoryForm},
 | 
												
													
														
															|  | 
 |  | +  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},
 | 
												
													
														
															|  | 
 |  | +  MeasureGatherZJJL in '..\..\Units\MeasureGatherZJJL.pas',
 | 
												
													
														
															|  | 
 |  | +  stgGatherControl in '..\..\SubTenderGather\stgGatherControl.pas',
 | 
												
													
														
															|  | 
 |  | +  stgGatherCacheData in '..\..\SubTenderGather\stgGatherCacheData.pas',
 | 
												
													
														
															|  | 
 |  | +  stgGatherDm in '..\..\SubTenderGather\stgGatherDm.pas' {stgGatherData: TDataModule},
 | 
												
													
														
															|  | 
 |  | +  stgGatherUtils in '..\..\SubTenderGather\stgGatherUtils.pas',
 | 
												
													
														
															|  | 
 |  | +  stgResultFrm in '..\..\SubTenderGather\stgResultFrm.pas' {stgResultForm},
 | 
												
													
														
															|  | 
 |  | +  stgExcelExport in '..\..\SubTenderGather\stgExcelExport.pas',
 | 
												
													
														
															|  | 
 |  | +  stgSubGatherFile in '..\..\SubTenderGather\stgSubGatherFile.pas',
 | 
												
													
														
															|  | 
 |  | +  stgSubGatherFileDm in '..\..\SubTenderGather\stgSubGatherFileDm.pas' {stgSubGatherData: TDataModule},
 | 
												
													
														
															|  | 
 |  | +  stgTables in '..\..\SubTenderGather\stgTables.pas',
 | 
												
													
														
															|  | 
 |  | +  stgGather in '..\..\SubTenderGather\stgGather.pas',
 | 
												
													
														
															|  | 
 |  | +  stgSelectFileFrm in '..\..\SubTenderGather\stgSelectFileFrm.pas' {stgSelectFileForm},
 | 
												
													
														
															|  | 
 |  | +  rmWuJiuZqzfGatherDm in '..\..\DataModules\ReportMemoryDm\rmWuJiuZqzfGatherDm.pas' {rmWuJiuZqzfGatherData: TDataModule},
 | 
												
													
														
															|  | 
 |  | +  AttachmentInfoDm in '..\..\DataModules\AttachmentInfoDm.pas' {AttachmentInfoData: TDataModule},
 | 
												
													
														
															|  | 
 |  | +  DealPayFinalDm in '..\..\DataModules\DealPayFinalDm.pas' {DealPayFinalData: TDataModule},
 | 
												
													
														
															|  | 
 |  | +  uGetMacAddr in '..\..\Units\uGetMacAddr.pas',
 | 
												
													
														
															|  | 
 |  | +  rmZhongKaiDm in '..\..\DataModules\ReportMemoryDm\rmZhongKaiDm.pas' {rmZhongKaiData: TDataModule},
 | 
												
													
														
															|  | 
 |  | +  BillsPosTree in '..\..\Units\BillsPosTree.pas';
 | 
												
													
														
															|  | 
 |  | +
 | 
												
													
														
															|  | 
 |  | +{$R *.res}
 | 
												
													
														
															|  | 
 |  | +
 | 
												
													
														
															|  | 
 |  | +var
 | 
												
													
														
															|  | 
 |  | +  Mutex: THandle;
 | 
												
													
														
															|  | 
 |  | +  IPForm: TIPForm;
 | 
												
													
														
															|  | 
 |  | +  vFDForm: TFileDownLoadForm;
 | 
												
													
														
															|  | 
 |  | +  sInfo, sURL, sName: string;
 | 
												
													
														
															|  | 
 |  | +
 | 
												
													
														
															|  | 
 |  | +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;
 | 
												
													
														
															|  | 
 |  | +
 | 
												
													
														
															|  | 
 |  | +      {$IFDEF _mLoginNoPW}
 | 
												
													
														
															|  | 
 |  | +      sName := PHPWeb.GetNameFromURLProtocol(ParamStr(1));
 | 
												
													
														
															|  | 
 |  | +
 | 
												
													
														
															|  | 
 |  | +         
 | 
												
													
														
															|  | 
 |  | +      if sName = '' then         // 表示手工运行的
 | 
												
													
														
															|  | 
 |  | +      begin
 | 
												
													
														
															|  | 
 |  | +        Application.MessageBox('请从 项目管理信息平台 打开软件。', '系统提示', MB_OK + MB_ICONINFORMATION);
 | 
												
													
														
															|  | 
 |  | +        Application.Terminate;
 | 
												
													
														
															|  | 
 |  | +      end
 | 
												
													
														
															|  | 
 |  | +      else
 | 
												
													
														
															|  | 
 |  | +
 | 
												
													
														
															|  | 
 |  | +      begin
 | 
												
													
														
															|  | 
 |  | +        // For Test only!
 | 
												
													
														
															|  | 
 |  | +//        Application.MessageBox(PChar(ParamStr(1) + #10#13 + sName), '系统提示', MB_OK + MB_ICONINFORMATION);
 | 
												
													
														
															|  | 
 |  | +//        Application.Terminate;
 | 
												
													
														
															|  | 
 |  | +        if sName[1]= '%' then
 | 
												
													
														
															|  | 
 |  | +           sName:=UTF8Decode(HttpDecode(sName));
 | 
												
													
														
															|  | 
 |  | +
 | 
												
													
														
															|  | 
 |  | +        case PHPWeb.Login(sName, '', 2, sInfo, sURL) of
 | 
												
													
														
															|  | 
 |  | +          ltLoginFail:
 | 
												
													
														
															|  | 
 |  | +          begin
 | 
												
													
														
															|  | 
 |  | +            Application.MessageBox('该用户尚未注册不能登录!', '操作提醒', MB_OK + MB_ICONWARNING);
 | 
												
													
														
															|  | 
 |  | +            Application.Terminate;
 | 
												
													
														
															|  | 
 |  | +          end;
 | 
												
													
														
															|  | 
 |  | +
 | 
												
													
														
															|  | 
 |  | +          ltUpdate:  // 升级
 | 
												
													
														
															|  | 
 |  | +          begin
 | 
												
													
														
															|  | 
 |  | +            if Application.MessageBox(PChar(sInfo), '系统提示', MB_OKCANCEL + MB_ICONQUESTION) = ID_OK then
 | 
												
													
														
															|  | 
 |  | +            begin
 | 
												
													
														
															|  | 
 |  | +              vFDForm := TFileDownLoadForm.Create(nil);
 | 
												
													
														
															|  | 
 |  | +              try
 | 
												
													
														
															|  | 
 |  | +                vFDForm.URL := sURL;
 | 
												
													
														
															|  | 
 |  | +                vFDForm.ShowModal;
 | 
												
													
														
															|  | 
 |  | +              finally
 | 
												
													
														
															|  | 
 |  | +                vFDForm.Free;
 | 
												
													
														
															|  | 
 |  | +              end;
 | 
												
													
														
															|  | 
 |  | +            end;
 | 
												
													
														
															|  | 
 |  | +            Application.Terminate;
 | 
												
													
														
															|  | 
 |  | +          end;
 | 
												
													
														
															|  | 
 |  | +
 | 
												
													
														
															|  | 
 |  | +          ltDisCon:
 | 
												
													
														
															|  | 
 |  | +          begin
 | 
												
													
														
															|  | 
 |  | +            Application.MessageBox('网络错误,请稍后重试!', '操作提醒', MB_OK + MB_ICONWARNING);
 | 
												
													
														
															|  | 
 |  | +            Application.Terminate;
 | 
												
													
														
															|  | 
 |  | +          end;
 | 
												
													
														
															|  | 
 |  | +
 | 
												
													
														
															|  | 
 |  | +        else
 | 
												
													
														
															|  | 
 |  | +          ;
 | 
												
													
														
															|  | 
 |  | +        end;  
 | 
												
													
														
															|  | 
 |  | +      end;
 | 
												
													
														
															|  | 
 |  | +
 | 
												
													
														
															|  | 
 |  | +      {$ELSE}
 | 
												
													
														
															|  | 
 |  | +      if not LoginForm then
 | 
												
													
														
															|  | 
 |  | +      begin
 | 
												
													
														
															|  | 
 |  | +        Application.Terminate;
 | 
												
													
														
															|  | 
 |  | +        Exit;
 | 
												
													
														
															|  | 
 |  | +      end;
 | 
												
													
														
															|  | 
 |  | +      {$ENDIF}
 | 
												
													
														
															|  | 
 |  | +      
 | 
												
													
														
															|  | 
 |  | +    {$ENDIF}
 | 
												
													
														
															|  | 
 |  | +
 | 
												
													
														
															|  | 
 |  | +    if CheckDogExists then
 | 
												
													
														
															|  | 
 |  | +    begin
 | 
												
													
														
															|  | 
 |  | +      Application.CreateForm(TMainForm, MainForm);
 | 
												
													
														
															|  | 
 |  | +  Application.CreateForm(TSetGuestForm, SetGuestForm);
 | 
												
													
														
															|  | 
 |  | +  end;
 | 
												
													
														
															|  | 
 |  | +    Application.Run;
 | 
												
													
														
															|  | 
 |  | +  end;
 | 
												
													
														
															|  | 
 |  | +
 | 
												
													
														
															|  | 
 |  | +  ReleaseMutex(Mutex);
 | 
												
													
														
															|  | 
 |  | +end.
 |