其他台账，分期计量，往期添加均不可删除

DataModules/OtherMeasurePhaseDm.pas

@@ -292,10 +292,13 @@ begin
     Allow := CanDelete(ARecord);
     if not Allow then
     begin
+      DataSetErrorMessage(Allow, '往期添加数据，不允许删除');
+    {*
       ARecord.ValueByName('Deleted').AsBoolean := True;
       ARecord.ValueByName('DeletePhaseID').AsInteger := TProjectData(FProjectData).PhaseIndex;
       ARecord.ValueByName('DeleteStageID').AsInteger := TProjectData(FProjectData).StageIndex;
       sdvPhase.RefreshFilter;
+    *}
     end;
   end
   else

DataModules/ReportMemoryDm/rm.dfm

@@ -0,0 +1,7 @@
+object DataModule1: TDataModule1
+  OldCreateOrder = False
+  Left = 864
+  Top = 318
+  Height = 150
+  Width = 215
+end

DataModules/ReportMemoryDm/rm.pas

@@ -0,0 +1,23 @@
+unit rm;
+
+interface
+
+uses
+  SysUtils, Classes;
+
+type
+  TDataModule1 = class(TDataModule)
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+var
+  DataModule1: TDataModule1;
+
+implementation
+
+{$R *.dfm}
+
+end.

DataModules/ReportMemoryDm/rmZjtzGatherDm.dfm

@@ -0,0 +1,7 @@
+object rmZjtzGatherData: TrmZjtzGatherData
+  OldCreateOrder = False
+  Left = 192
+  Top = 123
+  Height = 150
+  Width = 215
+end

DataModules/ReportMemoryDm/rmZjtzGatherDm.pas

@@ -0,0 +1,18 @@
+unit rmZjtzGatherDm;
+
+interface
+
+uses
+  SysUtils, Classes;
+
+type
+  TrmZjtzGatherData = class(TDataModule)
+  private
+  public
+  end;
+
+implementation
+
+{$R *.dfm}
+
+end.

Dprs/Measure.cfg

@@ -0,0 +1,41 @@
+-$A8
+-$B-
+-$C+
+-$D+
+-$E-
+-$F-
+-$G+
+-$H+
+-$I+
+-$J-
+-$K-
+-$L+
+-$M-
+-$N+
+-$O+
+-$P+
+-$Q-
+-$R-
+-$S-
+-$T-
+-$U-
+-$V+
+-$W-
+-$X+
+-$YD
+-$Z1
+-cg
+-AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+-H+
+-W+
+-M
+-$M16384,1048576
+-K$00400000
+-E"..\..\Environment"
+-N"E:\Other ScProject\¼ÆÁ¿Ö§¸¶\Code_1 - 3.1.6\Dcus"
+-LE"c:\program files (x86)\borland\delphi7\Projects\Bpl"
+-LN"c:\program files (x86)\borland\delphi7\Projects\Bpl"
+-D_mGuangDong;_mDebugView
+-w-UNSAFE_TYPE
+-w-UNSAFE_CODE
+-w-UNSAFE_CAST

Dprs/Measure.dof

@@ -0,0 +1,180 @@
+[FileVersion]
+Version=7.0
+[Compiler]
+A=8
+B=0
+C=1
+D=1
+E=0
+F=0
+G=1
+H=1
+I=1
+J=0
+K=0
+L=1
+M=0
+N=1
+O=1
+P=1
+Q=0
+R=0
+S=0
+T=0
+U=0
+V=1
+W=0
+X=1
+Y=1
+Z=1
+ShowHints=1
+ShowWarnings=1
+UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+NamespacePrefix=
+SymbolDeprecated=1
+SymbolLibrary=1
+SymbolPlatform=1
+UnitLibrary=1
+UnitPlatform=1
+UnitDeprecated=1
+HResultCompat=1
+HidingMember=1
+HiddenVirtual=1
+Garbage=1
+BoundsError=1
+ZeroNilCompat=1
+StringConstTruncated=1
+ForLoopVarVarPar=1
+TypedConstVarPar=1
+AsgToTypedConst=1
+CaseLabelRange=1
+ForVariable=1
+ConstructingAbstract=1
+ComparisonFalse=1
+ComparisonTrue=1
+ComparingSignedUnsigned=1
+CombiningSignedUnsigned=1
+UnsupportedConstruct=1
+FileOpen=1
+FileOpenUnitSrc=1
+BadGlobalSymbol=1
+DuplicateConstructorDestructor=1
+InvalidDirective=1
+PackageNoLink=1
+PackageThreadVar=1
+ImplicitImport=1
+HPPEMITIgnored=1
+NoRetVal=1
+UseBeforeDef=1
+ForLoopVarUndef=1
+UnitNameMismatch=1
+NoCFGFileFound=1
+MessageDirective=1
+ImplicitVariants=1
+UnicodeToLocale=1
+LocaleToUnicode=1
+ImagebaseMultiple=1
+SuspiciousTypecast=1
+PrivatePropAccessor=1
+UnsafeType=0
+UnsafeCode=0
+UnsafeCast=0
+[Linker]
+MapFile=0
+OutputObjs=0
+ConsoleApp=1
+DebugInfo=0
+RemoteSymbols=0
+MinStackSize=16384
+MaxStackSize=1048576
+ImageBase=4194304
+ExeDescription=
+[Directories]
+OutputDir=..\..\Environment
+UnitOutputDir=E:\Other ScProject\셕좆連마\Code_1 - 3.1.6\Dcus
+PackageDLLOutputDir=
+PackageDCPOutputDir=
+SearchPath=
+Packages=vcl;rtl;vclx;indy;inet;xmlrtl;vclie;inetdbbde;inetdbxpress;dbrtl;dsnap;dsnapcon;vcldb;soaprtl;VclSmp;dbexpress;dbxcds;inetdb;bdertl;vcldbx;webdsnap;websnap;adortl;ibxpress;teeui;teedb;tee;dss;visualclx;visualdbclx;vclactnband;vclshlctrls;IntrawebDB_50_70;Intraweb_50_70;Rave50CLX;Rave50VCL;dclOfficeXP;ZjGridD7;DPanel;ExTree;JimComboBoxs;JimTab;PrintComRep;XPMenu_tom;ZjGridFereD7;ZjCommon;SmartDataSet;ZjGridActns;MBaseControls;CslComponents;CSLMix;PaintBrd;GifAnimatorLib
+Conditionals=_mGuangDong;_mDebugView
+DebugSourceDirs=E:\Other ScProject\무鱇코꼬Api\넋埼덜쯤\
+UsePackages=0
+[Parameters]
+RunParams=
+HostApplication=
+Launcher=
+UseLauncher=0
+DebugCWD=
+[Language]
+ActiveLang=
+ProjectLang=
+RootDir=D:\Program Files\Borland\Delphi7\Bin\
+[Version Info]
+IncludeVerInfo=1
+AutoIncBuild=0
+MajorVer=3
+MinorVer=1
+Release=7
+Build=2370
+Debug=0
+PreRelease=0
+Special=0
+Private=0
+DLL=0
+Locale=2052
+CodePage=936
+[Version Info Keys]
+CompanyName=
+FileDescription=
+FileVersion=3.1.7.2370
+InternalName=
+LegalCopyright=
+LegalTrademarks=
+OriginalFilename=
+ProductName=Measure11111
+ProductVersion=1.0.0.0
+Comments=
+[Excluded Packages]
+C:\Program Files (x86)\EurekaLab\EurekaLog 6\Delphi7\ExceptionExpert7.bpl=EurekaLog
+c:\program files (x86)\borland\delphi7\Projects\Bpl\OExportCom.bpl=(untitled)
+[HistoryLists\hlDebugSourcePath]
+Count=1
+Item0=E:\Other ScProject\무鱇코꼬Api\넋埼덜쯤\
+[HistoryLists\hlConditionals]
+Count=16
+Item0=_mGuangDong;_mDebugView
+Item1=_mGuangDong;_mDebugView;_mCloud
+Item2=_mGuangDong;_mEncrypt;_mDebugView
+Item3=_mGuangDong;_mEncrypt;_mDebugView;_mCloud
+Item4=_mEncrypt
+Item5=_mEncrypt;_mCloud
+Item6=_mGuangDong;_mEncrypt;_mCloud
+Item7=_mGuangDong;_mEncrypt
+Item8=_mGuangDong;_mEncrypt;_mCloud;_mDebugView
+Item9=_mCloud;_mDebugView
+Item10=_mGuangDong
+Item11=_mGuangDong;_mCloud;_mDebugView
+Item12=_mGuangDong;_mCloud;_Test
+Item13=_mGuangDong;_mEncrypt;_mCloud;_Test
+Item14=_mGuangDong;_mEncrypt;
+Item15=_mGuangDong;_mEncrypt;_mCloud;_mTest
+[HistoryLists\hlUnitAliases]
+Count=1
+Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+[HistoryLists\hlUnitOutputDirectory]
+Count=4
+Item0=E:\Other ScProject\셕좆連마\Code_1 - 3.1.6\Dcus
+Item1=..\Dcus
+Item2=..\Dcu
+Item3=D:\Dcu
+[HistoryLists\hlOutputDirectorry]
+Count=3
+Item0=..\..\Environment
+Item1=E:\Other ScProject\셕좆連마\Environment
+Item2=D:\Program Files (x86)\李뷘흡숭\李뷘써炬엄炬셕좆寧竟뺏흡숭(凜밟暾경)
+[HistoryLists\hlBPLOutput]
+Count=1
+Item0=..\Bin
+[HistoryLists\hlDCPOutput]
+Count=1
+Item0=D:\Dcu

