Measure.dpr 18 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306
  1. program Measure;
  2. {$R 'uac.res' 'uac.rc'}
  3. uses
  4. ShareMem,
  5. Forms,
  6. Controls,
  7. MainFrm in '..\Forms\MainFrm.pas' {MainForm},
  8. ProjectManagerFme in '..\Frames\ProjectManagerFme.pas' {ProjectManagerFrame: TFrame},
  9. UtilMethods in '..\Units\UtilMethods.pas',
  10. ProjectManagerDm in '..\DataModules\ProjectManagerDm.pas' {ProjectManagerData: TDataModule},
  11. Connections in '..\Units\Connections.pas',
  12. TransFile in '..\Units\TransFile.pas',
  13. ZhAPI in '..\Units\ZhAPI.pas',
  14. CompactDB in '..\Units\CompactDB.pas',
  15. OpenProjectManager in '..\Units\OpenProjectManager.pas',
  16. ProjectData in '..\Units\ProjectData.pas',
  17. UpdateDataBase in '..\Units\UpdateDataBase.pas',
  18. DataBaseTables in '..\Units\DataBaseTables.pas',
  19. ConfigDoc in '..\Units\ConfigDoc.pas',
  20. SupportUnit in '..\Units\SupportUnit.pas',
  21. StandardLibs in '..\Units\StandardLibs.pas',
  22. StandardLib in '..\Units\StandardLib.pas',
  23. NewProjectFrm in '..\Forms\NewProjectFrm.pas' {NewProjectForm},
  24. ProjectFme in '..\Frames\ProjectFme.pas' {ProjectFrame: TFrame},
  25. StandardBillsDm in '..\DataModules\StandardBillsDm.pas' {StandardBillsData: TDataModule},
  26. StandardBillsFme in '..\Frames\StandardBillsFme.pas' {StandardBillsFrame: TFrame},
  27. StandardLibsFme in '..\Frames\StandardLibsFme.pas' {StandardLibsFrame: TFrame},
  28. BillsDm in '..\DataModules\BillsDm.pas' {BillsData: TDataModule},
  29. BillsMeasureFme in '..\Frames\BillsMeasureFme.pas' {BillsMeasureFrame: TFrame},
  30. Globals in '..\Units\Globals.pas',
  31. StageDm in '..\DataModules\StageDm.pas' {StageData: TDataModule},
  32. ExcelImport in '..\Units\ExcelImport.pas',
  33. CacheTree in '..\Units\CacheTree.pas',
  34. MCacheTree in '..\Units\MCacheTree.pas',
  35. ProjectPropertiesFrm in '..\Forms\ProjectPropertiesFrm.pas' {ProjectPropertiesForm},
  36. ProjectProperty in '..\Units\ProjectProperty.pas',
  37. FormulaCalc in '..\Units\FormulaCalc.pas',
  38. BillsCommand in '..\Units\BillsCommand.pas',
  39. PhaseData in '..\Units\PhaseData.pas',
  40. PhaseProperty in '..\Units\PhaseProperty.pas',
  41. BillsClipboard in '..\Units\BillsClipboard.pas',
  42. BillsTree in '..\Units\BillsTree.pas',
  43. ProjectCommands in '..\Units\ProjectCommands.pas',
  44. PhaseCompareDm in '..\DataModules\PhaseCompareDm.pas' {PhaseCompareData: TDataModule},
  45. PhaseCompareFme in '..\Frames\PhaseCompareFme.pas' {PhaseCompareFrame: TFrame},
  46. OptionFrm in '..\Forms\OptionFrm.pas' {OptionForm},
  47. DealPaymentDm in '..\DataModules\DealPaymentDm.pas' {DealPaymentData: TDataModule},
  48. DealPaymentFme in '..\Frames\DealPaymentFme.pas' {DealPaymentFrame: TFrame},
  49. PhasePayDm in '..\DataModules\PhasePayDm.pas' {PhasePayData: TDataModule},
  50. BillsGatherFme in '..\Frames\BillsGatherFme.pas' {BillsGatherFrame: TFrame},
  51. BillsGatherDm in '..\DataModules\BillsGatherDm.pas' {BillsGatherData: TDataModule},
  52. ZJJLFme in '..\Frames\ZJJLFme.pas' {ZJJLFrame: TFrame},
  53. ZJJLDm in '..\DataModules\ZJJLDm.pas' {ZJJLData: TDataModule},
  54. BGLFme in '..\Frames\BGLFme.pas' {BGLFrame: TFrame},
  55. BGLDm in '..\DataModules\BGLDm.pas' {BGLData: TDataModule},
  56. StaffDm in '..\DataModules\StaffDm.pas' {StaffData: TDataModule},
  57. ConstUnit in '..\Units\ConstUnit.pas',
  58. PHPWebDm in '..\DataModules\PHPWebDm.pas' {PHPWeb: TDataModule},
  59. MergeTextFrm in '..\Forms\MergeTextFrm.pas' {MergeTextForm},
  60. BGLSelectFrm in '..\Forms\BGLSelectFrm.pas' {BGLSelectForm},
  61. WebNewTenderFrm in '..\Forms\WebNewTenderFrm.pas' {WebNewTenderForm},
  62. ExportExcel in '..\Units\ExportExcel.pas',
  63. ReportsFrm in '..\Forms\ReportsFrm.pas' {ReportsForm},
  64. ReportManager in '..\Units\ReportManager.pas',
  65. BillsCompileDm in '..\DataModules\BillsCompileDm.pas' {BillsCompileData: TDataModule},
  66. BillsCompileFme in '..\Frames\BillsCompileFme.pas' {BillsCompileFrame: TFrame},
  67. BillsMeasureDm in '..\DataModules\BillsMeasureDm.pas' {BillsMeasureData: TDataModule},
  68. PasswordInputFrm in '..\Forms\PasswordInputFrm.pas' {PasswordInputForm},
  69. AboutFrm in '..\Forms\AboutFrm.pas' {AboutForm},
  70. AuthFrm in '..\Forms\AuthFrm.pas' {AuthorizeForm},
  71. mEncryptUnit in '..\Encrypt\mEncryptUnit.pas',
  72. mEncryptPWD in '..\Encrypt\mEncryptPWD.pas',
  73. mSNSEncrypt in '..\Encrypt\mSNSEncrypt.pas',
  74. mR1Encrypt in '..\Encrypt\mR1Encrypt.pas',
  75. mEncryptEditions in '..\Encrypt\mEncryptEditions.pas',
  76. mEncryptTypes in '..\Encrypt\mEncryptTypes.pas',
  77. mConnectEncrypt in '..\Encrypt\NetClient\mConnectEncrypt.pas',
  78. CryptUtils in '..\Encrypt\CryptUtils.pas',
  79. EncryptDog in '..\Encrypt\EncryptDog.pas',
  80. ScFileArchiver in '..\Encrypt\ScFileArchiver.pas',
  81. SearchFme in '..\Frames\SearchFme.pas' {SearchFrame: TFrame},
  82. BatchInsertBillsFrm in '..\Forms\BatchInsertBillsFrm.pas' {BatchInsertBillsForm},
  83. SearchDm in '..\DataModules\SearchDm.pas' {SearchData: TDataModule},
  84. CslJson in '..\Units\CslJson.pas',
  85. FindUserFrm in '..\Forms\FindUserFrm.pas' {FindUserForm},
  86. ImportExcelHintFrm in '..\Forms\ImportExcelHintFrm.pas' {ImportExcelHintForm},
  87. CheckerFme in '..\Frames\CheckerFme.pas' {CheckerFrame: TFrame},
  88. OrderCheckerFme in '..\Frames\OrderCheckerFme.pas' {OrderCheckerFrame: TFrame},
  89. ReportAdjustFrm in '..\Forms\ReportAdjustFrm.pas' {ReportAdjustForm},
  90. DealBillsDm in '..\DataModules\DealBillsDm.pas' {DealBillsData: TDataModule},
  91. BatchReplaceBillsFrm in '..\Forms\BatchReplaceBillsFrm.pas' {BatchReplaceBillsForm},
  92. MD5Unit in '..\Units\MD5Unit.pas',
  93. MainDataListDm in '..\DataModules\MainDataListDm.pas' {MainListData: TDataModule},
  94. mProgressFrm in '..\Forms\mProgressFrm.pas',
  95. rmGclBillsBGDm in '..\DataModules\ReportMemoryDm\rmGclBillsBGDm.pas' {rmGclBillsBGData: TDataModule},
  96. rmGclBillsCompareDm in '..\DataModules\ReportMemoryDm\rmGclBillsCompareDm.pas' {rmGclBillsCompareData: TDataModule},
  97. rmCacheData in '..\DataModules\ReportMemoryDm\rmCacheData.pas',
  98. rmSelectProjectFrm in '..\Forms\rmSelectProjectFrm.pas' {ProjectSelectForm},
  99. rmGridHeaderDm in '..\DataModules\ReportMemoryDm\rmGridHeaderDm.pas' {rmGridHeaderData: TDataModule},
  100. rmFxBillsCompareDm in '..\DataModules\ReportMemoryDm\rmFxBillsCompareDm.pas' {rmFxBillsCompareData: TDataModule},
  101. rmBGLExecutionDm in '..\DataModules\ReportMemoryDm\rmBGLExecutionDm.pas' {rmBGLExecutionData: TDataModule},
  102. rmGclBillsAddDm in '..\DataModules\ReportMemoryDm\rmGclBillsAddDm.pas' {rmGclBillsAddData: TDataModule},
  103. rmFxBillsAddDm in '..\DataModules\ReportMemoryDm\rmFxBillsAddDm.pas' {rmFxBillsAddData: TDataModule},
  104. rmBillsGatherDm in '..\DataModules\ReportMemoryDm\rmBillsGatherDm.pas' {rmBillsGatherData: TDataModule},
  105. ConditionalDefines in '..\Units\ConditionalDefines.pas',
  106. ProgressHintFrm in '..\Forms\ProgressHintFrm.pas' {ProgressHintForm},
  107. rmTestFrm in '..\DataModules\ReportMemoryDm\rmTestFrm.pas' {rmTestForm},
  108. rmGclBillsAuditCompareDm in '..\DataModules\ReportMemoryDm\rmGclBillsAuditCompareDm.pas' {rmGclBillsAuditCompareData: TDataModule},
  109. CheckAndClearFrm in '..\Forms\CheckAndClearFrm.pas' {CheckAndClearForm},
  110. DealBillsFrm in '..\Forms\DealBillsFrm.pas' {DealBillsForm},
  111. BillsBookmarkDm in '..\DataModules\BillsBookmarkDm.pas' {BillsBookmarkData: TDataModule},
  112. BookmarkFme in '..\Frames\BookmarkFme.pas' {BookmarkFrame: TFrame},
  113. rmDealInfosDm in '..\DataModules\ReportMemoryDm\rmDealInfosDm.pas' {rmDealInfosData: TDataModule},
  114. rmXmjBGLDetailDm in '..\DataModules\ReportMemoryDm\rmXmjBGLDetailDm.pas' {rmXmjBGLDetailData: TDataModule},
  115. WelcomeFrm in '..\Forms\WelcomeFrm.pas' {WelcomeForm},
  116. rmOtherReport1Dm in '..\DataModules\ReportMemoryDm\rmOtherReport1Dm.pas' {rmOtherReport1Data: TDataModule},
  117. rmGcl_XmjBillsDm in '..\DataModules\ReportMemoryDm\rmGcl_XmjBillsDm.pas' {rmGcl_XmjBillsData: TDataModule},
  118. CheckerMemoFrm in '..\Forms\CheckerMemoFrm.pas' {CheckerMemoForm},
  119. TenderBackupManager in '..\Units\TenderBackupManager.pas',
  120. UpFileManageUnit in '..\Units\UpFileManageUnit.pas',
  121. UpFileManageFrame in '..\Forms\UpFileManageFrame.pas',
  122. UpFileFrame in '..\Forms\UpFileFrame.pas',
  123. SheetSelectFrm in '..\Forms\SheetSelectFrm.pas' {SheetSelectForm},
  124. DealBillsFme in '..\Frames\DealBillsFme.pas' {DealBillsFrame: TFrame},
  125. Checker in '..\Units\Checker.pas',
  126. AuditSelectFrm in '..\Forms\ReportInteractFrms\AuditSelectFrm.pas' {AuditSelctForm},
  127. ReportInteractInfo in '..\Units\ReportInteractInfo.pas',
  128. IPFrm in '..\Forms\IPFrm.pas' {IPForm},
  129. LoginFrm in '..\Forms\LoginFrm.pas' {LoginForm},
  130. rmGclBillsPlaneDm in '..\DataModules\ReportMemoryDm\rmGclBillsPlaneDm.pas' {rmGclBillsPlaneData: TDataModule},
  131. StageCompareDm in '..\DataModules\StageCompareDm.pas' {StageCompareData: TDataModule},
  132. mDataRecord in '..\Units\mDataRecord.pas',
  133. BGLClipboard in '..\Units\BGLClipboard.pas',
  134. rmMentalCustomized1Dm in '..\DataModules\ReportMemoryDm\rmMentalCustomized1Dm.pas' {rmMentalCustomized1Data: TDataModule},
  135. rmCustomized2Dm in '..\DataModules\ReportMemoryDm\rmCustomized2Dm.pas' {rmCustomized2Data: TDataModule},
  136. CalcDecimal in '..\Units\CalcDecimal.pas',
  137. BillsPasteSelectFrm in '..\Forms\BillsPasteSelectFrm.pas' {BillsPasteSelectForm},
  138. mProgressProFrm in '..\Forms\mProgressProFrm.pas' {ProgressProForm},
  139. DetailExcelImport in '..\Units\DetailExcelImport.pas',
  140. tpSelectTendersFrm in '..\TenderPartition\tpSelectTendersFrm.pas' {SelectTendersForm},
  141. tpGatherTree in '..\TenderPartition\tpGatherTree.pas',
  142. tpPeg in '..\TenderPartition\tpPeg.pas',
  143. mPegFilter in '..\Units\mPegFilter.pas',
  144. tpMainFrm in '..\TenderPartition\tpMainFrm.pas' {tpMainForm},
  145. tpMainData in '..\TenderPartition\tpMainData.pas',
  146. tpSelectTenderDm in '..\TenderPartition\tpSelectTenderDm.pas' {tpSelectTenderData: TDataModule},
  147. tpSelectTenderNode in '..\TenderPartition\tpSelectTenderNode.pas',
  148. tpPegBlock in '..\TenderPartition\tpPegBlock.pas',
  149. tpPartTender in '..\TenderPartition\tpPartTender.pas',
  150. tpTrialPegInputFrm in '..\TenderPartition\tpTrialPegInputFrm.pas' {TrialPegInputForm},
  151. tpPeg_GclDm in '..\TenderPartition\tpPeg_GclDm.pas' {tpPeg_GclData: TDataModule},
  152. tpBaseGatherData in '..\TenderPartition\tpBaseGatherData.pas',
  153. tpPartTenderFme in '..\TenderPartition\tpPartTenderFme.pas' {tpPartTenderFrame: TFrame},
  154. tpPeg_GclFme in '..\TenderPartition\tpPeg_GclFme.pas' {tpPeg_GclFrame: TFrame},
  155. tpGatherGcl in '..\TenderPartition\tpGatherGcl.pas',
  156. tpPegGclGatherDm in '..\TenderPartition\tpPegGclGatherDm.pas' {tpPegGclGatherData: TDataModule},
  157. tpPegGclGatherFme in '..\TenderPartition\tpPegGclGatherFme.pas' {tpPegGclGatherFrame: TFrame},
  158. tpNoPegDm in '..\TenderPartition\tpNoPegDm.pas' {tpNoPegData: TDataModule},
  159. tpPricePartSettingFrm in '..\TenderPartition\tpPricePartSettingFrm.pas' {tpPricePartSettingForm},
  160. tpPartTenderSet in '..\TenderPartition\tpPartTenderSet.pas',
  161. tpPartTenderSetFme in '..\TenderPartition\tpPartTenderSetFme.pas' {tpPartTenderSetFrame: TFrame},
  162. tpPegPartSettingFrm in '..\TenderPartition\tpPegPartSettingFrm.pas' {tpPegPartSettingForm},
  163. PriceMarginFme in '..\Frames\PriceMarginFme.pas' {PriceMarginFrame: TFrame},
  164. ProjectGLDm in '..\DataModules\ProjectGLDm.pas' {ProjectGLData: TDataModule},
  165. ProjectGLFme in '..\Frames\ProjectGLFme.pas' {ProjectGLFrame: TFrame},
  166. PriceMarginBillsDm in '..\DataModules\PriceMarginBillsDm.pas' {PriceMarginBillsData: TDataModule},
  167. PriceMarginBillsFme in '..\Frames\PriceMarginBillsFme.pas' {PriceMarginBillsFrame: TFrame},
  168. GclBillsGatherModel in '..\Units\GclBillsGatherModel.pas',
  169. DetailGLDm in '..\DataModules\DetailGLDm.pas' {DetailGLData: TDataModule},
  170. SelectDetailGLsFrm in '..\Forms\SelectDetailGLsFrm.pas' {SelectDetailGLsForm},
  171. PriceMarginClipboard in '..\Units\PriceMarginClipboard.pas',
  172. BaseClipboard in '..\Units\BaseClipboard.pas',
  173. rmHaBaiCustomizedDm in '..\DataModules\ReportMemoryDm\rmHaBaiCustomizedDm.pas' {rmHaBaiCustomizedData: TDataModule},
  174. DealPayPlanFrm in '..\Forms\DealPayPlanFrm.pas' {DealPayPlanForm},
  175. ColVisibleManager in '..\Units\ColVisibleManager.pas',
  176. ReportPrepare in '..\Report\ReportPrepare.pas',
  177. rdpBillsGatherDm in '..\Report\DataPrepare\rdpBillsGatherDm.pas' {rdpBillsGatherData: TDataModule},
  178. rdpTables in '..\Report\DataPrepare\rdpTables.pas',
  179. ReportConnection in '..\Report\ReportConnection.pas',
  180. rgpGatherControl in '..\Report\ProjGather\rgpGatherControl.pas',
  181. rpgBillsCalcDm in '..\Report\ProjGather\rpgBillsCalcDm.pas' {rpgBillsCalcData: TDataModule},
  182. rpgBillsDm in '..\Report\ProjGather\rpgBillsDm.pas' {rpgBillsData: TDataModule},
  183. rpgGatherControl in '..\Report\ProjGather\rpgGatherControl.pas',
  184. rpgGatherData in '..\Report\ProjGather\rpgGatherData.pas',
  185. rpgGatherProjDm in '..\Report\ProjGather\rpgGatherProjDm.pas' {rpgGatherProjData: TDataModule},
  186. rProjGatherTables in '..\Report\ProjGather\rProjGatherTables.pas',
  187. GatherProjInfo in '..\ProjGather\GatherProjInfo.pas',
  188. ProjGather in '..\ProjGather\ProjGather.pas',
  189. ProjGatherCalcData in '..\ProjGather\ProjGatherCalcData.pas',
  190. ProjGatherSelectFrm in '..\ProjGather\ProjGatherSelectFrm.pas' {ProjGatherSelectForm},
  191. ProjGatherTree in '..\ProjGather\ProjGatherTree.pas',
  192. CalcData in '..\Units\CalcData.pas',
  193. DealBillsExcelImport in '..\Units\DealBillsExcelImport.pas',
  194. ExcelImport_GclBills in '..\Units\ExcelImport_GclBills.pas',
  195. ExcelImport_Bills in '..\Units\ExcelImport_Bills.pas',
  196. MeasureGatherZJJL in '..\Units\MeasureGatherZJJL.pas',
  197. superobject in '..\Units\superobject\superobject.pas',
  198. OtherMeasureOnceDm in '..\DataModules\OtherMeasureOnceDm.pas' {OtherMeasureOnceData: TDataModule},
  199. OtherMeasurePhaseDm in '..\DataModules\OtherMeasurePhaseDm.pas' {OtherMeasurePhaseData: TDataModule},
  200. OMPhaseRecord in '..\Units\DataRecord\OMPhaseRecord.pas',
  201. rmWeiWuZjjlGatherDm in '..\DataModules\ReportMemoryDm\rmWeiWuZjjlGatherDm.pas' {rmWeiWuZjjlGatherData: TDataModule},
  202. LogUtils in '..\Units\LogUtils.pas',
  203. ProjGatherDealPay in '..\ProjGather\ProjGatherDealPay.pas',
  204. ProjGatherProperties in '..\ProjGather\ProjGatherProperties.pas',
  205. ProjGatherSelectFme in '..\ProjGather\ProjGatherSelectFme.pas' {ProjGatherSelectFrame: TFrame},
  206. rpgZoneGatherControl in '..\Report\ProjGather\Zone\rpgZoneGatherControl.pas',
  207. rpgZoneProjGatherSelectFrm in '..\Report\ProjGather\Zone\rpgZoneProjGatherSelectFrm.pas' {rpgZoneProjGatherSelectForm},
  208. rpgDealPayDm in '..\Report\ProjGather\rpgDealPayDm.pas' {rgpDealPayData: TDataModule},
  209. OtherMeasureFme in '..\Frames\OtherMeasureFme.pas' {OtherMeasureFrame: TFrame},
  210. stgExcelExport in '..\SubTenderGather\stgExcelExport.pas',
  211. stgGather in '..\SubTenderGather\stgGather.pas',
  212. stgGatherCacheData in '..\SubTenderGather\stgGatherCacheData.pas',
  213. stgGatherControl in '..\SubTenderGather\stgGatherControl.pas',
  214. stgGatherDm in '..\SubTenderGather\stgGatherDm.pas' {stgGatherData: TDataModule},
  215. stgGatherUtils in '..\SubTenderGather\stgGatherUtils.pas',
  216. stgResultFrm in '..\SubTenderGather\stgResultFrm.pas' {stgResultForm},
  217. stgSelectFileFrm in '..\SubTenderGather\stgSelectFileFrm.pas' {stgGclSelectFileForm},
  218. stgSubGatherFile in '..\SubTenderGather\stgSubGatherFile.pas',
  219. stgSubGatherFileDm in '..\SubTenderGather\stgSubGatherFileDm.pas' {stgSubGatherData: TDataModule},
  220. stgTables in '..\SubTenderGather\stgTables.pas',
  221. ReportManagerFrm in '..\Forms\ReportManagerFrm.pas' {ReportManagerForm},
  222. ReportHistoryFrm in '..\Forms\ReportHistoryFrm.pas' {ReportHistoryForm},
  223. ReportManagerDM in '..\DataModules\ReportManagerDM.pas' {Reports: TDataModule},
  224. UpFileSelectOnLineFrm in '..\Forms\UpFileSelectOnLineFrm.pas' {UpFileSelectOnLineForm},
  225. SelectOnlineSignPhaseFrm in '..\Forms\SelectOnlineSignPhaseFrm.pas' {SelectOnlineSignPhaseForm},
  226. SetGuestFrm in '..\Forms\SetGuestFrm.pas' {SetGuestForm},
  227. SignOnlineReportsFrm in '..\Forms\SignOnlineReportsFrm.pas' {SignOnlineReportsForm},
  228. SignReports in '..\Units\SignReports.pas',
  229. TemplateManagerHelper in '..\Units\TemplateManagerHelper.pas',
  230. RenameSignReportFrm in '..\Forms\RenameSignReportFrm.pas' {RenameSignReportForm},
  231. DbTreeImport in '..\Units\DbTreeImport.pas',
  232. DbTreeDm in '..\DataModules\DbTreeDm.pas' {DbTreeData: TDataModule},
  233. DebugUsers in '..\Units\DebugUsers.pas',
  234. FileDownLoadFrm in '..\Forms\FileDownLoadFrm.pas' {FileDownLoadForm},
  235. rmZhongKaiDm in '..\DataModules\ReportMemoryDm\rmZhongKaiDm.pas' {rmZhongKaiData: TDataModule},
  236. BillsPosTree in '..\Units\BillsPosTree.pas',
  237. rmWuJiuZqzfGatherDm in '..\DataModules\ReportMemoryDm\rmWuJiuZqzfGatherDm.pas' {rmWuJiuZqzfGatherData: TDataModule},
  238. DealPayFinalDm in '..\DataModules\DealPayFinalDm.pas' {DealPayFinalData: TDataModule},
  239. AttachmentInfoDm in '..\DataModules\AttachmentInfoDm.pas' {AttachmentInfoData: TDataModule},
  240. uGetMacAddr in '..\Units\uGetMacAddr.pas',
  241. stgGclGatherControl in '..\SubTenderGatherGcl\stgGclGatherControl.pas',
  242. stgGclSelectFileFrm in '..\SubTenderGatherGcl\stgGclSelectFileFrm.pas' {stgSelectFileForm},
  243. stgGatherGclCacheData in '..\SubTenderGatherGcl\stgGatherGclCacheData.pas',
  244. stgGclGatherDm in '..\SubTenderGatherGcl\stgGclGatherDm.pas' {stgGatherGclData: TDataModule},
  245. stgGclResultFrm in '..\SubTenderGatherGcl\stgGclResultFrm.pas' {stgGclResultForm},
  246. stgGclTables in '..\SubTenderGatherGcl\stgGclTables.pas',
  247. stgGclSubGatherFile in '..\SubTenderGatherGcl\stgGclSubGatherFile.pas',
  248. stgGclSubGatherFileDm in '..\SubTenderGatherGcl\stgGclSubGatherFileDm.pas' {stgGclSubGatherData: TDataModule},
  249. stgGclGather in '..\SubTenderGatherGcl\stgGclGather.pas',
  250. stgGclImportHint in '..\SubTenderGatherGcl\stgGclImportHint.pas',
  251. stgGclImportHintFrm in '..\SubTenderGatherGcl\stgGclImportHintFrm.pas' {stgGclImportHintForm},
  252. rmBGBillsGatherDm in '..\DataModules\ReportMemoryDm\rmBGBillsGatherDm.pas' {rmBGBillsGatherData: TDataModule},
  253. rmBillsPhaseGatherDm in '..\DataModules\ReportMemoryDm\rmBillsPhaseGatherDm.pas' {rmBillsPhaseGatherData: TDataModule},
  254. rmfImportFrm in '..\Forms\rmfImportFrm.pas' {rmfImportForm};
  255. //UpFileSelectOnLineFrm in '..\Forms\UpFileSelectOnLineFrm.pas' {UpFileSelectOnLineForm};
  256. //DbTreeImport in '..\Units\DbTreeImport.pas',
  257. //DbTreeDm in '..\DataModules\DbTreeDm.pas' {DbTreeData: TDataModule},
  258. //DebugUsers in '..\Units\DebugUsers.pas';
  259. {$R *.res}
  260. var
  261. IPForm: TIPForm;
  262. begin
  263. Application.Initialize;
  264. Application.Title := '纵横公路工程结算决算计量一体化软件';
  265. {$IFDEF _mCloud}
  266. IPForm := TIPForm.Create(nil);
  267. try
  268. if not IPForm.HasIP then
  269. begin
  270. IPForm.ShowModal;
  271. if IPForm.ModalResult <> mrOK then
  272. begin
  273. Application.Terminate;
  274. Exit;
  275. end;
  276. end;
  277. finally
  278. IPForm.Free;
  279. end;
  280. if not LoginForm then
  281. begin
  282. Application.Terminate;
  283. Exit;
  284. end;
  285. {$ENDIF}
  286. ShowWelcome;
  287. if CheckDogExists then
  288. begin
  289. HideWelcome;
  290. Application.CreateForm(TMainForm, MainForm);
  291. Application.CreateForm(TSetGuestForm, SetGuestForm);
  292. end
  293. else HideWelcome;
  294. Application.Run;
  295. end.