|
|
@@ -1,11 +1,13 @@
|
|
|
program Measure_Cloud;
|
|
|
|
|
|
+{$R '..\..\res\uac.res' '..\..\res\uac.rc'}
|
|
|
+
|
|
|
uses
|
|
|
Windows,
|
|
|
ShareMem,
|
|
|
+ HttpApp,
|
|
|
Forms,
|
|
|
Controls,
|
|
|
- HttpApp,
|
|
|
MainFrm in '..\..\Forms\MainFrm.pas' {MainForm},
|
|
|
ProjectManagerFme in '..\..\Frames\ProjectManagerFme.pas' {ProjectManagerFrame: TFrame},
|
|
|
UtilMethods in '..\..\Units\UtilMethods.pas',
|
|
|
@@ -143,23 +145,23 @@ uses
|
|
|
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},
|
|
|
+ mProgressProFrm in '..\..\Forms\mProgressProFrm.pas' {ProgressProForm},
|
|
|
+ rmHaBaiCustomizedDm in '..\..\DataModules\ReportMemoryDm\rmHaBaiCustomizedDm.pas' {rmHaBaiCustomizedData: TDataModule},
|
|
|
ProjectGLDm in '..\..\DataModules\ProjectGLDm.pas' {ProjectGLData: TDataModule},
|
|
|
- PriceMarginBillsFme in '..\..\Frames\PriceMarginBillsFme.pas' {PriceMarginBillsFrame: TFrame},
|
|
|
+ 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},
|
|
|
- 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},
|
|
|
- mProgressProFrm in '..\..\Forms\mProgressProFrm.pas' {ProgressProForm},
|
|
|
- tpMainFrm in '..\..\TenderPartition\tpMainFrm.pas' {tpMainForm},
|
|
|
+ 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},
|
|
|
@@ -177,16 +179,11 @@ uses
|
|
|
tpSelectTenderNode in '..\..\TenderPartition\tpSelectTenderNode.pas',
|
|
|
tpSelectTendersFrm in '..\..\TenderPartition\tpSelectTendersFrm.pas' {SelectTendersForm},
|
|
|
tpTrialPegInputFrm in '..\..\TenderPartition\tpTrialPegInputFrm.pas' {TrialPegInputForm},
|
|
|
- mPegFilter in '..\..\Units\mPegFilter.pas',
|
|
|
- MScrollBox in '..\..\..\SmartCost\Components\MBaseControl\Source\MScrollBox.pas',
|
|
|
- ClientService in '..\..\Encrypt\NetClient\ClientService.pas',
|
|
|
- CfgPort in '..\..\Encrypt\NetClient\CfgPort.pas',
|
|
|
- CorrespondClient in '..\..\Encrypt\NetClient\CorrespondClient.pas',
|
|
|
- EnctyptClientData in '..\..\Encrypt\NetClient\EnctyptClientData.pas',
|
|
|
- ColVisibleManager in '..\..\Units\ColVisibleManager.pas',
|
|
|
+ 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},
|
|
|
@@ -195,21 +192,18 @@ uses
|
|
|
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},
|
|
|
- ProjGatherTree in '..\..\ProjGather\ProjGatherTree.pas',
|
|
|
- CalcData in '..\..\Units\CalcData.pas',
|
|
|
DealBillsExcelImport in '..\..\Units\DealBillsExcelImport.pas',
|
|
|
ExcelImport_Bills in '..\..\Units\ExcelImport_Bills.pas',
|
|
|
ExcelImport_GclBills in '..\..\Units\ExcelImport_GclBills.pas',
|
|
|
- UpFileSelectOnLineFrm in '..\..\Forms\UpFileSelectOnLineFrm.pas' {UpFileSelectOnLineForm},
|
|
|
- FileDownLoadFrm in '..\..\Forms\FileDownLoadFrm.pas' {FileDownLoadForm},
|
|
|
- DebugUsers in '..\..\Units\DebugUsers.pas',
|
|
|
- ScReportHelperUnit in '..\..\..\SmartCost\Reports\UI\ScReportHelperUnit.pas',
|
|
|
DbTreeImport in '..\..\Units\DbTreeImport.pas',
|
|
|
- DbTreeDm in '..\..\DataModules\DbTreeDm.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',
|
|
|
@@ -217,37 +211,44 @@ uses
|
|
|
ProjGatherSelectFme in '..\..\ProjGather\ProjGatherSelectFme.pas' {ProjGatherSelectFrame: TFrame},
|
|
|
rpgZoneGatherControl in '..\..\Report\ProjGather\Zone\rpgZoneGatherControl.pas',
|
|
|
rpgZoneProjGatherSelectFrm in '..\..\Report\ProjGather\Zone\rpgZoneProjGatherSelectFrm.pas' {rpgZoneProjGatherSelectForm},
|
|
|
- SetGuestFrm in '..\..\Forms\SetGuestFrm.pas' {SetGuestForm},
|
|
|
+ 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},
|
|
|
- ReportHistoryFrm in '..\..\Forms\ReportHistoryFrm.pas' {ReportHistoryForm},
|
|
|
- ReportManagerFrm in '..\..\Forms\ReportManagerFrm.pas' {ReportManagerForm},
|
|
|
+ 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',
|
|
|
- superxmlparser in '..\..\Units\superobject\superxmlparser.pas',
|
|
|
+ FileDownLoadFrm in '..\..\Forms\FileDownLoadFrm.pas' {FileDownLoadForm},
|
|
|
MeasureGatherZJJL in '..\..\Units\MeasureGatherZJJL.pas',
|
|
|
- stgExcelExport in '..\..\SubTenderGather\stgExcelExport.pas',
|
|
|
- stgGather in '..\..\SubTenderGather\stgGather.pas',
|
|
|
- stgGatherCacheData in '..\..\SubTenderGather\stgGatherCacheData.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},
|
|
|
- stgSelectFileFrm in '..\..\SubTenderGather\stgSelectFileFrm.pas' {stgSelectFileForm},
|
|
|
+ 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},
|
|
|
rmZhongKaiDm in '..\..\DataModules\ReportMemoryDm\rmZhongKaiDm.pas' {rmZhongKaiData: TDataModule},
|
|
|
- BillsPosTree in '..\..\Units\BillsPosTree.pas';
|
|
|
+ uGetMacAddr in '..\..\Units\uGetMacAddr.pas',
|
|
|
+ BillsPosTree in '..\..\Units\BillsPosTree.pas',
|
|
|
+ AttachmentInfoDm in '..\..\DataModules\AttachmentInfoDm.pas' {AttachmentInfoData: TDataModule},
|
|
|
+ DealPayFinalDm in '..\..\DataModules\DealPayFinalDm.pas' {DealPayFinalData: TDataModule},
|
|
|
+ rmWuJiuZqzfGatherDm in '..\..\DataModules\ReportMemoryDm\rmWuJiuZqzfGatherDm.pas' {rmWuJiuZqzfGatherData: TDataModule},
|
|
|
+ MScrollBox in '..\..\..\SmartCost\Components\MBaseControl\Source\MScrollBox.pas';
|
|
|
|
|
|
{$R *.res}
|
|
|
|
|
|
@@ -286,18 +287,20 @@ begin
|
|
|
{$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));
|
|
|
+ if sName[1]= '%' then
|
|
|
+ sName:=UTF8Decode(HttpDecode(sName));
|
|
|
|
|
|
case PHPWeb.Login(sName, '', 2, sInfo, sURL) of
|
|
|
ltLoginFail:
|