Dprs/Measure.dpr

@@ -0,0 +1,306 @@
+program Measure;
+
+{$R 'uac.res' 'uac.rc'}
+
+uses
+  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},
+  BillsMeasureFme in '..\Frames\BillsMeasureFme.pas' {BillsMeasureFrame: TFrame},
+  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},
+  BillsGatherFme in '..\Frames\BillsGatherFme.pas' {BillsGatherFrame: TFrame},
+  BillsGatherDm in '..\DataModules\BillsGatherDm.pas' {BillsGatherData: TDataModule},
+  ZJJLFme in '..\Frames\ZJJLFme.pas' {ZJJLFrame: TFrame},
+  ZJJLDm in '..\DataModules\ZJJLDm.pas' {ZJJLData: TDataModule},
+  BGLFme in '..\Frames\BGLFme.pas' {BGLFrame: TFrame},
+  BGLDm in '..\DataModules\BGLDm.pas' {BGLData: TDataModule},
+  StaffDm in '..\DataModules\StaffDm.pas' {StaffData: TDataModule},
+  ConstUnit in '..\Units\ConstUnit.pas',
+  PHPWebDm in '..\DataModules\PHPWebDm.pas' {PHPWeb: TDataModule},
+  MergeTextFrm in '..\Forms\MergeTextFrm.pas' {MergeTextForm},
+  BGLSelectFrm in '..\Forms\BGLSelectFrm.pas' {BGLSelectForm},
+  WebNewTenderFrm in '..\Forms\WebNewTenderFrm.pas' {WebNewTenderForm},
+  ExportExcel in '..\Units\ExportExcel.pas',
+  ReportsFrm in '..\Forms\ReportsFrm.pas' {ReportsForm},
+  ReportManager in '..\Units\ReportManager.pas',
+  BillsCompileDm in '..\DataModules\BillsCompileDm.pas' {BillsCompileData: TDataModule},
+  BillsCompileFme in '..\Frames\BillsCompileFme.pas' {BillsCompileFrame: TFrame},
+  BillsMeasureDm in '..\DataModules\BillsMeasureDm.pas' {BillsMeasureData: TDataModule},
+  PasswordInputFrm in '..\Forms\PasswordInputFrm.pas' {PasswordInputForm},
+  AboutFrm in '..\Forms\AboutFrm.pas' {AboutForm},
+  AuthFrm in '..\Forms\AuthFrm.pas' {AuthorizeForm},
+  mEncryptUnit in '..\Encrypt\mEncryptUnit.pas',
+  mEncryptPWD in '..\Encrypt\mEncryptPWD.pas',
+  mSNSEncrypt in '..\Encrypt\mSNSEncrypt.pas',
+  mR1Encrypt in '..\Encrypt\mR1Encrypt.pas',
+  mEncryptEditions in '..\Encrypt\mEncryptEditions.pas',
+  mEncryptTypes in '..\Encrypt\mEncryptTypes.pas',
+  mConnectEncrypt in '..\Encrypt\NetClient\mConnectEncrypt.pas',
+  CryptUtils in '..\Encrypt\CryptUtils.pas',
+  EncryptDog in '..\Encrypt\EncryptDog.pas',
+  ScFileArchiver in '..\Encrypt\ScFileArchiver.pas',
+  SearchFme in '..\Frames\SearchFme.pas' {SearchFrame: TFrame},
+  BatchInsertBillsFrm in '..\Forms\BatchInsertBillsFrm.pas' {BatchInsertBillsForm},
+  SearchDm in '..\DataModules\SearchDm.pas' {SearchData: TDataModule},
+  CslJson in '..\Units\CslJson.pas',
+  FindUserFrm in '..\Forms\FindUserFrm.pas' {FindUserForm},
+  ImportExcelHintFrm in '..\Forms\ImportExcelHintFrm.pas' {ImportExcelHintForm},
+  CheckerFme in '..\Frames\CheckerFme.pas' {CheckerFrame: TFrame},
+  OrderCheckerFme in '..\Frames\OrderCheckerFme.pas' {OrderCheckerFrame: TFrame},
+  ReportAdjustFrm in '..\Forms\ReportAdjustFrm.pas' {ReportAdjustForm},
+  DealBillsDm in '..\DataModules\DealBillsDm.pas' {DealBillsData: TDataModule},
+  BatchReplaceBillsFrm in '..\Forms\BatchReplaceBillsFrm.pas' {BatchReplaceBillsForm},
+  MD5Unit in '..\Units\MD5Unit.pas',
+  MainDataListDm in '..\DataModules\MainDataListDm.pas' {MainListData: TDataModule},
+  mProgressFrm in '..\Forms\mProgressFrm.pas',
+  rmGclBillsBGDm in '..\DataModules\ReportMemoryDm\rmGclBillsBGDm.pas' {rmGclBillsBGData: TDataModule},
+  rmGclBillsCompareDm in '..\DataModules\ReportMemoryDm\rmGclBillsCompareDm.pas' {rmGclBillsCompareData: TDataModule},
+  rmCacheData in '..\DataModules\ReportMemoryDm\rmCacheData.pas',
+  rmSelectProjectFrm in '..\Forms\rmSelectProjectFrm.pas' {ProjectSelectForm},
+  rmGridHeaderDm in '..\DataModules\ReportMemoryDm\rmGridHeaderDm.pas' {rmGridHeaderData: TDataModule},
+  rmFxBillsCompareDm in '..\DataModules\ReportMemoryDm\rmFxBillsCompareDm.pas' {rmFxBillsCompareData: TDataModule},
+  rmBGLExecutionDm in '..\DataModules\ReportMemoryDm\rmBGLExecutionDm.pas' {rmBGLExecutionData: TDataModule},
+  rmGclBillsAddDm in '..\DataModules\ReportMemoryDm\rmGclBillsAddDm.pas' {rmGclBillsAddData: TDataModule},
+  rmFxBillsAddDm in '..\DataModules\ReportMemoryDm\rmFxBillsAddDm.pas' {rmFxBillsAddData: TDataModule},
+  rmBillsGatherDm in '..\DataModules\ReportMemoryDm\rmBillsGatherDm.pas' {rmBillsGatherData: TDataModule},
+  ConditionalDefines in '..\Units\ConditionalDefines.pas',
+  ProgressHintFrm in '..\Forms\ProgressHintFrm.pas' {ProgressHintForm},
+  rmTestFrm in '..\DataModules\ReportMemoryDm\rmTestFrm.pas' {rmTestForm},
+  rmGclBillsAuditCompareDm in '..\DataModules\ReportMemoryDm\rmGclBillsAuditCompareDm.pas' {rmGclBillsAuditCompareData: TDataModule},
+  CheckAndClearFrm in '..\Forms\CheckAndClearFrm.pas' {CheckAndClearForm},
+  DealBillsFrm in '..\Forms\DealBillsFrm.pas' {DealBillsForm},
+  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},
+  rmGcl_XmjBillsDm in '..\DataModules\ReportMemoryDm\rmGcl_XmjBillsDm.pas' {rmGcl_XmjBillsData: TDataModule},
+  CheckerMemoFrm in '..\Forms\CheckerMemoFrm.pas' {CheckerMemoForm},
+  TenderBackupManager in '..\Units\TenderBackupManager.pas',
+  UpFileManageUnit in '..\Units\UpFileManageUnit.pas',
+  UpFileManageFrame in '..\Forms\UpFileManageFrame.pas',
+  UpFileFrame in '..\Forms\UpFileFrame.pas',
+  SheetSelectFrm in '..\Forms\SheetSelectFrm.pas' {SheetSelectForm},
+  DealBillsFme in '..\Frames\DealBillsFme.pas' {DealBillsFrame: TFrame},
+  Checker in '..\Units\Checker.pas',
+  AuditSelectFrm in '..\Forms\ReportInteractFrms\AuditSelectFrm.pas' {AuditSelctForm},
+  ReportInteractInfo in '..\Units\ReportInteractInfo.pas',
+  IPFrm in '..\Forms\IPFrm.pas' {IPForm},
+  LoginFrm in '..\Forms\LoginFrm.pas' {LoginForm},
+  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},
+  rmCustomized2Dm in '..\DataModules\ReportMemoryDm\rmCustomized2Dm.pas' {rmCustomized2Data: TDataModule},
+  CalcDecimal in '..\Units\CalcDecimal.pas',
+  BillsPasteSelectFrm in '..\Forms\BillsPasteSelectFrm.pas' {BillsPasteSelectForm},
+  mProgressProFrm in '..\Forms\mProgressProFrm.pas' {ProgressProForm},
+  DetailExcelImport in '..\Units\DetailExcelImport.pas',
+  tpSelectTendersFrm in '..\TenderPartition\tpSelectTendersFrm.pas' {SelectTendersForm},
+  tpGatherTree in '..\TenderPartition\tpGatherTree.pas',
+  tpPeg in '..\TenderPartition\tpPeg.pas',
+  mPegFilter in '..\Units\mPegFilter.pas',
+  tpMainFrm in '..\TenderPartition\tpMainFrm.pas' {tpMainForm},
+  tpMainData in '..\TenderPartition\tpMainData.pas',
+  tpSelectTenderDm in '..\TenderPartition\tpSelectTenderDm.pas' {tpSelectTenderData: TDataModule},
+  tpSelectTenderNode in '..\TenderPartition\tpSelectTenderNode.pas',
+  tpPegBlock in '..\TenderPartition\tpPegBlock.pas',
+  tpPartTender in '..\TenderPartition\tpPartTender.pas',
+  tpTrialPegInputFrm in '..\TenderPartition\tpTrialPegInputFrm.pas' {TrialPegInputForm},
+  tpPeg_GclDm in '..\TenderPartition\tpPeg_GclDm.pas' {tpPeg_GclData: TDataModule},
+  tpBaseGatherData in '..\TenderPartition\tpBaseGatherData.pas',
+  tpPartTenderFme in '..\TenderPartition\tpPartTenderFme.pas' {tpPartTenderFrame: TFrame},
+  tpPeg_GclFme in '..\TenderPartition\tpPeg_GclFme.pas' {tpPeg_GclFrame: TFrame},
+  tpGatherGcl in '..\TenderPartition\tpGatherGcl.pas',
+  tpPegGclGatherDm in '..\TenderPartition\tpPegGclGatherDm.pas' {tpPegGclGatherData: TDataModule},
+  tpPegGclGatherFme in '..\TenderPartition\tpPegGclGatherFme.pas' {tpPegGclGatherFrame: TFrame},
+  tpNoPegDm in '..\TenderPartition\tpNoPegDm.pas' {tpNoPegData: TDataModule},
+  tpPricePartSettingFrm in '..\TenderPartition\tpPricePartSettingFrm.pas' {tpPricePartSettingForm},
+  tpPartTenderSet in '..\TenderPartition\tpPartTenderSet.pas',
+  tpPartTenderSetFme in '..\TenderPartition\tpPartTenderSetFme.pas' {tpPartTenderSetFrame: TFrame},
+  tpPegPartSettingFrm in '..\TenderPartition\tpPegPartSettingFrm.pas' {tpPegPartSettingForm},
+  PriceMarginFme in '..\Frames\PriceMarginFme.pas' {PriceMarginFrame: TFrame},
+  ProjectGLDm in '..\DataModules\ProjectGLDm.pas' {ProjectGLData: TDataModule},
+  ProjectGLFme in '..\Frames\ProjectGLFme.pas' {ProjectGLFrame: TFrame},
+  PriceMarginBillsDm in '..\DataModules\PriceMarginBillsDm.pas' {PriceMarginBillsData: TDataModule},
+  PriceMarginBillsFme in '..\Frames\PriceMarginBillsFme.pas' {PriceMarginBillsFrame: TFrame},
+  GclBillsGatherModel in '..\Units\GclBillsGatherModel.pas',
+  DetailGLDm in '..\DataModules\DetailGLDm.pas' {DetailGLData: TDataModule},
+  SelectDetailGLsFrm in '..\Forms\SelectDetailGLsFrm.pas' {SelectDetailGLsForm},
+  PriceMarginClipboard in '..\Units\PriceMarginClipboard.pas',
+  BaseClipboard in '..\Units\BaseClipboard.pas',
+  rmHaBaiCustomizedDm in '..\DataModules\ReportMemoryDm\rmHaBaiCustomizedDm.pas' {rmHaBaiCustomizedData: TDataModule},
+  DealPayPlanFrm in '..\Forms\DealPayPlanFrm.pas' {DealPayPlanForm},
+  ColVisibleManager in '..\Units\ColVisibleManager.pas',
+  ReportPrepare in '..\Report\ReportPrepare.pas',
+  rdpBillsGatherDm in '..\Report\DataPrepare\rdpBillsGatherDm.pas' {rdpBillsGatherData: TDataModule},
+  rdpTables in '..\Report\DataPrepare\rdpTables.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',
+  GatherProjInfo in '..\ProjGather\GatherProjInfo.pas',
+  ProjGather in '..\ProjGather\ProjGather.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_GclBills in '..\Units\ExcelImport_GclBills.pas',
+  ExcelImport_Bills in '..\Units\ExcelImport_Bills.pas',
+  MeasureGatherZJJL in '..\Units\MeasureGatherZJJL.pas',
+  superobject in '..\Units\superobject\superobject.pas',
+  OtherMeasureOnceDm in '..\DataModules\OtherMeasureOnceDm.pas' {OtherMeasureOnceData: TDataModule},
+  OtherMeasurePhaseDm in '..\DataModules\OtherMeasurePhaseDm.pas' {OtherMeasurePhaseData: TDataModule},
+  OMPhaseRecord in '..\Units\DataRecord\OMPhaseRecord.pas',
+  rmWeiWuZjjlGatherDm in '..\DataModules\ReportMemoryDm\rmWeiWuZjjlGatherDm.pas' {rmWeiWuZjjlGatherData: TDataModule},
+  LogUtils in '..\Units\LogUtils.pas',
+  ProjGatherDealPay in '..\ProjGather\ProjGatherDealPay.pas',
+  ProjGatherProperties in '..\ProjGather\ProjGatherProperties.pas',
+  ProjGatherSelectFme in '..\ProjGather\ProjGatherSelectFme.pas' {ProjGatherSelectFrame: TFrame},
+  rpgZoneGatherControl in '..\Report\ProjGather\Zone\rpgZoneGatherControl.pas',
+  rpgZoneProjGatherSelectFrm in '..\Report\ProjGather\Zone\rpgZoneProjGatherSelectFrm.pas' {rpgZoneProjGatherSelectForm},
+  rpgDealPayDm in '..\Report\ProjGather\rpgDealPayDm.pas' {rgpDealPayData: TDataModule},
+  OtherMeasureFme in '..\Frames\OtherMeasureFme.pas' {OtherMeasureFrame: TFrame},
+  stgExcelExport in '..\SubTenderGather\stgExcelExport.pas',
+  stgGather in '..\SubTenderGather\stgGather.pas',
+  stgGatherCacheData in '..\SubTenderGather\stgGatherCacheData.pas',
+  stgGatherControl in '..\SubTenderGather\stgGatherControl.pas',
+  stgGatherDm in '..\SubTenderGather\stgGatherDm.pas' {stgGatherData: TDataModule},
+  stgGatherUtils in '..\SubTenderGather\stgGatherUtils.pas',
+  stgResultFrm in '..\SubTenderGather\stgResultFrm.pas' {stgResultForm},
+  stgSelectFileFrm in '..\SubTenderGather\stgSelectFileFrm.pas' {stgGclSelectFileForm},
+  stgSubGatherFile in '..\SubTenderGather\stgSubGatherFile.pas',
+  stgSubGatherFileDm in '..\SubTenderGather\stgSubGatherFileDm.pas' {stgSubGatherData: TDataModule},
+  stgTables in '..\SubTenderGather\stgTables.pas',
+  ReportManagerFrm in '..\Forms\ReportManagerFrm.pas' {ReportManagerForm},
+  ReportHistoryFrm in '..\Forms\ReportHistoryFrm.pas' {ReportHistoryForm},
+  ReportManagerDM in '..\DataModules\ReportManagerDM.pas' {Reports: TDataModule},
+  UpFileSelectOnLineFrm in '..\Forms\UpFileSelectOnLineFrm.pas' {UpFileSelectOnLineForm},
+  SelectOnlineSignPhaseFrm in '..\Forms\SelectOnlineSignPhaseFrm.pas' {SelectOnlineSignPhaseForm},
+  SetGuestFrm in '..\Forms\SetGuestFrm.pas' {SetGuestForm},
+  SignOnlineReportsFrm in '..\Forms\SignOnlineReportsFrm.pas' {SignOnlineReportsForm},
+  SignReports in '..\Units\SignReports.pas',
+  TemplateManagerHelper in '..\Units\TemplateManagerHelper.pas',
+  RenameSignReportFrm in '..\Forms\RenameSignReportFrm.pas' {RenameSignReportForm},
+  DbTreeImport in '..\Units\DbTreeImport.pas',
+  DbTreeDm in '..\DataModules\DbTreeDm.pas' {DbTreeData: TDataModule},
+  DebugUsers in '..\Units\DebugUsers.pas',
+  FileDownLoadFrm in '..\Forms\FileDownLoadFrm.pas' {FileDownLoadForm},
+  rmZhongKaiDm in '..\DataModules\ReportMemoryDm\rmZhongKaiDm.pas' {rmZhongKaiData: TDataModule},
+  BillsPosTree in '..\Units\BillsPosTree.pas',
+  rmWuJiuZqzfGatherDm in '..\DataModules\ReportMemoryDm\rmWuJiuZqzfGatherDm.pas' {rmWuJiuZqzfGatherData: TDataModule},
+  DealPayFinalDm in '..\DataModules\DealPayFinalDm.pas' {DealPayFinalData: TDataModule},
+  AttachmentInfoDm in '..\DataModules\AttachmentInfoDm.pas' {AttachmentInfoData: TDataModule},
+  uGetMacAddr in '..\Units\uGetMacAddr.pas',
+  stgGclGatherControl in '..\SubTenderGatherGcl\stgGclGatherControl.pas',
+  stgGclSelectFileFrm in '..\SubTenderGatherGcl\stgGclSelectFileFrm.pas' {stgSelectFileForm},
+  stgGatherGclCacheData in '..\SubTenderGatherGcl\stgGatherGclCacheData.pas',
+  stgGclGatherDm in '..\SubTenderGatherGcl\stgGclGatherDm.pas' {stgGatherGclData: TDataModule},
+  stgGclResultFrm in '..\SubTenderGatherGcl\stgGclResultFrm.pas' {stgGclResultForm},
+  stgGclTables in '..\SubTenderGatherGcl\stgGclTables.pas',
+  stgGclSubGatherFile in '..\SubTenderGatherGcl\stgGclSubGatherFile.pas',
+  stgGclSubGatherFileDm in '..\SubTenderGatherGcl\stgGclSubGatherFileDm.pas' {stgGclSubGatherData: TDataModule},
+  stgGclGather in '..\SubTenderGatherGcl\stgGclGather.pas',
+  stgGclImportHint in '..\SubTenderGatherGcl\stgGclImportHint.pas',
+  stgGclImportHintFrm in '..\SubTenderGatherGcl\stgGclImportHintFrm.pas' {stgGclImportHintForm},
+  rmBGBillsGatherDm in '..\DataModules\ReportMemoryDm\rmBGBillsGatherDm.pas' {rmBGBillsGatherData: TDataModule},
+  rmBillsPhaseGatherDm in '..\DataModules\ReportMemoryDm\rmBillsPhaseGatherDm.pas' {rmBillsPhaseGatherData: TDataModule},
+  rmfImportFrm in '..\Forms\rmfImportFrm.pas' {rmfImportForm};
+
+//UpFileSelectOnLineFrm in '..\Forms\UpFileSelectOnLineFrm.pas' {UpFileSelectOnLineForm};
+
+//DbTreeImport in '..\Units\DbTreeImport.pas',
+  //DbTreeDm in '..\DataModules\DbTreeDm.pas' {DbTreeData: TDataModule},
+  //DebugUsers in '..\Units\DebugUsers.pas';
+
+{$R *.res}
+
+var
+  IPForm: TIPForm;
+
+begin
+  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}
+
+  ShowWelcome;
+  if CheckDogExists then
+  begin
+    HideWelcome;
+    Application.CreateForm(TMainForm, MainForm);
+  Application.CreateForm(TSetGuestForm, SetGuestForm);
+  end
+  else HideWelcome;
+
+  Application.Run;
+end.

Dprs/Measure_Online.cfg

@@ -0,0 +1,41 @@
+-$A8
+-$B-
+-$C+
+-$D+
+-$E-
+-$F-
+-$G+
+-$H+
+-$I+
+-$J-
+-$K-
+-$L+
+-$M-
+-$N+
+-$O+
+-$P+
+-$Q-
+-$R-
+-$S-
+-$T-
+-$U-
+-$V+
+-$W-
+-$X+
+-$YD
+-$Z1
+-cg
+-AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+-H+
+-W+
+-M
+-$M16384,1048576
+-K$00400000
+-E"..\..\Environment"
+-N"..\Dcus"
+-LE"d:\program files\borland\delphi7\Projects\Bpl"
+-LN"d:\program files\borland\delphi7\Projects\Bpl"
+-D_Online
+-w-UNSAFE_TYPE
+-w-UNSAFE_CODE
+-w-UNSAFE_CAST

Dprs/Measure_Online.dof

@@ -0,0 +1,140 @@
+[FileVersion]
+Version=7.0
+[Compiler]
+A=8
+B=0
+C=1
+D=1
+E=0
+F=0
+G=1
+H=1
+I=1
+J=0
+K=0
+L=1
+M=0
+N=1
+O=1
+P=1
+Q=0
+R=0
+S=0
+T=0
+U=0
+V=1
+W=0
+X=1
+Y=1
+Z=1
+ShowHints=1
+ShowWarnings=1
+UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+NamespacePrefix=
+SymbolDeprecated=1
+SymbolLibrary=1
+SymbolPlatform=1
+UnitLibrary=1
+UnitPlatform=1
+UnitDeprecated=1
+HResultCompat=1
+HidingMember=1
+HiddenVirtual=1
+Garbage=1
+BoundsError=1
+ZeroNilCompat=1
+StringConstTruncated=1
+ForLoopVarVarPar=1
+TypedConstVarPar=1
+AsgToTypedConst=1
+CaseLabelRange=1
+ForVariable=1
+ConstructingAbstract=1
+ComparisonFalse=1
+ComparisonTrue=1
+ComparingSignedUnsigned=1
+CombiningSignedUnsigned=1
+UnsupportedConstruct=1
+FileOpen=1
+FileOpenUnitSrc=1
+BadGlobalSymbol=1
+DuplicateConstructorDestructor=1
+InvalidDirective=1
+PackageNoLink=1
+PackageThreadVar=1
+ImplicitImport=1
+HPPEMITIgnored=1
+NoRetVal=1
+UseBeforeDef=1
+ForLoopVarUndef=1
+UnitNameMismatch=1
+NoCFGFileFound=1
+MessageDirective=1
+ImplicitVariants=1
+UnicodeToLocale=1
+LocaleToUnicode=1
+ImagebaseMultiple=1
+SuspiciousTypecast=1
+PrivatePropAccessor=1
+UnsafeType=0
+UnsafeCode=0
+UnsafeCast=0
+[Linker]
+MapFile=0
+OutputObjs=0
+ConsoleApp=1
+DebugInfo=0
+RemoteSymbols=0
+MinStackSize=16384
+MaxStackSize=1048576
+ImageBase=4194304
+ExeDescription=
+[Directories]
+OutputDir=..\..\Environment
+UnitOutputDir=..\Dcus
+PackageDLLOutputDir=
+PackageDCPOutputDir=
+SearchPath=
+Packages=vcl;rtl;vclx;indy;inet;xmlrtl;vclie;inetdbbde;inetdbxpress;dbrtl;dsnap;dsnapcon;vcldb;soaprtl;VclSmp;dbexpress;dbxcds;inetdb;bdertl;vcldbx;webdsnap;websnap;adortl;ibxpress;teeui;teedb;tee;dss;visualclx;visualdbclx;vclactnband;vclshlctrls;IntrawebDB_50_70;Intraweb_50_70;Rave50CLX;Rave50VCL;dclOfficeXP;ZjGridD7;DPanel;ExTree;JimComboBoxs;JimTab;PrintComRep;XPMenu_tom;ZjGridFereD7;ZjCommon;SmartDataSet;ZjGridActns;MBaseControls
+Conditionals=_Online
+DebugSourceDirs=
+UsePackages=0
+[Parameters]
+RunParams=
+HostApplication=
+Launcher=
+UseLauncher=0
+DebugCWD=
+[Language]
+ActiveLang=
+ProjectLang=
+RootDir=D:\Program Files\Borland\Delphi7\Bin\
+[Version Info]
+IncludeVerInfo=0
+AutoIncBuild=0
+MajorVer=1
+MinorVer=0
+Release=0
+Build=0
+Debug=0
+PreRelease=0
+Special=0
+Private=0
+DLL=0
+Locale=2052
+CodePage=936
+[Version Info Keys]
+CompanyName=
+FileDescription=
+FileVersion=1.0.0.0
+InternalName=
+LegalCopyright=
+LegalTrademarks=
+OriginalFilename=
+ProductName=
+ProductVersion=1.0.0.0
+Comments=
+[Excluded Packages]
+E:\SmartCost\Components\CSLComponents\Bin\CslComponents.bpl=CSL Components
+D:\Program Files\Borland\Delphi7\Lib\3F\Developer Express Inc\ExpressEditors Library 5\Delphi 7\Bin\dclcxExtEditorsVCLD7.bpl=ExpressExtendedEditors Library 5 (VCL Edition) by Developer Express Inc.
+d:\program files\borland\delphi7\Bin\DBWEBXPRT.BPL=Borland Web Wizard Package

Dprs/Measure_Online.dpr

@@ -0,0 +1,72 @@
+program Measure_Online;
+
+uses
+  ShareMem,
+  Forms,
+  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},
+  BillsFme in '..\Frames\BillsFme.pas' {BillsFrame: TFrame},
+  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',
+  LedgerHistoryDm in '..\DataModules\LedgerHistoryDm.pas' {LedgerHistoryData: TDataModule},
+  LedgerCompareFme in '..\Frames\LedgerCompareFme.pas' {LedgerCompareFrame: TFrame},
+  LedgerCompareDm in '..\DataModules\LedgerCompareDm.pas' {LedgerCompareData: TDataModule},
+  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},
+  StageCompleteDm in '..\DataModules\StageCompleteDm.pas' {StageCompleteData: TDataModule},
+  DealPaymentDm in '..\DataModules\DealPaymentDm.pas' {DealPaymentData: TDataModule},
+  DealPaymentFme in '..\Frames\DealPaymentFme.pas' {DealPaymentFrame: TFrame},
+  PhasePayDm in '..\DataModules\PhasePayDm.pas' {PhasePayData: TDataModule},
+  BillsGatherFme in '..\Frames\BillsGatherFme.pas' {BillsGatherFrame: TFrame},
+  BillsGatherDm in '..\DataModules\BillsGatherDm.pas' {BillsGatherData: TDataModule},
+  ZJJLFme in '..\Frames\ZJJLFme.pas' {ZJJLFrame: TFrame},
+  ZJJLDm in '..\DataModules\ZJJLDm.pas' {ZJJLData: TDataModule},
+  BGLFme in '..\Frames\BGLFme.pas' {BGLFrame: TFrame},
+  BGLDm in '..\DataModules\BGLDm.pas' {BGLData: TDataModule},
+  StaffDm in '..\DataModules\StaffDm.pas' {StaffData: TDataModule},
+  ConstUnit in '..\Units\ConstUnit.pas',
+  PHPWebDm in '..\DataModules\PHPWebDm.pas' {PHPWeb: TDataModule},
+  uLkJSON in '..\Units\uLkJSON.pas',
+  MergeTextFrm in '..\Forms\MergeTextFrm.pas' {MergeTextForm},
+  LoginFrm in '..\Forms\LoginFrm.pas';
+
+{$R *.res}
+
+begin
+  Application.Initialize;
+  Application.CreateForm(TMainForm, MainForm);
+  Application.Run;
+end.

Dprs/measure.xml

@@ -0,0 +1,31 @@
+
+<project name = "compilecode" basedir = "." default = "compile" >
+
+<target name = "compile" >
+
+<dcc basedir = "." source = "E:\Other ScProject\¼ÆÁ¿Ö§¸¶\Code_1 - 3.1.6\Dprs\measure.dpr" >
+
+<build value = "True"  />
+
+<exeoutput path = "..\..\Environment"  />
+
+<dcuoutput path = "..\Dcus"  />
+
+<DefinitionInfo value = "False"  />
+
+<warnings value = "True"  />
+
+<map value = "none"  />
+
+<console value = "True"  />
+
+<define name = "_mGuangDong"  />
+
+<define name = "_mDebugView"  />
+
+</dcc>
+
+</target>
+
+</project>
+

Dprs/want.xml

@@ -0,0 +1,6 @@
+<?xml version="1.0"?>
+<project name="measureComplie" basedir="." default="measure">
+  <target name = 'measure'>
+    <want dir="." BuildFile = 'measure.xml' description="¼ÆÁ¿Ö§¸¶"/>
+  </target>
+</project>

Units/PriceMarginClipboard.pas

@@ -0,0 +1,288 @@
+unit PriceMarginClipboard;
+
+interface
+
+uses
+  BaseClipboard, Classes, XmlDoc, XmlIntf, PriceMarginBillsDm, ZhAPI,
+  Windows, ProjectGLDm, DetailGLDm, mDataRecord;
+
+Type
+  TProjectGLNode = class
+  private
+    FID: Integer;
+    FCode: string;
+    FName: string;
+    FUnits: string;
+    FSpecs: string;
+    FBasePrice: Double;
+    FRiskRange: Double;
+
+    FInfoPrice: Double;
+    FInfoDate: string;
+  public
+    procedure SaveToXmlNode(AXmlNode: IXMLNode);
+    procedure LoadFromXmlNode(AXmlNode: IXMLNode);
+  end;
+
+  TDetailGLNode = class
+  private
+    FGLID: Integer;
+    FCode: string;
+    FQuantity: Double;
+  public
+    procedure SaveToXmlNode(AXmlNode: IXMLNode);
+    procedure LoadFromXmlNode(AXmlNode: IXMLNode);
+  end;
+
+  TDetailGL_Clipboard = class(TBaseClipboard)
+  private
+    FProjectGLData: TProjectGLData;
+    FDetailGLData: TDetailGLData;
+
+    FProjectGLs: TList;
+    FDetailGls: TList;
+
+    procedure SaveProjectGLsToXml(AXmlNode: IXMLNode);
+    procedure SaveDetailGLsToXml(AXmlNode: IXMLNode);
+
+    procedure CopyProjectGL(ARec: TProjectGLRecord);
+    procedure CopyDetailGL(ARec: TDetailGLRecord);
+    procedure CopyData(ABillsID: Integer);
+
+    procedure LoadProjectGLsFromXml(AXmlNode: IXMLNode);
+    procedure LoadDetailGLsFromXml(AXmlNode: IXMLNode);
+
+    procedure Clear;
+  protected
+    procedure SaveXmlData(AXmlDoc: IXmlDocument); override;
+    procedure LoadXmlData(AXmlDoc: IXmlDocument); override;
+  public
+    constructor Create(AProjectData: TObject);
+    destructor Destroy; override;
+
+    procedure Copy(ABillsID: Integer);
+    //procedure Paste
+  end;
+
+function HasDetailGLBlockFormat: Boolean;
+
+implementation
+
+uses
+  ProjectData, sdDB;
+
+var
+  CF_DetailGLBlock: Word;
+
+function HasDetailGLBlockFormat: Boolean;
+begin
+  Result := HasClipboardFormat(CF_DetailGLBlock);
+end;
+
+{ TDetailGLNode }
+
+procedure TDetailGLNode.LoadFromXmlNode(AXmlNode: IXMLNode);
+begin
+  FGLID := AXmlNode.Attributes['GLID'];
+  FCode := AXmlNode.Attributes['Code'];
+  FQuantity := AXmlNode.Attributes['Quantity'];
+end;
+
+procedure TDetailGLNode.SaveToXmlNode(AXmlNode: IXMLNode);
+begin
+  AXmlNode.Attributes['GLID'] := FGLID;
+  AXmlNode.Attributes['Code'] := FCode;
+  AXmlNode.Attributes['Quantity'] := FQuantity;
+end;
+
+{ TProjectGLNode }
+
+procedure TProjectGLNode.LoadFromXmlNode(AXmlNode: IXMLNode);
+begin
+  FID := AXmlNode.Attributes['ID'];
+  FCode := AXmlNode.Attributes['Code'];
+  FName := AXmlNode.Attributes['Name'];
+  FUnits := AXmlNode.Attributes['Units'];
+  FSpecs := AXmlNode.Attributes['Specs'];
+  FBasePrice := AXmlNode.Attributes['BasePrice'];
+  FRiskRange := AXmlNode.Attributes['RiskRange'];
+
+  FInfoPrice := AXmlNode.Attributes['InfoPrice'];
+  FInfoDate := AXmlNode.Attributes['InfoDate'];
+end;
+
+procedure TProjectGLNode.SaveToXmlNode(AXmlNode: IXMLNode);
+begin
+  AXmlNode.Attributes['ID'] := FID;
+  AXmlNode.Attributes['Code'] := FCode;
+  AXmlNode.Attributes['Name'] := FName;
+  AXmlNode.Attributes['Units'] := FUnits;
+  AXmlNode.Attributes['Specs'] := FSpecs;
+  AXmlNode.Attributes['BasePrice'] := FBasePrice;
+  AXmlNode.Attributes['RiskRange'] := FRiskRange;
+
+  AXmlNode.Attributes['InfoPrice'] := FInfoPrice;
+  AXmlNode.Attributes['InfoDate'] := FInfoDate;
+end;
+
+{ TDetailGL_Clipboard }
+
+procedure TDetailGL_Clipboard.Clear;
+begin
+  ClearObjects(FDetailGls);
+  ClearObjects(FProjectGLs);
+end;
+
+procedure TDetailGL_Clipboard.Copy(ABillsID: Integer);
+begin
+  Clear;
+  CopyData(ABillsID);
+  SaveToStream;
+  SaveToClipboard(CF_DetailGLBlock);
+end;
+
+procedure TDetailGL_Clipboard.CopyData(ABillsID: Integer);
+var
+  vGLs: TList;
+  iGL: Integer;
+  Rec: TDetailGLRecord;
+begin
+  vGLs := TList.Create;
+  try
+    FDetailGLData.LoadDetailGLs(ABillsID, vGLs);
+    for iGL := 0 to vGLs.Count - 1 do
+    begin
+      Rec := TDetailGLRecord(vGLs.Items[iGL]);
+      CopyDetailGL(Rec);
+    end;
+  finally
+    vGLs.Free;
+  end;
+end;
+
+procedure TDetailGL_Clipboard.CopyDetailGL(ARec: TDetailGLRecord);
+var
+  DetailGL: TDetailGLNode;
+begin
+  DetailGL := TDetailGLNode.Create;
+  FDetailGls.Add(DetailGL);
+  DetailGL.FGLID := ARec.GLID.AsInteger;
+  DetailGL.FCode := ARec.Code.AsString;
+  DetailGL.FQuantity := ARec.Quantity.AsFloat;
+  CopyProjectGL(ARec.RelaProjectGL);
+end;
+
+procedure TDetailGL_Clipboard.CopyProjectGL(ARec: TProjectGLRecord);
+var
+  ProjectGL: TProjectGLNode;
+begin
+  ProjectGL := TProjectGLNode.Create;
+  FProjectGLs.Add(ProjectGL);
+  ProjectGL.FID := ARec.ID.AsInteger;
+  ProjectGL.FCode := ARec.Code.AsString;
+  ProjectGL.FName := ARec.Name.AsString;
+  ProjectGL.FUnits := ARec.Units.AsString;
+  ProjectGL.FSpecs := ARec.Specs.AsString;
+  ProjectGL.FBasePrice := ARec.BasePrice.AsFloat;
+  ProjectGL.FRiskRange := ARec.RiskRange.AsFloat;
+end;
+
+constructor TDetailGL_Clipboard.Create(AProjectData: TObject);
+begin
+  inherited Create;
+  FProjectGLs := TList.Create;
+  FDetailGls := TList.Create;
+
+  FProjectGLData := TProjectData(AProjectData).ProjectGLData;
+  FDetailGLData := TProjectData(AProjectData).DetailGLData;
+end;
+
+destructor TDetailGL_Clipboard.Destroy;
+begin
+  ClearObjects(FDetailGls);
+  FDetailGls.Free;
+  ClearObjects(FProjectGLs);
+  FProjectGLs.Free;
+  inherited;
+end;
+
+procedure TDetailGL_Clipboard.LoadDetailGLsFromXml(AXmlNode: IXMLNode);
+var
+  Parent, Cur: IXMLNode;
+  iGL: Integer;
+  DetailGL: TDetailGLNode;
+begin
+  Parent := AXmlNode.ChildNodes.FindNode('DetailGLs');
+  for iGL := 0 to AXmlNode.ChildNodes.Count - 1 do
+  begin
+    Cur := AXmlNode.ChildNodes.FindNode('DetailGL');
+    DetailGL := TDetailGLNode.Create;
+    FDetailGls.Add(DetailGL);
+    DetailGL.LoadFromXmlNode(Cur);
+  end;
+end;
+
+procedure TDetailGL_Clipboard.LoadProjectGLsFromXml(AXmlNode: IXMLNode);
+var
+  Parent, Cur: IXMLNode;
+  iGL: Integer;
+  ProjectGL: TProjectGLNode;
+begin
+  Parent := AXmlNode.ChildNodes.FindNode('ProjectGLs');
+  for iGL := 0 to AXmlNode.ChildNodes.Count - 1 do
+  begin
+    Cur := AXmlNode.ChildNodes.FindNode('ProjectGL');
+    ProjectGL := TProjectGLNode.Create;
+    FProjectGLs.Add(ProjectGL);
+    ProjectGL.LoadFromXmlNode(Cur);
+  end;
+end;
+
+procedure TDetailGL_Clipboard.LoadXmlData(AXmlDoc: IXmlDocument);
+begin
+  inherited;
+  LoadDetailGLsFromXml(AXmlDoc.DocumentElement);
+  LoadProjectGLsFromXml(AXmlDoc.DocumentElement);
+end;
+
+procedure TDetailGL_Clipboard.SaveDetailGLsToXml(AXmlNode: IXMLNode);
+var
+  Parent, Cur: IXMLNode;
+  i: Integer;
+  DetailGL: TDetailGLNode;
+begin
+  Parent := AXmlNode.AddChild('DetailGLs');
+  for i := 0 to FDetailGls.Count - 1 do
+  begin
+    DetailGL := TDetailGLNode(FDetailGls.Items[i]);
+    Cur := Parent.AddChild('DetailGL');
+    DetailGL.SaveToXmlNode(Cur);
+  end;
+end;
+
+procedure TDetailGL_Clipboard.SaveProjectGLsToXml(AXmlNode: IXMLNode);
+var
+  Parent, Cur: IXMLNode;
+  i: Integer;
+  ProjectGL: TProjectGLNode;
+begin
+  Parent := AXmlNode.AddChild('ProjectGLs');
+  for i := 0 to FProjectGLs.Count - 1 do
+  begin
+    ProjectGL := TProjectGLNode(FProjectGLs.Items[i]);
+    Cur := Parent.AddChild('ProjectGL');
+    ProjectGL.SaveToXmlNode(Cur);
+  end;
+end;
+
+procedure TDetailGL_Clipboard.SaveXmlData(AXmlDoc: IXmlDocument);
+begin
+  inherited;
+  SaveProjectGLsToXml(AXmlDoc.DocumentElement);
+  SaveDetailGLsToXml(AXmlDoc.DocumentElement);
+end;
+
+initialization
+  CF_DetailGLBlock := RegisterClipboardFormat('Zh.M.DetailGL');
+
+end.

Units/WebBrowserRela.pas

@@ -0,0 +1,106 @@
+unit WebBrowserRela;
+
+uses
+  Windows;
+
+interface
+
+function WriteAppNameToReg: Boolean;
+
+implementation
+
+function IsWin64:Boolean;//这个是别人写好的，不记得原出处了，见凉
+var
+ Kernel32Handle:THandle;
+ //IsWow64Process: function(Handle:Windows.THandle;var Res:Windows.BOOL):Windows.BOOL; stdcall;
+ //GetNativeSystemInfo: procedure(var lpSystemInfo:TSystemInfo);stdcall;
+ isWoW64: Bool;
+ SystemInfo: TSystemInfo;
+const
+ PROCESSOR_ARCHITECTURE_AMD64=9;
+ PROCESSOR_ARCHITECTURE_IA64=6;
+begin
+  Kernel32Handle:=GetModuleHandle('KERNEL32.DLL');
+  if Kernel32Handle=0 then
+     Kernel32Handle:=LoadLibrary('KERNEL32.DLL');
+  if Kernel32Handle<>0 then
+  begin
+    IsWOW64Process:=GetProcAddress(Kernel32Handle,'IsWow64Process');
+    GetNativeSystemInfo:=GetProcAddress(Kernel32Handle,'GetNativeSystemInfo');
+    if Assigned(IsWow64Process) then
+    begin
+      IsWow64Process(GetCurrentProcess,isWoW64);
+      Result:=isWoW64 and Assigned(GetNativeSystemInfo);
+      if Result then
+      begin
+         GetNativeSystemInfo(SystemInfo);
+         Result:=(SystemInfo.wProcessorArchitecture=PROCESSOR_ARCHITECTURE_AMD64)or
+         (SystemInfo.wProcessorArchitecture=PROCESSOR_ARCHITECTURE_IA64);
+      end;
+    end
+    else
+    Result:=False;
+  end
+  else
+  Result:=False;
+end;
+
+function GetIEVersionStr: string;
+var
+ Reg: TRegistry; // registry access object
+begin
+ Result := '';
+ Reg := TRegistry.Create;
+ try
+    Reg.RootKey := Windows.HKEY_LOCAL_MACHINE;
+ if Reg.OpenKeyReadOnly('Software\Microsoft\Internet Explorer') then
+ begin
+  //这儿新版本IE的取值位置不同所以要判断 <br> if Reg.ValueExists('svcVersion') then
+    Result := Reg.ReadString('svcVersion')
+   else
+   if Reg.ValueExists('Version') then
+    Result := Reg.ReadString('Version');
+ end;
+ finally
+   Reg.Free;
+ end;
+end;
+
+function WriteAppNameToReg:Boolean;
+var
+  reg:TRegistry;
+  sPath,sAppName:String;
+  Sver:string;
+  lenver:Integer;
+begin
+  Result:=True;
+  reg:=TRegistry.Create;
+  try
+    reg.RootKey:=HKEY_LOCAL_MACHINE;
+    sPath:='SOFTWARE\Microsoft\Internet Explorer\MAIN\FeatureControl\FEATURE_BROWSER_EMULATION';
+    if isWin64 then
+      sPath:='SOFTWARE\Wow6432Node\Microsoft\Internet Explorer\MAIN\FeatureControl\FEATURE_BROWSER_EMULATION';
+    if reg.OpenKey(sPath,True) then
+    begin
+      sAppName:=ExtractFileName(Application.ExeName);
+      Sver:=GetIEVersionStr;
+      lenver:=StrToInt(leftstr(Sver, Pos('.',Sver)-1));
+      // if not reg.ValueExists(sAppName)then
+      if lenver<=7 then
+        reg.WriteInteger(sAppName,7000)
+      else if lenver=8 then
+        reg.WriteInteger(sAppName,8000)
+      else if lenver=9 then
+        reg.WriteInteger(sAppName,9000)
+      else if lenver=10 then
+        reg.WriteInteger(sAppName,10000)
+      else if lenver=11 then
+        reg.WriteInteger(sAppName,11001);
+    end;
+    reg.CloseKey;
+  finally
+    FreeAndNil(reg);
+  end;
+end;
+
+end.