~

.gitignore

@@ -0,0 +1,16 @@
+**/layout
+**/report
+**/实施文件
+**/image
+**/doc
+**/wav
+**/__history
+**/__recovery
+*.dll
+*.exe
+*.ddp
+*.dcu
+*.~pas
+*.~dfm
+*.~ddp
+*.~dpr

坯布码单待检(PBMDDJ.dll)/CYZZ.cfg

@@ -0,0 +1,42 @@
+-$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
+-LE"c:\program files (x86)\borland\delphi7\Projects\Bpl"
+-LN"c:\program files (x86)\borland\delphi7\Projects\Bpl"
+-U"D:\말繫ERP"
+-O"D:\말繫ERP"
+-I"D:\말繫ERP"
+-R"D:\말繫ERP"
+-w-UNSAFE_TYPE
+-w-UNSAFE_CODE
+-w-UNSAFE_CAST

坯布码单待检(PBMDDJ.dll)/CYZZ.dof

@@ -0,0 +1,138 @@
+[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=
+UnitOutputDir=
+PackageDLLOutputDir=
+PackageDCPOutputDir=
+SearchPath=D:\富通ERP
+Packages=vcl;rtl;vclx;indy;inet;xmlrtl;vclie;inetdbbde;inetdbxpress;dbrtl;dsnap;dsnapcon;vcldb;soaprtl;VclSmp;dbexpress;dbxcds;bdertl;vcldbx;webdsnap;websnap;adortl;ibxpress;teeui;teedb;tee;dss;visualclx;visualdbclx;vclactnband;vclshlctrls;IntrawebDB_50_70;Intraweb_50_70;dclOffice2k;Rave50CLX;Rave50VCL
+Conditionals=
+DebugSourceDirs=
+UsePackages=0
+[Parameters]
+RunParams=
+HostApplication=D:\selfware_83398\selfware\马国钢开发代码\项目代码\self\长阳针织(CYZZ.dll)\testDll.exe
+Launcher=
+UseLauncher=0
+DebugCWD=
+[Language]
+ActiveLang=
+ProjectLang=
+RootDir=
+[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]
+c:\program files\borland\delphi7\Bin\DBWEBXPRT.BPL=Borland Web Wizard Package

坯布码单待检(PBMDDJ.dll)/DDMD.cfg

@@ -0,0 +1,42 @@
+-$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
+-LE"c:\program files (x86)\borland\delphi7\Projects\Bpl"
+-LN"c:\program files (x86)\borland\delphi7\Projects\Bpl"
+-U"D:\말繫ERP"
+-O"D:\말繫ERP"
+-I"D:\말繫ERP"
+-R"D:\말繫ERP"
+-w-UNSAFE_TYPE
+-w-UNSAFE_CODE
+-w-UNSAFE_CAST

坯布码单待检(PBMDDJ.dll)/DDMD.dof

@@ -0,0 +1,138 @@
+[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=
+UnitOutputDir=
+PackageDLLOutputDir=
+PackageDCPOutputDir=
+SearchPath=D:\富通ERP
+Packages=vcl;rtl;vclx;indy;inet;xmlrtl;vclie;inetdbbde;inetdbxpress;dbrtl;dsnap;dsnapcon;vcldb;soaprtl;VclSmp;dbexpress;dbxcds;bdertl;vcldbx;webdsnap;websnap;adortl;ibxpress;teeui;teedb;tee;dss;visualclx;visualdbclx;vclactnband;vclshlctrls;IntrawebDB_50_70;Intraweb_50_70;dclOffice2k;Rave50CLX;Rave50VCL
+Conditionals=
+DebugSourceDirs=
+UsePackages=0
+[Parameters]
+RunParams=
+HostApplication=D:\selfware_83398\selfware\马国钢开发代码\项目代码\self\订单码单管理(DDMD.dll)\testDll.exe
+Launcher=
+UseLauncher=0
+DebugCWD=
+[Language]
+ActiveLang=
+ProjectLang=
+RootDir=
+[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]
+c:\program files\borland\delphi7\Bin\DBWEBXPRT.BPL=Borland Web Wizard Package

坯布码单待检(PBMDDJ.dll)/Desktop.ini

@@ -0,0 +1,3 @@
+[.ShellClassInfo]
+IconFile=C:\Program Files (x86)\360\360WangPan\new_desktop_win7.ico
+IconIndex=0

坯布码单待检(PBMDDJ.dll)/File.INI

@@ -0,0 +1,4 @@
+[生产车间配置]
+卷条码机台标志=99
+成品DLL文件=CYZZ.dll
+成品DLL调用号=11

坯布码单待检(PBMDDJ.dll)/FileHelp.ini

@@ -0,0 +1,7 @@
+[FILEPATH]
+FileClass=YP,AA,BB,HT
+YP=D:\YP
+AA=D:\AA
+BB=D:\BB
+HT=D:\HT
+OTHER=D:\OTHER

坯布码单待检(PBMDDJ.dll)/JCYData.INI

@@ -0,0 +1,7 @@
+[系统配置]
+串口号=com1
+波特率=9600
+校验位=0
+数据位=8
+停止位=0
+频率=100

坯布码单待检(PBMDDJ.dll)/JZCRS323C.INI

@@ -0,0 +1,7 @@
+[系统配置]
+串口号=com2
+波特率=1200
+校验位=0
+数据位=8
+停止位=0
+频率=100

坯布码单待检(PBMDDJ.dll)/PBMDDJ.cfg

@@ -0,0 +1,42 @@
+-$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
+-LE"c:\program files (x86)\borland\delphi7\Projects\Bpl"
+-LN"c:\program files (x86)\borland\delphi7\Projects\Bpl"
+-U"D:\말繫ERP"
+-O"D:\말繫ERP"
+-I"D:\말繫ERP"
+-R"D:\말繫ERP"
+-w-UNSAFE_TYPE
+-w-UNSAFE_CODE
+-w-UNSAFE_CAST

坯布码单待检(PBMDDJ.dll)/PBMDDJ.dof

@@ -0,0 +1,138 @@
+[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=
+UnitOutputDir=
+PackageDLLOutputDir=
+PackageDCPOutputDir=
+SearchPath=D:\말繫ERP
+Packages=vcl;rtl;vclx;indy;inet;xmlrtl;vclie;inetdbbde;inetdbxpress;dbrtl;dsnap;dsnapcon;vcldb;soaprtl;VclSmp;dbexpress;dbxcds;bdertl;vcldbx;webdsnap;websnap;adortl;ibxpress;teeui;teedb;tee;dss;visualclx;visualdbclx;vclactnband;vclshlctrls;IntrawebDB_50_70;Intraweb_50_70;dclOffice2k;Rave50CLX;Rave50VCL
+Conditionals=
+DebugSourceDirs=
+UsePackages=0
+[Parameters]
+RunParams=
+HostApplication=D:\其속螺淃커덜쯤\淃커덜쯤\굔페\툰꼈쯤데덤쇱(PBMDDJ.dll)\testDll.exe
+Launcher=
+UseLauncher=0
+DebugCWD=
+[Language]
+ActiveLang=
+ProjectLang=
+RootDir=
+[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]
+c:\program files\borland\delphi7\Bin\DBWEBXPRT.BPL=Borland Web Wizard Package

坯布码单待检(PBMDDJ.dll)/PBMDDJ.dpr

@@ -0,0 +1,59 @@
+library PBMDDJ;
+
+uses
+  SysUtils,
+  classes,
+  forms,
+  WinTypes,
+  WinProcs,
+  U_GetDllForm in 'U_GetDllForm.pas',
+  U_RTFun in '..\..\..\RTFunAndForm\Fun\U_RTFun.pas',
+  U_ModuleNote in 'U_ModuleNote.pas' {frmModuleNote},
+  U_DataLink in 'U_DataLink.pas' {DataLink_PBMDDJ: TDataModule},
+  U_GYSList in 'U_GYSList.pas' {frmGYSList},
+  U_ZDYHelpSel in 'U_ZDYHelpSel.pas' {frmZDYHelpSel},
+  U_iniParam in 'U_iniParam.pas',
+  U_ZDYHelp in 'U_ZDYHelp.pas' {frmZDYHelp},
+  U_GYSSelList in 'U_GYSSelList.pas' {frmGYSSelList},
+  U_YZRKList in 'U_YZRKList.pas' {frmYZRKList},
+  U_YZInPut in 'U_YZInPut.pas' {frmYZInPut},
+  U_ZdyAttachGYS in 'U_ZdyAttachGYS.pas' {frmZdyAttachGYS},
+  U_ProductOrderListPBSel in 'U_ProductOrderListPBSel.pas' {frmProductOrderListpbSel},
+  U_DJQTCKPut in 'U_DJQTCKPut.pas' {frmDJQTCKPut},
+  U_ShaKCList in 'U_ShaKCList.pas' {frmShaKCList},
+  U_DJQTCKList in 'U_DJQTCKList.pas' {frmDJQTCKList},
+  U_WJGCKKCList in 'U_WJGCKKCList.pas' {frmWJGCKKCList},
+  U_DJQTKCList in 'U_DJQTKCList.pas' {frmDJQTKCList},
+  U_ZdyAttachCP in 'U_ZdyAttachCP.pas' {frmZdyAttachCP},
+  U_ClothContractListHZSel in 'U_ClothContractListHZSel.pas' {frmClothContractListHZsel},
+  U_ClothContractListHZHelp in 'U_ClothContractListHZHelp.pas' {frmClothContractListHZHelp},
+  U_ClothContractListHelp in 'U_ClothContractListHelp.pas' {frmClothContractListHelp},
+  U_SXDZInPut in 'U_SXDZInPut.pas' {frmSXDZInPut},
+  U_SXCKNewList in 'U_SXCKNewList.pas' {frmSXCKNewList},
+  U_SXCKOutPut in 'U_SXCKOutPut.pas' {frmSXCKOutPut},
+  U_SXCKInPut in 'U_SXCKInPut.pas' {frmSXCKInPut};
+
+{$R *.res}
+
+procedure DllEnterPoint(dwReason: DWORD);far;stdcall;
+begin
+  DLLProc := @DLLEnterPoint;
+  DllEnterPoint(DLL_PROCESS_ATTACH);
+end;
+
+procedure DLLUnloadProc(Reason: Integer); register;
+begin
+  {if (Reason = DLL_PROCESS_DETACH) or (Reason=DLL_THREAD_DETACH) then
+     Application:=NewDllApp;   }
+end;
+exports
+   GetDllForm;
+begin
+  try
+    NewDllApp:=Application;
+    DLLProc := @DLLUnloadProc;
+  except
+
+  end;
+end.
+

坯布码单待检(PBMDDJ.dll)/ProjectGroup1.bpg

@@ -0,0 +1,23 @@
+#------------------------------------------------------------------------------
+VERSION = BWS.01
+#------------------------------------------------------------------------------
+!ifndef ROOT
+ROOT = $(MAKEDIR)\..
+!endif
+#------------------------------------------------------------------------------
+MAKE = $(ROOT)\bin\make.exe -$(MAKEFLAGS) -f$**
+DCC = $(ROOT)\bin\dcc32.exe $**
+BRCC = $(ROOT)\bin\brcc32.exe $**
+#------------------------------------------------------------------------------
+PROJECTS = testDll.exe ProductPrice.dll
+#------------------------------------------------------------------------------
+default: $(PROJECTS)
+#------------------------------------------------------------------------------
+
+testDll.exe: testDll.dpr
+  $(DCC)
+
+ProductPrice.dll: ProductPrice.dpr
+  $(DCC)
+
+

坯布码单待检(PBMDDJ.dll)/SYSTEMSET.ini

@@ -0,0 +1,3 @@
+[SERVER]
+服务器地址=172.168.1.246
+软件名称=欣戈纺织

坯布码单待检(PBMDDJ.dll)/U_BGCWEndManage.dfm

@@ -0,0 +1,794 @@
+object frmBGCWEndManage: TfrmBGCWEndManage
+  Left = 17
+  Top = 0
+  Width = 1274
+  Height = 717
+  Caption = #25253#20851#31649#29702'('#36130#21153')'
+  Color = clBtnFace
+  Font.Charset = GB2312_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -12
+  Font.Name = #23435#20307
+  Font.Style = []
+  OldCreateOrder = False
+  OnClose = FormClose
+  OnCreate = FormCreate
+  OnDestroy = FormDestroy
+  OnShow = FormShow
+  PixelsPerInch = 96
+  TextHeight = 12
+  object ToolBar1: TToolBar
+    Left = 0
+    Top = 0
+    Width = 1258
+    AutoSize = True
+    ButtonHeight = 30
+    ButtonWidth = 83
+    Caption = 'ToolBar1'
+    Color = clSkyBlue
+    Flat = True
+    Font.Charset = GB2312_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -12
+    Font.Name = #23435#20307
+    Font.Style = []
+    Images = DataLink_CYZZ.ThreeImgList
+    List = True
+    ParentColor = False
+    ParentFont = False
+    ShowCaptions = True
+    TabOrder = 0
+    object TBRafresh: TToolButton
+      Left = 0
+      Top = 0
+      AutoSize = True
+      Caption = #21047#26032
+      ImageIndex = 0
+      OnClick = TBRafreshClick
+    end
+    object TBEdit: TToolButton
+      Left = 63
+      Top = 0
+      AutoSize = True
+      Caption = #23457#26680
+      ImageIndex = 22
+      OnClick = TBEditClick
+    end
+    object ToolButton1: TToolButton
+      Left = 126
+      Top = 0
+      Caption = #23457#26680#25764#38144
+      ImageIndex = 52
+      OnClick = ToolButton1Click
+    end
+    object TBPrint: TToolButton
+      Left = 209
+      Top = 0
+      AutoSize = True
+      Caption = #25171#21360
+      ImageIndex = 4
+      OnClick = TBPrintClick
+    end
+    object ToolButton3: TToolButton
+      Left = 272
+      Top = 0
+      AutoSize = True
+      Caption = #25805#20316#35828#26126
+      ImageIndex = 41
+      OnClick = ToolButton3Click
+    end
+    object TBClose: TToolButton
+      Left = 359
+      Top = 0
+      AutoSize = True
+      Caption = #20851#38381
+      ImageIndex = 21
+      OnClick = TBCloseClick
+    end
+  end
+  object Panel1: TPanel
+    Left = 0
+    Top = 32
+    Width = 1258
+    Height = 35
+    Align = alTop
+    BevelInner = bvRaised
+    BevelOuter = bvLowered
+    Color = clSkyBlue
+    TabOrder = 1
+    object Label1: TLabel
+      Left = 23
+      Top = 11
+      Width = 52
+      Height = 12
+      Caption = #26597#35810#26085#26399
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label3: TLabel
+      Left = 262
+      Top = 11
+      Width = 39
+      Height = 12
+      Caption = #35746#21333#21495
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object BegDate: TDateTimePicker
+      Left = 76
+      Top = 7
+      Width = 85
+      Height = 20
+      Date = 40675.464742650460000000
+      Format = 'yyyy-MM-dd'
+      Time = 40675.464742650460000000
+      TabOrder = 0
+    end
+    object EndDate: TDateTimePicker
+      Left = 164
+      Top = 7
+      Width = 86
+      Height = 20
+      Date = 40675.464761099540000000
+      Format = 'yyyy-MM-dd'
+      Time = 40675.464761099540000000
+      TabOrder = 1
+    end
+    object BCOrderNo: TEdit
+      Tag = 2
+      Left = 303
+      Top = 7
+      Width = 130
+      Height = 20
+      TabOrder = 2
+      OnChange = BCOrderNoChange
+    end
+  end
+  object Panel6: TPanel
+    Left = 0
+    Top = 390
+    Width = 1258
+    Height = 288
+    Align = alBottom
+    BevelInner = bvRaised
+    BevelOuter = bvLowered
+    TabOrder = 2
+    object cxGrid12: TcxGrid
+      Left = 2
+      Top = 2
+      Width = 654
+      Height = 284
+      Align = alLeft
+      TabOrder = 0
+      object Tv12: TcxGridDBTableView
+        NavigatorButtons.ConfirmDelete = False
+        DataController.DataSource = DataSource12
+        DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoGroupsAlwaysExpanded, dcoImmediatePost]
+        DataController.Summary.DefaultGroupSummaryItems = <
+          item
+            Format = '0'
+            Position = spFooter
+          end
+          item
+            Format = '0'
+            Position = spFooter
+          end
+          item
+            Format = '0'
+            Position = spFooter
+          end
+          item
+            Format = '0'
+            Position = spFooter
+            Column = cxGridDBColumn11
+          end
+          item
+            Kind = skSum
+            Position = spFooter
+            Column = cxGridDBColumn10
+          end
+          item
+            Kind = skSum
+            Position = spFooter
+            Column = v12Column2
+          end>
+        DataController.Summary.FooterSummaryItems = <
+          item
+            Kind = skSum
+            Column = v2Column1
+          end>
+        DataController.Summary.SummaryGroups = <>
+        OptionsBehavior.FocusCellOnTab = True
+        OptionsBehavior.GoToNextCellOnEnter = True
+        OptionsBehavior.FocusCellOnCycle = True
+        OptionsCustomize.ColumnFiltering = False
+        OptionsSelection.CellSelect = False
+        OptionsView.Footer = True
+        OptionsView.GroupByBox = False
+        OptionsView.GroupFooters = gfAlwaysVisible
+        Styles.Inactive = DataLink_CYZZ.SHuangSe
+        Styles.IncSearch = DataLink_CYZZ.SHuangSe
+        Styles.Selection = DataLink_CYZZ.SHuangSe
+        Styles.Header = DataLink_CYZZ.Default
+        object vJCKMXColumn1: TcxGridDBColumn
+          Caption = #20379#24212#21830
+          DataBinding.FieldName = 'FactoryName'
+          HeaderAlignmentHorz = taCenter
+          Options.Editing = False
+          Width = 74
+        end
+        object cxGridDBColumn7: TcxGridDBColumn
+          Caption = #36153#29992#21517#31216
+          DataBinding.FieldName = 'BFName'
+          HeaderAlignmentHorz = taCenter
+          Width = 81
+        end
+        object cxGridDBColumn10: TcxGridDBColumn
+          Caption = #20844#26020#25968
+          DataBinding.FieldName = 'BFQty'
+          HeaderAlignmentHorz = taCenter
+          Width = 66
+        end
+        object v12Column1: TcxGridDBColumn
+          Caption = #31859#38271
+          DataBinding.FieldName = 'MLen'
+          HeaderAlignmentHorz = taCenter
+          Width = 49
+        end
+        object v12Column2: TcxGridDBColumn
+          Caption = #31859#25968
+          DataBinding.FieldName = 'BFMQty'
+          HeaderAlignmentHorz = taCenter
+          Width = 57
+        end
+        object v12Column3: TcxGridDBColumn
+          Caption = #25439#32791
+          DataBinding.FieldName = 'PSSHQty'
+          HeaderAlignmentHorz = taCenter
+          Width = 58
+        end
+        object cxGridDBColumn11: TcxGridDBColumn
+          Caption = #21333#20215
+          DataBinding.FieldName = 'BFPrice'
+          HeaderAlignmentHorz = taCenter
+          Options.Sorting = False
+          Width = 53
+        end
+        object cxGridDBColumn12: TcxGridDBColumn
+          Caption = #35745#20215#21333#20301
+          DataBinding.FieldName = 'BFUnit'
+          HeaderAlignmentHorz = taCenter
+          Width = 60
+        end
+        object v2Column1: TcxGridDBColumn
+          Caption = #37329#39069
+          DataBinding.FieldName = 'BFMoney'
+          HeaderAlignmentHorz = taCenter
+          Width = 87
+        end
+        object cxGridDBColumn23: TcxGridDBColumn
+          Caption = #22791#27880
+          DataBinding.FieldName = 'BFNote'
+          HeaderAlignmentHorz = taCenter
+          Width = 105
+        end
+      end
+      object cxGridLevel6: TcxGridLevel
+        GridView = Tv12
+      end
+    end
+    object cxGrid6: TcxGrid
+      Left = 656
+      Top = 2
+      Width = 600
+      Height = 284
+      Align = alClient
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = []
+      ParentFont = False
+      TabOrder = 1
+      object Tv19: TcxGridDBTableView
+        NavigatorButtons.ConfirmDelete = False
+        DataController.DataSource = DataSource19
+        DataController.Summary.DefaultGroupSummaryItems = <>
+        DataController.Summary.FooterSummaryItems = <>
+        DataController.Summary.SummaryGroups = <>
+        OptionsCustomize.ColumnFiltering = False
+        OptionsSelection.CellSelect = False
+        OptionsView.GroupByBox = False
+        Styles.Inactive = DataLink_CYZZ.SHuangSe
+        Styles.IncSearch = DataLink_CYZZ.SHuangSe
+        Styles.Selection = DataLink_CYZZ.SHuangSe
+        Styles.Header = DataLink_CYZZ.Default
+        object cxGridDBColumn1: TcxGridDBColumn
+          Caption = #20013#25991#21697#21517
+          DataBinding.FieldName = 'BGName'
+          HeaderAlignmentHorz = taCenter
+          Options.Editing = False
+          Width = 138
+        end
+        object v6Column1: TcxGridDBColumn
+          Caption = #20844#26020#25968
+          DataBinding.FieldName = 'NQkgQty'
+          HeaderAlignmentHorz = taCenter
+          Options.Editing = False
+          Width = 57
+        end
+        object Tv19Column1: TcxGridDBColumn
+          Caption = #31859#25968
+          DataBinding.FieldName = 'NQMQty'
+          HeaderAlignmentHorz = taCenter
+          Options.Editing = False
+          Width = 64
+        end
+        object Tv19Column2: TcxGridDBColumn
+          Caption = #35745#20215#21333#20301
+          DataBinding.FieldName = 'NQUnit'
+          PropertiesClassName = 'TcxComboBoxProperties'
+          Properties.Items.Strings = (
+            'M'
+            'KG')
+          HeaderAlignmentHorz = taCenter
+          Width = 64
+        end
+        object v6Column2: TcxGridDBColumn
+          Caption = #21333#20215'$'
+          DataBinding.FieldName = 'BGPrice'
+          HeaderAlignmentHorz = taCenter
+          Width = 61
+        end
+        object v6Column3: TcxGridDBColumn
+          Caption = #37329#39069'$'
+          DataBinding.FieldName = 'BGMoney'
+          HeaderAlignmentHorz = taCenter
+          Width = 39
+        end
+        object v6Column4: TcxGridDBColumn
+          Caption = #22791#27880
+          DataBinding.FieldName = 'NQNote'
+          HeaderAlignmentHorz = taCenter
+          Width = 93
+        end
+      end
+      object cxGridLevel1: TcxGridLevel
+        GridView = Tv19
+      end
+    end
+  end
+  object cxTabControl1: TcxTabControl
+    Left = 0
+    Top = 67
+    Width = 1258
+    Height = 21
+    Align = alTop
+    Font.Charset = GB2312_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -12
+    Font.Name = #23435#20307
+    Font.Style = [fsBold]
+    ParentFont = False
+    Style = 8
+    TabIndex = 0
+    TabOrder = 3
+    Tabs.Strings = (
+      #24453#23457#26680
+      #24050#23457#26680
+      #24050#30830#35748
+      #20840#37096)
+    OnChange = cxTabControl1Change
+    ClientRectBottom = 23
+    ClientRectRight = 1258
+    ClientRectTop = 23
+  end
+  object cxGrid3: TcxGrid
+    Left = 0
+    Top = 88
+    Width = 593
+    Height = 302
+    Align = alClient
+    TabOrder = 4
+    object Tv11: TcxGridDBTableView
+      NavigatorButtons.ConfirmDelete = False
+      OnFocusedRecordChanged = Tv11FocusedRecordChanged
+      DataController.DataSource = DataSource11
+      DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
+      DataController.Summary.DefaultGroupSummaryItems = <>
+      DataController.Summary.FooterSummaryItems = <>
+      DataController.Summary.SummaryGroups = <>
+      OptionsCustomize.ColumnFiltering = False
+      OptionsSelection.CellSelect = False
+      OptionsView.Footer = True
+      OptionsView.GroupByBox = False
+      Styles.Inactive = DataLink_CYZZ.SHuangSe
+      Styles.IncSearch = DataLink_CYZZ.SHuangSe
+      Styles.Selection = DataLink_CYZZ.SHuangSe
+      Styles.Header = DataLink_CYZZ.Default
+      object cxGridDBColumn8: TcxGridDBColumn
+        Caption = #35746#21333#35782#21035#21495
+        DataBinding.FieldName = 'BCOrderNo'
+        HeaderAlignmentHorz = taCenter
+        Options.Focusing = False
+        Styles.Header = DataLink_CYZZ.Default
+        Width = 100
+      end
+      object cxGridDBColumn9: TcxGridDBColumn
+        Caption = #26085#26399
+        DataBinding.FieldName = 'BGDate'
+        HeaderAlignmentHorz = taCenter
+        Width = 83
+      end
+      object cxGridDBColumn20: TcxGridDBColumn
+        Caption = #36865#23457#26102#38388
+        DataBinding.FieldName = 'SSTime'
+        HeaderAlignmentHorz = taCenter
+        Width = 73
+      end
+      object v11Column1: TcxGridDBColumn
+        Caption = #23457#26680#20154
+        DataBinding.FieldName = 'Chker'
+        HeaderAlignmentHorz = taCenter
+        Width = 44
+      end
+      object v11Column2: TcxGridDBColumn
+        Caption = #23457#26680#26102#38388
+        DataBinding.FieldName = 'ChkTime'
+        HeaderAlignmentHorz = taCenter
+        Width = 65
+      end
+      object v11Column3: TcxGridDBColumn
+        Caption = #29366#24577
+        DataBinding.FieldName = 'ChkStatus'
+        HeaderAlignmentHorz = taCenter
+        Width = 62
+      end
+      object v11Column4: TcxGridDBColumn
+        Caption = #30830#35748#20154
+        DataBinding.FieldName = 'OKPerson'
+        HeaderAlignmentHorz = taCenter
+        Width = 52
+      end
+      object v11Column5: TcxGridDBColumn
+        Caption = #30830#35748#26102#38388
+        DataBinding.FieldName = 'OKTime'
+        HeaderAlignmentHorz = taCenter
+        Width = 61
+      end
+      object v11Column6: TcxGridDBColumn
+        Caption = #24050#30830#35748
+        DataBinding.FieldName = 'OKFlag'
+        PropertiesClassName = 'TcxCheckBoxProperties'
+        Properties.NullStyle = nssUnchecked
+        HeaderAlignmentHorz = taCenter
+        Width = 49
+      end
+    end
+    object cxGridLevel2: TcxGridLevel
+      GridView = Tv11
+    end
+  end
+  object cxGrid1: TcxGrid
+    Left = 601
+    Top = 88
+    Width = 657
+    Height = 302
+    Align = alRight
+    TabOrder = 5
+    object Tv1: TcxGridDBTableView
+      NavigatorButtons.ConfirmDelete = False
+      DataController.DataSource = DataSource1
+      DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
+      DataController.Summary.DefaultGroupSummaryItems = <>
+      DataController.Summary.FooterSummaryItems = <>
+      DataController.Summary.SummaryGroups = <>
+      OptionsCustomize.ColumnFiltering = False
+      OptionsSelection.CellSelect = False
+      OptionsView.Footer = True
+      OptionsView.GroupByBox = False
+      Styles.Inactive = DataLink_CYZZ.SHuangSe
+      Styles.IncSearch = DataLink_CYZZ.SHuangSe
+      Styles.Selection = DataLink_CYZZ.SHuangSe
+      Styles.Header = DataLink_CYZZ.Default
+      object v1OrderNo: TcxGridDBColumn
+        Caption = #35746#21333#21495
+        DataBinding.FieldName = 'OrderNo'
+        HeaderAlignmentHorz = taCenter
+        Options.Focusing = False
+        Styles.Header = DataLink_CYZZ.Default
+        Width = 98
+      end
+      object v1Column1: TcxGridDBColumn
+        Caption = #25209#27425
+        DataBinding.FieldName = 'BatchNo'
+        HeaderAlignmentHorz = taCenter
+        Width = 75
+      end
+      object v1Column2: TcxGridDBColumn
+        Caption = #27425#25968
+        DataBinding.FieldName = 'EditCount'
+        HeaderAlignmentHorz = taCenter
+        Width = 49
+      end
+      object v1CustomerNoName: TcxGridDBColumn
+        Caption = #25253#20851#21333#20301
+        DataBinding.FieldName = 'ComTaiTou'
+        HeaderAlignmentHorz = taCenter
+        Options.Focusing = False
+        Styles.Header = DataLink_CYZZ.Default
+        Width = 94
+      end
+      object v1MPRTSpec: TcxGridDBColumn
+        Caption = #31859#38271
+        DataBinding.FieldName = 'MLenStr'
+        HeaderAlignmentHorz = taCenter
+        Options.Focusing = False
+        Styles.Header = DataLink_CYZZ.Default
+        Width = 61
+      end
+      object v1Column12: TcxGridDBColumn
+        Caption = #28023#36816#36153'$'
+        DataBinding.FieldName = 'HaiYunFee'
+        HeaderAlignmentHorz = taCenter
+        Width = 57
+      end
+      object v1Column13: TcxGridDBColumn
+        Caption = #20445#36153'$'
+        DataBinding.FieldName = 'BaoFee'
+        HeaderAlignmentHorz = taCenter
+        Width = 58
+      end
+      object v1Column3: TcxGridDBColumn
+        Caption = #36816#25269#22269
+        DataBinding.FieldName = 'YunDiG'
+        PropertiesClassName = 'TcxButtonEditProperties'
+        Properties.Buttons = <
+          item
+            Default = True
+            Kind = bkEllipsis
+          end>
+        HeaderAlignmentHorz = taCenter
+        Width = 63
+      end
+      object v1Column8: TcxGridDBColumn
+        Caption = #20986#21475#21475#23736
+        DataBinding.FieldName = 'ChuKouKA'
+        PropertiesClassName = 'TcxButtonEditProperties'
+        Properties.Buttons = <
+          item
+            Default = True
+            Kind = bkEllipsis
+          end>
+        HeaderAlignmentHorz = taCenter
+        Width = 63
+      end
+      object v1Column9: TcxGridDBColumn
+        Caption = #36135#28304#22320
+        DataBinding.FieldName = 'HuoYuanPlace'
+        PropertiesClassName = 'TcxButtonEditProperties'
+        Properties.Buttons = <
+          item
+            Default = True
+            Kind = bkEllipsis
+          end>
+        HeaderAlignmentHorz = taCenter
+        Width = 62
+      end
+      object v1Column14: TcxGridDBColumn
+        Caption = #25104#20132#26041#24335
+        DataBinding.FieldName = 'ChengJiaoType'
+        HeaderAlignmentHorz = taCenter
+        Width = 59
+      end
+      object v1Column4: TcxGridDBColumn
+        Caption = #29702#21333#21592
+        DataBinding.FieldName = 'Filler'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 71
+      end
+      object v1Column5: TcxGridDBColumn
+        Caption = #26159#21542#26377#25928
+        DataBinding.FieldName = 'Valid'
+        HeaderAlignmentHorz = taCenter
+        Width = 61
+      end
+      object v1Column6: TcxGridDBColumn
+        Caption = #30331#35760#20154
+        DataBinding.FieldName = 'Filler'
+        HeaderAlignmentHorz = taCenter
+        Width = 51
+      end
+      object v1Column7: TcxGridDBColumn
+        Caption = #30331#35760#26102#38388
+        DataBinding.FieldName = 'FillTime'
+        HeaderAlignmentHorz = taCenter
+        Width = 64
+      end
+    end
+    object cxGrid1Level1: TcxGridLevel
+      GridView = Tv1
+    end
+  end
+  object cxSplitter1: TcxSplitter
+    Left = 593
+    Top = 88
+    Width = 8
+    Height = 302
+    HotZoneClassName = 'TcxMediaPlayer9Style'
+    AlignSplitter = salRight
+    Control = cxGrid1
+  end
+  object ADOQueryTemp: TADOQuery
+    Connection = DataLink_CYZZ.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 791
+    Top = 4
+  end
+  object ADOQueryMain: TADOQuery
+    Connection = DataLink_CYZZ.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 820
+    Top = 7
+  end
+  object ADOQueryCmd: TADOQuery
+    Connection = DataLink_CYZZ.ADOLink
+    Parameters = <>
+    Left = 984
+    Top = 2
+  end
+  object ADOQueryPrint: TADOQuery
+    Connection = DataLink_CYZZ.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 920
+    Top = 65535
+  end
+  object ClientDataSet7: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 1165
+    Top = 522
+  end
+  object cxGridPopupMenu7: TcxGridPopupMenu
+    PopupMenus = <>
+    Left = 1195
+    Top = 518
+  end
+  object DataSource7: TDataSource
+    DataSet = ClientDataSet7
+    Left = 1224
+    Top = 519
+  end
+  object DataSource11: TDataSource
+    DataSet = ClientDataSet11
+    Left = 562
+    Top = 38
+  end
+  object ClientDataSet11: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 593
+    Top = 37
+  end
+  object DataSource12: TDataSource
+    DataSet = ClientDataSet12
+    Left = 628
+    Top = 39
+  end
+  object ClientDataSet12: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 661
+    Top = 37
+  end
+  object cxGridPopupMenu11: TcxGridPopupMenu
+    Grid = cxGrid3
+    PopupMenus = <>
+    Left = 792
+    Top = 39
+  end
+  object cxGridPopupMenu12: TcxGridPopupMenu
+    Grid = cxGrid12
+    PopupMenus = <>
+    Left = 830
+    Top = 37
+  end
+  object DataSource19: TDataSource
+    DataSet = ClientDataSet19
+    Left = 693
+    Top = 38
+  end
+  object ClientDataSet19: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 727
+    Top = 37
+  end
+  object cxGridPopupMenu19: TcxGridPopupMenu
+    Grid = cxGrid6
+    PopupMenus = <>
+    Left = 762
+    Top = 38
+  end
+  object CDS_Print: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 365
+    Top = 240
+  end
+  object RM1: TRMGridReport
+    ThreadPrepareReport = True
+    InitialZoom = pzDefault
+    PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbSaveToXLS, pbExport, pbNavigator]
+    DefaultCollate = False
+    SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\'
+    PreviewOptions.RulerUnit = rmutScreenPixels
+    PreviewOptions.RulerVisible = False
+    PreviewOptions.DrawBorder = False
+    PreviewOptions.BorderPen.Color = clGray
+    PreviewOptions.BorderPen.Style = psDash
+    Dataset = RMDB19
+    CompressLevel = rmzcFastest
+    CompressThread = False
+    LaterBuildEvents = True
+    OnlyOwnerDataSet = False
+    Left = 424
+    Top = 200
+    ReportData = {}
+  end
+  object RMXLSExport1: TRMXLSExport
+    ShowAfterExport = False
+    ExportPrecision = 1
+    PagesOfSheet = 1
+    ExportImages = True
+    ExportFrames = True
+    ExportImageFormat = ifBMP
+    JPEGQuality = 0
+    ScaleX = 1.000000000000000000
+    ScaleY = 1.000000000000000000
+    CompressFile = False
+    Left = 472
+    Top = 212
+  end
+  object RMDB19: TRMDBDataSet
+    Visible = True
+    DataSet = ClientDataSet19
+    Left = 493
+    Top = 249
+  end
+  object RMDB12: TRMDBDataSet
+    Visible = True
+    DataSet = ClientDataSet12
+    Left = 446
+    Top = 249
+  end
+  object ClientDataSet1: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 1065
+    Top = 230
+  end
+  object cxGridPopupMenu1: TcxGridPopupMenu
+    Grid = cxGrid1
+    PopupMenus = <>
+    Left = 1095
+    Top = 226
+  end
+  object DataSource1: TDataSource
+    DataSet = ClientDataSet1
+    Left = 1124
+    Top = 227
+  end
+end

坯布码单待检(PBMDDJ.dll)/U_BGCWEndManage.pas

@@ -0,0 +1,467 @@
+unit U_BGCWEndManage; //22
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, ADODB, DB, DBClient, cxGridCustomPopupMenu, cxGridPopupMenu,
+  StdCtrls, ComCtrls, ExtCtrls, ToolWin, cxStyles, cxCustomData,
+  cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, cxDBData,
+  cxCalendar, cxGridLevel, cxGridCustomTableView, cxGridTableView,
+  cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid, cxPC,
+  BtnEdit, cxGridBandedTableView, cxGridDBBandedTableView, cxButtonEdit,
+  cxDropDownEdit, cxCheckBox, cxSplitter, RM_Dataset, RM_Common, RM_Class,
+  RM_e_Xls, RM_System, RM_GridReport;
+
+type
+  TfrmBGCWEndManage = class(TForm)
+    ToolBar1: TToolBar;
+    TBRafresh: TToolButton;
+    TBEdit: TToolButton;
+    TBPrint: TToolButton;
+    ToolButton3: TToolButton;
+    TBClose: TToolButton;
+    Panel1: TPanel;
+    Label1: TLabel;
+    Label3: TLabel;
+    BegDate: TDateTimePicker;
+    EndDate: TDateTimePicker;
+    BCOrderNo: TEdit;
+    ADOQueryTemp: TADOQuery;
+    ADOQueryMain: TADOQuery;
+    ADOQueryCmd: TADOQuery;
+    ADOQueryPrint: TADOQuery;
+    ClientDataSet7: TClientDataSet;
+    cxGridPopupMenu7: TcxGridPopupMenu;
+    DataSource7: TDataSource;
+    DataSource11: TDataSource;
+    ClientDataSet11: TClientDataSet;
+    DataSource12: TDataSource;
+    ClientDataSet12: TClientDataSet;
+    cxGridPopupMenu11: TcxGridPopupMenu;
+    cxGridPopupMenu12: TcxGridPopupMenu;
+    DataSource19: TDataSource;
+    ClientDataSet19: TClientDataSet;
+    cxGridPopupMenu19: TcxGridPopupMenu;
+    Panel6: TPanel;
+    cxTabControl1: TcxTabControl;
+    ToolButton1: TToolButton;
+    cxGrid12: TcxGrid;
+    Tv12: TcxGridDBTableView;
+    vJCKMXColumn1: TcxGridDBColumn;
+    cxGridDBColumn7: TcxGridDBColumn;
+    cxGridDBColumn10: TcxGridDBColumn;
+    v12Column1: TcxGridDBColumn;
+    v12Column2: TcxGridDBColumn;
+    cxGridDBColumn11: TcxGridDBColumn;
+    cxGridDBColumn12: TcxGridDBColumn;
+    v2Column1: TcxGridDBColumn;
+    cxGridDBColumn23: TcxGridDBColumn;
+    cxGridLevel6: TcxGridLevel;
+    cxGrid6: TcxGrid;
+    Tv19: TcxGridDBTableView;
+    cxGridDBColumn1: TcxGridDBColumn;
+    v6Column1: TcxGridDBColumn;
+    Tv19Column1: TcxGridDBColumn;
+    Tv19Column2: TcxGridDBColumn;
+    v6Column2: TcxGridDBColumn;
+    v6Column3: TcxGridDBColumn;
+    v6Column4: TcxGridDBColumn;
+    cxGridLevel1: TcxGridLevel;
+    v12Column3: TcxGridDBColumn;
+    cxGrid3: TcxGrid;
+    Tv11: TcxGridDBTableView;
+    cxGridDBColumn8: TcxGridDBColumn;
+    cxGridDBColumn9: TcxGridDBColumn;
+    cxGridDBColumn20: TcxGridDBColumn;
+    v11Column1: TcxGridDBColumn;
+    v11Column2: TcxGridDBColumn;
+    v11Column3: TcxGridDBColumn;
+    cxGridLevel2: TcxGridLevel;
+    CDS_Print: TClientDataSet;
+    RM1: TRMGridReport;
+    RMXLSExport1: TRMXLSExport;
+    RMDB19: TRMDBDataSet;
+    RMDB12: TRMDBDataSet;
+    v11Column4: TcxGridDBColumn;
+    v11Column5: TcxGridDBColumn;
+    v11Column6: TcxGridDBColumn;
+    cxGrid1: TcxGrid;
+    Tv1: TcxGridDBTableView;
+    v1OrderNo: TcxGridDBColumn;
+    v1Column1: TcxGridDBColumn;
+    v1Column2: TcxGridDBColumn;
+    v1CustomerNoName: TcxGridDBColumn;
+    v1MPRTSpec: TcxGridDBColumn;
+    v1Column12: TcxGridDBColumn;
+    v1Column13: TcxGridDBColumn;
+    v1Column14: TcxGridDBColumn;
+    v1Column4: TcxGridDBColumn;
+    v1Column5: TcxGridDBColumn;
+    v1Column6: TcxGridDBColumn;
+    v1Column7: TcxGridDBColumn;
+    cxGrid1Level1: TcxGridLevel;
+    cxSplitter1: TcxSplitter;
+    ClientDataSet1: TClientDataSet;
+    cxGridPopupMenu1: TcxGridPopupMenu;
+    DataSource1: TDataSource;
+    v1Column3: TcxGridDBColumn;
+    v1Column8: TcxGridDBColumn;
+    v1Column9: TcxGridDBColumn;
+    procedure FormDestroy(Sender: TObject);
+    procedure FormClose(Sender: TObject; var Action: TCloseAction);
+    procedure ToolButton3Click(Sender: TObject);
+    procedure TBCloseClick(Sender: TObject);
+    procedure FormShow(Sender: TObject);
+    procedure TBRafreshClick(Sender: TObject);
+    procedure TBEditClick(Sender: TObject);
+    procedure cxTabControl1Change(Sender: TObject);
+    procedure FormCreate(Sender: TObject);
+    procedure cxPageControl1Change(Sender: TObject);
+    procedure Tv11FocusedRecordChanged(Sender: TcxCustomGridTableView;
+      APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord;
+      ANewItemRecordFocusingChanged: Boolean);
+    procedure BCOrderNoChange(Sender: TObject);
+    procedure ToolButton1Click(Sender: TObject);
+    procedure TBPrintClick(Sender: TObject);
+  private
+    { Private declarations }
+    canshu1,canshu2:string;
+    procedure InitGrid();
+    procedure InitGridMD();
+  public
+    { Public declarations }
+  end;
+
+var
+  frmBGCWEndManage: TfrmBGCWEndManage;
+
+implementation
+uses
+  U_DataLink,U_RTFun, U_ZDYHelp, U_ZDYHelpSel,U_ModuleNote,
+  U_BGZLInput,U_BGJCKMXInput,U_BGJCKMXGYSInput;
+
+{$R *.dfm}
+
+procedure TfrmBGCWEndManage.FormDestroy(Sender: TObject);
+begin
+  frmBGCWEndManage:=nil;
+end;
+
+procedure TfrmBGCWEndManage.FormClose(Sender: TObject;
+  var Action: TCloseAction);
+begin
+  Action:=caFree;
+end;
+
+procedure TfrmBGCWEndManage.ToolButton3Click(Sender: TObject);
+begin
+  try
+    frmModuleNote:=TfrmModuleNote.Create(Application);
+    with frmModuleNote do
+    begin
+      flag:='货物进出口报关明细';
+      if ShowModal=1 then
+      begin
+
+      end;
+    end;
+  finally
+    frmModuleNote.Free;
+  end;
+end;
+
+procedure TfrmBGCWEndManage.TBCloseClick(Sender: TObject);
+begin
+  WriteCxGrid('Tv1s',Tv11,'报关管理');
+  WriteCxGrid('Tv2s',Tv12,'报关管理');
+  WriteCxGrid('Tv19s',Tv19,'报关管理');
+  WriteCxGrid('Tv111s',Tv1,'报关管理');
+  Close;
+end;
+
+procedure TfrmBGCWEndManage.FormShow(Sender: TObject);
+begin
+  EndDate.DateTime:=SGetServerDate(ADOQueryTemp);
+  BegDate.Date:=EndDate.DateTime-30;
+  InitGrid();
+  ReadCxGrid('Tv1s',Tv11,'报关管理');
+  ReadCxGrid('Tv2s',Tv12,'报关管理');
+  ReadCxGrid('Tv19s',Tv19,'报关管理');
+  ReadCxGrid('Tv111s',Tv1,'报关管理');
+
+end;
+
+procedure TfrmBGCWEndManage.InitGrid();
+begin
+  try
+    ADOQueryMain.DisableControls;
+    with ADOQueryMain do
+    begin
+      Filtered:=False;
+      Close;
+      sql.Clear;
+      sql.Add('select A.*,OrderNo=A.BCOrderNo, ');
+      sql.Add(' LDFiller=(select Top 1 Filler from JYOrder_BG BG where BG.BGID=A.BGID),');
+      sql.Add(' LDFillTime=(select Top 1 FillTime from JYOrder_BG BG where BG.BGID=A.BGID),');
+      sql.Add(' HaiYunFee=(select Top 1 HaiYunFee from JYOrder_BG BG where BG.BGID=A.BGID),');
+      sql.Add(' BaoFee=(select Top 1 BaoFee from JYOrder_BG BG where BG.BGID=A.BGID),');
+      sql.Add(' ChengJiaoType=(select Top 1 ChengJiaoType from JYOrder_BG BG where BG.BGID=A.BGID),');
+      sql.Add(' FValid=(select Top 1 Valid from JYOrder_BG BG where BG.BGID=A.BGID)');
+      sql.Add(' from JYOrder_BG_CK A where 1=1 ');// where Valid=''Y''
+      if cxTabControl1.TabIndex=0 then
+      begin
+        sql.Add(' and isnull(ChkStatus,'''')=''已送审'' ');
+      end else
+      if cxTabControl1.TabIndex=1 then
+      begin
+        sql.Add(' and isnull(ChkStatus,'''')=''审核通过'' ');
+        sql.Add(' and OKFlag=0');
+      end else
+      if cxTabControl1.TabIndex=2 then
+      begin
+        sql.Add(' and isnull(ChkStatus,'''')=''审核通过'' ');
+        sql.Add(' and OKFlag=1');
+      end;
+      if cxTabControl1.TabIndex<>0 then
+      begin
+        sql.Add(' and FillTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.Date))+'''');
+        sql.Add(' and FillTime<'''+Trim(FormatDateTime('yyyy-MM-dd',EndDate.Date+1))+'''');
+      end;
+      Open;
+    end;
+    SCreateCDS20(ADOQueryMain,ClientDataSet11);
+    SInitCDSData20(ADOQueryMain,ClientDataSet11);
+  finally
+    ADOQueryMain.EnableControls;
+  end;
+end;
+
+procedure TfrmBGCWEndManage.TBRafreshClick(Sender: TObject);
+begin
+  InitGrid();
+end;
+
+procedure TfrmBGCWEndManage.TBEditClick(Sender: TObject);
+begin
+  if cxTabControl1.TabIndex=2 then Exit;
+  with ADOQueryTemp do
+  begin
+    Close;
+    sql.Clear;
+    sql.Add('select * from JYOrder_BG_CK where BCID='''+Trim(ClientDataSet11.fieldbyname('BCID').AsString)+'''');
+    sql.Add(' and OKFlag=1');
+    Open;
+  end;
+  if ADOQueryTemp.IsEmpty=False then
+  begin
+    Application.MessageBox('已确认不能再次审核！','提示',0);
+    Exit;
+  end;
+  try
+    frmBGJCKMXInput:=TfrmBGJCKMXInput.Create(Application);
+    with frmBGJCKMXInput do
+    begin
+      FBGID:=Trim(ClientDataSet11.fieldbyname('BGID').AsString);
+      FBCID:=Trim(ClientDataSet11.fieldbyname('BCID').AsString);
+      FOrderNo:='';
+      if ShowModal=1 then
+      begin
+
+      end;
+    end;
+  finally
+    frmBGJCKMXInput.Free;
+  end;
+end;
+
+procedure TfrmBGCWEndManage.cxTabControl1Change(Sender: TObject);
+begin
+  InitGrid();
+end;
+
+procedure TfrmBGCWEndManage.InitGridMD();
+var
+  fsj:string;
+begin
+  
+end;
+procedure TfrmBGCWEndManage.FormCreate(Sender: TObject);
+begin
+  canshu1:=Trim(DParameters1);
+  canshu2:=Trim(DParameters2);
+end;
+
+procedure TfrmBGCWEndManage.cxPageControl1Change(Sender: TObject);
+begin
+  InitGrid();
+end;
+
+procedure TfrmBGCWEndManage.Tv11FocusedRecordChanged(
+  Sender: TcxCustomGridTableView; APrevFocusedRecord,
+  AFocusedRecord: TcxCustomGridRecord;
+  ANewItemRecordFocusingChanged: Boolean);
+begin
+  //if ClientDataSet11.IsEmpty  then Exit;
+  with ADOQueryCmd do
+  begin
+    Close;
+    sql.Clear;
+    sql.Add('select * from JYOrder_BG_KPFee where BCID='''+Trim(ClientDataSet11.fieldbyname('BCID').AsString)+'''');
+    open;
+  end;
+  SCreateCDS20(ADOQueryCmd,ClientDataSet12);
+  SInitCDSData20(ADOQueryCmd,ClientDataSet12);
+  with ADOQueryCmd do
+  begin
+    Close;
+    sql.Clear;
+    sql.Add('select * from JYOrder_BG_CKName_Qty where BCID='''+Trim(ClientDataSet11.fieldbyname('BCID').AsString)+'''');
+    open;
+  end;
+  SCreateCDS20(ADOQueryCmd,ClientDataSet19);
+  SInitCDSData20(ADOQueryCmd,ClientDataSet19);
+  with ADOQueryCmd do
+  begin
+    Close;
+    sql.Clear;
+    sql.Add('select * from JYOrder_BG where BGID='''+Trim(ClientDataSet11.fieldbyname('BGID').AsString)+'''');
+    open;
+  end;
+  SCreateCDS20(ADOQueryCmd,ClientDataSet1);
+  SInitCDSData20(ADOQueryCmd,ClientDataSet1);
+end;
+
+procedure TfrmBGCWEndManage.BCOrderNoChange(Sender: TObject);
+begin
+  
+  if ADOQueryMain.Active=False then Exit;
+  SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2));
+  SCreateCDS20(ADOQueryMain,ClientDataSet11);
+  SInitCDSData20(ADOQueryMain,ClientDataSet11);
+end;
+
+procedure TfrmBGCWEndManage.ToolButton1Click(Sender: TObject);
+begin
+  if cxTabControl1.TabIndex<>1 then Exit;
+  if ClientDataSet11.IsEmpty then Exit;
+  with ADOQueryTemp do
+  begin
+    Close;
+    sql.Clear;
+    sql.Add('select * from JYOrder_BG_CK where BCID='''+Trim(ClientDataSet11.fieldbyname('BCID').AsString)+'''');
+    sql.Add(' and OKFlag=1');
+    Open;
+  end;
+  if ADOQueryTemp.IsEmpty=False then
+  begin
+    Application.MessageBox('已确认不能撤销审核！','提示',0);
+    Exit;
+  end;
+  if Application.MessageBox('确定要执行此操作吗？','提示',32+4)<>IDYES then Exit;
+  with ADOQueryCmd do
+  begin
+    Close;
+    sql.Clear;
+    sql.Add('UPdate JYOrder_BG_CK Set ChkStatus=''已送审'',ChkTime=Null,Chker=Null ');
+    sql.Add(' where BCID='''+Trim(ClientDataSet11.fieldbyname('BCID').AsString)+'''');
+    ExecSQL;
+  end;
+  ClientDataSet11.Delete;
+end;
+
+procedure TfrmBGCWEndManage.TBPrintClick(Sender: TObject);
+var
+   fPrintFile:string;
+   FMoney,FMQty,FKgQty,FBCID,FPrice,FMPrice,FKgPrice,FHZPrice:String;
+begin
+  FBCID:=Trim(ClientDataSet11.fieldbyname('BCID').AsString);
+  FMoney:=Tv12.DataController.Summary.FooterSummaryTexts[0];
+  with ADOQueryTemp do
+  begin
+    Close;
+    sql.Clear;
+    sql.Add('select isnull(sum(BFQty),0) KgQty from JYOrder_BG_KPFee where BCID='''+Trim(FBCID)+'''');
+    sql.Add(' and PSXH=(select Max(PSXH) from JYOrder_BG_KPFee where BCID='''+Trim(FBCID)+''')');
+    open;
+  end;
+  FKgQty:=Trim(ADOQueryTemp.fieldbyname('KgQty').AsString);
+  with ADOQueryTemp do
+  begin
+    Close;
+    sql.Clear;
+    sql.Add('select isnull(sum(BFMQty),0) MQty from JYOrder_BG_KPFee where BCID='''+Trim(FBCID)+'''');
+    sql.Add(' and PSXH=(select Max(PSXH) from JYOrder_BG_KPFee where BCID='''+Trim(FBCID)+''')');
+    open;
+  end;
+  FMQty:=Trim(ADOQueryTemp.fieldbyname('MQty').AsString);
+  if StrToFloat(FMQty)>0 then
+  begin
+    FMPrice:=FloatToStr(SSWR(StrToFloat(FMoney)*1.00/StrToFloat(FMQty)))+'/M';
+  end;
+  if StrToFloat(FKgQty)>0 then
+  begin
+    FKgPrice:=FloatToStr(SSWR(StrToFloat(FMoney)*1.00/StrToFloat(FKgQty)))+'/Kg';
+  end;
+  if Trim(FMPrice)='' then
+  begin
+    FHZPrice:=FKgPrice;
+  end else
+  begin
+    FHZPrice:=FMPrice;
+    if Trim(FKgPrice)<>'' then
+    begin
+      FHZPrice:=FHZPrice+#13+FKgPrice;
+    end;
+  end;
+  if Trim(ClientDataSet12.fieldbyname('BFUnit').AsString)='M' then
+  begin
+    if Trim(FMQty)<>'' then
+    begin
+      if StrToFloat(FMQty)>0 then
+      begin
+        FPrice:=FloatToStr(SSWR(StrToFloat(FMoney)*1.00/StrToFloat(FMQty)));
+      end;
+    end;
+  end else
+  begin
+    if Trim(FKgQty)<>'' then
+    begin
+      if StrToFloat(FKgQty)>0 then
+      begin
+        FPrice:=FloatToStr(SSWR(StrToFloat(FMoney)*1.00/StrToFloat(FKgQty)));
+      end;
+    end;
+  end;
+
+  fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\货物进出口报关明细表.rmf';
+  if FileExists(fPrintFile) then
+  begin
+    RMVariables['BCOrderNo']:=ClientDataSet11.fieldbyname('BCOrderNo').Value;
+    RMVariables['BGDate']:=ClientDataSet11.fieldbyname('BGDate').Value;
+    RMVariables['CBMoney']:=Tv12.DataController.Summary.FooterSummaryValues[0];
+    RMVariables['FMQty']:=FMQty;
+    RMVariables['FKgQty']:=FKgQty;
+    RMVariables['FPrice']:=FPrice;
+    RMVariables['FMPrice']:=FMPrice;
+    RMVariables['FKgPrice']:=FKgPrice;
+    RMVariables['FHZPrice']:=FHZPrice;
+    RMVariables['HaiYunFee']:=ClientDataSet1.fieldbyname('HaiYunFee').Value;
+    RMVariables['ComTaiTou']:=ClientDataSet1.fieldbyname('ComTaiTou').Value;
+    RMVariables['BaoFee']:=ClientDataSet1.fieldbyname('BaoFee').Value;
+    RMVariables['YunDiG']:=ClientDataSet1.fieldbyname('YunDiG').Value;
+    RMVariables['ChuKouKA']:=ClientDataSet1.fieldbyname('ChuKouKA').Value;
+    RMVariables['HuoYuanPlace']:=ClientDataSet1.fieldbyname('HuoYuanPlace').Value;
+    RMVariables['ChengJiaoType']:=ClientDataSet1.fieldbyname('ChengJiaoType').Value;
+    RMVariables['LDY']:=ClientDataSet1.fieldbyname('Filler').Value;
+
+    RM1.LoadFromFile(fPrintFile);
+    RM1.ShowReport;
+  end else
+  begin
+    Application.MessageBox(PChar('没有找'+ExtractFilePath(Application.ExeName)+'Report\货物进出口报关明细表.rmf'),'提示',0);
+  end;
+ // Panel4.Visible:=True;
+end;
+
+end.

坯布码单待检(PBMDDJ.dll)/U_BGCWManage.pas

@@ -0,0 +1,703 @@
+unit U_BGCWManage; //22
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, ADODB, DB, DBClient, cxGridCustomPopupMenu, cxGridPopupMenu,
+  StdCtrls, ComCtrls, ExtCtrls, ToolWin, cxStyles, cxCustomData,
+  cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, cxDBData,
+  cxCalendar, cxGridLevel, cxGridCustomTableView, cxGridTableView,
+  cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid, cxPC,
+  BtnEdit, cxGridBandedTableView, cxGridDBBandedTableView, cxButtonEdit,
+  cxDropDownEdit, cxCheckBox, cxSplitter, cxTextEdit, RM_Common, RM_Class,
+  RM_e_Xls, RM_Dataset, RM_System, RM_GridReport;
+
+type
+  TfrmBGCWManage = class(TForm)
+    ToolBar1: TToolBar;
+    TBRafresh: TToolButton;
+    TBAdd: TToolButton;
+    TBEdit: TToolButton;
+    TBView: TToolButton;
+    TBDel: TToolButton;
+    TBPrint: TToolButton;
+    ToolButton3: TToolButton;
+    TBClose: TToolButton;
+    Panel1: TPanel;
+    Label1: TLabel;
+    Label3: TLabel;
+    BegDate: TDateTimePicker;
+    EndDate: TDateTimePicker;
+    BCOrderNo: TEdit;
+    cxGridPopupMenu1: TcxGridPopupMenu;
+    Order_Main: TClientDataSet;
+    DataSource1: TDataSource;
+    ADOQueryTemp: TADOQuery;
+    ADOQueryMain: TADOQuery;
+    ADOQueryCmd: TADOQuery;
+    ADOQueryPrint: TADOQuery;
+    cxPageControl1: TcxPageControl;
+    cxTabSheet1: TcxTabSheet;
+    cxTabSheet2: TcxTabSheet;
+    ClientDataSet7: TClientDataSet;
+    cxGridPopupMenu7: TcxGridPopupMenu;
+    DataSource7: TDataSource;
+    Panel2: TPanel;
+    Panel7: TPanel;
+    Panel3: TPanel;
+    ClientDataSet2: TClientDataSet;
+    cxGridPopupMenu2: TcxGridPopupMenu;
+    DataSource2: TDataSource;
+    ToolButton1: TToolButton;
+    ToolButton2: TToolButton;
+    Panel4: TPanel;
+    CDS_BGName: TClientDataSet;
+    cxGridPopupMenu5: TcxGridPopupMenu;
+    DSBGName: TDataSource;
+    DataSource11: TDataSource;
+    ClientDataSet11: TClientDataSet;
+    DataSource12: TDataSource;
+    ClientDataSet12: TClientDataSet;
+    DataSource15: TDataSource;
+    ClientDataSet15: TClientDataSet;
+    DataSource16: TDataSource;
+    ClientDataSet16: TClientDataSet;
+    DataSource17: TDataSource;
+    ClientDataSet17: TClientDataSet;
+    DataSource18: TDataSource;
+    ClientDataSet18: TClientDataSet;
+    cxGridPopupMenu11: TcxGridPopupMenu;
+    cxGridPopupMenu12: TcxGridPopupMenu;
+    cxGridPopupMenu15: TcxGridPopupMenu;
+    cxGridPopupMenu16: TcxGridPopupMenu;
+    cxGridPopupMenu17: TcxGridPopupMenu;
+    cxGridPopupMenu18: TcxGridPopupMenu;
+    Panel6: TPanel;
+    cxGrid12: TcxGrid;
+    Tv12: TcxGridDBTableView;
+    vJCKMXColumn1: TcxGridDBColumn;
+    cxGridDBColumn7: TcxGridDBColumn;
+    cxGridDBColumn10: TcxGridDBColumn;
+    cxGridDBColumn11: TcxGridDBColumn;
+    cxGridDBColumn12: TcxGridDBColumn;
+    v2Column1: TcxGridDBColumn;
+    cxGridDBColumn23: TcxGridDBColumn;
+    cxGridLevel6: TcxGridLevel;
+    cxGrid19: TcxGrid;
+    Tv19: TcxGridDBTableView;
+    cxGridDBColumn43: TcxGridDBColumn;
+    Tv19Column1: TcxGridDBColumn;
+    Tv19Column2: TcxGridDBColumn;
+    cxGridLevel10: TcxGridLevel;
+    DataSource19: TDataSource;
+    ClientDataSet19: TClientDataSet;
+    cxGridPopupMenu19: TcxGridPopupMenu;
+    cxGrid1: TcxGrid;
+    Tv1: TcxGridDBTableView;
+    v1OrderNo: TcxGridDBColumn;
+    v1Column2: TcxGridDBColumn;
+    v1CustomerNoName: TcxGridDBColumn;
+    v1MPRTSpec: TcxGridDBColumn;
+    v1Column4: TcxGridDBColumn;
+    v1Column5: TcxGridDBColumn;
+    v1Column6: TcxGridDBColumn;
+    v1Column7: TcxGridDBColumn;
+    v1Column8: TcxGridDBColumn;
+    v1Column9: TcxGridDBColumn;
+    cxGridDBColumn44: TcxGridDBColumn;
+    cxGridDBColumn45: TcxGridDBColumn;
+    cxGrid1Level1: TcxGridLevel;
+    cxGrid2: TcxGrid;
+    Tv2: TcxGridDBTableView;
+    cxGridDBColumn1: TcxGridDBColumn;
+    cxGridDBColumn2: TcxGridDBColumn;
+    cxGridDBColumn3: TcxGridDBColumn;
+    cxGridDBColumn4: TcxGridDBColumn;
+    cxGridDBColumn5: TcxGridDBColumn;
+    cxGridDBColumn6: TcxGridDBColumn;
+    cxGridLevel1: TcxGridLevel;
+    cxGrid5: TcxGrid;
+    TVBGName: TcxGridDBTableView;
+    cxGridDBColumn17: TcxGridDBColumn;
+    v1Column1: TcxGridDBColumn;
+    cxGridDBColumn30: TcxGridDBColumn;
+    v1Column3: TcxGridDBColumn;
+    cxGridDBColumn31: TcxGridDBColumn;
+    cxGridDBColumn32: TcxGridDBColumn;
+    cxGridLevel4: TcxGridLevel;
+    cxTabControl1: TcxTabControl;
+    cxGrid3: TcxGrid;
+    Tv11: TcxGridDBTableView;
+    cxGridDBColumn8: TcxGridDBColumn;
+    cxGridDBColumn9: TcxGridDBColumn;
+    cxGridDBColumn18: TcxGridDBColumn;
+    cxGridDBColumn19: TcxGridDBColumn;
+    cxGridDBColumn20: TcxGridDBColumn;
+    cxGridLevel2: TcxGridLevel;
+    v11Column1: TcxGridDBColumn;
+    v11Column2: TcxGridDBColumn;
+    v11Column3: TcxGridDBColumn;
+    cxGrid4: TcxGrid;
+    TvFee: TcxGridDBTableView;
+    cxGridDBColumn13: TcxGridDBColumn;
+    cxGridDBColumn14: TcxGridDBColumn;
+    cxGridDBColumn16: TcxGridDBColumn;
+    cxGridDBColumn15: TcxGridDBColumn;
+    cxGridDBColumn21: TcxGridDBColumn;
+    cxGridDBColumn33: TcxGridDBColumn;
+    TvFeeColumn2: TcxGridDBColumn;
+    TvFeeColumn1: TcxGridDBColumn;
+    TvFeeColumn3: TcxGridDBColumn;
+    cxGridDBColumn22: TcxGridDBColumn;
+    cxGridLevel3: TcxGridLevel;
+    DS_Fee: TDataSource;
+    cxGridPopupMenu3: TcxGridPopupMenu;
+    CDS_Fee: TClientDataSet;
+    v12Column1: TcxGridDBColumn;
+    v12Column2: TcxGridDBColumn;
+    RM1: TRMGridReport;
+    RMDB12: TRMDBDataSet;
+    RMDB19: TRMDBDataSet;
+    RMXLSExport1: TRMXLSExport;
+    v1Column10: TcxGridDBColumn;
+    v1Column11: TcxGridDBColumn;
+    v1Column12: TcxGridDBColumn;
+    procedure FormDestroy(Sender: TObject);
+    procedure FormClose(Sender: TObject; var Action: TCloseAction);
+    procedure ToolButton3Click(Sender: TObject);
+    procedure TBAddClick(Sender: TObject);
+    procedure TBCloseClick(Sender: TObject);
+    procedure FormShow(Sender: TObject);
+    procedure TBRafreshClick(Sender: TObject);
+    procedure TBEditClick(Sender: TObject);
+    procedure Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView;
+      APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord;
+      ANewItemRecordFocusingChanged: Boolean);
+    procedure cxTabControl1Change(Sender: TObject);
+    procedure ToolButton1Click(Sender: TObject);
+    procedure TBDelClick(Sender: TObject);
+    procedure ToolButton2Click(Sender: TObject);
+    procedure TBViewClick(Sender: TObject);
+    procedure FormCreate(Sender: TObject);
+    procedure cxPageControl2Change(Sender: TObject);
+    procedure cxPageControl1Change(Sender: TObject);
+    procedure TV16CellClick(Sender: TcxCustomGridTableView;
+      ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
+      AShift: TShiftState; var AHandled: Boolean);
+    procedure Tv1CellClick(Sender: TcxCustomGridTableView;
+      ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
+      AShift: TShiftState; var AHandled: Boolean);
+    procedure BCOrderNoChange(Sender: TObject);
+    procedure Tv11FocusedRecordChanged(Sender: TcxCustomGridTableView;
+      APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord;
+      ANewItemRecordFocusingChanged: Boolean);
+    procedure TBPrintClick(Sender: TObject);
+  private
+    { Private declarations }
+    canshu1,canshu2:string;
+    procedure InitGrid();
+    procedure InitGridMD();
+  public
+    { Public declarations }
+  end;
+
+var
+  frmBGCWManage: TfrmBGCWManage;
+
+implementation
+uses
+  U_DataLink,U_RTFun, U_ZDYHelp, U_ZDYHelpSel,U_ModuleNote,
+  U_BGZLInput,U_BGJCKMXInput,U_BGJCKMXGYSInput;
+
+{$R *.dfm}
+
+procedure TfrmBGCWManage.FormDestroy(Sender: TObject);
+begin
+  frmBGCWManage:=nil;
+end;
+
+procedure TfrmBGCWManage.FormClose(Sender: TObject;
+  var Action: TCloseAction);
+begin
+  Action:=caFree;
+end;
+
+procedure TfrmBGCWManage.ToolButton3Click(Sender: TObject);
+begin
+  try
+    frmModuleNote:=TfrmModuleNote.Create(Application);
+    with frmModuleNote do
+    begin
+      flag:='货物进出口报关明细';
+      if ShowModal=1 then
+      begin
+
+      end;
+    end;
+  finally
+    frmModuleNote.Free;
+  end;
+end;
+
+procedure TfrmBGCWManage.TBAddClick(Sender: TObject);
+begin
+  if cxPageControl1.ActivePageIndex=0 then
+  begin
+    if Order_Main.IsEmpty then Exit;
+  end else
+  if cxPageControl1.ActivePageIndex=1 then
+  begin
+    if ClientDataSet11.IsEmpty then Exit;
+  end;
+  try
+    frmBGJCKMXGYSInput:=TfrmBGJCKMXGYSInput.Create(Application);
+    with frmBGJCKMXGYSInput do
+    begin
+      if Self.cxPageControl1.ActivePageIndex=0 then
+      begin
+        FBGID:=Trim(Order_Main.fieldbyname('BGID').AsString);
+        FBCID:='';
+      end else
+      if Self.cxPageControl1.ActivePageIndex=1 then
+      begin
+        FBGID:=Trim(ClientDataSet11.fieldbyname('BGID').AsString);
+        FBCID:='';
+      end;
+      FOrderNo:='';
+      if ShowModal=1 then
+      begin
+
+      end;
+    end;
+  finally
+    frmBGJCKMXGYSInput.Free;
+  end;
+end;
+
+procedure TfrmBGCWManage.TBCloseClick(Sender: TObject);
+begin
+  WriteCxGrid('Tv1',Tv1,'报关管理');
+  WriteCxGrid('Tv2',Tv2,'报关管理');
+
+  Close;
+end;
+
+procedure TfrmBGCWManage.FormShow(Sender: TObject);
+begin
+  EndDate.DateTime:=SGetServerDate(ADOQueryTemp);
+  BegDate.Date:=EndDate.DateTime-30;
+  cxPageControl1.ActivePageIndex:=0;
+  InitGrid();
+  ReadCxGrid('Tv1',Tv1,'报关管理');
+  ReadCxGrid('Tv2',Tv2,'报关管理');
+
+end;
+
+procedure TfrmBGCWManage.InitGrid();
+begin
+  try
+    ADOQueryMain.DisableControls;
+    if cxPageControl1.ActivePageIndex=0 then
+    begin
+      with ADOQueryMain do
+      begin
+        Filtered:=False;
+        Close;
+        sql.Clear;
+        sql.Add('select * from JYOrder_BG A');
+        sql.Add(' where isnull(ChkStatus,'''')=''审核通过'' ');
+        sql.Add(' and isnull(Valid,'''')=''Y'' ');
+       // ShowMessage(sql.Text);
+        sql.Add(' and not exists(select * from JYOrder_BG_KPFee B where B.BGID=A.BGID )');
+        Open;
+      end;
+      SCreateCDS20(ADOQueryMain,Order_Main);
+      SInitCDSData20(ADOQueryMain,Order_Main);
+    end else
+    begin
+      with ADOQueryMain do
+      begin
+        Filtered:=False;
+        Close;
+        sql.Clear;
+        sql.Add('select A.*,OrderNo=A.BCOrderNo from JYOrder_BG_CK A where 1=1');
+        if cxTabControl1.TabIndex=0 then
+        begin
+          sql.Add(' and isnull(ChkStatus,'''')='''' ');
+        end else
+        if cxTabControl1.TabIndex=1 then
+        begin
+          sql.Add(' and isnull(ChkStatus,'''')<>'''' ');
+        end;
+        if cxTabControl1.TabIndex<>0 then
+        begin
+          sql.Add(' and FillTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.Date))+'''');
+          sql.Add(' and FillTime<'''+Trim(FormatDateTime('yyyy-MM-dd',EndDate.Date+1))+'''');
+        end;
+        Open;
+      end;
+      SCreateCDS20(ADOQueryMain,ClientDataSet11);
+      SInitCDSData20(ADOQueryMain,ClientDataSet11);
+    end;
+
+  finally
+    ADOQueryMain.EnableControls;
+  end;
+end;
+
+procedure TfrmBGCWManage.TBRafreshClick(Sender: TObject);
+begin
+  InitGrid();
+end;
+
+procedure TfrmBGCWManage.TBEditClick(Sender: TObject);
+begin
+  if cxPageControl1.ActivePageIndex<>1 then Exit;
+  if ClientDataSet11.IsEmpty then Exit;
+  if cxTabControl1.TabIndex<>0 then Exit;
+  if Trim(canshu1)<>'高权限' then
+  begin
+    if Trim(DName)<>Trim(ClientDataSet11.fieldbyname('Filler').AsString) then
+    begin
+      Application.MessageBox('不能操作他人的数据!','提示',0);
+      Exit;
+    end;
+  end;
+  try
+    frmBGJCKMXGYSInput:=TfrmBGJCKMXGYSInput.Create(Application);
+    with frmBGJCKMXGYSInput do
+    begin
+      FBGID:=Trim(ClientDataSet11.fieldbyname('BGID').AsString);
+      FBCID:=Trim(ClientDataSet11.fieldbyname('BCID').AsString);
+      FOrderNo:='';
+      if ShowModal=1 then
+      begin
+
+      end;
+    end;
+  finally
+    frmBGJCKMXGYSInput.Free;
+  end;
+end;
+
+procedure TfrmBGCWManage.Tv1FocusedRecordChanged(
+  Sender: TcxCustomGridTableView; APrevFocusedRecord,
+  AFocusedRecord: TcxCustomGridRecord;
+  ANewItemRecordFocusingChanged: Boolean);
+var
+  FMainId:String;
+begin
+  
+  {with ADOQueryTemp do
+  begin
+    Close;
+    sql.Clear;
+    sql.Add('select * from (');
+    sql.Add('select PSName=Cast(A.PSXH As Varchar(20))+'' ''+Cast(A.PSName As Varchar(20)),B.FactoryNo,PSName10=A.PSName,B.FactoryName,sum(QtyFlag*PS) MDPS,Sum(QtyFlag*Qty) MDQty,B.QtyUnit');
+    sql.Add(' from JYOrder_Process A  ');
+    sql.Add(' left join JYOrder_Main_MD B on A.PSID=B.PSID');
+    sql.Add(' inner join JYOrder_Main C on A.Mainid=C.MainId');
+    sql.Add(' where C.OrderNo='''+Trim(Order_Main.fieldbyname('OrderNo').AsString)+'''');
+    sql.Add(' group by A.PSXH,A.PSName,B.FactoryName,B.FactoryNo,B.QtyUnit)AA where MDQty>0 order by PSName');
+    Open;
+  end;
+  SCreateCDS20(ADOQueryTemp,ClientDataSet7);
+  SInitCDSData20(ADOQueryTemp,ClientDataSet7); }
+end;
+
+procedure TfrmBGCWManage.cxTabControl1Change(Sender: TObject);
+begin
+  InitGrid();
+end;
+
+procedure TfrmBGCWManage.InitGridMD();
+var
+  fsj:string;
+begin
+  
+end;
+procedure TfrmBGCWManage.ToolButton1Click(Sender: TObject);
+begin
+  if ClientDataSet11.IsEmpty then Exit;
+  if cxTabControl1.TabIndex<>0 then Exit;
+  if Application.MessageBox('确定要执行此操作吗？','提示',32+4)<>IDYES then Exit;
+  with ADOQueryCmd do
+  begin
+    Close;
+    sql.Clear;
+    sql.Add('UPdate JYOrder_BG_CK Set ChkStatus=''已送审'',SSTime=getdate() ');
+    sql.Add(' where BCID='''+Trim(ClientDataSet11.fieldbyname('BCID').AsString)+'''');
+    ExecSQL;
+  end;
+  ClientDataSet11.Delete;
+end;
+
+procedure TfrmBGCWManage.TBDelClick(Sender: TObject);
+begin
+  if cxPageControl1.ActivePageIndex<>1 then Exit;
+  
+  if ClientDataSet11.IsEmpty then Exit;
+  if cxTabControl1.TabIndex<>0 then Exit;
+  if Application.MessageBox('确定要删除数据吗？','提示',32+4)<>IDYES then Exit;
+  with ADOQueryCmd do
+  begin
+    Close;
+    sql.Clear;
+    sql.Add('delete JYOrder_BG_CK where BCID='''+Trim(ClientDataSet11.fieldbyname('BCID').AsString)+'''');
+    sql.Add('delete JYOrder_BG_KPFee where BCID='''+Trim(ClientDataSet11.fieldbyname('BCID').AsString)+'''');
+    sql.Add('delete JYOrder_BG_CKName_Qty where BCID='''+Trim(ClientDataSet11.fieldbyname('BCID').AsString)+'''');
+    ExecSQL;
+  end;
+  ClientDataSet11.Delete;
+end;
+
+procedure TfrmBGCWManage.ToolButton2Click(Sender: TObject);
+begin
+  if ClientDataSet11.IsEmpty then Exit;
+  if cxTabControl1.TabIndex<>1 then Exit;
+  with ADOQueryTemp do
+  begin
+    Close;
+    sql.Clear;
+    sql.Add('select * from JYOrder_BG_CK  ');
+    sql.Add(' where BCID='''+Trim(ClientDataSet11.fieldbyname('BCID').AsString)+'''');
+    sql.Add(' and isnull(ChkStatus,'''')<>'''' ');
+    sql.Add(' and isnull(ChkStatus,'''')<>''已送审'' ');
+    Open;
+  end;
+  if ADOQueryTemp.IsEmpty=False then
+  begin
+    Application.MessageBox('已审核，不能撤销!','提示',0);
+    Exit;
+  end;
+  if Application.MessageBox('确定要执行此操作吗？','提示',32+4)<>IDYES then Exit;
+  with ADOQueryCmd do
+  begin
+    Close;
+    sql.Clear;
+    sql.Add('UPdate JYOrder_BG_CK Set ChkStatus='''',SSTime=Null ');
+    sql.Add(' where BCID='''+Trim(ClientDataSet11.fieldbyname('BCID').AsString)+'''');
+    ExecSQL;
+  end;
+  ClientDataSet11.Delete;
+end;
+
+procedure TfrmBGCWManage.TBViewClick(Sender: TObject);
+begin
+  if cxPageControl1.ActivePageIndex<>1 then Exit;
+  if ClientDataSet11.IsEmpty then Exit;
+  
+  try
+    frmBGJCKMXGYSInput:=TfrmBGJCKMXGYSInput.Create(Application);
+    with frmBGJCKMXGYSInput do
+    begin
+      FBGID:=Trim(ClientDataSet11.fieldbyname('BGID').AsString);
+      FBCID:=Trim(ClientDataSet11.fieldbyname('BCID').AsString);
+      FOrderNo:='';
+      TBSave.Visible:=False;
+      ToolBar2.Visible:=False;
+      ToolBar3.Visible:=False;
+      if ShowModal=1 then
+      begin
+
+      end;
+    end;
+  finally
+    frmBGJCKMXGYSInput.Free;
+  end;
+end;
+
+procedure TfrmBGCWManage.FormCreate(Sender: TObject);
+begin
+  canshu1:=Trim(DParameters1);
+  canshu2:=Trim(DParameters2);
+end;
+
+procedure TfrmBGCWManage.cxPageControl2Change(Sender: TObject);
+begin
+  InitGridMD();
+end;
+
+procedure TfrmBGCWManage.cxPageControl1Change(Sender: TObject);
+begin
+  InitGrid();
+end;
+
+procedure TfrmBGCWManage.TV16CellClick(Sender: TcxCustomGridTableView;
+  ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
+  AShift: TShiftState; var AHandled: Boolean);
+begin
+  if cxPageControl1.ActivePageIndex<>1 then Exit;
+  InitGridMD();
+end;
+
+procedure TfrmBGCWManage.Tv1CellClick(Sender: TcxCustomGridTableView;
+  ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
+  AShift: TShiftState; var AHandled: Boolean);
+var
+  FMainId:String;
+begin
+  if cxPageControl1.ActivePageIndex<>0 then Exit;
+  with ADOQueryTemp do
+  begin
+    Close;
+    sql.Clear;
+    sql.Add('select * from JYOrder_BG_Qty where BGID='''+Trim(Order_Main.fieldbyname('BGID').AsString)+'''');
+    Open;
+  end;
+  SCreateCDS20(ADOQueryTemp,ClientDataSet2);
+  SInitCDSData20(ADOQueryTemp,ClientDataSet2);
+  with ADOQueryTemp do
+  begin
+    Close;
+    sql.Clear;
+    sql.Add('select * from JYOrder_BG_Name where BGID='''+Trim(Order_Main.fieldbyname('BGID').AsString)+'''');
+    Open;
+  end;
+  SCreateCDS20(ADOQueryTemp,CDS_BGName);
+  SInitCDSData20(ADOQueryTemp,CDS_BGName);
+  with ADOQueryTemp do
+  begin
+    Close;
+    sql.Clear;
+    sql.Add('select * from JYOrder_Main_MD_HZ where BGID='''+Trim(Order_Main.fieldbyname('BGID').AsString)+'''');
+    Open;
+  end;
+  SCreateCDS20(ADOQueryTemp,CDS_Fee);
+  SInitCDSData20(ADOQueryTemp,CDS_Fee);
+ { with ADOQueryTemp do
+  begin
+    Close;
+    sql.Clear;
+    sql.Add('select * from JYOrder_Main where OrderNo='''+Trim(Order_Main.fieldbyname('OrderNo').AsString)+'''');
+    Open;
+  end;
+  FMainId:=Trim(ADOQueryTemp.fieldbyname('MainId').AsString);
+  with  ADOQueryTemp do
+  begin
+    Close;
+    sql.Clear;
+    sql.Add('exec P_View_MDQtyFooter :MainId');
+    Parameters.ParamByName('MainId').Value:=Trim(FMainId);
+    Open;
+  end;
+  SCreateCDS20(ADOQueryTemp,ClientDataSet7);
+  SInitCDSData20(ADOQueryTemp,ClientDataSet7); }
+end;
+
+procedure TfrmBGCWManage.BCOrderNoChange(Sender: TObject);
+begin
+  if cxPageControl1.ActivePageIndex<>1 then Exit;
+  if ADOQueryMain.Active=False then Exit;
+  SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2));
+  SCreateCDS20(ADOQueryMain,ClientDataSet11);
+  SInitCDSData20(ADOQueryMain,ClientDataSet11);
+end;
+
+procedure TfrmBGCWManage.Tv11FocusedRecordChanged(
+  Sender: TcxCustomGridTableView; APrevFocusedRecord,
+  AFocusedRecord: TcxCustomGridRecord;
+  ANewItemRecordFocusingChanged: Boolean);
+begin
+  if cxPageControl1.ActivePageIndex<>1 then Exit;
+  //if ClientDataSet11.IsEmpty  then Exit;
+  with ADOQueryCmd do
+  begin
+    Close;
+    sql.Clear;
+    sql.Add('select * from JYOrder_BG_KPFee where BCID='''+Trim(ClientDataSet11.fieldbyname('BCID').AsString)+'''');
+    open;
+  end;
+  SCreateCDS20(ADOQueryCmd,ClientDataSet12);
+  SInitCDSData20(ADOQueryCmd,ClientDataSet12);
+  with ADOQueryCmd do
+  begin
+    Close;
+    sql.Clear;
+    sql.Add('select * from JYOrder_BG_CKName_Qty where BCID='''+Trim(ClientDataSet11.fieldbyname('BCID').AsString)+'''');
+    open;
+  end;
+  SCreateCDS20(ADOQueryCmd,ClientDataSet19);
+  SInitCDSData20(ADOQueryCmd,ClientDataSet19);
+end;
+
+procedure TfrmBGCWManage.TBPrintClick(Sender: TObject);
+var
+   fPrintFile:string;
+   FMoney,FMQty,FKgQty,FBCID,FPrice:String;
+begin
+  if cxPageControl1.ActivePageIndex<>1 then Exit;
+  if ClientDataSet11.IsEmpty then Exit;
+  FBCID:=Trim(ClientDataSet11.fieldbyname('BCID').AsString);
+  FMoney:=Tv12.DataController.Summary.FooterSummaryTexts[0];
+  with ADOQueryTemp do
+  begin
+    Close;
+    sql.Clear;
+    sql.Add('select isnull(sum(BFQty),0) KgQty from JYOrder_BG_KPFee where BCID='''+Trim(FBCID)+'''');
+    sql.Add(' and PSXH=(select Max(PSXH) from JYOrder_BG_KPFee where BCID='''+Trim(FBCID)+''')');
+    open;
+  end;
+  FKgQty:=Trim(ADOQueryTemp.fieldbyname('KgQty').AsString);
+  with ADOQueryTemp do
+  begin
+    Close;
+    sql.Clear;
+    sql.Add('select isnull(sum(BFMQty),0) MQty from JYOrder_BG_KPFee where BCID='''+Trim(FBCID)+'''');
+    sql.Add(' and PSXH=(select Max(PSXH) from JYOrder_BG_KPFee where BCID='''+Trim(FBCID)+''')');
+    open;
+  end;
+  FMQty:=Trim(ADOQueryTemp.fieldbyname('MQty').AsString);
+  if Trim(ClientDataSet12.fieldbyname('BFUnit').AsString)='M' then
+  begin
+    if Trim(FMQty)<>'' then
+    begin
+      if StrToFloat(FMQty)>0 then
+      begin
+        FPrice:=FloatToStr(SSWR(StrToFloat(FMoney)*1.00/StrToFloat(FMQty)));
+      end;
+    end;
+  end else
+  begin
+    if Trim(FKgQty)<>'' then
+    begin
+      if StrToFloat(FKgQty)>0 then
+      begin
+        FPrice:=FloatToStr(SSWR(StrToFloat(FMoney)*1.00/StrToFloat(FKgQty)));
+      end;
+    end;
+  end;
+  with ADOQueryTemp do
+  begin
+    Close;
+    sql.Clear;
+    sql.Add('select * from JYorder_BG where BGID='''+Trim(ClientDataSet11.fieldbyname('BGID').AsString)+'''');
+    Open;
+  end;
+  fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\货物进出口报关明细表Fee.rmf';
+  if FileExists(fPrintFile) then
+  begin
+    RMVariables['BCOrderNo']:=ClientDataSet11.fieldbyname('BCOrderNo').Value;
+    RMVariables['BGDate']:=ClientDataSet11.fieldbyname('BGDate').Value;
+    RMVariables['CBMoney']:=Tv12.DataController.Summary.FooterSummaryValues[0];
+    RMVariables['FMQty']:=FMQty;
+    RMVariables['FKgQty']:=FKgQty;
+    RMVariables['FPrice']:=FPrice;
+    RMVariables['ComTaiTou']:=ADOQueryTemp.fieldbyname('ComTaiTou').Value;
+    {RMVariables['HaiYunFee']:=ADOQueryTemp.fieldbyname('HaiYunFee').Value;
+    RMVariables['BaoFee']:=ADOQueryTemp.fieldbyname('BaoFee').Value;
+    RMVariables['YunDiG']:=ADOQueryTemp.fieldbyname('YunDiG').Value;
+    RMVariables['ChuKouKA']:=ADOQueryTemp.fieldbyname('ChuKouKA').Value;
+    RMVariables['HuoYuanPlace']:=ADOQueryTemp.fieldbyname('HuoYuanPlace').Value;
+    RMVariables['ChengJiaoType']:=ADOQueryTemp.fieldbyname('ChengJiaoType').Value; }
+    RM1.LoadFromFile(fPrintFile);
+    RM1.ShowReport;
+  end else
+  begin
+    Application.MessageBox(PChar('没有找'+ExtractFilePath(Application.ExeName)+'Report\货物进出口报关明细表.rmf'),'提示',0);
+  end;
+ // Panel4.Visible:=True;
+end;
+
+end.

坯布码单待检(PBMDDJ.dll)/U_BGFeeChkList.pas

@@ -0,0 +1,819 @@
+unit U_BGFeeChkList;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, StdCtrls, ExtCtrls, ComCtrls, ToolWin, cxStyles, cxCustomData,
+  cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, ADODB,
+  cxGridCustomPopupMenu, cxGridPopupMenu, cxGridLevel, cxClasses,
+  cxControls, cxGridCustomView, cxGridCustomTableView, cxGridTableView,
+  cxGridDBTableView, cxGrid, DBClient, cxCheckBox, cxCalendar, cxSplitter,
+  RM_Dataset, RM_System, RM_Common, RM_Class, RM_GridReport, RM_e_Xls,
+  Menus, cxPC, cxButtonEdit, cxTextEdit, cxDropDownEdit;
+
+type
+  TfrmBGFeeChkList = class(TForm)
+    ToolBar1: TToolBar;
+    TBRafresh: TToolButton;
+    TBFind: TToolButton;
+    TBEdit: TToolButton;
+    TBPrint: TToolButton;
+    TBClose: TToolButton;
+    Tv1: TcxGridDBTableView;
+    cxGrid1Level1: TcxGridLevel;
+    cxGrid1: TcxGrid;
+    cxGridPopupMenu1: TcxGridPopupMenu;
+    ADOQueryCmd: TADOQuery;
+    ADOQueryMain: TADOQuery;
+    ADOQueryTemp: TADOQuery;
+    DataSource1: TDataSource;
+    TBExport: TToolButton;
+    V1SFKDate: TcxGridDBColumn;
+    v1ConNo: TcxGridDBColumn;
+    v1PRTColor: TcxGridDBColumn;
+    v1MPRTSpec: TcxGridDBColumn;
+    Order_Main: TClientDataSet;
+    RM1: TRMGridReport;
+    RMDBDataSet1: TRMDBDataSet;
+    RMXLSExport1: TRMXLSExport;
+    v1CustomerNoName: TcxGridDBColumn;
+    v1MPRTCodeName: TcxGridDBColumn;
+    v1MPRTMF: TcxGridDBColumn;
+    PopupMenu1: TPopupMenu;
+    N2: TMenuItem;
+    v1PRTPrice: TcxGridDBColumn;
+    ToolButton1: TToolButton;
+    v1Column1: TcxGridDBColumn;
+    ADOQueryPrint: TADOQuery;
+    CDS_Print: TClientDataSet;
+    v1Column4: TcxGridDBColumn;
+    Panel1: TPanel;
+    Label4: TLabel;
+    Label9: TLabel;
+    Label10: TLabel;
+    BegDate: TDateTimePicker;
+    EndDate: TDateTimePicker;
+    OrderNoHZ: TEdit;
+    BMNo: TEdit;
+    ChuanGS: TEdit;
+    V1TuiDanChkDate: TcxGridDBColumn;
+    cxTabControl1: TcxTabControl;
+    v1Column3: TcxGridDBColumn;
+    v1Column5: TcxGridDBColumn;
+    v1Column6: TcxGridDBColumn;
+    v1Column7: TcxGridDBColumn;
+    v1Column8: TcxGridDBColumn;
+    v1Column9: TcxGridDBColumn;
+    v1Column10: TcxGridDBColumn;
+    v1Column11: TcxGridDBColumn;
+    cxSplitter1: TcxSplitter;
+    Label2: TLabel;
+    ChuanNo: TEdit;
+    Label3: TLabel;
+    HDName: TEdit;
+    Label5: TLabel;
+    FeeName: TEdit;
+    ComboBox1: TComboBox;
+    DataSource2: TDataSource;
+    ClientDataSet2: TClientDataSet;
+    v1Column12: TcxGridDBColumn;
+    v1Column13: TcxGridDBColumn;
+    v1Column14: TcxGridDBColumn;
+    Panel2: TPanel;
+    cxGrid2: TcxGrid;
+    Tv2: TcxGridDBTableView;
+    cxGridDBColumn1: TcxGridDBColumn;
+    cxGridDBColumn2: TcxGridDBColumn;
+    cxGridDBColumn3: TcxGridDBColumn;
+    cxGridDBColumn4: TcxGridDBColumn;
+    cxGridDBColumn5: TcxGridDBColumn;
+    cxGridDBColumn6: TcxGridDBColumn;
+    cxGridDBColumn7: TcxGridDBColumn;
+    cxGridDBColumn8: TcxGridDBColumn;
+    cxGridDBColumn9: TcxGridDBColumn;
+    cxGridDBColumn10: TcxGridDBColumn;
+    cxGridDBColumn11: TcxGridDBColumn;
+    cxGridDBColumn12: TcxGridDBColumn;
+    cxGridLevel1: TcxGridLevel;
+    cxSplitter2: TcxSplitter;
+    cxGrid3: TcxGrid;
+    Tv3: TcxGridDBTableView;
+    v2Column1: TcxGridDBColumn;
+    cxGridDBColumn13: TcxGridDBColumn;
+    cxGridDBColumn14: TcxGridDBColumn;
+    cxGridDBColumn15: TcxGridDBColumn;
+    cxGridDBColumn16: TcxGridDBColumn;
+    cxGridDBColumn17: TcxGridDBColumn;
+    cxGridDBColumn18: TcxGridDBColumn;
+    cxGridDBColumn19: TcxGridDBColumn;
+    cxGridDBColumn20: TcxGridDBColumn;
+    cxGridLevel2: TcxGridLevel;
+    DataSource3: TDataSource;
+    ClientDataSet3: TClientDataSet;
+    cxGridPopupMenu2: TcxGridPopupMenu;
+    cxGridPopupMenu3: TcxGridPopupMenu;
+    v1Column15: TcxGridDBColumn;
+    v1Column16: TcxGridDBColumn;
+    v1Column17: TcxGridDBColumn;
+    ToolButton2: TToolButton;
+    Panel3: TPanel;
+    Panel4: TPanel;
+    SFKDate: TDateTimePicker;
+    TuiDanChkDate: TDateTimePicker;
+    Button1: TButton;
+    Button2: TButton;
+    procedure FormDestroy(Sender: TObject);
+    procedure FormClose(Sender: TObject; var Action: TCloseAction);
+    procedure FormCreate(Sender: TObject);
+    procedure TBCloseClick(Sender: TObject);
+    procedure TBFindClick(Sender: TObject);
+    procedure TBExportClick(Sender: TObject);
+    procedure TBPrintClick(Sender: TObject);
+    procedure TBRafreshClick(Sender: TObject);
+    procedure FormShow(Sender: TObject);
+    procedure Tv1StylesGetContentStyle(Sender: TcxCustomGridTableView;
+      ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem;
+      out AStyle: TcxStyle);
+    procedure v1DeliveryDateCustomDrawCell(Sender: TcxCustomGridTableView;
+      ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo;
+      var ADone: Boolean);
+    procedure ToolButton1Click(Sender: TObject);
+    procedure OrderNoHZChange(Sender: TObject);
+    procedure BMNoKeyPress(Sender: TObject; var Key: Char);
+    procedure cxTabControl1Change(Sender: TObject);
+    procedure Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView;
+      APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord;
+      ANewItemRecordFocusingChanged: Boolean);
+    procedure OrderNoHZKeyPress(Sender: TObject; var Key: Char);
+    procedure TBEditClick(Sender: TObject);
+    procedure Button1Click(Sender: TObject);
+    procedure ToolButton2Click(Sender: TObject);
+    procedure Button2Click(Sender: TObject);
+  private
+    DQdate:TDateTime;
+    procedure InitGrid();
+    procedure InitForm();
+    function  DelData():Boolean;
+    { Private declarations }
+  public
+    FFInt,FCloth:Integer;
+
+    { Public declarations }
+  end;
+
+var
+  frmBGFeeChkList: TfrmBGFeeChkList;
+
+implementation
+uses
+  U_DataLink,U_BGFeeInPut,U_RTFun;
+
+{$R *.dfm}
+
+procedure TfrmBGFeeChkList.FormDestroy(Sender: TObject);
+begin
+  frmBGFeeChkList:=nil;
+end;
+
+procedure TfrmBGFeeChkList.FormClose(Sender: TObject;
+  var Action: TCloseAction);
+begin
+  Action:=caFree;
+end;
+
+procedure TfrmBGFeeChkList.FormCreate(Sender: TObject);
+begin
+  cxgrid1.Align:=alClient;
+  //BegDate.DateTime:=SGetServerDateTime(ADOQueryTemp)-7;
+  //EndDate.DateTime:=SGetServerDateTime(ADOQueryTemp);
+  DQdate:=SGetServerDate(ADOQueryTemp);
+end;
+
+procedure TfrmBGFeeChkList.TBCloseClick(Sender: TObject);
+begin
+  Close;
+  WriteCxGrid('报关费用列表1',Tv1,'报关费用');
+  WriteCxGrid('报关费用列表2',Tv2,'报关费用');
+  WriteCxGrid('报关费用列表3',Tv3,'报关费用');
+end;
+
+procedure TfrmBGFeeChkList.InitGrid();
+begin
+  try
+    ADOQueryMain.DisableControls;
+    with ADOQueryMain do
+    begin
+      Filtered:=False;
+      Close;
+      sql.Clear;
+      if cxTabControl1.TabIndex=0 then
+      begin
+        sql.Add('select A.*,B.* ');
+        sql.Add(',OrderNoHZ=dbo.F_Get_Order_SubStr(A.BMID,''BGOrderNo'')');
+        sql.Add(' from BGFee_Main A  ');
+        sql.Add(' inner join BGFee_HuoDai B on A.BMID=B.BMID');
+        sql.Add(' where 1=1');
+        sql.Add(' and isnull(B.SFKDate,'''')='''' ');
+      end  else
+      if cxTabControl1.TabIndex=1 then
+      begin
+        sql.Add('select A.*,B.* ');
+        sql.Add(',OrderNoHZ=dbo.F_Get_Order_SubStr(A.BMID,''BGOrderNo'')');
+        sql.Add(' from BGFee_Main A  ');
+        sql.Add(' inner join BGFee_HuoDai B on A.BMID=B.BMID');
+        sql.Add(' where 1=1');
+        sql.Add(' and isnull(B.SFKDate,'''')<>'''' ');
+      end  else
+      if cxTabControl1.TabIndex=2 then
+      begin
+        sql.Add('select A.*,B.* ');
+        sql.Add(',OrderNoHZ=dbo.F_Get_Order_SubStr(A.BMID,''BGOrderNo'')');
+        sql.Add(' from BGFee_Main A  ');
+        sql.Add(' left join BGFee_HuoDai B on A.BMID=B.BMID');
+        sql.Add(' where 1=1');
+        sql.Add(' and isnull(TuiDanChkDate,'''')='''' ');
+      end   else
+      if cxTabControl1.TabIndex=3 then
+      begin
+        sql.Add('select A.*,B.* ');
+        sql.Add(',OrderNoHZ=dbo.F_Get_Order_SubStr(A.BMID,''BGOrderNo'')');
+        sql.Add(' from BGFee_Main A  ');
+        sql.Add(' left join BGFee_HuoDai B on A.BMID=B.BMID');
+        sql.Add(' where 1=1');
+        sql.Add(' and isnull(TuiDanChkDate,'''')<>''''');
+      end else
+      begin
+        sql.Add('select A.*,B.* ');
+        sql.Add(',OrderNoHZ=dbo.F_Get_Order_SubStr(A.BMID,''BGOrderNo'')');
+        sql.Add(' from BGFee_Main A  ');
+        sql.Add(' left join BGFee_HuoDai B on A.BMID=B.BMID');
+        sql.Add(' where 1=1');
+      end;
+
+      if (cxTabControl1.TabIndex=1) or  (cxTabControl1.TabIndex=3) or (cxTabControl1.TabIndex=4) then
+      begin
+        if Trim(ComboBox1.Text)='按登记日期' then
+        begin
+          SQL.Add('and  A.FillTIme>='''+FormatDateTime('yyyy-MM-dd',BegDate.DateTime)+'''');
+          SQL.Add('and  A.FillTIme<'''+FormatDateTime('yyyy-MM-dd',enddate.DateTime+1)+'''');
+        end else
+        if Trim(ComboBox1.Text)='按装箱日期' then
+        begin
+          SQL.Add('and  A.ZhuangXiangDate>='''+FormatDateTime('yyyy-MM-dd',BegDate.DateTime)+'''');
+          SQL.Add('and  A.ZhuangXiangDate<'''+FormatDateTime('yyyy-MM-dd',enddate.DateTime+1)+'''');
+        end  else
+        if Trim(ComboBox1.Text)='按船期' then
+        begin
+          SQL.Add('and  A.ChuanDate>='''+FormatDateTime('yyyy-MM-dd',BegDate.DateTime)+'''');
+          SQL.Add('and  A.ChuanDate<'''+FormatDateTime('yyyy-MM-dd',enddate.DateTime+1)+'''');
+        end else
+        if Trim(ComboBox1.Text)='按预录单日期' then
+        begin
+          SQL.Add('and  A.YuLuDanDate>='''+FormatDateTime('yyyy-MM-dd',BegDate.DateTime)+'''');
+          SQL.Add('and  A.YuLuDanDate<'''+FormatDateTime('yyyy-MM-dd',enddate.DateTime+1)+'''');
+        end else
+        if Trim(ComboBox1.Text)='按提单日期' then
+        begin
+          SQL.Add('and  A.TiDanDate>='''+FormatDateTime('yyyy-MM-dd',BegDate.DateTime)+'''');
+          SQL.Add('and  A.TiDanDate<'''+FormatDateTime('yyyy-MM-dd',enddate.DateTime+1)+'''');
+        end else
+        if Trim(ComboBox1.Text)='按预退单日期' then
+        begin
+          SQL.Add('and  A.YuTuiDanDate>='''+FormatDateTime('yyyy-MM-dd',BegDate.DateTime)+'''');
+          SQL.Add('and  A.YuTuiDanDate<'''+FormatDateTime('yyyy-MM-dd',enddate.DateTime+1)+'''');
+        end else
+        if Trim(ComboBox1.Text)='按交退单核日期' then
+        begin
+          SQL.Add('and  A.JiaoTuiDanDate>='''+FormatDateTime('yyyy-MM-dd',BegDate.DateTime)+'''');
+          SQL.Add('and  A.JiaoTuiDanDate<'''+FormatDateTime('yyyy-MM-dd',enddate.DateTime+1)+'''');
+        end else
+        if Trim(ComboBox1.Text)='按退单(核)日期' then
+        begin
+          SQL.Add('and  A.TuiDanChkDate>='''+FormatDateTime('yyyy-MM-dd',BegDate.DateTime)+'''');
+          SQL.Add('and  A.TuiDanChkDate<'''+FormatDateTime('yyyy-MM-dd',enddate.DateTime+1)+'''');
+        end else
+        if Trim(ComboBox1.Text)='按付款日期' then
+        begin
+          SQL.Add('and  B.SFKDate>='''+FormatDateTime('yyyy-MM-dd',BegDate.DateTime)+'''');
+          SQL.Add('and  B.SFKDate<'''+FormatDateTime('yyyy-MM-dd',enddate.DateTime+1)+'''');
+        end;
+      end;
+      SQL.Add(' and isnull(A.SChkTime,'''')<>'''' ');
+      Open;
+    end;
+    SCreateCDS20(ADOQueryMain,Order_Main);
+    SInitCDSData20(ADOQueryMain,Order_Main);
+  finally
+    ADOQueryMain.EnableControls;
+  end;
+end;
+
+
+procedure TfrmBGFeeChkList.InitForm();
+begin
+  ReadCxGrid('报关费用列表1',Tv1,'报关费用');
+  ReadCxGrid('报关费用列表2',Tv2,'报关费用');
+  ReadCxGrid('报关费用列表3',Tv3,'报关费用');
+  BegDate.DateTime:=SGetServerDate10(ADOQueryTemp)-7;
+  EndDate.DateTime:=SGetServerDate10(ADOQueryTemp);
+  SFKDate.DateTime:=EndDate.DateTime;
+  TuiDanChkDate.DateTime:=EndDate.DateTime;
+  InitGrid();
+end;
+
+procedure TfrmBGFeeChkList.TBFindClick(Sender: TObject);
+begin
+  if ADOQueryMain.Active=False then Exit;
+  SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2));
+  SCreateCDS20(ADOQueryMain,Order_Main);
+  SInitCDSData20(ADOQueryMain,Order_Main);
+end;
+
+function TfrmBGFeeChkList.DelData():Boolean;
+begin
+  try
+    Result:=false;
+    ADOQueryCmd.Connection.BeginTrans;
+    with ADOQueryCmd do
+    begin
+      Close;
+      sql.Clear;
+      sql.Add('delete BGFee_Main where BMId='''+Trim(Order_Main.fieldbyname('BMId').AsString)+'''');
+      ExecSQL;
+    end;
+    with ADOQueryCmd do
+    begin
+      Close;
+      sql.Clear;
+      sql.Add('delete BGFee_Sub where BMId='''+Trim(Order_Main.fieldbyname('BMId').AsString)+'''');
+      ExecSQL;
+    end;
+    ADOQueryCmd.Connection.CommitTrans;
+    Result:=True;
+  except
+    ADOQueryCmd.Connection.RollbackTrans;
+    Result:=False;
+    Application.MessageBox('数据删除异常！','提示',0);
+  end;
+end;
+
+procedure TfrmBGFeeChkList.TBExportClick(Sender: TObject);
+begin
+  //if ADOQueryMain.IsEmpty then Exit;
+  //SelExportData(Tv1,ADOQueryMain,'生产指示单列表');
+  if Order_Main.IsEmpty then Exit;
+  TcxGridToExcel('订单合同',cxGrid1);
+end;
+
+procedure TfrmBGFeeChkList.TBPrintClick(Sender: TObject);
+var
+   fPrintFile:string;
+   EngMoney:string;
+begin
+  if Order_Main.IsEmpty then Exit;
+  fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\英文合同.rmf' ;
+  with ADOQueryPrint do
+  begin
+    Close;
+    sql.Clear;
+    sql.Add('select A.*,B.*,ConMoney=B.PRTOrderQty*B.PRTPrice,COL=''COL:''  ');
+    sql.Add(' from JYOrderCon_Main A inner join JYOrderCon_Sub B on A.MainId=B.MainId ');
+    sql.Add(' where A.MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+'''');
+    Open;
+  end;
+  SCreateCDS20(ADOQueryPrint,CDS_Print);
+  SInitCDSData20(ADOQueryPrint,CDS_Print);
+  //
+  with ADOQueryTemp do
+  begin
+    close;
+    sql.Clear;
+    sql.Add('select TolConMoney=Sum(PRTOrderQty*PRTPrice)');
+    sql.Add(' from JYOrderCon_Main A inner join JYOrderCon_Sub B on A.MainId=B.MainId ');
+    sql.Add(' where A.MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+'''');
+    Open;
+  end;
+  EngMoney:=num2cengnum(ADOQueryTemp.fieldbyname('TolConMoney').AsString);
+  EngMoney:=UpperCase(EngMoney);
+  if FileExists(fPrintFile) then
+  begin
+    RMVariables['EngMoney']:=EngMoney;
+    //RMVariables['enddate']:=enddate.DateTime;
+    //RMVariables['printtime']:=Now;
+    //RMVariables['printer']:=Trim(gUserName);
+    RM1.LoadFromFile(fPrintFile);
+    RM1.ShowReport;
+  end else
+  begin
+    Application.MessageBox(PChar('没有找'+ExtractFilePath(Application.ExeName)+'Report\英文合同.rmf'),'提示',0);
+  end;
+end;
+
+procedure TfrmBGFeeChkList.TBRafreshClick(Sender: TObject);
+begin
+  InitGrid();
+end;
+
+procedure TfrmBGFeeChkList.FormShow(Sender: TObject);
+begin
+  InitForm();
+end;
+
+procedure TfrmBGFeeChkList.Tv1StylesGetContentStyle(
+  Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord;
+  AItem: TcxCustomGridTableItem; out AStyle: TcxStyle);
+var
+  id,id10:Integer;
+begin
+  {try
+    if Tv1.GroupedItemCount=0 then
+    begin
+      Id:=Tv1.GetColumnByFieldName('DeliveryDate').Index-tv1.GroupedItemCount;
+      Id10:=Tv1.GetColumnByFieldName('SubStatus').Index-tv1.GroupedItemCount;
+      if Trim(VarToStr(ARecord.Values[id]))='' then Exit;
+      if Id<0 then Exit;
+      if ARecord.Values[id10]='完成' then exit;
+      if (ARecord.Values[id]-DQdate)>=4 then Exit;
+      if ((ARecord.Values[id]-DQdate)>=0) and ((ARecord.Values[id]-DQdate)<4) then
+        AStyle:=DataLink_.QHuangSe
+      else
+      if ARecord.Values[id]-DQdate<0 then
+      begin
+        AStyle:=DataLink_OrderManage.FenHongS;
+      end;
+    end else
+    begin
+
+    end;
+  except
+  end; }
+end;
+
+procedure TfrmBGFeeChkList.v1DeliveryDateCustomDrawCell(
+  Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;
+  AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
+begin
+ { Id:=TV1.GetColumnByFieldName('DeliveryDate').Index;//;-TV1.GroupedItemCount;
+  Id10:=TV1.GetColumnByFieldName('SubStatus').Index;
+  if Id<0 then Exit;
+  if AViewInfo.GridRecord.Values[Id10]='完成' then Exit;
+  if AViewInfo.GridRecord.Values[Id]-SGetServerDate(ADOQueryTemp)>=4 then Exit;
+  if ((AViewInfo.GridRecord.Values[id]-SGetServerDate10(ADOQueryTemp))>=0) and ((AViewInfo.GridRecord.Values[id]-SGetServerDate(ADOQueryTemp))<4) then
+    ACanvas.Brush.Color:=clYellow
+  else
+  if (AViewInfo.GridRecord.Values[id])-(SGetServerDate10(ADOQueryTemp)<0) then
+  begin
+    ACanvas.Brush.Color:=clRed;
+  end;
+  begin
+    ACanvas.Brush.Color:=clRed;
+  end else
+  if AViewInfo.GridRecord.Values[Id]='Purple' then
+  begin
+    ACanvas.Brush.Color:=clPurple;
+  end else
+  if AViewInfo.GridRecord.Values[Id]='Olive' then
+  begin
+    ACanvas.Brush.Color:=clOlive;
+  end else
+  if AViewInfo.GridRecord.Values[Id]='Teal' then
+  begin
+    ACanvas.Brush.Color:=clTeal;
+  end else
+  if AViewInfo.GridRecord.Values[Id]='Background' then
+  begin
+    ACanvas.Brush.Color:=clBackground;
+  end;   }
+end;
+
+procedure TfrmBGFeeChkList.ToolButton1Click(Sender: TObject);
+begin
+  if Order_Main.IsEmpty then Exit;
+  try
+    frmBGFeeInPut:=TfrmBGFeeInPut.Create(Application);
+    with frmBGFeeInPut do
+    begin
+      PState:=1;
+      FMainId:=Trim(Self.Order_Main.fieldbyname('BMId').AsString);
+      ToolBar2.Visible:=False;
+      TBSave.Visible:=False;
+      ScrollBox1.Enabled:=False;
+      Tv1.OptionsSelection.CellSelect:=False;
+      if ShowModal=1 then
+      begin
+
+      end;
+    end;
+  finally
+    frmBGFeeInPut.Free;
+  end;
+end;
+
+procedure TfrmBGFeeChkList.OrderNoHZChange(Sender: TObject);
+begin
+  if ADOQueryMain.Active=False then Exit;
+  SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2));
+  SCreateCDS20(ADOQueryMain,Order_Main);
+  SInitCDSData20(ADOQueryMain,Order_Main);
+end;
+
+procedure TfrmBGFeeChkList.BMNoKeyPress(Sender: TObject; var Key: Char);
+begin
+  if Key=#13 then
+  begin
+    if Length(BMNo.Text)<3 then Exit;
+    try
+      ADOQueryMain.DisableControls;
+      with ADOQueryMain do
+      begin
+        Filtered:=False;
+        Close;
+        SQL.Clear;
+        sql.Add('select A.*,B.* ');
+        sql.Add(',OrderNoHZ=dbo.F_Get_Order_SubStr(A.BMID,''BGOrderNo'')');
+        sql.Add(' from BGFee_Main A  ');
+        sql.Add(' left join BGFee_HuoDai B on A.BMID=B.BMID');
+        SQL.Add('where  1=1');
+        {if Trim(DParameters1)<>'高权限'  then
+        begin
+          sql.Add(' and A.Filler in(select UserName from  SY_User where DPID in');
+          sql.Add(' (select DPID from SY_User where UserName='''+Trim(DName)+'''))');
+        end; }
+        sql.Add(' and BMNO like '''+'%'+Trim(BMNO.Text)+'%'+'''');
+        SQL.Add(' and isnull(A.SChkTime,'''')<>'''' ');
+        if cxTabControl1.TabIndex=0 then
+        begin
+          sql.Add(' and isnull(B.SFKDate,'''')='''' ');
+        end  else
+        if cxTabControl1.TabIndex=1 then
+        begin
+          sql.Add(' and isnull(B.SFKDate,'''')<>'''' ');
+        end  else
+        if cxTabControl1.TabIndex=2 then
+        begin
+          sql.Add(' and isnull(TuiDanChkDate,'''')='''' ');
+        end   else
+        if cxTabControl1.TabIndex=3 then
+        begin
+          sql.Add(' and isnull(TuiDanChkDate,'''')<>''''');
+        end;
+        Open;
+      end;
+      SCreateCDS20(ADOQueryMain,Order_Main);
+      SInitCDSData20(ADOQueryMain,Order_Main);
+    finally
+      ADOQueryMain.EnableControls;
+    end;
+  end;
+end;
+
+procedure TfrmBGFeeChkList.cxTabControl1Change(Sender: TObject);
+begin
+  InitGrid();
+end;
+
+procedure TfrmBGFeeChkList.Tv1FocusedRecordChanged(
+  Sender: TcxCustomGridTableView; APrevFocusedRecord,
+  AFocusedRecord: TcxCustomGridRecord;
+  ANewItemRecordFocusingChanged: Boolean);
+begin
+  with ADOQueryTemp do
+  begin
+    Close;
+    sql.Clear;
+    sql.Add('select * from BGFee_Sub where BMID='''+Trim(Order_Main.fieldbyname('BMID').AsString)+'''');
+    Open;
+  end;
+  SCreateCDS20(ADOQueryTemp,ClientDataSet2);
+  SInitCDSData20(ADOQueryTemp,ClientDataSet2);
+  with ADOQueryTemp do
+  begin
+    Close;
+    sql.Clear;
+    sql.Add('select * from BGFee_HuoDai where BMID='''+Trim(Order_Main.fieldbyname('BMID').AsString)+'''');
+    Open;
+  end;
+  SCreateCDS20(ADOQueryTemp,ClientDataSet3);
+  SInitCDSData20(ADOQueryTemp,ClientDataSet3);
+end;
+
+procedure TfrmBGFeeChkList.OrderNoHZKeyPress(Sender: TObject; var Key: Char);
+begin
+  if Key=#13 then
+  begin
+    if Length(OrderNoHZ.Text)<3 then Exit;
+    try
+      ADOQueryMain.DisableControls;
+      with ADOQueryMain do
+      begin
+        Filtered:=False;
+        Close;
+        SQL.Clear;
+        sql.Add('select A.*,B.* ');
+        sql.Add(',OrderNoHZ=dbo.F_Get_Order_SubStr(A.BMID,''BGOrderNo'')');
+        sql.Add(' from BGFee_Main A  ');
+        sql.Add(' left join BGFee_HuoDai B on A.BMID=B.BMID');
+        SQL.Add('where  1=1');
+        {if Trim(DParameters1)<>'高权限'  then
+        begin
+          sql.Add(' and A.Filler in(select UserName from  SY_User where DPID in');
+          sql.Add(' (select DPID from SY_User where UserName='''+Trim(DName)+'''))');
+        end; }
+        sql.Add(' and dbo.F_Get_Order_SubStr(A.BMID,''BGOrderNo'') like '''+'%'+Trim(OrderNoHZ.Text)+'%'+'''');
+        SQL.Add(' and isnull(A.SChkTime,'''')<>'''' ');
+        if cxTabControl1.TabIndex=0 then
+        begin
+          sql.Add(' and isnull(B.SFKDate,'''')='''' ');
+        end  else
+        if cxTabControl1.TabIndex=1 then
+        begin
+          sql.Add(' and isnull(B.SFKDate,'''')<>'''' ');
+        end  else
+        if cxTabControl1.TabIndex=2 then
+        begin
+          sql.Add(' and isnull(TuiDanChkDate,'''')='''' ');
+        end   else
+        if cxTabControl1.TabIndex=3 then
+        begin
+          sql.Add(' and isnull(TuiDanChkDate,'''')<>''''');
+        end;
+        Open;
+      end;
+      SCreateCDS20(ADOQueryMain,Order_Main);
+      SInitCDSData20(ADOQueryMain,Order_Main);
+    finally
+      ADOQueryMain.EnableControls;
+    end;
+  end;
+end;
+
+procedure TfrmBGFeeChkList.TBEditClick(Sender: TObject);
+begin
+  if Order_Main.IsEmpty then exit;
+  if cxTabControl1.TabIndex<>0 then Exit;
+  if Order_Main.Locate('SSel',True,[])=False then
+  begin
+    Application.MessageBox('没有选择数据!','提示',0);
+    Exit;
+  end;
+  if Application.MessageBox('确定要执行此操作吗？','提示',32+4)<>IDYES then Exit;
+  try
+    ADOQueryCmd.Connection.BeginTrans;
+    Order_Main.DisableControls;
+    with Order_Main do
+    begin
+      First;
+      while Locate('SSel',True,[]) do
+      begin
+        with ADOQueryCmd do
+        begin
+          Close;
+          sql.Clear;
+          sql.Add('select * from BGFee_HuoDai where BHID='''+Trim(Order_Main.fieldbyname('BHID').AsString)+'''');
+          Open;
+        end;
+        with ADOQueryCmd do
+        begin
+          Edit;
+          FieldByName('SFKDate').Value:=Trim(FormatDateTime('yyyy-MM-dd',SFKDate.Date));
+          Post;
+        end;
+        Order_Main.Delete;
+      end;
+    end;
+    Order_Main.EnableControls;
+    ADOQueryCmd.Connection.CommitTrans;
+  except
+    ADOQueryCmd.Connection.RollbackTrans;
+    Application.MessageBox('更新付款日期异常!','提示',0);
+  end;
+end;
+
+procedure TfrmBGFeeChkList.Button1Click(Sender: TObject);
+begin
+  if Order_Main.IsEmpty then exit;
+  if cxTabControl1.TabIndex<>1 then Exit;
+  if Order_Main.Locate('SSel',True,[])=False then
+  begin
+    Application.MessageBox('没有选择数据!','提示',0);
+    Exit;
+  end;
+  if Application.MessageBox('确定要执行此操作吗？','提示',32+4)<>IDYES then Exit;
+  try
+    ADOQueryCmd.Connection.BeginTrans;
+    Order_Main.DisableControls;
+    with Order_Main do
+    begin
+      First;
+      while Locate('SSel',True,[]) do
+      begin
+        with ADOQueryCmd do
+        begin
+          Close;
+          sql.Clear;
+          sql.Add('select * from BGFee_HuoDai where BHID='''+Trim(Order_Main.fieldbyname('BHID').AsString)+'''');
+          Open;
+        end;
+        with ADOQueryCmd do
+        begin
+          Edit;
+          FieldByName('SFKDate').Value:=NUll;
+          Post;
+        end;
+        Order_Main.Delete;
+      end;
+    end;
+    Order_Main.EnableControls;
+    ADOQueryCmd.Connection.CommitTrans;
+  except
+    ADOQueryCmd.Connection.RollbackTrans;
+    Application.MessageBox('撤销付款日期异常!','提示',0);
+  end;
+end;
+
+procedure TfrmBGFeeChkList.ToolButton2Click(Sender: TObject);
+begin
+  if Order_Main.IsEmpty then exit;
+  if cxTabControl1.TabIndex<>2 then Exit;
+  if Order_Main.Locate('SSel',True,[])=False then
+  begin
+    Application.MessageBox('没有选择数据!','提示',0);
+    Exit;
+  end;
+  if Application.MessageBox('确定要执行此操作吗？','提示',32+4)<>IDYES then Exit;
+  try
+    ADOQueryCmd.Connection.BeginTrans;
+    Order_Main.DisableControls;
+    with Order_Main do
+    begin
+      First;
+      while Locate('SSel',True,[]) do
+      begin
+        with ADOQueryCmd do
+        begin
+          Close;
+          sql.Clear;
+          sql.Add('select * from BGFee_Main where BMID='''+Trim(Order_Main.fieldbyname('BMID').AsString)+'''');
+          Open;
+        end;
+        with ADOQueryCmd do
+        begin
+          Edit;
+          FieldByName('TuiDanChkDate').Value:=Trim(FormatDateTime('yyyy-MM-dd',TuiDanChkDate.Date));
+          Post;
+        end;
+        Order_Main.Delete;
+      end;
+    end;
+    Order_Main.EnableControls;
+    ADOQueryCmd.Connection.CommitTrans;
+  except
+    ADOQueryCmd.Connection.RollbackTrans;
+    Application.MessageBox('更新付款日期异常!','提示',0);
+  end;
+end;
+
+procedure TfrmBGFeeChkList.Button2Click(Sender: TObject);
+begin
+  if Order_Main.IsEmpty then exit;
+  if cxTabControl1.TabIndex<>3 then Exit;
+  if Order_Main.Locate('SSel',True,[])=False then
+  begin
+    Application.MessageBox('没有选择数据!','提示',0);
+    Exit;
+  end;
+  if Application.MessageBox('确定要执行此操作吗？','提示',32+4)<>IDYES then Exit;
+  try
+    ADOQueryCmd.Connection.BeginTrans;
+    Order_Main.DisableControls;
+    with Order_Main do
+    begin
+      First;
+      while Locate('SSel',True,[]) do
+      begin
+        with ADOQueryCmd do
+        begin
+          Close;
+          sql.Clear;
+          sql.Add('select * from BGFee_Main where BMID='''+Trim(Order_Main.fieldbyname('BMID').AsString)+'''');
+          Open;
+        end;
+        with ADOQueryCmd do
+        begin
+          Edit;
+          FieldByName('TuiDanChkDate').Value:=NUll;
+          Post;
+        end;
+        Order_Main.Delete;
+      end;
+    end;
+    Order_Main.EnableControls;
+    ADOQueryCmd.Connection.CommitTrans;
+  except
+    ADOQueryCmd.Connection.RollbackTrans;
+    Application.MessageBox('更新付款日期异常!','提示',0);
+  end;
+end;
+
+end.

坯布码单待检(PBMDDJ.dll)/U_BGFeeInPut.dfm

@@ -0,0 +1,900 @@
+object frmBGFeeInPut: TfrmBGFeeInPut
+  Left = 138
+  Top = 45
+  Width = 1222
+  Height = 656
+  Align = alClient
+  Caption = #25253#20851#35013#31665#20449#24687#24405#20837
+  Color = clBtnFace
+  Font.Charset = GB2312_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -12
+  Font.Name = #23435#20307
+  Font.Style = []
+  OldCreateOrder = False
+  Position = poScreenCenter
+  OnShow = FormShow
+  PixelsPerInch = 96
+  TextHeight = 12
+  object ToolBar1: TToolBar
+    Left = 0
+    Top = 0
+    Width = 1214
+    Height = 29
+    ButtonHeight = 30
+    ButtonWidth = 59
+    Caption = 'ToolBar1'
+    Color = clBtnFace
+    EdgeInner = esNone
+    EdgeOuter = esNone
+    Flat = True
+    Font.Charset = GB2312_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -12
+    Font.Name = #23435#20307
+    Font.Style = []
+    Images = DataLink_CYZZ.ThreeImgList
+    List = True
+    ParentColor = False
+    ParentFont = False
+    ShowCaptions = True
+    TabOrder = 0
+    object TBSave: TToolButton
+      Left = 0
+      Top = 0
+      AutoSize = True
+      Caption = #20445#23384
+      ImageIndex = 5
+      OnClick = TBSaveClick
+    end
+    object TBClose: TToolButton
+      Left = 63
+      Top = 0
+      AutoSize = True
+      Caption = #20851#38381
+      ImageIndex = 21
+      OnClick = TBCloseClick
+    end
+  end
+  object ScrollBox11: TScrollBox
+    Left = 0
+    Top = 29
+    Width = 1214
+    Height = 268
+    Align = alTop
+    BevelInner = bvNone
+    BevelOuter = bvNone
+    Color = clBtnFace
+    Ctl3D = False
+    ParentColor = False
+    ParentCtl3D = False
+    TabOrder = 1
+    object ScrollBox1: TScrollBox
+      Left = 0
+      Top = 0
+      Width = 537
+      Height = 266
+      Align = alLeft
+      TabOrder = 0
+      object Label7: TLabel
+        Left = 17
+        Top = 240
+        Width = 66
+        Height = 12
+        Caption = #25552' '#21333' '#21495#65306
+        Font.Charset = GB2312_CHARSET
+        Font.Color = clWindowText
+        Font.Height = -12
+        Font.Name = #23435#20307
+        Font.Style = [fsBold]
+        ParentFont = False
+      end
+      object Label3: TLabel
+        Left = 288
+        Top = 98
+        Width = 67
+        Height = 12
+        Caption = #25552'    '#21333#65306
+        Font.Charset = GB2312_CHARSET
+        Font.Color = clWindowText
+        Font.Height = -12
+        Font.Name = #23435#20307
+        Font.Style = [fsBold]
+        ParentFont = False
+      end
+      object Label10: TLabel
+        Left = 17
+        Top = 212
+        Width = 65
+        Height = 12
+        Caption = #25552#21333#36816#21495#65306
+        Font.Charset = GB2312_CHARSET
+        Font.Color = clWindowText
+        Font.Height = -12
+        Font.Name = #23435#20307
+        Font.Style = [fsBold]
+        ParentFont = False
+      end
+      object Label1: TLabel
+        Left = 288
+        Top = 70
+        Width = 66
+        Height = 12
+        Caption = #39044' '#24405' '#21333#65306
+        Font.Charset = GB2312_CHARSET
+        Font.Color = clWindowText
+        Font.Height = -12
+        Font.Name = #23435#20307
+        Font.Style = [fsBold]
+        ParentFont = False
+      end
+      object Label2: TLabel
+        Left = 17
+        Top = 13
+        Width = 65
+        Height = 12
+        Caption = #20986#21475#21475#23736#65306
+        Font.Charset = GB2312_CHARSET
+        Font.Color = clWindowText
+        Font.Height = -12
+        Font.Name = #23435#20307
+        Font.Style = [fsBold]
+        ParentFont = False
+      end
+      object Label4: TLabel
+        Left = 17
+        Top = 70
+        Width = 66
+        Height = 12
+        Caption = #30446' '#30340' '#28207#65306
+        Font.Charset = GB2312_CHARSET
+        Font.Color = clWindowText
+        Font.Height = -12
+        Font.Name = #23435#20307
+        Font.Style = [fsBold]
+        ParentFont = False
+      end
+      object Label5: TLabel
+        Left = 288
+        Top = 13
+        Width = 65
+        Height = 12
+        Caption = #35013#31665#26085#26399#65306
+        Font.Charset = GB2312_CHARSET
+        Font.Color = clWindowText
+        Font.Height = -12
+        Font.Name = #23435#20307
+        Font.Style = [fsBold]
+        ParentFont = False
+      end
+      object Label6: TLabel
+        Left = 288
+        Top = 41
+        Width = 67
+        Height = 12
+        Caption = #33337'    '#26399#65306
+        Font.Charset = GB2312_CHARSET
+        Font.Color = clWindowText
+        Font.Height = -12
+        Font.Name = #23435#20307
+        Font.Style = [fsBold]
+        ParentFont = False
+      end
+      object Label8: TLabel
+        Left = 17
+        Top = 183
+        Width = 66
+        Height = 12
+        Caption = #33337' '#20844' '#21496#65306
+        Font.Charset = GB2312_CHARSET
+        Font.Color = clWindowText
+        Font.Height = -12
+        Font.Name = #23435#20307
+        Font.Style = [fsBold]
+        ParentFont = False
+      end
+      object Label9: TLabel
+        Left = 17
+        Top = 155
+        Width = 65
+        Height = 12
+        Caption = #33337#21517#33322#27425#65306
+        Font.Charset = GB2312_CHARSET
+        Font.Color = clWindowText
+        Font.Height = -12
+        Font.Name = #23435#20307
+        Font.Style = [fsBold]
+        ParentFont = False
+      end
+      object Label12: TLabel
+        Left = 17
+        Top = 98
+        Width = 67
+        Height = 12
+        Caption = #31665'    '#22411#65306
+        Font.Charset = GB2312_CHARSET
+        Font.Color = clWindowText
+        Font.Height = -12
+        Font.Name = #23435#20307
+        Font.Style = [fsBold]
+        ParentFont = False
+      end
+      object Label15: TLabel
+        Left = 288
+        Top = 180
+        Width = 67
+        Height = 12
+        Caption = #22791'    '#27880#65306
+        Font.Charset = GB2312_CHARSET
+        Font.Color = clWindowText
+        Font.Height = -12
+        Font.Name = #23435#20307
+        Font.Style = [fsBold]
+        ParentFont = False
+      end
+      object Label16: TLabel
+        Left = 17
+        Top = 41
+        Width = 66
+        Height = 12
+        Caption = #36816' '#25269' '#22269#65306
+        Font.Charset = GB2312_CHARSET
+        Font.Color = clWindowText
+        Font.Height = -12
+        Font.Name = #23435#20307
+        Font.Style = [fsBold]
+        ParentFont = False
+      end
+      object Label17: TLabel
+        Left = 17
+        Top = 126
+        Width = 65
+        Height = 12
+        Caption = #25104#20132#26041#24335#65306
+        Font.Charset = GB2312_CHARSET
+        Font.Color = clWindowText
+        Font.Height = -12
+        Font.Name = #23435#20307
+        Font.Style = [fsBold]
+        ParentFont = False
+      end
+      object Label11: TLabel
+        Left = 287
+        Top = 126
+        Width = 66
+        Height = 12
+        Caption = #39044' '#36864' '#21333#65306
+        Font.Charset = GB2312_CHARSET
+        Font.Color = clWindowText
+        Font.Height = -12
+        Font.Name = #23435#20307
+        Font.Style = [fsBold]
+        ParentFont = False
+      end
+      object Label19: TLabel
+        Left = 288
+        Top = 155
+        Width = 65
+        Height = 12
+        Caption = #20132#36864#21333#26680#65306
+        Font.Charset = GB2312_CHARSET
+        Font.Color = clWindowText
+        Font.Height = -12
+        Font.Name = #23435#20307
+        Font.Style = [fsBold]
+        ParentFont = False
+      end
+      object TiDanDate: TDateTimePicker
+        Tag = 2
+        Left = 425
+        Top = 94
+        Width = 99
+        Height = 20
+        BevelInner = bvNone
+        Date = 40916.000000000000000000
+        Format = 'yyyy-MM-dd'
+        Time = 40916.000000000000000000
+        ShowCheckbox = True
+        TabOrder = 0
+      end
+      object TiDanNo: TEdit
+        Tag = 2
+        Left = 78
+        Top = 237
+        Width = 180
+        Height = 18
+        CharCase = ecUpperCase
+        TabOrder = 1
+      end
+      object BMNo: TEdit
+        Tag = 2
+        Left = 78
+        Top = 209
+        Width = 180
+        Height = 18
+        CharCase = ecUpperCase
+        TabOrder = 2
+      end
+      object YuLuDanDate: TDateTimePicker
+        Tag = 2
+        Left = 348
+        Top = 66
+        Width = 176
+        Height = 20
+        BevelInner = bvNone
+        Date = 40916.000000000000000000
+        Format = 'yyyy-MM-dd'
+        Time = 40916.000000000000000000
+        ShowCheckbox = True
+        TabOrder = 3
+      end
+      object FromPlace: TBtnEditC
+        Tag = 2
+        Left = 78
+        Top = 9
+        Width = 180
+        Height = 20
+        Hint = 'FromPlace/'#20986#21475#21475#23736
+        TabOrder = 4
+        OnBtnUpClick = FromPlaceBtnUpClick
+        OnBtnDnClick = CustomerNoNameBtnDnClick
+      end
+      object ToPlace: TBtnEditC
+        Tag = 2
+        Left = 78
+        Top = 66
+        Width = 180
+        Height = 20
+        Hint = 'ToPlace/'#30446#30340#28207
+        TabOrder = 5
+        OnBtnUpClick = FromPlaceBtnUpClick
+        OnBtnDnClick = CustomerNoNameBtnDnClick
+      end
+      object ZhuangXiangDate: TDateTimePicker
+        Tag = 2
+        Left = 348
+        Top = 9
+        Width = 176
+        Height = 20
+        BevelInner = bvNone
+        Date = 40916.000000000000000000
+        Format = 'yyyy-MM-dd'
+        Time = 40916.000000000000000000
+        ShowCheckbox = True
+        TabOrder = 6
+      end
+      object ChuanDate: TDateTimePicker
+        Tag = 2
+        Left = 348
+        Top = 37
+        Width = 176
+        Height = 20
+        BevelInner = bvNone
+        Date = 40916.000000000000000000
+        Format = 'yyyy-MM-dd'
+        Time = 40916.000000000000000000
+        ShowCheckbox = True
+        TabOrder = 7
+      end
+      object ChuanGS: TBtnEditC
+        Tag = 2
+        Left = 78
+        Top = 179
+        Width = 180
+        Height = 20
+        Hint = 'ChuanGS/'#33337#20844#21496
+        TabOrder = 8
+        OnBtnUpClick = FromPlaceBtnUpClick
+        OnBtnDnClick = CustomerNoNameBtnDnClick
+      end
+      object ChuanNo: TEdit
+        Tag = 2
+        Left = 78
+        Top = 152
+        Width = 180
+        Height = 18
+        TabOrder = 9
+      end
+      object XiangType: TBtnEditC
+        Tag = 2
+        Left = 78
+        Top = 94
+        Width = 180
+        Height = 20
+        Hint = 'XiangType/'#31665#22411
+        TabOrder = 10
+        OnBtnUpClick = FromPlaceBtnUpClick
+        OnBtnDnClick = CustomerNoNameBtnDnClick
+      end
+      object YunDiG: TBtnEditC
+        Tag = 2
+        Left = 78
+        Top = 37
+        Width = 180
+        Height = 20
+        Hint = 'YunDiG/'#36816#25269#22269
+        TabOrder = 11
+        OnBtnUpClick = FromPlaceBtnUpClick
+        OnBtnDnClick = CustomerNoNameBtnDnClick
+      end
+      object ChengJiaoType: TBtnEditC
+        Tag = 2
+        Left = 78
+        Top = 122
+        Width = 180
+        Height = 20
+        Hint = 'ChengJiaoType/'#25104#20132#26041#24335
+        TabOrder = 12
+        OnBtnUpClick = FromPlaceBtnUpClick
+        OnBtnDnClick = CustomerNoNameBtnDnClick
+      end
+      object YuTuiDanDate: TDateTimePicker
+        Tag = 2
+        Left = 348
+        Top = 122
+        Width = 176
+        Height = 20
+        BevelInner = bvNone
+        Date = 40916.000000000000000000
+        Format = 'yyyy-MM-dd'
+        Time = 40916.000000000000000000
+        ShowCheckbox = True
+        TabOrder = 13
+      end
+      object JiaoTuiDanDate: TDateTimePicker
+        Tag = 2
+        Left = 348
+        Top = 151
+        Width = 176
+        Height = 20
+        BevelInner = bvNone
+        Date = 40916.000000000000000000
+        Format = 'yyyy-MM-dd'
+        Time = 40916.000000000000000000
+        ShowCheckbox = True
+        TabOrder = 14
+      end
+      object TiDanType: TComboBox
+        Tag = 2
+        Left = 348
+        Top = 94
+        Width = 77
+        Height = 20
+        ItemHeight = 12
+        ItemIndex = 0
+        TabOrder = 15
+        Text = #30005#25918
+        Items.Strings = (
+          #30005#25918
+          #23492#27491#26412)
+      end
+      object Note: TRichEdit
+        Tag = 2
+        Left = 287
+        Top = 194
+        Width = 240
+        Height = 62
+        ScrollBars = ssVertical
+        TabOrder = 16
+      end
+    end
+    object Panel1: TPanel
+      Left = 537
+      Top = 0
+      Width = 675
+      Height = 266
+      Align = alClient
+      BevelInner = bvRaised
+      BevelOuter = bvLowered
+      TabOrder = 1
+      object ToolBar3: TToolBar
+        Left = 2
+        Top = 2
+        Width = 671
+        Height = 31
+        ButtonHeight = 30
+        ButtonWidth = 59
+        Caption = 'ToolBar1'
+        Color = clBtnFace
+        EdgeInner = esNone
+        EdgeOuter = esNone
+        Flat = True
+        Font.Charset = GB2312_CHARSET
+        Font.Color = clWindowText
+        Font.Height = -12
+        Font.Name = #23435#20307
+        Font.Style = []
+        Images = DataLink_CYZZ.ThreeImgList
+        List = True
+        ParentColor = False
+        ParentFont = False
+        ShowCaptions = True
+        TabOrder = 0
+        object ToolButton3: TToolButton
+          Left = 0
+          Top = 0
+          AutoSize = True
+          Caption = #22686#34892
+          ImageIndex = 12
+          OnClick = ToolButton3Click
+        end
+        object ToolButton4: TToolButton
+          Left = 63
+          Top = 0
+          AutoSize = True
+          Caption = #21024#34892
+          ImageIndex = 13
+        end
+      end
+      object cxGrid2: TcxGrid
+        Left = 2
+        Top = 33
+        Width = 671
+        Height = 231
+        Align = alClient
+        TabOrder = 1
+        object Tv2: TcxGridDBTableView
+          NavigatorButtons.ConfirmDelete = False
+          DataController.DataSource = DataSource2
+          DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
+          DataController.Summary.DefaultGroupSummaryItems = <
+            item
+              Format = '0'
+              Position = spFooter
+            end
+            item
+              Format = '0'
+              Position = spFooter
+              Column = cxGridDBColumn7
+            end
+            item
+              Format = '0'
+              Position = spFooter
+              Column = cxGridDBColumn5
+            end>
+          DataController.Summary.FooterSummaryItems = <
+            item
+              Kind = skSum
+            end
+            item
+              Kind = skSum
+              Column = cxGridDBColumn3
+            end>
+          DataController.Summary.SummaryGroups = <>
+          OptionsBehavior.FocusCellOnTab = True
+          OptionsBehavior.GoToNextCellOnEnter = True
+          OptionsBehavior.FocusCellOnCycle = True
+          OptionsCustomize.ColumnFiltering = False
+          OptionsView.Footer = True
+          OptionsView.GroupByBox = False
+          Styles.Inactive = DataLink_CYZZ.SHuangSe
+          Styles.IncSearch = DataLink_CYZZ.SHuangSe
+          Styles.Selection = DataLink_CYZZ.SHuangSe
+          Styles.Header = DataLink_CYZZ.Default
+          object v2Column1: TcxGridDBColumn
+            Caption = #26085#26399
+            DataBinding.FieldName = 'BHDate'
+            HeaderAlignmentHorz = taCenter
+            Width = 65
+          end
+          object cxGridDBColumn1: TcxGridDBColumn
+            Caption = #36135#20195#21517#31216
+            DataBinding.FieldName = 'HDName'
+            PropertiesClassName = 'TcxButtonEditProperties'
+            Properties.Buttons = <
+              item
+                Default = True
+                Kind = bkEllipsis
+              end>
+            Properties.ReadOnly = True
+            Properties.OnButtonClick = cxGridDBColumn1PropertiesButtonClick
+            HeaderAlignmentHorz = taCenter
+            Width = 114
+          end
+          object cxGridDBColumn2: TcxGridDBColumn
+            Caption = #36153#29992#21517#31216
+            DataBinding.FieldName = 'FeeName'
+            PropertiesClassName = 'TcxButtonEditProperties'
+            Properties.Buttons = <
+              item
+                Default = True
+                Kind = bkEllipsis
+              end>
+            Properties.ReadOnly = True
+            Properties.OnButtonClick = cxGridDBColumn2PropertiesButtonClick
+            HeaderAlignmentHorz = taCenter
+            Width = 62
+          end
+          object cxGridDBColumn3: TcxGridDBColumn
+            Caption = #36153#29992#37329#39069
+            DataBinding.FieldName = 'FeeMoney'
+            PropertiesClassName = 'TcxTextEditProperties'
+            HeaderAlignmentHorz = taCenter
+            Width = 68
+          end
+          object cxGridDBColumn4: TcxGridDBColumn
+            Caption = #32852#31995#20154
+            DataBinding.FieldName = 'HDLXPerson'
+            PropertiesClassName = 'TcxTextEditProperties'
+            HeaderAlignmentHorz = taCenter
+            Width = 56
+          end
+          object cxGridDBColumn5: TcxGridDBColumn
+            Caption = #32852#31995#26041#24335
+            DataBinding.FieldName = 'HDLXFS'
+            PropertiesClassName = 'TcxTextEditProperties'
+            HeaderAlignmentHorz = taCenter
+            Options.Sorting = False
+            Styles.Header = DataLink_CYZZ.handBlack
+            Width = 60
+          end
+          object cxGridDBColumn6: TcxGridDBColumn
+            Caption = #25910#27454#38134#34892
+            DataBinding.FieldName = 'HDBankName'
+            PropertiesClassName = 'TcxTextEditProperties'
+            HeaderAlignmentHorz = taCenter
+            Width = 83
+          end
+          object cxGridDBColumn7: TcxGridDBColumn
+            Caption = #25910#27454#36134#21495
+            DataBinding.FieldName = 'HDBankNo'
+            PropertiesClassName = 'TcxTextEditProperties'
+            HeaderAlignmentHorz = taCenter
+            Styles.Header = DataLink_CYZZ.Default
+            Width = 78
+          end
+          object cxGridDBColumn8: TcxGridDBColumn
+            Caption = #22791#27880
+            DataBinding.FieldName = 'HDNote'
+            PropertiesClassName = 'TcxTextEditProperties'
+            HeaderAlignmentHorz = taCenter
+            Width = 69
+          end
+        end
+        object cxGridLevel1: TcxGridLevel
+          GridView = Tv2
+        end
+      end
+    end
+  end
+  object ToolBar2: TToolBar
+    Left = 0
+    Top = 297
+    Width = 1214
+    Height = 29
+    ButtonHeight = 30
+    ButtonWidth = 59
+    Caption = 'ToolBar1'
+    Color = clBtnFace
+    EdgeInner = esNone
+    EdgeOuter = esNone
+    Flat = True
+    Font.Charset = GB2312_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -12
+    Font.Name = #23435#20307
+    Font.Style = []
+    Images = DataLink_CYZZ.ThreeImgList
+    List = True
+    ParentColor = False
+    ParentFont = False
+    ShowCaptions = True
+    TabOrder = 2
+    object ToolButton1: TToolButton
+      Left = 0
+      Top = 0
+      AutoSize = True
+      Caption = #22686#34892
+      ImageIndex = 12
+      OnClick = ToolButton1Click
+    end
+    object ToolButton2: TToolButton
+      Left = 63
+      Top = 0
+      AutoSize = True
+      Caption = #21024#34892
+      ImageIndex = 13
+      OnClick = ToolButton2Click
+    end
+  end
+  object cxGrid1: TcxGrid
+    Left = 0
+    Top = 326
+    Width = 1214
+    Height = 299
+    Align = alClient
+    TabOrder = 3
+    object Tv1: TcxGridDBTableView
+      NavigatorButtons.ConfirmDelete = False
+      DataController.DataSource = DataSource1
+      DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
+      DataController.Summary.DefaultGroupSummaryItems = <
+        item
+          Format = '0'
+          Position = spFooter
+        end
+        item
+          Format = '0'
+          Position = spFooter
+          Column = v1PRTOrderQty
+        end
+        item
+          Format = '0'
+          Position = spFooter
+          Column = v1PRTPrice
+        end>
+      DataController.Summary.FooterSummaryItems = <
+        item
+          Kind = skSum
+          Column = v1PRTOrderQty
+        end
+        item
+          Kind = skSum
+        end>
+      DataController.Summary.SummaryGroups = <>
+      OptionsBehavior.FocusCellOnTab = True
+      OptionsBehavior.GoToNextCellOnEnter = True
+      OptionsBehavior.FocusCellOnCycle = True
+      OptionsCustomize.ColumnFiltering = False
+      OptionsView.Footer = True
+      OptionsView.GroupByBox = False
+      Styles.Inactive = DataLink_CYZZ.SHuangSe
+      Styles.IncSearch = DataLink_CYZZ.SHuangSe
+      Styles.Selection = DataLink_CYZZ.SHuangSe
+      Styles.Header = DataLink_CYZZ.Default
+      object v1Column4: TcxGridDBColumn
+        Caption = #35746#21333#21495
+        DataBinding.FieldName = 'OrderNo'
+        PropertiesClassName = 'TcxButtonEditProperties'
+        Properties.Buttons = <
+          item
+            Default = True
+            Kind = bkEllipsis
+          end>
+        Properties.ReadOnly = True
+        Properties.OnButtonClick = v1Column4PropertiesButtonClick
+        HeaderAlignmentHorz = taCenter
+        Width = 126
+      end
+      object v1Column6: TcxGridDBColumn
+        Caption = 'HS'#32534#30721
+        DataBinding.FieldName = 'HSCode'
+        PropertiesClassName = 'TcxComboBoxProperties'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 101
+      end
+      object v1Column5: TcxGridDBColumn
+        Caption = #20013#25991#21697#21517
+        DataBinding.FieldName = 'BGName'
+        PropertiesClassName = 'TcxComboBoxProperties'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 130
+      end
+      object v1Column7: TcxGridDBColumn
+        Caption = #25104#20998
+        DataBinding.FieldName = 'BGCF'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 83
+      end
+      object v1PRTPrice: TcxGridDBColumn
+        Caption = #21367#25968
+        DataBinding.FieldName = 'PS'
+        PropertiesClassName = 'TcxTextEditProperties'
+        HeaderAlignmentHorz = taCenter
+        Options.Sorting = False
+        Styles.Header = DataLink_CYZZ.handBlack
+        Width = 61
+      end
+      object v1Column11: TcxGridDBColumn
+        Caption = #35013#31665#20928#37325'Kg'
+        DataBinding.FieldName = 'JZQty'
+        HeaderAlignmentHorz = taCenter
+        Width = 83
+      end
+      object v1PRTOrderQty: TcxGridDBColumn
+        Caption = #35013#31665#27611#37325'Kg'
+        DataBinding.FieldName = 'MZQty'
+        PropertiesClassName = 'TcxTextEditProperties'
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_CYZZ.Default
+        Width = 89
+      end
+      object v1Column2: TcxGridDBColumn
+        Caption = #25253#20851#37329#39069'$'
+        DataBinding.FieldName = 'BGMoney'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 69
+      end
+      object v1Column8: TcxGridDBColumn
+        Caption = #31665#21495
+        DataBinding.FieldName = 'XiangNo'
+        HeaderAlignmentHorz = taCenter
+        Width = 71
+      end
+      object v1Column1: TcxGridDBColumn
+        Caption = #23553#21495
+        DataBinding.FieldName = 'FengNo'
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_CYZZ.Default
+        Width = 63
+      end
+      object v1Column9: TcxGridDBColumn
+        Caption = #35013#31665#31859#25968
+        DataBinding.FieldName = 'MiQty'
+        HeaderAlignmentHorz = taCenter
+        Width = 61
+      end
+      object v1Column10: TcxGridDBColumn
+        Caption = #35013#31665#30721#25968
+        DataBinding.FieldName = 'MaQty'
+        HeaderAlignmentHorz = taCenter
+        Width = 60
+      end
+      object v1Column3: TcxGridDBColumn
+        Caption = #22791#27880
+        DataBinding.FieldName = 'SNote'
+        Width = 78
+      end
+    end
+    object cxGrid1Level1: TcxGridLevel
+      GridView = Tv1
+    end
+  end
+  object ADOTemp: TADOQuery
+    Connection = DataLink_CYZZ.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 342
+    Top = 10
+  end
+  object ADOCmd: TADOQuery
+    Connection = DataLink_CYZZ.ADOLink
+    Parameters = <>
+    Left = 308
+    Top = 8
+  end
+  object DataSource1: TDataSource
+    DataSet = Order_Sub
+    Left = 203
+    Top = 355
+  end
+  object Order_Sub: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 174
+    Top = 353
+  end
+  object ADOQuery1: TADOQuery
+    Connection = DataLink_CYZZ.ADOLink
+    Parameters = <>
+    Left = 276
+    Top = 6
+  end
+  object DataSource2: TDataSource
+    DataSet = ClientDataSet2
+    Left = 868
+    Top = 132
+  end
+  object ClientDataSet2: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 837
+    Top = 130
+  end
+  object cxGridPopupMenu1: TcxGridPopupMenu
+    Grid = cxGrid2
+    PopupMenus = <>
+    Left = 806
+    Top = 130
+  end
+  object cxGridPopupMenu2: TcxGridPopupMenu
+    Grid = cxGrid1
+    PopupMenus = <>
+    Left = 145
+    Top = 355
+  end
+end

坯布码单待检(PBMDDJ.dll)/U_BGFeeInPut.pas

@@ -0,0 +1,565 @@
+unit U_BGFeeInPut;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData,
+  cxDataStorage, cxEdit, DB, cxDBData, cxGridLevel, cxGridCustomTableView,
+  cxGridTableView, cxGridDBTableView, cxClasses, cxControls,
+  cxGridCustomView, cxGrid, cxMemo, cxRichEdit, ComCtrls, cxContainer,
+  cxTextEdit, cxMaskEdit, cxButtonEdit, StdCtrls, ToolWin, DBClient, ADODB,
+  ExtCtrls, BtnEdit, cxCalendar,StrUtils, cxDropDownEdit,
+  cxGridCustomPopupMenu, cxGridPopupMenu;
+
+type
+  TfrmBGFeeInPut = class(TForm)
+    ToolBar1: TToolBar;
+    TBSave: TToolButton;
+    TBClose: TToolButton;
+    ScrollBox11: TScrollBox;
+    ToolBar2: TToolBar;
+    ToolButton1: TToolButton;
+    ToolButton2: TToolButton;
+    cxGrid1: TcxGrid;
+    Tv1: TcxGridDBTableView;
+    cxGrid1Level1: TcxGridLevel;
+    v1PRTPrice: TcxGridDBColumn;
+    ADOTemp: TADOQuery;
+    ADOCmd: TADOQuery;
+    DataSource1: TDataSource;
+    Order_Sub: TClientDataSet;
+    ADOQuery1: TADOQuery;
+    v1PRTOrderQty: TcxGridDBColumn;
+    v1Column1: TcxGridDBColumn;
+    v1Column2: TcxGridDBColumn;
+    v1Column3: TcxGridDBColumn;
+    v1Column4: TcxGridDBColumn;
+    v1Column5: TcxGridDBColumn;
+    v1Column6: TcxGridDBColumn;
+    v1Column7: TcxGridDBColumn;
+    v1Column8: TcxGridDBColumn;
+    v1Column9: TcxGridDBColumn;
+    v1Column10: TcxGridDBColumn;
+    v1Column11: TcxGridDBColumn;
+    ScrollBox1: TScrollBox;
+    TiDanDate: TDateTimePicker;
+    Label7: TLabel;
+    TiDanNo: TEdit;
+    Label3: TLabel;
+    Label10: TLabel;
+    Label1: TLabel;
+    Label2: TLabel;
+    Label4: TLabel;
+    Label5: TLabel;
+    Label6: TLabel;
+    Label8: TLabel;
+    Label9: TLabel;
+    Label12: TLabel;
+    Label15: TLabel;
+    BMNo: TEdit;
+    YuLuDanDate: TDateTimePicker;
+    FromPlace: TBtnEditC;
+    ToPlace: TBtnEditC;
+    ZhuangXiangDate: TDateTimePicker;
+    ChuanDate: TDateTimePicker;
+    ChuanGS: TBtnEditC;
+    ChuanNo: TEdit;
+    XiangType: TBtnEditC;
+    Label16: TLabel;
+    YunDiG: TBtnEditC;
+    Label17: TLabel;
+    ChengJiaoType: TBtnEditC;
+    Label11: TLabel;
+    YuTuiDanDate: TDateTimePicker;
+    Label19: TLabel;
+    JiaoTuiDanDate: TDateTimePicker;
+    TiDanType: TComboBox;
+    Note: TRichEdit;
+    Panel1: TPanel;
+    ToolBar3: TToolBar;
+    ToolButton3: TToolButton;
+    ToolButton4: TToolButton;
+    cxGrid2: TcxGrid;
+    Tv2: TcxGridDBTableView;
+    cxGridDBColumn1: TcxGridDBColumn;
+    cxGridDBColumn2: TcxGridDBColumn;
+    cxGridDBColumn3: TcxGridDBColumn;
+    cxGridDBColumn4: TcxGridDBColumn;
+    cxGridDBColumn5: TcxGridDBColumn;
+    cxGridDBColumn6: TcxGridDBColumn;
+    cxGridDBColumn7: TcxGridDBColumn;
+    cxGridDBColumn8: TcxGridDBColumn;
+    cxGridLevel1: TcxGridLevel;
+    v2Column1: TcxGridDBColumn;
+    DataSource2: TDataSource;
+    ClientDataSet2: TClientDataSet;
+    cxGridPopupMenu1: TcxGridPopupMenu;
+    cxGridPopupMenu2: TcxGridPopupMenu;
+    procedure TBCloseClick(Sender: TObject);
+    procedure FormShow(Sender: TObject);
+    procedure TBSaveClick(Sender: TObject);
+    procedure ToolButton1Click(Sender: TObject);
+    procedure ToolButton2Click(Sender: TObject);
+    procedure CustomerNoNameBtnDnClick(Sender: TObject);
+    procedure FromPlaceBtnUpClick(Sender: TObject);
+    procedure v1Column4PropertiesButtonClick(Sender: TObject;
+      AButtonIndex: Integer);
+    procedure ToolButton3Click(Sender: TObject);
+    procedure cxGridDBColumn1PropertiesButtonClick(Sender: TObject;
+      AButtonIndex: Integer);
+    procedure cxGridDBColumn2PropertiesButtonClick(Sender: TObject;
+      AButtonIndex: Integer);
+  private
+    procedure InitData();
+    procedure ZDYHelp(FButn:TcxButtonEdit;LType:string);
+    function  SaveData():Boolean;
+    procedure GetBtnCText(Sender: TObject);
+    { Private declarations }
+  public
+    PState,CopyInt:Integer;
+    FMainId,FFMainId:String;
+    FXS:Integer;
+    { Public declarations }
+  end;
+
+var
+  frmBGFeeInPut: TfrmBGFeeInPut;
+implementation
+uses
+  U_DataLink,U_ZDYHelp,U_RTFun,U_BGLDManage;
+
+{$R *.dfm}
+
+procedure TfrmBGFeeInPut.TBCloseClick(Sender: TObject);
+begin
+  Close;
+  WriteCxGrid('报关费用录入',Tv1,'报关费用');
+end;
+
+procedure TfrmBGFeeInPut.InitData();
+begin
+  ZhuangXiangDate.Date:=SGetServerDate(ADOTemp);
+  ChuanDate.Date:=ZhuangXiangDate.Date;
+  YuLuDanDate.Date:=ZhuangXiangDate.Date;
+  TiDanDate.Date:=ZhuangXiangDate.Date;
+  YuTuiDanDate.Date:=ZhuangXiangDate.Date;
+  JiaoTuiDanDate.Date:=ZhuangXiangDate.Date;
+  ZhuangXiangDate.Checked:=False;
+  ChuanDate.Checked:=False;
+  YuLuDanDate.Checked:=False;
+  TiDanDate.Checked:=False;
+  YuTuiDanDate.Checked:=False;
+  JiaoTuiDanDate.Checked:=False;
+  with ADOQuery1 do
+  begin
+    Close;
+    SQL.Clear;
+    sql.Add(' select * from BGFee_Sub ');
+    if PState=1 then
+    begin
+      sql.Add('where BMId='''+Trim(FMainId)+'''');
+    end;
+    if PState=0 then
+    begin
+      sql.Add(' where 1<>1');
+    end;
+    Open;
+  end;
+  SCreateCDS20(ADOQuery1,Order_Sub);
+  SInitCDSData20(ADOQuery1,Order_Sub);
+  with ADOQuery1 do
+  begin
+    Close;
+    sql.Clear;
+    sql.Add('select * from BGFee_Main where BMId='''+Trim(FMainId)+'''');
+    Open;
+  end;
+  SCSHDataNew(ADOQuery1,ScrollBox1,2);
+  with ADOQuery1 do
+  begin
+    Close;
+    sql.Clear;
+    sql.Add('select * from BGFee_HuoDai where BMID='''+Trim(FMainId)+'''');
+    open;
+  end;
+  SCreateCDS20(ADOQuery1,ClientDataSet2);
+  SInitCDSData20(ADOQuery1,ClientDataSet2);
+end;
+
+procedure TfrmBGFeeInPut.ZDYHelp(FButn:TcxButtonEdit;LType:string);
+var
+  FType,ZDYName,FText:String;
+begin
+end;
+
+procedure TfrmBGFeeInPut.FormShow(Sender: TObject);
+begin
+  readCxGrid('报关费用录入',Tv1,'报关费用');
+  InitData();
+end;
+
+function TfrmBGFeeInPut.SaveData():Boolean;
+var
+  maxno,maxsubno,maxsubnoBH:String;
+begin
+  try
+    ADOCmd.Connection.BeginTrans;
+    ///保存主表
+    if Trim(FMainId)='' then
+    begin
+      if GetLSNo(ADOCmd,maxno,'BM','BGFee_Main',3,1)=False then
+      begin
+        ADOCmd.Connection.RollbackTrans;
+        Application.MessageBox('取主表最大号失败!','提示',0);
+        Exit;
+      end;
+    end else
+    begin
+      maxno:=Trim(FMainId);
+    end;
+    with ADOCmd do
+    begin
+      Close;
+      sql.Clear;
+      SQL.Add('select * from BGFee_Main where BMId='''+Trim(FMainId)+'''');
+      Open;
+    end;
+    with ADOCmd do
+    begin
+      if Trim(FMainId)='' then
+      begin
+        Append;
+      end
+      else begin
+        Edit;
+      end;
+      FieldByName('BMId').Value:=Trim(maxno);
+      RTSetsavedata(ADOCmd,'BGFee_Main',ScrollBox1,2);
+      if Trim(FMainId)='' then
+      begin
+        FieldByName('Filler').Value:=Trim(DName);
+      end else
+      begin
+        FieldByName('Editer').Value:=Trim(DName);
+        FieldByName('EditTime').Value:=SGetServerDateTime(ADOTemp);
+      end;
+     // FieldByName('Note').Value:=Trim(Note.Text);
+      Post;
+    end;
+    with ADOCmd do
+    begin
+      Close;
+      sql.Clear;
+      sql.Add('select * from BGFee_Main where BMNo='''+Trim(BMNo.Text)+'''');
+      Open;
+    end;
+    if ADOCmd.RecordCount>1 then
+    begin
+      ADOCmd.Connection.RollbackTrans;
+      Application.MessageBox('提单运号重复!','提示',0);
+      Exit;
+    end;
+
+    with ADOCmd do
+    begin
+      Close;
+      sql.Clear;
+      sql.Add('UPdate BGFee_Main Set Filler='''+Trim(DName)+'''');
+      sql.Add(' where BMId='''+Trim(maxno)+'''');
+      ExecSQL;
+    end;
+
+    ///保存子表
+    
+    with Order_Sub do
+    begin
+      First;
+      while not Eof do
+      begin
+        if Trim(Order_Sub.fieldbyname('BSId').AsString)='' then
+        begin
+          if GetLSNo(ADOCmd,maxsubno,'BS','BGFee_Sub',4,1)=False then
+          begin
+            ADOCmd.Connection.RollbackTrans;
+            Application.MessageBox('取子流水号失败！','提示',0);
+            Exit;
+          end;
+        end else
+        begin
+          maxsubno:=Trim(Order_Sub.fieldbyname('BSId').AsString);
+        end;
+        with ADOCmd do
+        begin
+          Close;
+          SQL.Clear;
+          sql.Add('select * from BGFee_Sub where BMID='''+Trim(maxno)+'''');
+          sql.Add(' and BSId='''+Trim(maxsubno)+'''');
+          Open;
+        end;
+        with ADOCmd do
+        begin
+          if Trim(Order_Sub.fieldbyname('BSId').AsString)='' then
+            Append
+          else
+            Edit;
+          FieldByName('BMID').Value:=Trim(maxno);
+          FieldByName('BSId').Value:=Trim(maxsubno);
+          RTSetSaveDataCDS(ADOCmd,Tv1,Order_Sub,'BGFee_Sub',0);
+          Post;
+        end;
+        Order_Sub.Edit;
+        Order_Sub.FieldByName('BSId').Value:=Trim(maxsubno);
+        //Order_Sub.Post;
+        Next;
+      end;
+    end;
+    //保存费用子表
+    with ClientDataSet2 do
+    begin
+      First;
+      while not Eof do
+      begin
+        if Trim(ClientDataSet2.fieldbyname('BHId').AsString)='' then
+        begin
+          if GetLSNo(ADOCmd,maxsubnoBH,'BH','BGFee_HuoDai',4,1)=False then
+          begin
+            ADOCmd.Connection.RollbackTrans;
+            Application.MessageBox('取子流水号失败！','提示',0);
+            Exit;
+          end;
+        end else
+        begin
+          maxsubnoBH:=Trim(ClientDataSet2.fieldbyname('BHId').AsString);
+        end;
+        with ADOCmd do
+        begin
+          Close;
+          SQL.Clear;
+          sql.Add('select * from BGFee_HuoDai where BHID='''+Trim(maxsubnoBH)+'''');
+          Open;
+        end;
+        with ADOCmd do
+        begin
+          if Trim(ClientDataSet2.fieldbyname('BHID').AsString)='' then
+            Append
+          else
+            Edit;
+          FieldByName('BMID').Value:=Trim(maxno);
+          FieldByName('BHID').Value:=Trim(maxsubnoBH);
+          RTSetSaveDataCDS(ADOCmd,Tv2,ClientDataSet2,'BGFee_HuoDai',0);
+          Post;
+        end;
+        ClientDataSet2.Edit;
+        ClientDataSet2.FieldByName('BHID').Value:=Trim(maxsubnoBH);
+        //Order_Sub.Post;
+        Next;
+      end;
+    end;
+
+    ADOCmd.Connection.CommitTrans;
+    FMainId:=Trim(maxno);
+    Result:=True;
+  except
+    Result:=False;
+    ADOCmd.Connection.RollbackTrans;
+    Application.MessageBox('保存失败！','提示',0);
+  end;
+end;
+
+
+
+procedure TfrmBGFeeInPut.TBSaveClick(Sender: TObject);
+var
+  FReal:Double;
+begin
+  ToolBar1.SetFocus;
+  if Trim(BMNo.Text)='' then
+  begin
+    Application.MessageBox('提单运号不能为空！','提示',0);
+    Exit;
+  end;
+  if Order_Sub.IsEmpty then
+  begin
+    Application.MessageBox('明细不能为空!','提示',0);
+    Exit;
+  end;
+  if ClientDataSet2.IsEmpty then
+  begin
+    Application.MessageBox('费用明细不能为空!','提示',0);
+    Exit;
+  end;
+  if SaveData() then
+  begin
+    Application.MessageBox('保存成功！','提示',0);
+  end;
+end;
+
+procedure TfrmBGFeeInPut.ToolButton1Click(Sender: TObject);
+begin
+  CopyAddRow(Tv1,Order_Sub);
+end;
+
+procedure TfrmBGFeeInPut.ToolButton2Click(Sender: TObject);
+begin
+  if Order_Sub.IsEmpty then Exit;
+  if Trim(Order_Sub.fieldbyname('BSId').AsString)<>'' then
+  begin
+    if Application.MessageBox('确定要删除数据吗？','提示',32+4)<>IDYES then Exit;
+    with ADOCmd do
+    begin
+      Close;
+      sql.Clear;
+      sql.Add('delete BGFee_Sub where BSId='''+Trim(Order_Sub.fieldbyname('BSId').AsString)+'''');
+      ExecSQL;
+    end;
+  end;
+  Order_Sub.Delete;
+end;
+
+procedure TfrmBGFeeInPut.CustomerNoNameBtnDnClick(Sender: TObject);
+begin
+  TBtnEditC(Sender).Text:='';
+  TBtnEditC(Sender).TxtCode:='';
+end;
+
+procedure TfrmBGFeeInPut.FromPlaceBtnUpClick(Sender: TObject);
+begin
+  GetBtnCText(Sender);
+end;
+procedure TfrmBGFeeInPut.GetBtnCText(Sender: TObject);
+var
+  fsj:string;
+  FWZ:Integer;
+begin
+  fsj:=Trim(TBtnEditC(Sender).Hint);
+  FWZ:=Pos('/',fsj);
+  try
+    frmZDYHelp:=TfrmZDYHelp.Create(Application);
+    with frmZDYHelp do
+    begin
+      flag:=Copy(fsj,1,FWZ-1);
+      flagname:=Copy(fsj,FWZ+1,Length(fsj)-fwz);
+      if ShowModal=1 then
+      begin
+        TBtnEditC(Sender).Text:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString);
+      end;
+    end;
+  finally
+    frmZDYHelp.Free;
+  end;
+end;
+
+procedure TfrmBGFeeInPut.v1Column4PropertiesButtonClick(Sender: TObject;
+  AButtonIndex: Integer);
+begin
+  try
+    frmBGLDManage:=TfrmBGLDManage.Create(Application);
+    with frmBGLDManage do
+    begin
+      FSel:='99';
+      if ShowModal=1 then
+      begin
+        with Self.Order_Sub do
+        begin
+          Edit;
+          FieldByName('OrderNo').Value:=Trim(frmBGLDManage.Order_Main.fieldbyname('OrderNo').AsString);
+          FieldByName('BGName').Value:=Trim(frmBGLDManage.CDS_19.fieldbyname('BGName').AsString);
+          FieldByName('HSCode').Value:=Trim(frmBGLDManage.CDS_BGName.fieldbyname('HSCode').AsString);
+          FieldByName('PS').Value:=frmBGLDManage.CDS_BGName.fieldbyname('CangKuPS').Value;
+          FieldByName('JZQty').Value:=frmBGLDManage.CDS_19.fieldbyname('NQkgQty').Value;
+          FieldByName('MiQty').Value:=frmBGLDManage.CDS_19.fieldbyname('NQMQty').Value;
+          FieldByName('BGMoney').Value:=frmBGLDManage.CDS_19.fieldbyname('BGMoney').Value;
+          //Post;
+        end;
+      end;
+    end;
+  finally
+    frmBGLDManage.Free;
+  end;
+  with ADOTemp do
+  begin
+    Close;
+    sql.Clear;
+    sql.Add('select * from JYOrder_Main where OrderNo='''+Trim(Order_Sub.fieldbyname('OrderNo').AsString)+'''');
+    Open;
+  end;
+  with Order_Sub do
+  begin
+    Edit;
+    FieldByName('BGCF').Value:=Trim(ADOTemp.fieldbyname('MPRTCF').AsString);
+    //Post;
+  end;
+end;
+
+procedure TfrmBGFeeInPut.ToolButton3Click(Sender: TObject);
+begin
+  with ClientDataSet2 do
+  begin
+    Append;
+
+    Post;
+  end;
+end;
+
+procedure TfrmBGFeeInPut.cxGridDBColumn1PropertiesButtonClick(
+  Sender: TObject; AButtonIndex: Integer);
+begin
+  try
+    frmZDYHelp:=TfrmZDYHelp.Create(Application);
+    with frmZDYHelp do
+    begin
+      flag:='HDName';
+      flagname:='货代';
+      V1ZdyStr1.Visible:=True;
+      V1ZdyStr2.Visible:=True;
+      V1ZdyStr3.Visible:=True;
+      V1ZdyStr4.Visible:=True;
+      V1ZdyStr1.Caption:='联系人';
+      V1ZdyStr2.Caption:='联系方式';
+      V1ZdyStr3.Caption:='收款银行';
+      V1ZdyStr4.Caption:='收款账号';
+      frmZDYHelp.Align:=alClient;
+      if ShowModal=1 then
+      begin
+        with Self .ClientDataSet2 do
+        begin
+          Edit;
+          FieldByName('HDName').Value:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString);
+          FieldByName('HDLXPerson').Value:=Trim(ClientDataSet1.fieldbyname('ZdyStr1').AsString);
+          FieldByName('HDLXFS').Value:=Trim(ClientDataSet1.fieldbyname('ZdyStr2').AsString);
+          FieldByName('HDBankName').Value:=Trim(ClientDataSet1.fieldbyname('ZdyStr3').AsString);
+          FieldByName('HDBankNo').Value:=Trim(ClientDataSet1.fieldbyname('ZdyStr4').AsString);
+        end;
+
+      end;
+    end;
+  finally
+    frmZDYHelp.Free;
+  end;
+end;
+
+procedure TfrmBGFeeInPut.cxGridDBColumn2PropertiesButtonClick(
+  Sender: TObject; AButtonIndex: Integer);
+begin
+  try
+    frmZDYHelp:=TfrmZDYHelp.Create(Application);
+    with frmZDYHelp do
+    begin
+      flag:='HDFeeName';
+      flagname:='费用名称';
+      if ShowModal=1 then
+      begin
+        with Self .ClientDataSet2 do
+        begin
+          Edit;
+          FieldByName('FeeName').Value:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString);
+        end;
+      end;
+    end;
+  finally
+    frmZDYHelp.Free;
+  end;
+end;
+
+end.

坯布码单待检(PBMDDJ.dll)/U_BGFeeList.pas

@@ -0,0 +1,742 @@
+unit U_BGFeeList;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, StdCtrls, ExtCtrls, ComCtrls, ToolWin, cxStyles, cxCustomData,
+  cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, ADODB,
+  cxGridCustomPopupMenu, cxGridPopupMenu, cxGridLevel, cxClasses,
+  cxControls, cxGridCustomView, cxGridCustomTableView, cxGridTableView,
+  cxGridDBTableView, cxGrid, DBClient, cxCheckBox, cxCalendar, cxSplitter,
+  RM_Dataset, RM_System, RM_Common, RM_Class, RM_GridReport, RM_e_Xls,
+  Menus, cxPC, cxButtonEdit, cxTextEdit, cxDropDownEdit;
+
+type
+  TfrmBGFeeList = class(TForm)
+    ToolBar1: TToolBar;
+    TBRafresh: TToolButton;
+    TBFind: TToolButton;
+    TBAdd: TToolButton;
+    TBEdit: TToolButton;
+    TBDel: TToolButton;
+    TBPrint: TToolButton;
+    TBClose: TToolButton;
+    Tv1: TcxGridDBTableView;
+    cxGrid1Level1: TcxGridLevel;
+    cxGrid1: TcxGrid;
+    cxGridPopupMenu1: TcxGridPopupMenu;
+    ADOQueryCmd: TADOQuery;
+    ADOQueryMain: TADOQuery;
+    ADOQueryTemp: TADOQuery;
+    DataSource1: TDataSource;
+    TBExport: TToolButton;
+    v1OrdDate: TcxGridDBColumn;
+    v1ConNo: TcxGridDBColumn;
+    v1PRTColor: TcxGridDBColumn;
+    v1MPRTSpec: TcxGridDBColumn;
+    Order_Main: TClientDataSet;
+    RM1: TRMGridReport;
+    RMDBDataSet1: TRMDBDataSet;
+    RMXLSExport1: TRMXLSExport;
+    v1CustomerNoName: TcxGridDBColumn;
+    v1MPRTCodeName: TcxGridDBColumn;
+    v1MPRTMF: TcxGridDBColumn;
+    PopupMenu1: TPopupMenu;
+    N2: TMenuItem;
+    v1PRTPrice: TcxGridDBColumn;
+    ToolButton1: TToolButton;
+    v1Column1: TcxGridDBColumn;
+    ADOQueryPrint: TADOQuery;
+    CDS_Print: TClientDataSet;
+    v1Column4: TcxGridDBColumn;
+    Panel1: TPanel;
+    Label4: TLabel;
+    Label9: TLabel;
+    Label10: TLabel;
+    BegDate: TDateTimePicker;
+    EndDate: TDateTimePicker;
+    OrderNoHZ: TEdit;
+    BMNo: TEdit;
+    ChuanGS: TEdit;
+    v1Column2: TcxGridDBColumn;
+    cxTabControl1: TcxTabControl;
+    ToolButton3: TToolButton;
+    ToolButton4: TToolButton;
+    v1Column3: TcxGridDBColumn;
+    v1Column5: TcxGridDBColumn;
+    v1Column6: TcxGridDBColumn;
+    v1Column7: TcxGridDBColumn;
+    v1Column8: TcxGridDBColumn;
+    v1Column9: TcxGridDBColumn;
+    v1Column10: TcxGridDBColumn;
+    v1Column11: TcxGridDBColumn;
+    cxSplitter1: TcxSplitter;
+    Label2: TLabel;
+    ChuanNo: TEdit;
+    Label3: TLabel;
+    HDName: TEdit;
+    Label5: TLabel;
+    FeeName: TEdit;
+    ComboBox1: TComboBox;
+    DataSource2: TDataSource;
+    ClientDataSet2: TClientDataSet;
+    v1Column12: TcxGridDBColumn;
+    v1Column13: TcxGridDBColumn;
+    v1Column14: TcxGridDBColumn;
+    Panel2: TPanel;
+    cxGrid2: TcxGrid;
+    Tv2: TcxGridDBTableView;
+    cxGridDBColumn1: TcxGridDBColumn;
+    cxGridDBColumn2: TcxGridDBColumn;
+    cxGridDBColumn3: TcxGridDBColumn;
+    cxGridDBColumn4: TcxGridDBColumn;
+    cxGridDBColumn5: TcxGridDBColumn;
+    cxGridDBColumn6: TcxGridDBColumn;
+    cxGridDBColumn7: TcxGridDBColumn;
+    cxGridDBColumn8: TcxGridDBColumn;
+    cxGridDBColumn9: TcxGridDBColumn;
+    cxGridDBColumn10: TcxGridDBColumn;
+    cxGridDBColumn11: TcxGridDBColumn;
+    cxGridDBColumn12: TcxGridDBColumn;
+    cxGridLevel1: TcxGridLevel;
+    cxSplitter2: TcxSplitter;
+    cxGrid3: TcxGrid;
+    Tv3: TcxGridDBTableView;
+    v2Column1: TcxGridDBColumn;
+    cxGridDBColumn13: TcxGridDBColumn;
+    cxGridDBColumn14: TcxGridDBColumn;
+    cxGridDBColumn15: TcxGridDBColumn;
+    cxGridDBColumn16: TcxGridDBColumn;
+    cxGridDBColumn17: TcxGridDBColumn;
+    cxGridDBColumn18: TcxGridDBColumn;
+    cxGridDBColumn19: TcxGridDBColumn;
+    cxGridDBColumn20: TcxGridDBColumn;
+    cxGridLevel2: TcxGridLevel;
+    DataSource3: TDataSource;
+    ClientDataSet3: TClientDataSet;
+    cxGridPopupMenu2: TcxGridPopupMenu;
+    cxGridPopupMenu3: TcxGridPopupMenu;
+    v1Column15: TcxGridDBColumn;
+    v1Column16: TcxGridDBColumn;
+    procedure FormDestroy(Sender: TObject);
+    procedure FormClose(Sender: TObject; var Action: TCloseAction);
+    procedure FormCreate(Sender: TObject);
+    procedure TBCloseClick(Sender: TObject);
+    procedure TBFindClick(Sender: TObject);
+    procedure TBEditClick(Sender: TObject);
+    procedure TBDelClick(Sender: TObject);
+    procedure TBExportClick(Sender: TObject);
+    procedure TBPrintClick(Sender: TObject);
+    procedure TBRafreshClick(Sender: TObject);
+    procedure TBAddClick(Sender: TObject);
+    procedure FormShow(Sender: TObject);
+    procedure Tv1StylesGetContentStyle(Sender: TcxCustomGridTableView;
+      ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem;
+      out AStyle: TcxStyle);
+    procedure v1DeliveryDateCustomDrawCell(Sender: TcxCustomGridTableView;
+      ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo;
+      var ADone: Boolean);
+    procedure ToolButton1Click(Sender: TObject);
+    procedure OrderNoHZChange(Sender: TObject);
+    procedure BMNoKeyPress(Sender: TObject; var Key: Char);
+    procedure cxTabControl1Change(Sender: TObject);
+    procedure ToolButton3Click(Sender: TObject);
+    procedure ToolButton4Click(Sender: TObject);
+    procedure Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView;
+      APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord;
+      ANewItemRecordFocusingChanged: Boolean);
+    procedure OrderNoHZKeyPress(Sender: TObject; var Key: Char);
+  private
+    DQdate:TDateTime;
+    procedure InitGrid();
+    procedure InitForm();
+    function  DelData():Boolean;
+    { Private declarations }
+  public
+    FFInt,FCloth:Integer;
+
+    { Public declarations }
+  end;
+
+var
+  frmBGFeeList: TfrmBGFeeList;
+
+implementation
+uses
+  U_DataLink,U_BGFeeInPut,U_RTFun;
+
+{$R *.dfm}
+
+procedure TfrmBGFeeList.FormDestroy(Sender: TObject);
+begin
+  frmBGFeeList:=nil;
+end;
+
+procedure TfrmBGFeeList.FormClose(Sender: TObject;
+  var Action: TCloseAction);
+begin
+  Action:=caFree;
+end;
+
+procedure TfrmBGFeeList.FormCreate(Sender: TObject);
+begin
+  cxgrid1.Align:=alClient;
+  //BegDate.DateTime:=SGetServerDateTime(ADOQueryTemp)-7;
+  //EndDate.DateTime:=SGetServerDateTime(ADOQueryTemp);
+  DQdate:=SGetServerDate(ADOQueryTemp);
+end;
+
+procedure TfrmBGFeeList.TBCloseClick(Sender: TObject);
+begin
+  Close;
+  WriteCxGrid('报关费用列表1',Tv1,'报关费用');
+  WriteCxGrid('报关费用列表2',Tv2,'报关费用');
+  WriteCxGrid('报关费用列表3',Tv3,'报关费用');
+end;
+
+procedure TfrmBGFeeList.InitGrid();
+begin
+  try
+    ADOQueryMain.DisableControls;
+    with ADOQueryMain do
+    begin
+      Filtered:=False;
+      Close;
+      sql.Clear;
+      sql.Add('select A.*,B.* ');
+      sql.Add(',OrderNoHZ=dbo.F_Get_Order_SubStr(A.BMID,''BGOrderNo'')');
+      sql.Add(' from BGFee_Main A  ');
+      sql.Add(' left join BGFee_HuoDai B on A.BMID=B.BMID');
+      if Trim(ComboBox1.Text)='按登记日期' then
+      begin
+        SQL.Add('where  A.FillTIme>='''+FormatDateTime('yyyy-MM-dd',BegDate.DateTime)+'''');
+        SQL.Add('and  A.FillTIme<'''+FormatDateTime('yyyy-MM-dd',enddate.DateTime+1)+'''');
+      end else
+      if Trim(ComboBox1.Text)='按装箱日期' then
+      begin
+        SQL.Add('where  A.ZhuangXiangDate>='''+FormatDateTime('yyyy-MM-dd',BegDate.DateTime)+'''');
+        SQL.Add('and  A.ZhuangXiangDate<'''+FormatDateTime('yyyy-MM-dd',enddate.DateTime+1)+'''');
+      end  else
+      if Trim(ComboBox1.Text)='按船期' then
+      begin
+        SQL.Add('where  A.ChuanDate>='''+FormatDateTime('yyyy-MM-dd',BegDate.DateTime)+'''');
+        SQL.Add('and  A.ChuanDate<'''+FormatDateTime('yyyy-MM-dd',enddate.DateTime+1)+'''');
+      end else
+      if Trim(ComboBox1.Text)='按预录单日期' then
+      begin
+        SQL.Add('where  A.YuLuDanDate>='''+FormatDateTime('yyyy-MM-dd',BegDate.DateTime)+'''');
+        SQL.Add('and  A.YuLuDanDate<'''+FormatDateTime('yyyy-MM-dd',enddate.DateTime+1)+'''');
+      end else
+      if Trim(ComboBox1.Text)='按提单日期' then
+      begin
+        SQL.Add('where  A.TiDanDate>='''+FormatDateTime('yyyy-MM-dd',BegDate.DateTime)+'''');
+        SQL.Add('and  A.TiDanDate<'''+FormatDateTime('yyyy-MM-dd',enddate.DateTime+1)+'''');
+      end else
+      if Trim(ComboBox1.Text)='按预退单日期' then
+      begin
+        SQL.Add('where  A.YuTuiDanDate>='''+FormatDateTime('yyyy-MM-dd',BegDate.DateTime)+'''');
+        SQL.Add('and  A.YuTuiDanDate<'''+FormatDateTime('yyyy-MM-dd',enddate.DateTime+1)+'''');
+      end else
+      if Trim(ComboBox1.Text)='按交退单核日期' then
+      begin
+        SQL.Add('where  A.JiaoTuiDanDate>='''+FormatDateTime('yyyy-MM-dd',BegDate.DateTime)+'''');
+        SQL.Add('and  A.JiaoTuiDanDate<'''+FormatDateTime('yyyy-MM-dd',enddate.DateTime+1)+'''');
+      end else
+      if Trim(ComboBox1.Text)='按退单(核)日期' then
+      begin
+        SQL.Add('where  A.TuiDanChkDate>='''+FormatDateTime('yyyy-MM-dd',BegDate.DateTime)+'''');
+        SQL.Add('and  A.TuiDanChkDate<'''+FormatDateTime('yyyy-MM-dd',enddate.DateTime+1)+'''');
+      end else
+      if Trim(ComboBox1.Text)='按付款日期' then
+      begin
+        SQL.Add('where  B.SFKDate>='''+FormatDateTime('yyyy-MM-dd',BegDate.DateTime)+'''');
+        SQL.Add('and  B.SFKDate<'''+FormatDateTime('yyyy-MM-dd',enddate.DateTime+1)+'''');
+      end;
+      {if Trim(ComboBox1.Text)='按付款日期' then
+      begin
+        SQL.Add('where  A.FKDate>='''+FormatDateTime('yyyy-MM-dd',BegDate.DateTime)+'''');
+        SQL.Add('and  A.FKDate<'''+FormatDateTime('yyyy-MM-dd',enddate.DateTime+1)+'''');
+      end; }
+
+      if Trim(DParameters1)<>'高权限'  then
+      begin
+        //sql.Add('and A.Filler='''+Trim(DName)+'''');
+        sql.Add(' and A.Filler in(select UserName from  SY_User where DPID in');
+        sql.Add(' (select DPID from SY_User where UserName='''+Trim(DName)+'''))');
+      end;
+      if cxTabControl1.TabIndex=0 then
+      begin
+        SQL.Add(' and isnull(SChkTime,'''')='''' ');
+      end else
+      if cxTabControl1.TabIndex=1 then
+      begin
+        SQL.Add(' and isnull(SChkTime,'''')<>'''' ');
+        sql.Add(' and (isnull(B.SFKDate,'''')='''' and isnull(TuiDanChkDate,'''')='''')');
+      end  else
+      if cxTabControl1.TabIndex=2 then
+      begin
+        SQL.Add(' and isnull(SChkTime,'''')<>'''' ');
+        sql.Add(' and (isnull(B.SFKDate,'''')<>'''')');
+      end  else
+      if cxTabControl1.TabIndex=3 then
+      begin
+        SQL.Add(' and isnull(SChkTime,'''')<>'''' ');
+        sql.Add(' and (isnull(TuiDanChkDate,'''')<>'''')');
+      end;
+      Open;
+    end;
+    SCreateCDS20(ADOQueryMain,Order_Main);
+    SInitCDSData20(ADOQueryMain,Order_Main);
+  finally
+    ADOQueryMain.EnableControls;
+  end;
+end;
+
+
+procedure TfrmBGFeeList.InitForm();
+begin
+  ReadCxGrid('报关费用列表1',Tv1,'报关费用');
+  ReadCxGrid('报关费用列表2',Tv2,'报关费用');
+  ReadCxGrid('报关费用列表3',Tv3,'报关费用');
+  BegDate.DateTime:=SGetServerDate10(ADOQueryTemp)-7;
+  EndDate.DateTime:=SGetServerDate10(ADOQueryTemp);
+  InitGrid();
+end;
+
+procedure TfrmBGFeeList.TBFindClick(Sender: TObject);
+begin
+  if ADOQueryMain.Active=False then Exit;
+  SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2));
+  SCreateCDS20(ADOQueryMain,Order_Main);
+  SInitCDSData20(ADOQueryMain,Order_Main);
+end;
+
+procedure TfrmBGFeeList.TBEditClick(Sender: TObject);
+begin
+  if Order_Main.IsEmpty then Exit;
+  if cxTabControl1.TabIndex<>0 then Exit;
+  if Trim(Order_Main.fieldbyname('Filler').AsString)<>Trim(DName) then
+  begin
+    Application.MessageBox('不能操作他人的数据!','提示',0);
+    Exit;
+  end;
+  try
+    frmBGFeeInPut:=TfrmBGFeeInPut.Create(Application);
+    with frmBGFeeInPut do
+    begin
+      PState:=1;
+      FMainId:=Trim(Self.Order_Main.fieldbyname('BMId').AsString);
+      if ShowModal=1 then
+      begin
+
+      end;
+    end;
+  finally
+    frmBGFeeInPut.Free;
+  end;
+end;
+
+procedure TfrmBGFeeList.TBDelClick(Sender: TObject);
+begin
+  if Order_Main.IsEmpty then Exit;
+  if cxTabControl1.TabIndex<>0 then Exit;
+  with ADOQueryTemp do
+  begin
+    Close;
+    sql.Clear;
+    sql.Add('select * from BGFee_Main where BMID='''+Trim(Order_Main.fieldbyname('BMID').AsString)+'''');
+    Open;
+  end;
+  if Trim(ADOQueryTemp.fieldbyname('ChkStatus').AsString)<>'' then
+  begin
+    Application.MessageBox('财务已产生数据，不能删除!','提示',0);
+    Exit;
+  end;
+  if Trim(Order_Main.fieldbyname('Filler').AsString)<>Trim(DName) then
+  begin
+    Application.MessageBox('不能操作他人的数据!','提示',0);
+    Exit;
+  end;
+  if Application.MessageBox('确定要删除数据吗？','提示',32+4)<>IDYES then Exit;
+  if DelData() then
+  begin
+    Order_Main.Delete;
+  end;
+end;
+
+function TfrmBGFeeList.DelData():Boolean;
+begin
+  try
+    Result:=false;
+    ADOQueryCmd.Connection.BeginTrans;
+    with ADOQueryCmd do
+    begin
+      Close;
+      sql.Clear;
+      sql.Add('delete BGFee_Main where BMId='''+Trim(Order_Main.fieldbyname('BMId').AsString)+'''');
+      ExecSQL;
+    end;
+    with ADOQueryCmd do
+    begin
+      Close;
+      sql.Clear;
+      sql.Add('delete BGFee_Sub where BMId='''+Trim(Order_Main.fieldbyname('BMId').AsString)+'''');
+      ExecSQL;
+    end;
+    ADOQueryCmd.Connection.CommitTrans;
+    Result:=True;
+  except
+    ADOQueryCmd.Connection.RollbackTrans;
+    Result:=False;
+    Application.MessageBox('数据删除异常！','提示',0);
+  end;
+end;
+
+procedure TfrmBGFeeList.TBExportClick(Sender: TObject);
+begin
+  //if ADOQueryMain.IsEmpty then Exit;
+  //SelExportData(Tv1,ADOQueryMain,'生产指示单列表');
+  if Order_Main.IsEmpty then Exit;
+  TcxGridToExcel('订单合同',cxGrid1);
+end;
+
+procedure TfrmBGFeeList.TBPrintClick(Sender: TObject);
+var
+   fPrintFile:string;
+   EngMoney:string;
+begin
+  if Order_Main.IsEmpty then Exit;
+  fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\英文合同.rmf' ;
+  with ADOQueryPrint do
+  begin
+    Close;
+    sql.Clear;
+    sql.Add('select A.*,B.*,ConMoney=B.PRTOrderQty*B.PRTPrice,COL=''COL:''  ');
+    sql.Add(' from JYOrderCon_Main A inner join JYOrderCon_Sub B on A.MainId=B.MainId ');
+    sql.Add(' where A.MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+'''');
+    Open;
+  end;
+  SCreateCDS20(ADOQueryPrint,CDS_Print);
+  SInitCDSData20(ADOQueryPrint,CDS_Print);
+  //
+  with ADOQueryTemp do
+  begin
+    close;
+    sql.Clear;
+    sql.Add('select TolConMoney=Sum(PRTOrderQty*PRTPrice)');
+    sql.Add(' from JYOrderCon_Main A inner join JYOrderCon_Sub B on A.MainId=B.MainId ');
+    sql.Add(' where A.MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+'''');
+    Open;
+  end;
+  EngMoney:=num2cengnum(ADOQueryTemp.fieldbyname('TolConMoney').AsString);
+  EngMoney:=UpperCase(EngMoney);
+  if FileExists(fPrintFile) then
+  begin
+    RMVariables['EngMoney']:=EngMoney;
+    //RMVariables['enddate']:=enddate.DateTime;
+    //RMVariables['printtime']:=Now;
+    //RMVariables['printer']:=Trim(gUserName);
+    RM1.LoadFromFile(fPrintFile);
+    RM1.ShowReport;
+  end else
+  begin
+    Application.MessageBox(PChar('没有找'+ExtractFilePath(Application.ExeName)+'Report\英文合同.rmf'),'提示',0);
+  end;
+end;
+
+procedure TfrmBGFeeList.TBRafreshClick(Sender: TObject);
+begin
+  InitGrid();
+end;
+
+procedure TfrmBGFeeList.TBAddClick(Sender: TObject);
+var
+  maxno:string;
+begin
+  try
+    frmBGFeeInPut:=TfrmBGFeeInPut.Create(Application);
+    with frmBGFeeInPut do
+    begin
+      PState:=0;
+      FMainId:='';
+      if ShowModal=1 then
+      begin
+
+      end;
+    end;
+  finally
+    frmBGFeeInPut.Free;
+  end;
+end;
+
+procedure TfrmBGFeeList.FormShow(Sender: TObject);
+begin
+  InitForm();
+end;
+
+procedure TfrmBGFeeList.Tv1StylesGetContentStyle(
+  Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord;
+  AItem: TcxCustomGridTableItem; out AStyle: TcxStyle);
+var
+  id,id10:Integer;
+begin
+  {try
+    if Tv1.GroupedItemCount=0 then
+    begin
+      Id:=Tv1.GetColumnByFieldName('DeliveryDate').Index-tv1.GroupedItemCount;
+      Id10:=Tv1.GetColumnByFieldName('SubStatus').Index-tv1.GroupedItemCount;
+      if Trim(VarToStr(ARecord.Values[id]))='' then Exit;
+      if Id<0 then Exit;
+      if ARecord.Values[id10]='完成' then exit;
+      if (ARecord.Values[id]-DQdate)>=4 then Exit;
+      if ((ARecord.Values[id]-DQdate)>=0) and ((ARecord.Values[id]-DQdate)<4) then
+        AStyle:=DataLink_.QHuangSe
+      else
+      if ARecord.Values[id]-DQdate<0 then
+      begin
+        AStyle:=DataLink_OrderManage.FenHongS;
+      end;
+    end else
+    begin
+
+    end;
+  except
+  end; }
+end;
+
+procedure TfrmBGFeeList.v1DeliveryDateCustomDrawCell(
+  Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;
+  AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
+begin
+ { Id:=TV1.GetColumnByFieldName('DeliveryDate').Index;//;-TV1.GroupedItemCount;
+  Id10:=TV1.GetColumnByFieldName('SubStatus').Index;
+  if Id<0 then Exit;
+  if AViewInfo.GridRecord.Values[Id10]='完成' then Exit;
+  if AViewInfo.GridRecord.Values[Id]-SGetServerDate(ADOQueryTemp)>=4 then Exit;
+  if ((AViewInfo.GridRecord.Values[id]-SGetServerDate10(ADOQueryTemp))>=0) and ((AViewInfo.GridRecord.Values[id]-SGetServerDate(ADOQueryTemp))<4) then
+    ACanvas.Brush.Color:=clYellow
+  else
+  if (AViewInfo.GridRecord.Values[id])-(SGetServerDate10(ADOQueryTemp)<0) then
+  begin
+    ACanvas.Brush.Color:=clRed;
+  end;
+  begin
+    ACanvas.Brush.Color:=clRed;
+  end else
+  if AViewInfo.GridRecord.Values[Id]='Purple' then
+  begin
+    ACanvas.Brush.Color:=clPurple;
+  end else
+  if AViewInfo.GridRecord.Values[Id]='Olive' then
+  begin
+    ACanvas.Brush.Color:=clOlive;
+  end else
+  if AViewInfo.GridRecord.Values[Id]='Teal' then
+  begin
+    ACanvas.Brush.Color:=clTeal;
+  end else
+  if AViewInfo.GridRecord.Values[Id]='Background' then
+  begin
+    ACanvas.Brush.Color:=clBackground;
+  end;   }
+end;
+
+procedure TfrmBGFeeList.ToolButton1Click(Sender: TObject);
+begin
+  if Order_Main.IsEmpty then Exit;
+  try
+    frmBGFeeInPut:=TfrmBGFeeInPut.Create(Application);
+    with frmBGFeeInPut do
+    begin
+      PState:=1;
+      FMainId:=Trim(Self.Order_Main.fieldbyname('BMId').AsString);
+      ToolBar2.Visible:=False;
+      TBSave.Visible:=False;
+      ScrollBox1.Enabled:=False;
+      Tv1.OptionsSelection.CellSelect:=False;
+      if ShowModal=1 then
+      begin
+
+      end;
+    end;
+  finally
+    frmBGFeeInPut.Free;
+  end;
+end;
+
+procedure TfrmBGFeeList.OrderNoHZChange(Sender: TObject);
+begin
+  if ADOQueryMain.Active=False then Exit;
+  SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2));
+  SCreateCDS20(ADOQueryMain,Order_Main);
+  SInitCDSData20(ADOQueryMain,Order_Main);
+end;
+
+procedure TfrmBGFeeList.BMNoKeyPress(Sender: TObject; var Key: Char);
+begin
+  if Key=#13 then
+  begin
+    if Length(BMNo.Text)<3 then Exit;
+    try
+      ADOQueryMain.DisableControls;
+      with ADOQueryMain do
+      begin
+        Filtered:=False;
+        Close;
+        SQL.Clear;
+        sql.Add('select A.*,B.* ');
+        sql.Add(',OrderNoHZ=dbo.F_Get_Order_SubStr(A.BMID,''BGOrderNo'')');
+        sql.Add(' from BGFee_Main A  ');
+        sql.Add(' left join BGFee_HuoDai B on A.BMID=B.BMID');
+        SQL.Add('where  1=1');
+        if Trim(DParameters1)<>'高权限'  then
+        begin
+          sql.Add(' and A.Filler in(select UserName from  SY_User where DPID in');
+          sql.Add(' (select DPID from SY_User where UserName='''+Trim(DName)+'''))');
+        end;
+        sql.Add(' and BMNO like '''+'%'+Trim(BMNO.Text)+'%'+'''');
+        if cxTabControl1.TabIndex=0 then
+        begin
+          SQL.Add(' and isnull(SChkTime,'''')='''' ');
+        end else
+        if cxTabControl1.TabIndex=1 then
+        begin
+          SQL.Add(' and isnull(SChkTime,'''')<>'''' ');
+          sql.Add(' and (isnull(SFKDate,'''')<>'''' or isnull(TuiDanChkDate,'''')<>'''')');
+        end  else
+        if cxTabControl1.TabIndex=2 then
+        begin
+          SQL.Add(' and isnull(SChkTime,'''')<>'''' ');
+          sql.Add(' and (isnull(SFKDate,'''')<>'''')');
+        end  else
+        if cxTabControl1.TabIndex=3 then
+        begin
+          SQL.Add(' and isnull(SChkTime,'''')<>'''' ');
+          sql.Add(' and (isnull(TuiDanChkDate,'''')<>'''')');
+        end;
+        Open;
+      end;
+      SCreateCDS20(ADOQueryMain,Order_Main);
+      SInitCDSData20(ADOQueryMain,Order_Main);
+    finally
+      ADOQueryMain.EnableControls;
+    end;
+  end;
+end;
+
+procedure TfrmBGFeeList.cxTabControl1Change(Sender: TObject);
+begin
+  InitGrid();
+end;
+
+procedure TfrmBGFeeList.ToolButton3Click(Sender: TObject);
+begin
+  if Order_Main.IsEmpty then Exit;
+  if cxTabControl1.TabIndex<>0 then Exit;
+  if Application.MessageBox('确定要执行此操作吗？','提示',32+4)<>IDYES then Exit;
+  with ADOQueryCmd do
+  begin
+    Close;
+    sql.Clear;
+    sql.Add('UPdate BGFee_Main Set SChkStatus=''已送审'',SChkTime=getdate(),SChker='''+Trim(DName)+'''');
+    sql.Add(' where BMID='''+Trim(Order_Main.fieldbyname('BMID').AsString)+'''');
+    ExecSQL;
+  end;
+  Order_Main.Delete;
+end;
+
+procedure TfrmBGFeeList.ToolButton4Click(Sender: TObject);
+begin
+  if Order_Main.IsEmpty then Exit;
+  if cxTabControl1.TabIndex<>1 then Exit;
+  if Application.MessageBox('确定要执行此操作吗？','提示',32+4)<>IDYES then Exit;
+  with ADOQueryCmd do
+  begin
+    Close;
+    sql.Clear;
+    sql.Add('UPdate BGFee_Main Set SChkStatus=Null,SChkTime=Null,SChker=Null');
+    sql.Add(' where BMID='''+Trim(Order_Main.fieldbyname('BMID').AsString)+'''');
+    ExecSQL;
+  end;
+  Order_Main.Delete;
+end;
+
+procedure TfrmBGFeeList.Tv1FocusedRecordChanged(
+  Sender: TcxCustomGridTableView; APrevFocusedRecord,
+  AFocusedRecord: TcxCustomGridRecord;
+  ANewItemRecordFocusingChanged: Boolean);
+begin
+  with ADOQueryTemp do
+  begin
+    Close;
+    sql.Clear;
+    sql.Add('select * from BGFee_Sub where BMID='''+Trim(Order_Main.fieldbyname('BMID').AsString)+'''');
+    Open;
+  end;
+  SCreateCDS20(ADOQueryTemp,ClientDataSet2);
+  SInitCDSData20(ADOQueryTemp,ClientDataSet2);
+  with ADOQueryTemp do
+  begin
+    Close;
+    sql.Clear;
+    sql.Add('select * from BGFee_HuoDai where BMID='''+Trim(Order_Main.fieldbyname('BMID').AsString)+'''');
+    Open;
+  end;
+  SCreateCDS20(ADOQueryTemp,ClientDataSet3);
+  SInitCDSData20(ADOQueryTemp,ClientDataSet3);
+end;
+
+procedure TfrmBGFeeList.OrderNoHZKeyPress(Sender: TObject; var Key: Char);
+begin
+  if Key=#13 then
+  begin
+    if Length(OrderNoHZ.Text)<3 then Exit;
+    try
+      ADOQueryMain.DisableControls;
+      with ADOQueryMain do
+      begin
+        Filtered:=False;
+        Close;
+        SQL.Clear;
+        sql.Add('select A.*,B.* ');
+        sql.Add(',OrderNoHZ=dbo.F_Get_Order_SubStr(A.BMID,''BGOrderNo'')');
+        sql.Add(' from BGFee_Main A  ');
+        sql.Add(' left join BGFee_HuoDai B on A.BMID=B.BMID');
+        SQL.Add('where  1=1');
+        if Trim(DParameters1)<>'高权限'  then
+        begin
+          sql.Add(' and A.Filler in(select UserName from  SY_User where DPID in');
+          sql.Add(' (select DPID from SY_User where UserName='''+Trim(DName)+'''))');
+        end;
+        sql.Add(' and dbo.F_Get_Order_SubStr(A.BMID,''BGOrderNo'') like '''+'%'+Trim(OrderNoHZ.Text)+'%'+'''');
+        if cxTabControl1.TabIndex=0 then
+        begin
+          SQL.Add(' and isnull(SChkTime,'''')='''' ');
+        end else
+        if cxTabControl1.TabIndex=1 then
+        begin
+          SQL.Add(' and isnull(SChkTime,'''')<>'''' ');
+          sql.Add(' and (isnull(SFKDate,'''')<>'''' or isnull(TuiDanChkDate,'''')<>'''')');
+        end  else
+        if cxTabControl1.TabIndex=2 then
+        begin
+          SQL.Add(' and isnull(SChkTime,'''')<>'''' ');
+          sql.Add(' and (isnull(SFKDate,'''')<>'''')');
+        end  else
+        if cxTabControl1.TabIndex=3 then
+        begin
+          SQL.Add(' and isnull(SChkTime,'''')<>'''' ');
+          sql.Add(' and (isnull(TuiDanChkDate,'''')<>'''')');
+        end;
+        Open;
+      end;
+      SCreateCDS20(ADOQueryMain,Order_Main);
+      SInitCDSData20(ADOQueryMain,Order_Main);
+    finally
+      ADOQueryMain.EnableControls;
+    end;
+  end;
+end;
+
+end.

坯布码单待检(PBMDDJ.dll)/U_BGHZSelList.dfm

@@ -0,0 +1,504 @@
+object frmBGHZSelList: TfrmBGHZSelList
+  Left = 83
+  Top = 28
+  Width = 1175
+  Height = 697
+  Align = alClient
+  Caption = #25253#20851#36873#25321
+  Color = clBtnFace
+  Font.Charset = GB2312_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -12
+  Font.Name = #23435#20307
+  Font.Style = []
+  OldCreateOrder = False
+  Position = poScreenCenter
+  OnClose = FormClose
+  OnCreate = FormCreate
+  OnDestroy = FormDestroy
+  OnShow = FormShow
+  PixelsPerInch = 96
+  TextHeight = 12
+  object ToolBar1: TToolBar
+    Left = 0
+    Top = 0
+    Width = 1159
+    AutoSize = True
+    ButtonHeight = 30
+    ButtonWidth = 59
+    Caption = 'ToolBar1'
+    Color = clSkyBlue
+    Flat = True
+    Font.Charset = GB2312_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -12
+    Font.Name = #23435#20307
+    Font.Style = []
+    Images = DataLink_CYZZ.ThreeImgList
+    List = True
+    ParentColor = False
+    ParentFont = False
+    ShowCaptions = True
+    TabOrder = 0
+    object ToolButton2: TToolButton
+      Left = 0
+      Top = 0
+      Caption = #30830#23450
+      ImageIndex = 10
+      OnClick = ToolButton2Click
+    end
+    object TBClose: TToolButton
+      Left = 59
+      Top = 0
+      AutoSize = True
+      Caption = #20851#38381
+      ImageIndex = 21
+      OnClick = TBCloseClick
+    end
+  end
+  object Panel1: TPanel
+    Left = 0
+    Top = 32
+    Width = 1159
+    Height = 41
+    Align = alTop
+    BevelInner = bvRaised
+    BevelOuter = bvLowered
+    Color = clSkyBlue
+    TabOrder = 1
+    object Label9: TLabel
+      Left = 57
+      Top = 15
+      Width = 39
+      Height = 12
+      Caption = #35746#21333#21495
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object OrderNo: TEdit
+      Tag = 2
+      Left = 98
+      Top = 11
+      Width = 183
+      Height = 20
+      TabOrder = 0
+      OnKeyPress = OrderNoKeyPress
+    end
+  end
+  object cxGrid1: TcxGrid
+    Left = 0
+    Top = 360
+    Width = 1159
+    Height = 298
+    Align = alBottom
+    TabOrder = 2
+    object Tv1: TcxGridDBTableView
+      NavigatorButtons.ConfirmDelete = False
+      DataController.DataSource = DataSource1
+      DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoGroupsAlwaysExpanded, dcoImmediatePost]
+      DataController.Summary.DefaultGroupSummaryItems = <
+        item
+          Format = '0'
+          Position = spFooter
+        end
+        item
+          Format = '0'
+          Position = spFooter
+        end
+        item
+          Format = '0'
+          Position = spFooter
+        end
+        item
+          Format = '0'
+          Position = spFooter
+          Column = cxGridDBColumn15
+        end
+        item
+          Kind = skSum
+          Position = spFooter
+          Column = cxGridDBColumn11
+        end
+        item
+          Kind = skSum
+          Position = spFooter
+          Column = cxGridDBColumn13
+        end>
+      DataController.Summary.FooterSummaryItems = <
+        item
+          Kind = skSum
+        end
+        item
+          Kind = skSum
+        end
+        item
+          Kind = skSum
+        end
+        item
+          Kind = skSum
+          Column = cxGridDBColumn16
+        end>
+      DataController.Summary.SummaryGroups = <>
+      OptionsBehavior.FocusCellOnTab = True
+      OptionsBehavior.GoToNextCellOnEnter = True
+      OptionsBehavior.FocusCellOnCycle = True
+      OptionsCustomize.ColumnFiltering = False
+      OptionsView.Footer = True
+      OptionsView.GroupByBox = False
+      OptionsView.GroupFooters = gfAlwaysVisible
+      Styles.Inactive = DataLink_CYZZ.SHuangSe
+      Styles.IncSearch = DataLink_CYZZ.SHuangSe
+      Styles.Selection = DataLink_CYZZ.SHuangSe
+      Styles.Header = DataLink_CYZZ.Default
+      object cxGridDBColumn7: TcxGridDBColumn
+        Caption = #35746#21333#21495
+        DataBinding.FieldName = 'OrderNo'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 93
+      end
+      object cxGridDBColumn8: TcxGridDBColumn
+        Caption = #20844#21496#25260#22836
+        DataBinding.FieldName = 'ComTaiTou'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 78
+      end
+      object v1Column1: TcxGridDBColumn
+        Caption = #20379#24212#21830
+        DataBinding.FieldName = 'FactoryName'
+        HeaderAlignmentHorz = taCenter
+        Width = 92
+      end
+      object cxGridDBColumn10: TcxGridDBColumn
+        Caption = #36153#29992#21517#31216
+        DataBinding.FieldName = 'BFName'
+        PropertiesClassName = 'TcxButtonEditProperties'
+        Properties.Buttons = <
+          item
+            Default = True
+            Kind = bkEllipsis
+          end>
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 72
+      end
+      object cxGridDBColumn11: TcxGridDBColumn
+        Caption = #20844#26020#25968
+        DataBinding.FieldName = 'BFQty'
+        PropertiesClassName = 'TcxTextEditProperties'
+        HeaderAlignmentHorz = taCenter
+        HeaderGlyphAlignmentHorz = taRightJustify
+        Options.Editing = False
+        Width = 63
+      end
+      object cxGridDBColumn12: TcxGridDBColumn
+        Caption = #31859#38271
+        DataBinding.FieldName = 'MLen'
+        PropertiesClassName = 'TcxTextEditProperties'
+        HeaderAlignmentHorz = taCenter
+        HeaderGlyphAlignmentHorz = taRightJustify
+        Options.Editing = False
+        Width = 55
+      end
+      object cxGridDBColumn13: TcxGridDBColumn
+        Caption = #31859#25968
+        DataBinding.FieldName = 'BFMQty'
+        PropertiesClassName = 'TcxTextEditProperties'
+        HeaderAlignmentHorz = taCenter
+        HeaderGlyphAlignmentHorz = taRightJustify
+        Options.Editing = False
+        Width = 52
+      end
+      object cxGridDBColumn14: TcxGridDBColumn
+        Caption = #35745#20215#21333#20301
+        DataBinding.FieldName = 'BFUnit'
+        PropertiesClassName = 'TcxComboBoxProperties'
+        Properties.DropDownListStyle = lsFixedList
+        Properties.Items.Strings = (
+          'M'
+          'KG')
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 62
+      end
+      object cxGridDBColumn15: TcxGridDBColumn
+        Caption = #21333#20215
+        DataBinding.FieldName = 'BFPrice'
+        PropertiesClassName = 'TcxTextEditProperties'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Options.Sorting = False
+        Width = 55
+      end
+      object cxGridDBColumn16: TcxGridDBColumn
+        Caption = #37329#39069
+        DataBinding.FieldName = 'BFMoney'
+        PropertiesClassName = 'TcxTextEditProperties'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 79
+      end
+      object cxGridDBColumn17: TcxGridDBColumn
+        Caption = #24050#21040#21457#31080#37329#39069
+        DataBinding.FieldName = 'FPMoney'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 91
+      end
+      object cxGridDBColumn18: TcxGridDBColumn
+        Caption = #22791#27880
+        DataBinding.FieldName = 'BFNote'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 93
+      end
+    end
+    object cxGridLevel2: TcxGridLevel
+      GridView = Tv1
+    end
+  end
+  object cxSplitter1: TcxSplitter
+    Left = 0
+    Top = 352
+    Width = 1159
+    Height = 8
+    HotZoneClassName = 'TcxMediaPlayer9Style'
+    AlignSplitter = salBottom
+    Control = cxGrid1
+  end
+  object cxGrid6: TcxGrid
+    Left = 0
+    Top = 73
+    Width = 1159
+    Height = 279
+    Align = alClient
+    Font.Charset = GB2312_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -12
+    Font.Name = #23435#20307
+    Font.Style = []
+    ParentFont = False
+    PopupMenu = PopupMenu1
+    TabOrder = 4
+    object Tv6: TcxGridDBTableView
+      NavigatorButtons.ConfirmDelete = False
+      OnCellClick = Tv6CellClick
+      DataController.DataSource = DataSource2
+      DataController.Summary.DefaultGroupSummaryItems = <>
+      DataController.Summary.FooterSummaryItems = <
+        item
+          Kind = skSum
+          Column = v6Column1
+        end
+        item
+          Kind = skSum
+          Column = Tv6Column1
+        end
+        item
+          Kind = skSum
+          Column = v6Column3
+        end
+        item
+          Kind = skSum
+          Column = v6Column8
+        end
+        item
+          Kind = skSum
+          Column = v6Column9
+        end>
+      DataController.Summary.SummaryGroups = <>
+      OptionsCustomize.ColumnFiltering = False
+      OptionsView.Footer = True
+      OptionsView.GroupByBox = False
+      Styles.Inactive = DataLink_CYZZ.SHuangSe
+      Styles.IncSearch = DataLink_CYZZ.SHuangSe
+      Styles.Selection = DataLink_CYZZ.SHuangSe
+      Styles.Header = DataLink_CYZZ.Default
+      object v6Column6: TcxGridDBColumn
+        Caption = #36873#25321
+        DataBinding.FieldName = 'SSel'
+        PropertiesClassName = 'TcxCheckBoxProperties'
+        Properties.ImmediatePost = True
+        Properties.NullStyle = nssUnchecked
+        HeaderAlignmentHorz = taCenter
+        Width = 44
+      end
+      object v6Column5: TcxGridDBColumn
+        Caption = #35746#21333#21495
+        DataBinding.FieldName = 'OrderNo'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 100
+      end
+      object v6Column7: TcxGridDBColumn
+        Caption = #20844#21496#25260#22836
+        DataBinding.FieldName = 'ComTaiTou'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 87
+      end
+      object v6BCOrderNo: TcxGridDBColumn
+        Tag = 99
+        Caption = #35746#21333#35782#21035#21495
+        DataBinding.FieldName = 'BCOrderNo'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 101
+      end
+      object cxGridDBColumn1: TcxGridDBColumn
+        Caption = #20013#25991#21697#21517
+        DataBinding.FieldName = 'BGName'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 138
+      end
+      object v6Column1: TcxGridDBColumn
+        Caption = #20844#26020#25968
+        DataBinding.FieldName = 'NQkgQty'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 57
+      end
+      object Tv6Column1: TcxGridDBColumn
+        Caption = #31859#25968
+        DataBinding.FieldName = 'NQMQty'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 64
+      end
+      object v6Column10: TcxGridDBColumn
+        Caption = #24320#31080#21333#20301
+        DataBinding.FieldName = 'FPDanWei'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 88
+      end
+      object v6Column11: TcxGridDBColumn
+        Caption = #23458#25143
+        DataBinding.FieldName = 'KHName'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 74
+      end
+      object v6Column8: TcxGridDBColumn
+        Caption = #24050#24320#20869#37096#21457#31080#25968#37327
+        DataBinding.FieldName = 'FPQty'
+        Options.Editing = False
+        Width = 116
+      end
+      object v6Column9: TcxGridDBColumn
+        Caption = #24050#24320#20869#37096#21457#31080#37329#39069
+        DataBinding.FieldName = 'FPMoney'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 115
+      end
+      object Tv6Column2: TcxGridDBColumn
+        Caption = #35745#20215#21333#20301
+        DataBinding.FieldName = 'NQUnit'
+        PropertiesClassName = 'TcxComboBoxProperties'
+        Properties.Items.Strings = (
+          'M'
+          'KG')
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 64
+      end
+      object v6Column2: TcxGridDBColumn
+        Caption = #21333#20215'$'
+        DataBinding.FieldName = 'BGPrice'
+        PropertiesClassName = 'TcxTextEditProperties'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 61
+      end
+      object v6Column3: TcxGridDBColumn
+        Caption = #37329#39069'$'
+        DataBinding.FieldName = 'BGMoney'
+        PropertiesClassName = 'TcxTextEditProperties'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 63
+      end
+      object v6Column12: TcxGridDBColumn
+        Caption = #24050#24320#22806#38144#21457#31080#25968#37327
+        DataBinding.FieldName = 'WXFPQty'
+        Options.Editing = False
+        Width = 112
+      end
+      object v6Column13: TcxGridDBColumn
+        Caption = #24050#24320#22806#38144#21457#31080#37329#39069'$'
+        DataBinding.FieldName = 'WXFPMoney'
+        Options.Editing = False
+        Width = 116
+      end
+      object v6Column4: TcxGridDBColumn
+        Caption = #22791#27880
+        DataBinding.FieldName = 'NQNote'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 93
+      end
+    end
+    object cxGridLevel6: TcxGridLevel
+      GridView = Tv6
+    end
+  end
+  object cxGridPopupMenu1: TcxGridPopupMenu
+    PopupMenus = <>
+    Left = 376
+    Top = 326
+  end
+  object ADOQueryMain: TADOQuery
+    Connection = DataLink_CYZZ.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 408
+    Top = 326
+  end
+  object DataSource1: TDataSource
+    DataSet = Order_Main
+    Left = 312
+    Top = 326
+  end
+  object Order_Main: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 344
+    Top = 326
+  end
+  object PopupMenu1: TPopupMenu
+    Left = 264
+    Top = 232
+    object N2: TMenuItem
+      Caption = #20840#36873
+      OnClick = N2Click
+    end
+    object N1: TMenuItem
+      Caption = #20840#24323
+      OnClick = N1Click
+    end
+  end
+  object DataSource2: TDataSource
+    DataSet = CDS_HZ
+    Left = 328
+    Top = 230
+  end
+  object CDS_HZ: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 360
+    Top = 230
+  end
+  object cxGridPopupMenu2: TcxGridPopupMenu
+    Grid = cxGrid6
+    PopupMenus = <>
+    Left = 392
+    Top = 230
+  end
+end

坯布码单待检(PBMDDJ.dll)/U_BGHZSelList.pas

@@ -0,0 +1,206 @@
+unit U_BGHZSelList;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, StdCtrls, ExtCtrls, ComCtrls, ToolWin, cxStyles, cxCustomData,
+  cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, ADODB,
+  cxGridCustomPopupMenu, cxGridPopupMenu, cxGridLevel, cxClasses,
+  cxControls, cxGridCustomView, cxGridCustomTableView, cxGridTableView,
+  cxGridDBTableView, cxGrid, DBClient, cxCheckBox, cxCalendar, cxSplitter,
+  RM_Dataset, RM_System, RM_Common, RM_Class, RM_GridReport, RM_e_Xls,
+  Menus, cxPC, cxButtonEdit, cxTextEdit, cxDropDownEdit;
+
+type
+  TfrmBGHZSelList = class(TForm)
+    ToolBar1: TToolBar;
+    TBClose: TToolButton;
+    cxGridPopupMenu1: TcxGridPopupMenu;
+    ADOQueryMain: TADOQuery;
+    DataSource1: TDataSource;
+    Order_Main: TClientDataSet;
+    PopupMenu1: TPopupMenu;
+    N2: TMenuItem;
+    Panel1: TPanel;
+    Label9: TLabel;
+    OrderNo: TEdit;
+    ToolButton2: TToolButton;
+    N1: TMenuItem;
+    cxGrid1: TcxGrid;
+    Tv1: TcxGridDBTableView;
+    cxGridDBColumn7: TcxGridDBColumn;
+    cxGridDBColumn8: TcxGridDBColumn;
+    cxGridDBColumn10: TcxGridDBColumn;
+    cxGridDBColumn11: TcxGridDBColumn;
+    cxGridDBColumn12: TcxGridDBColumn;
+    cxGridDBColumn13: TcxGridDBColumn;
+    cxGridDBColumn14: TcxGridDBColumn;
+    cxGridDBColumn15: TcxGridDBColumn;
+    cxGridDBColumn16: TcxGridDBColumn;
+    cxGridDBColumn17: TcxGridDBColumn;
+    cxGridDBColumn18: TcxGridDBColumn;
+    cxGridLevel2: TcxGridLevel;
+    DataSource2: TDataSource;
+    CDS_HZ: TClientDataSet;
+    cxGridPopupMenu2: TcxGridPopupMenu;
+    v1Column1: TcxGridDBColumn;
+    cxSplitter1: TcxSplitter;
+    cxGrid6: TcxGrid;
+    Tv6: TcxGridDBTableView;
+    v6BCOrderNo: TcxGridDBColumn;
+    cxGridDBColumn1: TcxGridDBColumn;
+    v6Column1: TcxGridDBColumn;
+    Tv6Column1: TcxGridDBColumn;
+    Tv6Column2: TcxGridDBColumn;
+    v6Column2: TcxGridDBColumn;
+    v6Column3: TcxGridDBColumn;
+    v6Column4: TcxGridDBColumn;
+    cxGridLevel6: TcxGridLevel;
+    v6Column5: TcxGridDBColumn;
+    v6Column6: TcxGridDBColumn;
+    v6Column7: TcxGridDBColumn;
+    v6Column8: TcxGridDBColumn;
+    v6Column9: TcxGridDBColumn;
+    v6Column10: TcxGridDBColumn;
+    v6Column11: TcxGridDBColumn;
+    v6Column12: TcxGridDBColumn;
+    v6Column13: TcxGridDBColumn;
+    procedure FormDestroy(Sender: TObject);
+    procedure FormClose(Sender: TObject; var Action: TCloseAction);
+    procedure FormCreate(Sender: TObject);
+    procedure TBCloseClick(Sender: TObject);
+    procedure FormShow(Sender: TObject);
+    procedure OrderNoKeyPress(Sender: TObject; var Key: Char);
+    procedure ToolButton2Click(Sender: TObject);
+    procedure N2Click(Sender: TObject);
+    procedure N1Click(Sender: TObject);
+    procedure Tv6CellClick(Sender: TcxCustomGridTableView;
+      ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
+      AShift: TShiftState; var AHandled: Boolean);
+  private
+    procedure InitForm();
+    { Private declarations }
+  public
+    FFInt,FCloth:Integer;
+
+    { Public declarations }
+  end;
+
+var
+  frmBGHZSelList: TfrmBGHZSelList;
+
+implementation
+uses
+  U_DataLink,U_ConInPut,U_RTFun;
+
+{$R *.dfm}
+
+procedure TfrmBGHZSelList.FormDestroy(Sender: TObject);
+begin
+  frmBGHZSelList:=nil;
+end;
+
+procedure TfrmBGHZSelList.FormClose(Sender: TObject;
+  var Action: TCloseAction);
+begin
+  Action:=caFree;
+end;
+
+procedure TfrmBGHZSelList.FormCreate(Sender: TObject);
+begin
+  //cxgrid1.Align:=alClient;
+end;
+
+procedure TfrmBGHZSelList.TBCloseClick(Sender: TObject);
+begin
+  Close;
+  WriteCxGrid('报关汇总列表选择',Tv1,'发票管理');
+  WriteCxGrid('报关汇总列表选择1',Tv6,'发票管理');
+end;
+procedure TfrmBGHZSelList.InitForm();
+begin
+  ReadCxGrid('报关汇总列表选择',Tv1,'发票管理');
+  ReadCxGrid('报关汇总列表选择1',Tv6,'发票管理');
+end;
+procedure TfrmBGHZSelList.FormShow(Sender: TObject);
+begin
+  InitForm();
+end;
+
+procedure TfrmBGHZSelList.OrderNoKeyPress(Sender: TObject; var Key: Char);
+begin
+  if Key=#13 then
+  begin
+    if Length(OrderNo.Text)<3 then Exit;
+    try
+      ADOQueryMain.DisableControls;
+      with ADOQueryMain do
+      begin
+        Filtered:=False;
+        Close;
+        SQL.Clear;
+        sql.Add(' select A.*,B.OrderNo,B.ComTaiTou,C.Chker,C.ChkTime,C.ChkStatus,C.BCOrderNo  ');
+        sql.Add(' ,FPMoney=isnull((select Sum(Money) from FP_GYSNB AA where AA.NQID=A.NQID),0)');
+        sql.Add(' ,FPQty=isnull((select Sum(Qty) from FP_GYSNB AA where AA.NQID=A.NQID),0)');
+        sql.Add(',FPDanWei=(select Top 1 GHDanWei from FP_GYSNB AA where AA.NQID=A.NQID)');
+        sql.Add(',KHName=(select CustomerNoName from JYOrder_Main BB where BB.OrderNo=B.OrderNo)');
+        sql.Add(' ,WXFPMoney=isnull((select Sum(Money) from FP_XiaoShou_Sub AA where AA.NQID=A.NQID),0)');
+        sql.Add(' ,WXFPQty=isnull((select Sum(Qty) from FP_XiaoShou_Sub AA where AA.NQID=A.NQID),0)');
+        sql.Add(' from JYOrder_BG_CKName_Qty A  ');
+        sql.Add(' inner join JYOrder_BG_CK C on A.BCId=C.BCId');
+        sql.Add(' inner join JYOrder_BG B on A.BGId=B.BGId');
+        SQL.Add(' where  B.OrderNo like '''+'%'+Trim(OrderNo.Text)+'%'+'''');
+        Open;
+      end;
+      SCreateCDS20(ADOQueryMain,CDS_HZ);
+      SInitCDSData20(ADOQueryMain,CDS_HZ);
+    finally
+      ADOQueryMain.EnableControls;
+    end;
+  end;
+end;
+
+procedure TfrmBGHZSelList.ToolButton2Click(Sender: TObject);
+begin
+  if CDS_HZ.IsEmpty then Exit;
+  if CDS_HZ.Locate('SSel',True,[])=False then
+  begin
+    Application.MessageBox('没有选择数据!','提示',0);
+    Exit;
+  end;
+  ModalResult:=1;
+end;
+
+procedure TfrmBGHZSelList.N2Click(Sender: TObject);
+begin
+  SelOKNo(Order_Main,True);
+end;
+
+procedure TfrmBGHZSelList.N1Click(Sender: TObject);
+begin
+  SelOKNo(Order_Main,False);
+end;
+
+procedure TfrmBGHZSelList.Tv6CellClick(Sender: TcxCustomGridTableView;
+  ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
+  AShift: TShiftState; var AHandled: Boolean);
+begin
+  with ADOQueryMain do
+  begin
+    Filtered:=False;
+    Close;
+    SQL.Clear;
+    sql.Add(' select A.*,B.OrderNo,B.ComTaiTou,C.Chker,C.ChkTime,C.ChkStatus,  ');
+    sql.Add(' FPMoney=(select Sum(Money) from FP_GYSNB AA where AA.BFID=A.BFID)');
+    sql.Add(' from JYOrder_BG_KPFee A  ');
+    sql.Add(' inner join JYOrder_BG_CK C on A.BCId=C.BCId');
+    sql.Add(' inner join JYOrder_BG B on A.BGId=B.BGId');
+    SQL.Add(' where A.BCID='''+Trim(CDS_HZ.fieldbyname('BCID').AsString)+'''');
+    Open;
+  end;
+  SCreateCDS20(ADOQueryMain,Order_Main);
+  SInitCDSData20(ADOQueryMain,Order_Main);
+end;
+
+end.

坯布码单待检(PBMDDJ.dll)/U_BGJCKMXGYSInput.pas

@@ -0,0 +1,977 @@
+unit U_BGJCKMXGYSInput;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, BtnEdit, StdCtrls, ExtCtrls, ComCtrls, ToolWin, cxStyles,
+  cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB,
+  cxDBData, cxGridLevel, cxGridCustomTableView, cxGridTableView,
+  cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid,
+  cxGridCustomPopupMenu, cxGridPopupMenu, DBClient, ADODB, cxButtonEdit,
+  cxCheckBox, cxCalendar, cxDropDownEdit, cxPC, cxTextEdit, cxSplitter;
+
+type
+  TfrmBGJCKMXGYSInput = class(TForm)
+    ToolBar1: TToolBar;
+    TBSave: TToolButton;
+    TBClose: TToolButton;
+    Panel1: TPanel;
+    Panel2: TPanel;
+    ADOQueryTemp: TADOQuery;
+    ADOQueryMain: TADOQuery;
+    ADOQueryCmd: TADOQuery;
+    ADOQuery1: TADOQuery;
+    ClientDataSet7: TClientDataSet;
+    cxGridPopupMenu7: TcxGridPopupMenu;
+    DataSource7: TDataSource;
+    ClientDataSet2: TClientDataSet;
+    cxGridPopupMenu2: TcxGridPopupMenu;
+    DataSource2: TDataSource;
+    Panel3: TPanel;
+    ToolBar2: TToolBar;
+    ToolButton1: TToolButton;
+    ToolButton2: TToolButton;
+    cxGrid2: TcxGrid;
+    Tv2: TcxGridDBTableView;
+    cxGridDBColumn1: TcxGridDBColumn;
+    cxGridDBColumn3: TcxGridDBColumn;
+    cxGridDBColumn4: TcxGridDBColumn;
+    cxGridDBColumn5: TcxGridDBColumn;
+    cxGridDBColumn6: TcxGridDBColumn;
+    cxGridLevel1: TcxGridLevel;
+    Panel4: TPanel;
+    Panel5: TPanel;
+    Label14: TLabel;
+    Panel6: TPanel;
+    ComTaiTou: TEdit;
+    Label2: TLabel;
+    BGDate: TDateTimePicker;
+    v2Column1: TcxGridDBColumn;
+    Label4: TLabel;
+    EditCount: TEdit;
+    CDS_BGName: TClientDataSet;
+    cxGridPopupMenu5: TcxGridPopupMenu;
+    DS_BGName: TDataSource;
+    Label1: TLabel;
+    OrderNo: TEdit;
+    ClientDataSet3: TClientDataSet;
+    cxGridPopupMenu1: TcxGridPopupMenu;
+    DataSource3: TDataSource;
+    cxGridPopupMenu3: TcxGridPopupMenu;
+    ToolBar3: TToolBar;
+    ToolButton3: TToolButton;
+    ToolButton4: TToolButton;
+    cxGrid6: TcxGrid;
+    Tv6: TcxGridDBTableView;
+    cxGridDBColumn10: TcxGridDBColumn;
+    cxGridLevel6: TcxGridLevel;
+    Tv6Column1: TcxGridDBColumn;
+    Label8: TLabel;
+    BCOrderNo: TEdit;
+    v2Column2: TcxGridDBColumn;
+    ClientDataSet6: TClientDataSet;
+    cxGridPopupMenu6: TcxGridPopupMenu;
+    DataSource6: TDataSource;
+    Label12: TLabel;
+    MLenStr: TEdit;
+    cxGrid5: TcxGrid;
+    TVBGName: TcxGridDBTableView;
+    cxGridDBColumn17: TcxGridDBColumn;
+    cxGridDBColumn18: TcxGridDBColumn;
+    cxGridDBColumn30: TcxGridDBColumn;
+    v1Column3: TcxGridDBColumn;
+    cxGridDBColumn24: TcxGridDBColumn;
+    cxGridDBColumn25: TcxGridDBColumn;
+    cxGridLevel4: TcxGridLevel;
+    cxGrid1: TcxGrid;
+    Tv3: TcxGridDBTableView;
+    v3Column1: TcxGridDBColumn;
+    cxGridDBColumn2: TcxGridDBColumn;
+    v3Column8: TcxGridDBColumn;
+    cxGridDBColumn7: TcxGridDBColumn;
+    cxGridDBColumn8: TcxGridDBColumn;
+    cxGridDBColumn9: TcxGridDBColumn;
+    v3Column16: TcxGridDBColumn;
+    v3Column17: TcxGridDBColumn;
+    v3Column18: TcxGridDBColumn;
+    v3Column20: TcxGridDBColumn;
+    v3Column19: TcxGridDBColumn;
+    v3Column4: TcxGridDBColumn;
+    v3Column5: TcxGridDBColumn;
+    Tv3Column2: TcxGridDBColumn;
+    Tv3Column3: TcxGridDBColumn;
+    v3Column6: TcxGridDBColumn;
+    v3Column7: TcxGridDBColumn;
+    v3Column10: TcxGridDBColumn;
+    v3Column11: TcxGridDBColumn;
+    cxGridLevel2: TcxGridLevel;
+    Panel7: TPanel;
+    cxGrid7: TcxGrid;
+    Tv7: TcxGridDBTableView;
+    cxGridDBColumn11: TcxGridDBColumn;
+    cxGridDBColumn12: TcxGridDBColumn;
+    cxGridDBColumn13: TcxGridDBColumn;
+    cxGridDBColumn14: TcxGridDBColumn;
+    cxGridDBColumn15: TcxGridDBColumn;
+    cxGridDBColumn16: TcxGridDBColumn;
+    cxGridLevel3: TcxGridLevel;
+    cxGrid4: TcxGrid;
+    TvFee: TcxGridDBTableView;
+    cxGridDBColumn19: TcxGridDBColumn;
+    cxGridDBColumn20: TcxGridDBColumn;
+    cxGridDBColumn21: TcxGridDBColumn;
+    cxGridDBColumn22: TcxGridDBColumn;
+    cxGridDBColumn23: TcxGridDBColumn;
+    cxGridDBColumn33: TcxGridDBColumn;
+    TvFeeColumn2: TcxGridDBColumn;
+    TvFeeColumn1: TcxGridDBColumn;
+    TvFeeColumn3: TcxGridDBColumn;
+    cxGridDBColumn26: TcxGridDBColumn;
+    cxGridLevel5: TcxGridLevel;
+    DS_Fee: TDataSource;
+    cxGridPopupMenu4: TcxGridPopupMenu;
+    CDS_Fee: TClientDataSet;
+    v2Column3: TcxGridDBColumn;
+    v2Column4: TcxGridDBColumn;
+    cxSplitter1: TcxSplitter;
+    v2Column5: TcxGridDBColumn;
+    v2Column6: TcxGridDBColumn;
+    v2Column7: TcxGridDBColumn;
+    ToolButton5: TToolButton;
+    ClientDataSetJS: TClientDataSet;
+    v6Column1: TcxGridDBColumn;
+    ClientDataSetJS1: TClientDataSet;
+    ToolButton6: TToolButton;
+    Label3: TLabel;
+    ChengJiaoType: TBtnEditA;
+    Label5: TLabel;
+    HaiYunFee: TEdit;
+    Label6: TLabel;
+    BaoFee: TEdit;
+    Label7: TLabel;
+    Label9: TLabel;
+    procedure FormDestroy(Sender: TObject);
+    procedure TBCloseClick(Sender: TObject);
+    procedure FormShow(Sender: TObject);
+    procedure Tv7CellDblClick(Sender: TcxCustomGridTableView;
+      ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
+      AShift: TShiftState; var AHandled: Boolean);
+    procedure cxGridDBColumn2PropertiesButtonClick(Sender: TObject;
+      AButtonIndex: Integer);
+    procedure ToolButton1Click(Sender: TObject);
+    procedure ToolButton2Click(Sender: TObject);
+    procedure TBSaveClick(Sender: TObject);
+    procedure Tv7FocusedRecordChanged(Sender: TcxCustomGridTableView;
+      APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord;
+      ANewItemRecordFocusingChanged: Boolean);
+    procedure cxPageControl1Change(Sender: TObject);
+    procedure Tv7DblClick(Sender: TObject);
+    procedure TVBGNameDblClick(Sender: TObject);
+    procedure cxGridDBColumn1PropertiesButtonClick(Sender: TObject;
+      AButtonIndex: Integer);
+    procedure cxGridDBColumn4PropertiesEditValueChanged(Sender: TObject);
+    procedure ToolButton4Click(Sender: TObject);
+    procedure v2Column2PropertiesButtonClick(Sender: TObject;
+      AButtonIndex: Integer);
+    procedure ToolButton5Click(Sender: TObject);
+    procedure ToolButton6Click(Sender: TObject);
+  private
+    { Private declarations }
+    function SaveData():Boolean;
+    procedure InitGridMD();
+  public
+    { Public declarations }
+    FOrderNo,FBGID,FBCID:String;
+  end;
+
+var
+  frmBGJCKMXGYSInput: TfrmBGJCKMXGYSInput;
+
+implementation
+uses
+  U_DataLink,U_RTFun, U_ZDYHelp, U_ZDYHelpSel,U_ModuleNote, U_GYSList;
+
+{$R *.dfm}
+
+procedure TfrmBGJCKMXGYSInput.FormDestroy(Sender: TObject);
+begin
+  frmBGJCKMXGYSInput:=nil;
+end;
+
+procedure TfrmBGJCKMXGYSInput.TBCloseClick(Sender: TObject);
+begin
+  WriteCxGrid('tv2',Tv2,'报关明细');
+  WriteCxGrid('tv6',Tv6,'报关明细');
+  Close;
+end;
+
+procedure TfrmBGJCKMXGYSInput.FormShow(Sender: TObject);
+begin
+  ReadCxGrid('tv2',Tv2,'报关明细');
+  ReadCxGrid('tv6',Tv6,'报关明细');
+  BGDate.DateTime:=SGetServerDate(ADOQueryTemp);
+  with ADOQueryTemp do
+  begin
+    Close;
+    sql.Clear;
+    sql.Add('select * from JYorder_BG where BGID='''+Trim(FBGID)+'''');
+    Open;
+  end;
+  SCSHDataNew(ADOQueryTemp,Panel5,2);
+  with ADOQueryTemp do
+  begin
+    Close;
+    sql.Clear;
+    sql.Add('select * from JYorder_BG_CK where BCID='''+Trim(FBCID)+'''');
+    Open;
+  end;
+  SCSHDataNew(ADOQueryTemp,Panel2,2);
+  with ADOQueryTemp do
+  begin
+    Close;
+    sql.Clear;
+    sql.Add('select * from JYOrder_BG_Qty where BGID='''+Trim(FBGID)+'''');
+    Open;
+  end;
+  SCreateCDS20(ADOQueryTemp,ClientDataSet7);
+  SInitCDSData20(ADOQueryTemp,ClientDataSet7);
+  with ADOQueryTemp do
+  begin
+    Close;
+    sql.Clear;
+    sql.Add('select * from JYOrder_Main_MD_HZ where BGID='''+Trim(FBGID)+'''');
+    Open;
+  end;
+  SCreateCDS20(ADOQueryTemp,CDS_Fee);
+  SInitCDSData20(ADOQueryTemp,CDS_Fee);
+  with ADOQueryTemp do
+  begin
+    Close;
+    sql.Clear;
+    sql.Add('select * from JYOrder_BG_Name where BGID='''+Trim(FBGID)+'''');
+    Open;
+  end;
+  SCreateCDS20(ADOQueryTemp,CDS_BGName);
+  SInitCDSData20(ADOQueryTemp,CDS_BGName);
+  with ADOQueryTemp do
+  begin
+    Close;
+    sql.Clear;
+    sql.Add('select * from JYOrder_BG_KPFee where BCID='''+Trim(FBCID)+'''');
+    Open;
+  end;
+  SCreateCDS20(ADOQueryTemp,ClientDataSet2);
+  SInitCDSData20(ADOQueryTemp,ClientDataSet2);
+  with ADOQueryTemp do
+  begin
+    Close;
+    sql.Clear;
+    sql.Add('select * from JYOrder_BG_CKName_Qty where BCID='''+Trim(FBCID)+'''');
+    Open;
+  end;
+  SCreateCDS20(ADOQueryTemp,ClientDataSet6);
+  SInitCDSData20(ADOQueryTemp,ClientDataSet6);
+  BCOrderNo.SetFocus;
+end;
+
+procedure TfrmBGJCKMXGYSInput.Tv7CellDblClick(Sender: TcxCustomGridTableView;
+  ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
+  AShift: TShiftState; var AHandled: Boolean);
+begin
+  with ClientDataSet2 do
+  begin
+    Append;
+    FieldByName('PSName').Value:=Trim(ClientDataSet7.fieldbyname('PSName10').AsString);
+    FieldByName('FactoryNo').Value:=Trim(ClientDataSet7.fieldbyname('FactoryNo').AsString);
+    FieldByName('FactoryName').Value:=Trim(ClientDataSet7.fieldbyname('FactoryName').AsString);
+    FieldByName('BQUnit').Value:=Trim(ClientDataSet7.fieldbyname('QtyUnit').AsString);
+    FieldByName('BQPS').Value:=ClientDataSet7.fieldbyname('MDPS').Value;
+    FieldByName('BQQty').Value:=ClientDataSet7.fieldbyname('MDQty').Value;
+    Post;
+  end;
+end;
+
+procedure TfrmBGJCKMXGYSInput.cxGridDBColumn2PropertiesButtonClick(
+  Sender: TObject; AButtonIndex: Integer);
+begin
+  try
+    frmGYSList:=TfrmGYSList.Create(Application);
+    with frmGYSList do
+    begin
+      if ShowModal=1 then
+      begin
+        with ClientDataSet2 do
+        begin
+          edit;
+          FieldByName('FactoryNo').Value:=Trim(frmGYSList.Order_Main.fieldbyname('ZKID').AsString) ;
+          FieldByName('FactoryName').Value:=Trim(frmGYSList.Order_Main.fieldbyname('KHNameJC').AsString);
+          //Post;
+        end;
+      end;
+    end;
+  finally
+    frmGYSList.Free;
+  end;
+end;
+
+procedure TfrmBGJCKMXGYSInput.ToolButton1Click(Sender: TObject);
+begin
+  with ClientDataSet2 do
+  begin
+    Append;
+    if Trim(MLenStr.Text)<>'' then
+    begin
+      FieldByName('MLen').Value:=StrToFloat(MLenStr.Text);
+    end;
+    Post;
+  end;
+end;
+
+procedure TfrmBGJCKMXGYSInput.ToolButton2Click(Sender: TObject);
+begin
+  if ClientDataSet2.IsEmpty then Exit;
+  if Trim(ClientDataSet2.fieldbyname('BFID').AsString)<>'' then
+  begin
+    if Application.MessageBox('确定要删除数据吗？','提示',32+4)<>IDYES then Exit;
+    with ADOQueryCmd do
+    begin
+      Close;
+      sql.Clear;
+      sql.Add('delete JYOrder_BG_KPFee where BFID='''+Trim(ClientDataSet2.fieldbyname('BFID').AsString)+'''');
+      ExecSQL;
+    end;
+  end;
+  ClientDataSet2.Delete;
+end;
+function TfrmBGJCKMXGYSInput.SaveData():Boolean;
+var
+  maxno,maxsubno,maxNQNo:String;
+begin
+  try
+    ADOQueryCmd.Connection.BeginTrans;
+    ///保存主表
+    if Trim(FBCID)='' then
+    begin
+      if GetLSNo(ADOQueryCmd,maxno,'BC','JYOrder_BG_CK',3,1)=False then
+      begin
+        ADOQueryCmd.Connection.RollbackTrans;
+        Application.MessageBox('取最大号失败!','提示',0);
+        Exit;
+      end;
+    end else
+    begin
+      maxno:=Trim(FBCID);
+    end;
+    with ADOQueryCmd do
+    begin
+      Close;
+      sql.Clear;
+      SQL.Add('select * from JYOrder_BG_CK where BCId='''+Trim(FBCID)+'''');
+      Open;
+    end;
+    with ADOQueryCmd do
+    begin
+      if Trim(FBCID)='' then
+      begin
+        Append;
+        FieldByName('Filler').Value:=Trim(DName);
+      end else
+      begin
+        Edit;
+        FieldByName('Editer').Value:=Trim(DName);
+        FieldByName('EditTime').Value:=SGetServerDateTime(ADOQueryTemp);
+      end;
+      FieldByName('BGID').Value:=Trim(FBGID);
+      FieldByName('BCID').Value:=Trim(maxno);
+      RTSetsavedata(ADOQueryCmd,'JYOrder_BG_CK',Panel2,2);
+      Post;
+    end;
+
+    with ADOQueryTemp do
+    begin
+      Close;
+      sql.Clear;
+      sql.Add('select * from JYOrder_BG_CK where BCorderno='''+Trim(BCOrderNo.Text)+'''');
+      sql.Add(' and Valid=''Y'' ');
+      Open;
+    end;
+    if ADOQueryTemp.RecordCount>1 then
+    begin
+      ADOQueryCmd.Connection.RollbackTrans;
+      Application.MessageBox('订单识别号重复!','提示',0);
+      Exit;
+    end;
+
+    ///保存开票费用子表
+    with ClientDataSet2 do
+    begin
+      First;
+      while not Eof do
+      begin
+        if Trim(ClientDataSet2.fieldbyname('BFId').AsString)='' then
+        begin
+          if GetLSNo(ADOQueryCmd,maxsubno,'BF','JYOrder_BG_KPFee',4,1)=False then
+          begin
+            ADOQueryCmd.Connection.RollbackTrans;
+            Application.MessageBox('取子流水号失败！','提示',0);
+            Exit;
+          end;
+        end else
+        begin
+          maxsubno:=Trim(ClientDataSet2.fieldbyname('BFId').AsString);
+        end;
+        with ADOQueryCmd do
+        begin
+          Close;
+          SQL.Clear;
+          sql.Add('select * from JYOrder_BG_KPFee where BFId='''+Trim(maxsubno)+'''');
+          Open;
+        end;
+        with ADOQueryCmd do
+        begin
+          if Trim(ClientDataSet2.fieldbyname('BFId').AsString)='' then
+            Append
+          else
+            Edit;
+          FieldByName('BGId').Value:=Trim(FBGID);
+          FieldByName('BCId').Value:=Trim(maxno);
+          FieldByName('BFId').Value:=Trim(maxsubno);
+          RTSetSaveDataCDS(ADOQueryCmd,Tv2,ClientDataSet2,'JYOrder_BG_KPFee',0);
+          FieldByName('FactoryNo').Value:=ClientDataSet2.fieldbyname('FactoryNo').Value;
+          FieldByName('PSName').Value:=ClientDataSet2.fieldbyname('PSName').Value;
+          Post;
+        end;
+        ClientDataSet2.Edit;
+        ClientDataSet2.FieldByName('BFId').Value:=Trim(maxsubno);
+        //Order_Sub.Post;
+        Next;
+      end;
+    end;
+    ///保存报关名称信息子表
+    with ClientDataSet6 do
+    begin
+      First;
+      while not Eof do
+      begin
+        if Trim(ClientDataSet6.fieldbyname('NQId').AsString)='' then
+        begin
+          if GetLSNo(ADOQueryCmd,maxNQNo,'NQId','JYOrder_BG_CKName_Qty',4,1)=False then
+          begin
+            ADOQueryCmd.Connection.RollbackTrans;
+            Application.MessageBox('取子流水号失败！','提示',0);
+            Exit;
+          end;
+        end else
+        begin
+          maxNQNo:=Trim(ClientDataSet6.fieldbyname('NQId').AsString);
+        end;
+        with ADOQueryCmd do
+        begin
+          Close;
+          SQL.Clear;
+          sql.Add('select * from JYOrder_BG_CKName_Qty where NQId='''+Trim(maxNQNo)+'''');
+          Open;
+        end;
+        with ADOQueryCmd do
+        begin
+          if Trim(ClientDataSet6.fieldbyname('NQId').AsString)='' then
+            Append
+          else
+            Edit;
+          FieldByName('BGId').Value:=Trim(FBGID);
+          FieldByName('BCId').Value:=Trim(maxno);
+          FieldByName('NQId').Value:=Trim(maxNQNo);
+          RTSetSaveDataCDS(ADOQueryCmd,Tv6,ClientDataSet6,'JYOrder_BG_CKName_Qty',0);
+          Post;
+        end;
+        ClientDataSet6.Edit;
+        ClientDataSet6.FieldByName('NQId').Value:=Trim(maxNQNo);
+        //Order_Sub.Post;
+        Next;
+      end;
+    end;
+    ADOQueryCmd.Connection.CommitTrans;
+    Result:=True;
+  except
+    Result:=False;
+    ADOQueryCmd.Connection.RollbackTrans;
+    Application.MessageBox('保存失败！','提示',0);
+  end;
+end;
+
+procedure TfrmBGJCKMXGYSInput.TBSaveClick(Sender: TObject);
+var
+  FReal:Double;//a39978874
+begin
+  ToolBar1.SetFocus;
+  if Trim(BCOrderNo.Text)='' then
+  begin
+    Application.MessageBox('订单识别号不能为空！','提示',0);
+    Exit;
+  end;
+
+  if ClientDataSet2.IsEmpty then
+  begin
+    Application.MessageBox('费用明细不能为空!','提示',0);
+    Exit;
+  end;
+  if ClientDataSet2.Locate('BFName',Null,[])=True then
+  begin
+    Application.MessageBox('费用名称不能为空!','提示',0);
+    Exit;
+  end;
+  if ClientDataSet2.Locate('BFQty',Null,[])=True then
+  begin
+    Application.MessageBox('费用数量不能为空!','提示',0);
+    Exit;
+  end;
+  if ClientDataSet2.Locate('BFPrice',Null,[])=True then
+  begin
+    Application.MessageBox('费用单价不能为空!','提示',0);
+    Exit;
+  end;
+  if ClientDataSet2.Locate('BFUnit',Null,[])=True then
+  begin
+    Application.MessageBox('费用单位不能为空!','提示',0);
+    Exit;
+  end;
+  if ClientDataSet2.Locate('BFMoney',Null,[])=True then
+  begin
+    Application.MessageBox('费用金额不能为空!','提示',0);
+    Exit;
+  end;
+  if ClientDataSet6.IsEmpty then
+  begin
+    Application.MessageBox('报关品名信息不能为空!','提示',0);
+    Exit;
+  end;
+  if SaveData() then
+  begin
+    Application.MessageBox('保存成功！','提示',0);
+    ModalResult:=1;
+  end;
+
+
+end;
+
+procedure TfrmBGJCKMXGYSInput.Tv7FocusedRecordChanged(
+  Sender: TcxCustomGridTableView; APrevFocusedRecord,
+  AFocusedRecord: TcxCustomGridRecord;
+  ANewItemRecordFocusingChanged: Boolean);
+begin
+  InitGridMD();
+end;
+procedure TfrmBGJCKMXGYSInput.InitGridMD();
+var
+  fsj:string;
+begin
+  try
+    ADOQueryTemp.DisableControls;
+    with ADOQueryTemp do
+    begin
+      Close;
+      Filtered:=False;
+      sql.Clear;
+      sql.Add('exec P_View_MD_BGMX :begdate,:enddate,:orderno,:MDType,:WSql');
+      Parameters.ParamByName('begdate').Value:='';
+      Parameters.ParamByName('enddate').Value:='';
+      Parameters.ParamByName('orderno').Value:=Trim(orderNo.Text);
+      Parameters.ParamByName('MDType').Value:='';
+      fsj:=' and isnull(JMM.CKName,'''')='''' ';
+      fsj:=fsj+' and JMM.PSName='''+Trim(ClientDataSet7.fieldbyname('PSName').AsString)+'''';
+      fsj:=fsj+' and JMM.FactoryName='''+Trim(ClientDataSet7.fieldbyname('FactoryName').AsString)+'''';
+      Parameters.ParamByName('WSql').Value:=fsj;
+      Open;
+    end;
+    SCreateCDS20(ADOQueryTemp,ClientDataSet3);
+    SInitCDSData20(ADOQueryTemp,ClientDataSet3);
+  finally
+    ADOQueryTemp.EnableControls;
+  end;
+end;
+
+procedure TfrmBGJCKMXGYSInput.cxPageControl1Change(Sender: TObject);
+begin
+  InitGridMD();
+end;
+
+procedure TfrmBGJCKMXGYSInput.Tv7DblClick(Sender: TObject);
+begin
+  with ClientDataSet2 do
+  begin
+    Append;
+    FieldByName('FactoryName').Value:=ClientDataSet7.fieldbyname('FactoryName').Value;
+    FieldByName('FactoryNo').Value:=ClientDataSet7.fieldbyname('FactoryNo').Value;
+    FieldByName('PSName').Value:=ClientDataSet7.fieldbyname('PSName').Value;
+    if Trim(ClientDataSet7.fieldbyname('BQUnit').AsString)<>'M' then
+    begin
+      FieldByName('BFQty').Value:=ClientDataSet7.fieldbyname('BQQty').Value;
+      if Trim(MLenStr.Text)<>'' then
+      begin
+        FieldByName('BFMQty').Value:=ClientDataSet7.fieldbyname('BQQty').Value*strtofloat(MLenStr.Text);
+      end;
+    end else
+    begin
+      FieldByName('BFMQty').Value:=ClientDataSet7.fieldbyname('BQQty').Value;
+    end;
+    FieldByName('BFUnit').Value:='M';
+    if Trim(MLenStr.Text)<>'' then
+    begin
+      FieldByName('MLen').Value:=StrToFloat(MLenStr.Text);
+    end;
+    Post;
+  end;
+end;
+
+procedure TfrmBGJCKMXGYSInput.TVBGNameDblClick(Sender: TObject);
+begin
+  with ClientDataSet6 do
+  begin
+    Append;
+    FieldByName('BGName').Value:=CDS_BGName.fieldbyname('BGName').Value;
+    Post;
+  end;
+end;
+
+procedure TfrmBGJCKMXGYSInput.cxGridDBColumn1PropertiesButtonClick(
+  Sender: TObject; AButtonIndex: Integer);
+begin
+  try
+    frmZDYHelp:=TfrmZDYHelp.Create(Application);
+    with frmZDYHelp do
+    begin
+      flag:='BFName';
+      flagname:='报关费用名称';
+      if ShowModal=1 then
+      begin
+        with Self.ClientDataSet2 do
+        begin
+          Edit;
+          FieldByName('BFName').Value:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString);
+        end;
+      end;
+    end;
+  finally
+    frmZDYHelp.Free;
+  end;
+end;
+
+procedure TfrmBGJCKMXGYSInput.cxGridDBColumn4PropertiesEditValueChanged(
+  Sender: TObject);
+var
+  mvalue,FName,FPrice,FQty,FMQty,FMoney,FMLen:string;
+begin
+  FName:=Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName);
+  mvalue:=TcxTextEdit(Sender).EditingText;
+  if Trim(mvalue)='' then
+  begin
+    mvalue:='0';
+  end;
+  with ClientDataSet2 do
+  begin
+    Edit;
+    FieldByName(FName).Value:=mvalue;
+    Post;
+  end;
+  FQty:=Trim(ClientDataSet2.fieldbyname('BFQty').AsString);
+  if Trim(FQty)='' then
+  begin
+    FQty:='0';
+  end;
+  FMLen:=Trim(ClientDataSet2.fieldbyname('MLen').AsString);
+  if Trim(FMLen)='' then
+  begin
+    FMLen:='0';
+  end;
+  if (Trim(FName)='MLen') or (Trim(FName)='BFQty') then
+  begin
+    with ClientDataSet2 do
+    begin
+      Edit;
+      FieldByName('BFMQty').Value:=StrToFloat(FQty)*StrToFloat(FMLen);
+      Post;
+    end;
+  end;
+  FPrice:=Trim(ClientDataSet2.fieldbyname('BFPrice').AsString);
+  FQty:=Trim(ClientDataSet2.fieldbyname('BFQty').AsString);
+  FMQty:=Trim(ClientDataSet2.fieldbyname('BFMQty').AsString);
+  FMoney:=Trim(ClientDataSet2.fieldbyname('BFMoney').AsString);
+  if Trim(FPrice)='' then
+  begin
+    FPrice:='0';
+  end;
+  if Trim(FQty)='' then
+  begin
+    FQty:='0';
+  end;
+  if Trim(FMQty)='' then
+  begin
+    FMQty:='0';
+  end;
+  if Trim(FMoney)='' then
+  begin
+    FMoney:='0';
+  end;
+  with ClientDataSet2 do
+  begin
+    Edit;
+    if Trim(FName)='BFPrice' then
+    begin
+      if Trim(ClientDataSet2.fieldbyname('BFUnit').AsString)='M' then
+      begin
+        FieldByName('BFMoney').Value:=StrToFloat(FPrice)*StrToFloat(FMQty);
+      end else
+      begin
+        FieldByName('BFMoney').Value:=StrToFloat(FPrice)*StrToFloat(FQty);
+      end;
+    end else
+    begin
+      if Trim(ClientDataSet2.fieldbyname('BFUnit').AsString)='M' then
+      begin
+        if Trim(FMQty)<>'0' then
+          FieldByName('BFPrice').Value:=StrToFloat(FMoney)*1.00/StrToFloat(FMQty)
+        else
+          FieldByName('BFPrice').Value:=0;
+      end else
+      begin
+        if Trim(FQty)<>'0' then
+          FieldByName('BFPrice').Value:=StrToFloat(FMoney)*1.00/StrToFloat(FQty)
+        else
+          FieldByName('BFPrice').Value:=0;
+      end;
+    end;
+    Post;
+  end;
+end;
+
+procedure TfrmBGJCKMXGYSInput.ToolButton4Click(Sender: TObject);
+begin
+  if ClientDataSet6.IsEmpty then Exit;
+  if Trim(ClientDataSet6.fieldbyname('NQID').AsString)<>'' then
+  begin
+    if Application.MessageBox('确定要删除数据吗？','提示',32+4)<>IDYES then Exit;
+    with ADOQueryCmd do
+    begin
+      Close;
+      sql.Clear;
+      sql.Add('delete JYOrder_BG_CKName_Qty where NQID='''+Trim(ClientDataSet6.fieldbyname('NQID').AsString)+'''');
+      ExecSQL;
+    end;
+  end;
+  ClientDataSet6.Delete;
+end;
+
+procedure TfrmBGJCKMXGYSInput.v2Column2PropertiesButtonClick(Sender: TObject;
+  AButtonIndex: Integer);
+begin
+  try
+    frmGYSList:=TfrmGYSList.Create(Application);
+    with frmGYSList do
+    begin
+      if ShowModal=1 then
+      begin
+        with ClientDataSet2 do
+        begin
+          edit;
+          FieldByName('FactoryNo').Value:=Trim(frmGYSList.Order_Main.fieldbyname('ZKID').AsString) ;
+          FieldByName('FactoryName').Value:=Trim(frmGYSList.Order_Main.fieldbyname('KHNameJC').AsString);
+          //Post;
+        end;
+      end;
+    end;
+  finally
+    frmGYSList.Free;
+  end;
+end;
+
+procedure TfrmBGJCKMXGYSInput.ToolButton5Click(Sender: TObject);
+var
+  Fqty1,Fqty2:string;
+  Qty1,Qty2:Double;
+  i:Integer;
+begin
+  if ClientDataSet2.IsEmpty then Exit;
+  with ADOQueryTemp do
+  begin
+    Close;
+    sql.Clear;
+    sql.Add('select * from JYOrder_BG_KPFee where 1<>1');
+    Open;
+  end;
+  SCreateCDS20(ADOQueryTemp,ClientDataSetJS);
+  SInitCDSData20(ADOQueryTemp,ClientDataSetJS);
+  SCreateCDS20(ADOQueryTemp,ClientDataSetJS1);
+  SInitCDSData20(ADOQueryTemp,ClientDataSetJS1);
+  ClientDataSet2.DisableControls;
+  with ClientDataSet2 do
+  begin
+    First;
+    while not Eof do
+    begin
+      with ClientDataSetJS do
+      begin
+        Append;
+        Post;
+      end;
+      with ClientDataSetJS1 do
+      begin
+        Append;
+        Post;
+      end;
+      for i:=0 to Tv2.ColumnCount-1 do
+      begin
+        with ClientDataSetJS do
+        begin
+          Edit;
+          FieldByName(Tv2.Columns[i].DataBinding.FieldName).Value:=ClientDataSet2.fieldbyname(Tv2.Columns[i].DataBinding.FieldName).Value;
+          Post;
+        end;
+        with ClientDataSetJS1 do
+        begin
+          Edit;
+          FieldByName(Tv2.Columns[i].DataBinding.FieldName).Value:=ClientDataSet2.fieldbyname(Tv2.Columns[i].DataBinding.FieldName).Value;
+          Post;
+        end;
+      end;
+      Next;
+    end;
+  end;
+  ClientDataSet2.EnableControls;
+  ClientDataSet2.DisableControls;
+
+  with ClientDataSet2 do
+  begin
+    First;
+    while not Eof do
+    begin
+      if Trim(ClientDataSet2.FieldByName('PSXH').AsString)<>'' then
+      begin
+        if Trim(ClientDataSet2.FieldByName('PSXH').AsString)<>'1' then
+        begin
+          Qty1:=0;
+          Qty2:=0;
+          with ClientDataSetJS do
+          begin
+            First;
+            while not Eof do
+            begin
+              if ClientDataSetJS.FieldByName('PSXH').AsInteger=ClientDataSet2.FieldByName('PSXH').AsInteger-1 then
+              begin
+                if Trim(ClientDataSetJS.fieldbyname('BFUnit').AsString)='M' then
+                  Qty1:=Qty1+ ClientDataSetJS.FieldByName('BFMQty').AsFloat
+                else
+                  Qty1:=Qty1+ ClientDataSetJS.FieldByName('BFQty').AsFloat;
+              end;
+              Next;
+            end;
+          end;
+          with ClientDataSetJS1 do
+          begin
+            First;
+            while not Eof do
+            begin
+              if ClientDataSetJS1.FieldByName('PSXH').AsInteger=ClientDataSet2.FieldByName('PSXH').AsInteger then
+              begin
+                if Trim(ClientDataSetJS1.fieldbyname('BFUnit').AsString)='M' then
+                  Qty2:=Qty2+ ClientDataSetJS1.FieldByName('BFMQty').AsFloat
+                else
+                  Qty2:=Qty2+ ClientDataSetJS1.FieldByName('BFQty').AsFloat;
+              end;
+              Next;
+            end;
+          end;
+          Edit;
+          FieldByName('PSSHQty').Value:=Qty1-Qty2;
+          Post;
+        end;
+      end;
+      Next;
+    end;
+  end;
+  ClientDataSet2.EnableControls;
+end;
+
+procedure TfrmBGJCKMXGYSInput.ToolButton6Click(Sender: TObject);
+begin
+  if Trim(EditCount.Text)='1' then Exit;
+  if Application.MessageBox('确定要执行复制操作吗？执行此操作后,之前的数据将作废!','提示',32+4)<>IDYES then Exit;
+  with ADOQueryTemp do
+  begin
+    Close;
+    sql.Clear;
+    sql.Add('select * from JYOrder_BG_KPFee where BCID=');
+    sql.Add('(select BCID from JYOrder_BG_CK CK where CK.BCOrderNo='''+Trim(BCOrderNo.Text)+''' and Valid=''Y'' )');
+    Open;
+  end;
+  if ADOQueryTemp.IsEmpty then
+  begin
+    with ADOQueryTemp do
+    begin
+      Close;
+      sql.Clear;
+      sql.Add('select * from JYOrder_BG_KPFee where BCID=');
+      sql.Add('(select Top 1 BCID from JYOrder_BG_CK CK where CK.BCOrderNo='''+Trim(BCOrderNo.Text)+''' order by BCID desc )');
+      Open;
+    end;
+  end;
+  SCreateCDS20(ADOQueryTemp,ClientDataSet2);
+  SInitCDSData20(ADOQueryTemp,ClientDataSet2);
+  with ClientDataSet2 do
+  begin
+    First;
+    while not eof do
+    begin
+      Edit;
+      FieldByName('BFID').Value:='';
+      FieldByName('BCID').Value:='';
+      FieldByName('BGID').Value:='';
+      Post;
+      next;
+    end;
+  end;
+  with ADOQueryTemp do
+  begin
+    Close;
+    sql.Clear;
+    sql.Add('select * from JYOrder_BG_CKName_Qty where BCID=');
+    sql.Add('(select BCID from JYOrder_BG_CK CK where CK.BCOrderNo='''+Trim(BCOrderNo.Text)+''' and Valid=''Y'' )');
+    Open;
+  end;
+  if ADOQueryTemp.IsEmpty then
+  begin
+    with ADOQueryTemp do
+    begin
+      Close;
+      sql.Clear;
+      sql.Add('select * from JYOrder_BG_CKName_Qty where BCID=');
+      sql.Add('(select Top 1 BCID from JYOrder_BG_CK CK where CK.BCOrderNo='''+Trim(BCOrderNo.Text)+''' order by BCID desc )');
+      Open;
+    end;
+  end;
+  SCreateCDS20(ADOQueryTemp,ClientDataSet6);
+  SInitCDSData20(ADOQueryTemp,ClientDataSet6);
+  with ClientDataSet6 do
+  begin
+    First;
+    while not eof do
+    begin
+      Edit;
+      FieldByName('NQID').Value:='';
+      FieldByName('BCID').Value:='';
+      FieldByName('BGID').Value:='';
+      Post;
+      next;
+    end;
+  end;
+  with ADOQueryCmd do
+  begin
+    Close;
+    sql.Clear;
+    sql.Add('Update JYOrder_BG_CK Set Valid=''N'' where BCID=');
+    sql.Add('(select BCID from JYOrder_BG_CK CK where CK.BCOrderNo='''+Trim(BCOrderNo.Text)+''' and Valid=''Y'' )');
+    ExecSQL;
+  end;
+end;
+
+end.

坯布码单待检(PBMDDJ.dll)/U_BGLDChk.pas

@@ -0,0 +1,674 @@
+unit U_BGLDChk; //22
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, ADODB, DB, DBClient, cxGridCustomPopupMenu, cxGridPopupMenu,
+  StdCtrls, ComCtrls, ExtCtrls, ToolWin, cxStyles, cxCustomData,
+  cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, cxDBData,
+  cxCalendar, cxGridLevel, cxGridCustomTableView, cxGridTableView,
+  cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid, cxPC,
+  BtnEdit, cxGridBandedTableView, cxGridDBBandedTableView, cxDropDownEdit,
+  cxButtonEdit, cxTextEdit, cxCheckBox, cxSplitter;
+
+type
+  TfrmBGLDChk = class(TForm)
+    ToolBar1: TToolBar;
+    TBRafresh: TToolButton;
+    TBFind: TToolButton;
+    TBView: TToolButton;
+    ToolButton3: TToolButton;
+    TBClose: TToolButton;
+    Panel1: TPanel;
+    Label1: TLabel;
+    Label3: TLabel;
+    BegDate: TDateTimePicker;
+    EndDate: TDateTimePicker;
+    OrderNo: TEdit;
+    cxGridPopupMenu1: TcxGridPopupMenu;
+    Order_Main: TClientDataSet;
+    DataSource1: TDataSource;
+    ADOQueryTemp: TADOQuery;
+    ADOQueryMain: TADOQuery;
+    ADOQueryCmd: TADOQuery;
+    ADOQueryPrint: TADOQuery;
+    cxPageControl1: TcxPageControl;
+    cxTabSheet1: TcxTabSheet;
+    ClientDataSet7: TClientDataSet;
+    cxGridPopupMenu7: TcxGridPopupMenu;
+    DataSource7: TDataSource;
+    Panel2: TPanel;
+    ClientDataSet2: TClientDataSet;
+    cxGridPopupMenu2: TcxGridPopupMenu;
+    DataSource2: TDataSource;
+    CDS_11: TClientDataSet;
+    cxGridPopupMenu11: TcxGridPopupMenu;
+    DS_11: TDataSource;
+    CDS_19: TClientDataSet;
+    cxGridPopupMenu19: TcxGridPopupMenu;
+    DS_19: TDataSource;
+    cxTabControl1: TcxTabControl;
+    ToolButton1: TToolButton;
+    ToolButton2: TToolButton;
+    Panel4: TPanel;
+    cxGrid1: TcxGrid;
+    Tv1: TcxGridDBTableView;
+    v1OrderNo: TcxGridDBColumn;
+    v1Column2: TcxGridDBColumn;
+    v1CustomerNoName: TcxGridDBColumn;
+    v1MPRTSpec: TcxGridDBColumn;
+    v1Column4: TcxGridDBColumn;
+    cxGrid1Level1: TcxGridLevel;
+    CDS_BGName: TClientDataSet;
+    cxGridPopupMenu5: TcxGridPopupMenu;
+    DSBGName: TDataSource;
+    v1Column5: TcxGridDBColumn;
+    v1Column6: TcxGridDBColumn;
+    v1Column7: TcxGridDBColumn;
+    v1Column8: TcxGridDBColumn;
+    cxGrid5: TcxGrid;
+    TVBGName: TcxGridDBTableView;
+    cxGridDBColumn8: TcxGridDBColumn;
+    v1Column1: TcxGridDBColumn;
+    cxGridDBColumn7: TcxGridDBColumn;
+    v1Column3: TcxGridDBColumn;
+    cxGridDBColumn9: TcxGridDBColumn;
+    cxGridDBColumn10: TcxGridDBColumn;
+    cxGridLevel2: TcxGridLevel;
+    cxPageControl2: TcxPageControl;
+    cxTabSheet2: TcxTabSheet;
+    cxGrid11: TcxGrid;
+    Tv11: TcxGridDBBandedTableView;
+    cxGridDBBandedColumn1: TcxGridDBBandedColumn;
+    cxGridDBBandedColumn2: TcxGridDBBandedColumn;
+    cxGridDBBandedColumn3: TcxGridDBBandedColumn;
+    cxGridDBBandedColumn4: TcxGridDBBandedColumn;
+    cxGridDBBandedColumn5: TcxGridDBBandedColumn;
+    cxGridDBBandedColumn6: TcxGridDBBandedColumn;
+    cxGridDBBandedColumn7: TcxGridDBBandedColumn;
+    cxGridDBBandedColumn8: TcxGridDBBandedColumn;
+    cxGridDBBandedColumn10: TcxGridDBBandedColumn;
+    cxGridDBBandedColumn11: TcxGridDBBandedColumn;
+    cxGridDBBandedColumn12: TcxGridDBBandedColumn;
+    cxGridDBBandedColumn13: TcxGridDBBandedColumn;
+    cxGridLevel7: TcxGridLevel;
+    cxGrid19: TcxGrid;
+    Tv19: TcxGridDBTableView;
+    cxGridDBColumn43: TcxGridDBColumn;
+    Tv19Column1: TcxGridDBColumn;
+    Tv19Column2: TcxGridDBColumn;
+    cxGridLevel10: TcxGridLevel;
+    cxTabSheet3: TcxTabSheet;
+    cxGrid7: TcxGrid;
+    Tv7: TcxGridDBTableView;
+    cxGridDBColumn30: TcxGridDBColumn;
+    cxGridDBColumn34: TcxGridDBColumn;
+    v7Column2: TcxGridDBColumn;
+    cxGridDBColumn32: TcxGridDBColumn;
+    cxGridDBColumn31: TcxGridDBColumn;
+    v7Column1: TcxGridDBColumn;
+    cxGridDBColumn36: TcxGridDBColumn;
+    cxGridLevel5: TcxGridLevel;
+    v1Column9: TcxGridDBColumn;
+    v1Column10: TcxGridDBColumn;
+    v1Column11: TcxGridDBColumn;
+    ToolButton4: TToolButton;
+    Panel3: TPanel;
+    cxGrid3: TcxGrid;
+    TVPrice: TcxGridDBTableView;
+    cxGridDBColumn11: TcxGridDBColumn;
+    cxGridDBColumn13: TcxGridDBColumn;
+    cxGridDBColumn15: TcxGridDBColumn;
+    cxGridLevel3: TcxGridLevel;
+    cxGrid2: TcxGrid;
+    Tv2: TcxGridDBTableView;
+    cxGridDBColumn1: TcxGridDBColumn;
+    cxGridDBColumn2: TcxGridDBColumn;
+    cxGridDBColumn3: TcxGridDBColumn;
+    cxGridDBColumn4: TcxGridDBColumn;
+    cxGridDBColumn5: TcxGridDBColumn;
+    cxGridDBColumn6: TcxGridDBColumn;
+    cxGridLevel1: TcxGridLevel;
+    CDS_Price: TClientDataSet;
+    cxGridPopupMenu3: TcxGridPopupMenu;
+    DataSource3: TDataSource;
+    cxTabSheet4: TcxTabSheet;
+    cxGrid4: TcxGrid;
+    TvFee: TcxGridDBTableView;
+    cxGridDBColumn12: TcxGridDBColumn;
+    cxGridDBColumn14: TcxGridDBColumn;
+    cxGridDBColumn16: TcxGridDBColumn;
+    cxGridDBColumn17: TcxGridDBColumn;
+    cxGridDBColumn18: TcxGridDBColumn;
+    cxGridDBColumn33: TcxGridDBColumn;
+    cxGridDBColumn19: TcxGridDBColumn;
+    cxGridLevel4: TcxGridLevel;
+    TvFeeColumn1: TcxGridDBColumn;
+    TvFeeColumn2: TcxGridDBColumn;
+    TvFeeColumn3: TcxGridDBColumn;
+    vFeeColumn1: TcxGridDBColumn;
+    DS_Fee: TDataSource;
+    cxGridPopupMenu4: TcxGridPopupMenu;
+    CDS_Fee: TClientDataSet;
+    cxTabControl2: TcxTabControl;
+    VPriceColumn1: TcxGridDBColumn;
+    VPriceColumn2: TcxGridDBColumn;
+    cxSplitter1: TcxSplitter;
+    v1Column12: TcxGridDBColumn;
+    v1Column13: TcxGridDBColumn;
+    v1Column14: TcxGridDBColumn;
+    procedure FormDestroy(Sender: TObject);
+    procedure FormClose(Sender: TObject; var Action: TCloseAction);
+    procedure ToolButton3Click(Sender: TObject);
+    procedure TBCloseClick(Sender: TObject);
+    procedure FormShow(Sender: TObject);
+    procedure TBRafreshClick(Sender: TObject);
+    procedure Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView;
+      APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord;
+      ANewItemRecordFocusingChanged: Boolean);
+    procedure cxTabControl1Change(Sender: TObject);
+    procedure ToolButton1Click(Sender: TObject);
+    procedure ToolButton2Click(Sender: TObject);
+    procedure TBViewClick(Sender: TObject);
+    procedure FormCreate(Sender: TObject);
+    procedure Tv11CellClick(Sender: TcxCustomGridTableView;
+      ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
+      AShift: TShiftState; var AHandled: Boolean);
+    procedure ToolButton4Click(Sender: TObject);
+    procedure TBFindClick(Sender: TObject);
+    procedure OrderNoChange(Sender: TObject);
+    procedure Tv2CellClick(Sender: TcxCustomGridTableView;
+      ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
+      AShift: TShiftState; var AHandled: Boolean);
+    procedure TVPriceDblClick(Sender: TObject);
+    procedure cxTabControl2Change(Sender: TObject);
+  private
+    { Private declarations }
+    canshu1,canshu2:string;
+    procedure InitGrid();
+  public
+    { Public declarations }
+  end;
+
+var
+  frmBGLDChk: TfrmBGLDChk;
+
+implementation
+uses
+  U_DataLink,U_RTFun, U_ZDYHelp, U_ZDYHelpSel,U_ModuleNote,
+  U_BGZLInput,U_BGJCKMXInput,U_CWMDOtherFeeList;
+
+{$R *.dfm}
+
+procedure TfrmBGLDChk.FormDestroy(Sender: TObject);
+begin
+  frmBGLDChk:=nil;
+end;
+
+procedure TfrmBGLDChk.FormClose(Sender: TObject;
+  var Action: TCloseAction);
+begin
+  Action:=caFree;
+end;
+
+procedure TfrmBGLDChk.ToolButton3Click(Sender: TObject);
+begin
+  try
+    frmModuleNote:=TfrmModuleNote.Create(Application);
+    with frmModuleNote do
+    begin
+      flag:='报关资料单审核';
+      if ShowModal=1 then
+      begin
+
+      end;
+    end;
+  finally
+    frmModuleNote.Free;
+  end;
+end;
+
+procedure TfrmBGLDChk.TBCloseClick(Sender: TObject);
+begin
+  WriteCxGrid('Tv1',Tv1,'报关管理');
+  WriteCxGrid('Tv2',Tv2,'报关管理');
+
+  Close;
+end;
+
+procedure TfrmBGLDChk.FormShow(Sender: TObject);
+begin
+  EndDate.DateTime:=SGetServerDate(ADOQueryTemp);
+  BegDate.Date:=EndDate.DateTime-30;
+  cxPageControl1.ActivePageIndex:=0;
+  cxTabControl1.TabIndex:=0;
+  InitGrid();
+  ReadCxGrid('Tv1',Tv1,'报关管理');
+  ReadCxGrid('Tv2',Tv2,'报关管理');
+  cxPageControl2.ActivePageIndex:=1;
+end;
+
+procedure TfrmBGLDChk.InitGrid();
+begin
+  try
+    ADOQueryMain.DisableControls;
+    with ADOQueryMain do
+    begin
+      Close;
+      sql.Clear;
+      sql.Add('select * from JYOrder_BG where isnull(ChkStatus,'''')<>'''' ');
+      if cxTabControl1.TabIndex=0 then
+      begin
+        sql.Add(' and isnull(ChkStatus,'''')=''已送审'' ');
+      end else
+      if cxTabControl1.TabIndex=1 then
+      begin
+        sql.Add(' and isnull(ChkStatus,'''')<>''已送审'' ');
+      end;
+      if cxTabControl1.TabIndex<>0 then
+      begin
+        sql.Add(' and FillTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.Date))+'''');
+        sql.Add(' and FillTime<'''+Trim(FormatDateTime('yyyy-MM-dd',EndDate.Date+1))+'''');
+      end;
+      Open;
+    end;
+    SCreateCDS20(ADOQueryMain,Order_Main);
+    SInitCDSData20(ADOQueryMain,Order_Main);
+  finally
+    ADOQueryMain.EnableControls;
+  end;
+end;
+
+procedure TfrmBGLDChk.TBRafreshClick(Sender: TObject);
+begin
+  InitGrid();
+end;
+
+procedure TfrmBGLDChk.Tv1FocusedRecordChanged(
+  Sender: TcxCustomGridTableView; APrevFocusedRecord,
+  AFocusedRecord: TcxCustomGridRecord;
+  ANewItemRecordFocusingChanged: Boolean);
+var
+  FMainId:String;
+begin
+  with ADOQueryTemp do
+  begin
+    Close;
+    sql.Clear;
+    sql.Add('select * from JYOrder_BG_Qty where BGID='''+Trim(Order_Main.fieldbyname('BGID').AsString)+'''');
+    Open;
+  end;
+  SCreateCDS20(ADOQueryTemp,ClientDataSet2);
+  SInitCDSData20(ADOQueryTemp,ClientDataSet2);
+  with ADOQueryTemp do
+  begin
+    Close;
+    sql.Clear;
+    sql.Add('select * from JYOrder_BG_Name where BGID='''+Trim(Order_Main.fieldbyname('BGID').AsString)+'''');
+    Open;
+  end;
+  SCreateCDS20(ADOQueryTemp,CDS_BGName);
+  SInitCDSData20(ADOQueryTemp,CDS_BGName);
+  with ADOQueryTemp do
+  begin
+    Close;
+    sql.Clear;
+    sql.Add('select * from JYOrder_Main where OrderNo='''+Trim(Order_Main.fieldbyname('OrderNo').AsString)+'''');
+    Open;
+  end;
+  FMainId:=Trim(ADOQueryTemp.fieldbyname('MainId').AsString);
+  with  ADOQueryTemp do
+  begin
+    Close;
+    sql.Clear;
+    sql.Add('exec P_View_MDQtyFooter :MainId');
+    Parameters.ParamByName('MainId').Value:=Trim(FMainId);
+    Open;
+  end;
+  SCreateCDS20(ADOQueryTemp,ClientDataSet7);
+  SInitCDSData20(ADOQueryTemp,ClientDataSet7);
+ { with  ADOQueryTemp do
+  begin
+    Close;
+    sql.Clear;
+    sql.Add('select * from JYOrder_Main_Fee where Mainid='''+Trim(FMainId)+'''');
+    if cxTabControl2.TabIndex=0 then
+    begin
+      sql.Add(' and isnull(BGID,'''')='''' ');
+    end else
+    begin
+      sql.Add(' and isnull(BGID,'''')='''+Trim(Order_Main.fieldbyname('BGID').AsString)+'''');
+    end;
+    Open;
+  end;
+  SCreateCDS20(ADOQueryTemp,CDS_Fee);
+  SInitCDSData20(ADOQueryTemp,CDS_Fee);}
+  with  ADOQueryTemp do
+  begin
+    Close;
+    sql.Clear;
+    sql.Add('select * from JYOrder_Main_MD_HZ A where ORDMainId='''+Trim(FMainId)+'''');
+    sql.Add(' and exists(select * from KH_Zdy B where B.ZdyName=A.ItemName and B.Type=''YFName'' and isnull(Note,'''')=''其它费用'' )');
+    if cxTabControl2.TabIndex=0 then
+    begin
+      sql.Add(' and isnull(BGID,'''')='''' ');
+    end else
+    begin
+      sql.Add(' and isnull(BGID,'''')='''+Trim(Order_Main.fieldbyname('BGID').AsString)+'''');
+    end;
+    Open;
+  end;
+  SCreateCDS20(ADOQueryTemp,CDS_Fee);
+  SInitCDSData20(ADOQueryTemp,CDS_Fee);
+  with ADOQueryTemp do
+  begin
+    Close;
+    sql.Clear;
+    sql.Add('select * from JYOrder_BG_CK where BGID='''+Trim(Order_Main.fieldbyname('BGID').AsString)+'''');
+    Open;
+  end;
+  SCreateCDS20(ADOQueryTemp,CDS_11);
+  SInitCDSData20(ADOQueryTemp,CDS_11);
+  with ADOQueryTemp do
+  begin
+    Close;
+    sql.Clear;
+    sql.Add('select * from JYOrder_BG_CKName_Qty where BCID='''+Trim(CDS_11.fieldbyname('BCID').AsString)+'''');
+    Open;
+  end;
+  SCreateCDS20(ADOQueryTemp,CDS_19);
+  SInitCDSData20(ADOQueryTemp,CDS_19);
+  {with ADOQueryTemp do
+  begin
+    Close;
+    sql.Clear;
+    sql.Add('select * from (');
+    sql.Add('select PSName=Cast(A.PSXH As Varchar(20))+'' ''+Cast(A.PSName As Varchar(20)),B.FactoryNo,PSName10=A.PSName,B.FactoryName,sum(QtyFlag*PS) MDPS,Sum(QtyFlag*Qty) MDQty,B.QtyUnit');
+    sql.Add(' from JYOrder_Process A  ');
+    sql.Add(' left join JYOrder_Main_MD B on A.PSID=B.PSID');
+    sql.Add(' inner join JYOrder_Main C on A.Mainid=C.MainId');
+    sql.Add(' where C.OrderNo='''+Trim(Order_Main.fieldbyname('OrderNo').AsString)+'''');
+    sql.Add(' group by A.PSXH,A.PSName,B.FactoryName,B.FactoryNo,B.QtyUnit)AA where MDQty>0 order by PSName');
+    Open;
+  end;
+  SCreateCDS20(ADOQueryTemp,ClientDataSet7);
+  SInitCDSData20(ADOQueryTemp,ClientDataSet7); }
+end;
+
+procedure TfrmBGLDChk.cxTabControl1Change(Sender: TObject);
+begin
+  InitGrid();
+end;
+
+procedure TfrmBGLDChk.ToolButton1Click(Sender: TObject);
+begin
+  if Order_Main.IsEmpty then Exit;
+  if cxTabControl1.TabIndex<>0 then Exit;
+  if Application.MessageBox('确定要执行此操作吗？','提示',32+4)<>IDYES then Exit;
+  with ADOQueryCmd do
+  begin
+    Close;
+    sql.Clear;
+    sql.Add('UPdate JYOrder_BG Set ChkStatus=''审核通过'',ChkTime=getdate(),Chker='''+Trim(DName)+'''');
+    sql.Add(' where BGID='''+Trim(Order_Main.fieldbyname('BGID').AsString)+'''');
+    ExecSQL;
+  end;
+  if cxPageControl2.ActivePageIndex=2 then
+  begin
+    if cxTabControl2.TabIndex=0 then
+    begin
+      with CDS_Fee do
+      begin
+        while Locate('SSel',True,[])=True do
+        begin
+          with ADOQueryCmd do
+          begin
+            Close;
+            sql.Clear;
+            sql.Add('UPdate JYOrder_Main_MD_HZ Set QTChkStatus=''审核通过'',QTChkTime=getdate(),QTChker='''+Trim(DName)+'''');
+            sql.Add(',BGID='''+Trim(Order_Main.fieldbyname('BGID').AsString)+'''');
+            SQL.Add(' where MHID='''+Trim(CDS_Fee.fieldbyname('MHID').AsString)+'''');
+            ExecSQL;
+          end;
+          Edit;
+          FieldByName('SSel').Value:=False;
+          FieldByName('QTChkStatus').Value:='审核通过';
+          FieldByName('QTChkTime').Value:=Now;
+          FieldByName('QTChker').Value:=Trim(DName);
+          Post;
+          CDS_Fee.Delete;
+        end;
+      end;
+    end;
+  end;
+
+  Order_Main.Delete;
+end;
+
+procedure TfrmBGLDChk.ToolButton2Click(Sender: TObject);
+begin
+  if Order_Main.IsEmpty then Exit;
+  if cxTabControl1.TabIndex<>0 then Exit;
+  if Application.MessageBox('确定要执行此操作吗？','提示',32+4)<>IDYES then Exit;
+  with ADOQueryCmd do
+  begin
+    Close;
+    sql.Clear;
+    sql.Add('UPdate JYOrder_BG Set ChkStatus=''审核不通过'',ChkTime=getdate(),Chker='''+Trim(DName)+'''');
+    sql.Add(' where BGID='''+Trim(Order_Main.fieldbyname('BGID').AsString)+'''');
+    ExecSQL;
+  end;
+  Order_Main.Delete;
+end;
+
+procedure TfrmBGLDChk.TBViewClick(Sender: TObject);
+begin
+  if cxPageControl1.ActivePageIndex=0 then
+  begin
+
+    try
+      frmBGZLInput:=TfrmBGZLInput.Create(Application);
+      with frmBGZLInput do
+      begin
+        FBGID:=Trim(Self.Order_Main.fieldbyname('BGID').AsString);
+        FOrderNo:=Trim(Self.Order_Main.fieldbyname('OrderNo').AsString);
+        TBSave.Visible:=False;
+        ToolBar2.Visible:=False;
+        ToolBar3.Visible:=False;
+        if ShowModal=1 then
+        begin
+
+        end;
+      end;
+    finally
+      frmBGZLInput.Free;
+    end;
+  end else
+  if cxPageControl1.ActivePageIndex=1 then
+  begin
+    try
+      frmBGJCKMXInput:=TfrmBGJCKMXInput.Create(Application);
+      with frmBGJCKMXInput do
+      begin
+        FBGID:=Trim(Self.Order_Main.fieldbyname('BGID').AsString);
+        FOrderNo:=Trim(Self.Order_Main.fieldbyname('OrderNo').AsString);
+        if ShowModal=1 then
+        begin
+
+        end;
+      end;
+    finally
+      frmBGJCKMXInput.Free;
+    end;
+  end;
+end;
+
+procedure TfrmBGLDChk.FormCreate(Sender: TObject);
+begin
+  canshu1:=Trim(DParameters1);
+  canshu2:=Trim(DParameters2);
+end;
+
+procedure TfrmBGLDChk.Tv11CellClick(Sender: TcxCustomGridTableView;
+  ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
+  AShift: TShiftState; var AHandled: Boolean);
+begin
+  with ADOQueryTemp do
+  begin
+    Close;
+    sql.Clear;
+    sql.Add('select * from JYOrder_BG_CKName_Qty where BCID='''+Trim(CDS_11.fieldbyname('BCID').AsString)+'''');
+    Open;
+  end;
+  SCreateCDS20(ADOQueryTemp,CDS_19);
+  SInitCDSData20(ADOQueryTemp,CDS_19);
+end;
+
+procedure TfrmBGLDChk.ToolButton4Click(Sender: TObject);
+begin
+  if Order_Main.IsEmpty then Exit;
+  if cxTabControl1.TabIndex<>1 then Exit;
+  if CDS_11.IsEmpty=False then
+  begin
+    Application.MessageBox('已产生数据，不能撤销!','提示',0);
+    Exit;
+  end;
+  if Trim(Order_Main.fieldbyname('Valid').AsString)='N' then
+  begin
+    Application.MessageBox('作废数据不能撤销!','提示',0);
+    Exit;
+  end;
+  if Application.MessageBox('确定要执行此操作吗？','提示',32+4)<>IDYES then Exit;
+  with ADOQueryCmd do
+  begin
+    Close;
+    sql.Clear;
+    sql.Add('UPdate JYOrder_BG Set ChkStatus=''已送审'',ChkTime=Null,Chker=Null ');
+    sql.Add(' where BGID='''+Trim(Order_Main.fieldbyname('BGID').AsString)+'''');
+    ExecSQL;
+  end;
+  if cxPageControl2.ActivePageIndex=2 then
+  begin
+    if cxTabControl2.TabIndex=1 then
+    begin
+      with CDS_Fee do
+      begin
+        while Locate('SSel',True,[])=True do
+        begin
+          with ADOQueryCmd do
+          begin
+            Close;
+            sql.Clear;
+            sql.Add('UPdate JYOrder_Main_MD_HZ Set QTChkStatus='''',QTChkTime=NUll,QTChker='''' ');
+            sql.Add(',BGID='''' ');
+            SQL.Add(' where MHID='''+Trim(CDS_Fee.fieldbyname('MHID').AsString)+'''');
+            ExecSQL;
+          end;
+          Edit;
+          FieldByName('SSel').Value:=False;
+          Post;
+          CDS_Fee.Delete;
+        end;
+      end;
+    end;
+  end;
+  Order_Main.Delete;
+end;
+
+procedure TfrmBGLDChk.TBFindClick(Sender: TObject);
+begin
+  if ADOQueryMain.Active=False then Exit;
+  SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2));
+  SCreateCDS20(ADOQueryMain,Order_Main);
+  SInitCDSData20(ADOQueryMain,Order_Main);
+end;
+
+procedure TfrmBGLDChk.OrderNoChange(Sender: TObject);
+begin
+  TBFind.Click;
+end;
+
+procedure TfrmBGLDChk.Tv2CellClick(Sender: TcxCustomGridTableView;
+  ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
+  AShift: TShiftState; var AHandled: Boolean);
+var
+  fsj:string;
+begin
+  try
+    ADOQueryTemp.DisableControls;
+    with ADOQueryTemp do
+    begin
+      Close;
+      Filtered:=False;
+      sql.Clear;
+      sql.Add('exec P_View_MD_JS :begdate,:enddate,:orderno,:MDType,:WSql');
+      Parameters.ParamByName('begdate').Value:='';
+      Parameters.ParamByName('enddate').Value:='';
+      Parameters.ParamByName('orderno').Value:=Trim(Order_Main.fieldbyname('OrderNo').AsString);
+      Parameters.ParamByName('MDType').Value:='';
+      //fsj:=' and isnull(JMM.CKName,'''')='''' ';
+      fsj:=fsj+' and JMM.PSName='''+Trim(ClientDataSet2.fieldbyname('PSName').AsString)+'''';
+      fsj:=fsj+' and JMM.FactoryName='''+Trim(ClientDataSet2.fieldbyname('FactoryName').AsString)+'''';
+      Parameters.ParamByName('WSql').Value:=fsj;
+      Open;
+    end;
+    SCreateCDS20(ADOQueryTemp,CDS_Price);
+    SInitCDSData20(ADOQueryTemp,CDS_Price);
+  finally
+    ADOQueryTemp.EnableControls;
+  end;
+end;
+
+procedure TfrmBGLDChk.TVPriceDblClick(Sender: TObject);
+begin
+  try
+    frmCWMDOtherFeeList:=TfrmCWMDOtherFeeList.Create(Application);
+    with frmCWMDOtherFeeList do
+    begin
+      orderNo.Text:=Trim(Self.Order_Main.fieldbyname('OrderNo').AsString);
+      PSName.Text:=Trim(Self.ClientDataSet2.fieldbyname('PSName').AsString);
+      MDFactoryName.Text:=Trim(Self.ClientDataSet2.fieldbyname('FactoryName').AsString);
+      FFPInt:=9;
+      if ShowModal=1 then
+      begin
+
+      end;
+    end;
+  finally
+    frmCWMDOtherFeeList.Free;
+  end;
+end;
+
+procedure TfrmBGLDChk.cxTabControl2Change(Sender: TObject);
+var
+  FMainId:String;
+begin
+  with ADOQueryTemp do
+  begin
+    Close;
+    sql.Clear;
+    sql.Add('select * from JYOrder_Main where OrderNo='''+Trim(Order_Main.fieldbyname('OrderNo').AsString)+'''');
+    Open;
+  end;
+  FMainId:=Trim(ADOQueryTemp.fieldbyname('MainId').AsString);
+  with  ADOQueryTemp do
+  begin
+    Close;
+    sql.Clear;
+    sql.Add('select * from JYOrder_Main_MD_HZ A where ORDMainId='''+Trim(FMainId)+'''');
+    sql.Add(' and exists(select * from KH_Zdy B where B.ZdyName=A.ItemName and B.Type=''YFName'' and isnull(Note,'''')=''其它费用'' )');
+    if cxTabControl2.TabIndex=0 then
+    begin
+      sql.Add(' and isnull(BGID,'''')='''' ');
+    end else
+    begin
+      sql.Add(' and isnull(BGID,'''')='''+Trim(Order_Main.fieldbyname('BGID').AsString)+'''');
+    end;
+    Open;
+  end;
+  SCreateCDS20(ADOQueryTemp,CDS_Fee);
+  SInitCDSData20(ADOQueryTemp,CDS_Fee);
+end;
+
+end.

坯布码单待检(PBMDDJ.dll)/U_BGLDManage.pas

@@ -0,0 +1,817 @@
+unit U_BGLDManage; //22
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, ADODB, DB, DBClient, cxGridCustomPopupMenu, cxGridPopupMenu,
+  StdCtrls, ComCtrls, ExtCtrls, ToolWin, cxStyles, cxCustomData,
+  cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, cxDBData,
+  cxCalendar, cxGridLevel, cxGridCustomTableView, cxGridTableView,
+  cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid, cxPC,
+  BtnEdit, cxGridBandedTableView, cxGridDBBandedTableView, cxDropDownEdit,
+  cxCheckBox, Menus, RM_Dataset, RM_Common, RM_Class, RM_e_Xls, RM_System,
+  RM_GridReport;
+
+type
+  TfrmBGLDManage = class(TForm)
+    ToolBar1: TToolBar;
+    TBRafresh: TToolButton;
+    TBFind: TToolButton;
+    TBAdd: TToolButton;
+    TBEdit: TToolButton;
+    TBView: TToolButton;
+    TBDel: TToolButton;
+    TBPrint: TToolButton;
+    ToolButton3: TToolButton;
+    TBClose: TToolButton;
+    Panel1: TPanel;
+    Label1: TLabel;
+    Label3: TLabel;
+    BegDate: TDateTimePicker;
+    EndDate: TDateTimePicker;
+    OrderNo: TEdit;
+    cxGridPopupMenu1: TcxGridPopupMenu;
+    Order_Main: TClientDataSet;
+    DataSource1: TDataSource;
+    ADOQueryTemp: TADOQuery;
+    ADOQueryMain: TADOQuery;
+    ADOQueryCmd: TADOQuery;
+    ADOQueryPrint: TADOQuery;
+    cxPageControl1: TcxPageControl;
+    cxTabSheet1: TcxTabSheet;
+    ClientDataSet7: TClientDataSet;
+    cxGridPopupMenu7: TcxGridPopupMenu;
+    DataSource7: TDataSource;
+    Panel2: TPanel;
+    ClientDataSet2: TClientDataSet;
+    cxGridPopupMenu2: TcxGridPopupMenu;
+    DataSource2: TDataSource;
+    CDS_11: TClientDataSet;
+    cxGridPopupMenu11: TcxGridPopupMenu;
+    DS_11: TDataSource;
+    CDS_19: TClientDataSet;
+    cxGridPopupMenu19: TcxGridPopupMenu;
+    DS_19: TDataSource;
+    cxTabControl1: TcxTabControl;
+    ToolButton1: TToolButton;
+    ToolButton2: TToolButton;
+    ToolButton4: TToolButton;
+    Panel4: TPanel;
+    cxGrid1: TcxGrid;
+    Tv1: TcxGridDBTableView;
+    v1OrderNo: TcxGridDBColumn;
+    v1Column2: TcxGridDBColumn;
+    v1CustomerNoName: TcxGridDBColumn;
+    v1MPRTSpec: TcxGridDBColumn;
+    v1Column4: TcxGridDBColumn;
+    cxGrid1Level1: TcxGridLevel;
+    CDS_BGName: TClientDataSet;
+    cxGridPopupMenu5: TcxGridPopupMenu;
+    DSBGName: TDataSource;
+    v1Column5: TcxGridDBColumn;
+    v1Column6: TcxGridDBColumn;
+    v1Column7: TcxGridDBColumn;
+    v1Column8: TcxGridDBColumn;
+    Panel8: TPanel;
+    cxGrid2: TcxGrid;
+    Tv2: TcxGridDBTableView;
+    cxGridDBColumn1: TcxGridDBColumn;
+    cxGridDBColumn2: TcxGridDBColumn;
+    cxGridDBColumn3: TcxGridDBColumn;
+    cxGridDBColumn4: TcxGridDBColumn;
+    cxGridDBColumn5: TcxGridDBColumn;
+    cxGridDBColumn6: TcxGridDBColumn;
+    cxGridLevel1: TcxGridLevel;
+    cxGrid5: TcxGrid;
+    TVBGName: TcxGridDBTableView;
+    cxGridDBColumn8: TcxGridDBColumn;
+    v1Column1ty: TcxGridDBColumn;
+    cxGridDBColumn7: TcxGridDBColumn;
+    v1Column3: TcxGridDBColumn;
+    cxGridDBColumn9: TcxGridDBColumn;
+    cxGridDBColumn10: TcxGridDBColumn;
+    cxGridLevel2: TcxGridLevel;
+    cxPageControl2: TcxPageControl;
+    cxTabSheet2: TcxTabSheet;
+    cxTabSheet3: TcxTabSheet;
+    cxGrid7: TcxGrid;
+    Tv7: TcxGridDBTableView;
+    cxGridDBColumn30: TcxGridDBColumn;
+    cxGridDBColumn34: TcxGridDBColumn;
+    v7Column2: TcxGridDBColumn;
+    cxGridDBColumn32: TcxGridDBColumn;
+    cxGridDBColumn31: TcxGridDBColumn;
+    v7Column1: TcxGridDBColumn;
+    cxGridDBColumn36: TcxGridDBColumn;
+    cxGridLevel5: TcxGridLevel;
+    v1Column9: TcxGridDBColumn;
+    v1Column10: TcxGridDBColumn;
+    v1Column11: TcxGridDBColumn;
+    cxGrid6: TcxGrid;
+    Tv19: TcxGridDBTableView;
+    cxGridDBColumn11: TcxGridDBColumn;
+    v6Column1: TcxGridDBColumn;
+    Tv19Column1: TcxGridDBColumn;
+    Tv19Column2: TcxGridDBColumn;
+    v6Column2: TcxGridDBColumn;
+    v6Column3: TcxGridDBColumn;
+    v6Column4: TcxGridDBColumn;
+    cxGridLevel3: TcxGridLevel;
+    ToolButton5: TToolButton;
+    cxGrid3: TcxGrid;
+    Tv11: TcxGridDBTableView;
+    cxGridDBColumn12: TcxGridDBColumn;
+    cxGridDBColumn13: TcxGridDBColumn;
+    cxGridDBColumn18: TcxGridDBColumn;
+    cxGridDBColumn19: TcxGridDBColumn;
+    cxGridDBColumn20: TcxGridDBColumn;
+    v11Column1: TcxGridDBColumn;
+    v11Column2: TcxGridDBColumn;
+    v11Column3: TcxGridDBColumn;
+    cxGridLevel4: TcxGridLevel;
+    ToolButton6: TToolButton;
+    v1Column1: TcxGridDBColumn;
+    v1Column12: TcxGridDBColumn;
+    v1Column13: TcxGridDBColumn;
+    v1Column14: TcxGridDBColumn;
+    PopupMenu1: TPopupMenu;
+    N1: TMenuItem;
+    PopupMenu2: TPopupMenu;
+    MenuItem1: TMenuItem;
+    cxGrid12: TcxGrid;
+    Tv12: TcxGridDBTableView;
+    vJCKMXColumn1: TcxGridDBColumn;
+    cxGridDBColumn14: TcxGridDBColumn;
+    cxGridDBColumn15: TcxGridDBColumn;
+    v12Column1: TcxGridDBColumn;
+    v12Column2: TcxGridDBColumn;
+    v12Column3: TcxGridDBColumn;
+    cxGridDBColumn17: TcxGridDBColumn;
+    cxGridDBColumn23: TcxGridDBColumn;
+    cxGridLevel6: TcxGridLevel;
+    ClientDataSet12: TClientDataSet;
+    DataSource12: TDataSource;
+    cxGridPopupMenu12: TcxGridPopupMenu;
+    RM1: TRMGridReport;
+    RMXLSExport1: TRMXLSExport;
+    RMDB12: TRMDBDataSet;
+    RMDB19: TRMDBDataSet;
+    CheckBox1: TCheckBox;
+    CheckBox2: TCheckBox;
+    procedure FormDestroy(Sender: TObject);
+    procedure FormClose(Sender: TObject; var Action: TCloseAction);
+    procedure ToolButton3Click(Sender: TObject);
+    procedure TBAddClick(Sender: TObject);
+    procedure TBCloseClick(Sender: TObject);
+    procedure FormShow(Sender: TObject);
+    procedure TBRafreshClick(Sender: TObject);
+    procedure TBEditClick(Sender: TObject);
+    procedure Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView;
+      APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord;
+      ANewItemRecordFocusingChanged: Boolean);
+    procedure cxTabControl1Change(Sender: TObject);
+    procedure ToolButton1Click(Sender: TObject);
+    procedure TBDelClick(Sender: TObject);
+    procedure ToolButton2Click(Sender: TObject);
+    procedure ToolButton4Click(Sender: TObject);
+    procedure TBViewClick(Sender: TObject);
+    procedure FormCreate(Sender: TObject);
+    procedure Tv11CellClick(Sender: TcxCustomGridTableView;
+      ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
+      AShift: TShiftState; var AHandled: Boolean);
+    procedure TBFindClick(Sender: TObject);
+    procedure OrderNoChange(Sender: TObject);
+    procedure ToolButton5Click(Sender: TObject);
+    procedure ToolButton6Click(Sender: TObject);
+    procedure N1Click(Sender: TObject);
+    procedure MenuItem1Click(Sender: TObject);
+    procedure Tv19CellDblClick(Sender: TcxCustomGridTableView;
+      ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
+      AShift: TShiftState; var AHandled: Boolean);
+    procedure CheckBox1Click(Sender: TObject);
+    procedure CheckBox2Click(Sender: TObject);
+  private
+    { Private declarations }
+    canshu1,canshu2:string;
+    procedure InitGrid();
+  public
+    FSel:String;
+    { Public declarations }
+  end;
+
+var
+  frmBGLDManage: TfrmBGLDManage;
+
+implementation
+uses
+  U_DataLink,U_RTFun, U_ZDYHelp, U_ZDYHelpSel,U_ModuleNote,
+  U_BGZLInput,U_BGJCKMXInput;
+
+{$R *.dfm}
+
+procedure TfrmBGLDManage.FormDestroy(Sender: TObject);
+begin
+  frmBGLDManage:=nil;
+end;
+
+procedure TfrmBGLDManage.FormClose(Sender: TObject;
+  var Action: TCloseAction);
+begin
+  Action:=caFree;
+end;
+
+procedure TfrmBGLDManage.ToolButton3Click(Sender: TObject);
+begin
+  try
+    frmModuleNote:=TfrmModuleNote.Create(Application);
+    with frmModuleNote do
+    begin
+      flag:='报关说明';
+      if ShowModal=1 then
+      begin
+
+      end;
+    end;
+  finally
+    frmModuleNote.Free;
+  end;
+end;
+
+procedure TfrmBGLDManage.TBAddClick(Sender: TObject);
+begin
+  if cxPageControl1.ActivePageIndex=0 then
+  begin
+    try
+      frmBGZLInput:=TfrmBGZLInput.Create(Application);
+      with frmBGZLInput do
+      begin
+        FBGID:='';
+        FOrderNo:='';
+        if ShowModal=1 then
+        begin
+
+        end;
+      end;
+    finally
+      frmBGZLInput.Free;
+    end;
+  end;
+end;
+
+procedure TfrmBGLDManage.TBCloseClick(Sender: TObject);
+begin
+  WriteCxGrid('Tv1',Tv1,'报关管理');
+  WriteCxGrid('Tv2',Tv2,'报关管理');
+
+  Close;
+end;
+
+procedure TfrmBGLDManage.FormShow(Sender: TObject);
+begin
+  EndDate.DateTime:=SGetServerDate(ADOQueryTemp);
+  BegDate.Date:=EndDate.DateTime-30;
+  cxPageControl1.ActivePageIndex:=0;
+  ReadCxGrid('Tv1',Tv1,'报关管理');
+  ReadCxGrid('Tv2',Tv2,'报关管理');
+  if Trim(FSel)='99' then
+  begin
+    cxTabControl1.TabIndex:=3;
+    frmBGLDManage.Align:=alClient;
+  end else
+  begin
+    cxTabControl1.TabIndex:=0;
+  end;
+  InitGrid();
+  cxPageControl2.ActivePageIndex:=0;
+end;
+
+procedure TfrmBGLDManage.InitGrid();
+var
+  fsj:string;
+begin
+  try
+    ADOQueryMain.DisableControls;
+    with ADOQueryMain do
+    begin
+      Close;
+      sql.Clear;
+      sql.Add('select * from JYOrder_BG A where 1=1');
+      if Trim(canshu1)<>'高权限' then
+      begin
+        //sql.Add(' and Filler='''+Trim(DName)+'''');
+        fsj:=' and Filler in(select UserName from  SY_User where DPID in'+
+                                              '(select DPID from SY_User where UserName='''+Trim(DName)+'''))';
+        SQL.Add(fsj);
+      end;
+      if cxTabControl1.TabIndex=0 then
+      begin
+        sql.Add(' and isnull(ChkStatus,'''')='''' ');
+      end else
+      if cxTabControl1.TabIndex=1 then
+      begin
+        sql.Add(' and isnull(ChkStatus,'''')<>'''' ');
+        SQL.Add(' and not exists(select * from JYOrder_BG_CK B where B.BGID=A.BGID and isnull(B.ChkStatus,'''')=''审核通过'' )');
+      end else
+      if cxTabControl1.TabIndex=2 then
+      begin
+        sql.Add(' and isnull(ChkStatus,'''')<>'''' ');
+        SQL.Add(' and exists(select * from JYOrder_BG_CK B where B.BGID=A.BGID and isnull(B.ChkStatus,'''')=''审核通过'' and B.OKFlag=0 )');
+      end else
+      if cxTabControl1.TabIndex=3 then
+      begin
+        sql.Add(' and isnull(ChkStatus,'''')<>'''' ');
+        SQL.Add(' and not exists(select * from JYOrder_BG_CK B where B.BGID=A.BGID and isnull(B.ChkStatus,'''')=''审核通过'' and B.OKFlag=0 )');
+      end;
+      if cxTabControl1.TabIndex<>0 then
+      begin
+        sql.Add(' and FillTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.Date))+'''');
+        sql.Add(' and FillTime<'''+Trim(FormatDateTime('yyyy-MM-dd',EndDate.Date+1))+'''');
+      end;
+      if CheckBox1.Checked=False then
+      begin
+        sql.Add('and isnull(ChkStatus,'''')<>''审核不通过'' ');
+      end;
+      if CheckBox2.Checked=False then
+      begin
+
+        sql.Add('and isnull(Valid,'''')<>''N'' ');
+      end;
+      Open;
+    end;
+    SCreateCDS20(ADOQueryMain,Order_Main);
+    SInitCDSData20(ADOQueryMain,Order_Main);
+  finally
+    ADOQueryMain.EnableControls;
+  end;
+end;
+
+procedure TfrmBGLDManage.TBRafreshClick(Sender: TObject);
+begin
+  InitGrid();
+end;
+
+procedure TfrmBGLDManage.TBEditClick(Sender: TObject);
+begin
+  if cxPageControl1.ActivePageIndex=0 then
+  begin
+    if cxTabControl1.TabIndex<>0 then Exit;
+    if Trim(canshu1)<>'高权限' then
+    begin
+      if Trim(DName)<>Trim(Order_Main.fieldbyname('Filler').AsString) then
+      begin
+        Application.MessageBox('不能操作他人的数据!','提示',0);
+        Exit;
+      end;
+    end;
+    try
+      frmBGZLInput:=TfrmBGZLInput.Create(Application);
+      with frmBGZLInput do
+      begin
+        FBGID:=Trim(Self.Order_Main.fieldbyname('BGID').AsString);
+        FOrderNo:=Trim(Self.Order_Main.fieldbyname('OrderNo').AsString);
+        if ShowModal=1 then
+        begin
+
+        end;
+      end;
+    finally
+      frmBGZLInput.Free;
+    end;
+  end else
+  if cxPageControl1.ActivePageIndex=1 then
+  begin
+    try
+      frmBGJCKMXInput:=TfrmBGJCKMXInput.Create(Application);
+      with frmBGJCKMXInput do
+      begin
+        FBGID:=Trim(Self.Order_Main.fieldbyname('BGID').AsString);
+        FOrderNo:=Trim(Self.Order_Main.fieldbyname('OrderNo').AsString);
+        if ShowModal=1 then
+        begin
+
+        end;
+      end;
+    finally
+      frmBGJCKMXInput.Free;
+    end;
+  end;
+end;
+
+procedure TfrmBGLDManage.Tv1FocusedRecordChanged(
+  Sender: TcxCustomGridTableView; APrevFocusedRecord,
+  AFocusedRecord: TcxCustomGridRecord;
+  ANewItemRecordFocusingChanged: Boolean);
+var
+  FMainId:String;
+begin
+  with ADOQueryTemp do
+  begin
+    Close;
+    sql.Clear;
+    sql.Add('select * from JYOrder_BG_Qty where BGID='''+Trim(Order_Main.fieldbyname('BGID').AsString)+'''');
+    Open;
+  end;
+  SCreateCDS20(ADOQueryTemp,ClientDataSet2);
+  SInitCDSData20(ADOQueryTemp,ClientDataSet2);
+  with ADOQueryTemp do
+  begin
+    Close;
+    sql.Clear;
+    sql.Add('select * from JYOrder_BG_Name where BGID='''+Trim(Order_Main.fieldbyname('BGID').AsString)+'''');
+    Open;
+  end;
+  SCreateCDS20(ADOQueryTemp,CDS_BGName);
+  SInitCDSData20(ADOQueryTemp,CDS_BGName);
+  with ADOQueryTemp do
+  begin
+    Close;
+    sql.Clear;
+    sql.Add('select * from JYOrder_Main where OrderNo='''+Trim(Order_Main.fieldbyname('OrderNo').AsString)+'''');
+    Open;
+  end;
+  FMainId:=Trim(ADOQueryTemp.fieldbyname('MainId').AsString);
+  with  ADOQueryTemp do
+  begin
+    Close;
+    sql.Clear;
+    sql.Add('exec P_View_MDQtyFooter :MainId');
+    Parameters.ParamByName('MainId').Value:=Trim(FMainId);
+    Open;
+  end;
+  SCreateCDS20(ADOQueryTemp,ClientDataSet7);
+  SInitCDSData20(ADOQueryTemp,ClientDataSet7); 
+  with ADOQueryTemp do
+  begin
+    Close;
+    sql.Clear;
+    sql.Add('select * from JYOrder_BG_CK where BGID='''+Trim(Order_Main.fieldbyname('BGID').AsString)+'''');
+    sql.Add(' and isnull(ChkStatus,'''')=''审核通过'' ');
+    Open;
+  end;
+  SCreateCDS20(ADOQueryTemp,CDS_11);
+  SInitCDSData20(ADOQueryTemp,CDS_11);
+  with ADOQueryTemp do
+  begin
+    Close;
+    sql.Clear;
+    sql.Add('select * from JYOrder_BG_CKName_Qty where BCID='''+Trim(CDS_11.fieldbyname('BCID').AsString)+'''');
+    Open;
+  end;
+  SCreateCDS20(ADOQueryTemp,CDS_19);
+  SInitCDSData20(ADOQueryTemp,CDS_19);
+  with ADOQueryTemp do
+  begin
+    Close;
+    sql.Clear;
+    sql.Add('select * from JYOrder_BG_KPFee where BCID='''+Trim(CDS_11.fieldbyname('BCID').AsString)+'''');
+    Open;
+  end;
+  SCreateCDS20(ADOQueryTemp,ClientDataSet12);
+  SInitCDSData20(ADOQueryTemp,ClientDataSet12);
+  {with ADOQueryTemp do
+  begin
+    Close;
+    sql.Clear;
+    sql.Add('select * from (');
+    sql.Add('select PSName=Cast(A.PSXH As Varchar(20))+'' ''+Cast(A.PSName As Varchar(20)),B.FactoryNo,PSName10=A.PSName,B.FactoryName,sum(QtyFlag*PS) MDPS,Sum(QtyFlag*Qty) MDQty,B.QtyUnit');
+    sql.Add(' from JYOrder_Process A  ');
+    sql.Add(' left join JYOrder_Main_MD B on A.PSID=B.PSID');
+    sql.Add(' inner join JYOrder_Main C on A.Mainid=C.MainId');
+    sql.Add(' where C.OrderNo='''+Trim(Order_Main.fieldbyname('OrderNo').AsString)+'''');
+    sql.Add(' group by A.PSXH,A.PSName,B.FactoryName,B.FactoryNo,B.QtyUnit)AA where MDQty>0 order by PSName');
+    Open;
+  end;
+  SCreateCDS20(ADOQueryTemp,ClientDataSet7);
+  SInitCDSData20(ADOQueryTemp,ClientDataSet7); }
+end;
+
+procedure TfrmBGLDManage.cxTabControl1Change(Sender: TObject);
+begin
+  InitGrid();
+end;
+
+procedure TfrmBGLDManage.ToolButton1Click(Sender: TObject);
+begin
+  if Order_Main.IsEmpty then Exit;
+  if cxTabControl1.TabIndex<>0 then Exit;
+  if Application.MessageBox('确定要执行此操作吗？','提示',32+4)<>IDYES then Exit;
+  with ADOQueryCmd do
+  begin
+    Close;
+    sql.Clear;
+    sql.Add('UPdate JYOrder_BG Set ChkStatus=''已送审'',SSTime=getdate() ');
+    sql.Add(' where BGID='''+Trim(Order_Main.fieldbyname('BGID').AsString)+'''');
+    ExecSQL;
+  end;
+  Order_Main.Delete;
+end;
+
+procedure TfrmBGLDManage.TBDelClick(Sender: TObject);
+begin
+  if cxPageControl1.ActivePageIndex<>0 then Exit;
+  if cxTabControl1.TabIndex<>0 then Exit;
+  if Order_Main.IsEmpty then Exit;
+  if Application.MessageBox('确定要删除数据吗？','提示',32+4)<>IDYES then Exit;
+  with ADOQueryCmd do
+  begin
+    Close;
+    sql.Clear;
+    sql.Add('delete JYOrder_BG_Name where BGID='''+Trim(Order_Main.fieldbyname('BGID').AsString)+'''');
+    sql.Add('delete JYOrder_BG_Qty where BGID='''+Trim(Order_Main.fieldbyname('BGID').AsString)+'''');
+    sql.Add('delete JYOrder_BG where BGID='''+Trim(Order_Main.fieldbyname('BGID').AsString)+'''');
+    ExecSQL;
+  end;
+  Order_Main.Delete;
+end;
+
+procedure TfrmBGLDManage.ToolButton2Click(Sender: TObject);
+begin
+  if Order_Main.IsEmpty then Exit;
+  if cxTabControl1.TabIndex<>1 then Exit;
+  {if CDS_11.IsEmpty=False then
+  begin
+    Application.MessageBox('财务已登记数据，不能撤销!','提示',0);
+    Exit;
+  end; }
+  with ADOQueryTemp do
+  begin
+    Close;
+    sql.Clear;
+    sql.Add('select * from JYOrder_BG  ');
+    sql.Add(' where BGID='''+Trim(Order_Main.fieldbyname('BGID').AsString)+'''');
+    sql.Add(' and isnull(ChkStatus,'''')<>'''' ');
+    sql.Add(' and isnull(ChkStatus,'''')<>''已送审'' ');
+    Open;
+  end;
+  if ADOQueryTemp.IsEmpty=False then
+  begin
+    Application.MessageBox('已审核，不能撤销!','提示',0);
+    Exit;
+  end;
+  if Trim(Order_Main.fieldbyname('Valid').AsString)='N' then
+  begin
+    Application.MessageBox('作废数据不能撤销!','提示',0);
+    Exit;
+  end;
+  if Application.MessageBox('确定要执行此操作吗？','提示',32+4)<>IDYES then Exit;
+  with ADOQueryCmd do
+  begin
+    Close;
+    sql.Clear;
+    sql.Add('UPdate JYOrder_BG Set ChkStatus='''',SSTime=Null ');
+    sql.Add(' where BGID='''+Trim(Order_Main.fieldbyname('BGID').AsString)+'''');
+    ExecSQL;
+  end;
+  Order_Main.Delete;
+end;
+
+procedure TfrmBGLDManage.ToolButton4Click(Sender: TObject);
+begin
+  if cxTabControl1.TabIndex>2 then Exit;
+  with ADOQueryTemp do
+  begin
+    Close;
+    sql.Clear;
+    sql.Add('select * from JYOrder_BG where OrderNo='''+Trim(Order_Main.fieldbyname('OrderNo').AsString)+'''');
+    sql.Add(' and isnull(BatchNo,'''')='''+Trim(Order_Main.fieldbyname('BatchNo').AsString)+'''');
+    sql.Add(' and isnull(ChkStatus,'''')='''' ');
+    Open;
+  end;
+  if ADOQueryTemp.IsEmpty=False then
+  begin
+    Application.MessageBox('此订单号有未送审的数据，不能执行复制操作!','提示',0);
+    Exit;
+  end;
+  if Application.MessageBox(Pchar('确定要执行此操作吗？执行此操作后，'+#13+'之前录入的数据将作废!'),'提示',32+4)<>IDYES then Exit;
+  try
+    frmBGZLInput:=TfrmBGZLInput.Create(Application);
+    with frmBGZLInput do
+    begin
+      FCopyInt:=1;
+      FBGID:=Trim(Self.Order_Main.fieldbyname('BGID').AsString);
+      FOrderNo:=Trim(Self.Order_Main.fieldbyname('OrderNo').AsString);
+      if ShowModal=1 then
+      begin
+
+      end;
+    end;
+  finally
+    frmBGZLInput.Free;
+  end;
+end;
+
+procedure TfrmBGLDManage.TBViewClick(Sender: TObject);
+begin
+  if cxPageControl1.ActivePageIndex=0 then
+  begin
+    
+    try
+      frmBGZLInput:=TfrmBGZLInput.Create(Application);
+      with frmBGZLInput do
+      begin
+        FBGID:=Trim(Self.Order_Main.fieldbyname('BGID').AsString);
+        FOrderNo:=Trim(Self.Order_Main.fieldbyname('OrderNo').AsString);
+        TBSave.Visible:=False;
+        ToolBar2.Visible:=False;
+        ToolBar3.Visible:=False;
+        if ShowModal=1 then
+        begin
+
+        end;
+      end;
+    finally
+      frmBGZLInput.Free;
+    end;
+  end else
+  if cxPageControl1.ActivePageIndex=1 then
+  begin
+    try
+      frmBGJCKMXInput:=TfrmBGJCKMXInput.Create(Application);
+      with frmBGJCKMXInput do
+      begin
+        FBGID:=Trim(Self.Order_Main.fieldbyname('BGID').AsString);
+        FOrderNo:=Trim(Self.Order_Main.fieldbyname('OrderNo').AsString);
+        if ShowModal=1 then
+        begin
+
+        end;
+      end;
+    finally
+      frmBGJCKMXInput.Free;
+    end;
+  end;
+end;
+
+procedure TfrmBGLDManage.FormCreate(Sender: TObject);
+begin
+  canshu1:=Trim(DParameters1);
+  canshu2:=Trim(DParameters2);
+end;
+
+procedure TfrmBGLDManage.Tv11CellClick(Sender: TcxCustomGridTableView;
+  ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
+  AShift: TShiftState; var AHandled: Boolean);
+begin
+  with ADOQueryTemp do
+  begin
+    Close;
+    sql.Clear;
+    sql.Add('select * from JYOrder_BG_CKName_Qty where BCID='''+Trim(CDS_11.fieldbyname('BCID').AsString)+'''');
+    Open;
+  end;
+  SCreateCDS20(ADOQueryTemp,CDS_19);
+  SInitCDSData20(ADOQueryTemp,CDS_19);
+  with ADOQueryTemp do
+  begin
+    Close;
+    sql.Clear;
+    sql.Add('select * from JYOrder_BG_KPFee where BCID='''+Trim(CDS_11.fieldbyname('BCID').AsString)+'''');
+    Open;
+  end;
+  SCreateCDS20(ADOQueryTemp,ClientDataSet12);
+  SInitCDSData20(ADOQueryTemp,ClientDataSet12);
+end;
+
+procedure TfrmBGLDManage.TBFindClick(Sender: TObject);
+begin
+  if ADOQueryMain.Active=False then Exit;
+  SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2));
+  SCreateCDS20(ADOQueryMain,Order_Main);
+  SInitCDSData20(ADOQueryMain,Order_Main);
+end;
+
+procedure TfrmBGLDManage.OrderNoChange(Sender: TObject);
+begin
+  TBFind.Click;
+end;
+
+procedure TfrmBGLDManage.ToolButton5Click(Sender: TObject);
+begin
+  if Order_Main.IsEmpty then Exit;
+  if CDS_11.IsEmpty then Exit;
+  if cxTabControl1.TabIndex<>2 then Exit;
+  if cxPageControl2.ActivePageIndex<>0 then exit;
+  if Application.MessageBox('确定要执行此操作吗？','提示',32+4)<>IDYES then Exit;
+  with ADOQueryCmd do
+  begin
+    Close;
+    sql.Clear;
+    sql.Add('UPdate JYOrder_BG_CK Set OKFlag=1,OKTime=getdate(),OKPerson='''+Trim(DName)+'''');
+    sql.Add(' where BCID='''+Trim(CDS_11.fieldbyname('BCID').AsString)+'''');
+    ExecSQL;
+  end;
+  with CDS_11 do
+  begin
+    Edit;
+    FieldByName('OKFlag').Value:=True;
+    FieldByName('OKTime').Value:=Now;
+    FieldByName('OKPerson').Value:=Trim(DName);
+    Post;
+  end;
+end;
+
+procedure TfrmBGLDManage.ToolButton6Click(Sender: TObject);
+begin
+  if Order_Main.IsEmpty then Exit;
+  if CDS_11.IsEmpty then Exit;
+  if cxTabControl1.TabIndex<>3 then Exit;
+  if cxPageControl2.ActivePageIndex<>0 then exit;
+  if Application.MessageBox('确定要执行此操作吗？','提示',32+4)<>IDYES then Exit;
+  with ADOQueryCmd do
+  begin
+    Close;
+    sql.Clear;
+    sql.Add('UPdate JYOrder_BG_CK Set OKFlag=0,OKTime=NUll,OKPerson=Null');
+    sql.Add(' where BCID='''+Trim(CDS_11.fieldbyname('BCID').AsString)+'''');
+    ExecSQL;
+  end;
+  with CDS_11 do
+  begin
+    Edit;
+    FieldByName('OKFlag').Value:=False;
+    FieldByName('OKTime').Value:=Null;
+    FieldByName('OKPerson').Value:='';
+    Post;
+  end;
+end;
+
+procedure TfrmBGLDManage.N1Click(Sender: TObject);
+begin
+  if CDS_19.IsEmpty then Exit;
+  TcxGridToExcel('财务反馈信息',cxGrid6);
+end;
+
+procedure TfrmBGLDManage.MenuItem1Click(Sender: TObject);
+var
+   fPrintFile:string;
+   FMoney,FMQty,FKgQty,FBCID,FPrice:String;
+begin
+  FBCID:=Trim(CDS_11.fieldbyname('BCID').AsString);
+  with ADOQueryTemp do
+  begin
+    Close;
+    sql.Clear;
+    sql.Add('select isnull(sum(BFQty),0) KgQty from JYOrder_BG_KPFee where BCID='''+Trim(FBCID)+'''');
+    sql.Add(' and PSXH=(select Max(PSXH) from JYOrder_BG_KPFee where BCID='''+Trim(FBCID)+''')');
+    open;
+  end;
+  FKgQty:=Trim(ADOQueryTemp.fieldbyname('KgQty').AsString);
+  with ADOQueryTemp do
+  begin
+    Close;
+    sql.Clear;
+    sql.Add('select isnull(sum(BFMQty),0) MQty from JYOrder_BG_KPFee where BCID='''+Trim(FBCID)+'''');
+    sql.Add(' and PSXH=(select Max(PSXH) from JYOrder_BG_KPFee where BCID='''+Trim(FBCID)+''')');
+    open;
+  end;
+  FMQty:=Trim(ADOQueryTemp.fieldbyname('MQty').AsString);
+
+  fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\货物进出口报关明细表LD.rmf';
+  if FileExists(fPrintFile) then
+  begin
+    RMVariables['BCOrderNo']:=CDS_11.fieldbyname('BCOrderNo').Value;
+    RMVariables['BGDate']:=CDS_11.fieldbyname('BGDate').Value;
+    RMVariables['FMQty']:=FMQty;
+    RMVariables['FKgQty']:=FKgQty;
+    RMVariables['FPrice']:=FPrice;
+    RMVariables['HaiYunFee']:=Order_Main.fieldbyname('HaiYunFee').Value;
+    RMVariables['BaoFee']:=Order_Main.fieldbyname('BaoFee').Value;
+    RMVariables['YunDiG']:=Order_Main.fieldbyname('YunDiG').Value;
+    RMVariables['ChuKouKA']:=Order_Main.fieldbyname('ChuKouKA').Value;
+    RMVariables['HuoYuanPlace']:=Order_Main.fieldbyname('HuoYuanPlace').Value;
+    RMVariables['ChengJiaoType']:=Order_Main.fieldbyname('ChengJiaoType').Value;
+    RMVariables['ComTaiTou']:=Order_Main.fieldbyname('ComTaiTou').Value;
+
+    RM1.LoadFromFile(fPrintFile);
+    RM1.ShowReport;
+  end else
+  begin
+    Application.MessageBox(PChar('没有找'+ExtractFilePath(Application.ExeName)+'Report\货物进出口报关明细表LD.rmf'),'提示',0);
+  end;  
+ // Panel4.Visible:=True;
+end;
+
+procedure TfrmBGLDManage.Tv19CellDblClick(Sender: TcxCustomGridTableView;
+  ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
+  AShift: TShiftState; var AHandled: Boolean);
+begin
+  if CDS_19.IsEmpty then Exit;
+  if Trim(FSel)='99' then
+  begin
+    CDS_BGName.Locate('BGName',Trim(CDS_19.fieldbyname('BGName').AsString),[]);
+    ModalResult:=1;
+  end;
+end;
+
+procedure TfrmBGLDManage.CheckBox1Click(Sender: TObject);
+begin
+  InitGrid();
+end;
+
+procedure TfrmBGLDManage.CheckBox2Click(Sender: TObject);
+begin
+  InitGrid();
+end;
+
+end.

坯布码单待检(PBMDDJ.dll)/U_BGMXSelList.dfm

@@ -0,0 +1,355 @@
+object frmBGMXSelList: TfrmBGMXSelList
+  Left = 68
+  Top = 11
+  Width = 1175
+  Height = 697
+  Align = alClient
+  Caption = #25253#20851#26126#32454#36873#25321
+  Color = clBtnFace
+  Font.Charset = GB2312_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -12
+  Font.Name = #23435#20307
+  Font.Style = []
+  OldCreateOrder = False
+  Position = poScreenCenter
+  OnClose = FormClose
+  OnCreate = FormCreate
+  OnDestroy = FormDestroy
+  OnShow = FormShow
+  PixelsPerInch = 96
+  TextHeight = 12
+  object ToolBar1: TToolBar
+    Left = 0
+    Top = 0
+    Width = 1159
+    AutoSize = True
+    ButtonHeight = 30
+    ButtonWidth = 59
+    Caption = 'ToolBar1'
+    Color = clSkyBlue
+    Flat = True
+    Font.Charset = GB2312_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -12
+    Font.Name = #23435#20307
+    Font.Style = []
+    Images = DataLink_CYZZ.ThreeImgList
+    List = True
+    ParentColor = False
+    ParentFont = False
+    ShowCaptions = True
+    TabOrder = 0
+    object ToolButton2: TToolButton
+      Left = 0
+      Top = 0
+      Caption = #30830#23450
+      ImageIndex = 10
+      OnClick = ToolButton2Click
+    end
+    object TBClose: TToolButton
+      Left = 59
+      Top = 0
+      AutoSize = True
+      Caption = #20851#38381
+      ImageIndex = 21
+      OnClick = TBCloseClick
+    end
+  end
+  object Panel1: TPanel
+    Left = 0
+    Top = 32
+    Width = 1159
+    Height = 41
+    Align = alTop
+    BevelInner = bvRaised
+    BevelOuter = bvLowered
+    Color = clSkyBlue
+    TabOrder = 1
+    object Label9: TLabel
+      Left = 57
+      Top = 15
+      Width = 39
+      Height = 12
+      Caption = #35746#21333#21495
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object OrderNo: TEdit
+      Tag = 2
+      Left = 98
+      Top = 11
+      Width = 183
+      Height = 20
+      TabOrder = 0
+      OnKeyPress = OrderNoKeyPress
+    end
+  end
+  object cxGrid1: TcxGrid
+    Left = 0
+    Top = 73
+    Width = 1159
+    Height = 585
+    Align = alClient
+    TabOrder = 2
+    object Tv1: TcxGridDBTableView
+      NavigatorButtons.ConfirmDelete = False
+      DataController.DataSource = DataSource1
+      DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoGroupsAlwaysExpanded, dcoImmediatePost]
+      DataController.Summary.DefaultGroupSummaryItems = <
+        item
+          Format = '0'
+          Position = spFooter
+        end
+        item
+          Format = '0'
+          Position = spFooter
+        end
+        item
+          Format = '0'
+          Position = spFooter
+        end
+        item
+          Format = '0'
+          Position = spFooter
+          Column = cxGridDBColumn4
+        end
+        item
+          Kind = skSum
+          Position = spFooter
+          Column = cxGridDBColumn3
+        end
+        item
+          Kind = skSum
+          Position = spFooter
+          Column = v2Column4
+        end>
+      DataController.Summary.FooterSummaryItems = <
+        item
+          Kind = skSum
+        end
+        item
+          Kind = skSum
+        end
+        item
+          Kind = skSum
+        end
+        item
+          Kind = skSum
+          Column = v2Column1
+        end>
+      DataController.Summary.SummaryGroups = <>
+      OptionsBehavior.FocusCellOnTab = True
+      OptionsBehavior.GoToNextCellOnEnter = True
+      OptionsBehavior.FocusCellOnCycle = True
+      OptionsCustomize.ColumnFiltering = False
+      OptionsView.Footer = True
+      OptionsView.GroupByBox = False
+      OptionsView.GroupFooters = gfAlwaysVisible
+      Styles.Inactive = DataLink_CYZZ.SHuangSe
+      Styles.IncSearch = DataLink_CYZZ.SHuangSe
+      Styles.Selection = DataLink_CYZZ.SHuangSe
+      Styles.Header = DataLink_CYZZ.Default
+      object v2Column5: TcxGridDBColumn
+        Caption = #36873#25321
+        DataBinding.FieldName = 'SSel'
+        PropertiesClassName = 'TcxCheckBoxProperties'
+        Properties.ImmediatePost = True
+        Properties.NullStyle = nssUnchecked
+        HeaderAlignmentHorz = taCenter
+        Width = 45
+      end
+      object v2Column6: TcxGridDBColumn
+        Caption = #35746#21333#21495
+        DataBinding.FieldName = 'OrderNo'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 93
+      end
+      object v2Column7: TcxGridDBColumn
+        Caption = #20844#21496#25260#22836
+        DataBinding.FieldName = 'ComTaiTou'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 72
+      end
+      object v2Column2: TcxGridDBColumn
+        Caption = #20379#24212#21830
+        DataBinding.FieldName = 'FactoryName'
+        PropertiesClassName = 'TcxButtonEditProperties'
+        Properties.Buttons = <
+          item
+            Default = True
+            Kind = bkEllipsis
+          end>
+        Properties.ReadOnly = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 78
+      end
+      object cxGridDBColumn1: TcxGridDBColumn
+        Caption = #36153#29992#21517#31216
+        DataBinding.FieldName = 'BFName'
+        PropertiesClassName = 'TcxButtonEditProperties'
+        Properties.Buttons = <
+          item
+            Default = True
+            Kind = bkEllipsis
+          end>
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 72
+      end
+      object cxGridDBColumn3: TcxGridDBColumn
+        Caption = #20844#26020#25968
+        DataBinding.FieldName = 'BFQty'
+        PropertiesClassName = 'TcxTextEditProperties'
+        HeaderAlignmentHorz = taCenter
+        HeaderGlyphAlignmentHorz = taRightJustify
+        Options.Editing = False
+        Width = 63
+      end
+      object v2Column3: TcxGridDBColumn
+        Caption = #31859#38271
+        DataBinding.FieldName = 'MLen'
+        PropertiesClassName = 'TcxTextEditProperties'
+        HeaderAlignmentHorz = taCenter
+        HeaderGlyphAlignmentHorz = taRightJustify
+        Options.Editing = False
+        Width = 55
+      end
+      object v2Column4: TcxGridDBColumn
+        Caption = #31859#25968
+        DataBinding.FieldName = 'BFMQty'
+        PropertiesClassName = 'TcxTextEditProperties'
+        HeaderAlignmentHorz = taCenter
+        HeaderGlyphAlignmentHorz = taRightJustify
+        Options.Editing = False
+        Width = 52
+      end
+      object cxGridDBColumn5: TcxGridDBColumn
+        Caption = #35745#20215#21333#20301
+        DataBinding.FieldName = 'BFUnit'
+        PropertiesClassName = 'TcxComboBoxProperties'
+        Properties.DropDownListStyle = lsFixedList
+        Properties.Items.Strings = (
+          'M'
+          'KG')
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 62
+      end
+      object cxGridDBColumn4: TcxGridDBColumn
+        Caption = #21333#20215
+        DataBinding.FieldName = 'BFPrice'
+        PropertiesClassName = 'TcxTextEditProperties'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Options.Sorting = False
+        Width = 55
+      end
+      object v2Column1: TcxGridDBColumn
+        Caption = #37329#39069
+        DataBinding.FieldName = 'BFMoney'
+        PropertiesClassName = 'TcxTextEditProperties'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 79
+      end
+      object v1Column4: TcxGridDBColumn
+        Caption = #24050#21040#21457#31080#37329#39069
+        DataBinding.FieldName = 'FPMoney'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 91
+      end
+      object cxGridDBColumn6: TcxGridDBColumn
+        Caption = #22791#27880
+        DataBinding.FieldName = 'BFNote'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 93
+      end
+      object v1Column1: TcxGridDBColumn
+        Caption = #23457#26680#20154
+        DataBinding.FieldName = 'Chker'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 60
+      end
+      object v1Column2: TcxGridDBColumn
+        Caption = #23457#26680#26102#38388
+        DataBinding.FieldName = 'ChkTime'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 62
+      end
+      object v1Column3: TcxGridDBColumn
+        Caption = #23457#26680#29366#24577
+        DataBinding.FieldName = 'ChkStatus'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 60
+      end
+    end
+    object cxGridLevel1: TcxGridLevel
+      GridView = Tv1
+    end
+  end
+  object cxGridPopupMenu1: TcxGridPopupMenu
+    Grid = cxGrid1
+    PopupMenus = <>
+    Left = 376
+    Top = 326
+  end
+  object ADOQueryMain: TADOQuery
+    Connection = DataLink_CYZZ.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 408
+    Top = 326
+  end
+  object DataSource1: TDataSource
+    DataSet = Order_Main
+    Left = 312
+    Top = 326
+  end
+  object Order_Main: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 344
+    Top = 326
+  end
+  object PopupMenu1: TPopupMenu
+    Left = 264
+    Top = 232
+    object N2: TMenuItem
+      Caption = #20840#36873
+      OnClick = N2Click
+    end
+    object N1: TMenuItem
+      Caption = #20840#24323
+      OnClick = N1Click
+    end
+  end
+  object DataSource2: TDataSource
+    DataSet = CDS_HZ
+    Left = 328
+    Top = 230
+  end
+  object CDS_HZ: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 360
+    Top = 230
+  end
+  object cxGridPopupMenu2: TcxGridPopupMenu
+    PopupMenus = <>
+    Left = 392
+    Top = 230
+  end
+end

坯布码单待检(PBMDDJ.dll)/U_BGMXSelList.pas

@@ -0,0 +1,158 @@
+unit U_BGMXSelList;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, StdCtrls, ExtCtrls, ComCtrls, ToolWin, cxStyles, cxCustomData,
+  cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, ADODB,
+  cxGridCustomPopupMenu, cxGridPopupMenu, cxGridLevel, cxClasses,
+  cxControls, cxGridCustomView, cxGridCustomTableView, cxGridTableView,
+  cxGridDBTableView, cxGrid, DBClient, cxCheckBox, cxCalendar, cxSplitter,
+  RM_Dataset, RM_System, RM_Common, RM_Class, RM_GridReport, RM_e_Xls,
+  Menus, cxPC, cxButtonEdit, cxTextEdit, cxDropDownEdit;
+
+type
+  TfrmBGMXSelList = class(TForm)
+    ToolBar1: TToolBar;
+    TBClose: TToolButton;
+    cxGridPopupMenu1: TcxGridPopupMenu;
+    ADOQueryMain: TADOQuery;
+    DataSource1: TDataSource;
+    Order_Main: TClientDataSet;
+    PopupMenu1: TPopupMenu;
+    N2: TMenuItem;
+    Panel1: TPanel;
+    Label9: TLabel;
+    OrderNo: TEdit;
+    ToolButton2: TToolButton;
+    N1: TMenuItem;
+    cxGrid1: TcxGrid;
+    Tv1: TcxGridDBTableView;
+    v2Column2: TcxGridDBColumn;
+    cxGridDBColumn1: TcxGridDBColumn;
+    cxGridDBColumn3: TcxGridDBColumn;
+    v2Column3: TcxGridDBColumn;
+    v2Column4: TcxGridDBColumn;
+    cxGridDBColumn5: TcxGridDBColumn;
+    cxGridDBColumn4: TcxGridDBColumn;
+    v2Column1: TcxGridDBColumn;
+    cxGridDBColumn6: TcxGridDBColumn;
+    cxGridLevel1: TcxGridLevel;
+    v2Column6: TcxGridDBColumn;
+    v2Column7: TcxGridDBColumn;
+    v1Column1: TcxGridDBColumn;
+    v1Column2: TcxGridDBColumn;
+    v1Column3: TcxGridDBColumn;
+    v1Column4: TcxGridDBColumn;
+    DataSource2: TDataSource;
+    CDS_HZ: TClientDataSet;
+    cxGridPopupMenu2: TcxGridPopupMenu;
+    v2Column5: TcxGridDBColumn;
+    procedure FormDestroy(Sender: TObject);
+    procedure FormClose(Sender: TObject; var Action: TCloseAction);
+    procedure FormCreate(Sender: TObject);
+    procedure TBCloseClick(Sender: TObject);
+    procedure FormShow(Sender: TObject);
+    procedure OrderNoKeyPress(Sender: TObject; var Key: Char);
+    procedure ToolButton2Click(Sender: TObject);
+    procedure N2Click(Sender: TObject);
+    procedure N1Click(Sender: TObject);
+  private
+    procedure InitForm();
+    { Private declarations }
+  public
+    FFInt,FCloth:Integer;
+
+    { Public declarations }
+  end;
+
+var
+  frmBGMXSelList: TfrmBGMXSelList;
+
+implementation
+uses
+  U_DataLink,U_ConInPut,U_RTFun;
+
+{$R *.dfm}
+
+procedure TfrmBGMXSelList.FormDestroy(Sender: TObject);
+begin
+  frmBGMXSelList:=nil;
+end;
+
+procedure TfrmBGMXSelList.FormClose(Sender: TObject;
+  var Action: TCloseAction);
+begin
+  Action:=caFree;
+end;
+
+procedure TfrmBGMXSelList.FormCreate(Sender: TObject);
+begin
+  cxgrid1.Align:=alClient;
+end;
+
+procedure TfrmBGMXSelList.TBCloseClick(Sender: TObject);
+begin
+  Close;
+  WriteCxGrid('报关明细列表选择1',Tv1,'发票管理');
+end;
+procedure TfrmBGMXSelList.InitForm();
+begin
+  ReadCxGrid('报关明细列表选择1',Tv1,'发票管理');
+end;
+procedure TfrmBGMXSelList.FormShow(Sender: TObject);
+begin
+  InitForm();
+end;
+
+procedure TfrmBGMXSelList.OrderNoKeyPress(Sender: TObject; var Key: Char);
+begin
+  if Key=#13 then
+  begin
+    if Length(OrderNo.Text)<3 then Exit;
+    try
+      ADOQueryMain.DisableControls;
+      with ADOQueryMain do
+      begin
+        Filtered:=False;
+        Close;
+        SQL.Clear;
+        sql.Add(' select A.*,B.OrderNo,B.ComTaiTou,C.Chker,C.ChkTime,C.ChkStatus,  ');
+        sql.Add(' FPMoney=(select Sum(Money) from FP_GYSNB AA where AA.BFID=A.BFID)');
+        sql.Add(' from JYOrder_BG_KPFee A  ');
+        sql.Add(' inner join JYOrder_BG_CK C on A.BCId=C.BCId');
+        sql.Add(' inner join JYOrder_BG B on A.BGId=B.BGId');
+        SQL.Add(' where  B.OrderNo like '''+'%'+Trim(OrderNo.Text)+'%'+'''');
+        Open;
+      end;
+      SCreateCDS20(ADOQueryMain,Order_Main);
+      SInitCDSData20(ADOQueryMain,Order_Main);
+    finally
+      ADOQueryMain.EnableControls;
+    end;
+  end;
+end;
+
+procedure TfrmBGMXSelList.ToolButton2Click(Sender: TObject);
+begin
+  if Order_Main.IsEmpty then Exit;
+  if Order_Main.Locate('SSel',True,[])=False then
+  begin
+    Application.MessageBox('没有选择数据!','提示',0);
+    Exit;
+  end;
+  ModalResult:=1;
+end;
+
+procedure TfrmBGMXSelList.N2Click(Sender: TObject);
+begin
+  SelOKNo(Order_Main,True);
+end;
+
+procedure TfrmBGMXSelList.N1Click(Sender: TObject);
+begin
+  SelOKNo(Order_Main,False);
+end;
+
+end.

坯布码单待检(PBMDDJ.dll)/U_BGManage.pas

@@ -0,0 +1,476 @@
+unit U_BGManage; //22
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, ADODB, DB, DBClient, cxGridCustomPopupMenu, cxGridPopupMenu,
+  StdCtrls, ComCtrls, ExtCtrls, ToolWin, cxStyles, cxCustomData,
+  cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, cxDBData,
+  cxCalendar, cxGridLevel, cxGridCustomTableView, cxGridTableView,
+  cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid, cxPC,
+  BtnEdit, cxGridBandedTableView, cxGridDBBandedTableView;
+
+type
+  TfrmBGManage = class(TForm)
+    ToolBar1: TToolBar;
+    TBRafresh: TToolButton;
+    TBFind: TToolButton;
+    TBAdd: TToolButton;
+    TBEdit: TToolButton;
+    TBView: TToolButton;
+    TBDel: TToolButton;
+    TBPrint: TToolButton;
+    ToolButton3: TToolButton;
+    TBClose: TToolButton;
+    Panel1: TPanel;
+    Label1: TLabel;
+    Label3: TLabel;
+    Label8: TLabel;
+    BegDate: TDateTimePicker;
+    EndDate: TDateTimePicker;
+    OrderNo: TEdit;
+    MPRTCodeHZ: TEdit;
+    cxGridPopupMenu1: TcxGridPopupMenu;
+    Order_Main: TClientDataSet;
+    DataSource1: TDataSource;
+    ADOQueryTemp: TADOQuery;
+    ADOQueryMain: TADOQuery;
+    ADOQueryCmd: TADOQuery;
+    ADOQueryPrint: TADOQuery;
+    cxTabControl1: TcxTabControl;
+    cxPageControl1: TcxPageControl;
+    cxTabSheet1: TcxTabSheet;
+    cxTabSheet2: TcxTabSheet;
+    cxTabSheet3: TcxTabSheet;
+    cxTabSheet4: TcxTabSheet;
+    cxTabSheet5: TcxTabSheet;
+    cxTabSheet6: TcxTabSheet;
+    cxTabSheet7: TcxTabSheet;
+    cxGrid1: TcxGrid;
+    Tv1: TcxGridDBTableView;
+    v1OrderNo: TcxGridDBColumn;
+    v1CustomerNoName: TcxGridDBColumn;
+    v1MPRTCodeName: TcxGridDBColumn;
+    v1MPRTSpec: TcxGridDBColumn;
+    v1Column1: TcxGridDBColumn;
+    v1MPRTMF: TcxGridDBColumn;
+    v1Column3: TcxGridDBColumn;
+    v1Column4: TcxGridDBColumn;
+    cxGrid1Level1: TcxGridLevel;
+    ClientDataSet7: TClientDataSet;
+    cxGridPopupMenu7: TcxGridPopupMenu;
+    DataSource7: TDataSource;
+    Panel2: TPanel;
+    cxGrid2: TcxGrid;
+    Tv2: TcxGridDBTableView;
+    cxGridDBColumn1: TcxGridDBColumn;
+    cxGridDBColumn2: TcxGridDBColumn;
+    cxGridDBColumn3: TcxGridDBColumn;
+    cxGridDBColumn4: TcxGridDBColumn;
+    cxGridDBColumn5: TcxGridDBColumn;
+    cxGridDBColumn6: TcxGridDBColumn;
+    cxGridLevel1: TcxGridLevel;
+    Panel6: TPanel;
+    Panel5: TPanel;
+    Label20: TLabel;
+    Label21: TLabel;
+    Label22: TLabel;
+    Label23: TLabel;
+    Label24: TLabel;
+    Label25: TLabel;
+    Label26: TLabel;
+    Label27: TLabel;
+    OrderNo10: TEdit;
+    Note: TMemo;
+    BGName10: TEdit;
+    CangKuQty: TEdit;
+    MLenStr: TEdit;
+    CangKuPS: TEdit;
+    ComTaiTou: TBtnEditA;
+    QtyUnit: TEdit;
+    Panel7: TPanel;
+    Panel3: TPanel;
+    cxGrid4: TcxGrid;
+    TvZLD: TcxGridDBTableView;
+    cxGridDBColumn8: TcxGridDBColumn;
+    cxGridDBColumn9: TcxGridDBColumn;
+    cxGridDBColumn13: TcxGridDBColumn;
+    cxGridDBColumn14: TcxGridDBColumn;
+    cxGridDBColumn15: TcxGridDBColumn;
+    cxGridDBColumn16: TcxGridDBColumn;
+    cxGridLevel3: TcxGridLevel;
+    Label28: TLabel;
+    BtnEditA1: TBtnEditA;
+    Label30: TLabel;
+    Label31: TLabel;
+    Edit15: TEdit;
+    DateTimePicker1: TDateTimePicker;
+    Label29: TLabel;
+    BtnEditA2: TBtnEditA;
+    cxGrid5: TcxGrid;
+    cxGridDBTableView3: TcxGridDBTableView;
+    cxGridDBColumn17: TcxGridDBColumn;
+    cxGridDBColumn18: TcxGridDBColumn;
+    cxGridDBColumn19: TcxGridDBColumn;
+    cxGridDBColumn20: TcxGridDBColumn;
+    cxGridDBColumn21: TcxGridDBColumn;
+    cxGridDBColumn22: TcxGridDBColumn;
+    cxGridLevel4: TcxGridLevel;
+    cxGridDBTableView3Column1: TcxGridDBColumn;
+    Label32: TLabel;
+    DateTimePicker2: TDateTimePicker;
+    Label33: TLabel;
+    BtnEditA3: TBtnEditA;
+    Label34: TLabel;
+    BtnEditA4: TBtnEditA;
+    Label35: TLabel;
+    Edit16: TEdit;
+    Label36: TLabel;
+    Edit17: TEdit;
+    Label38: TLabel;
+    BtnEditA5: TBtnEditA;
+    Label37: TLabel;
+    BtnEditA6: TBtnEditA;
+    Label39: TLabel;
+    BtnEditA7: TBtnEditA;
+    Label40: TLabel;
+    Label41: TLabel;
+    BtnEditA9: TBtnEditA;
+    Label42: TLabel;
+    BtnEditA10: TBtnEditA;
+    Edit18: TEdit;
+    Label43: TLabel;
+    BtnEditA8: TBtnEditA;
+    Label44: TLabel;
+    BtnEditA11: TBtnEditA;
+    Label45: TLabel;
+    BtnEditA12: TBtnEditA;
+    Label46: TLabel;
+    BtnEditA13: TBtnEditA;
+    Label47: TLabel;
+    BtnEditA14: TBtnEditA;
+    Label48: TLabel;
+    BtnEditA15: TBtnEditA;
+    Label49: TLabel;
+    BtnEditA16: TBtnEditA;
+    Label50: TLabel;
+    BtnEditA17: TBtnEditA;
+    Label51: TLabel;
+    BtnEditA18: TBtnEditA;
+    cxGrid7: TcxGrid;
+    Tv7: TcxGridDBTableView;
+    cxGridDBColumn34: TcxGridDBColumn;
+    cxGridDBColumn30: TcxGridDBColumn;
+    cxGridDBColumn32: TcxGridDBColumn;
+    cxGridDBColumn31: TcxGridDBColumn;
+    v7Column1: TcxGridDBColumn;
+    cxGridLevel5: TcxGridLevel;
+    ClientDataSet2: TClientDataSet;
+    cxGridPopupMenu2: TcxGridPopupMenu;
+    DataSource2: TDataSource;
+    cxGrid3: TcxGrid;
+    cxGridLevel2: TcxGridLevel;
+    TvJCK: TcxGridDBBandedTableView;
+    vJCKColumn1: TcxGridDBBandedColumn;
+    vJCKColumn2: TcxGridDBBandedColumn;
+    vJCKColumn3: TcxGridDBBandedColumn;
+    vJCKColumn4: TcxGridDBBandedColumn;
+    vJCKColumn5: TcxGridDBBandedColumn;
+    vJCKColumn6: TcxGridDBBandedColumn;
+    vJCKColumn7: TcxGridDBBandedColumn;
+    vJCKColumn8: TcxGridDBBandedColumn;
+    vJCKColumn9: TcxGridDBBandedColumn;
+    vJCKColumn10: TcxGridDBBandedColumn;
+    vJCKColumn11: TcxGridDBBandedColumn;
+    vJCKColumn12: TcxGridDBBandedColumn;
+    vJCKColumn13: TcxGridDBBandedColumn;
+    vJCKColumn14: TcxGridDBBandedColumn;
+    cxGrid6: TcxGrid;
+    TvJCKMX: TcxGridDBTableView;
+    cxGridDBColumn7: TcxGridDBColumn;
+    cxGridDBColumn10: TcxGridDBColumn;
+    cxGridDBColumn11: TcxGridDBColumn;
+    cxGridDBColumn12: TcxGridDBColumn;
+    v2Column1: TcxGridDBColumn;
+    cxGridDBColumn23: TcxGridDBColumn;
+    cxGridLevel6: TcxGridLevel;
+    CDS_JCKMX: TClientDataSet;
+    cxGridPopupMenu6: TcxGridPopupMenu;
+    DS_JCKMX: TDataSource;
+    CDS_ZLD: TClientDataSet;
+    cxGridPopupMenu4: TcxGridPopupMenu;
+    DS_ZLD: TDataSource;
+    procedure FormDestroy(Sender: TObject);
+    procedure FormClose(Sender: TObject; var Action: TCloseAction);
+    procedure ToolButton3Click(Sender: TObject);
+    procedure TBAddClick(Sender: TObject);
+    procedure TBCloseClick(Sender: TObject);
+    procedure FormShow(Sender: TObject);
+    procedure TBRafreshClick(Sender: TObject);
+    procedure TBEditClick(Sender: TObject);
+    procedure Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView;
+      APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord;
+      ANewItemRecordFocusingChanged: Boolean);
+    procedure cxTabControl1Change(Sender: TObject);
+    procedure TvJCKFocusedRecordChanged(Sender: TcxCustomGridTableView;
+      APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord;
+      ANewItemRecordFocusingChanged: Boolean);
+  private
+    { Private declarations }
+    procedure InitGrid();
+  public
+    { Public declarations }
+  end;
+
+var
+  frmBGManage: TfrmBGManage;
+
+implementation
+uses
+  U_DataLink,U_RTFun, U_ZDYHelp, U_ZDYHelpSel,U_ModuleNote,
+  U_BGZLInput,U_BGJCKMXInput;
+
+{$R *.dfm}
+
+procedure TfrmBGManage.FormDestroy(Sender: TObject);
+begin
+  frmBGManage:=nil;
+end;
+
+procedure TfrmBGManage.FormClose(Sender: TObject;
+  var Action: TCloseAction);
+begin
+  Action:=caFree;
+end;
+
+procedure TfrmBGManage.ToolButton3Click(Sender: TObject);
+begin
+  try
+    frmModuleNote:=TfrmModuleNote.Create(Application);
+    with frmModuleNote do
+    begin
+      flag:='报关说明';
+      if ShowModal=1 then
+      begin
+
+      end;
+    end;
+  finally
+    frmModuleNote.Free;
+  end;
+end;
+
+procedure TfrmBGManage.TBAddClick(Sender: TObject);
+begin
+  if cxPageControl1.ActivePageIndex=0 then
+  begin
+    try
+      frmBGZLInput:=TfrmBGZLInput.Create(Application);
+      with frmBGZLInput do
+      begin
+        FBGID:='';
+        FOrderNo:='';
+        if ShowModal=1 then
+        begin
+
+        end;
+      end;
+    finally
+      frmBGZLInput.Free;
+    end;
+  end else
+  if cxPageControl1.ActivePageIndex=1 then
+  begin
+    try
+      frmBGJCKMXInput:=TfrmBGJCKMXInput.Create(Application);
+      with frmBGJCKMXInput do
+      begin
+        FBGID:='';
+        FOrderNo:='';
+        if ShowModal=1 then
+        begin
+
+        end;
+      end;
+    finally
+      frmBGJCKMXInput.Free;
+    end;
+  end;
+end;
+
+procedure TfrmBGManage.TBCloseClick(Sender: TObject);
+begin
+  WriteCxGrid('Tv1',Tv1,'报关管理');
+  WriteCxGrid('Tv2',Tv2,'报关管理');
+  WriteCxGrid('Tv7',Tv7,'报关管理');
+  Close;
+end;
+
+procedure TfrmBGManage.FormShow(Sender: TObject);
+begin
+  EndDate.DateTime:=SGetServerDate(ADOQueryTemp);
+  BegDate.Date:=EndDate.DateTime-30;
+  cxPageControl1.ActivePageIndex:=0;
+  cxTabControl1.TabIndex:=0;
+  InitGrid();
+  ReadCxGrid('Tv1',Tv1,'报关管理');
+  ReadCxGrid('Tv2',Tv2,'报关管理');
+  ReadCxGrid('Tv7',Tv7,'报关管理');
+end;
+
+procedure TfrmBGManage.InitGrid();
+begin
+  try
+    ADOQueryMain.DisableControls;
+    with ADOQueryMain do
+    begin
+      Close;
+      sql.Clear;
+      sql.Add('select * from JYOrder_BG where 1=1');
+      if cxTabControl1.TabIndex=0 then
+      begin
+        sql.Add(' and isnull(ChkStatus,'''')<>''审核通过'' ');
+      end else
+      if cxTabControl1.TabIndex=1 then
+      begin
+        sql.Add(' and isnull(ChkStatus,'''')=''审核通过'' ');
+      end;
+      if cxTabControl1.TabIndex<>0 then
+      begin
+        sql.Add(' and FillTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.Date))+'''');
+        sql.Add(' and FillTime<'''+Trim(FormatDateTime('yyyy-MM-dd',EndDate.Date+1))+'''');
+      end;
+      Open;
+    end;
+    SCreateCDS20(ADOQueryMain,Order_Main);
+    SInitCDSData20(ADOQueryMain,Order_Main);
+  finally
+    ADOQueryMain.EnableControls;
+  end;
+end;
+
+procedure TfrmBGManage.TBRafreshClick(Sender: TObject);
+begin
+  InitGrid();
+end;
+
+procedure TfrmBGManage.TBEditClick(Sender: TObject);
+begin
+  if cxPageControl1.ActivePageIndex=0 then
+  begin
+    try
+      frmBGZLInput:=TfrmBGZLInput.Create(Application);
+      with frmBGZLInput do
+      begin
+        FBGID:=Trim(Self.Order_Main.fieldbyname('BGID').AsString);
+        FOrderNo:=Trim(Self.Order_Main.fieldbyname('OrderNo').AsString);
+        if ShowModal=1 then
+        begin
+
+        end;
+      end;
+    finally
+      frmBGZLInput.Free;
+    end;
+  end else
+  if cxPageControl1.ActivePageIndex=1 then
+  begin
+    try
+      frmBGJCKMXInput:=TfrmBGJCKMXInput.Create(Application);
+      with frmBGJCKMXInput do
+      begin
+        FBGID:=Trim(Self.Order_Main.fieldbyname('BGID').AsString);
+        FOrderNo:=Trim(Self.Order_Main.fieldbyname('OrderNo').AsString);
+        if ShowModal=1 then
+        begin
+
+        end;
+      end;
+    finally
+      frmBGJCKMXInput.Free;
+    end;
+  end;
+end;
+
+procedure TfrmBGManage.Tv1FocusedRecordChanged(
+  Sender: TcxCustomGridTableView; APrevFocusedRecord,
+  AFocusedRecord: TcxCustomGridRecord;
+  ANewItemRecordFocusingChanged: Boolean);
+begin
+  with ADOQueryTemp do
+  begin
+    Close;
+    sql.Clear;
+    sql.Add('select * from JYOrder_BG_Qty where BGID='''+Trim(Order_Main.fieldbyname('BGID').AsString)+'''');
+    Open;
+  end;
+  SCreateCDS20(ADOQueryTemp,ClientDataSet2);
+  SInitCDSData20(ADOQueryTemp,ClientDataSet2);
+  with ADOQueryTemp do
+  begin
+    Close;
+    sql.Clear;
+    sql.Add('select * from (');
+    sql.Add('select PSName=Cast(A.PSXH As Varchar(20))+'' ''+Cast(A.PSName As Varchar(20)),B.FactoryNo,PSName10=A.PSName,B.FactoryName,sum(QtyFlag*PS) MDPS,Sum(QtyFlag*Qty) MDQty,B.QtyUnit');
+    sql.Add(' from JYOrder_Process A  ');
+    sql.Add(' left join JYOrder_Main_MD B on A.PSID=B.PSID');
+    sql.Add(' inner join JYOrder_Main C on A.Mainid=C.MainId');
+    sql.Add(' where C.OrderNo='''+Trim(Order_Main.fieldbyname('OrderNo').AsString)+'''');
+    sql.Add(' group by A.PSXH,A.PSName,B.FactoryName,B.FactoryNo,B.QtyUnit)AA where MDQty>0 order by PSName');
+    Open;
+  end;
+  SCreateCDS20(ADOQueryTemp,ClientDataSet7);
+  SInitCDSData20(ADOQueryTemp,ClientDataSet7);
+end;
+
+procedure TfrmBGManage.cxTabControl1Change(Sender: TObject);
+begin
+  InitGrid();
+end;
+
+procedure TfrmBGManage.TvJCKFocusedRecordChanged(
+  Sender: TcxCustomGridTableView; APrevFocusedRecord,
+  AFocusedRecord: TcxCustomGridRecord;
+  ANewItemRecordFocusingChanged: Boolean);
+begin
+  with ADOQueryTemp do
+  begin
+    Close;
+    sql.Clear;
+    sql.Add('select * from JYOrder_BG_KPFee where BGID='''+Trim(Order_Main.fieldbyname('BGID').AsString)+'''');
+    open;
+  end;
+  SCreateCDS20(ADOQueryTemp,CDS_JCKMX);
+  SInitCDSData20(ADOQueryTemp,CDS_JCKMX);
+  with ADOQueryTemp do
+  begin
+    Close;
+    sql.Clear;
+    sql.Add('select * from JYOrder_BG_KPFee where BGID='''+Trim(Order_Main.fieldbyname('BGID').AsString)+'''');
+    open;
+  end;
+  SCreateCDS20(ADOQueryTemp,CDS_JCKMX);
+  SInitCDSData20(ADOQueryTemp,CDS_JCKMX);
+   with ADOQueryTemp do
+  begin
+    Close;
+    sql.Clear;
+    sql.Add('select * from JYOrder_BG_Qty where BGID='''+Trim(Order_Main.fieldbyname('BGID').AsString)+'''');
+    open;
+  end;
+  SCreateCDS20(ADOQueryTemp,CDS_ZLD);
+  SInitCDSData20(ADOQueryTemp,CDS_ZLD);
+  with ADOQueryTemp do
+  begin
+    Close;
+    sql.Clear;
+    sql.Add('select * from JYOrder_BG where BGID='''+Trim(Order_Main.fieldbyname('BGID').AsString)+'''');
+    Open;
+  end;
+  SCSHDataNew(ADOQueryTemp,Panel5,2);
+  OrderNo10.Text:=Trim(ADOQueryTemp.fieldbyname('OrderNo').AsString);
+  BGName10.Text:=Trim(ADOQueryTemp.fieldbyname('BGName').AsString);
+end;
+
+end.

坯布码单待检(PBMDDJ.dll)/U_BGZLInput.dfm

@@ -0,0 +1,857 @@
+object frmBGZLInput: TfrmBGZLInput
+  Left = 116
+  Top = 99
+  Width = 1181
+  Height = 609
+  Align = alClient
+  Caption = #25253#20851#36164#26009#21333
+  Color = clBtnFace
+  Font.Charset = GB2312_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -12
+  Font.Name = #23435#20307
+  Font.Style = []
+  OldCreateOrder = False
+  Position = poScreenCenter
+  OnDestroy = FormDestroy
+  OnShow = FormShow
+  PixelsPerInch = 96
+  TextHeight = 12
+  object ToolBar1: TToolBar
+    Left = 0
+    Top = 0
+    Width = 1165
+    Height = 29
+    ButtonHeight = 30
+    ButtonWidth = 59
+    Caption = 'ToolBar1'
+    Color = clBtnFace
+    EdgeInner = esNone
+    EdgeOuter = esNone
+    Flat = True
+    Font.Charset = GB2312_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -12
+    Font.Name = #23435#20307
+    Font.Style = []
+    Images = DataLink_CYZZ.ThreeImgList
+    List = True
+    ParentColor = False
+    ParentFont = False
+    ShowCaptions = True
+    TabOrder = 0
+    object TBSave: TToolButton
+      Left = 0
+      Top = 0
+      AutoSize = True
+      Caption = #20445#23384
+      ImageIndex = 5
+      OnClick = TBSaveClick
+    end
+    object TBClose: TToolButton
+      Left = 63
+      Top = 0
+      AutoSize = True
+      Caption = #20851#38381
+      ImageIndex = 21
+      OnClick = TBCloseClick
+    end
+  end
+  object Panel1: TPanel
+    Left = 0
+    Top = 29
+    Width = 593
+    Height = 541
+    Align = alLeft
+    BevelInner = bvRaised
+    BevelOuter = bvLowered
+    TabOrder = 1
+    object Panel2: TPanel
+      Left = 2
+      Top = 2
+      Width = 589
+      Height = 249
+      Align = alTop
+      BevelInner = bvRaised
+      BevelOuter = bvLowered
+      TabOrder = 0
+      object Panel5: TPanel
+        Left = 2
+        Top = 2
+        Width = 585
+        Height = 89
+        Align = alTop
+        BevelInner = bvRaised
+        BevelOuter = bvLowered
+        TabOrder = 0
+        object Label1: TLabel
+          Left = 10
+          Top = 15
+          Width = 52
+          Height = 12
+          Caption = #35746#21333#21495#65306
+          Font.Charset = GB2312_CHARSET
+          Font.Color = clWindowText
+          Font.Height = -12
+          Font.Name = #23435#20307
+          Font.Style = [fsBold]
+          ParentFont = False
+        end
+        object Label7: TLabel
+          Left = 507
+          Top = 15
+          Width = 39
+          Height = 12
+          Caption = #31859#38271#65306
+          Font.Charset = GB2312_CHARSET
+          Font.Color = clWindowText
+          Font.Height = -12
+          Font.Name = #23435#20307
+          Font.Style = [fsBold]
+          ParentFont = False
+        end
+        object Label18: TLabel
+          Left = 287
+          Top = 15
+          Width = 65
+          Height = 12
+          Caption = #25253#20851#21333#20301#65306
+          Font.Charset = GB2312_CHARSET
+          Font.Color = clWindowText
+          Font.Height = -12
+          Font.Name = #23435#20307
+          Font.Style = [fsBold]
+          ParentFont = False
+        end
+        object Label2: TLabel
+          Left = 187
+          Top = 15
+          Width = 39
+          Height = 12
+          Caption = #25209#27425#65306
+          Font.Charset = GB2312_CHARSET
+          Font.Color = clWindowText
+          Font.Height = -12
+          Font.Name = #23435#20307
+          Font.Style = [fsBold]
+          ParentFont = False
+        end
+        object Label3: TLabel
+          Left = 287
+          Top = 40
+          Width = 65
+          Height = 12
+          Caption = #25104#20132#26041#24335#65306
+          Font.Charset = GB2312_CHARSET
+          Font.Color = clWindowText
+          Font.Height = -12
+          Font.Name = #23435#20307
+          Font.Style = [fsBold]
+          ParentFont = False
+        end
+        object Label4: TLabel
+          Left = 10
+          Top = 40
+          Width = 52
+          Height = 12
+          Caption = #28023#36816#36153#65306
+          Font.Charset = GB2312_CHARSET
+          Font.Color = clWindowText
+          Font.Height = -12
+          Font.Name = #23435#20307
+          Font.Style = [fsBold]
+          ParentFont = False
+        end
+        object Label5: TLabel
+          Left = 169
+          Top = 40
+          Width = 39
+          Height = 12
+          Caption = #20445#36153#65306
+          Font.Charset = GB2312_CHARSET
+          Font.Color = clWindowText
+          Font.Height = -12
+          Font.Name = #23435#20307
+          Font.Style = [fsBold]
+          ParentFont = False
+        end
+        object Label6: TLabel
+          Left = 145
+          Top = 40
+          Width = 7
+          Height = 12
+          Caption = '$'
+          Font.Charset = GB2312_CHARSET
+          Font.Color = clWindowText
+          Font.Height = -12
+          Font.Name = #23435#20307
+          Font.Style = [fsBold]
+          ParentFont = False
+        end
+        object Label8: TLabel
+          Left = 268
+          Top = 40
+          Width = 7
+          Height = 12
+          Caption = '$'
+          Font.Charset = GB2312_CHARSET
+          Font.Color = clWindowText
+          Font.Height = -12
+          Font.Name = #23435#20307
+          Font.Style = [fsBold]
+          ParentFont = False
+        end
+        object Label9: TLabel
+          Left = 10
+          Top = 63
+          Width = 52
+          Height = 12
+          Caption = #36135#28304#22320#65306
+          Font.Charset = GB2312_CHARSET
+          Font.Color = clWindowText
+          Font.Height = -12
+          Font.Name = #23435#20307
+          Font.Style = [fsBold]
+          ParentFont = False
+        end
+        object Label10: TLabel
+          Left = 198
+          Top = 63
+          Width = 65
+          Height = 12
+          Caption = #20986#21475#21475#23736#65306
+          Font.Charset = GB2312_CHARSET
+          Font.Color = clWindowText
+          Font.Height = -12
+          Font.Name = #23435#20307
+          Font.Style = [fsBold]
+          ParentFont = False
+        end
+        object Label11: TLabel
+          Left = 396
+          Top = 63
+          Width = 52
+          Height = 12
+          Caption = #36816#25269#22269#65306
+          Font.Charset = GB2312_CHARSET
+          Font.Color = clWindowText
+          Font.Height = -12
+          Font.Name = #23435#20307
+          Font.Style = [fsBold]
+          ParentFont = False
+        end
+        object OrderNo: TEdit
+          Tag = 2
+          Left = 55
+          Top = 11
+          Width = 129
+          Height = 20
+          CharCase = ecUpperCase
+          TabOrder = 0
+          OnChange = OrderNoChange
+          OnKeyPress = OrderNoKeyPress
+        end
+        object MLenStr: TEdit
+          Tag = 2
+          Left = 541
+          Top = 11
+          Width = 42
+          Height = 20
+          TabOrder = 1
+        end
+        object ComTaiTou: TBtnEditA
+          Tag = 2
+          Left = 345
+          Top = 11
+          Width = 159
+          Height = 20
+          ReadOnly = True
+          TabOrder = 2
+          OnBtnClick = ComTaiTouBtnClick
+        end
+        object BatchNo: TEdit
+          Tag = 2
+          Left = 219
+          Top = 11
+          Width = 66
+          Height = 20
+          TabOrder = 3
+        end
+        object ChengJiaoType: TBtnEditA
+          Tag = 2
+          Left = 345
+          Top = 36
+          Width = 159
+          Height = 20
+          ReadOnly = True
+          TabOrder = 4
+          OnBtnClick = ChengJiaoTypeBtnClick
+        end
+        object HaiYunFee: TEdit
+          Tag = 2
+          Left = 55
+          Top = 36
+          Width = 86
+          Height = 20
+          TabOrder = 5
+        end
+        object BaoFee: TEdit
+          Tag = 2
+          Left = 201
+          Top = 36
+          Width = 66
+          Height = 20
+          TabOrder = 6
+        end
+        object HuoYuanPlace: TBtnEditA
+          Tag = 2
+          Left = 55
+          Top = 59
+          Width = 130
+          Height = 20
+          ReadOnly = True
+          TabOrder = 7
+          OnBtnClick = HuoYuanPlaceBtnClick
+        end
+        object ChuKouKA: TBtnEditA
+          Tag = 2
+          Left = 257
+          Top = 59
+          Width = 130
+          Height = 20
+          ReadOnly = True
+          TabOrder = 8
+          OnBtnClick = ChuKouKABtnClick
+        end
+        object YunDiG: TBtnEditA
+          Tag = 2
+          Left = 442
+          Top = 59
+          Width = 141
+          Height = 20
+          ReadOnly = True
+          TabOrder = 9
+          OnBtnClick = YunDiGBtnClick
+        end
+      end
+      object ToolBar3: TToolBar
+        Left = 2
+        Top = 91
+        Width = 585
+        Height = 33
+        ButtonHeight = 30
+        ButtonWidth = 59
+        Caption = 'ToolBar1'
+        Color = clBtnFace
+        Flat = True
+        Font.Charset = GB2312_CHARSET
+        Font.Color = clWindowText
+        Font.Height = -12
+        Font.Name = #23435#20307
+        Font.Style = []
+        Images = DataLink_CYZZ.ThreeImgList
+        List = True
+        ParentColor = False
+        ParentFont = False
+        ShowCaptions = True
+        TabOrder = 1
+        object ToolButton3: TToolButton
+          Left = 0
+          Top = 0
+          AutoSize = True
+          Caption = #22686#34892
+          ImageIndex = 12
+          OnClick = ToolButton3Click
+        end
+        object ToolButton4: TToolButton
+          Left = 63
+          Top = 0
+          AutoSize = True
+          Caption = #21024#34892
+          ImageIndex = 13
+          OnClick = ToolButton4Click
+        end
+      end
+      object cxGrid1: TcxGrid
+        Left = 2
+        Top = 124
+        Width = 585
+        Height = 123
+        Align = alTop
+        Font.Charset = GB2312_CHARSET
+        Font.Color = clWindowText
+        Font.Height = -12
+        Font.Name = #23435#20307
+        Font.Style = []
+        ParentFont = False
+        TabOrder = 2
+        object Tv1: TcxGridDBTableView
+          OnDblClick = TvOrdeNoDblClick
+          NavigatorButtons.ConfirmDelete = False
+          DataController.DataSource = DataSource1
+          DataController.Summary.DefaultGroupSummaryItems = <>
+          DataController.Summary.FooterSummaryItems = <>
+          DataController.Summary.SummaryGroups = <>
+          OptionsCustomize.ColumnFiltering = False
+          OptionsView.GroupByBox = False
+          Styles.Header = DataLink_CYZZ.Default
+          object cxGridDBColumn8: TcxGridDBColumn
+            Caption = #20013#25991#21697#21517
+            DataBinding.FieldName = 'BGName'
+            HeaderAlignmentHorz = taCenter
+            Width = 178
+          end
+          object v1Column1: TcxGridDBColumn
+            Caption = 'HS'#32534#30721
+            DataBinding.FieldName = 'HSCode'
+            HeaderAlignmentHorz = taCenter
+            Width = 60
+          end
+          object v1Column2: TcxGridDBColumn
+            Caption = #20179#24211#20214#25968
+            DataBinding.FieldName = 'CangKuPS'
+            HeaderAlignmentHorz = taCenter
+            Width = 65
+          end
+          object v1Column3: TcxGridDBColumn
+            Caption = #20179#24211#25968#37327
+            DataBinding.FieldName = 'CangKuQty'
+            HeaderAlignmentHorz = taCenter
+            Width = 62
+          end
+          object v1Column4: TcxGridDBColumn
+            Caption = #21333#20301
+            DataBinding.FieldName = 'QtyUnit'
+            PropertiesClassName = 'TcxComboBoxProperties'
+            Properties.Items.Strings = (
+              'M'
+              'KG'
+              'Y')
+            HeaderAlignmentHorz = taCenter
+            Width = 43
+          end
+          object v1Column5: TcxGridDBColumn
+            Caption = #22791#27880
+            DataBinding.FieldName = 'BNNOte'
+            HeaderAlignmentHorz = taCenter
+            Width = 156
+          end
+        end
+        object cxGridLevel2: TcxGridLevel
+          GridView = Tv1
+        end
+      end
+      object cxGrid6: TcxGrid
+        Left = 57
+        Top = 35
+        Width = 345
+        Height = 116
+        Font.Charset = GB2312_CHARSET
+        Font.Color = clWindowText
+        Font.Height = -12
+        Font.Name = #23435#20307
+        Font.Style = []
+        ParentFont = False
+        TabOrder = 3
+        Visible = False
+        object TvOrdeNo: TcxGridDBTableView
+          OnDblClick = TvOrdeNoDblClick
+          NavigatorButtons.ConfirmDelete = False
+          DataController.DataSource = DS_OrderNo
+          DataController.Summary.DefaultGroupSummaryItems = <>
+          DataController.Summary.FooterSummaryItems = <>
+          DataController.Summary.SummaryGroups = <>
+          OptionsCustomize.ColumnFiltering = False
+          OptionsSelection.CellSelect = False
+          OptionsView.GroupByBox = False
+          Styles.Header = DataLink_CYZZ.Default
+          object cxGridDBColumn7: TcxGridDBColumn
+            Caption = #35746#21333#21495
+            DataBinding.FieldName = 'OrderNo'
+            HeaderAlignmentHorz = taCenter
+            Width = 166
+          end
+          object cxGridDBColumn10: TcxGridDBColumn
+            Caption = #20135#21697#21517#31216
+            DataBinding.FieldName = 'MPRTCodeName'
+            HeaderAlignmentHorz = taCenter
+            Width = 155
+          end
+        end
+        object cxGrid4Level1: TcxGridLevel
+          GridView = TvOrdeNo
+        end
+      end
+    end
+    object Panel3: TPanel
+      Left = 2
+      Top = 251
+      Width = 589
+      Height = 288
+      Align = alClient
+      BevelInner = bvRaised
+      BevelOuter = bvLowered
+      TabOrder = 1
+      object ToolBar2: TToolBar
+        Left = 2
+        Top = 2
+        Width = 585
+        Height = 33
+        ButtonHeight = 30
+        ButtonWidth = 59
+        Caption = 'ToolBar1'
+        Color = clBtnFace
+        Flat = True
+        Font.Charset = GB2312_CHARSET
+        Font.Color = clWindowText
+        Font.Height = -12
+        Font.Name = #23435#20307
+        Font.Style = []
+        Images = DataLink_CYZZ.ThreeImgList
+        List = True
+        ParentColor = False
+        ParentFont = False
+        ShowCaptions = True
+        TabOrder = 0
+        object ToolButton1: TToolButton
+          Left = 0
+          Top = 0
+          AutoSize = True
+          Caption = #22686#34892
+          ImageIndex = 12
+          OnClick = ToolButton1Click
+        end
+        object ToolButton2: TToolButton
+          Left = 63
+          Top = 0
+          AutoSize = True
+          Caption = #21024#34892
+          ImageIndex = 13
+          OnClick = ToolButton2Click
+        end
+      end
+      object cxGrid2: TcxGrid
+        Left = 2
+        Top = 35
+        Width = 585
+        Height = 251
+        Align = alClient
+        TabOrder = 1
+        object Tv2: TcxGridDBTableView
+          NavigatorButtons.ConfirmDelete = False
+          DataController.DataSource = DataSource2
+          DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
+          DataController.Summary.DefaultGroupSummaryItems = <
+            item
+              Format = '0'
+              Position = spFooter
+            end
+            item
+              Format = '0'
+              Position = spFooter
+            end
+            item
+              Format = '0'
+              Position = spFooter
+            end
+            item
+              Format = '0'
+              Position = spFooter
+              Column = cxGridDBColumn4
+            end>
+          DataController.Summary.FooterSummaryItems = <
+            item
+              Kind = skSum
+            end
+            item
+              Kind = skSum
+            end
+            item
+              Kind = skSum
+            end>
+          DataController.Summary.SummaryGroups = <>
+          OptionsBehavior.FocusCellOnTab = True
+          OptionsBehavior.GoToNextCellOnEnter = True
+          OptionsBehavior.FocusCellOnCycle = True
+          OptionsCustomize.ColumnFiltering = False
+          OptionsView.Footer = True
+          OptionsView.GroupByBox = False
+          Styles.Inactive = DataLink_CYZZ.SHuangSe
+          Styles.IncSearch = DataLink_CYZZ.SHuangSe
+          Styles.Selection = DataLink_CYZZ.SHuangSe
+          Styles.Header = DataLink_CYZZ.Default
+          object cxGridDBColumn1: TcxGridDBColumn
+            Caption = #24037#24207#21517#31216
+            DataBinding.FieldName = 'PSName'
+            PropertiesClassName = 'TcxComboBoxProperties'
+            HeaderAlignmentHorz = taCenter
+            Width = 83
+          end
+          object cxGridDBColumn2: TcxGridDBColumn
+            Caption = #20379#24212#21830
+            DataBinding.FieldName = 'FactoryName'
+            PropertiesClassName = 'TcxButtonEditProperties'
+            Properties.Buttons = <
+              item
+                Default = True
+                Kind = bkEllipsis
+              end>
+            Properties.ReadOnly = True
+            Properties.OnButtonClick = cxGridDBColumn2PropertiesButtonClick
+            HeaderAlignmentHorz = taCenter
+            Options.Sorting = False
+            Styles.Header = DataLink_CYZZ.Default
+            Width = 106
+          end
+          object cxGridDBColumn3: TcxGridDBColumn
+            Caption = #21305#25968
+            DataBinding.FieldName = 'BQPS'
+            HeaderAlignmentHorz = taCenter
+            Width = 72
+          end
+          object cxGridDBColumn4: TcxGridDBColumn
+            Caption = #25968#37327
+            DataBinding.FieldName = 'BQQty'
+            HeaderAlignmentHorz = taCenter
+            Options.Sorting = False
+            Width = 66
+          end
+          object cxGridDBColumn5: TcxGridDBColumn
+            Caption = #21333#20301
+            DataBinding.FieldName = 'BQUnit'
+            PropertiesClassName = 'TcxComboBoxProperties'
+            Properties.Items.Strings = (
+              'M'
+              'KG'
+              'Y')
+            HeaderAlignmentHorz = taCenter
+            Width = 49
+          end
+          object cxGridDBColumn6: TcxGridDBColumn
+            Caption = #22791#27880
+            DataBinding.FieldName = 'BQNote'
+            HeaderAlignmentHorz = taCenter
+            Width = 176
+          end
+        end
+        object cxGridLevel1: TcxGridLevel
+          GridView = Tv2
+        end
+      end
+    end
+  end
+  object Panel4: TPanel
+    Left = 593
+    Top = 29
+    Width = 572
+    Height = 541
+    Align = alClient
+    BevelInner = bvRaised
+    BevelOuter = bvLowered
+    TabOrder = 2
+    object cxGrid7: TcxGrid
+      Left = 2
+      Top = 2
+      Width = 568
+      Height = 537
+      Align = alClient
+      TabOrder = 0
+      object Tv7: TcxGridDBTableView
+        OnDblClick = Tv7DblClick
+        NavigatorButtons.ConfirmDelete = False
+        DataController.DataSource = DataSource7
+        DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoGroupsAlwaysExpanded, dcoImmediatePost]
+        DataController.Summary.DefaultGroupSummaryItems = <
+          item
+            Format = '0'
+            Position = spFooter
+          end
+          item
+            Format = '0'
+            Position = spFooter
+          end
+          item
+            Format = '0'
+            Position = spFooter
+          end
+          item
+            Kind = skSum
+            Position = spFooter
+            Column = cxGridDBColumn31
+          end
+          item
+            Format = '0'
+            Kind = skSum
+            Position = spFooter
+            Column = cxGridDBColumn32
+          end>
+        DataController.Summary.FooterSummaryItems = <
+          item
+            Kind = skSum
+          end
+          item
+            Kind = skSum
+          end
+          item
+            Kind = skSum
+          end>
+        DataController.Summary.SummaryGroups = <>
+        OptionsBehavior.FocusCellOnTab = True
+        OptionsBehavior.GoToNextCellOnEnter = True
+        OptionsBehavior.FocusCellOnCycle = True
+        OptionsCustomize.ColumnFiltering = False
+        OptionsData.Editing = False
+        OptionsView.Footer = True
+        OptionsView.GroupFooters = gfAlwaysVisible
+        Styles.Inactive = DataLink_CYZZ.SHuangSe
+        Styles.IncSearch = DataLink_CYZZ.SHuangSe
+        Styles.Selection = DataLink_CYZZ.SHuangSe
+        Styles.Header = DataLink_CYZZ.Default
+        object cxGridDBColumn30: TcxGridDBColumn
+          Caption = #20379#24212#21830
+          DataBinding.FieldName = 'FactoryName'
+          HeaderAlignmentHorz = taCenter
+          Options.Sorting = False
+          Styles.Header = DataLink_CYZZ.FontBlue
+          Width = 58
+        end
+        object cxGridDBColumn34: TcxGridDBColumn
+          Caption = #24037#24207#21517#31216
+          DataBinding.FieldName = 'PSNameHZ'
+          Visible = False
+          GroupIndex = 0
+          HeaderAlignmentHorz = taCenter
+          Styles.Header = DataLink_CYZZ.FontBlue
+          Width = 61
+        end
+        object v7Column2: TcxGridDBColumn
+          Caption = #31867#22411
+          DataBinding.FieldName = 'MDType'
+          HeaderAlignmentHorz = taCenter
+          Options.Editing = False
+          Styles.Header = DataLink_CYZZ.FontBlue
+          Width = 52
+        end
+        object cxGridDBColumn32: TcxGridDBColumn
+          Caption = #21305#25968
+          DataBinding.FieldName = 'MDPS'
+          HeaderAlignmentHorz = taCenter
+          Styles.Footer = DataLink_CYZZ.FontBlue
+          Styles.Header = DataLink_CYZZ.FontBlue
+          Width = 48
+        end
+        object cxGridDBColumn31: TcxGridDBColumn
+          Caption = #25968#37327
+          DataBinding.FieldName = 'MDQty'
+          HeaderAlignmentHorz = taCenter
+          Options.Sorting = False
+          Styles.Footer = DataLink_CYZZ.FoneRed
+          Styles.Header = DataLink_CYZZ.FontBlue
+          Width = 84
+        end
+        object v7Column1: TcxGridDBColumn
+          Caption = #21333#20301
+          DataBinding.FieldName = 'QtyUnit'
+          HeaderAlignmentHorz = taCenter
+          Styles.Header = DataLink_CYZZ.FontBlue
+          Width = 32
+        end
+        object cxGridDBColumn36: TcxGridDBColumn
+          Caption = #22791#27880
+          DataBinding.FieldName = 'NoteXS'
+          HeaderAlignmentHorz = taCenter
+          Styles.Header = DataLink_CYZZ.FontBlue
+          Width = 188
+        end
+      end
+      object cxGridLevel5: TcxGridLevel
+        GridView = Tv7
+      end
+    end
+  end
+  object ADOQueryTemp: TADOQuery
+    Connection = DataLink_CYZZ.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 624
+    Top = 8
+  end
+  object ADOQueryMain: TADOQuery
+    Connection = DataLink_CYZZ.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 656
+    Top = 8
+  end
+  object ADOQueryCmd: TADOQuery
+    Connection = DataLink_CYZZ.ADOLink
+    Parameters = <>
+    Left = 680
+    Top = 8
+  end
+  object ADOQuery1: TADOQuery
+    Connection = DataLink_CYZZ.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 712
+    Top = 8
+  end
+  object ClientDataSet7: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 632
+    Top = 435
+  end
+  object cxGridPopupMenu7: TcxGridPopupMenu
+    PopupMenus = <>
+    Left = 700
+    Top = 442
+  end
+  object DataSource7: TDataSource
+    DataSet = ClientDataSet7
+    Left = 781
+    Top = 439
+  end
+  object ClientDataSet2: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 433
+    Top = 384
+  end
+  object cxGridPopupMenu2: TcxGridPopupMenu
+    PopupMenus = <>
+    Left = 473
+    Top = 388
+  end
+  object DataSource2: TDataSource
+    DataSet = ClientDataSet2
+    Left = 509
+    Top = 384
+  end
+  object DS_OrderNo: TDataSource
+    DataSet = CDS_OrderNo
+    Left = 213
+    Top = 4
+  end
+  object CDS_OrderNo: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 243
+  end
+  object DataSource1: TDataSource
+    DataSet = ClientDataSet1
+    Left = 932
+    Top = 136
+  end
+  object ClientDataSet1: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 975
+    Top = 139
+  end
+  object cxGridPopupMenu1: TcxGridPopupMenu
+    PopupMenus = <>
+    Left = 768
+    Top = 171
+  end
+end

坯布码单待检(PBMDDJ.dll)/U_BGZLInput.pas

@@ -0,0 +1,838 @@
+unit U_BGZLInput;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, BtnEdit, StdCtrls, ExtCtrls, ComCtrls, ToolWin, cxStyles,
+  cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB,
+  cxDBData, cxGridLevel, cxGridCustomTableView, cxGridTableView,
+  cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid,
+  cxGridCustomPopupMenu, cxGridPopupMenu, DBClient, ADODB, cxButtonEdit,
+  cxDropDownEdit;
+
+type
+  TfrmBGZLInput = class(TForm)
+    ToolBar1: TToolBar;
+    TBSave: TToolButton;
+    TBClose: TToolButton;
+    Panel1: TPanel;
+    Panel2: TPanel;
+    ADOQueryTemp: TADOQuery;
+    ADOQueryMain: TADOQuery;
+    ADOQueryCmd: TADOQuery;
+    ADOQuery1: TADOQuery;
+    ClientDataSet7: TClientDataSet;
+    cxGridPopupMenu7: TcxGridPopupMenu;
+    DataSource7: TDataSource;
+    ClientDataSet2: TClientDataSet;
+    cxGridPopupMenu2: TcxGridPopupMenu;
+    DataSource2: TDataSource;
+    DS_OrderNo: TDataSource;
+    CDS_OrderNo: TClientDataSet;
+    Panel3: TPanel;
+    ToolBar2: TToolBar;
+    ToolButton1: TToolButton;
+    ToolButton2: TToolButton;
+    cxGrid2: TcxGrid;
+    Tv2: TcxGridDBTableView;
+    cxGridDBColumn1: TcxGridDBColumn;
+    cxGridDBColumn2: TcxGridDBColumn;
+    cxGridDBColumn3: TcxGridDBColumn;
+    cxGridDBColumn4: TcxGridDBColumn;
+    cxGridDBColumn5: TcxGridDBColumn;
+    cxGridDBColumn6: TcxGridDBColumn;
+    cxGridLevel1: TcxGridLevel;
+    Panel4: TPanel;
+    DataSource1: TDataSource;
+    ClientDataSet1: TClientDataSet;
+    cxGridPopupMenu1: TcxGridPopupMenu;
+    cxGrid7: TcxGrid;
+    Tv7: TcxGridDBTableView;
+    cxGridDBColumn30: TcxGridDBColumn;
+    cxGridDBColumn34: TcxGridDBColumn;
+    v7Column2: TcxGridDBColumn;
+    cxGridDBColumn32: TcxGridDBColumn;
+    cxGridDBColumn31: TcxGridDBColumn;
+    v7Column1: TcxGridDBColumn;
+    cxGridDBColumn36: TcxGridDBColumn;
+    cxGridLevel5: TcxGridLevel;
+    Panel5: TPanel;
+    Label1: TLabel;
+    Label7: TLabel;
+    Label18: TLabel;
+    OrderNo: TEdit;
+    MLenStr: TEdit;
+    ComTaiTou: TBtnEditA;
+    ToolBar3: TToolBar;
+    ToolButton3: TToolButton;
+    ToolButton4: TToolButton;
+    cxGrid1: TcxGrid;
+    Tv1: TcxGridDBTableView;
+    cxGridDBColumn8: TcxGridDBColumn;
+    v1Column1: TcxGridDBColumn;
+    v1Column2: TcxGridDBColumn;
+    v1Column3: TcxGridDBColumn;
+    v1Column4: TcxGridDBColumn;
+    v1Column5: TcxGridDBColumn;
+    cxGridLevel2: TcxGridLevel;
+    cxGrid6: TcxGrid;
+    TvOrdeNo: TcxGridDBTableView;
+    cxGridDBColumn7: TcxGridDBColumn;
+    cxGridDBColumn10: TcxGridDBColumn;
+    cxGrid4Level1: TcxGridLevel;
+    Label2: TLabel;
+    BatchNo: TEdit;
+    Label3: TLabel;
+    ChengJiaoType: TBtnEditA;
+    Label4: TLabel;
+    HaiYunFee: TEdit;
+    Label5: TLabel;
+    BaoFee: TEdit;
+    Label6: TLabel;
+    Label8: TLabel;
+    Label9: TLabel;
+    HuoYuanPlace: TBtnEditA;
+    Label10: TLabel;
+    ChuKouKA: TBtnEditA;
+    Label11: TLabel;
+    YunDiG: TBtnEditA;
+    procedure FormDestroy(Sender: TObject);
+    procedure TBCloseClick(Sender: TObject);
+    procedure FormShow(Sender: TObject);
+    procedure OrderNoKeyPress(Sender: TObject; var Key: Char);
+    procedure OrderNoChange(Sender: TObject);
+    procedure TvOrdeNoDblClick(Sender: TObject);
+    procedure ComTaiTouBtnClick(Sender: TObject);
+    procedure Tv7CellDblClick(Sender: TcxCustomGridTableView;
+      ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
+      AShift: TShiftState; var AHandled: Boolean);
+    procedure cxGridDBColumn2PropertiesButtonClick(Sender: TObject;
+      AButtonIndex: Integer);
+    procedure ToolButton2Click(Sender: TObject);
+    procedure TBSaveClick(Sender: TObject);
+    procedure ToolButton3Click(Sender: TObject);
+    procedure ToolButton4Click(Sender: TObject);
+    procedure Tv7DblClick(Sender: TObject);
+    procedure ToolButton1Click(Sender: TObject);
+    procedure ChengJiaoTypeBtnClick(Sender: TObject);
+    procedure HuoYuanPlaceBtnClick(Sender: TObject);
+    procedure ChuKouKABtnClick(Sender: TObject);
+    procedure YunDiGBtnClick(Sender: TObject);
+  private
+    { Private declarations }
+    function SaveData():Boolean;
+  public
+    { Public declarations }
+    FOrderNo,FBGID,FMainId:String;
+    FCopyInt:Integer;
+  end;
+
+var
+  frmBGZLInput: TfrmBGZLInput;
+
+implementation
+uses
+  U_DataLink,U_RTFun, U_ZDYHelp, U_ZDYHelpSel,U_ModuleNote, U_GYSList;
+
+{$R *.dfm}
+
+procedure TfrmBGZLInput.FormDestroy(Sender: TObject);
+begin
+  frmBGZLInput:=nil;
+end;
+
+procedure TfrmBGZLInput.TBCloseClick(Sender: TObject);
+begin
+  Close;
+end;
+
+procedure TfrmBGZLInput.FormShow(Sender: TObject);
+var
+  fsj:string;
+begin
+  with ADOQueryTemp do
+  begin
+    Close;
+    sql.Clear;
+    sql.Add('select * from JYorder_BG where BGID='''+Trim(FBGID)+'''');
+    Open;
+  end;
+  SCSHDataNew(ADOQueryTemp,Panel5,2);
+  cxGrid6.Visible:=False;
+  with ADOQueryTemp do
+  begin
+    Close;
+    sql.Clear;
+    sql.Add('select * from JYOrder_BG_Qty where BGID='''+Trim(FBGID)+'''');
+    Open;
+  end;
+  SCreateCDS20(ADOQueryTemp,ClientDataSet2);
+  SInitCDSData20(ADOQueryTemp,ClientDataSet2);
+  with ADOQueryTemp do
+  begin
+    Close;
+    sql.Clear;
+    sql.Add('select * from JYOrder_BG_Name where BGID='''+Trim(FBGID)+'''');
+    Open;
+  end;
+  SCreateCDS20(ADOQueryTemp,ClientDataSet1);
+  SInitCDSData20(ADOQueryTemp,ClientDataSet1);
+  with ADOQueryTemp do
+  begin
+    Close;
+    sql.Clear;
+    sql.Add('select * from JYOrder_Main where OrderNo='''+Trim(OrderNo.Text)+'''');
+    Open;
+  end;
+  FMainId:=Trim(ADOQueryTemp.fieldbyname('MainId').AsString);
+  with  ADOQueryTemp do
+  begin
+    Close;
+    sql.Clear;
+    sql.Add('exec P_View_MDQtyFooter_BG :MainId');
+    Parameters.ParamByName('MainId').Value:=Trim(FMainId);
+    Open;
+  end;
+  SCreateCDS20(ADOQueryTemp,ClientDataSet7);
+  SInitCDSData20(ADOQueryTemp,ClientDataSet7);
+  fsj:='select Code=PSName,Name=PSName from JYOrder_Process where MainId='''+Trim(FMainId)+''''+
+       ' order by PSXH';
+  SInitCxGridComboBoxBySql(ADOQueryTemp,cxGridDBColumn1,fsj,1,True,'');
+  if FCopyInt=1 then
+  begin
+    OrderNo.ReadOnly:=True;
+    with ClientDataSet1 do
+    begin
+      First;
+      while not Eof do
+      begin
+        Edit;
+        FieldByName('BNID').Value:='';
+        Post;
+        Next;
+      end;
+    end;
+    with ClientDataSet2 do
+    begin
+      First;
+      while not Eof do
+      begin
+        Edit;
+        FieldByName('BQID').Value:='';
+        Post;
+        Next;
+      end;
+    end;
+    FBGID:='';
+  end;
+  {with ADOQueryTemp do
+  begin
+    Close;
+    sql.Clear;
+    sql.Add('select * from (');
+    sql.Add('select PSName=Cast(A.PSXH As Varchar(20))+'' ''+Cast(A.PSName As Varchar(20)),B.FactoryNo,PSName10=A.PSName,B.FactoryName,sum(QtyFlag*PS) MDPS,Sum(QtyFlag*Qty) MDQty,B.QtyUnit');
+    sql.Add(' from JYOrder_Process A  ');
+    sql.Add(' left join JYOrder_Main_MD B on A.PSID=B.PSID');
+    sql.Add(' inner join JYOrder_Main C on A.Mainid=C.MainId');
+    sql.Add(' where C.OrderNo='''+Trim(OrderNo.Text)+'''');
+    sql.Add(' group by A.PSXH,A.PSName,B.FactoryName,B.FactoryNo,B.QtyUnit)AA where MDQty>0 order by PSName');
+    Open;
+  end;
+  SCreateCDS20(ADOQueryTemp,ClientDataSet7);
+  SInitCDSData20(ADOQueryTemp,ClientDataSet7); }
+end;
+
+procedure TfrmBGZLInput.OrderNoKeyPress(Sender: TObject; var Key: Char);
+begin
+  if Key=#13 then
+  begin
+    
+  end;
+end;
+
+procedure TfrmBGZLInput.OrderNoChange(Sender: TObject);
+var
+  mvalue:String;
+begin
+  mvalue:=Trim(OrderNo.Text);
+  if Length(Trim(mvalue))<2 then
+  begin
+    cxGrid6.Visible:=False;
+    Exit;
+  end;
+  mvalue:='%'+Trim(mvalue)+'%';
+  with ADOQuery1 do
+  begin
+    Close;
+    sql.Clear;
+    sql.Add('select OrderNo,MPRTCodeName,A.MainId from JYOrder_Main A');
+    sql.Add(' where A.orderno like :orderno ');
+    //sql.Add(' and A.MainId in(select MainId from JYOrder_Sub B where B.Mainid=A.MainId and B.subId in(select OrdSubId from Contract_Cloth_LL))');
+    Parameters.ParamByName('orderno').Value:=mvalue;
+    Open;
+  end;
+  SCreateCDS20(ADOQuery1,CDS_OrderNo);
+  SInitCDSData20(ADOQuery1,CDS_OrderNo);
+  if CDS_OrderNo.IsEmpty then cxGrid6.Visible:=False else cxGrid6.Visible:=True;
+end;
+
+procedure TfrmBGZLInput.TvOrdeNoDblClick(Sender: TObject);
+var
+  fsj:string;
+begin
+  OrderNo.Text:=Trim(CDS_OrderNo.fieldbyname('OrderNo').AsString);
+  with ADOQueryCmd do
+  begin
+    Close;
+    sql.Clear;
+    sql.Add('Update JYOrder_Main_MD Set QtyFlag=1');
+    sql.Add(' where ORDMainid='''+Trim(CDS_OrderNo.fieldbyname('MainId').AsString)+'''');
+    sql.Add(' and Isnull(CKName,'''')='''' ');
+    sql.Add('Update JYOrder_Main_MD Set QtyFlag=-1');
+    sql.Add(' where ORDMainid='''+Trim(CDS_OrderNo.fieldbyname('MainId').AsString)+'''');
+    sql.Add(' and Isnull(CKName,'''')<>'''' ');
+    ExecSQL;
+  end;
+  with  ADOQueryTemp do
+  begin
+    Close;
+    sql.Clear;
+    sql.Add('exec P_View_MDQtyFooter_BG :MainId');
+    Parameters.ParamByName('MainId').Value:=Trim(CDS_OrderNo.fieldbyname('MainId').AsString);
+    Open;
+  end;
+  SCreateCDS20(ADOQueryTemp,ClientDataSet7);
+  SInitCDSData20(ADOQueryTemp,ClientDataSet7);
+  fsj:='select Code=PSName,Name=PSName from JYOrder_Process where MainId='''+Trim(CDS_OrderNo.fieldbyname('MainId').AsString)+''''+
+       ' order by PSXH';
+  SInitCxGridComboBoxBySql(ADOQueryTemp,cxGridDBColumn1,fsj,1,True,'');
+  {with ADOQueryTemp do
+  begin
+    Close;
+    sql.Clear;
+    sql.Add('select * from (');
+    sql.Add('select PSName=Cast(A.PSXH As Varchar(20))+'' ''+Cast(A.PSName As Varchar(20)),B.FactoryNo,PSName10=A.PSName,B.FactoryName,sum(QtyFlag*PS) MDPS,Sum(QtyFlag*Qty) MDQty,B.QtyUnit');
+    sql.Add(' from JYOrder_Process A  ');
+    sql.Add(' left join JYOrder_Main_MD B on A.PSID=B.PSID');
+    sql.Add(' inner join JYOrder_Main C on A.Mainid=C.MainId');
+    sql.Add(' where C.OrderNo='''+Trim(OrderNo.Text)+'''');
+    sql.Add(' group by A.PSXH,A.PSName,B.FactoryName,B.FactoryNo,B.QtyUnit)AA where MDQty>0 order by PSName');
+    Open;
+  end;
+  SCreateCDS20(ADOQueryTemp,ClientDataSet7);
+  SInitCDSData20(ADOQueryTemp,ClientDataSet7);}
+  cxGrid6.Visible:=false;
+end;
+
+procedure TfrmBGZLInput.ComTaiTouBtnClick(Sender: TObject);
+begin
+  try
+    frmZDYHelp:=TfrmZDYHelp.Create(Application);
+    with frmZDYHelp do
+    begin
+      flag:='GSTT';
+      flagname:='报关单位';
+      V1ZdyStr1.Visible:=True;
+      V1ZdyStr2.Visible:=True;
+      V1ZdyStr3.Visible:=True;
+      V1ZdyStr4.Visible:=True;
+      V1ZdyStr1.Caption:='简称';
+      V1ZdyStr2.Caption:='电话';
+      V1ZdyStr3.Caption:='传真';
+      V1ZdyStr4.Caption:='地址';
+      frmZDYHelp.Align:=alClient;
+      if ShowModal=1 then
+      begin
+        ComTaiTou.Text:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString);
+      end;
+    end;
+  finally
+    frmZDYHelp.Free;
+  end;
+end;
+
+procedure TfrmBGZLInput.Tv7CellDblClick(Sender: TcxCustomGridTableView;
+  ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
+  AShift: TShiftState; var AHandled: Boolean);
+begin
+  with ClientDataSet2 do
+  begin
+    Append;
+    FieldByName('PSName').Value:=Trim(ClientDataSet7.fieldbyname('PSName10').AsString);
+    FieldByName('FactoryNo').Value:=Trim(ClientDataSet7.fieldbyname('FactoryNo').AsString);
+    FieldByName('FactoryName').Value:=Trim(ClientDataSet7.fieldbyname('FactoryName').AsString);
+    FieldByName('BQUnit').Value:=Trim(ClientDataSet7.fieldbyname('QtyUnit').AsString);
+    FieldByName('BQPS').Value:=ClientDataSet7.fieldbyname('MDPS').Value;
+    FieldByName('BQQty').Value:=ClientDataSet7.fieldbyname('MDQty').Value;
+    Post;
+  end;
+end;
+
+procedure TfrmBGZLInput.cxGridDBColumn2PropertiesButtonClick(
+  Sender: TObject; AButtonIndex: Integer);
+begin
+  try
+    frmGYSList:=TfrmGYSList.Create(Application);
+    with frmGYSList do
+    begin
+      if ShowModal=1 then
+      begin
+        with ClientDataSet2 do
+        begin
+          edit;
+          FieldByName('FactoryNo').Value:=Trim(frmGYSList.Order_Main.fieldbyname('ZKID').AsString) ;
+          FieldByName('FactoryName').Value:=Trim(frmGYSList.Order_Main.fieldbyname('KHNameJC').AsString);
+          //Post;
+        end;
+      end;
+    end;
+  finally
+    frmGYSList.Free;
+  end;
+end;
+
+procedure TfrmBGZLInput.ToolButton2Click(Sender: TObject);
+begin
+  if ClientDataSet2.IsEmpty then Exit;
+  if Trim(ClientDataSet2.fieldbyname('BQID').AsString)<>'' then
+  begin
+    if Application.MessageBox('确定要删除数据吗？','提示',32+4)<>IDYES then Exit;
+    with ADOQueryCmd do
+    begin
+      Close;
+      sql.Clear;
+      sql.Add('delete JYOrder_BG_Qty where BQID='''+Trim(ClientDataSet2.fieldbyname('BQID').AsString)+'''');
+      ExecSQL;
+    end;
+  end;
+  ClientDataSet2.Delete;
+end;
+function TfrmBGZLInput.SaveData():Boolean;
+var
+  maxno,maxsubno,maxJDNo,JDMainId,maxjfno,maxjcno,maxBgNo:String;
+begin
+  try
+    ADOQueryCmd.Connection.BeginTrans;
+    if FCopyInt=1 then
+    begin
+      with ADOQueryCmd do
+      begin
+        Close;
+        sql.Clear;
+        sql.Add('UPdate JYOrder_BG Set Valid=''N'' ');
+        sql.Add(' where OrderNo='''+Trim(OrderNo.Text)+'''');
+        ExecSQL;
+      end;
+    end;
+
+    ///保存主表
+    if Trim(FBGID)='' then
+    begin
+      if GetLSNo(ADOQueryCmd,maxno,'BG','JYOrder_BG',3,1)=False then
+      begin
+        ADOQueryCmd.Connection.RollbackTrans;
+        Application.MessageBox('取最大号失败!','提示',0);
+        Exit;
+      end;
+    end else
+    begin
+      maxno:=Trim(FBGID);
+    end;
+    with ADOQueryCmd do
+    begin
+      Close;
+      sql.Clear;
+      SQL.Add('select * from JYOrder_BG where BGId='''+Trim(FBGID)+'''');
+      Open;
+    end;
+    with ADOQueryCmd do
+    begin
+      if Trim(FBGID)='' then
+      begin
+        Append;
+      end
+      else begin
+        Edit;
+      end;
+      FieldByName('BGId').Value:=Trim(maxno);
+      RTSetsavedata(ADOQueryCmd,'JYOrder_Main',Panel5,2);
+      if Trim(FBGID)='' then
+      begin
+        FieldByName('Filler').Value:=Trim(DName);
+      end else
+      begin
+        FieldByName('Editer').Value:=Trim(DName);
+        FieldByName('EditTime').Value:=SGetServerDateTime(ADOQueryTemp);
+      end;
+      //FieldByName('Note').Value:=Trim(Note.Text);
+      Post;
+    end;
+
+    with ADOQueryTemp do
+    begin
+      Close;
+      sql.Clear;
+      sql.Add('select * from JYOrder_BG where orderno='''+Trim(OrderNo.Text)+'''');
+      if Trim(BatchNo.Text)<>'' then
+      begin
+        SQL.Add(' and isnull(BatchNo,'''')='''+Trim(BatchNo.Text)+'''');
+      end;
+      sql.Add(' and Valid=''Y'' ');
+      Open;
+    end;
+    if ADOQueryTemp.RecordCount>1 then
+    begin
+      ADOQueryCmd.Connection.RollbackTrans;
+      Application.MessageBox('订单号重复!','提示',0);
+      Exit;
+    end else
+    begin
+      with ADOQueryCmd do
+      begin
+        Close;
+        sql.Clear;
+        sql.Add('Update JYOrder_BG Set EditCount=');
+        sql.Add('(select Count(*) from JYOrder_BG where OrderNo='''+Trim(OrderNo.Text)+''')');
+        sql.Add(' where BGID='''+Trim(maxno)+'''');
+        SQL.Add(' Update JYOrder_BG Set Valid=''N'' ');
+        sql.Add(' where OrderNo='''+Trim(OrderNo.Text)+'''');
+        if Trim(BatchNo.Text)<>'' then
+        begin
+          SQL.Add(' and isnull(BatchNo,'''')='''+Trim(BatchNo.Text)+'''');
+        end;
+        sql.Add(' and BGID<>'''+Trim(maxno)+'''');
+        ExecSQL;
+      end;
+    end;
+
+    ///保存子表
+    with ClientDataSet2 do
+    begin
+      First;
+      while not Eof do
+      begin
+        if Trim(ClientDataSet2.fieldbyname('BQId').AsString)='' then
+        begin
+          if GetLSNo(ADOQueryCmd,maxsubno,'BQ','JYOrder_BG_Qty',4,1)=False then
+          begin
+            ADOQueryCmd.Connection.RollbackTrans;
+            Application.MessageBox('取子流水号失败！','提示',0);
+            Exit;
+          end;
+        end else
+        begin
+          maxsubno:=Trim(ClientDataSet2.fieldbyname('BQId').AsString);
+        end;
+        with ADOQueryCmd do
+        begin
+          Close;
+          SQL.Clear;
+          sql.Add('select * from JYOrder_BG_Qty where BQId='''+Trim(maxsubno)+'''');
+          Open;
+        end;
+        with ADOQueryCmd do
+        begin
+          if Trim(ClientDataSet2.fieldbyname('BQId').AsString)='' then
+            Append
+          else
+            Edit;
+          FieldByName('BGId').Value:=Trim(maxno);
+          FieldByName('BQId').Value:=Trim(maxsubno);
+          RTSetSaveDataCDS(ADOQueryCmd,Tv2,ClientDataSet2,'JYOrder_BG_Qty',0);
+          Post;
+        end;
+        ClientDataSet2.Edit;
+        ClientDataSet2.FieldByName('BQId').Value:=Trim(maxsubno);
+        //Order_Sub.Post;
+        Next;
+      end;
+    end;
+    ///保存报关名称
+    with ClientDataSet1 do
+    begin
+      First;
+      while not Eof do
+      begin
+        if Trim(ClientDataSet1.fieldbyname('BNId').AsString)='' then
+        begin
+          if GetLSNo(ADOQueryCmd,maxBgNo,'BN','JYOrder_BG_Name',4,1)=False then
+          begin
+            ADOQueryCmd.Connection.RollbackTrans;
+            Application.MessageBox('取报关名称子流水号失败！','提示',0);
+            Exit;
+          end;
+        end else
+        begin
+          maxBgNo:=Trim(ClientDataSet1.fieldbyname('BNId').AsString);
+        end;
+        with ADOQueryCmd do
+        begin
+          Close;
+          SQL.Clear;
+          sql.Add('select * from JYOrder_BG_Name where BNId='''+Trim(maxBgNo)+'''');
+          Open;
+        end;
+        with ADOQueryCmd do
+        begin
+          if Trim(ClientDataSet1.fieldbyname('BNId').AsString)='' then
+            Append
+          else
+            Edit;
+          FieldByName('BGId').Value:=Trim(maxno);
+          FieldByName('BNId').Value:=Trim(maxBgNo);
+          RTSetSaveDataCDS(ADOQueryCmd,Tv1,ClientDataSet1,'JYOrder_BG_Name',0);
+          Post;
+        end;
+        ClientDataSet1.Edit;
+        ClientDataSet1.FieldByName('BNId').Value:=Trim(maxBgNo);
+        //Order_Sub.Post;
+        Next;
+      end;
+    end;
+    ADOQueryCmd.Connection.CommitTrans;
+    Result:=True;
+    FBGID:=Trim(maxno);
+  except
+    Result:=False;
+    ADOQueryCmd.Connection.RollbackTrans;
+    Application.MessageBox('保存失败！','提示',0);
+  end;
+end;
+
+procedure TfrmBGZLInput.TBSaveClick(Sender: TObject);
+var
+  FReal:Double;
+begin
+  ToolBar1.SetFocus;
+  if Trim(OrderNo.Text)='' then
+  begin
+    Application.MessageBox('订单号不能为空！','提示',0);
+    Exit;
+  end;
+  with ADOQueryTemp do
+  begin
+    Close;
+    sql.Clear;
+    sql.Add('select * from JYOrder_Main where orderno='''+Trim(OrderNo.Text)+'''');
+    Open;
+  end;
+  if ADOQueryTemp.IsEmpty then
+  begin
+    Application.MessageBox('此订单号不存在!','提示',0);
+    Exit;
+  end;
+  if Trim(ComTaiTou.Text)='' then
+  begin
+    Application.MessageBox('报关单位不能为空！','提示',0);
+    Exit;
+  end;
+  if ClientDataSet1.IsEmpty then
+  begin
+    Application.MessageBox('品名明细不能为空!','提示',0);
+    Exit;
+  end;
+  if ClientDataSet1.Locate('BGName',Null,[])=True then
+  begin
+    Application.MessageBox('中文名称不能为空!','提示',0);
+    Exit;
+  end;
+  if Trim(MLenStr.Text)<>'' then
+  begin
+    if TryStrToFloat(MLenStr.Text,FReal)=False then
+    begin
+      Application.MessageBox('米长数字非法!','提示',0);
+      Exit;
+    end;
+  end;
+  if Trim(HaiYunFee.Text)<>'' then
+  begin
+    if TryStrToFloat(HaiYunFee.Text,FReal)=False then
+    begin
+      Application.MessageBox('海运费数字非法!','提示',0);
+      Exit;
+    end;
+  end;
+  if Trim(BaoFee.Text)<>'' then
+  begin
+    if TryStrToFloat(BaoFee.Text,FReal)=False then
+    begin
+      Application.MessageBox('保费数字非法!','提示',0);
+      Exit;
+    end;
+  end;
+  if ClientDataSet2.IsEmpty then
+  begin
+    Application.MessageBox('明细不能为空!','提示',0);
+    Exit;
+  end;
+  if ClientDataSet2.Locate('BQPS',Null,[])=True then
+  begin
+    Application.MessageBox('匹数不能为空!','提示',0);
+    Exit;
+  end;
+  if ClientDataSet2.Locate('BQQty',Null,[])=True then
+  begin
+    Application.MessageBox('数量不能为空!','提示',0);
+    Exit;
+  end;
+  if ClientDataSet2.Locate('FactoryName',Null,[])=True then
+  begin
+    Application.MessageBox('供应商不能为空!','提示',0);
+    Exit;
+  end;
+  if ClientDataSet2.Locate('BQUnit',Null,[])=True then
+  begin
+    Application.MessageBox('单位不能为空!','提示',0);
+    Exit;
+  end;
+  if ClientDataSet2.Locate('PSName',Null,[])=True then
+  begin
+    Application.MessageBox('工序名称不能为空!','提示',0);
+    Exit;
+  end;
+
+  if SaveData() then
+  begin
+    Application.MessageBox('保存成功！','提示',0);
+  end;
+
+
+end;
+
+procedure TfrmBGZLInput.ToolButton3Click(Sender: TObject);
+begin
+  try
+    frmZDYHelp:=TfrmZDYHelp.Create(Application);
+    with frmZDYHelp do
+    begin
+      flag:='BGName';
+      flagname:='报关品名';
+      if ShowModal=1 then
+      begin
+        with Self.ClientDataSet1 do
+        begin
+          Append;
+          FieldByName('BGName').Value:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString);
+          Post;
+        end;
+
+      end;
+    end;
+  finally
+    frmZDYHelp.Free;
+  end;
+end;
+
+procedure TfrmBGZLInput.ToolButton4Click(Sender: TObject);
+begin
+  if ClientDataSet1.IsEmpty then Exit;
+  if Trim(ClientDataSet1.fieldbyname('BNID').AsString)<>'' then
+  begin
+    if Application.MessageBox('确定要删除数据吗？','提示',32+4)<>IDYES then Exit;
+    with ADOQueryCmd do
+    begin
+      Close;
+      sql.Clear;
+      sql.Add('delete JYOrder_BG_Name where BNID='''+Trim(ClientDataSet1.fieldbyname('BNID').AsString)+'''');
+      ExecSQL;
+    end;
+  end;
+  ClientDataSet1.Delete;
+end;
+
+procedure TfrmBGZLInput.Tv7DblClick(Sender: TObject);
+begin
+  with ClientDataSet2 do
+  begin
+    Append;
+    FieldByName('PSName').Value:=ClientDataSet7.fieldbyname('PSName').Value;
+    FieldByName('FactoryName').Value:=ClientDataSet7.fieldbyname('GYSName').Value;
+    FieldByName('FactoryNo').Value:=ClientDataSet7.fieldbyname('GYSCode').Value;
+    FieldByName('BQUnit').Value:=ClientDataSet7.fieldbyname('QtyUnit').Value;
+    Post;
+  end;
+end;
+
+procedure TfrmBGZLInput.ToolButton1Click(Sender: TObject);
+begin
+  with ClientDataSet2 do
+  begin
+    Append;
+    Post;
+  end;
+end;
+
+procedure TfrmBGZLInput.ChengJiaoTypeBtnClick(Sender: TObject);
+begin
+  try
+    frmZDYHelp:=TfrmZDYHelp.Create(Application);
+    with frmZDYHelp do
+    begin
+      flag:='ChengJiaoType';
+      flagname:='成交方式';
+      if ShowModal=1 then
+      begin
+        ChengJiaoType.Text:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString);
+      end;
+    end;
+  finally
+    frmZDYHelp.Free;
+  end;
+end;
+
+procedure TfrmBGZLInput.HuoYuanPlaceBtnClick(Sender: TObject);
+begin
+  try
+    frmZDYHelp:=TfrmZDYHelp.Create(Application);
+    with frmZDYHelp do
+    begin
+      flag:='HuoYuanPlace';
+      flagname:='货源地';
+      if ShowModal=1 then
+      begin
+        HuoYuanPlace.Text:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString);
+      end;
+    end;
+  finally
+    frmZDYHelp.Free;
+  end;
+end;
+
+procedure TfrmBGZLInput.ChuKouKABtnClick(Sender: TObject);
+begin
+  try
+    frmZDYHelp:=TfrmZDYHelp.Create(Application);
+    with frmZDYHelp do
+    begin
+      flag:='ChuKouKA';
+      flagname:='出口口岸';
+      if ShowModal=1 then
+      begin
+        ChuKouKA.Text:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString);
+      end;
+    end;
+  finally
+    frmZDYHelp.Free;
+  end;
+end;
+
+procedure TfrmBGZLInput.YunDiGBtnClick(Sender: TObject);
+begin
+  try
+    frmZDYHelp:=TfrmZDYHelp.Create(Application);
+    with frmZDYHelp do
+    begin
+      flag:='YunDiG';
+      flagname:='运抵国';
+      if ShowModal=1 then
+      begin
+        YunDiG.Text:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString);
+      end;
+    end;
+  finally
+    frmZDYHelp.Free;
+  end;
+end;
+
+end.

坯布码单待检(PBMDDJ.dll)/U_BGZLInputNew.dfm

@@ -0,0 +1,737 @@
+object frmBGZLInputNew: TfrmBGZLInputNew
+  Left = 44
+  Top = 87
+  Width = 1181
+  Height = 575
+  Align = alClient
+  Caption = #25253#20851#36164#26009#21333
+  Color = clBtnFace
+  Font.Charset = GB2312_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -12
+  Font.Name = #23435#20307
+  Font.Style = []
+  OldCreateOrder = False
+  Position = poScreenCenter
+  OnDestroy = FormDestroy
+  OnShow = FormShow
+  PixelsPerInch = 96
+  TextHeight = 12
+  object ToolBar1: TToolBar
+    Left = 0
+    Top = 0
+    Width = 1173
+    Height = 29
+    ButtonHeight = 30
+    ButtonWidth = 59
+    Caption = 'ToolBar1'
+    Color = clBtnFace
+    EdgeInner = esNone
+    EdgeOuter = esNone
+    Flat = True
+    Font.Charset = GB2312_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -12
+    Font.Name = #23435#20307
+    Font.Style = []
+    Images = DataLink_CYZZ.ThreeImgList
+    List = True
+    ParentColor = False
+    ParentFont = False
+    ShowCaptions = True
+    TabOrder = 0
+    object TBSave: TToolButton
+      Left = 0
+      Top = 0
+      AutoSize = True
+      Caption = #20445#23384
+      ImageIndex = 5
+      OnClick = TBSaveClick
+    end
+    object TBClose: TToolButton
+      Left = 63
+      Top = 0
+      AutoSize = True
+      Caption = #20851#38381
+      ImageIndex = 21
+      OnClick = TBCloseClick
+    end
+  end
+  object Panel1: TPanel
+    Left = 0
+    Top = 29
+    Width = 593
+    Height = 515
+    Align = alLeft
+    BevelInner = bvRaised
+    BevelOuter = bvLowered
+    TabOrder = 1
+    object Panel2: TPanel
+      Left = 2
+      Top = 2
+      Width = 589
+      Height = 254
+      Align = alTop
+      BevelInner = bvRaised
+      BevelOuter = bvLowered
+      TabOrder = 0
+      object Label1: TLabel
+        Left = 21
+        Top = 15
+        Width = 66
+        Height = 12
+        Caption = #35746' '#21333' '#21495#65306
+        Font.Charset = GB2312_CHARSET
+        Font.Color = clWindowText
+        Font.Height = -12
+        Font.Name = #23435#20307
+        Font.Style = [fsBold]
+        ParentFont = False
+      end
+      object Label6: TLabel
+        Left = 279
+        Top = 86
+        Width = 65
+        Height = 12
+        Caption = #20179#24211#25968#37327#65306
+        Font.Charset = GB2312_CHARSET
+        Font.Color = clWindowText
+        Font.Height = -12
+        Font.Name = #23435#20307
+        Font.Style = [fsBold]
+        ParentFont = False
+      end
+      object Label4: TLabel
+        Left = 21
+        Top = 119
+        Width = 67
+        Height = 12
+        Caption = #22791'    '#27880#65306
+        Font.Charset = GB2312_CHARSET
+        Font.Color = clWindowText
+        Font.Height = -12
+        Font.Name = #23435#20307
+        Font.Style = [fsBold]
+        ParentFont = False
+      end
+      object Label7: TLabel
+        Left = 21
+        Top = 51
+        Width = 67
+        Height = 12
+        Caption = #31859'    '#38271#65306
+        Font.Charset = GB2312_CHARSET
+        Font.Color = clWindowText
+        Font.Height = -12
+        Font.Name = #23435#20307
+        Font.Style = [fsBold]
+        ParentFont = False
+      end
+      object Label9: TLabel
+        Left = 21
+        Top = 86
+        Width = 65
+        Height = 12
+        Caption = #20179#24211#20214#25968#65306
+        Font.Charset = GB2312_CHARSET
+        Font.Color = clWindowText
+        Font.Height = -12
+        Font.Name = #23435#20307
+        Font.Style = [fsBold]
+        ParentFont = False
+      end
+      object Label18: TLabel
+        Left = 279
+        Top = 15
+        Width = 65
+        Height = 12
+        Caption = #25253#20851#21333#20301#65306
+        Font.Charset = GB2312_CHARSET
+        Font.Color = clWindowText
+        Font.Height = -12
+        Font.Name = #23435#20307
+        Font.Style = [fsBold]
+        ParentFont = False
+      end
+      object Label3: TLabel
+        Left = 279
+        Top = 51
+        Width = 65
+        Height = 12
+        Caption = #25968#37327#21333#20301#65306
+        Font.Charset = GB2312_CHARSET
+        Font.Color = clWindowText
+        Font.Height = -12
+        Font.Name = #23435#20307
+        Font.Style = [fsBold]
+        ParentFont = False
+      end
+      object OrderNo: TEdit
+        Tag = 2
+        Left = 87
+        Top = 11
+        Width = 170
+        Height = 20
+        CharCase = ecUpperCase
+        TabOrder = 0
+        OnChange = OrderNoChange
+        OnKeyPress = OrderNoKeyPress
+      end
+      object Note: TMemo
+        Tag = 2
+        Left = 87
+        Top = 119
+        Width = 426
+        Height = 125
+        TabOrder = 1
+      end
+      object CangKuQty: TEdit
+        Tag = 2
+        Left = 341
+        Top = 82
+        Width = 173
+        Height = 20
+        TabOrder = 2
+      end
+      object MLenStr: TEdit
+        Tag = 2
+        Left = 87
+        Top = 46
+        Width = 171
+        Height = 20
+        TabOrder = 3
+      end
+      object CangKuPS: TEdit
+        Tag = 2
+        Left = 87
+        Top = 82
+        Width = 170
+        Height = 20
+        TabOrder = 4
+      end
+      object ComTaiTou: TBtnEditA
+        Tag = 2
+        Left = 341
+        Top = 10
+        Width = 171
+        Height = 20
+        ReadOnly = True
+        TabOrder = 5
+        OnBtnClick = ComTaiTouBtnClick
+      end
+      object QtyUnit: TEdit
+        Tag = 2
+        Left = 341
+        Top = 46
+        Width = 171
+        Height = 20
+        TabOrder = 6
+      end
+      object cxGrid6: TcxGrid
+        Left = 87
+        Top = 31
+        Width = 345
+        Height = 177
+        Font.Charset = GB2312_CHARSET
+        Font.Color = clWindowText
+        Font.Height = -12
+        Font.Name = #23435#20307
+        Font.Style = []
+        ParentFont = False
+        TabOrder = 7
+        Visible = False
+        object TvOrdeNo: TcxGridDBTableView
+          OnDblClick = TvOrdeNoDblClick
+          NavigatorButtons.ConfirmDelete = False
+          DataController.DataSource = DS_OrderNo
+          DataController.Summary.DefaultGroupSummaryItems = <>
+          DataController.Summary.FooterSummaryItems = <>
+          DataController.Summary.SummaryGroups = <>
+          OptionsCustomize.ColumnFiltering = False
+          OptionsSelection.CellSelect = False
+          OptionsView.GroupByBox = False
+          Styles.Header = DataLink_CYZZ.Default
+          object cxGridDBColumn7: TcxGridDBColumn
+            Caption = #35746#21333#21495
+            DataBinding.FieldName = 'OrderNo'
+            HeaderAlignmentHorz = taCenter
+            Width = 166
+          end
+          object cxGridDBColumn10: TcxGridDBColumn
+            Caption = #20135#21697#21517#31216
+            DataBinding.FieldName = 'MPRTCodeName'
+            HeaderAlignmentHorz = taCenter
+            Width = 155
+          end
+        end
+        object cxGrid4Level1: TcxGridLevel
+          GridView = TvOrdeNo
+        end
+      end
+    end
+    object Panel3: TPanel
+      Left = 2
+      Top = 256
+      Width = 589
+      Height = 257
+      Align = alClient
+      BevelInner = bvRaised
+      BevelOuter = bvLowered
+      TabOrder = 1
+      object ToolBar2: TToolBar
+        Left = 2
+        Top = 2
+        Width = 585
+        Height = 33
+        ButtonHeight = 30
+        ButtonWidth = 59
+        Caption = 'ToolBar1'
+        Color = clBtnFace
+        Flat = True
+        Font.Charset = GB2312_CHARSET
+        Font.Color = clWindowText
+        Font.Height = -12
+        Font.Name = #23435#20307
+        Font.Style = []
+        Images = DataLink_CYZZ.ThreeImgList
+        List = True
+        ParentColor = False
+        ParentFont = False
+        ShowCaptions = True
+        TabOrder = 0
+        object ToolButton1: TToolButton
+          Left = 0
+          Top = 0
+          AutoSize = True
+          Caption = #22686#34892
+          ImageIndex = 12
+          OnClick = ToolButton1Click
+        end
+        object ToolButton2: TToolButton
+          Left = 63
+          Top = 0
+          AutoSize = True
+          Caption = #21024#34892
+          ImageIndex = 13
+          OnClick = ToolButton2Click
+        end
+      end
+      object cxGrid2: TcxGrid
+        Left = 2
+        Top = 35
+        Width = 585
+        Height = 220
+        Align = alClient
+        TabOrder = 1
+        object Tv2: TcxGridDBTableView
+          NavigatorButtons.ConfirmDelete = False
+          DataController.DataSource = DataSource2
+          DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
+          DataController.Summary.DefaultGroupSummaryItems = <
+            item
+              Format = '0'
+              Position = spFooter
+            end
+            item
+              Format = '0'
+              Position = spFooter
+            end
+            item
+              Format = '0'
+              Position = spFooter
+            end
+            item
+              Format = '0'
+              Position = spFooter
+              Column = cxGridDBColumn4
+            end>
+          DataController.Summary.FooterSummaryItems = <
+            item
+              Kind = skSum
+            end
+            item
+              Kind = skSum
+            end
+            item
+              Kind = skSum
+            end>
+          DataController.Summary.SummaryGroups = <>
+          OptionsBehavior.FocusCellOnTab = True
+          OptionsBehavior.GoToNextCellOnEnter = True
+          OptionsBehavior.FocusCellOnCycle = True
+          OptionsCustomize.ColumnFiltering = False
+          OptionsView.Footer = True
+          OptionsView.GroupByBox = False
+          Styles.Inactive = DataLink_CYZZ.SHuangSe
+          Styles.IncSearch = DataLink_CYZZ.SHuangSe
+          Styles.Selection = DataLink_CYZZ.SHuangSe
+          Styles.Header = DataLink_CYZZ.Default
+          object cxGridDBColumn1: TcxGridDBColumn
+            Caption = #24037#24207#21517#31216
+            DataBinding.FieldName = 'PSName'
+            PropertiesClassName = 'TcxComboBoxProperties'
+            HeaderAlignmentHorz = taCenter
+            Width = 83
+          end
+          object cxGridDBColumn2: TcxGridDBColumn
+            Caption = #20379#24212#21830
+            DataBinding.FieldName = 'FactoryName'
+            PropertiesClassName = 'TcxButtonEditProperties'
+            Properties.Buttons = <
+              item
+                Default = True
+                Kind = bkEllipsis
+              end>
+            Properties.ReadOnly = True
+            Properties.OnButtonClick = cxGridDBColumn2PropertiesButtonClick
+            HeaderAlignmentHorz = taCenter
+            Options.Sorting = False
+            Styles.Header = DataLink_CYZZ.Default
+            Width = 106
+          end
+          object cxGridDBColumn3: TcxGridDBColumn
+            Caption = #21305#25968
+            DataBinding.FieldName = 'BQPS'
+            HeaderAlignmentHorz = taCenter
+            Width = 72
+          end
+          object cxGridDBColumn4: TcxGridDBColumn
+            Caption = #25968#37327
+            DataBinding.FieldName = 'BQQty'
+            HeaderAlignmentHorz = taCenter
+            Options.Sorting = False
+            Width = 66
+          end
+          object cxGridDBColumn5: TcxGridDBColumn
+            Caption = #21333#20301
+            DataBinding.FieldName = 'BQUnit'
+            PropertiesClassName = 'TcxComboBoxProperties'
+            Properties.Items.Strings = (
+              'M'
+              'Kg')
+            HeaderAlignmentHorz = taCenter
+            Width = 64
+          end
+          object cxGridDBColumn6: TcxGridDBColumn
+            Caption = #22791#27880
+            DataBinding.FieldName = 'BQNote'
+            HeaderAlignmentHorz = taCenter
+            Width = 157
+          end
+        end
+        object cxGridLevel1: TcxGridLevel
+          GridView = Tv2
+        end
+      end
+    end
+  end
+  object Panel4: TPanel
+    Left = 593
+    Top = 29
+    Width = 580
+    Height = 515
+    Align = alClient
+    BevelInner = bvRaised
+    BevelOuter = bvLowered
+    TabOrder = 2
+    object cxGrid1: TcxGrid
+      Left = 2
+      Top = 35
+      Width = 576
+      Height = 108
+      Align = alTop
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = []
+      ParentFont = False
+      TabOrder = 0
+      object Tv1: TcxGridDBTableView
+        OnDblClick = TvOrdeNoDblClick
+        NavigatorButtons.ConfirmDelete = False
+        DataController.DataSource = DataSource1
+        DataController.Summary.DefaultGroupSummaryItems = <>
+        DataController.Summary.FooterSummaryItems = <>
+        DataController.Summary.SummaryGroups = <>
+        OptionsCustomize.ColumnFiltering = False
+        OptionsSelection.CellSelect = False
+        OptionsView.GroupByBox = False
+        Styles.Header = DataLink_CYZZ.Default
+        object cxGridDBColumn8: TcxGridDBColumn
+          Caption = #20013#25991#21697#21517
+          DataBinding.FieldName = 'BGName'
+          HeaderAlignmentHorz = taCenter
+          Width = 190
+        end
+        object v1Column1: TcxGridDBColumn
+          Caption = 'HS'#32534#30721
+          HeaderAlignmentHorz = taCenter
+          Width = 73
+        end
+        object v1Column2: TcxGridDBColumn
+          Caption = #20179#24211#20214#25968
+          HeaderAlignmentHorz = taCenter
+          Width = 70
+        end
+        object v1Column3: TcxGridDBColumn
+          Caption = #20179#24211#25968#37327
+          HeaderAlignmentHorz = taCenter
+          Width = 74
+        end
+        object v1Column4: TcxGridDBColumn
+          Caption = #25968#37327#21333#20301
+          HeaderAlignmentHorz = taCenter
+          Width = 76
+        end
+      end
+      object cxGridLevel2: TcxGridLevel
+        GridView = Tv1
+      end
+    end
+    object ToolBar3: TToolBar
+      Left = 2
+      Top = 2
+      Width = 576
+      Height = 33
+      ButtonHeight = 30
+      ButtonWidth = 59
+      Caption = 'ToolBar1'
+      Color = clBtnFace
+      Flat = True
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = []
+      Images = DataLink_CYZZ.ThreeImgList
+      List = True
+      ParentColor = False
+      ParentFont = False
+      ShowCaptions = True
+      TabOrder = 1
+      object ToolButton3: TToolButton
+        Left = 0
+        Top = 0
+        AutoSize = True
+        Caption = #22686#34892
+        ImageIndex = 12
+        OnClick = ToolButton3Click
+      end
+      object ToolButton4: TToolButton
+        Left = 63
+        Top = 0
+        AutoSize = True
+        Caption = #21024#34892
+        ImageIndex = 13
+        OnClick = ToolButton4Click
+      end
+    end
+    object cxGrid7: TcxGrid
+      Left = 2
+      Top = 143
+      Width = 576
+      Height = 370
+      Align = alClient
+      TabOrder = 2
+      object Tv7: TcxGridDBTableView
+        OnDblClick = Tv7DblClick
+        NavigatorButtons.ConfirmDelete = False
+        DataController.DataSource = DataSource7
+        DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoGroupsAlwaysExpanded, dcoImmediatePost]
+        DataController.Summary.DefaultGroupSummaryItems = <
+          item
+            Format = '0'
+            Position = spFooter
+          end
+          item
+            Format = '0'
+            Position = spFooter
+          end
+          item
+            Format = '0'
+            Position = spFooter
+          end
+          item
+            Kind = skSum
+            Position = spFooter
+            Column = cxGridDBColumn31
+          end
+          item
+            Format = '0'
+            Kind = skSum
+            Position = spFooter
+            Column = cxGridDBColumn32
+          end>
+        DataController.Summary.FooterSummaryItems = <
+          item
+            Kind = skSum
+          end
+          item
+            Kind = skSum
+          end
+          item
+            Kind = skSum
+          end>
+        DataController.Summary.SummaryGroups = <>
+        OptionsBehavior.FocusCellOnTab = True
+        OptionsBehavior.GoToNextCellOnEnter = True
+        OptionsBehavior.FocusCellOnCycle = True
+        OptionsCustomize.ColumnFiltering = False
+        OptionsData.Editing = False
+        OptionsView.Footer = True
+        OptionsView.GroupFooters = gfAlwaysVisible
+        Styles.Inactive = DataLink_CYZZ.SHuangSe
+        Styles.IncSearch = DataLink_CYZZ.SHuangSe
+        Styles.Selection = DataLink_CYZZ.SHuangSe
+        Styles.Header = DataLink_CYZZ.Default
+        object cxGridDBColumn30: TcxGridDBColumn
+          Caption = #20379#24212#21830
+          DataBinding.FieldName = 'FactoryName'
+          HeaderAlignmentHorz = taCenter
+          Options.Sorting = False
+          Styles.Header = DataLink_CYZZ.FontBlue
+          Width = 58
+        end
+        object cxGridDBColumn34: TcxGridDBColumn
+          Caption = #24037#24207#21517#31216
+          DataBinding.FieldName = 'PSNameHZ'
+          Visible = False
+          GroupIndex = 0
+          HeaderAlignmentHorz = taCenter
+          Styles.Header = DataLink_CYZZ.FontBlue
+          Width = 61
+        end
+        object v7Column2: TcxGridDBColumn
+          Caption = #31867#22411
+          DataBinding.FieldName = 'MDType'
+          HeaderAlignmentHorz = taCenter
+          Options.Editing = False
+          Styles.Header = DataLink_CYZZ.FontBlue
+          Width = 52
+        end
+        object cxGridDBColumn32: TcxGridDBColumn
+          Caption = #21305#25968
+          DataBinding.FieldName = 'MDPS'
+          HeaderAlignmentHorz = taCenter
+          Styles.Footer = DataLink_CYZZ.FontBlue
+          Styles.Header = DataLink_CYZZ.FontBlue
+          Width = 48
+        end
+        object cxGridDBColumn31: TcxGridDBColumn
+          Caption = #25968#37327
+          DataBinding.FieldName = 'MDQty'
+          HeaderAlignmentHorz = taCenter
+          Options.Sorting = False
+          Styles.Footer = DataLink_CYZZ.FoneRed
+          Styles.Header = DataLink_CYZZ.FontBlue
+          Width = 84
+        end
+        object v7Column1: TcxGridDBColumn
+          Caption = #21333#20301
+          DataBinding.FieldName = 'QtyUnit'
+          HeaderAlignmentHorz = taCenter
+          Styles.Header = DataLink_CYZZ.FontBlue
+          Width = 32
+        end
+        object cxGridDBColumn36: TcxGridDBColumn
+          Caption = #22791#27880
+          DataBinding.FieldName = 'NoteXS'
+          HeaderAlignmentHorz = taCenter
+          Styles.Header = DataLink_CYZZ.FontBlue
+          Width = 188
+        end
+      end
+      object cxGridLevel5: TcxGridLevel
+        GridView = Tv7
+      end
+    end
+  end
+  object ADOQueryTemp: TADOQuery
+    Connection = DataLink_CYZZ.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 624
+    Top = 8
+  end
+  object ADOQueryMain: TADOQuery
+    Connection = DataLink_CYZZ.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 656
+    Top = 8
+  end
+  object ADOQueryCmd: TADOQuery
+    Connection = DataLink_CYZZ.ADOLink
+    Parameters = <>
+    Left = 680
+    Top = 8
+  end
+  object ADOQuery1: TADOQuery
+    Connection = DataLink_CYZZ.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 712
+    Top = 8
+  end
+  object ClientDataSet7: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 632
+    Top = 435
+  end
+  object cxGridPopupMenu7: TcxGridPopupMenu
+    PopupMenus = <>
+    Left = 700
+    Top = 442
+  end
+  object DataSource7: TDataSource
+    DataSet = ClientDataSet7
+    Left = 781
+    Top = 439
+  end
+  object ClientDataSet2: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 433
+    Top = 384
+  end
+  object cxGridPopupMenu2: TcxGridPopupMenu
+    PopupMenus = <>
+    Left = 473
+    Top = 388
+  end
+  object DataSource2: TDataSource
+    DataSet = ClientDataSet2
+    Left = 509
+    Top = 384
+  end
+  object DS_OrderNo: TDataSource
+    DataSet = CDS_OrderNo
+    Left = 163
+    Top = 104
+  end
+  object CDS_OrderNo: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 206
+    Top = 107
+  end
+  object DataSource1: TDataSource
+    DataSet = ClientDataSet1
+    Left = 932
+    Top = 136
+  end
+  object ClientDataSet1: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 975
+    Top = 139
+  end
+  object cxGridPopupMenu1: TcxGridPopupMenu
+    Grid = cxGrid1
+    PopupMenus = <>
+    Left = 768
+    Top = 171
+  end
+end

坯布码单待检(PBMDDJ.dll)/U_BGZLInputNew.pas

@@ -0,0 +1,740 @@
+unit U_BGZLInputNew;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, BtnEdit, StdCtrls, ExtCtrls, ComCtrls, ToolWin, cxStyles,
+  cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB,
+  cxDBData, cxGridLevel, cxGridCustomTableView, cxGridTableView,
+  cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid,
+  cxGridCustomPopupMenu, cxGridPopupMenu, DBClient, ADODB, cxButtonEdit,
+  cxDropDownEdit;
+
+type
+  TfrmBGZLInputNew = class(TForm)
+    ToolBar1: TToolBar;
+    TBSave: TToolButton;
+    TBClose: TToolButton;
+    Panel1: TPanel;
+    Panel2: TPanel;
+    Label1: TLabel;
+    Label6: TLabel;
+    Label4: TLabel;
+    Label7: TLabel;
+    Label9: TLabel;
+    Label18: TLabel;
+    OrderNo: TEdit;
+    Note: TMemo;
+    CangKuQty: TEdit;
+    MLenStr: TEdit;
+    CangKuPS: TEdit;
+    ComTaiTou: TBtnEditA;
+    Label3: TLabel;
+    QtyUnit: TEdit;
+    ADOQueryTemp: TADOQuery;
+    ADOQueryMain: TADOQuery;
+    ADOQueryCmd: TADOQuery;
+    ADOQuery1: TADOQuery;
+    ClientDataSet7: TClientDataSet;
+    cxGridPopupMenu7: TcxGridPopupMenu;
+    DataSource7: TDataSource;
+    ClientDataSet2: TClientDataSet;
+    cxGridPopupMenu2: TcxGridPopupMenu;
+    DataSource2: TDataSource;
+    cxGrid6: TcxGrid;
+    TvOrdeNo: TcxGridDBTableView;
+    cxGridDBColumn7: TcxGridDBColumn;
+    cxGridDBColumn10: TcxGridDBColumn;
+    cxGrid4Level1: TcxGridLevel;
+    DS_OrderNo: TDataSource;
+    CDS_OrderNo: TClientDataSet;
+    Panel3: TPanel;
+    ToolBar2: TToolBar;
+    ToolButton1: TToolButton;
+    ToolButton2: TToolButton;
+    cxGrid2: TcxGrid;
+    Tv2: TcxGridDBTableView;
+    cxGridDBColumn1: TcxGridDBColumn;
+    cxGridDBColumn2: TcxGridDBColumn;
+    cxGridDBColumn3: TcxGridDBColumn;
+    cxGridDBColumn4: TcxGridDBColumn;
+    cxGridDBColumn5: TcxGridDBColumn;
+    cxGridDBColumn6: TcxGridDBColumn;
+    cxGridLevel1: TcxGridLevel;
+    Panel4: TPanel;
+    cxGrid1: TcxGrid;
+    Tv1: TcxGridDBTableView;
+    cxGridDBColumn8: TcxGridDBColumn;
+    cxGridLevel2: TcxGridLevel;
+    ToolBar3: TToolBar;
+    ToolButton3: TToolButton;
+    ToolButton4: TToolButton;
+    DataSource1: TDataSource;
+    ClientDataSet1: TClientDataSet;
+    cxGridPopupMenu1: TcxGridPopupMenu;
+    cxGrid7: TcxGrid;
+    Tv7: TcxGridDBTableView;
+    cxGridDBColumn30: TcxGridDBColumn;
+    cxGridDBColumn34: TcxGridDBColumn;
+    v7Column2: TcxGridDBColumn;
+    cxGridDBColumn32: TcxGridDBColumn;
+    cxGridDBColumn31: TcxGridDBColumn;
+    v7Column1: TcxGridDBColumn;
+    cxGridDBColumn36: TcxGridDBColumn;
+    cxGridLevel5: TcxGridLevel;
+    v1Column1: TcxGridDBColumn;
+    v1Column2: TcxGridDBColumn;
+    v1Column3: TcxGridDBColumn;
+    v1Column4: TcxGridDBColumn;
+    procedure FormDestroy(Sender: TObject);
+    procedure TBCloseClick(Sender: TObject);
+    procedure FormShow(Sender: TObject);
+    procedure OrderNoKeyPress(Sender: TObject; var Key: Char);
+    procedure OrderNoChange(Sender: TObject);
+    procedure TvOrdeNoDblClick(Sender: TObject);
+    procedure ComTaiTouBtnClick(Sender: TObject);
+    procedure Tv7CellDblClick(Sender: TcxCustomGridTableView;
+      ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
+      AShift: TShiftState; var AHandled: Boolean);
+    procedure cxGridDBColumn2PropertiesButtonClick(Sender: TObject;
+      AButtonIndex: Integer);
+    procedure ToolButton1Click(Sender: TObject);
+    procedure ToolButton2Click(Sender: TObject);
+    procedure TBSaveClick(Sender: TObject);
+    procedure ToolButton3Click(Sender: TObject);
+    procedure ToolButton4Click(Sender: TObject);
+    procedure Tv7DblClick(Sender: TObject);
+  private
+    { Private declarations }
+    function SaveData():Boolean;
+  public
+    { Public declarations }
+    FOrderNo,FBGID,FMainId:String;
+    FCopyInt:Integer;
+  end;
+
+var
+  frmBGZLInputNew: TfrmBGZLInputNew;
+
+implementation
+uses
+  U_DataLink,U_RTFun, U_ZDYHelp, U_ZDYHelpSel,U_ModuleNote, U_GYSList;
+
+{$R *.dfm}
+
+procedure TfrmBGZLInputNew.FormDestroy(Sender: TObject);
+begin
+  frmBGZLInput:=nil;
+end;
+
+procedure TfrmBGZLInputNew.TBCloseClick(Sender: TObject);
+begin
+  Close;
+end;
+
+procedure TfrmBGZLInputNew.FormShow(Sender: TObject);
+var
+  fsj:string;
+begin
+  with ADOQueryTemp do
+  begin
+    Close;
+    sql.Clear;
+    sql.Add('select * from JYorder_BG where BGID='''+Trim(FBGID)+'''');
+    Open;
+  end;
+  SCSHDataNew(ADOQueryTemp,Panel2,2);
+  cxGrid6.Visible:=False;
+  with ADOQueryTemp do
+  begin
+    Close;
+    sql.Clear;
+    sql.Add('select * from JYOrder_BG_Qty where BGID='''+Trim(FBGID)+'''');
+    Open;
+  end;
+  SCreateCDS20(ADOQueryTemp,ClientDataSet2);
+  SInitCDSData20(ADOQueryTemp,ClientDataSet2);
+  with ADOQueryTemp do
+  begin
+    Close;
+    sql.Clear;
+    sql.Add('select * from JYOrder_BG_Name where BGID='''+Trim(FBGID)+'''');
+    Open;
+  end;
+  SCreateCDS20(ADOQueryTemp,ClientDataSet1);
+  SInitCDSData20(ADOQueryTemp,ClientDataSet1);
+  with ADOQueryTemp do
+  begin
+    Close;
+    sql.Clear;
+    sql.Add('select * from JYOrder_Main where OrderNo='''+Trim(OrderNo.Text)+'''');
+    Open;
+  end;
+  FMainId:=Trim(ADOQueryTemp.fieldbyname('MainId').AsString);
+  with  ADOQueryTemp do
+  begin
+    Close;
+    sql.Clear;
+    sql.Add('exec P_View_MDQtyFooter_BG :MainId');
+    Parameters.ParamByName('MainId').Value:=Trim(FMainId);
+    Open;
+  end;
+  SCreateCDS20(ADOQueryTemp,ClientDataSet7);
+  SInitCDSData20(ADOQueryTemp,ClientDataSet7);
+  fsj:='select Code=PSName,Name=PSName from JYOrder_Process where MainId='''+Trim(FMainId)+''''+
+       ' order by PSXH';
+  SInitCxGridComboBoxBySql(ADOQueryTemp,cxGridDBColumn1,fsj,1,True,'');
+  if FCopyInt=1 then
+  begin
+    OrderNo.ReadOnly:=True;
+    with ClientDataSet1 do
+    begin
+      First;
+      while not Eof do
+      begin
+        Edit;
+        FieldByName('BNID').Value:='';
+        Post;
+        Next;
+      end;
+    end;
+    with ClientDataSet2 do
+    begin
+      First;
+      while not Eof do
+      begin
+        Edit;
+        FieldByName('BQID').Value:='';
+        Post;
+        Next;
+      end;
+    end;
+    FBGID:='';
+  end;
+  {with ADOQueryTemp do
+  begin
+    Close;
+    sql.Clear;
+    sql.Add('select * from (');
+    sql.Add('select PSName=Cast(A.PSXH As Varchar(20))+'' ''+Cast(A.PSName As Varchar(20)),B.FactoryNo,PSName10=A.PSName,B.FactoryName,sum(QtyFlag*PS) MDPS,Sum(QtyFlag*Qty) MDQty,B.QtyUnit');
+    sql.Add(' from JYOrder_Process A  ');
+    sql.Add(' left join JYOrder_Main_MD B on A.PSID=B.PSID');
+    sql.Add(' inner join JYOrder_Main C on A.Mainid=C.MainId');
+    sql.Add(' where C.OrderNo='''+Trim(OrderNo.Text)+'''');
+    sql.Add(' group by A.PSXH,A.PSName,B.FactoryName,B.FactoryNo,B.QtyUnit)AA where MDQty>0 order by PSName');
+    Open;
+  end;
+  SCreateCDS20(ADOQueryTemp,ClientDataSet7);
+  SInitCDSData20(ADOQueryTemp,ClientDataSet7); }
+end;
+
+procedure TfrmBGZLInputNew.OrderNoKeyPress(Sender: TObject; var Key: Char);
+begin
+  if Key=#13 then
+  begin
+    
+  end;
+end;
+
+procedure TfrmBGZLInputNew.OrderNoChange(Sender: TObject);
+var
+  mvalue:String;
+begin
+  mvalue:=Trim(OrderNo.Text);
+  if Length(Trim(mvalue))<2 then
+  begin
+    cxGrid6.Visible:=False;
+    Exit;
+  end;
+  mvalue:='%'+Trim(mvalue)+'%';
+  with ADOQuery1 do
+  begin
+    Close;
+    sql.Clear;
+    sql.Add('select OrderNo,MPRTCodeName,A.MainId from JYOrder_Main A');
+    sql.Add(' where A.orderno like :orderno ');
+    //sql.Add(' and A.MainId in(select MainId from JYOrder_Sub B where B.Mainid=A.MainId and B.subId in(select OrdSubId from Contract_Cloth_LL))');
+    Parameters.ParamByName('orderno').Value:=mvalue;
+    Open;
+  end;
+  SCreateCDS20(ADOQuery1,CDS_OrderNo);
+  SInitCDSData20(ADOQuery1,CDS_OrderNo);
+  if CDS_OrderNo.IsEmpty then cxGrid6.Visible:=False else cxGrid6.Visible:=True;
+end;
+
+procedure TfrmBGZLInputNew.TvOrdeNoDblClick(Sender: TObject);
+var
+  fsj:string;
+begin
+  OrderNo.Text:=Trim(CDS_OrderNo.fieldbyname('OrderNo').AsString);
+  with ADOQueryCmd do
+  begin
+    Close;
+    sql.Clear;
+    sql.Add('Update JYOrder_Main_MD Set QtyFlag=1');
+    sql.Add(' where ORDMainid='''+Trim(CDS_OrderNo.fieldbyname('MainId').AsString)+'''');
+    sql.Add(' and Isnull(CKName,'''')='''' ');
+    sql.Add('Update JYOrder_Main_MD Set QtyFlag=-1');
+    sql.Add(' where ORDMainid='''+Trim(CDS_OrderNo.fieldbyname('MainId').AsString)+'''');
+    sql.Add(' and Isnull(CKName,'''')<>'''' ');
+    ExecSQL;
+  end;
+  with  ADOQueryTemp do
+  begin
+    Close;
+    sql.Clear;
+    sql.Add('exec P_View_MDQtyFooter_BG :MainId');
+    Parameters.ParamByName('MainId').Value:=Trim(CDS_OrderNo.fieldbyname('MainId').AsString);
+    Open;
+  end;
+  SCreateCDS20(ADOQueryTemp,ClientDataSet7);
+  SInitCDSData20(ADOQueryTemp,ClientDataSet7);
+  fsj:='select Code=PSName,Name=PSName from JYOrder_Process where MainId='''+Trim(CDS_OrderNo.fieldbyname('MainId').AsString)+''''+
+       ' order by PSXH';
+  SInitCxGridComboBoxBySql(ADOQueryTemp,cxGridDBColumn1,fsj,1,True,'');
+  {with ADOQueryTemp do
+  begin
+    Close;
+    sql.Clear;
+    sql.Add('select * from (');
+    sql.Add('select PSName=Cast(A.PSXH As Varchar(20))+'' ''+Cast(A.PSName As Varchar(20)),B.FactoryNo,PSName10=A.PSName,B.FactoryName,sum(QtyFlag*PS) MDPS,Sum(QtyFlag*Qty) MDQty,B.QtyUnit');
+    sql.Add(' from JYOrder_Process A  ');
+    sql.Add(' left join JYOrder_Main_MD B on A.PSID=B.PSID');
+    sql.Add(' inner join JYOrder_Main C on A.Mainid=C.MainId');
+    sql.Add(' where C.OrderNo='''+Trim(OrderNo.Text)+'''');
+    sql.Add(' group by A.PSXH,A.PSName,B.FactoryName,B.FactoryNo,B.QtyUnit)AA where MDQty>0 order by PSName');
+    Open;
+  end;
+  SCreateCDS20(ADOQueryTemp,ClientDataSet7);
+  SInitCDSData20(ADOQueryTemp,ClientDataSet7);}
+  cxGrid6.Visible:=false;
+end;
+
+procedure TfrmBGZLInputNew.ComTaiTouBtnClick(Sender: TObject);
+begin
+  try
+    frmZDYHelp:=TfrmZDYHelp.Create(Application);
+    with frmZDYHelp do
+    begin
+      flag:='GSTT';
+      flagname:='报关单位';
+      V1ZdyStr1.Visible:=True;
+      V1ZdyStr2.Visible:=True;
+      V1ZdyStr3.Visible:=True;
+      V1ZdyStr4.Visible:=True;
+      V1ZdyStr1.Caption:='简称';
+      V1ZdyStr2.Caption:='电话';
+      V1ZdyStr3.Caption:='传真';
+      V1ZdyStr4.Caption:='地址';
+      frmZDYHelp.Align:=alClient;
+      if ShowModal=1 then
+      begin
+        ComTaiTou.Text:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString);
+      end;
+    end;
+  finally
+    frmZDYHelp.Free;
+  end;
+end;
+
+procedure TfrmBGZLInputNew.Tv7CellDblClick(Sender: TcxCustomGridTableView;
+  ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
+  AShift: TShiftState; var AHandled: Boolean);
+begin
+  with ClientDataSet2 do
+  begin
+    Append;
+    FieldByName('PSName').Value:=Trim(ClientDataSet7.fieldbyname('PSName10').AsString);
+    FieldByName('FactoryNo').Value:=Trim(ClientDataSet7.fieldbyname('FactoryNo').AsString);
+    FieldByName('FactoryName').Value:=Trim(ClientDataSet7.fieldbyname('FactoryName').AsString);
+    FieldByName('BQUnit').Value:=Trim(ClientDataSet7.fieldbyname('QtyUnit').AsString);
+    FieldByName('BQPS').Value:=ClientDataSet7.fieldbyname('MDPS').Value;
+    FieldByName('BQQty').Value:=ClientDataSet7.fieldbyname('MDQty').Value;
+    Post;
+  end;
+end;
+
+procedure TfrmBGZLInputNew.cxGridDBColumn2PropertiesButtonClick(
+  Sender: TObject; AButtonIndex: Integer);
+begin
+  try
+    frmGYSList:=TfrmGYSList.Create(Application);
+    with frmGYSList do
+    begin
+      if ShowModal=1 then
+      begin
+        with ClientDataSet2 do
+        begin
+          edit;
+          FieldByName('FactoryNo').Value:=Trim(frmGYSList.Order_Main.fieldbyname('ZKID').AsString) ;
+          FieldByName('FactoryName').Value:=Trim(frmGYSList.Order_Main.fieldbyname('KHNameJC').AsString);
+          //Post;
+        end;
+      end;
+    end;
+  finally
+    frmGYSList.Free;
+  end;
+end;
+
+procedure TfrmBGZLInputNew.ToolButton1Click(Sender: TObject);
+begin
+  with ClientDataSet2 do
+  begin
+    Append;
+    FieldByName('BQUnit').Value:=Trim(QtyUnit.Text);
+    Post;
+  end;
+end;
+
+procedure TfrmBGZLInputNew.ToolButton2Click(Sender: TObject);
+begin
+  if ClientDataSet2.IsEmpty then Exit;
+  if Trim(ClientDataSet2.fieldbyname('BQID').AsString)<>'' then
+  begin
+    if Application.MessageBox('确定要删除数据吗？','提示',32+4)<>IDYES then Exit;
+    with ADOQueryCmd do
+    begin
+      Close;
+      sql.Clear;
+      sql.Add('delete JYOrder_BG_Qty where BQID='''+Trim(ClientDataSet2.fieldbyname('BQID').AsString)+'''');
+      ExecSQL;
+    end;
+  end;
+  ClientDataSet2.Delete;
+end;
+function TfrmBGZLInputNew.SaveData():Boolean;
+var
+  maxno,maxsubno,maxJDNo,JDMainId,maxjfno,maxjcno,maxBgNo:String;
+begin
+  try
+    ADOQueryCmd.Connection.BeginTrans;
+    if FCopyInt=1 then
+    begin
+      with ADOQueryCmd do
+      begin
+        Close;
+        sql.Clear;
+        sql.Add('UPdate JYOrder_BG Set Valid=''N'' ');
+        sql.Add(' where OrderNo='''+Trim(OrderNo.Text)+'''');
+        ExecSQL;
+      end;
+    end;
+
+    ///保存主表
+    if Trim(FBGID)='' then
+    begin
+      if GetLSNo(ADOQueryCmd,maxno,'BG','JYOrder_BG',3,1)=False then
+      begin
+        ADOQueryCmd.Connection.RollbackTrans;
+        Application.MessageBox('取最大号失败!','提示',0);
+        Exit;
+      end;
+    end else
+    begin
+      maxno:=Trim(FBGID);
+    end;
+    with ADOQueryCmd do
+    begin
+      Close;
+      sql.Clear;
+      SQL.Add('select * from JYOrder_BG where BGId='''+Trim(FBGID)+'''');
+      Open;
+    end;
+    with ADOQueryCmd do
+    begin
+      if Trim(FBGID)='' then
+      begin
+        Append;
+      end
+      else begin
+        Edit;
+      end;
+      FieldByName('BGId').Value:=Trim(maxno);
+      RTSetsavedata(ADOQueryCmd,'JYOrder_Main',Panel2,2);
+      if Trim(FBGID)='' then
+      begin
+        FieldByName('Filler').Value:=Trim(DName);
+      end else
+      begin
+        FieldByName('Editer').Value:=Trim(DName);
+        FieldByName('EditTime').Value:=SGetServerDateTime(ADOQueryTemp);
+      end;
+      FieldByName('Note').Value:=Trim(Note.Text);
+      Post;
+    end;
+
+    with ADOQueryTemp do
+    begin
+      Close;
+      sql.Clear;
+      sql.Add('select * from JYOrder_BG where orderno='''+Trim(OrderNo.Text)+'''');
+      sql.Add(' and Valid=''Y'' ');
+      Open;
+    end;
+    if ADOQueryTemp.RecordCount>1 then
+    begin
+      ADOQueryCmd.Connection.RollbackTrans;
+      Application.MessageBox('订单号重复!','提示',0);
+      Exit;
+    end else
+    begin
+      with ADOQueryCmd do
+      begin
+        Close;
+        sql.Clear;
+        sql.Add('Update JYOrder_BG Set EditCount=');
+        sql.Add('(select Count(*) from JYOrder_BG where OrderNo='''+Trim(OrderNo.Text)+''')');
+        sql.Add(' where BGID='''+Trim(maxno)+'''');
+        SQL.Add(' Update JYOrder_BG Set Valid=''N'' ');
+        sql.Add(' where OrderNo='''+Trim(OrderNo.Text)+'''');
+        sql.Add(' and BGID<>'''+Trim(maxno)+'''');
+        ExecSQL;
+      end;
+    end;
+
+    ///保存子表
+    with ClientDataSet2 do
+    begin
+      First;
+      while not Eof do
+      begin
+        if Trim(ClientDataSet2.fieldbyname('BQId').AsString)='' then
+        begin
+          if GetLSNo(ADOQueryCmd,maxsubno,'BQ','JYOrder_BG_Qty',4,1)=False then
+          begin
+            ADOQueryCmd.Connection.RollbackTrans;
+            Application.MessageBox('取子流水号失败！','提示',0);
+            Exit;
+          end;
+        end else
+        begin
+          maxsubno:=Trim(ClientDataSet2.fieldbyname('BQId').AsString);
+        end;
+        with ADOQueryCmd do
+        begin
+          Close;
+          SQL.Clear;
+          sql.Add('select * from JYOrder_BG_Qty where BQId='''+Trim(maxsubno)+'''');
+          Open;
+        end;
+        with ADOQueryCmd do
+        begin
+          if Trim(ClientDataSet2.fieldbyname('BQId').AsString)='' then
+            Append
+          else
+            Edit;
+          FieldByName('BGId').Value:=Trim(maxno);
+          FieldByName('BQId').Value:=Trim(maxsubno);
+          RTSetSaveDataCDS(ADOQueryCmd,Tv2,ClientDataSet2,'JYOrder_BG_Qty',0);
+          Post;
+        end;
+        ClientDataSet2.Edit;
+        ClientDataSet2.FieldByName('BQId').Value:=Trim(maxsubno);
+        //Order_Sub.Post;
+        Next;
+      end;
+    end;
+    ///保存报关名称
+    with ClientDataSet1 do
+    begin
+      First;
+      while not Eof do
+      begin
+        if Trim(ClientDataSet1.fieldbyname('BNId').AsString)='' then
+        begin
+          if GetLSNo(ADOQueryCmd,maxBgNo,'BN','JYOrder_BG_Name',4,1)=False then
+          begin
+            ADOQueryCmd.Connection.RollbackTrans;
+            Application.MessageBox('取报关名称子流水号失败！','提示',0);
+            Exit;
+          end;
+        end else
+        begin
+          maxBgNo:=Trim(ClientDataSet1.fieldbyname('BNId').AsString);
+        end;
+        with ADOQueryCmd do
+        begin
+          Close;
+          SQL.Clear;
+          sql.Add('select * from JYOrder_BG_Name where BNId='''+Trim(maxBgNo)+'''');
+          Open;
+        end;
+        with ADOQueryCmd do
+        begin
+          if Trim(ClientDataSet1.fieldbyname('BNId').AsString)='' then
+            Append
+          else
+            Edit;
+          FieldByName('BGId').Value:=Trim(maxno);
+          FieldByName('BNId').Value:=Trim(maxBgNo);
+          RTSetSaveDataCDS(ADOQueryCmd,Tv1,ClientDataSet1,'JYOrder_BG_Name',0);
+          Post;
+        end;
+        ClientDataSet1.Edit;
+        ClientDataSet1.FieldByName('BNId').Value:=Trim(maxBgNo);
+        //Order_Sub.Post;
+        Next;
+      end;
+    end;
+    ADOQueryCmd.Connection.CommitTrans;
+    Result:=True;
+    FBGID:=Trim(maxno);
+  except
+    Result:=False;
+    ADOQueryCmd.Connection.RollbackTrans;
+    Application.MessageBox('保存失败！','提示',0);
+  end;
+end;
+
+procedure TfrmBGZLInputNew.TBSaveClick(Sender: TObject);
+var
+  FReal:Double;
+begin
+  ToolBar1.SetFocus;
+  if Trim(OrderNo.Text)='' then
+  begin
+    Application.MessageBox('订单号不能为空！','提示',0);
+    Exit;
+  end;
+  with ADOQueryTemp do
+  begin
+    Close;
+    sql.Clear;
+    sql.Add('select * from JYOrder_Main where orderno='''+Trim(OrderNo.Text)+'''');
+    Open;
+  end;
+  if ADOQueryTemp.IsEmpty then
+  begin
+    Application.MessageBox('此订单号不存在!','提示',0);
+    Exit;
+  end;
+  if Trim(ComTaiTou.Text)='' then
+  begin
+    Application.MessageBox('中文品名不能为空！','提示',0);
+    Exit;
+  end;
+  if Trim(QtyUnit.Text)='' then
+  begin
+    Application.MessageBox('数量单位不能为空！','提示',0);
+    Exit;
+  end;
+  if Trim(CangKuPS.Text)<>'' then
+  begin
+    if TryStrToFloat(CangKuPS.Text,FReal)=False then
+    begin
+      Application.MessageBox('仓库件数非法数字!','提示',0);
+      Exit;
+    end;
+  end else
+  begin
+    Application.MessageBox('仓库件数不能为空!','提示',0);
+    Exit;
+  end;
+  if Trim(CangKuQty.Text)<>'' then
+  begin
+    if TryStrToFloat(CangKuQty.Text,FReal)=False then
+    begin
+      Application.MessageBox('仓库数量非法数字!','提示',0);
+      Exit;
+    end;
+  end else
+  begin
+    Application.MessageBox('仓库数量不能为空!','提示',0);
+    Exit;
+  end;
+  if ClientDataSet2.IsEmpty then
+  begin
+    Application.MessageBox('明细不能为空!','提示',0);
+    Exit;
+  end;
+  if ClientDataSet2.Locate('BQPS',Null,[])=True then
+  begin
+    Application.MessageBox('匹数不能为空!','提示',0);
+    Exit;
+  end;
+  if ClientDataSet2.Locate('BQQty',Null,[])=True then
+  begin
+    Application.MessageBox('数量不能为空!','提示',0);
+    Exit;
+  end;
+  if ClientDataSet2.Locate('FactoryName',Null,[])=True then
+  begin
+    Application.MessageBox('供应商不能为空!','提示',0);
+    Exit;
+  end;
+  if ClientDataSet2.Locate('BQUnit',Null,[])=True then
+  begin
+    Application.MessageBox('单位不能为空!','提示',0);
+    Exit;
+  end;
+  if ClientDataSet2.Locate('PSName',Null,[])=True then
+  begin
+    Application.MessageBox('工序名称不能为空!','提示',0);
+    Exit;
+  end;
+
+  if SaveData() then
+  begin
+    Application.MessageBox('保存成功！','提示',0);
+  end;
+
+
+end;
+
+procedure TfrmBGZLInputNew.ToolButton3Click(Sender: TObject);
+begin
+  try
+    frmZDYHelp:=TfrmZDYHelp.Create(Application);
+    with frmZDYHelp do
+    begin
+      flag:='BGName';
+      flagname:='报关品名';
+      if ShowModal=1 then
+      begin
+        with Self.ClientDataSet1 do
+        begin
+          Append;
+          FieldByName('BGName').Value:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString);
+          Post;
+        end;
+
+      end;
+    end;
+  finally
+    frmZDYHelp.Free;
+  end;
+end;
+
+procedure TfrmBGZLInputNew.ToolButton4Click(Sender: TObject);
+begin
+  if ClientDataSet1.IsEmpty then Exit;
+  if Trim(ClientDataSet1.fieldbyname('BNID').AsString)<>'' then
+  begin
+    if Application.MessageBox('确定要删除数据吗？','提示',32+4)<>IDYES then Exit;
+    with ADOQueryCmd do
+    begin
+      Close;
+      sql.Clear;
+      sql.Add('delete JYOrder_BG_Name where BNID='''+Trim(ClientDataSet1.fieldbyname('BNID').AsString)+'''');
+      ExecSQL;
+    end;
+  end;
+  ClientDataSet1.Delete;
+end;
+
+procedure TfrmBGZLInputNew.Tv7DblClick(Sender: TObject);
+begin
+  with ClientDataSet2 do
+  begin
+    Append;
+    FieldByName('PSName').Value:=ClientDataSet7.fieldbyname('PSName').Value;
+    FieldByName('FactoryName').Value:=ClientDataSet7.fieldbyname('GYSName').Value;
+    FieldByName('FactoryNo').Value:=ClientDataSet7.fieldbyname('GYSCode').Value;
+    FieldByName('BQUnit').Value:=ClientDataSet7.fieldbyname('QtyUnit').Value;
+    Post;
+  end;
+end;
+
+end.

坯布码单待检(PBMDDJ.dll)/U_BHList.dfm

@@ -0,0 +1,671 @@
+object frmBHList: TfrmBHList
+  Left = 28
+  Top = 106
+  Width = 1382
+  Height = 547
+  Caption = #22791#36135#31649#29702
+  Color = clBtnFace
+  Font.Charset = GB2312_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -12
+  Font.Name = #23435#20307
+  Font.Style = []
+  OldCreateOrder = False
+  OnClose = FormClose
+  OnCreate = FormCreate
+  OnDestroy = FormDestroy
+  OnShow = FormShow
+  PixelsPerInch = 96
+  TextHeight = 12
+  object ToolBar1: TToolBar
+    Left = 0
+    Top = 0
+    Width = 1366
+    AutoSize = True
+    ButtonHeight = 30
+    ButtonWidth = 83
+    Caption = 'ToolBar1'
+    Color = clSkyBlue
+    Flat = True
+    Font.Charset = GB2312_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -12
+    Font.Name = #23435#20307
+    Font.Style = []
+    Images = DataLink_CYZZ.ThreeImgList
+    List = True
+    ParentColor = False
+    ParentFont = False
+    ShowCaptions = True
+    TabOrder = 0
+    object TBRafresh: TToolButton
+      Left = 0
+      Top = 0
+      AutoSize = True
+      Caption = #21047#26032
+      ImageIndex = 0
+      OnClick = TBRafreshClick
+    end
+    object ToolButton1: TToolButton
+      Left = 63
+      Top = 0
+      AutoSize = True
+      Caption = #36807#28388
+      ImageIndex = 20
+      OnClick = ToolButton1Click
+    end
+    object TBAdd: TToolButton
+      Left = 126
+      Top = 0
+      AutoSize = True
+      Caption = #22791#36135
+      ImageIndex = 29
+      OnClick = TBAddClick
+    end
+    object TBEdit: TToolButton
+      Left = 189
+      Top = 0
+      AutoSize = True
+      Caption = #22791#36135#25764#38144
+      ImageIndex = 52
+      OnClick = TBEditClick
+    end
+    object TBExport: TToolButton
+      Left = 276
+      Top = 0
+      AutoSize = True
+      Caption = #23548#20986
+      ImageIndex = 6
+      OnClick = TBExportClick
+    end
+    object ToolButton3: TToolButton
+      Left = 339
+      Top = 0
+      AutoSize = True
+      Caption = #25805#20316#35828#26126
+      ImageIndex = 41
+      OnClick = ToolButton3Click
+    end
+    object ToolButton4: TToolButton
+      Left = 426
+      Top = 0
+      AutoSize = True
+      Caption = #25171#21360
+      ImageIndex = 4
+      Visible = False
+      OnClick = ToolButton4Click
+    end
+    object TBClose: TToolButton
+      Left = 489
+      Top = 0
+      AutoSize = True
+      Caption = #20851#38381
+      ImageIndex = 21
+      OnClick = TBCloseClick
+    end
+  end
+  object Panel1: TPanel
+    Left = 0
+    Top = 32
+    Width = 1366
+    Height = 47
+    Align = alTop
+    BevelInner = bvRaised
+    BevelOuter = bvLowered
+    Color = clSkyBlue
+    TabOrder = 1
+    object Label2: TLabel
+      Left = 260
+      Top = 18
+      Width = 18
+      Height = 12
+      Caption = '---'
+    end
+    object Label8: TLabel
+      Left = 383
+      Top = 18
+      Width = 39
+      Height = 12
+      Caption = #35746#21333#21495
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label3: TLabel
+      Left = 30
+      Top = 18
+      Width = 13
+      Height = 12
+      Caption = #25353
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label1: TLabel
+      Left = 147
+      Top = 18
+      Width = 26
+      Height = 12
+      Caption = #26597#35810
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label5: TLabel
+      Left = 576
+      Top = 18
+      Width = 52
+      Height = 12
+      Caption = #20135#21697#32534#21495
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label7: TLabel
+      Left = 728
+      Top = 18
+      Width = 26
+      Height = 12
+      Caption = #39068#33394
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label9: TLabel
+      Left = 850
+      Top = 18
+      Width = 26
+      Height = 12
+      Caption = #33457#22411
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object BegDate: TDateTimePicker
+      Left = 175
+      Top = 14
+      Width = 85
+      Height = 20
+      Date = 40675.464742650460000000
+      Format = 'yyyy-MM-dd'
+      Time = 40675.464742650460000000
+      TabOrder = 0
+    end
+    object EndDate: TDateTimePicker
+      Left = 278
+      Top = 14
+      Width = 86
+      Height = 20
+      Date = 40675.464761099540000000
+      Format = 'yyyy-MM-dd'
+      Time = 40675.464761099540000000
+      TabOrder = 1
+    end
+    object OrderNo: TEdit
+      Tag = 2
+      Left = 423
+      Top = 14
+      Width = 136
+      Height = 20
+      TabOrder = 2
+      OnChange = WorkerChange
+      OnKeyPress = OrderNoKeyPress
+    end
+    object ComboBox2: TComboBox
+      Left = 45
+      Top = 14
+      Width = 101
+      Height = 20
+      Style = csDropDownList
+      ItemHeight = 12
+      TabOrder = 3
+    end
+    object PRTCode: TEdit
+      Tag = 2
+      Left = 630
+      Top = 14
+      Width = 75
+      Height = 20
+      TabOrder = 4
+      OnChange = WorkerChange
+    end
+    object PRTColor: TEdit
+      Tag = 2
+      Left = 755
+      Top = 14
+      Width = 71
+      Height = 20
+      TabOrder = 5
+      OnChange = WorkerChange
+    end
+    object PRTHX: TEdit
+      Tag = 2
+      Left = 878
+      Top = 14
+      Width = 72
+      Height = 20
+      TabOrder = 6
+      OnChange = WorkerChange
+    end
+  end
+  object cxGrid1: TcxGrid
+    Left = 0
+    Top = 100
+    Width = 1366
+    Height = 408
+    Align = alClient
+    TabOrder = 2
+    object Tv1: TcxGridDBTableView
+      NavigatorButtons.ConfirmDelete = False
+      DataController.DataSource = DataSource1
+      DataController.Summary.DefaultGroupSummaryItems = <
+        item
+          Kind = skSum
+          Position = spFooter
+          Column = v1Column2
+        end
+        item
+          Kind = skSum
+          Position = spFooter
+          Column = v1Column22
+        end
+        item
+          Kind = skSum
+          Position = spFooter
+          Column = v1Column11
+        end
+        item
+          Kind = skSum
+          Position = spFooter
+          Column = v1ShipDate
+        end
+        item
+          Kind = skSum
+          Position = spFooter
+        end>
+      DataController.Summary.FooterSummaryItems = <
+        item
+          Kind = skSum
+          Column = v1Column2
+        end
+        item
+          Kind = skSum
+          Column = v1Column3
+        end
+        item
+          Kind = skSum
+          Column = v1Column22
+        end
+        item
+          Kind = skSum
+          Column = v1Column8
+        end
+        item
+          Kind = skSum
+          Column = v1Column11
+        end
+        item
+          Kind = skSum
+          Column = v1ShipDate
+        end>
+      DataController.Summary.SummaryGroups = <>
+      OptionsCustomize.ColumnFiltering = False
+      OptionsView.Footer = True
+      OptionsView.GroupByBox = False
+      OptionsView.GroupFooters = gfAlwaysVisible
+      Styles.Inactive = DataLink_CYZZ.SkyBlue
+      Styles.IncSearch = DataLink_CYZZ.SkyBlue
+      Styles.Selection = DataLink_CYZZ.SkyBlue
+      Styles.Header = DataLink_CYZZ.Default
+      object v1Column15: TcxGridDBColumn
+        Caption = #36873#25321
+        DataBinding.FieldName = 'SSel'
+        PropertiesClassName = 'TcxCheckBoxProperties'
+        Properties.NullStyle = nssUnchecked
+        HeaderAlignmentHorz = taCenter
+        Width = 41
+      end
+      object v1Column6: TcxGridDBColumn
+        Caption = #35746#21333#21495
+        DataBinding.FieldName = 'OrderNo'
+        PropertiesClassName = 'TcxTextEditProperties'
+        Properties.Alignment.Horz = taCenter
+        Properties.Alignment.Vert = taVCenter
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 104
+      end
+      object v1Column18: TcxGridDBColumn
+        Caption = #20135#21697#32534#21495
+        DataBinding.FieldName = 'PRTCode'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 99
+      end
+      object v1Column1: TcxGridDBColumn
+        Caption = #39068#33394
+        DataBinding.FieldName = 'PRTColor'
+        HeaderAlignmentHorz = taCenter
+        HeaderGlyphAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 104
+      end
+      object v1Column9: TcxGridDBColumn
+        Caption = #33457#22411
+        DataBinding.FieldName = 'PRTHX'
+        HeaderAlignmentHorz = taCenter
+        HeaderGlyphAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 98
+      end
+      object v1Column20: TcxGridDBColumn
+        Caption = #25968#37327#21333#20301
+        DataBinding.FieldName = 'QtyUnit'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 72
+      end
+      object v1Column5: TcxGridDBColumn
+        Caption = #30003#35831#20154
+        DataBinding.FieldName = 'Filler'
+        PropertiesClassName = 'TcxTextEditProperties'
+        Properties.Alignment.Horz = taCenter
+        Properties.Alignment.Vert = taVCenter
+        HeaderAlignmentHorz = taCenter
+        HeaderAlignmentVert = vaCenter
+        HeaderGlyphAlignmentHorz = taCenter
+        Options.Editing = False
+        Styles.Header = DataLink_CYZZ.Default
+        Width = 93
+      end
+      object v1Column10: TcxGridDBColumn
+        Tag = 999
+        Caption = #30003#35831#26085#26399
+        DataBinding.FieldName = 'SQDate'
+        PropertiesClassName = 'TcxTextEditProperties'
+        Properties.Alignment.Horz = taCenter
+        Properties.Alignment.Vert = taVCenter
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 70
+      end
+      object v1Column2: TcxGridDBColumn
+        Caption = #30003#35831#21305#25968
+        DataBinding.FieldName = 'SQPS'
+        PropertiesClassName = 'TcxTextEditProperties'
+        Properties.Alignment.Horz = taCenter
+        Properties.Alignment.Vert = taVCenter
+        HeaderAlignmentHorz = taCenter
+        HeaderAlignmentVert = vaCenter
+        HeaderGlyphAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 75
+      end
+      object v1Column3: TcxGridDBColumn
+        Caption = #30003#35831#25968#37327
+        DataBinding.FieldName = 'SQQty'
+        PropertiesClassName = 'TcxTextEditProperties'
+        Properties.Alignment.Horz = taCenter
+        Properties.Alignment.Vert = taVCenter
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 75
+      end
+      object v1Column12: TcxGridDBColumn
+        Caption = #30003#35831#22791#27880
+        DataBinding.FieldName = 'SQNote'
+        PropertiesClassName = 'TcxTextEditProperties'
+        Properties.Alignment.Horz = taCenter
+        Properties.Alignment.Vert = taVCenter
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 74
+      end
+      object v1Column21: TcxGridDBColumn
+        Tag = 999
+        Caption = #22791#36135#26085#26399
+        DataBinding.FieldName = 'BHDate'
+        HeaderAlignmentHorz = taCenter
+        Width = 81
+      end
+      object v1Column22: TcxGridDBColumn
+        Caption = #22791#36135#21305#25968
+        DataBinding.FieldName = 'BHPS'
+        PropertiesClassName = 'TcxTextEditProperties'
+        Properties.Alignment.Horz = taCenter
+        Properties.Alignment.Vert = taVCenter
+        HeaderAlignmentHorz = taCenter
+        Width = 69
+      end
+      object v1Column8: TcxGridDBColumn
+        Caption = #22791#36135#25968#37327
+        DataBinding.FieldName = 'BHQty'
+        PropertiesClassName = 'TcxTextEditProperties'
+        Properties.Alignment.Horz = taCenter
+        Properties.Alignment.Vert = taVCenter
+        HeaderAlignmentHorz = taCenter
+        Width = 76
+      end
+      object v1Column17: TcxGridDBColumn
+        Caption = #22791#36135#22791#27880
+        DataBinding.FieldName = 'BHNote'
+        PropertiesClassName = 'TcxTextEditProperties'
+        Properties.Alignment.Horz = taCenter
+        Properties.Alignment.Vert = taVCenter
+        HeaderAlignmentHorz = taCenter
+        Width = 74
+      end
+      object v1Column19: TcxGridDBColumn
+        Caption = #22791#36135#20154
+        DataBinding.FieldName = 'BHPerson'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 67
+      end
+      object v1Column13: TcxGridDBColumn
+        Caption = #21457#36135#25209#20934#20154
+        DataBinding.FieldName = 'Chker'
+        HeaderAlignmentHorz = taCenter
+        HeaderGlyphAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 69
+      end
+      object v1Column16: TcxGridDBColumn
+        Tag = 999
+        Caption = #25209#20934#26102#38388
+        DataBinding.FieldName = 'ChkTIme'
+        PropertiesClassName = 'TcxTextEditProperties'
+        Properties.Alignment.Horz = taCenter
+        Properties.Alignment.Vert = taVCenter
+        HeaderAlignmentHorz = taCenter
+        HeaderGlyphAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 71
+      end
+      object v1Column4: TcxGridDBColumn
+        Tag = 999
+        Caption = #21457#36135#26085#26399
+        DataBinding.FieldName = 'FHDate'
+        PropertiesClassName = 'TcxTextEditProperties'
+        Properties.Alignment.Horz = taCenter
+        Properties.Alignment.Vert = taVCenter
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 73
+      end
+      object v1Column11: TcxGridDBColumn
+        Caption = #21457#36135#21305#25968
+        DataBinding.FieldName = 'FHPS'
+        PropertiesClassName = 'TcxTextEditProperties'
+        Properties.Alignment.Horz = taCenter
+        Properties.Alignment.Vert = taVCenter
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 74
+      end
+      object v1ShipDate: TcxGridDBColumn
+        Caption = #21457#36135#25968#37327
+        DataBinding.FieldName = 'FHQty'
+        PropertiesClassName = 'TcxTextEditProperties'
+        Properties.Alignment.Horz = taCenter
+        Properties.Alignment.Vert = taVCenter
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Styles.Header = DataLink_CYZZ.Default
+        Width = 70
+      end
+      object v1Column7: TcxGridDBColumn
+        Caption = #21457#36135#22791#27880
+        DataBinding.FieldName = 'FHNote'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 86
+      end
+      object v1Column14: TcxGridDBColumn
+        Caption = #21457#36135#20154
+        DataBinding.FieldName = 'FHPerson'
+        HeaderAlignmentHorz = taCenter
+        HeaderGlyphAlignmentHorz = taCenter
+        Options.Editing = False
+      end
+    end
+    object cxGrid1Level1: TcxGridLevel
+      GridView = Tv1
+    end
+  end
+  object cxTabControl1: TcxTabControl
+    Left = 0
+    Top = 79
+    Width = 1366
+    Height = 21
+    Align = alTop
+    Font.Charset = GB2312_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -12
+    Font.Name = #23435#20307
+    Font.Style = [fsBold]
+    ParentFont = False
+    Style = 8
+    TabIndex = 0
+    TabOrder = 3
+    Tabs.Strings = (
+      #24453#22791#36135
+      #24050#22791#36135
+      #24050#25209#20934#21457#36135
+      #24050#21457#36135
+      #20840#37096)
+    OnChange = cxTabControl1Change
+    ClientRectBottom = 23
+    ClientRectRight = 1366
+    ClientRectTop = 23
+  end
+  object cxGridPopupMenu1: TcxGridPopupMenu
+    PopupMenus = <>
+    Left = 1128
+  end
+  object ADOQueryCmd: TADOQuery
+    Connection = DataLink_CYZZ.ADOLink
+    Parameters = <>
+    Left = 936
+  end
+  object ADOQueryMain: TADOQuery
+    Connection = DataLink_CYZZ.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 1000
+  end
+  object ADOQueryTemp: TADOQuery
+    Connection = DataLink_CYZZ.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 1040
+    Top = 8
+  end
+  object DataSource1: TDataSource
+    DataSet = Order_Main
+    Left = 1168
+    Top = 8
+  end
+  object Order_Main: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 815
+    Top = 7
+  end
+  object RM1: TRMGridReport
+    ThreadPrepareReport = True
+    InitialZoom = pzDefault
+    PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbExport, pbNavigator]
+    DefaultCollate = False
+    SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\'
+    PreviewOptions.RulerUnit = rmutScreenPixels
+    PreviewOptions.RulerVisible = False
+    PreviewOptions.DrawBorder = False
+    PreviewOptions.BorderPen.Color = clGray
+    PreviewOptions.BorderPen.Style = psDash
+    Dataset = RMDBMain
+    CompressLevel = rmzcFastest
+    CompressThread = False
+    LaterBuildEvents = True
+    OnlyOwnerDataSet = False
+    Left = 454
+    Top = 193
+    ReportData = {}
+  end
+  object RMDBMain: TRMDBDataSet
+    Visible = True
+    DataSet = ADOQueryPrint
+    Left = 392
+    Top = 192
+  end
+  object RMXLSExport1: TRMXLSExport
+    ShowAfterExport = True
+    ExportPrecision = 1
+    PagesOfSheet = 1
+    ExportImages = True
+    ExportFrames = True
+    ExportImageFormat = ifBMP
+    JPEGQuality = 0
+    ScaleX = 1.000000000000000000
+    ScaleY = 1.000000000000000000
+    CompressFile = False
+    Left = 423
+    Top = 192
+  end
+  object CDS_PRT: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 877
+    Top = 9
+  end
+  object cxGridPopupMenu2: TcxGridPopupMenu
+    Grid = cxGrid1
+    PopupMenus = <>
+    Left = 485
+    Top = 195
+  end
+  object ADOQueryPrint: TADOQuery
+    Connection = DataLink_CYZZ.ADOLink
+    Parameters = <>
+    Left = 517
+    Top = 195
+  end
+end

坯布码单待检(PBMDDJ.dll)/U_BHList.pas

@@ -0,0 +1,665 @@
+unit U_BHList;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, StdCtrls, ExtCtrls, ComCtrls, ToolWin, cxStyles, cxCustomData,
+  cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, ADODB,
+  cxGridCustomPopupMenu, cxGridPopupMenu, cxGridLevel, cxClasses,
+  cxControls, cxGridCustomView, cxGridCustomTableView, cxGridTableView,
+  cxGridDBTableView, cxGrid, DBClient, cxCalendar, cxButtonEdit, cxSplitter,
+  RM_Common, RM_Class, RM_e_Xls, RM_Dataset, RM_System, RM_GridReport,
+  cxTextEdit, cxPC, cxCheckBox;
+
+
+type
+  TfrmBHList = class(TForm)
+    ToolBar1: TToolBar;
+    TBRafresh: TToolButton;
+    TBAdd: TToolButton;
+    TBEdit: TToolButton;
+    TBClose: TToolButton;
+    cxGridPopupMenu1: TcxGridPopupMenu;
+    ADOQueryCmd: TADOQuery;
+    ADOQueryMain: TADOQuery;
+    ADOQueryTemp: TADOQuery;
+    DataSource1: TDataSource;
+    TBExport: TToolButton;
+    Order_Main: TClientDataSet;
+    RM1: TRMGridReport;
+    RMDBMain: TRMDBDataSet;
+    RMXLSExport1: TRMXLSExport;
+    CDS_PRT: TClientDataSet;
+    ToolButton3: TToolButton;
+    cxGridPopupMenu2: TcxGridPopupMenu;
+    Panel1: TPanel;
+    Label2: TLabel;
+    BegDate: TDateTimePicker;
+    EndDate: TDateTimePicker;
+    Label8: TLabel;
+    OrderNo: TEdit;
+    cxGrid1: TcxGrid;
+    Tv1: TcxGridDBTableView;
+    v1Column6: TcxGridDBColumn;
+    v1Column5: TcxGridDBColumn;
+    v1Column10: TcxGridDBColumn;
+    v1Column2: TcxGridDBColumn;
+    v1Column3: TcxGridDBColumn;
+    v1Column8: TcxGridDBColumn;
+    v1Column4: TcxGridDBColumn;
+    v1Column11: TcxGridDBColumn;
+    v1ShipDate: TcxGridDBColumn;
+    v1Column12: TcxGridDBColumn;
+    cxGrid1Level1: TcxGridLevel;
+    v1Column16: TcxGridDBColumn;
+    v1Column17: TcxGridDBColumn;
+    ComboBox2: TComboBox;
+    Label3: TLabel;
+    Label1: TLabel;
+    v1Column21: TcxGridDBColumn;
+    v1Column22: TcxGridDBColumn;
+    ToolButton1: TToolButton;
+    ToolButton4: TToolButton;
+    Label5: TLabel;
+    PRTCode: TEdit;
+    v1Column1: TcxGridDBColumn;
+    v1Column9: TcxGridDBColumn;
+    Label7: TLabel;
+    PRTColor: TEdit;
+    Label9: TLabel;
+    PRTHX: TEdit;
+    ADOQueryPrint: TADOQuery;
+    v1Column15: TcxGridDBColumn;
+    v1Column18: TcxGridDBColumn;
+    v1Column19: TcxGridDBColumn;
+    v1Column7: TcxGridDBColumn;
+    v1Column13: TcxGridDBColumn;
+    v1Column14: TcxGridDBColumn;
+    v1Column20: TcxGridDBColumn;
+    cxTabControl1: TcxTabControl;
+    procedure FormDestroy(Sender: TObject);
+    procedure FormClose(Sender: TObject; var Action: TCloseAction);
+    procedure TBCloseClick(Sender: TObject);
+    procedure TBDelClick(Sender: TObject);
+    procedure TBExportClick(Sender: TObject);
+    procedure TBRafreshClick(Sender: TObject);
+    procedure FormShow(Sender: TObject);
+    procedure cxPageControl1Change(Sender: TObject);
+    procedure ToolButton3Click(Sender: TObject);
+    procedure FormCreate(Sender: TObject);
+    procedure cxTabControl1Change(Sender: TObject);
+    procedure WorkerChange(Sender: TObject);
+    procedure v1Column15CustomDrawCell(Sender: TcxCustomGridTableView;
+      ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo;
+      var ADone: Boolean);
+    procedure v1Column9CustomDrawCell(Sender: TcxCustomGridTableView;
+      ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo;
+      var ADone: Boolean);
+    procedure ToolButton1Click(Sender: TObject);
+    procedure ToolButton4Click(Sender: TObject);
+    procedure OrderNoKeyPress(Sender: TObject; var Key: Char);
+    procedure TBAddClick(Sender: TObject);
+    procedure TBEditClick(Sender: TObject);
+
+  private
+    FInt,PFInt:Integer;
+    canshu1,canshu2:string;
+    FNowDate:TDateTime;
+    procedure InitGrid();
+    procedure InitForm();
+    function  DelData():Boolean;
+    procedure InitGridWsql(fsj:string);
+    function  SaveData():Boolean;
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+var
+  frmBHList: TfrmBHList;
+
+implementation
+uses
+  U_DataLink,U_RTFun,U_FHInPut,U_ModuleNote, U_ZDYHelp;
+
+{$R *.dfm}
+
+procedure TfrmBHList.FormDestroy(Sender: TObject);
+begin
+  frmBHList:=nil;
+end;
+
+procedure TfrmBHList.FormClose(Sender: TObject;
+  var Action: TCloseAction);
+begin
+  Action:=caFree;
+end;
+
+procedure TfrmBHList.TBCloseClick(Sender: TObject);
+begin
+  Close;
+  WriteCxGrid('备货',Tv1,'检验管理');
+end;
+
+procedure TfrmBHList.InitGrid();
+var
+  fsj:String;
+begin
+  try
+    ADOQueryMain.DisableControls;
+    with ADOQueryMain do
+    begin
+      Filtered:=False;
+      Close;
+      sql.Clear;
+      sql.Add('select AA.* from (');
+      sql.Add(' select A.*,C.OrderNo,D.PRTHX,PRTCode=isnull(C.MPRTCode,'''')+isnull(C.MPRTGY,'''') ');
+      sql.Add(',PRTColor=isnull(D.PRTColorNo,'''')+'' ''+isnull(D.PRTColor,'''')+'' ''+isnull(D.PRTColorEng,'''')');
+      SQL.Add(' from JYOrder_FH A');
+      sql.Add(' inner join JYOrder_Main C on A.MainId=C.MainId');
+      sql.Add(' left join JYOrder_Sub D on A.SubId=D.SubId ) AA');
+      sql.Add(' where 1=1 ');
+      {if Trim(canshu1)<>'高权限' then
+      begin
+        sql.Add('and Filler in(select UserName from  SY_User where DPID in');
+        sql.Add('              (select DPID from SY_User where UserName='''+Trim(DName)+'''))');
+      end; }
+      if cxTabControl1.TabIndex<>0 then
+      begin
+        fsj:=TA(ComboBox2.Items.Objects[ComboBox2.Items.IndexOf(Trim(ComboBox2.Text))]).S;
+        sql.Add(' and AA.'+Trim(fsj)+'>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.Date))+'''');
+        sql.Add(' and AA.'+Trim(fsj)+'<'''+Trim(FormatDateTime('yyyy-MM-dd',EndDate.Date+1))+'''');
+      end;
+
+      if cxTabControl1.TabIndex=0 then
+      begin
+        sql.Add(' and isnull(BHStatus,'''')='''' ');
+      end else
+      if cxTabControl1.TabIndex=1 then
+      begin
+        sql.Add(' and isnull(BHStatus,'''')<>'''' and isnull(ChkStatus,'''')='''' ');
+      end else
+      if cxTabControl1.TabIndex=2 then
+      begin
+        sql.Add(' and isnull(ChkStatus,'''')<>'''' and isnull(FHStatus,'''')='''' ');
+      end else
+      if cxTabControl1.TabIndex=3 then
+      begin
+        sql.Add(' and isnull(FHStatus,'''')<>'''' ');
+      end;
+      Open;
+    end;
+    SCreateCDS20(ADOQueryMain,Order_Main);
+    SInitCDSData20(ADOQueryMain,Order_Main);
+  finally
+    ADOQueryMain.EnableControls;
+  end;
+
+end;
+
+procedure TfrmBHList.InitForm();
+begin
+  FNowDate:=SGetServerDate(ADOQueryTemp);
+  EndDate.Date:=FNowDate;
+  BegDate.Date:=EndDate.Date-7;
+  ReadCxGrid('备货',Tv1,'检验管理');
+  //InitGrid();
+end;
+
+procedure TfrmBHList.TBDelClick(Sender: TObject);
+begin
+  if Order_Main.IsEmpty then Exit;
+  if cxTabControl1.TabIndex<>0 then Exit;
+  if Trim(DName)<>Trim(Order_Main.fieldbyname('Filler').AsString) then
+  begin
+    Application.MessageBox('不能操作他人的信息!','提示',0);
+    Exit;
+  end;
+  if Application.MessageBox('确定要删除数据吗？','提示',32+4)<>IDYES then Exit;
+  if DelData() then
+  begin
+    Order_Main.Delete;
+  end;
+end;
+
+function TfrmBHList.DelData():Boolean;
+begin
+  try
+    Result:=false;
+    ADOQueryCmd.Connection.BeginTrans;
+    with ADOQueryCmd do
+    begin
+      Close;
+      sql.Clear;
+      sql.Add('delete JYOrder_FH  where FHId='''+Trim(Order_Main.fieldbyname('FHId').AsString)+'''');
+      ExecSQL;
+    end;
+    ADOQueryCmd.Connection.CommitTrans;
+    Result:=True;
+  except
+    ADOQueryCmd.Connection.RollbackTrans;
+    Result:=False;
+    Application.MessageBox('数据删除异常！','提示',0);
+  end;
+end;
+
+procedure TfrmBHList.TBExportClick(Sender: TObject);
+begin
+  if Order_Main.IsEmpty then Exit;
+  TcxGridToExcel('备货列表',cxGrid1);
+end;
+
+procedure TfrmBHList.TBRafreshClick(Sender: TObject);
+begin
+  InitGrid();
+end;
+
+procedure TfrmBHList.FormShow(Sender: TObject);
+var
+  i:Integer;
+begin
+  InitForm();
+  SInitComBoxByTvColumns(ComboBox2,Tv1,999,True,True);
+end;
+
+procedure TfrmBHList.cxPageControl1Change(Sender: TObject);
+begin
+  InitGrid();
+end;
+
+procedure TfrmBHList.ToolButton3Click(Sender: TObject);
+begin
+  try
+    frmModuleNote:=TfrmModuleNote.Create(Application);
+    with frmModuleNote do
+    begin
+      flag:='备货';
+      if ShowModal=1 then
+      begin
+
+      end;
+    end;
+  finally
+    frmModuleNote.Free;
+  end;
+end;
+
+procedure TfrmBHList.FormCreate(Sender: TObject);
+begin
+  canshu1:=Trim(DParameters1);
+  canshu2:=Trim(DParameters2);
+end;
+
+procedure TfrmBHList.InitGridWsql(fsj:string);
+begin
+  try
+    ADOQueryMain.DisableControls;
+    with ADOQueryMain do
+    begin
+      Filtered:=False;
+      Close;
+      sql.Clear;
+      sql.Add('select AA.* from (');
+      sql.Add(' select A.*,C.OrderNo,D.PRTHX,PRTCode=isnull(D.PRTCOde)+isnull(D.PRTGY) ');
+      sql.Add(',PRTColor=isnull(D.PRTColorNo,'''')+'' ''+isnull(D.PRTColor,'''')+'' ''+isnull(D.PRTColorEng,'''')');
+      SQL.Add(' from JYOrder_FH A');
+      sql.Add(' inner join JYOrder_Main C on A.MainId=C.MainId');
+      sql.Add(' left join JYOrder_Sub D on A.SubId=D.SubId ) AA');
+      sql.Add(' where 1=1 ');
+      {if Trim(canshu1)<>'高权限' then
+      begin
+        sql.Add('and Filler in(select UserName from  SY_User where DPID in');
+        sql.Add('              (select DPID from SY_User where UserName='''+Trim(DName)+'''))');
+      end; }
+      if cxTabControl1.TabIndex=0 then
+      begin
+        sql.Add(' and isnull(BHStatus,'''')='''' ');
+      end else
+      if cxTabControl1.TabIndex=1 then
+      begin
+        sql.Add(' and isnull(BHStatus,'''')<>'''' and isnull(ChkStatus,'''')='''' ');
+      end else
+      if cxTabControl1.TabIndex=2 then
+      begin
+        sql.Add(' and isnull(ChkStatus,'''')<>'''' and isnull(FHStatus,'''')='''' ');
+      end else
+      if cxTabControl1.TabIndex=3 then
+      begin
+        sql.Add(' and isnull(FHStatus,'''')<>'''' ');
+      end;
+      sql.Add(fsj);
+      Open;
+    end;
+    SCreateCDS20(ADOQueryMain,Order_Main);
+    SInitCDSData20(ADOQueryMain,Order_Main);
+  finally
+    ADOQueryMain.EnableControls;
+  end;
+end;
+function TfrmBHList.SaveData():Boolean;
+var
+  maxno,maxSubNo:String;
+begin
+  try
+    Result:=False;
+    ADOQueryCmd.Connection.BeginTrans;
+    //保存主表
+    if Trim(Order_Main.fieldbyname('MRID').AsString)='' then
+    begin
+      if GetLSNo(ADOQueryCmd,maxno,'MR','Module_Prompt_Result',4,1)=False then
+      begin
+        ADOQueryCmd.Connection.RollbackTrans;
+        Application.MessageBox('取工作子流水号失败!','提示',0);
+        Exit;
+      end;
+    end else
+    begin
+      maxno:=Trim(Order_Main.fieldbyname('MRID').AsString);
+    end;
+    with ADOQueryCmd do
+    begin
+      Close;
+      sql.Clear;
+      SQL.Add('select * from Module_Prompt_Result where MRId='''+Trim(Order_Main.fieldbyname('MRID').AsString)+'''');
+      Open;
+    end;
+    with ADOQueryCmd do
+    begin
+      if Trim(Order_Main.fieldbyname('MRID').AsString)='' then
+      begin
+        Append;
+      end
+      else begin
+        Edit;
+      end;
+      FieldByName('MPId').Value:=Trim(Order_Main.fieldbyname('MPId').AsString);
+      FieldByName('MRId').Value:=Trim(maxno);
+      FieldByName('MRStatus').Value:='已处理';
+      FieldByName('MRDate').Value:=SGetServerDateTime(ADOQueryTemp);
+      if Trim(Order_Main.fieldbyname('MRId').AsString)='' then
+      begin
+        FieldByName('Filler').Value:=Trim(DName);
+      end else
+      begin
+        FieldByName('Editer').Value:=Trim(DName);
+        FieldByName('EditTime').Value:=SGetServerDateTime(ADOQueryTemp);
+      end;
+      Post;
+    end;
+    ADOQueryCmd.Connection.CommitTrans;
+    Result:=True;
+  except
+    Result:=False;
+    ADOQueryCmd.Connection.RollbackTrans;
+    Application.MessageBox('保存失败！','提示',0);
+  end;
+end;
+procedure TfrmBHList.cxTabControl1Change(Sender: TObject);
+begin
+  InitGrid();
+end;
+
+procedure TfrmBHList.WorkerChange(Sender: TObject);
+begin
+  if ADOQueryMain.Active=False then Exit;
+  SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2));
+  SCreateCDS20(ADOQueryMain,Order_Main);
+  SInitCDSData20(ADOQueryMain,Order_Main);
+end;
+
+procedure TfrmBHList.v1Column15CustomDrawCell(
+  Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;
+  AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
+var
+  Id,Id10:Integer;
+begin
+  Id:=TV1.GetColumnByFieldName('YuJinagDate1').Index;//
+  Id10:=TV1.GetColumnByFieldName('MoneyKC').Index;
+  if Id<0 then Exit;
+  //$008000FF 橙红色    橙色 $000D55FF   $00B9EE9F  浅绿
+  if AViewInfo.GridRecord.Values[Id10]>0 then
+  begin
+    if AViewInfo.GridRecord.Values[Id]-FNowDate<=0 then
+    begin
+      ACanvas.Brush.Color:=clYellow;
+    end  else
+    if AViewInfo.GridRecord.Values[Id]=null then
+    begin
+     // ACanvas.Brush.Color:=clWhite;
+    end;
+  end else
+  begin
+    //ACanvas.Brush.Color:=clWhite;
+  end;
+
+end;
+
+procedure TfrmBHList.v1Column9CustomDrawCell(
+  Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;
+  AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
+var
+  Id,Id10:Integer;
+begin
+  Id:=TV1.GetColumnByFieldName('YuJinagDate2').Index;//
+  Id10:=TV1.GetColumnByFieldName('MoneyKC').Index;
+  if Id<0 then Exit;
+  //$008000FF 橙红色    橙色 $000D55FF   $00B9EE9F  浅绿
+  if AViewInfo.GridRecord.Values[Id10]>0 then
+  begin
+    if AViewInfo.GridRecord.Values[Id]-FNowDate<=0 then
+    begin
+      ACanvas.Brush.Color:=clRed;
+    end  else
+    if AViewInfo.GridRecord.Values[Id]=null then
+    begin
+      //ACanvas.Brush.Color:=clWhite;
+    end;
+  end else
+  begin
+    //ACanvas.Brush.Color:=clWhite;
+  end;
+
+end;
+
+procedure TfrmBHList.ToolButton1Click(Sender: TObject);
+begin
+  if ADOQueryMain.Active=False then Exit;
+  SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2));
+  SCreateCDS20(ADOQueryMain,Order_Main);
+  SInitCDSData20(ADOQueryMain,Order_Main);
+end;
+
+procedure TfrmBHList.ToolButton4Click(Sender: TObject);
+var
+  fPrintFile:String;
+begin
+  if Order_Main.IsEmpty then Exit;
+  if Order_Main.Locate('SSel',True,[])=False then
+  begin
+    Application.MessageBox('没有选择数据！','提示',0);
+    Exit;
+  end;
+  fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\检验指示单标签.rmf' ;
+  Order_Main.DisableControls;
+  with Order_Main do
+  begin
+    First;
+    while not eof do
+    begin
+      if Order_Main.FieldByName('SSel').AsBoolean=True then
+      begin
+        {with ADOQueryTemp do
+        begin
+          Close;
+          sql.Clear;
+          sql.Add('select * from JYOrder_Main_MD where MDID='''+Trim(Order_Main.fieldbyname('MDID').AsString)+'''');
+          Open;
+        end;
+        if ADOQueryTemp.FieldByName('NotPrint').AsBoolean=True then
+        begin
+          Order_Main.EnableControls;
+          Application.MessageBox('不能打印《不打印》的缸条码!','提示',0);
+          Exit;
+        end;  }
+        if FileExists(fPrintFile) then
+        begin
+          with ADOQueryPrint do
+          begin
+            Close;
+            sql.Clear;
+            sql.Add('select B.OrderNo,B.MPRTCodeName,B.MPRTMF,B.MPRTKZ,C.PRTHX,C.PRTColorNo,C.PRTColor,GangNo=A.GangNo,A.PS,A.Qty,A.QtyUnit,A.MDID ');
+            SQL.Add(',B.MPRTCode,B.MPRTGY,C.PRTColorEng,A.SelfGangNo');
+            sql.Add('from JYOrder_Main_MD A');
+            sql.Add('inner join JYOrder_Main B on A.OrdMainid=B.Mainid');
+            sql.Add(' inner join JYOrder_Sub C on A.OrdSubid=C.SubId');
+            sql.Add(' where A.MDID='''+Trim(Order_Main.fieldbyname('MDID').AsString)+'''');
+            Open;
+          end;
+          RM1.LoadFromFile(fPrintFile);
+          //RM1.ShowReport;
+          RM1.PrintReport;
+        end else
+        begin
+          Order_Main.DisableControls;
+          Application.MessageBox(PChar('没有找'+ExtractFilePath(Application.ExeName)+'Report\检验指示单标签.rmf'),'提示',0);
+          Exit;
+        end;
+      end;
+
+      Next;
+    end;
+  end;
+  Order_Main.EnableControls;
+end;
+
+procedure TfrmBHList.OrderNoKeyPress(Sender: TObject; var Key: Char);
+var
+  fsj:String;
+begin
+  if Length(Trim(OrderNo.Text))<3 then Exit;
+  fsj:=' and AA.OrderNo like '''+'%'+Trim(OrderNo.Text)+'%'+'''';
+  InitGridWsql(fsj);
+end;
+
+procedure TfrmBHList.TBAddClick(Sender: TObject);
+var
+  FBHDate:String;
+begin
+  if Order_Main.IsEmpty then exit;
+  if cxTabControl1.TabIndex<>0 then Exit;
+  if Order_Main.Locate('SSel',True,[])=False then
+  begin
+    Application.MessageBox('没有选择数据!','提示',0);
+    Exit;
+  end;
+  if Order_Main.Locate('SSel;BHQty',VarArrayOf([True,null]),[loPartialKey])=True then
+  begin
+    Application.MessageBox('备货数量不能为空!','提示',0);
+    Exit;
+  end;
+  if Application.MessageBox('确定要执行此操作吗？','提示',32+4)<>IDYES then Exit;
+  FBHDate:=Trim(FormatDateTime('yyyy-MM-dd',SGetServerDate(ADOQueryTemp)));
+  try
+    ADOQueryCmd.Connection.BeginTrans;
+    Order_Main.DisableControls;
+    with Order_Main do
+    begin
+      First;
+      while Locate('SSel',True,[]) do
+      begin
+        with ADOQueryCmd do
+        begin
+          Close;
+          sql.Clear;
+          sql.Add('select * from JYOrder_FH where FHID='''+Trim(Order_Main.fieldbyname('FHID').AsString)+'''');
+          Open;
+        end;
+        with ADOQueryCmd do
+        begin
+          Edit;
+          FieldByName('BHPerson').Value:=Trim(DName);
+          if Trim(Order_Main.fieldbyname('BHDate').AsString)='' then
+            FieldByName('BHDate').Value:=FBHDate
+          else
+            FieldByName('BHDate').Value:=Trim(Order_Main.fieldbyname('BHDate').AsString);
+          FieldByName('BHPS').Value:=Order_Main.fieldbyname('BHPS').Value;
+          FieldByName('BHQty').Value:=Order_Main.fieldbyname('BHQty').Value;
+          FieldByName('BHNote').Value:=Order_Main.fieldbyname('BHNote').Value;
+          FieldByName('BHStatus').Value:='已备货';
+          Post;
+        end;
+        Order_Main.Delete;
+      end;
+    end;
+    Order_Main.EnableControls;
+    ADOQueryCmd.Connection.CommitTrans;
+  except
+    ADOQueryCmd.Connection.RollbackTrans;
+    Application.MessageBox('备货异常!','提示',0);
+  end;
+end;
+
+procedure TfrmBHList.TBEditClick(Sender: TObject);
+begin
+  if Order_Main.IsEmpty then exit;
+  if cxTabControl1.TabIndex<>1 then Exit;
+  if Order_Main.Locate('SSel',True,[])=False then
+  begin
+    Application.MessageBox('没有选择数据!','提示',0);
+    Exit;
+  end;
+  if Application.MessageBox('确定要执行此操作吗？','提示',32+4)<>IDYES then Exit;
+  try
+    ADOQueryCmd.Connection.BeginTrans;
+    Order_Main.DisableControls;
+    with Order_Main do
+    begin
+      First;
+      while Locate('SSel',True,[]) do
+      begin
+        with ADOQueryTemp do
+        begin
+          Close;
+          sql.Clear;
+          sql.Add('select * from JYOrder_FH where FHID='''+Trim(Order_Main.fieldbyname('FHID').AsString)+'''');
+          sql.Add(' and isnull(ChkStatus,'''')<>'''' ');
+          Open;
+        end;
+        if ADOQueryTemp.IsEmpty=False then
+        begin
+          ADOQueryCmd.Connection.RollbackTrans;
+          Order_Main.EnableControls;
+          Application.MessageBox('备货数据已审核不能撤销数据!','提示',0);
+          Exit;
+        end;
+        with ADOQueryCmd do
+        begin
+          Close;
+          sql.Clear;
+          sql.Add('select * from JYOrder_FH where FHID='''+Trim(Order_Main.fieldbyname('FHID').AsString)+'''');
+          Open;
+        end;
+        with ADOQueryCmd do
+        begin
+          Edit;
+          FieldByName('BHPerson').Value:=Null;
+          FieldByName('BHDate').Value:=Null;
+          FieldByName('BHPS').Value:=Null;
+          FieldByName('BHQty').Value:=Null;
+          FieldByName('BHNote').Value:=Null;
+          FieldByName('BHStatus').Value:=Null;
+          Post;
+        end;
+        Order_Main.Delete;
+      end;
+    end;
+    Order_Main.EnableControls;
+    ADOQueryCmd.Connection.CommitTrans;
+  except
+    ADOQueryCmd.Connection.RollbackTrans;
+    Application.MessageBox('撤销异常!','提示',0);
+  end;
+end;
+
+end.

坯布码单待检(PBMDDJ.dll)/U_BPCGDZInPut.dfm

@@ -0,0 +1,266 @@
+object frmBPCGDZInPut: TfrmBPCGDZInPut
+  Left = 224
+  Top = 101
+  Width = 1293
+  Height = 502
+  Align = alClient
+  Caption = #24067#21305#37319#36141#23545#36134#24405#20837
+  Color = clBtnFace
+  Font.Charset = GB2312_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -12
+  Font.Name = #23435#20307
+  Font.Style = []
+  OldCreateOrder = False
+  Position = poScreenCenter
+  OnClose = FormClose
+  OnShow = FormShow
+  PixelsPerInch = 96
+  TextHeight = 12
+  object cxGrid2: TcxGrid
+    Left = 0
+    Top = 33
+    Width = 1277
+    Height = 430
+    Align = alClient
+    TabOrder = 0
+    object Tv1: TcxGridDBTableView
+      NavigatorButtons.ConfirmDelete = False
+      DataController.DataSource = DataSource3
+      DataController.Summary.DefaultGroupSummaryItems = <>
+      DataController.Summary.FooterSummaryItems = <
+        item
+          Kind = skCount
+        end
+        item
+          Kind = skSum
+        end
+        item
+          Kind = skSum
+          Column = v2Column6
+        end
+        item
+          Kind = skSum
+        end
+        item
+          Kind = skSum
+          Column = v1Column9
+        end>
+      DataController.Summary.SummaryGroups = <>
+      OptionsCustomize.ColumnFiltering = False
+      OptionsView.Footer = True
+      OptionsView.GroupByBox = False
+      Styles.Inactive = DataLink_DDMD.SHuangSe
+      Styles.IncSearch = DataLink_DDMD.SHuangSe
+      Styles.Selection = DataLink_DDMD.SHuangSe
+      Styles.Header = DataLink_DDMD.Default
+      object v1Column2: TcxGridDBColumn
+        Tag = 2
+        Caption = #26085#26399
+        DataBinding.FieldName = 'DZDate'
+        PropertiesClassName = 'TcxDateEditProperties'
+        Properties.SaveTime = False
+        Properties.ShowTime = False
+        HeaderAlignmentHorz = taCenter
+        Width = 100
+      end
+      object v1Column4: TcxGridDBColumn
+        Tag = 2
+        Caption = #35746#21333#21495
+        DataBinding.FieldName = 'OrderNo'
+        HeaderAlignmentHorz = taCenter
+        Width = 81
+      end
+      object v1Column5: TcxGridDBColumn
+        Tag = 2
+        Caption = #31867#22411
+        DataBinding.FieldName = 'DZType'
+        PropertiesClassName = 'TcxComboBoxProperties'
+        Properties.DropDownListStyle = lsFixedList
+        Properties.Items.Strings = (
+          #22383#24067
+          #25104#21697)
+        Properties.OnEditValueChanged = v1Column5PropertiesEditValueChanged
+        HeaderAlignmentHorz = taCenter
+        Width = 82
+      end
+      object v2Column1: TcxGridDBColumn
+        Tag = 2
+        Caption = #21697#21517
+        DataBinding.FieldName = 'MPRTCodeName'
+        PropertiesClassName = 'TcxButtonEditProperties'
+        Properties.Buttons = <
+          item
+            Default = True
+            Kind = bkEllipsis
+          end>
+        Properties.OnButtonClick = v2Column1PropertiesButtonClick
+        HeaderAlignmentHorz = taCenter
+        Width = 112
+      end
+      object v1Column14: TcxGridDBColumn
+        Tag = 2
+        Caption = #20379#24212#21830
+        DataBinding.FieldName = 'FactoryName'
+        PropertiesClassName = 'TcxButtonEditProperties'
+        Properties.Alignment.Horz = taLeftJustify
+        Properties.Buttons = <
+          item
+            Default = True
+            Kind = bkEllipsis
+          end>
+        Properties.ReadOnly = True
+        Properties.OnButtonClick = v1Column14PropertiesButtonClick
+        HeaderAlignmentHorz = taCenter
+        Width = 149
+      end
+      object v1Column9: TcxGridDBColumn
+        Tag = 2
+        Caption = #21305#25968
+        DataBinding.FieldName = 'PS'
+        PropertiesClassName = 'TcxTextEditProperties'
+        HeaderAlignmentHorz = taCenter
+        Width = 84
+      end
+      object v2Column6: TcxGridDBColumn
+        Tag = 2
+        Caption = #25968#37327
+        DataBinding.FieldName = 'Qty'
+        PropertiesClassName = 'TcxTextEditProperties'
+        Properties.OnEditValueChanged = v2Column6PropertiesEditValueChanged
+        HeaderAlignmentHorz = taCenter
+        Width = 89
+      end
+      object v1Column6: TcxGridDBColumn
+        Tag = 2
+        Caption = #25968#37327#21333#20301
+        DataBinding.FieldName = 'QtyUnit'
+        PropertiesClassName = 'TcxComboBoxProperties'
+        Properties.DropDownListStyle = lsFixedList
+        Properties.Items.Strings = (
+          'Kg'
+          'M'
+          'Y')
+        HeaderAlignmentHorz = taCenter
+        Width = 77
+      end
+      object v1Column3: TcxGridDBColumn
+        Tag = 2
+        Caption = #21333#20215
+        DataBinding.FieldName = 'Price'
+        PropertiesClassName = 'TcxTextEditProperties'
+        Properties.OnEditValueChanged = v2Column6PropertiesEditValueChanged
+        HeaderAlignmentHorz = taCenter
+        Width = 77
+      end
+      object v1Column1: TcxGridDBColumn
+        Tag = 2
+        Caption = #37329#39069
+        DataBinding.FieldName = 'Money'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 87
+      end
+      object v1Column12: TcxGridDBColumn
+        Tag = 2
+        Caption = #22791#27880
+        DataBinding.FieldName = 'Note'
+        Width = 132
+      end
+    end
+    object cxGrid2Level1: TcxGridLevel
+      GridView = Tv1
+    end
+  end
+  object ToolBar1: TToolBar
+    Left = 0
+    Top = 0
+    Width = 1277
+    Height = 33
+    ButtonHeight = 30
+    ButtonWidth = 59
+    Caption = 'ToolBar1'
+    Color = clSkyBlue
+    Flat = True
+    Font.Charset = GB2312_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -12
+    Font.Name = #23435#20307
+    Font.Style = []
+    Images = DataLink_DDMD.ThreeImgList
+    List = True
+    ParentColor = False
+    ParentFont = False
+    ShowCaptions = True
+    TabOrder = 1
+    object TBSave: TToolButton
+      Left = 0
+      Top = 0
+      AutoSize = True
+      Caption = #20445#23384
+      ImageIndex = 15
+      OnClick = TBSaveClick
+    end
+    object TBAdd: TToolButton
+      Left = 63
+      Top = 0
+      AutoSize = True
+      Caption = #26032#22686
+      ImageIndex = 12
+      OnClick = TBAddClick
+    end
+    object TBDel: TToolButton
+      Left = 126
+      Top = 0
+      AutoSize = True
+      Caption = #21024#38500
+      ImageIndex = 13
+      OnClick = TBDelClick
+    end
+    object TBClose: TToolButton
+      Left = 189
+      Top = 0
+      AutoSize = True
+      Caption = #20851#38381
+      ImageIndex = 21
+      OnClick = TBCloseClick
+    end
+  end
+  object DataSource3: TDataSource
+    DataSet = CDS_Sub
+    Left = 504
+    Top = 136
+  end
+  object CDS_Sub: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 472
+    Top = 136
+  end
+  object ADOQueryCmd: TADOQuery
+    Connection = DataLink_DDMD.ADOLink
+    Parameters = <>
+    Left = 344
+    Top = 136
+  end
+  object ADOQueryMain: TADOQuery
+    Connection = DataLink_DDMD.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 376
+    Top = 136
+  end
+  object ADOQueryTemp: TADOQuery
+    Connection = DataLink_DDMD.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 408
+    Top = 136
+  end
+  object cxGridPopupMenu2: TcxGridPopupMenu
+    Grid = cxGrid2
+    PopupMenus = <>
+    Left = 440
+    Top = 136
+  end
+end

坯布码单待检(PBMDDJ.dll)/U_BPCGDZInPut.pas

@@ -0,0 +1,369 @@
+unit U_BPCGDZInPut;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData,
+  cxDataStorage, cxEdit, DB, cxDBData, cxCalendar, cxDropDownEdit,
+  ComCtrls, ToolWin, cxGridLevel, cxGridCustomTableView, cxGridTableView,
+  cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid,
+  cxGridCustomPopupMenu, cxGridPopupMenu, ADODB, DBClient, cxButtonEdit,
+  cxTextEdit;
+
+type
+  TfrmBPCGDZInPut = class(TForm)
+    cxGrid2: TcxGrid;
+    Tv1: TcxGridDBTableView;
+    v1Column2: TcxGridDBColumn;
+    v2Column1: TcxGridDBColumn;
+    v1Column9: TcxGridDBColumn;
+    v2Column6: TcxGridDBColumn;
+    cxGrid2Level1: TcxGridLevel;
+    ToolBar1: TToolBar;
+    TBAdd: TToolButton;
+    TBDel: TToolButton;
+    TBSave: TToolButton;
+    TBClose: TToolButton;
+    DataSource3: TDataSource;
+    CDS_Sub: TClientDataSet;
+    ADOQueryCmd: TADOQuery;
+    ADOQueryMain: TADOQuery;
+    ADOQueryTemp: TADOQuery;
+    cxGridPopupMenu2: TcxGridPopupMenu;
+    v1Column12: TcxGridDBColumn;
+    v1Column14: TcxGridDBColumn;
+    v1Column3: TcxGridDBColumn;
+    v1Column1: TcxGridDBColumn;
+    v1Column4: TcxGridDBColumn;
+    v1Column5: TcxGridDBColumn;
+    v1Column6: TcxGridDBColumn;
+    procedure FormClose(Sender: TObject; var Action: TCloseAction);
+    procedure TBAddClick(Sender: TObject);
+    procedure TBCloseClick(Sender: TObject);
+    procedure FormShow(Sender: TObject);
+    procedure TBDelClick(Sender: TObject);
+    procedure TBSaveClick(Sender: TObject);
+    procedure v1Column14PropertiesButtonClick(Sender: TObject;
+      AButtonIndex: Integer);
+    procedure v2Column1PropertiesButtonClick(Sender: TObject;
+      AButtonIndex: Integer);
+    procedure v2Column6PropertiesEditValueChanged(Sender: TObject);
+    procedure v1Column5PropertiesEditValueChanged(Sender: TObject);
+  private
+    { Private declarations }
+    function SaveCKData():Boolean;
+  public
+    { Public declarations }
+    FBCId:String;
+  end;
+
+var
+  frmBPCGDZInPut: TfrmBPCGDZInPut;
+
+implementation
+uses
+  U_DataLink,U_RTFun,U_ClothContractListHZCX,U_ZDYHelp, U_GYSSelList,U_ContractCGJGSXSelList;
+
+{$R *.dfm}
+
+procedure TfrmBPCGDZInPut.FormClose(Sender: TObject;
+  var Action: TCloseAction);
+begin
+  Action:=caFree;
+end;
+
+procedure TfrmBPCGDZInPut.TBAddClick(Sender: TObject);
+begin
+  with CDS_Sub do
+  begin
+    Append;
+    FieldByName('DZDate').Value:=Trim(FormatDateTime('yyyy-MM-dd',Now));
+    Post;
+  end;
+end;
+function TfrmBPCGDZInPut.SaveCKData():Boolean;
+var
+  FCRID,Maxno,FDZID:string;
+begin
+  try
+    ADOQueryCmd.Connection.BeginTrans;
+    CDS_Sub.DisableControls;
+    with CDS_Sub do
+    begin
+      First;
+      while not eof do
+      begin
+        if Trim(CDS_Sub.fieldbyname('DZID').AsString)='' then
+        begin
+          if GetLSNo(ADOQueryCmd,Maxno,'PC','JYOrder_Main_MD_DuiZhang',3,1)=False then
+          begin
+            Result:=False;
+            ADOQueryCmd.Connection.RollbackTrans;
+            Application.MessageBox('取纱线对账编号失败!','提示',0);
+            Exit;
+          end;
+        end else
+        begin
+          Maxno:=Trim(CDS_Sub.fieldbyname('DZID').AsString);
+        end;
+        with ADOQueryCmd do
+        begin
+          Close;
+          sql.Clear;
+          sql.Add('select * from JYOrder_Main_MD_DuiZhang where DZID='''+Trim(Maxno)+'''');
+          Open;
+        end;
+        with ADOQueryCmd do
+        begin
+          with ADOQueryTemp do
+          begin
+            Close;
+            sql.Clear;
+            sql.Add('select * from JYOrder_Main_MD_DuiZhang');
+            sql.Add(' where DZID='''+Trim(CDS_Sub.fieldbyname('DZID').AsString)+'''');
+            Open;
+          end;
+          FDZID:=Trim(ADOQueryTemp.fieldbyname('DZID').AsString);
+          if Trim(FDZID)='' then
+          begin
+            Append;
+            FieldByName('Filler').Value:=Trim(DName);
+          end else
+          begin
+            Edit;
+            FieldByName('Editer').Value:=Trim(DName);
+            FieldByName('EditTime').Value:=SGetServerDate(ADOQueryTemp);
+          end;
+          FieldByName('DZID').Value:=Trim(Maxno);
+         // FieldByName('DZType').Value:='纱线';
+          FieldByName('Status').Value:='待对账';
+          FieldByName('FactoryNo').Value:=Trim(CDS_Sub.fieldbyname('FactoryNo').AsString);
+          RTSetSaveDataCDS(ADOQueryCmd,Tv1,CDS_Sub,'JYOrder_Main_MD_DuiZhang',2);
+          Post;
+        end;
+        Edit;
+        FieldByName('DZID').Value:=Trim(Maxno);
+        Post;
+        Next;
+      end;
+    end;
+    CDS_Sub.EnableControls;
+    ADOQueryCmd.Connection.CommitTrans;
+    Result:=True;
+  except
+    Result:=False;
+    ADOQueryCmd.Connection.RollbackTrans;
+    Application.MessageBox('保存异常!','提示',0);
+  end;
+
+end;
+procedure TfrmBPCGDZInPut.TBCloseClick(Sender: TObject);
+begin
+  WriteCxGrid('布匹采购对账录入',Tv1,'财务对账');
+  Close;
+end;
+
+procedure TfrmBPCGDZInPut.FormShow(Sender: TObject);
+begin
+  ReadCxGrid('布匹采购对账录入',Tv1,'财务对账');
+  with ADOQueryTemp do
+  begin
+    Close;
+    sql.Clear;
+    sql.Add(' select A.* ');
+    sql.Add(' from JYOrder_Main_MD_DuiZhang A');
+    sql.Add(' where DZID='''+Trim(FBCId)+'''');
+    Open;
+  end;
+  SCreateCDS20(ADOQueryTemp,CDS_Sub);
+  SInitCDSData20(ADOQueryTemp,CDS_Sub);
+end;
+
+procedure TfrmBPCGDZInPut.TBDelClick(Sender: TObject);
+begin
+  if CDS_Sub.IsEmpty then Exit;
+  if Trim(CDS_Sub.fieldbyname('DZID').AsString)<>'' then
+  begin
+    if Application.MessageBox('确定要删除数据吗？','提示',32+4)<>IDYES then Exit;
+    with ADOQueryTemp do
+    begin
+      Close;
+      sql.Clear;
+      sql.Add('select * from JYOrder_Main_MD_DuiZhang where DZID='''+Trim(CDS_Sub.fieldbyname('DZID').AsString)+'''');
+      sql.Add(' and isnull(Status,'''')=''已入账'' ');
+      Open;
+    end;
+    if ADOQueryTemp.IsEmpty=False then
+    begin
+      Application.MessageBox('已入账，不能删除!','提示',0);
+      Exit;
+    end;
+    try
+      ADOQueryCmd.Connection.BeginTrans;
+      with ADOQueryCmd do
+      begin
+        Close;
+        sql.Clear;
+        sql.Add(' delete JYOrder_Main_MD_DuiZhang where DZID='''+Trim(CDS_Sub.fieldbyname('DZID').AsString)+'''');
+        ExecSQL;
+      end;
+      ADOQueryCmd.Connection.CommitTrans;
+      CDS_Sub.Delete;
+    except
+      ADOQueryCmd.Connection.RollbackTrans;
+      Application.MessageBox('删除异常!','提示',0);
+    end;
+  end else
+  begin
+    CDS_Sub.Delete;
+  end;
+
+end;
+
+procedure TfrmBPCGDZInPut.TBSaveClick(Sender: TObject);
+begin
+  if CDS_Sub.IsEmpty then Exit;
+  if CDS_Sub.Locate('DZDate',null,[])=True then
+  begin
+    Application.MessageBox('日期不能为空!','提示',0);
+    Exit;
+  end;
+  if CDS_Sub.Locate('DZType',null,[])=True then
+  begin
+    Application.MessageBox('类型不能为空!','提示',0);
+    Exit;
+  end;
+  if CDS_Sub.Locate('MPRTCodeName',null,[])=True then
+  begin
+    Application.MessageBox('品名不能为空!','提示',0);
+    Exit;
+  end;
+  if CDS_Sub.Locate('FactoryName',null,[])=True then
+  begin
+    Application.MessageBox('供应商不能为空!','提示',0);
+    Exit;
+  end;
+  if CDS_Sub.Locate('QtyUnit',null,[])=True then
+  begin
+    Application.MessageBox('数量单位不能为空!','提示',0);
+    Exit;
+  end;
+  if CDS_Sub.Locate('Qty',null,[])=True then
+  begin
+    Application.MessageBox('数量不能为空!','提示',0);
+    Exit;
+  end;
+  if CDS_Sub.Locate('Price',null,[])=True then
+  begin
+    Application.MessageBox('单价不能为空!','提示',0);
+    Exit;
+  end;
+  ToolBar1.SetFocus;
+  if SaveCKData() then
+  begin
+    Application.MessageBox('保存成功!','提示',0);
+    //ModalResult:=1;
+    Exit;
+  end;
+end;
+
+procedure TfrmBPCGDZInPut.v1Column14PropertiesButtonClick(Sender: TObject;
+  AButtonIndex: Integer);
+begin
+  try
+    frmGYSSelList:=TfrmGYSSelList.Create(Application);
+    with frmGYSSelList do
+    begin
+      if ShowModal=1 then
+      begin
+        with Self.CDS_Sub do
+        begin
+          edit;
+          FieldByName('FactoryNo').Value:=Trim(frmGYSSelList.Order_Main.fieldbyname('ZKID').AsString) ;
+          FieldByName('FactoryName').Value:=Trim(frmGYSSelList.Order_Main.fieldbyname('KHName').AsString);
+          //Post;
+        end;
+      end;
+    end;
+  finally
+    frmGYSSelList.Free;
+  end;
+end;
+
+procedure TfrmBPCGDZInPut.v2Column1PropertiesButtonClick(Sender: TObject;
+  AButtonIndex: Integer);
+begin
+  if Trim(CDS_Sub.fieldbyname('DZType').AsString)='' then
+  begin
+    Application.MessageBox('类型不能为空!','提示',0);
+    Exit;
+  end;
+  try
+    frmZDYHelp:=TfrmZDYHelp.Create(Application);
+    with frmZDYHelp do
+    begin
+      if Trim(CDS_Sub.fieldbyname('DZType').AsString)='坯布' then
+      begin
+        flag:='PBName';
+        flagname:='坯布名称';
+      end else
+      begin
+        flag:='CPPBName';
+        flagname:='成品名称';
+      end;
+      if ShowModal=1 then
+      begin
+        with Self.CDS_Sub do
+        begin
+          Edit;
+          FieldByName('MPRTCodeName').Value:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString);
+        end;
+      end;
+    end;
+  finally
+    frmZDYHelp.Free;
+  end;
+end;
+
+procedure TfrmBPCGDZInPut.v2Column6PropertiesEditValueChanged(
+  Sender: TObject);
+var
+  mvalue,FName,FQty,FPrice:String;
+begin
+  FName:=Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName;
+  mvalue:=TcxTextEdit(Sender).EditingText;
+  if Trim(mvalue)='' then mvalue:='0';
+  with CDS_Sub do
+  begin
+    edit;
+    FieldByName(FName).Value:=mvalue;
+    //Post;
+  end;
+  FQty:=CDS_Sub.fieldbyname('Qty').AsString;
+  FPrice:=CDS_Sub.fieldbyname('Price').AsString;
+  if Trim(FQty)='' then FQty:='0';
+  if Trim(FPrice)='' then FPrice:='0';
+  with CDS_Sub do
+  begin
+    Edit;
+    FieldByName('Money').Value:=StrToFloat(FQty)*StrToFloat(FPrice);
+    //Post;
+  end;
+end;
+
+procedure TfrmBPCGDZInPut.v1Column5PropertiesEditValueChanged(
+  Sender: TObject);
+var
+  mvalue:String;
+begin
+  mvalue:=TcxComboBox(Sender).EditingText;
+  with CDS_Sub do
+  begin
+    edit;
+    FieldByName('DZType').Value:=Trim(mvalue);
+    FieldByName('MPRTCodeName').Value:=Null;
+  end;
+end;
+
+end.

坯布码单待检(PBMDDJ.dll)/U_BPCGDZList.dfm

@@ -0,0 +1,482 @@
+object frmBPCGDZList: TfrmBPCGDZList
+  Left = 171
+  Top = 128
+  Width = 1130
+  Height = 511
+  Caption = #24067#21305#37319#36141#23545#36134#21015#34920
+  Color = clBtnFace
+  Font.Charset = GB2312_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -12
+  Font.Name = #23435#20307
+  Font.Style = []
+  OldCreateOrder = False
+  OnClose = FormClose
+  OnCreate = FormCreate
+  OnDestroy = FormDestroy
+  OnShow = FormShow
+  PixelsPerInch = 96
+  TextHeight = 12
+  object ToolBar1: TToolBar
+    Left = 0
+    Top = 0
+    Width = 1114
+    Height = 33
+    ButtonHeight = 30
+    ButtonWidth = 83
+    Caption = 'ToolBar1'
+    Color = clSkyBlue
+    Flat = True
+    Font.Charset = GB2312_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -12
+    Font.Name = #23435#20307
+    Font.Style = []
+    Images = DataLink_DDMD.ThreeImgList
+    List = True
+    ParentColor = False
+    ParentFont = False
+    ShowCaptions = True
+    TabOrder = 0
+    object TBRafresh: TToolButton
+      Left = 0
+      Top = 0
+      AutoSize = True
+      Caption = #21047#26032
+      ImageIndex = 0
+      OnClick = TBRafreshClick
+    end
+    object TBFind: TToolButton
+      Left = 63
+      Top = 0
+      AutoSize = True
+      Caption = #36807#28388
+      ImageIndex = 20
+      OnClick = TBFindClick
+    end
+    object ToolButton1: TToolButton
+      Left = 126
+      Top = 0
+      AutoSize = True
+      Caption = #26032#22686
+      ImageIndex = 1
+      OnClick = ToolButton1Click
+    end
+    object ToolButton2: TToolButton
+      Left = 189
+      Top = 0
+      AutoSize = True
+      Caption = #20462#25913
+      ImageIndex = 11
+      OnClick = ToolButton2Click
+    end
+    object TBRKCX: TToolButton
+      Left = 252
+      Top = 0
+      AutoSize = True
+      Caption = #21024#38500
+      ImageIndex = 3
+      OnClick = TBRKCXClick
+    end
+    object ToolButton3: TToolButton
+      Left = 315
+      Top = 0
+      AutoSize = True
+      Caption = #23545#36134
+      ImageIndex = 77
+      OnClick = ToolButton3Click
+    end
+    object ToolButton4: TToolButton
+      Left = 378
+      Top = 0
+      AutoSize = True
+      Caption = #23545#36134#25764#38144
+      ImageIndex = 52
+      OnClick = ToolButton4Click
+    end
+    object TBExport: TToolButton
+      Left = 465
+      Top = 0
+      AutoSize = True
+      Caption = #23548#20986
+      ImageIndex = 68
+      OnClick = TBExportClick
+    end
+    object TBClose: TToolButton
+      Left = 528
+      Top = 0
+      AutoSize = True
+      Caption = #20851#38381
+      ImageIndex = 21
+      OnClick = TBCloseClick
+    end
+  end
+  object Panel1: TPanel
+    Left = 0
+    Top = 33
+    Width = 1114
+    Height = 38
+    Align = alTop
+    BevelInner = bvRaised
+    BevelOuter = bvLowered
+    Color = clSkyBlue
+    TabOrder = 1
+    object Label1: TLabel
+      Left = 28
+      Top = 12
+      Width = 48
+      Height = 12
+      Caption = #26597#35810#26102#38388
+    end
+    object Label2: TLabel
+      Left = 168
+      Top = 12
+      Width = 12
+      Height = 12
+      Caption = #33267
+    end
+    object Label3: TLabel
+      Left = 593
+      Top = 12
+      Width = 24
+      Height = 12
+      Caption = #21697#21517
+    end
+    object Label4: TLabel
+      Left = 734
+      Top = 12
+      Width = 36
+      Height = 12
+      Caption = #20379#24212#21830
+    end
+    object Label5: TLabel
+      Left = 441
+      Top = 12
+      Width = 24
+      Height = 12
+      Caption = #31867#22411
+    end
+    object Label6: TLabel
+      Left = 286
+      Top = 12
+      Width = 36
+      Height = 12
+      Caption = #35746#21333#21495
+    end
+    object BegDate: TDateTimePicker
+      Left = 77
+      Top = 9
+      Width = 87
+      Height = 20
+      Date = 40768.458268587970000000
+      Time = 40768.458268587970000000
+      TabOrder = 0
+    end
+    object EndDate: TDateTimePicker
+      Left = 181
+      Top = 9
+      Width = 87
+      Height = 20
+      Date = 40768.458268587970000000
+      Time = 40768.458268587970000000
+      TabOrder = 1
+    end
+    object MPRTCodeName: TEdit
+      Tag = 2
+      Left = 620
+      Top = 9
+      Width = 100
+      Height = 20
+      TabOrder = 2
+      OnChange = TBFindClick
+    end
+    object FactoryName: TEdit
+      Tag = 2
+      Left = 771
+      Top = 9
+      Width = 129
+      Height = 20
+      TabOrder = 3
+      OnChange = FactoryNameChange
+    end
+    object DZType: TComboBox
+      Tag = 1
+      Left = 467
+      Top = 8
+      Width = 105
+      Height = 20
+      Style = csDropDownList
+      ItemHeight = 12
+      TabOrder = 4
+      OnChange = FactoryNameChange
+      Items.Strings = (
+        #22383#24067
+        #25104#21697
+        '')
+    end
+    object OrderNo: TEdit
+      Tag = 2
+      Left = 324
+      Top = 9
+      Width = 100
+      Height = 20
+      TabOrder = 5
+      OnChange = TBFindClick
+    end
+  end
+  object cxGrid1: TcxGrid
+    Left = 0
+    Top = 92
+    Width = 1114
+    Height = 380
+    Align = alClient
+    PopupMenu = PopupMenu1
+    TabOrder = 2
+    object Tv1: TcxGridDBTableView
+      NavigatorButtons.ConfirmDelete = False
+      DataController.DataSource = DataSource1
+      DataController.Summary.DefaultGroupSummaryItems = <
+        item
+          Kind = skSum
+          Position = spFooter
+          Column = v1Column9
+        end
+        item
+          Kind = skSum
+          Position = spFooter
+          Column = v2Column6
+        end
+        item
+          Kind = skSum
+          Position = spFooter
+          Column = v1Column1
+        end>
+      DataController.Summary.FooterSummaryItems = <
+        item
+          Kind = skCount
+        end
+        item
+          Kind = skSum
+        end
+        item
+          Kind = skSum
+          Column = v2Column6
+        end
+        item
+          Kind = skSum
+        end
+        item
+          Kind = skSum
+          Column = v1Column9
+        end
+        item
+          Kind = skSum
+          Column = v1Column1
+        end>
+      DataController.Summary.SummaryGroups = <>
+      OptionsCustomize.ColumnFiltering = False
+      OptionsView.Footer = True
+      OptionsView.GroupByBox = False
+      OptionsView.GroupFooters = gfAlwaysVisible
+      Styles.Inactive = DataLink_DDMD.SHuangSe
+      Styles.IncSearch = DataLink_DDMD.SHuangSe
+      Styles.Selection = DataLink_DDMD.SHuangSe
+      Styles.Header = DataLink_DDMD.Default
+      object v1Column4: TcxGridDBColumn
+        Caption = #36873#25321
+        DataBinding.FieldName = 'SSel'
+        PropertiesClassName = 'TcxCheckBoxProperties'
+        Properties.ImmediatePost = True
+        Properties.NullStyle = nssUnchecked
+        HeaderAlignmentHorz = taCenter
+        Width = 48
+      end
+      object v1Column2: TcxGridDBColumn
+        Tag = 2
+        Caption = #26085#26399
+        DataBinding.FieldName = 'DZDate'
+        PropertiesClassName = 'TcxDateEditProperties'
+        Properties.SaveTime = False
+        Properties.ShowTime = False
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 100
+      end
+      object v1Column7: TcxGridDBColumn
+        Caption = #35746#21333#21495
+        DataBinding.FieldName = 'OrderNo'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 74
+      end
+      object v1Column6: TcxGridDBColumn
+        Caption = #31867#22411
+        DataBinding.FieldName = 'DZType'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 73
+      end
+      object v2Column1: TcxGridDBColumn
+        Tag = 2
+        Caption = #21697#21517
+        DataBinding.FieldName = 'MPRTCodeName'
+        PropertiesClassName = 'TcxButtonEditProperties'
+        Properties.Buttons = <
+          item
+            Default = True
+            Kind = bkEllipsis
+          end>
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 112
+      end
+      object v1Column14: TcxGridDBColumn
+        Tag = 2
+        Caption = #20379#24212#21830
+        DataBinding.FieldName = 'FactoryName'
+        PropertiesClassName = 'TcxButtonEditProperties'
+        Properties.Alignment.Horz = taLeftJustify
+        Properties.Buttons = <
+          item
+            Default = True
+            Kind = bkEllipsis
+          end>
+        Properties.ReadOnly = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 149
+      end
+      object v1Column9: TcxGridDBColumn
+        Tag = 2
+        Caption = #21305#25968
+        DataBinding.FieldName = 'PS'
+        PropertiesClassName = 'TcxTextEditProperties'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 98
+      end
+      object v2Column6: TcxGridDBColumn
+        Tag = 2
+        Caption = #25968#37327
+        DataBinding.FieldName = 'Qty'
+        PropertiesClassName = 'TcxTextEditProperties'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 89
+      end
+      object v1Column8: TcxGridDBColumn
+        Caption = #25968#37327#21333#20301
+        DataBinding.FieldName = 'QtyUnit'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 66
+      end
+      object v1Column3: TcxGridDBColumn
+        Tag = 2
+        Caption = #21333#20215
+        DataBinding.FieldName = 'Price'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 77
+      end
+      object v1Column1: TcxGridDBColumn
+        Tag = 2
+        Caption = #37329#39069
+        DataBinding.FieldName = 'Money'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 87
+      end
+      object v1Column5: TcxGridDBColumn
+        Caption = #29366#24577
+        DataBinding.FieldName = 'Status'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 71
+      end
+      object v1Column12: TcxGridDBColumn
+        Tag = 2
+        Caption = #22791#27880
+        DataBinding.FieldName = 'Note'
+        Options.Editing = False
+        Width = 132
+      end
+    end
+    object cxGrid1Level1: TcxGridLevel
+      GridView = Tv1
+    end
+  end
+  object cxTabControl1: TcxTabControl
+    Left = 0
+    Top = 71
+    Width = 1114
+    Height = 21
+    Align = alTop
+    Font.Charset = GB2312_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -12
+    Font.Name = #23435#20307
+    Font.Style = [fsBold]
+    ParentFont = False
+    Style = 8
+    TabIndex = 0
+    TabOrder = 3
+    Tabs.Strings = (
+      #24453#23545#36134
+      #24050#23545#36134
+      #20840#37096)
+    OnChange = cxTabControl1Change
+    ClientRectBottom = 23
+    ClientRectRight = 1114
+    ClientRectTop = 23
+  end
+  object ADOQueryCmd: TADOQuery
+    Connection = DataLink_DDMD.ADOLink
+    Parameters = <>
+    Left = 920
+    Top = 184
+  end
+  object ADOQueryMain: TADOQuery
+    Connection = DataLink_DDMD.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 888
+    Top = 184
+  end
+  object ADOQueryTemp: TADOQuery
+    Connection = DataLink_DDMD.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 952
+    Top = 184
+  end
+  object DataSource1: TDataSource
+    DataSet = CDS_Main
+    Left = 920
+    Top = 152
+  end
+  object cxGridPopupMenu1: TcxGridPopupMenu
+    Grid = cxGrid1
+    PopupMenus = <>
+    Left = 888
+    Top = 152
+  end
+  object CDS_Main: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 952
+    Top = 152
+  end
+  object PopupMenu1: TPopupMenu
+    Left = 888
+    Top = 224
+    object N1: TMenuItem
+      Caption = #20840#36873
+      OnClick = N1Click
+    end
+    object N2: TMenuItem
+      Caption = #20840#24323
+      OnClick = N2Click
+    end
+  end
+end

坯布码单待检(PBMDDJ.dll)/U_BPCGDZList.pas

@@ -0,0 +1,596 @@
+unit U_BPCGDZList;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData,
+  cxDataStorage, cxEdit, DB, cxDBData, cxGridCustomTableView,
+  cxGridTableView, cxGridBandedTableView, cxGridDBBandedTableView,
+  cxGridLevel, cxClasses, cxControls, cxGridCustomView, cxGridDBTableView,
+  cxGrid, StdCtrls, ComCtrls, ExtCtrls, ToolWin, cxGridCustomPopupMenu,
+  cxGridPopupMenu, ADODB, DBClient, cxDropDownEdit, cxCheckBox, RM_Common,
+  RM_Class, RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, Menus,
+  cxCalendar, cxButtonEdit, cxTextEdit, cxPC;
+
+type
+  TfrmBPCGDZList = class(TForm)
+    ToolBar1: TToolBar;
+    TBRafresh: TToolButton;
+    TBFind: TToolButton;
+    TBExport: TToolButton;
+    TBClose: TToolButton;
+    Panel1: TPanel;
+    ADOQueryCmd: TADOQuery;
+    ADOQueryMain: TADOQuery;
+    ADOQueryTemp: TADOQuery;
+    DataSource1: TDataSource;
+    cxGridPopupMenu1: TcxGridPopupMenu;
+    Label1: TLabel;
+    Label2: TLabel;
+    BegDate: TDateTimePicker;
+    EndDate: TDateTimePicker;
+    CDS_Main: TClientDataSet;
+    TBRKCX: TToolButton;
+    PopupMenu1: TPopupMenu;
+    N1: TMenuItem;
+    N2: TMenuItem;
+    ToolButton1: TToolButton;
+    ToolButton2: TToolButton;
+    Label3: TLabel;
+    Label4: TLabel;
+    MPRTCodeName: TEdit;
+    FactoryName: TEdit;
+    cxGrid1: TcxGrid;
+    Tv1: TcxGridDBTableView;
+    v1Column2: TcxGridDBColumn;
+    v2Column1: TcxGridDBColumn;
+    v1Column14: TcxGridDBColumn;
+    v1Column9: TcxGridDBColumn;
+    v2Column6: TcxGridDBColumn;
+    v1Column3: TcxGridDBColumn;
+    v1Column1: TcxGridDBColumn;
+    v1Column12: TcxGridDBColumn;
+    cxGrid1Level1: TcxGridLevel;
+    ToolButton3: TToolButton;
+    ToolButton4: TToolButton;
+    cxTabControl1: TcxTabControl;
+    v1Column4: TcxGridDBColumn;
+    v1Column5: TcxGridDBColumn;
+    v1Column6: TcxGridDBColumn;
+    DZType: TComboBox;
+    Label5: TLabel;
+    Label6: TLabel;
+    OrderNo: TEdit;
+    v1Column7: TcxGridDBColumn;
+    v1Column8: TcxGridDBColumn;
+    procedure FormDestroy(Sender: TObject);
+    procedure FormClose(Sender: TObject; var Action: TCloseAction);
+    procedure FormCreate(Sender: TObject);
+    procedure TBRafreshClick(Sender: TObject);
+    procedure ConNoMChange(Sender: TObject);
+    procedure TBCloseClick(Sender: TObject);
+    procedure FormShow(Sender: TObject);
+    procedure TBExportClick(Sender: TObject);
+    procedure TBFindClick(Sender: TObject);
+    procedure N1Click(Sender: TObject);
+    procedure N2Click(Sender: TObject);
+    procedure TBRKCXClick(Sender: TObject);
+    procedure ToolButton1Click(Sender: TObject);
+    procedure ToolButton2Click(Sender: TObject);
+    procedure FactoryNameChange(Sender: TObject);
+    procedure cxTabControl1Change(Sender: TObject);
+    procedure ToolButton3Click(Sender: TObject);
+    procedure ToolButton4Click(Sender: TObject);
+  private
+    procedure InitGrid();
+    function  YFHZData(FDZID:string):Boolean;
+    function DelYFHZData():Boolean;
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+var
+  frmBPCGDZList: TfrmBPCGDZList;
+
+implementation
+uses
+  U_DataLink,U_RTFun,U_BPCGDZInPut;
+
+{$R *.dfm}
+
+procedure TfrmBPCGDZList.FormDestroy(Sender: TObject);
+begin
+  frmBPCGDZList:=nil;
+end;
+
+procedure TfrmBPCGDZList.FormClose(Sender: TObject;
+  var Action: TCloseAction);
+begin
+  Action:=caFree;
+end;
+
+procedure TfrmBPCGDZList.FormCreate(Sender: TObject);
+begin
+  //cxGrid1.Align:=alClient;
+  EndDate.DateTime:=SGetServerDate10(ADOQueryTemp);
+  BegDate.DateTime:=EndDate.DateTime-15;
+end;
+
+procedure TfrmBPCGDZList.InitGrid();
+begin
+  try
+    ADOQueryMain.DisableControls;
+    with ADOQueryMain do
+    begin
+      Filtered:=False;
+      Close;
+      sql.Clear;
+      sql.Add(' select A.* ');
+      sql.Add(' from JYOrder_Main_MD_DuiZhang A');
+      sql.Add(' where isnull(DZType,'''')in(''坯布'',''成品'')');
+      if cxTabControl1.TabIndex=0 then
+      begin
+        sql.Add(' and isnull(Status,'''')=''待对账'' ');
+      end else
+      begin
+        sql.Add(' and isnull(Status,'''')=''已对账'' ');
+      end;
+      if cxTabControl1.TabIndex<>0 then
+      begin
+        sql.add(' and A.DZDate>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+'''');
+        sql.Add(' and A.DZDate<='''+Trim(FormatDateTime('yyyy-MM-dd',enddate.DateTime+1))+'''');
+      end;
+      if Trim(FactoryName.Text)<>'' then
+      begin
+        SQL.Add(' and isnull(A.FactoryName,'''') like '''+'%'+Trim(FactoryName.Text)+'%'+'''');
+      end;
+      if Trim(MPRTCodeName.Text)<>'' then
+      begin
+        SQL.Add(' and isnull(A.MPRTCodeName,'''') like '''+'%'+Trim(MPRTCodeName.Text)+'%'+'''');
+      end;
+      if Trim(DZType.Text)<>'' then
+      begin
+        SQL.Add(' and isnull(A.DZType,'''')='''+Trim(DZType.Text)+'''');
+      end;
+      if Trim(OrderNo.Text)<>'' then
+      begin
+        SQL.Add(' and isnull(A.OrderNo,'''') like '''+'%'+Trim(OrderNo.Text)+'%'+'''');
+      end;
+      Open;
+      //ShowMessage(SQL.Text);
+    end;
+    SCreateCDS20(ADOQueryMain,CDS_Main);
+    SInitCDSData20(ADOQueryMain,CDS_Main);
+  finally
+    ADOQueryMain.EnableControls;
+  end;
+end;
+
+procedure TfrmBPCGDZList.TBRafreshClick(Sender: TObject);
+begin
+  BegDate.SetFocus;
+  InitGrid();
+end;
+
+procedure TfrmBPCGDZList.ConNoMChange(Sender: TObject);
+begin
+  if ADOQueryMain.Active then
+  begin
+    SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2));
+  end;
+end;
+
+procedure TfrmBPCGDZList.TBCloseClick(Sender: TObject);
+begin
+  WriteCxGrid('布匹采购对账列表',Tv1,'财务对账');
+  Close;
+end;
+
+procedure TfrmBPCGDZList.FormShow(Sender: TObject);
+begin
+  ReadCxGrid('布匹采购对账列表',Tv1,'财务对账');
+  //InitGrid();
+end;
+
+procedure TfrmBPCGDZList.TBExportClick(Sender: TObject);
+begin
+  if ADOQueryMain.IsEmpty then exit;
+  TcxGridToExcel('布匹采购对账列表',cxGrid1);
+end;
+
+procedure TfrmBPCGDZList.TBFindClick(Sender: TObject);
+begin
+  if ADOQueryMain.Active then
+  begin
+    SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2));
+    SCreateCDS20(ADOQueryMain,CDS_Main);
+    SInitCDSData20(ADOQueryMain,CDS_Main);
+  end;
+end;
+
+procedure TfrmBPCGDZList.N1Click(Sender: TObject);
+begin
+  SelOKNo(CDS_Main,True);
+end;
+
+procedure TfrmBPCGDZList.N2Click(Sender: TObject);
+begin
+  SelOKNo(CDS_Main,False);
+end;
+
+procedure TfrmBPCGDZList.TBRKCXClick(Sender: TObject);
+begin
+  if CDS_Main.IsEmpty then exit;
+  if cxTabControl1.TabIndex<>0 then Exit;
+  if CDS_Main.Locate('SSel',True,[])=False then
+  begin
+    Application.MessageBox('没有选择数据!','提示',0);
+    Exit;
+  end;
+  if Application.MessageBox('确定要删除数据吗？','提示',32+4)<>IDYES then Exit;
+  try
+    ADOQueryCmd.Connection.BeginTrans;
+    CDS_Main.DisableControls;
+    with CDS_Main do
+    begin
+      First;
+      while Locate('SSel',True,[]) do
+      begin
+        with ADOQueryCmd do
+        begin
+          Close;
+          sql.Clear;
+          sql.Add('delete from JYOrder_Main_MD_DuiZhang where DZID='''+Trim(CDS_Main.fieldbyname('DZID').AsString)+'''');
+          ExecSQL;
+        end;
+        CDS_Main.Delete;
+      end;
+    end;
+    CDS_Main.EnableControls;
+    ADOQueryCmd.Connection.CommitTrans;
+  except
+    ADOQueryCmd.Connection.RollbackTrans;
+    CDS_Main.EnableControls;
+    Application.MessageBox('删除异常!','提示',0);
+  end;
+end;
+
+procedure TfrmBPCGDZList.ToolButton1Click(Sender: TObject);
+begin
+  try
+    frmBPCGDZInPut:=TfrmBPCGDZInPut.Create(Application);
+    with frmBPCGDZInPut do
+    begin
+      FBCId:='';
+      if ShowModal=1 then
+      begin
+        Self.InitGrid();
+      end;
+    end;
+  finally
+    frmBPCGDZInPut.Free;
+  end;
+end;
+
+procedure TfrmBPCGDZList.ToolButton2Click(Sender: TObject);
+begin
+  if cxTabControl1.TabIndex<>0 then Exit;
+  try
+    frmBPCGDZInPut:=TfrmBPCGDZInPut.Create(Application);
+    with frmBPCGDZInPut do
+    begin
+      FBCId:=Trim(CDS_Main.fieldbyname('DZID').AsString);
+      TBDel.Visible:=False;
+      TBAdd.Visible:=False;
+      if ShowModal=1 then
+      begin
+        Self.InitGrid();
+      end;
+    end;
+  finally
+    frmBPCGDZInPut.Free;
+  end;
+end;
+
+procedure TfrmBPCGDZList.FactoryNameChange(Sender: TObject);
+begin
+  TBFind.Click;
+end;
+
+procedure TfrmBPCGDZList.cxTabControl1Change(Sender: TObject);
+begin
+  InitGrid();
+end;
+
+procedure TfrmBPCGDZList.ToolButton3Click(Sender: TObject);
+begin
+  if CDS_Main.IsEmpty then exit;
+  if cxTabControl1.TabIndex<>0 then Exit;
+  if CDS_Main.Locate('SSel',True,[])=False then
+  begin
+    Application.MessageBox('没有选择数据!','提示',0);
+    Exit;
+  end;
+  if Application.MessageBox('确定要执行对账操作吗？','提示',32+4)<>IDYES then Exit;
+  try
+    ADOQueryCmd.Connection.BeginTrans;
+    CDS_Main.DisableControls;
+    with CDS_Main do
+    begin
+      First;
+      while Locate('SSel',True,[]) do
+      begin
+        with ADOQueryCmd do
+        begin
+          Close;
+          sql.Clear;
+          sql.Add('select * from JYOrder_Main_MD_DuiZhang where DZID='''+Trim(CDS_Main.fieldbyname('DZID').AsString)+'''');
+          Open;
+        end;
+        with ADOQueryCmd do
+        begin
+          Edit;
+          FieldByName('DuiZhangPerson').Value:=Trim(DName);
+          FieldByName('DuiZhangTime').Value:=SGetServerDateTime(ADOQueryTemp);
+          FieldByName('Status').Value:='已对账';
+          Post;
+        end;
+        YFHZData(Trim(CDS_Main.fieldbyname('DZID').AsString));
+        CDS_Main.Delete;
+      end;
+    end;
+    CDS_Main.EnableControls;
+    ADOQueryCmd.Connection.CommitTrans;
+  except
+    ADOQueryCmd.Connection.RollbackTrans;
+    CDS_Main.EnableControls;
+    Application.MessageBox('对账异常!','提示',0);
+  end;
+end;
+function TfrmBPCGDZList.YFHZData(FDZID:string):Boolean;
+var
+  CRID,OrdMainId,FYFID,MaxNo,FComTaiTou,FCRID,FFactoryName,CWFactoryNo,CWFactoryName:String;
+begin
+  Result:=False;
+  with ADOQueryTemp do
+  begin
+    Close;
+    sql.Clear;
+    sql.Add('select * from JYOrder_Main_MD_DuiZhang where DZID='''+Trim(FDZID)+'''');
+    Open;
+  end;
+  CWFactoryNo:=Trim(ADOQueryTemp.fieldbyname('FactoryNo').AsString);
+  CWFactoryName:=Trim(ADOQueryTemp.fieldbyname('FactoryName').AsString);
+  with ADOQueryTemp do
+  begin
+    Close;
+    SQL.Clear;
+    sql.Add('select * from YF_Money_KC where FactoryNo='''+Trim(CWFactoryNo)+'''');
+    Open;
+  end;
+  if ADOQueryTemp.IsEmpty=False then
+  begin
+    CRID:=ADOQueryTemp.fieldbyname('CRID').AsString;
+  end else
+  begin
+    with ADOQueryCmd do
+    begin
+      Close;
+      sql.Clear;
+      sql.Add('Update YF_Money_CRID set CRID=CRID+1');
+      sql.Add('select * from YF_Money_CRID ');
+      Open;
+    end;
+    CRID:=ADOQueryCmd.fieldbyname('CRID').AsString;
+    with ADOQueryCmd do
+    begin
+      Close;
+      SQL.Clear;
+      sql.Add('select * from YF_Money_KC where 1<>1');
+      Open;
+    end;
+    with ADOQueryCmd do
+    begin
+      Append;
+      FieldByName('CRID').Value:=StrToInt(CRID);
+      FieldByName('FactoryName').Value:=Trim(CWFactoryName);
+      FieldByName('FactoryNo').Value:=Trim(CWFactoryNo);
+      FieldByName('ZdyStr1').Value:='应付付';
+      Post;
+    end;
+  end;
+  with ADOQueryTemp do
+  begin
+    Close;
+    sql.Clear;
+    sql.Add('select * from YF_Money_CR where FactoryNo='''+Trim(CWFactoryNo)+'''');
+    sql.Add(' and MHID='''+Trim(CDS_Main.fieldbyname('DZID').AsString)+'''');
+    Open;
+  end;
+  FYFID:=Trim(ADOQueryTemp.fieldbyname('YFID').AsString);
+  if Trim(FYFID)='' then
+  begin
+    if GetLSNo(ADOQueryCmd,MaxNo,'PC','YF_Money_CR',3,1)=False then
+    begin
+      Application.MessageBox('取纱线应付最大号失败!','提示',0);
+      Exit;
+    end;
+  end else
+  begin
+    MaxNo:=Trim(FYFID);
+  end;
+  with ADOQueryCmd do
+  begin
+    Close;
+    sql.Clear;
+    sql.Add('select * from YF_Money_CR where YFID='''+Trim(MaxNo)+'''');
+    Open;
+  end;
+  with ADOQueryCmd do
+  begin
+    if Trim(FYFID)='' then
+      Append
+    else
+      Edit;
+    FieldByName('YFID').Value:=Trim(MaxNo);
+    FieldByName('CRID').Value:=StrToInt(CRID);
+    FieldByName('Filler').Value:=Trim(DName);
+    FieldByName('CRType').Value:='应付款登记';
+    FieldByName('CRFlag').Value:='应付付';
+    FieldByName('QtyFlag').Value:=1;
+    FieldByName('FactoryNo').Value:=Trim(CWFactoryNo);
+    FieldByName('FactoryName').Value:=Trim(CWFactoryName);
+    FieldByName('HZFactoryNo').Value:=Trim(CWFactoryNo);
+    FieldByName('HZFactoryName').Value:=Trim(CWFactoryName);
+    FieldByName('YFType').Value:='自动生成';
+    FieldByName('HuiLv').Value:=1;
+    FieldByName('BZType').Value:='人民币';
+
+    //FieldByName('PSName').Value:='纱线';
+    FieldByName('MHID').Value:=Trim(CDS_Main.fieldbyname('DZID').AsString);
+    Post;
+  end;
+  with ADOQueryCmd do
+  begin
+    Close;
+    sql.Clear;
+    sql.Add('UPdate YF_Money_CR Set PS=(select PS from JYOrder_Main_MD_DuiZhang where DZID='''+Trim(FDZID)+''')');
+    sql.Add(', Qty=(select Qty from JYOrder_Main_MD_DuiZhang where DZID='''+Trim(FDZID)+''')');
+    sql.Add(', Price=(select Price from JYOrder_Main_MD_DuiZhang where DZID='''+Trim(FDZID)+''')');
+    sql.Add(',Money=(select Money from JYOrder_Main_MD_DuiZhang where DZID='''+Trim(FDZID)+''')');
+    sql.Add(',BBMoney=(select Money from JYOrder_Main_MD_DuiZhang where DZID='''+Trim(FDZID)+''')');
+    sql.Add(',CPName=(select MPRTCodeName from JYOrder_Main_MD_DuiZhang where DZID='''+Trim(FDZID)+''')');
+    sql.Add(',YFName=(select DZType from JYOrder_Main_MD_DuiZhang where DZID='''+Trim(FDZID)+''')');
+    sql.Add(',QtyUnit=(select QtyUnit from JYOrder_Main_MD_DuiZhang where DZID='''+Trim(FDZID)+''')');
+    sql.Add(',CRTime=(select DZDate from JYOrder_Main_MD_DuiZhang where DZID='''+Trim(FDZID)+''')');
+    sql.Add(',OrderNo=(select OrderNo from JYOrder_Main_MD_DuiZhang where DZID='''+Trim(FDZID)+''')');
+    sql.Add(',Note=(select Note from JYOrder_Main_MD_DuiZhang where DZID='''+Trim(FDZID)+''')');
+    sql.Add(' where YFID='''+Trim(MaxNo)+'''');
+    ExecSQL;
+  end;
+  with ADOQueryCmd do
+  begin
+    Close;
+    sql.Clear;
+    sql.Add('Update JYOrder_Main_MD_DuiZhang Set YFID='''+Trim(MaxNo)+'''');
+    sql.Add(' where DZID='''+Trim(CDS_Main.fieldbyname('DZID').AsString)+'''');
+    ExecSQL;
+  end;
+  with ADOQueryCmd do
+  begin
+    Close;
+    sql.Clear;
+    sql.Add('Update YF_Money_KC Set ');
+    sql.Add(' KCMoney=(select isnull(Sum(Money*QtyFlag),0) from YF_Money_CR A where A.CRID=YF_Money_KC.CRID and A.Valid=''Y'')');
+    sql.Add(',KCBBMoney=(select isnull(Sum(BBMoney*QtyFlag),0) from YF_Money_CR A where A.CRID=YF_Money_KC.CRID and A.Valid=''Y'' )');
+    sql.Add(' where CRID='+CRID);
+    ExecSQL;
+  end;
+
+  Result:=True;
+end;
+function TfrmBPCGDZList.DelYFHZData():Boolean;
+var
+  CRID:String;
+begin
+  Result:=False;
+  with ADOQueryTemp do
+  begin
+    Close;
+    sql.Clear;
+    sql.Add('select * from YF_Money_CR where MHID='''+Trim(CDS_Main.fieldbyname('DZID').AsString)+'''');
+    Open;
+  end;
+  CRID:=Trim(ADOQueryTemp.fieldbyname('CRID').AsString);
+  with ADOQueryCmd do
+  begin
+    Close;
+    sql.Clear;
+    sql.Add(' delete YF_Money_CR where  ');
+    sql.Add(' MHID='''+Trim(CDS_Main.fieldbyname('DZID').AsString)+'''');
+    sql.Add(' Update JYOrder_Main_MD_DuiZhang Set YFID=Null where  ');
+    sql.Add(' DZID='''+Trim(CDS_Main.fieldbyname('DZID').AsString)+'''');
+    ExecSQL;
+  end;
+  if Trim(CRID)<>'' then
+  begin
+    with ADOQueryCmd do
+    begin
+      Close;
+      sql.Clear;
+      sql.Add('Update YF_Money_KC Set ');
+      sql.Add(' KCMoney=(select isnull(Sum(Money*QtyFlag),0) from YF_Money_CR A where A.CRID=YF_Money_KC.CRID and A.Valid=''Y'')');
+      sql.Add(',KCBBMoney=(select isnull(Sum(BBMoney*QtyFlag),0) from YF_Money_CR A where A.CRID=YF_Money_KC.CRID and A.Valid=''Y'' )');
+      sql.Add(' where CRID='+CRID);
+      ExecSQL;
+    end;
+    with ADOQueryTemp do
+    begin
+      Close;
+      sql.Clear;
+      sql.Add('select * from YF_Money_CR where CRID='+CRID);
+      Open;
+    end;
+    if ADOQueryTemp.IsEmpty then
+    begin
+      with ADOQueryCmd do
+      begin
+        Close;
+        sql.Clear;
+        sql.Add(' delete YF_Money_KC where CRID='+CRID);
+        ExecSQL;
+      end;
+    end;
+  end;
+
+  Result:=True;
+end;
+procedure TfrmBPCGDZList.ToolButton4Click(Sender: TObject);
+begin
+  if CDS_Main.IsEmpty then exit;
+  if cxTabControl1.TabIndex<>1 then Exit;
+  if CDS_Main.Locate('SSel',True,[])=False then
+  begin
+    Application.MessageBox('没有选择数据!','提示',0);
+    Exit;
+  end;
+  if Application.MessageBox('确定要执行撤销操作吗？','提示',32+4)<>IDYES then Exit;
+  try
+    ADOQueryCmd.Connection.BeginTrans;
+    CDS_Main.DisableControls;
+    with CDS_Main do
+    begin
+      First;
+      while Locate('SSel',True,[]) do
+      begin
+        with ADOQueryCmd do
+        begin
+          Close;
+          sql.Clear;
+          sql.Add('select * from JYOrder_Main_MD_DuiZhang where DZID='''+Trim(CDS_Main.fieldbyname('DZID').AsString)+'''');
+          Open;
+        end;
+        with ADOQueryCmd do
+        begin
+          Edit;
+          FieldByName('DuiZhangPerson').Value:=Null;
+          FieldByName('DuiZhangTime').Value:=Null;
+          FieldByName('Status').Value:='待对账';
+          Post;
+        end;
+        DelYFHZData();
+        CDS_Main.Delete;
+      end;
+    end;
+    CDS_Main.EnableControls;
+    ADOQueryCmd.Connection.CommitTrans;
+  except
+    ADOQueryCmd.Connection.RollbackTrans;
+    CDS_Main.EnableControls;
+    Application.MessageBox('撤销异常!','提示',0);
+  end;
+end;
+
+end.

坯布码单待检(PBMDDJ.dll)/U_BPJGDZInPut.dfm

@@ -0,0 +1,254 @@
+object frmBPJGDZInPut: TfrmBPJGDZInPut
+  Left = 66
+  Top = 92
+  Width = 1215
+  Height = 502
+  Align = alClient
+  Caption = #24067#21305#21152#24037#23545#36134#24405#20837
+  Color = clBtnFace
+  Font.Charset = GB2312_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -12
+  Font.Name = #23435#20307
+  Font.Style = []
+  OldCreateOrder = False
+  Position = poScreenCenter
+  OnClose = FormClose
+  OnShow = FormShow
+  PixelsPerInch = 96
+  TextHeight = 12
+  object cxGrid2: TcxGrid
+    Left = 0
+    Top = 33
+    Width = 1199
+    Height = 430
+    Align = alClient
+    TabOrder = 0
+    object Tv1: TcxGridDBTableView
+      OnMouseDown = Tv1MouseDown
+      NavigatorButtons.ConfirmDelete = False
+      DataController.DataSource = DataSource3
+      DataController.Summary.DefaultGroupSummaryItems = <>
+      DataController.Summary.FooterSummaryItems = <
+        item
+          Kind = skCount
+        end
+        item
+          Kind = skSum
+        end
+        item
+          Kind = skSum
+          Column = v2Column6
+        end
+        item
+          Kind = skSum
+        end
+        item
+          Kind = skSum
+          Column = v1Column9
+        end>
+      DataController.Summary.SummaryGroups = <>
+      OptionsCustomize.ColumnFiltering = False
+      OptionsView.Footer = True
+      OptionsView.GroupByBox = False
+      Styles.Inactive = DataLink_DDMD.SHuangSe
+      Styles.IncSearch = DataLink_DDMD.SHuangSe
+      Styles.Selection = DataLink_DDMD.SHuangSe
+      Styles.Header = DataLink_DDMD.Default
+      object v1Column2: TcxGridDBColumn
+        Tag = 2
+        Caption = #26085#26399
+        DataBinding.FieldName = 'DZDate'
+        PropertiesClassName = 'TcxDateEditProperties'
+        Properties.SaveTime = False
+        Properties.ShowTime = False
+        HeaderAlignmentHorz = taCenter
+        Width = 100
+      end
+      object v1Column4: TcxGridDBColumn
+        Tag = 2
+        Caption = #35746#21333#21495
+        DataBinding.FieldName = 'OrderNo'
+        HeaderAlignmentHorz = taCenter
+        Width = 81
+      end
+      object v2Column1: TcxGridDBColumn
+        Tag = 2
+        Caption = #21697#21517
+        DataBinding.FieldName = 'MPRTCodeName'
+        PropertiesClassName = 'TcxButtonEditProperties'
+        Properties.Buttons = <
+          item
+            Default = True
+            Kind = bkEllipsis
+          end>
+        Properties.OnButtonClick = v2Column1PropertiesButtonClick
+        HeaderAlignmentHorz = taCenter
+        Width = 112
+      end
+      object v1Column14: TcxGridDBColumn
+        Tag = 2
+        Caption = #20379#24212#21830
+        DataBinding.FieldName = 'FactoryName'
+        PropertiesClassName = 'TcxButtonEditProperties'
+        Properties.Alignment.Horz = taLeftJustify
+        Properties.Buttons = <
+          item
+            Default = True
+            Kind = bkEllipsis
+          end>
+        Properties.ReadOnly = True
+        Properties.OnButtonClick = v1Column14PropertiesButtonClick
+        HeaderAlignmentHorz = taCenter
+        Width = 149
+      end
+      object v1Column9: TcxGridDBColumn
+        Tag = 2
+        Caption = #21305#25968
+        DataBinding.FieldName = 'PS'
+        PropertiesClassName = 'TcxTextEditProperties'
+        HeaderAlignmentHorz = taCenter
+        Width = 84
+      end
+      object v2Column6: TcxGridDBColumn
+        Tag = 2
+        Caption = #25968#37327
+        DataBinding.FieldName = 'Qty'
+        PropertiesClassName = 'TcxTextEditProperties'
+        Properties.OnEditValueChanged = v2Column6PropertiesEditValueChanged
+        HeaderAlignmentHorz = taCenter
+        Width = 71
+      end
+      object v1Column6: TcxGridDBColumn
+        Tag = 2
+        Caption = #25968#37327#21333#20301
+        DataBinding.FieldName = 'QtyUnit'
+        PropertiesClassName = 'TcxComboBoxProperties'
+        Properties.DropDownListStyle = lsFixedList
+        Properties.Items.Strings = (
+          'Kg'
+          'M'
+          'Y')
+        HeaderAlignmentHorz = taCenter
+        Width = 68
+      end
+      object v1Column3: TcxGridDBColumn
+        Tag = 2
+        Caption = #21333#20215
+        DataBinding.FieldName = 'Price'
+        PropertiesClassName = 'TcxTextEditProperties'
+        Properties.OnEditValueChanged = v2Column6PropertiesEditValueChanged
+        HeaderAlignmentHorz = taCenter
+        Width = 77
+      end
+      object v1Column1: TcxGridDBColumn
+        Tag = 2
+        Caption = #37329#39069
+        DataBinding.FieldName = 'Money'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 87
+      end
+      object v1Column12: TcxGridDBColumn
+        Tag = 2
+        Caption = #22791#27880
+        DataBinding.FieldName = 'Note'
+        Width = 132
+      end
+    end
+    object cxGrid2Level1: TcxGridLevel
+      GridView = Tv1
+    end
+  end
+  object ToolBar1: TToolBar
+    Left = 0
+    Top = 0
+    Width = 1199
+    Height = 33
+    ButtonHeight = 30
+    ButtonWidth = 59
+    Caption = 'ToolBar1'
+    Color = clSkyBlue
+    Flat = True
+    Font.Charset = GB2312_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -12
+    Font.Name = #23435#20307
+    Font.Style = []
+    Images = DataLink_DDMD.ThreeImgList
+    List = True
+    ParentColor = False
+    ParentFont = False
+    ShowCaptions = True
+    TabOrder = 1
+    object TBSave: TToolButton
+      Left = 0
+      Top = 0
+      AutoSize = True
+      Caption = #20445#23384
+      ImageIndex = 15
+      OnClick = TBSaveClick
+    end
+    object TBAdd: TToolButton
+      Left = 63
+      Top = 0
+      AutoSize = True
+      Caption = #26032#22686
+      ImageIndex = 12
+      OnClick = TBAddClick
+    end
+    object TBDel: TToolButton
+      Left = 126
+      Top = 0
+      AutoSize = True
+      Caption = #21024#38500
+      ImageIndex = 13
+      OnClick = TBDelClick
+    end
+    object TBClose: TToolButton
+      Left = 189
+      Top = 0
+      AutoSize = True
+      Caption = #20851#38381
+      ImageIndex = 21
+      OnClick = TBCloseClick
+    end
+  end
+  object DataSource3: TDataSource
+    DataSet = CDS_Sub
+    Left = 504
+    Top = 136
+  end
+  object CDS_Sub: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 472
+    Top = 136
+  end
+  object ADOQueryCmd: TADOQuery
+    Connection = DataLink_DDMD.ADOLink
+    Parameters = <>
+    Left = 344
+    Top = 136
+  end
+  object ADOQueryMain: TADOQuery
+    Connection = DataLink_DDMD.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 376
+    Top = 136
+  end
+  object ADOQueryTemp: TADOQuery
+    Connection = DataLink_DDMD.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 408
+    Top = 136
+  end
+  object cxGridPopupMenu2: TcxGridPopupMenu
+    Grid = cxGrid2
+    PopupMenus = <>
+    Left = 440
+    Top = 136
+  end
+end

坯布码单待检(PBMDDJ.dll)/U_BPJGDZInPut.pas

@@ -0,0 +1,439 @@
+unit U_BPJGDZInPut;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData,
+  cxDataStorage, cxEdit, DB, cxDBData, cxCalendar, cxDropDownEdit,
+  ComCtrls, ToolWin, cxGridLevel, cxGridCustomTableView, cxGridTableView,
+  cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid,
+  cxGridCustomPopupMenu, cxGridPopupMenu, ADODB, DBClient, cxButtonEdit,
+  cxTextEdit;
+
+type
+  TfrmBPJGDZInPut = class(TForm)
+    cxGrid2: TcxGrid;
+    Tv1: TcxGridDBTableView;
+    v1Column2: TcxGridDBColumn;
+    v2Column1: TcxGridDBColumn;
+    v1Column9: TcxGridDBColumn;
+    v2Column6: TcxGridDBColumn;
+    cxGrid2Level1: TcxGridLevel;
+    ToolBar1: TToolBar;
+    TBAdd: TToolButton;
+    TBDel: TToolButton;
+    TBSave: TToolButton;
+    TBClose: TToolButton;
+    DataSource3: TDataSource;
+    CDS_Sub: TClientDataSet;
+    ADOQueryCmd: TADOQuery;
+    ADOQueryMain: TADOQuery;
+    ADOQueryTemp: TADOQuery;
+    cxGridPopupMenu2: TcxGridPopupMenu;
+    v1Column12: TcxGridDBColumn;
+    v1Column14: TcxGridDBColumn;
+    v1Column3: TcxGridDBColumn;
+    v1Column1: TcxGridDBColumn;
+    v1Column4: TcxGridDBColumn;
+    v1Column6: TcxGridDBColumn;
+    procedure FormClose(Sender: TObject; var Action: TCloseAction);
+    procedure TBAddClick(Sender: TObject);
+    procedure TBCloseClick(Sender: TObject);
+    procedure FormShow(Sender: TObject);
+    procedure TBDelClick(Sender: TObject);
+    procedure TBSaveClick(Sender: TObject);
+    procedure v1Column14PropertiesButtonClick(Sender: TObject;
+      AButtonIndex: Integer);
+    procedure v2Column1PropertiesButtonClick(Sender: TObject;
+      AButtonIndex: Integer);
+    procedure v2Column6PropertiesEditValueChanged(Sender: TObject);
+    procedure v1(Sender: TObject);
+    procedure Tv1MouseDown(Sender: TObject; Button: TMouseButton;
+      Shift: TShiftState; X, Y: Integer);
+    procedure v1QtyToFZQtyXSPropertiesEditValueChanged(Sender: TObject);
+  private
+    { Private declarations }
+    function SaveCKData():Boolean;
+  public
+    { Public declarations }
+    FBCId:String;
+  end;
+
+var
+  frmBPJGDZInPut: TfrmBPJGDZInPut;
+
+implementation
+uses
+  U_DataLink,U_RTFun,U_ClothContractListHZCX,U_ZDYHelp, U_GYSSelList,U_ContractCGJGSXSelList;
+
+{$R *.dfm}
+
+procedure TfrmBPJGDZInPut.FormClose(Sender: TObject;
+  var Action: TCloseAction);
+begin
+  Action:=caFree;
+end;
+
+procedure TfrmBPJGDZInPut.TBAddClick(Sender: TObject);
+begin
+  with CDS_Sub do
+  begin
+    Append;
+    FieldByName('DZDate').Value:=Trim(FormatDateTime('yyyy-MM-dd',Now));
+    Post;
+  end;
+end;
+function TfrmBPJGDZInPut.SaveCKData():Boolean;
+var
+  FCRID,Maxno,FDZID:string;
+begin
+  try
+    ADOQueryCmd.Connection.BeginTrans;
+    CDS_Sub.DisableControls;
+    with CDS_Sub do
+    begin
+      First;
+      while not eof do
+      begin
+        if Trim(CDS_Sub.fieldbyname('DZID').AsString)='' then
+        begin
+          if GetLSNo(ADOQueryCmd,Maxno,'BJ','JYOrder_Main_MD_DuiZhang',3,1)=False then
+          begin
+            Result:=False;
+            ADOQueryCmd.Connection.RollbackTrans;
+            Application.MessageBox('取纱线对账编号失败!','提示',0);
+            Exit;
+          end;
+        end else
+        begin
+          Maxno:=Trim(CDS_Sub.fieldbyname('DZID').AsString);
+        end;
+        with ADOQueryCmd do
+        begin
+          Close;
+          sql.Clear;
+          sql.Add('select * from JYOrder_Main_MD_DuiZhang where DZID='''+Trim(Maxno)+'''');
+          Open;
+        end;
+        with ADOQueryCmd do
+        begin
+          with ADOQueryTemp do
+          begin
+            Close;
+            sql.Clear;
+            sql.Add('select * from JYOrder_Main_MD_DuiZhang');
+            sql.Add(' where DZID='''+Trim(CDS_Sub.fieldbyname('DZID').AsString)+'''');
+            Open;
+          end;
+          FDZID:=Trim(ADOQueryTemp.fieldbyname('DZID').AsString);
+          if Trim(FDZID)='' then
+          begin
+            Append;
+            FieldByName('Filler').Value:=Trim(DName);
+          end else
+          begin
+            Edit;
+            FieldByName('Editer').Value:=Trim(DName);
+            FieldByName('EditTime').Value:=SGetServerDate(ADOQueryTemp);
+          end;
+          FieldByName('DZID').Value:=Trim(Maxno);
+          FieldByName('DZType').Value:='布匹加工';
+          FieldByName('Status').Value:='待对账';
+          FieldByName('FactoryNo').Value:=Trim(CDS_Sub.fieldbyname('FactoryNo').AsString);
+          RTSetSaveDataCDS(ADOQueryCmd,Tv1,CDS_Sub,'JYOrder_Main_MD_DuiZhang',2);
+          Post;
+        end;
+        Edit;
+        FieldByName('DZID').Value:=Trim(Maxno);
+        Post;
+        Next;
+      end;
+    end;
+    CDS_Sub.EnableControls;
+    ADOQueryCmd.Connection.CommitTrans;
+    Result:=True;
+  except
+    Result:=False;
+    ADOQueryCmd.Connection.RollbackTrans;
+    Application.MessageBox('保存异常!','提示',0);
+  end;
+
+end;
+procedure TfrmBPJGDZInPut.TBCloseClick(Sender: TObject);
+begin
+  WriteCxGrid('布匹加工对账录入无折算',Tv1,'财务对账');
+  Close;
+end;
+
+procedure TfrmBPJGDZInPut.FormShow(Sender: TObject);
+begin
+  ReadCxGrid('布匹加工对账录入无折算',Tv1,'财务对账');
+  with ADOQueryTemp do
+  begin
+    Close;
+    sql.Clear;
+    sql.Add(' select A.* ');
+    sql.Add(' from JYOrder_Main_MD_DuiZhang A');
+    sql.Add(' where DZID='''+Trim(FBCId)+'''');
+    Open;
+  end;
+  SCreateCDS20(ADOQueryTemp,CDS_Sub);
+  SInitCDSData20(ADOQueryTemp,CDS_Sub);
+end;
+
+procedure TfrmBPJGDZInPut.TBDelClick(Sender: TObject);
+begin
+  if CDS_Sub.IsEmpty then Exit;
+  if Trim(CDS_Sub.fieldbyname('DZID').AsString)<>'' then
+  begin
+    if Application.MessageBox('确定要删除数据吗？','提示',32+4)<>IDYES then Exit;
+    with ADOQueryTemp do
+    begin
+      Close;
+      sql.Clear;
+      sql.Add('select * from JYOrder_Main_MD_DuiZhang where DZID='''+Trim(CDS_Sub.fieldbyname('DZID').AsString)+'''');
+      sql.Add(' and isnull(Status,'''')=''已入账'' ');
+      Open;
+    end;
+    if ADOQueryTemp.IsEmpty=False then
+    begin
+      Application.MessageBox('已入账，不能删除!','提示',0);
+      Exit;
+    end;
+    try
+      ADOQueryCmd.Connection.BeginTrans;
+      with ADOQueryCmd do
+      begin
+        Close;
+        sql.Clear;
+        sql.Add(' delete JYOrder_Main_MD_DuiZhang where DZID='''+Trim(CDS_Sub.fieldbyname('DZID').AsString)+'''');
+        ExecSQL;
+      end;
+      ADOQueryCmd.Connection.CommitTrans;
+      CDS_Sub.Delete;
+    except
+      ADOQueryCmd.Connection.RollbackTrans;
+      Application.MessageBox('删除异常!','提示',0);
+    end;
+  end else
+  begin
+    CDS_Sub.Delete;
+  end;
+
+end;
+
+procedure TfrmBPJGDZInPut.TBSaveClick(Sender: TObject);
+begin
+  if CDS_Sub.IsEmpty then Exit;
+  if CDS_Sub.Locate('DZDate',null,[])=True then
+  begin
+    Application.MessageBox('日期不能为空!','提示',0);
+    Exit;
+  end;
+  if CDS_Sub.Locate('MPRTCodeName',null,[])=True then
+  begin
+    Application.MessageBox('品名不能为空!','提示',0);
+    Exit;
+  end;
+  if CDS_Sub.Locate('FactoryName',null,[])=True then
+  begin
+    Application.MessageBox('供应商不能为空!','提示',0);
+    Exit;
+  end;
+  if CDS_Sub.Locate('QtyUnit',null,[])=True then
+  begin
+    Application.MessageBox('数量单位不能为空!','提示',0);
+    Exit;
+  end;
+  if CDS_Sub.Locate('Qty',null,[])=True then
+  begin
+    Application.MessageBox('数量不能为空!','提示',0);
+    Exit;
+  end;
+  if CDS_Sub.Locate('Price',null,[])=True then
+  begin
+    Application.MessageBox('单价不能为空!','提示',0);
+    Exit;
+  end;
+  ToolBar1.SetFocus;
+  if SaveCKData() then
+  begin
+    Application.MessageBox('保存成功!','提示',0);
+    //ModalResult:=1;
+    Exit;
+  end;
+end;
+
+procedure TfrmBPJGDZInPut.v1Column14PropertiesButtonClick(Sender: TObject;
+  AButtonIndex: Integer);
+begin
+  try
+    frmGYSSelList:=TfrmGYSSelList.Create(Application);
+    with frmGYSSelList do
+    begin
+      if ShowModal=1 then
+      begin
+        with Self.CDS_Sub do
+        begin
+          edit;
+          FieldByName('FactoryNo').Value:=Trim(frmGYSSelList.Order_Main.fieldbyname('ZKID').AsString) ;
+          FieldByName('FactoryName').Value:=Trim(frmGYSSelList.Order_Main.fieldbyname('KHName').AsString);
+          //Post;
+        end;
+      end;
+    end;
+  finally
+    frmGYSSelList.Free;
+  end;
+end;
+
+procedure TfrmBPJGDZInPut.v2Column1PropertiesButtonClick(Sender: TObject;
+  AButtonIndex: Integer);
+begin
+  try
+    frmZDYHelp:=TfrmZDYHelp.Create(Application);
+    with frmZDYHelp do
+    begin
+      flag:='BPJGName';
+      flagname:='加工名称';
+      if ShowModal=1 then
+      begin
+        with Self.CDS_Sub do
+        begin
+          Edit;
+          FieldByName('MPRTCodeName').Value:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString);
+        end;
+      end;
+    end;
+  finally
+    frmZDYHelp.Free;
+  end;
+end;
+
+procedure TfrmBPJGDZInPut.v2Column6PropertiesEditValueChanged(
+  Sender: TObject);
+var
+  mvalue,FName,FQty,FPrice:String;
+begin
+  FName:=Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName;
+  mvalue:=TcxTextEdit(Sender).EditingText;
+  if Trim(mvalue)='' then mvalue:='0';
+  with CDS_Sub do
+  begin
+    edit;
+    FieldByName(FName).Value:=mvalue;
+    //Post;
+  end;
+  FQty:=CDS_Sub.fieldbyname('Qty').AsString;
+  FPrice:=CDS_Sub.fieldbyname('Price').AsString;
+  if Trim(FQty)='' then FQty:='0';
+  if Trim(FPrice)='' then FPrice:='0';
+  with CDS_Sub do
+  begin
+    Edit;
+    FieldByName('Money').Value:=StrToFloat(FQty)*StrToFloat(FPrice);
+    //Post;
+  end;
+  if Trim(FName)='Qty' then
+  begin
+   { if Trim(CDS_Sub.fieldbyname('QtyToFZQtyXS').AsString)<>'' then
+    begin
+      with CDS_Sub do
+      begin
+        Edit;
+        FieldByName('FZQty').Value:=StrToFloat(FQty)*CDS_Sub.fieldbyname('QtyToFZQtyXS').Value;
+      end;
+    end; }
+  end;
+end;
+
+procedure TfrmBPJGDZInPut.v1(
+  Sender: TObject);
+var
+  mvalue:String;
+begin
+ { mvalue:=TcxComboBox(Sender).EditingText;
+  with CDS_Sub do
+  begin
+    edit;
+    FieldByName('FZQtyUnit').Value:=Trim(mvalue);
+  end;
+  if Trim(mvalue)='' then
+  begin
+    with CDS_Sub do
+    begin
+      Edit;
+      FieldByName('QtyToFZQtyXS').Value:=Null;
+      FieldByName('FZQty').Value:=Null;
+    end;
+  end; }
+end;
+
+procedure TfrmBPJGDZInPut.Tv1MouseDown(Sender: TObject;
+  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
+var
+  FName:string;
+begin
+  {FName:=Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName;
+  if Trim(FName)='QtyToFZQtyXS' then
+  begin
+    if Trim(CDS_Sub.fieldbyname('QtyUnit').AsString)='' then
+    begin
+      v1QtyToFZQtyXS.Options.Editing:=False;
+      Application.MessageBox('数量单位不能为空!','提示',0);
+      exit;
+    end;
+    if Trim(CDS_Sub.fieldbyname('FZQtyUnit').AsString)='' then
+    begin
+      v1QtyToFZQtyXS.Options.Editing:=False;
+      Application.MessageBox('辅助单位不能为空!','提示',0);
+      exit;
+    end;
+    v1QtyToFZQtyXS.Options.Editing:=True;
+  end;
+  if Trim(FName)='FZQty' then
+  begin
+    if Trim(CDS_Sub.fieldbyname('FZQtyUnit').AsString)='' then
+    begin
+      v1FZQty.Options.Editing:=False;
+      Application.MessageBox('辅助单位不能为空!','提示',0);
+      exit;
+    end;
+    v1FZQty.Options.Editing:=True;
+  end; }
+end;
+
+procedure TfrmBPJGDZInPut.v1QtyToFZQtyXSPropertiesEditValueChanged(
+  Sender: TObject);
+var
+  mvalue,FName,FQty:String;
+begin
+  {mvalue:=TcxTextEdit(Sender).EditingText;
+  //if Trim(mvalue)='' then mvalue:='0';
+  with CDS_Sub do
+  begin
+    edit;
+    FieldByName('QtyToFZQtyXS').Value:=mvalue;
+    //Post;
+  end;
+  FQty:=CDS_Sub.fieldbyname('Qty').AsString;
+  if Trim(FQty)='' then FQty:='0';
+  if Trim(CDS_Sub.fieldbyname('QtyToFZQtyXS').AsString)<>'' then
+  begin
+    with CDS_Sub do
+    begin
+      Edit;
+      FieldByName('FZQty').Value:=StrToFloat(FQty)*CDS_Sub.fieldbyname('QtyToFZQtyXS').Value;
+    end;
+  end else
+  begin
+    with CDS_Sub do
+    begin
+      Edit;
+      FieldByName('FZQty').Value:=Null;
+    end;
+  end; }
+end;
+
+end.

坯布码单待检(PBMDDJ.dll)/U_BPJGDZList.dfm

@@ -0,0 +1,453 @@
+object frmBPJGDZList: TfrmBPJGDZList
+  Left = 171
+  Top = 128
+  Width = 1130
+  Height = 511
+  Caption = #24067#21305#21152#24037#23545#36134#21015#34920
+  Color = clBtnFace
+  Font.Charset = GB2312_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -12
+  Font.Name = #23435#20307
+  Font.Style = []
+  OldCreateOrder = False
+  OnClose = FormClose
+  OnCreate = FormCreate
+  OnDestroy = FormDestroy
+  OnShow = FormShow
+  PixelsPerInch = 96
+  TextHeight = 12
+  object ToolBar1: TToolBar
+    Left = 0
+    Top = 0
+    Width = 1114
+    Height = 33
+    ButtonHeight = 30
+    ButtonWidth = 83
+    Caption = 'ToolBar1'
+    Color = clSkyBlue
+    Flat = True
+    Font.Charset = GB2312_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -12
+    Font.Name = #23435#20307
+    Font.Style = []
+    Images = DataLink_DDMD.ThreeImgList
+    List = True
+    ParentColor = False
+    ParentFont = False
+    ShowCaptions = True
+    TabOrder = 0
+    object TBRafresh: TToolButton
+      Left = 0
+      Top = 0
+      AutoSize = True
+      Caption = #21047#26032
+      ImageIndex = 0
+      OnClick = TBRafreshClick
+    end
+    object TBFind: TToolButton
+      Left = 63
+      Top = 0
+      AutoSize = True
+      Caption = #36807#28388
+      ImageIndex = 20
+      OnClick = TBFindClick
+    end
+    object ToolButton1: TToolButton
+      Left = 126
+      Top = 0
+      AutoSize = True
+      Caption = #26032#22686
+      ImageIndex = 1
+      OnClick = ToolButton1Click
+    end
+    object ToolButton2: TToolButton
+      Left = 189
+      Top = 0
+      AutoSize = True
+      Caption = #20462#25913
+      ImageIndex = 11
+      OnClick = ToolButton2Click
+    end
+    object TBRKCX: TToolButton
+      Left = 252
+      Top = 0
+      AutoSize = True
+      Caption = #21024#38500
+      ImageIndex = 3
+      OnClick = TBRKCXClick
+    end
+    object ToolButton3: TToolButton
+      Left = 315
+      Top = 0
+      AutoSize = True
+      Caption = #23545#36134
+      ImageIndex = 77
+      OnClick = ToolButton3Click
+    end
+    object ToolButton4: TToolButton
+      Left = 378
+      Top = 0
+      AutoSize = True
+      Caption = #23545#36134#25764#38144
+      ImageIndex = 52
+      OnClick = ToolButton4Click
+    end
+    object TBExport: TToolButton
+      Left = 465
+      Top = 0
+      AutoSize = True
+      Caption = #23548#20986
+      ImageIndex = 68
+      OnClick = TBExportClick
+    end
+    object TBClose: TToolButton
+      Left = 528
+      Top = 0
+      AutoSize = True
+      Caption = #20851#38381
+      ImageIndex = 21
+      OnClick = TBCloseClick
+    end
+  end
+  object Panel1: TPanel
+    Left = 0
+    Top = 33
+    Width = 1114
+    Height = 38
+    Align = alTop
+    BevelInner = bvRaised
+    BevelOuter = bvLowered
+    Color = clSkyBlue
+    TabOrder = 1
+    object Label1: TLabel
+      Left = 28
+      Top = 12
+      Width = 48
+      Height = 12
+      Caption = #26597#35810#26102#38388
+    end
+    object Label2: TLabel
+      Left = 168
+      Top = 12
+      Width = 12
+      Height = 12
+      Caption = #33267
+    end
+    object Label3: TLabel
+      Left = 438
+      Top = 12
+      Width = 24
+      Height = 12
+      Caption = #21697#21517
+    end
+    object Label4: TLabel
+      Left = 579
+      Top = 12
+      Width = 36
+      Height = 12
+      Caption = #20379#24212#21830
+    end
+    object Label6: TLabel
+      Left = 286
+      Top = 12
+      Width = 36
+      Height = 12
+      Caption = #35746#21333#21495
+    end
+    object BegDate: TDateTimePicker
+      Left = 77
+      Top = 9
+      Width = 87
+      Height = 20
+      Date = 40768.458268587970000000
+      Time = 40768.458268587970000000
+      TabOrder = 0
+    end
+    object EndDate: TDateTimePicker
+      Left = 181
+      Top = 9
+      Width = 87
+      Height = 20
+      Date = 40768.458268587970000000
+      Time = 40768.458268587970000000
+      TabOrder = 1
+    end
+    object MPRTCodeName: TEdit
+      Tag = 2
+      Left = 465
+      Top = 9
+      Width = 100
+      Height = 20
+      TabOrder = 2
+      OnChange = TBFindClick
+    end
+    object FactoryName: TEdit
+      Tag = 2
+      Left = 616
+      Top = 9
+      Width = 129
+      Height = 20
+      TabOrder = 3
+      OnChange = FactoryNameChange
+    end
+    object OrderNo: TEdit
+      Tag = 2
+      Left = 324
+      Top = 9
+      Width = 100
+      Height = 20
+      TabOrder = 4
+      OnChange = TBFindClick
+    end
+  end
+  object cxGrid1: TcxGrid
+    Left = 0
+    Top = 92
+    Width = 1114
+    Height = 380
+    Align = alClient
+    PopupMenu = PopupMenu1
+    TabOrder = 2
+    object Tv1: TcxGridDBTableView
+      NavigatorButtons.ConfirmDelete = False
+      DataController.DataSource = DataSource1
+      DataController.Summary.DefaultGroupSummaryItems = <
+        item
+          Kind = skSum
+          Position = spFooter
+          Column = v1Column9
+        end
+        item
+          Kind = skSum
+          Position = spFooter
+          Column = v2Column6
+        end
+        item
+          Kind = skSum
+          Position = spFooter
+          Column = v1Column1
+        end>
+      DataController.Summary.FooterSummaryItems = <
+        item
+          Kind = skCount
+        end
+        item
+          Kind = skSum
+        end
+        item
+          Kind = skSum
+          Column = v2Column6
+        end
+        item
+          Kind = skSum
+        end
+        item
+          Kind = skSum
+          Column = v1Column9
+        end
+        item
+          Kind = skSum
+          Column = v1Column1
+        end>
+      DataController.Summary.SummaryGroups = <>
+      OptionsCustomize.ColumnFiltering = False
+      OptionsView.Footer = True
+      OptionsView.GroupByBox = False
+      OptionsView.GroupFooters = gfAlwaysVisible
+      Styles.Inactive = DataLink_DDMD.SHuangSe
+      Styles.IncSearch = DataLink_DDMD.SHuangSe
+      Styles.Selection = DataLink_DDMD.SHuangSe
+      Styles.Header = DataLink_DDMD.Default
+      object v1Column4: TcxGridDBColumn
+        Caption = #36873#25321
+        DataBinding.FieldName = 'SSel'
+        PropertiesClassName = 'TcxCheckBoxProperties'
+        Properties.ImmediatePost = True
+        Properties.NullStyle = nssUnchecked
+        HeaderAlignmentHorz = taCenter
+        Width = 48
+      end
+      object v1Column2: TcxGridDBColumn
+        Tag = 2
+        Caption = #26085#26399
+        DataBinding.FieldName = 'DZDate'
+        PropertiesClassName = 'TcxDateEditProperties'
+        Properties.SaveTime = False
+        Properties.ShowTime = False
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 100
+      end
+      object v1Column7: TcxGridDBColumn
+        Caption = #35746#21333#21495
+        DataBinding.FieldName = 'OrderNo'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 74
+      end
+      object v2Column1: TcxGridDBColumn
+        Tag = 2
+        Caption = #21697#21517
+        DataBinding.FieldName = 'MPRTCodeName'
+        PropertiesClassName = 'TcxButtonEditProperties'
+        Properties.Buttons = <
+          item
+            Default = True
+            Kind = bkEllipsis
+          end>
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 112
+      end
+      object v1Column14: TcxGridDBColumn
+        Tag = 2
+        Caption = #20379#24212#21830
+        DataBinding.FieldName = 'FactoryName'
+        PropertiesClassName = 'TcxButtonEditProperties'
+        Properties.Alignment.Horz = taLeftJustify
+        Properties.Buttons = <
+          item
+            Default = True
+            Kind = bkEllipsis
+          end>
+        Properties.ReadOnly = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 149
+      end
+      object v1Column9: TcxGridDBColumn
+        Tag = 2
+        Caption = #21305#25968
+        DataBinding.FieldName = 'PS'
+        PropertiesClassName = 'TcxTextEditProperties'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 98
+      end
+      object v2Column6: TcxGridDBColumn
+        Tag = 2
+        Caption = #25968#37327
+        DataBinding.FieldName = 'Qty'
+        PropertiesClassName = 'TcxTextEditProperties'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 89
+      end
+      object v1Column8: TcxGridDBColumn
+        Caption = #25968#37327#21333#20301
+        DataBinding.FieldName = 'QtyUnit'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 66
+      end
+      object v1Column3: TcxGridDBColumn
+        Tag = 2
+        Caption = #21333#20215
+        DataBinding.FieldName = 'Price'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 77
+      end
+      object v1Column1: TcxGridDBColumn
+        Tag = 2
+        Caption = #37329#39069
+        DataBinding.FieldName = 'Money'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 87
+      end
+      object v1Column5: TcxGridDBColumn
+        Caption = #29366#24577
+        DataBinding.FieldName = 'Status'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 71
+      end
+      object v1Column12: TcxGridDBColumn
+        Tag = 2
+        Caption = #22791#27880
+        DataBinding.FieldName = 'Note'
+        Options.Editing = False
+        Width = 132
+      end
+    end
+    object cxGrid1Level1: TcxGridLevel
+      GridView = Tv1
+    end
+  end
+  object cxTabControl1: TcxTabControl
+    Left = 0
+    Top = 71
+    Width = 1114
+    Height = 21
+    Align = alTop
+    Font.Charset = GB2312_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -12
+    Font.Name = #23435#20307
+    Font.Style = [fsBold]
+    ParentFont = False
+    Style = 8
+    TabIndex = 0
+    TabOrder = 3
+    Tabs.Strings = (
+      #24453#23545#36134
+      #24050#23545#36134
+      #20840#37096)
+    OnChange = cxTabControl1Change
+    ClientRectBottom = 23
+    ClientRectRight = 1114
+    ClientRectTop = 23
+  end
+  object ADOQueryCmd: TADOQuery
+    Connection = DataLink_DDMD.ADOLink
+    Parameters = <>
+    Left = 920
+    Top = 184
+  end
+  object ADOQueryMain: TADOQuery
+    Connection = DataLink_DDMD.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 888
+    Top = 184
+  end
+  object ADOQueryTemp: TADOQuery
+    Connection = DataLink_DDMD.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 952
+    Top = 184
+  end
+  object DataSource1: TDataSource
+    DataSet = CDS_Main
+    Left = 920
+    Top = 152
+  end
+  object cxGridPopupMenu1: TcxGridPopupMenu
+    Grid = cxGrid1
+    PopupMenus = <>
+    Left = 888
+    Top = 152
+  end
+  object CDS_Main: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 952
+    Top = 152
+  end
+  object PopupMenu1: TPopupMenu
+    Left = 888
+    Top = 224
+    object N1: TMenuItem
+      Caption = #20840#36873
+      OnClick = N1Click
+    end
+    object N2: TMenuItem
+      Caption = #20840#24323
+      OnClick = N2Click
+    end
+  end
+end

坯布码单待检(PBMDDJ.dll)/U_BPJGDZList.pas

@@ -0,0 +1,588 @@
+unit U_BPJGDZList;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData,
+  cxDataStorage, cxEdit, DB, cxDBData, cxGridCustomTableView,
+  cxGridTableView, cxGridBandedTableView, cxGridDBBandedTableView,
+  cxGridLevel, cxClasses, cxControls, cxGridCustomView, cxGridDBTableView,
+  cxGrid, StdCtrls, ComCtrls, ExtCtrls, ToolWin, cxGridCustomPopupMenu,
+  cxGridPopupMenu, ADODB, DBClient, cxDropDownEdit, cxCheckBox, RM_Common,
+  RM_Class, RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, Menus,
+  cxCalendar, cxButtonEdit, cxTextEdit, cxPC;
+
+type
+  TfrmBPJGDZList = class(TForm)
+    ToolBar1: TToolBar;
+    TBRafresh: TToolButton;
+    TBFind: TToolButton;
+    TBExport: TToolButton;
+    TBClose: TToolButton;
+    Panel1: TPanel;
+    ADOQueryCmd: TADOQuery;
+    ADOQueryMain: TADOQuery;
+    ADOQueryTemp: TADOQuery;
+    DataSource1: TDataSource;
+    cxGridPopupMenu1: TcxGridPopupMenu;
+    Label1: TLabel;
+    Label2: TLabel;
+    BegDate: TDateTimePicker;
+    EndDate: TDateTimePicker;
+    CDS_Main: TClientDataSet;
+    TBRKCX: TToolButton;
+    PopupMenu1: TPopupMenu;
+    N1: TMenuItem;
+    N2: TMenuItem;
+    ToolButton1: TToolButton;
+    ToolButton2: TToolButton;
+    Label3: TLabel;
+    Label4: TLabel;
+    MPRTCodeName: TEdit;
+    FactoryName: TEdit;
+    cxGrid1: TcxGrid;
+    Tv1: TcxGridDBTableView;
+    v1Column2: TcxGridDBColumn;
+    v2Column1: TcxGridDBColumn;
+    v1Column14: TcxGridDBColumn;
+    v1Column9: TcxGridDBColumn;
+    v2Column6: TcxGridDBColumn;
+    v1Column3: TcxGridDBColumn;
+    v1Column1: TcxGridDBColumn;
+    v1Column12: TcxGridDBColumn;
+    cxGrid1Level1: TcxGridLevel;
+    ToolButton3: TToolButton;
+    ToolButton4: TToolButton;
+    cxTabControl1: TcxTabControl;
+    v1Column4: TcxGridDBColumn;
+    v1Column5: TcxGridDBColumn;
+    Label6: TLabel;
+    OrderNo: TEdit;
+    v1Column7: TcxGridDBColumn;
+    v1Column8: TcxGridDBColumn;
+    procedure FormDestroy(Sender: TObject);
+    procedure FormClose(Sender: TObject; var Action: TCloseAction);
+    procedure FormCreate(Sender: TObject);
+    procedure TBRafreshClick(Sender: TObject);
+    procedure ConNoMChange(Sender: TObject);
+    procedure TBCloseClick(Sender: TObject);
+    procedure FormShow(Sender: TObject);
+    procedure TBExportClick(Sender: TObject);
+    procedure TBFindClick(Sender: TObject);
+    procedure N1Click(Sender: TObject);
+    procedure N2Click(Sender: TObject);
+    procedure TBRKCXClick(Sender: TObject);
+    procedure ToolButton1Click(Sender: TObject);
+    procedure ToolButton2Click(Sender: TObject);
+    procedure FactoryNameChange(Sender: TObject);
+    procedure cxTabControl1Change(Sender: TObject);
+    procedure ToolButton3Click(Sender: TObject);
+    procedure ToolButton4Click(Sender: TObject);
+  private
+    procedure InitGrid();
+    function  YFHZData(FDZID:string):Boolean;
+    function DelYFHZData():Boolean;
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+var
+  frmBPJGDZList: TfrmBPJGDZList;
+
+implementation
+uses
+  U_DataLink,U_RTFun,U_BPJGDZInPut;
+
+{$R *.dfm}
+
+procedure TfrmBPJGDZList.FormDestroy(Sender: TObject);
+begin
+  frmBPJGDZList:=nil;
+end;
+
+procedure TfrmBPJGDZList.FormClose(Sender: TObject;
+  var Action: TCloseAction);
+begin
+  Action:=caFree;
+end;
+
+procedure TfrmBPJGDZList.FormCreate(Sender: TObject);
+begin
+  //cxGrid1.Align:=alClient;
+  EndDate.DateTime:=SGetServerDate10(ADOQueryTemp);
+  BegDate.DateTime:=EndDate.DateTime-15;
+end;
+
+procedure TfrmBPJGDZList.InitGrid();
+begin
+  try
+    ADOQueryMain.DisableControls;
+    with ADOQueryMain do
+    begin
+      Filtered:=False;
+      Close;
+      sql.Clear;
+      sql.Add(' select A.* ');
+      sql.Add(' from JYOrder_Main_MD_DuiZhang A');
+      sql.Add(' where isnull(DZType,'''')=''布匹加工'' and isnull(ZSType,'''')='''' ');
+      if cxTabControl1.TabIndex=0 then
+      begin
+        sql.Add(' and isnull(Status,'''')=''待对账'' ');
+      end else
+      begin
+        sql.Add(' and isnull(Status,'''')=''已对账'' ');
+      end;
+      if cxTabControl1.TabIndex<>0 then
+      begin
+        sql.add(' and A.DZDate>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+'''');
+        sql.Add(' and A.DZDate<='''+Trim(FormatDateTime('yyyy-MM-dd',enddate.DateTime+1))+'''');
+      end;
+      if Trim(FactoryName.Text)<>'' then
+      begin
+        SQL.Add(' and isnull(A.FactoryName,'''') like '''+'%'+Trim(FactoryName.Text)+'%'+'''');
+      end;
+      if Trim(MPRTCodeName.Text)<>'' then
+      begin
+        SQL.Add(' and isnull(A.MPRTCodeName,'''') like '''+'%'+Trim(MPRTCodeName.Text)+'%'+'''');
+      end;
+      if Trim(OrderNo.Text)<>'' then
+      begin
+        SQL.Add(' and isnull(A.OrderNo,'''') like '''+'%'+Trim(OrderNo.Text)+'%'+'''');
+      end;
+      Open;
+      //ShowMessage(SQL.Text);
+    end;
+    SCreateCDS20(ADOQueryMain,CDS_Main);
+    SInitCDSData20(ADOQueryMain,CDS_Main);
+  finally
+    ADOQueryMain.EnableControls;
+  end;
+end;
+
+procedure TfrmBPJGDZList.TBRafreshClick(Sender: TObject);
+begin
+  BegDate.SetFocus;
+  InitGrid();
+end;
+
+procedure TfrmBPJGDZList.ConNoMChange(Sender: TObject);
+begin
+  if ADOQueryMain.Active then
+  begin
+    SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2));
+  end;
+end;
+
+procedure TfrmBPJGDZList.TBCloseClick(Sender: TObject);
+begin
+  WriteCxGrid('布匹加工对账列表无折算',Tv1,'财务对账');
+  Close;
+end;
+
+procedure TfrmBPJGDZList.FormShow(Sender: TObject);
+begin
+  ReadCxGrid('布匹加工对账列表无折算',Tv1,'财务对账');
+  //InitGrid();
+end;
+
+procedure TfrmBPJGDZList.TBExportClick(Sender: TObject);
+begin
+  if ADOQueryMain.IsEmpty then exit;
+  TcxGridToExcel('布匹加工对账列表',cxGrid1);
+end;
+
+procedure TfrmBPJGDZList.TBFindClick(Sender: TObject);
+begin
+  if ADOQueryMain.Active then
+  begin
+    SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2));
+    SCreateCDS20(ADOQueryMain,CDS_Main);
+    SInitCDSData20(ADOQueryMain,CDS_Main);
+  end;
+end;
+
+procedure TfrmBPJGDZList.N1Click(Sender: TObject);
+begin
+  SelOKNo(CDS_Main,True);
+end;
+
+procedure TfrmBPJGDZList.N2Click(Sender: TObject);
+begin
+  SelOKNo(CDS_Main,False);
+end;
+
+procedure TfrmBPJGDZList.TBRKCXClick(Sender: TObject);
+begin
+  if CDS_Main.IsEmpty then exit;
+  if cxTabControl1.TabIndex<>0 then Exit;
+  if CDS_Main.Locate('SSel',True,[])=False then
+  begin
+    Application.MessageBox('没有选择数据!','提示',0);
+    Exit;
+  end;
+  if Application.MessageBox('确定要删除数据吗？','提示',32+4)<>IDYES then Exit;
+  try
+    ADOQueryCmd.Connection.BeginTrans;
+    CDS_Main.DisableControls;
+    with CDS_Main do
+    begin
+      First;
+      while Locate('SSel',True,[]) do
+      begin
+        with ADOQueryCmd do
+        begin
+          Close;
+          sql.Clear;
+          sql.Add('delete from JYOrder_Main_MD_DuiZhang where DZID='''+Trim(CDS_Main.fieldbyname('DZID').AsString)+'''');
+          ExecSQL;
+        end;
+        CDS_Main.Delete;
+      end;
+    end;
+    CDS_Main.EnableControls;
+    ADOQueryCmd.Connection.CommitTrans;
+  except
+    ADOQueryCmd.Connection.RollbackTrans;
+    CDS_Main.EnableControls;
+    Application.MessageBox('删除异常!','提示',0);
+  end;
+end;
+
+procedure TfrmBPJGDZList.ToolButton1Click(Sender: TObject);
+begin
+  try
+    frmBPJGDZInPut:=TfrmBPJGDZInPut.Create(Application);
+    with frmBPJGDZInPut do
+    begin
+      FBCId:='';
+      if ShowModal=1 then
+      begin
+        Self.InitGrid();
+      end;
+    end;
+  finally
+    frmBPJGDZInPut.Free;
+  end;
+end;
+
+procedure TfrmBPJGDZList.ToolButton2Click(Sender: TObject);
+begin
+  if cxTabControl1.TabIndex<>0 then Exit;
+  try
+    frmBPJGDZInPut:=TfrmBPJGDZInPut.Create(Application);
+    with frmBPJGDZInPut do
+    begin
+      FBCId:=Trim(CDS_Main.fieldbyname('DZID').AsString);
+      TBDel.Visible:=False;
+      TBAdd.Visible:=False;
+      if ShowModal=1 then
+      begin
+        Self.InitGrid();
+      end;
+    end;
+  finally
+    frmBPJGDZInPut.Free;
+  end;
+end;
+
+procedure TfrmBPJGDZList.FactoryNameChange(Sender: TObject);
+begin
+  TBFind.Click;
+end;
+
+procedure TfrmBPJGDZList.cxTabControl1Change(Sender: TObject);
+begin
+  InitGrid();
+end;
+
+procedure TfrmBPJGDZList.ToolButton3Click(Sender: TObject);
+begin
+  if CDS_Main.IsEmpty then exit;
+  if cxTabControl1.TabIndex<>0 then Exit;
+  if CDS_Main.Locate('SSel',True,[])=False then
+  begin
+    Application.MessageBox('没有选择数据!','提示',0);
+    Exit;
+  end;
+  if Application.MessageBox('确定要执行对账操作吗？','提示',32+4)<>IDYES then Exit;
+  try
+    ADOQueryCmd.Connection.BeginTrans;
+    CDS_Main.DisableControls;
+    with CDS_Main do
+    begin
+      First;
+      while Locate('SSel',True,[]) do
+      begin
+        with ADOQueryCmd do
+        begin
+          Close;
+          sql.Clear;
+          sql.Add('select * from JYOrder_Main_MD_DuiZhang where DZID='''+Trim(CDS_Main.fieldbyname('DZID').AsString)+'''');
+          Open;
+        end;
+        with ADOQueryCmd do
+        begin
+          Edit;
+          FieldByName('DuiZhangPerson').Value:=Trim(DName);
+          FieldByName('DuiZhangTime').Value:=SGetServerDateTime(ADOQueryTemp);
+          FieldByName('Status').Value:='已对账';
+          Post;
+        end;
+        YFHZData(Trim(CDS_Main.fieldbyname('DZID').AsString));
+        CDS_Main.Delete;
+      end;
+    end;
+    CDS_Main.EnableControls;
+    ADOQueryCmd.Connection.CommitTrans;
+  except
+    ADOQueryCmd.Connection.RollbackTrans;
+    CDS_Main.EnableControls;
+    Application.MessageBox('对账异常!','提示',0);
+  end;
+end;
+function TfrmBPJGDZList.YFHZData(FDZID:string):Boolean;
+var
+  CRID,OrdMainId,FYFID,MaxNo,FComTaiTou,FCRID,FFactoryName,CWFactoryNo,CWFactoryName:String;
+begin
+  Result:=False;
+  with ADOQueryTemp do
+  begin
+    Close;
+    sql.Clear;
+    sql.Add('select * from JYOrder_Main_MD_DuiZhang where DZID='''+Trim(FDZID)+'''');
+    Open;
+  end;
+  CWFactoryNo:=Trim(ADOQueryTemp.fieldbyname('FactoryNo').AsString);
+  CWFactoryName:=Trim(ADOQueryTemp.fieldbyname('FactoryName').AsString);
+  with ADOQueryTemp do
+  begin
+    Close;
+    SQL.Clear;
+    sql.Add('select * from YF_Money_KC where FactoryNo='''+Trim(CWFactoryNo)+'''');
+    Open;
+  end;
+  if ADOQueryTemp.IsEmpty=False then
+  begin
+    CRID:=ADOQueryTemp.fieldbyname('CRID').AsString;
+  end else
+  begin
+    with ADOQueryCmd do
+    begin
+      Close;
+      sql.Clear;
+      sql.Add('Update YF_Money_CRID set CRID=CRID+1');
+      sql.Add('select * from YF_Money_CRID ');
+      Open;
+    end;
+    CRID:=ADOQueryCmd.fieldbyname('CRID').AsString;
+    with ADOQueryCmd do
+    begin
+      Close;
+      SQL.Clear;
+      sql.Add('select * from YF_Money_KC where 1<>1');
+      Open;
+    end;
+    with ADOQueryCmd do
+    begin
+      Append;
+      FieldByName('CRID').Value:=StrToInt(CRID);
+      FieldByName('FactoryName').Value:=Trim(CWFactoryName);
+      FieldByName('FactoryNo').Value:=Trim(CWFactoryNo);
+      FieldByName('ZdyStr1').Value:='应付付';
+      Post;
+    end;
+  end;
+  with ADOQueryTemp do
+  begin
+    Close;
+    sql.Clear;
+    sql.Add('select * from YF_Money_CR where FactoryNo='''+Trim(CWFactoryNo)+'''');
+    sql.Add(' and MHID='''+Trim(CDS_Main.fieldbyname('DZID').AsString)+'''');
+    Open;
+  end;
+  FYFID:=Trim(ADOQueryTemp.fieldbyname('YFID').AsString);
+  if Trim(FYFID)='' then
+  begin
+    if GetLSNo(ADOQueryCmd,MaxNo,'BJ','YF_Money_CR',3,1)=False then
+    begin
+      Application.MessageBox('取布匹加工应付最大号失败!','提示',0);
+      Exit;
+    end;
+  end else
+  begin
+    MaxNo:=Trim(FYFID);
+  end;
+  with ADOQueryCmd do
+  begin
+    Close;
+    sql.Clear;
+    sql.Add('select * from YF_Money_CR where YFID='''+Trim(MaxNo)+'''');
+    Open;
+  end;
+  with ADOQueryCmd do
+  begin
+    if Trim(FYFID)='' then
+      Append
+    else
+      Edit;
+    FieldByName('YFID').Value:=Trim(MaxNo);
+    FieldByName('CRID').Value:=StrToInt(CRID);
+    FieldByName('Filler').Value:=Trim(DName);
+    FieldByName('CRType').Value:='应付款登记';
+    FieldByName('CRFlag').Value:='应付付';
+    FieldByName('QtyFlag').Value:=1;
+    FieldByName('FactoryNo').Value:=Trim(CWFactoryNo);
+    FieldByName('FactoryName').Value:=Trim(CWFactoryName);
+    FieldByName('HZFactoryNo').Value:=Trim(CWFactoryNo);
+    FieldByName('HZFactoryName').Value:=Trim(CWFactoryName);
+    FieldByName('YFType').Value:='自动生成';
+    FieldByName('HuiLv').Value:=1;
+    FieldByName('BZType').Value:='人民币';
+    FieldByName('YFName').Value:='布匹加工';
+    //FieldByName('PSName').Value:='纱线';
+    FieldByName('MHID').Value:=Trim(CDS_Main.fieldbyname('DZID').AsString);
+    Post;
+  end;
+  with ADOQueryCmd do
+  begin
+    Close;
+    sql.Clear;
+    sql.Add('UPdate YF_Money_CR Set PS=(select PS from JYOrder_Main_MD_DuiZhang where DZID='''+Trim(FDZID)+''')');
+    sql.Add(', Qty=(select Qty from JYOrder_Main_MD_DuiZhang where DZID='''+Trim(FDZID)+''')');
+    sql.Add(', Price=(select Price from JYOrder_Main_MD_DuiZhang where DZID='''+Trim(FDZID)+''')');
+    sql.Add(',Money=(select Money from JYOrder_Main_MD_DuiZhang where DZID='''+Trim(FDZID)+''')');
+    sql.Add(',BBMoney=(select Money from JYOrder_Main_MD_DuiZhang where DZID='''+Trim(FDZID)+''')');
+    sql.Add(',CPName=(select MPRTCodeName from JYOrder_Main_MD_DuiZhang where DZID='''+Trim(FDZID)+''')');
+    sql.Add(',QtyUnit=(select QtyUnit from JYOrder_Main_MD_DuiZhang where DZID='''+Trim(FDZID)+''')');
+    sql.Add(',CRTime=(select DZDate from JYOrder_Main_MD_DuiZhang where DZID='''+Trim(FDZID)+''')');
+    sql.Add(',OrderNo=(select OrderNo from JYOrder_Main_MD_DuiZhang where DZID='''+Trim(FDZID)+''')');
+    sql.Add(',Note=(select Note from JYOrder_Main_MD_DuiZhang where DZID='''+Trim(FDZID)+''')');
+    sql.Add(' where YFID='''+Trim(MaxNo)+'''');
+    ExecSQL;
+  end;
+  with ADOQueryCmd do
+  begin
+    Close;
+    sql.Clear;
+    sql.Add('Update JYOrder_Main_MD_DuiZhang Set YFID='''+Trim(MaxNo)+'''');
+    sql.Add(' where DZID='''+Trim(CDS_Main.fieldbyname('DZID').AsString)+'''');
+    ExecSQL;
+  end;
+  with ADOQueryCmd do
+  begin
+    Close;
+    sql.Clear;
+    sql.Add('Update YF_Money_KC Set ');
+    sql.Add(' KCMoney=(select isnull(Sum(Money*QtyFlag),0) from YF_Money_CR A where A.CRID=YF_Money_KC.CRID and A.Valid=''Y'')');
+    sql.Add(',KCBBMoney=(select isnull(Sum(BBMoney*QtyFlag),0) from YF_Money_CR A where A.CRID=YF_Money_KC.CRID and A.Valid=''Y'' )');
+    sql.Add(' where CRID='+CRID);
+    ExecSQL;
+  end;
+
+  Result:=True;
+end;
+function TfrmBPJGDZList.DelYFHZData():Boolean;
+var
+  CRID:String;
+begin
+  Result:=False;
+  with ADOQueryTemp do
+  begin
+    Close;
+    sql.Clear;
+    sql.Add('select * from YF_Money_CR where MHID='''+Trim(CDS_Main.fieldbyname('DZID').AsString)+'''');
+    Open;
+  end;
+  CRID:=Trim(ADOQueryTemp.fieldbyname('CRID').AsString);
+  with ADOQueryCmd do
+  begin
+    Close;
+    sql.Clear;
+    sql.Add(' delete YF_Money_CR where  ');
+    sql.Add(' MHID='''+Trim(CDS_Main.fieldbyname('DZID').AsString)+'''');
+    sql.Add(' Update JYOrder_Main_MD_DuiZhang Set YFID=Null where  ');
+    sql.Add(' DZID='''+Trim(CDS_Main.fieldbyname('DZID').AsString)+'''');
+    ExecSQL;
+  end;
+  if Trim(CRID)<>'' then
+  begin
+    with ADOQueryCmd do
+    begin
+      Close;
+      sql.Clear;
+      sql.Add('Update YF_Money_KC Set ');
+      sql.Add(' KCMoney=(select isnull(Sum(Money*QtyFlag),0) from YF_Money_CR A where A.CRID=YF_Money_KC.CRID and A.Valid=''Y'')');
+      sql.Add(',KCBBMoney=(select isnull(Sum(BBMoney*QtyFlag),0) from YF_Money_CR A where A.CRID=YF_Money_KC.CRID and A.Valid=''Y'' )');
+      sql.Add(' where CRID='+CRID);
+      ExecSQL;
+    end;
+    with ADOQueryTemp do
+    begin
+      Close;
+      sql.Clear;
+      sql.Add('select * from YF_Money_CR where CRID='+CRID);
+      Open;
+    end;
+    if ADOQueryTemp.IsEmpty then
+    begin
+      with ADOQueryCmd do
+      begin
+        Close;
+        sql.Clear;
+        sql.Add(' delete YF_Money_KC where CRID='+CRID);
+        ExecSQL;
+      end;
+    end;
+  end;
+
+  Result:=True;
+end;
+procedure TfrmBPJGDZList.ToolButton4Click(Sender: TObject);
+begin
+  if CDS_Main.IsEmpty then exit;
+  if cxTabControl1.TabIndex<>1 then Exit;
+  if CDS_Main.Locate('SSel',True,[])=False then
+  begin
+    Application.MessageBox('没有选择数据!','提示',0);
+    Exit;
+  end;
+  if Application.MessageBox('确定要执行撤销操作吗？','提示',32+4)<>IDYES then Exit;
+  try
+    ADOQueryCmd.Connection.BeginTrans;
+    CDS_Main.DisableControls;
+    with CDS_Main do
+    begin
+      First;
+      while Locate('SSel',True,[]) do
+      begin
+        with ADOQueryCmd do
+        begin
+          Close;
+          sql.Clear;
+          sql.Add('select * from JYOrder_Main_MD_DuiZhang where DZID='''+Trim(CDS_Main.fieldbyname('DZID').AsString)+'''');
+          Open;
+        end;
+        with ADOQueryCmd do
+        begin
+          Edit;
+          FieldByName('DuiZhangPerson').Value:=Null;
+          FieldByName('DuiZhangTime').Value:=Null;
+          FieldByName('Status').Value:='待对账';
+          Post;
+        end;
+        DelYFHZData();
+        CDS_Main.Delete;
+      end;
+    end;
+    CDS_Main.EnableControls;
+    ADOQueryCmd.Connection.CommitTrans;
+  except
+    ADOQueryCmd.Connection.RollbackTrans;
+    CDS_Main.EnableControls;
+    Application.MessageBox('撤销异常!','提示',0);
+  end;
+end;
+
+end.

坯布码单待检(PBMDDJ.dll)/U_BPJGDZZSInPut.dfm

@@ -0,0 +1,285 @@
+object frmBPJGDZZSInPut: TfrmBPJGDZZSInPut
+  Left = 66
+  Top = 92
+  Width = 1215
+  Height = 502
+  Align = alClient
+  Caption = #24067#21305#21152#24037#23545#36134#24405#20837'('#26377#25240#31639')'
+  Color = clBtnFace
+  Font.Charset = GB2312_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -12
+  Font.Name = #23435#20307
+  Font.Style = []
+  OldCreateOrder = False
+  Position = poScreenCenter
+  OnClose = FormClose
+  OnShow = FormShow
+  PixelsPerInch = 96
+  TextHeight = 12
+  object cxGrid2: TcxGrid
+    Left = 0
+    Top = 33
+    Width = 1199
+    Height = 430
+    Align = alClient
+    TabOrder = 0
+    object Tv1: TcxGridDBTableView
+      OnMouseDown = Tv1MouseDown
+      NavigatorButtons.ConfirmDelete = False
+      DataController.DataSource = DataSource3
+      DataController.Summary.DefaultGroupSummaryItems = <>
+      DataController.Summary.FooterSummaryItems = <
+        item
+          Kind = skCount
+        end
+        item
+          Kind = skSum
+        end
+        item
+          Kind = skSum
+          Column = v2Column6
+        end
+        item
+          Kind = skSum
+        end
+        item
+          Kind = skSum
+          Column = v1Column9
+        end>
+      DataController.Summary.SummaryGroups = <>
+      OptionsCustomize.ColumnFiltering = False
+      OptionsView.Footer = True
+      OptionsView.GroupByBox = False
+      Styles.Inactive = DataLink_DDMD.SHuangSe
+      Styles.IncSearch = DataLink_DDMD.SHuangSe
+      Styles.Selection = DataLink_DDMD.SHuangSe
+      Styles.Header = DataLink_DDMD.Default
+      object v1Column2: TcxGridDBColumn
+        Tag = 2
+        Caption = #26085#26399
+        DataBinding.FieldName = 'DZDate'
+        PropertiesClassName = 'TcxDateEditProperties'
+        Properties.SaveTime = False
+        Properties.ShowTime = False
+        HeaderAlignmentHorz = taCenter
+        Width = 100
+      end
+      object v1Column4: TcxGridDBColumn
+        Tag = 2
+        Caption = #35746#21333#21495
+        DataBinding.FieldName = 'OrderNo'
+        HeaderAlignmentHorz = taCenter
+        Width = 81
+      end
+      object v2Column1: TcxGridDBColumn
+        Tag = 2
+        Caption = #21697#21517
+        DataBinding.FieldName = 'MPRTCodeName'
+        PropertiesClassName = 'TcxButtonEditProperties'
+        Properties.Buttons = <
+          item
+            Default = True
+            Kind = bkEllipsis
+          end>
+        Properties.OnButtonClick = v2Column1PropertiesButtonClick
+        HeaderAlignmentHorz = taCenter
+        Width = 112
+      end
+      object v1Column14: TcxGridDBColumn
+        Tag = 2
+        Caption = #20379#24212#21830
+        DataBinding.FieldName = 'FactoryName'
+        PropertiesClassName = 'TcxButtonEditProperties'
+        Properties.Alignment.Horz = taLeftJustify
+        Properties.Buttons = <
+          item
+            Default = True
+            Kind = bkEllipsis
+          end>
+        Properties.ReadOnly = True
+        Properties.OnButtonClick = v1Column14PropertiesButtonClick
+        HeaderAlignmentHorz = taCenter
+        Width = 149
+      end
+      object v1Column9: TcxGridDBColumn
+        Tag = 2
+        Caption = #21305#25968
+        DataBinding.FieldName = 'PS'
+        PropertiesClassName = 'TcxTextEditProperties'
+        HeaderAlignmentHorz = taCenter
+        Width = 84
+      end
+      object v2Column6: TcxGridDBColumn
+        Tag = 2
+        Caption = #25968#37327
+        DataBinding.FieldName = 'Qty'
+        PropertiesClassName = 'TcxTextEditProperties'
+        Properties.OnEditValueChanged = v2Column6PropertiesEditValueChanged
+        HeaderAlignmentHorz = taCenter
+        Width = 71
+      end
+      object v1Column6: TcxGridDBColumn
+        Tag = 2
+        Caption = #25968#37327#21333#20301
+        DataBinding.FieldName = 'QtyUnit'
+        PropertiesClassName = 'TcxComboBoxProperties'
+        Properties.DropDownListStyle = lsFixedList
+        Properties.Items.Strings = (
+          'Kg'
+          'M'
+          'Y')
+        HeaderAlignmentHorz = taCenter
+        Width = 68
+      end
+      object v1Column5: TcxGridDBColumn
+        Tag = 2
+        Caption = #36741#21161#21333#20301
+        DataBinding.FieldName = 'FZQtyUnit'
+        PropertiesClassName = 'TcxComboBoxProperties'
+        Properties.DropDownListStyle = lsFixedList
+        Properties.Items.Strings = (
+          'M'
+          'Y'
+          'Kg'
+          '')
+        Properties.OnEditValueChanged = v1
+        HeaderAlignmentHorz = taCenter
+        Width = 77
+      end
+      object v1QtyToFZQtyXS: TcxGridDBColumn
+        Tag = 2
+        Caption = #25240#31639#31995#25968
+        DataBinding.FieldName = 'QtyToFZQtyXS'
+        PropertiesClassName = 'TcxTextEditProperties'
+        Properties.OnEditValueChanged = v1QtyToFZQtyXSPropertiesEditValueChanged
+        HeaderAlignmentHorz = taCenter
+        Width = 73
+      end
+      object v1FZQty: TcxGridDBColumn
+        Tag = 2
+        Caption = #36741#21161#25968#37327
+        DataBinding.FieldName = 'FZQty'
+        HeaderAlignmentHorz = taCenter
+        Width = 68
+      end
+      object v1Column3: TcxGridDBColumn
+        Tag = 2
+        Caption = #21333#20215
+        DataBinding.FieldName = 'Price'
+        PropertiesClassName = 'TcxTextEditProperties'
+        Properties.OnEditValueChanged = v2Column6PropertiesEditValueChanged
+        HeaderAlignmentHorz = taCenter
+        Width = 77
+      end
+      object v1Column1: TcxGridDBColumn
+        Tag = 2
+        Caption = #37329#39069
+        DataBinding.FieldName = 'Money'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 87
+      end
+      object v1Column12: TcxGridDBColumn
+        Tag = 2
+        Caption = #22791#27880
+        DataBinding.FieldName = 'Note'
+        Width = 132
+      end
+    end
+    object cxGrid2Level1: TcxGridLevel
+      GridView = Tv1
+    end
+  end
+  object ToolBar1: TToolBar
+    Left = 0
+    Top = 0
+    Width = 1199
+    Height = 33
+    ButtonHeight = 30
+    ButtonWidth = 59
+    Caption = 'ToolBar1'
+    Color = clSkyBlue
+    Flat = True
+    Font.Charset = GB2312_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -12
+    Font.Name = #23435#20307
+    Font.Style = []
+    Images = DataLink_DDMD.ThreeImgList
+    List = True
+    ParentColor = False
+    ParentFont = False
+    ShowCaptions = True
+    TabOrder = 1
+    object TBSave: TToolButton
+      Left = 0
+      Top = 0
+      AutoSize = True
+      Caption = #20445#23384
+      ImageIndex = 15
+      OnClick = TBSaveClick
+    end
+    object TBAdd: TToolButton
+      Left = 63
+      Top = 0
+      AutoSize = True
+      Caption = #26032#22686
+      ImageIndex = 12
+      OnClick = TBAddClick
+    end
+    object TBDel: TToolButton
+      Left = 126
+      Top = 0
+      AutoSize = True
+      Caption = #21024#38500
+      ImageIndex = 13
+      OnClick = TBDelClick
+    end
+    object TBClose: TToolButton
+      Left = 189
+      Top = 0
+      AutoSize = True
+      Caption = #20851#38381
+      ImageIndex = 21
+      OnClick = TBCloseClick
+    end
+  end
+  object DataSource3: TDataSource
+    DataSet = CDS_Sub
+    Left = 504
+    Top = 136
+  end
+  object CDS_Sub: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 472
+    Top = 136
+  end
+  object ADOQueryCmd: TADOQuery
+    Connection = DataLink_DDMD.ADOLink
+    Parameters = <>
+    Left = 344
+    Top = 136
+  end
+  object ADOQueryMain: TADOQuery
+    Connection = DataLink_DDMD.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 376
+    Top = 136
+  end
+  object ADOQueryTemp: TADOQuery
+    Connection = DataLink_DDMD.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 408
+    Top = 136
+  end
+  object cxGridPopupMenu2: TcxGridPopupMenu
+    Grid = cxGrid2
+    PopupMenus = <>
+    Left = 440
+    Top = 136
+  end
+end

坯布码单待检(PBMDDJ.dll)/U_BPJGDZZSInPut.pas

@@ -0,0 +1,458 @@
+unit U_BPJGDZZSInPut;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData,
+  cxDataStorage, cxEdit, DB, cxDBData, cxCalendar, cxDropDownEdit,
+  ComCtrls, ToolWin, cxGridLevel, cxGridCustomTableView, cxGridTableView,
+  cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid,
+  cxGridCustomPopupMenu, cxGridPopupMenu, ADODB, DBClient, cxButtonEdit,
+  cxTextEdit;
+
+type
+  TfrmBPJGDZZSInPut = class(TForm)
+    cxGrid2: TcxGrid;
+    Tv1: TcxGridDBTableView;
+    v1Column2: TcxGridDBColumn;
+    v2Column1: TcxGridDBColumn;
+    v1Column9: TcxGridDBColumn;
+    v2Column6: TcxGridDBColumn;
+    cxGrid2Level1: TcxGridLevel;
+    ToolBar1: TToolBar;
+    TBAdd: TToolButton;
+    TBDel: TToolButton;
+    TBSave: TToolButton;
+    TBClose: TToolButton;
+    DataSource3: TDataSource;
+    CDS_Sub: TClientDataSet;
+    ADOQueryCmd: TADOQuery;
+    ADOQueryMain: TADOQuery;
+    ADOQueryTemp: TADOQuery;
+    cxGridPopupMenu2: TcxGridPopupMenu;
+    v1Column12: TcxGridDBColumn;
+    v1Column14: TcxGridDBColumn;
+    v1Column3: TcxGridDBColumn;
+    v1Column1: TcxGridDBColumn;
+    v1Column4: TcxGridDBColumn;
+    v1Column6: TcxGridDBColumn;
+    v1Column5: TcxGridDBColumn;
+    v1QtyToFZQtyXS: TcxGridDBColumn;
+    v1FZQty: TcxGridDBColumn;
+    procedure FormClose(Sender: TObject; var Action: TCloseAction);
+    procedure TBAddClick(Sender: TObject);
+    procedure TBCloseClick(Sender: TObject);
+    procedure FormShow(Sender: TObject);
+    procedure TBDelClick(Sender: TObject);
+    procedure TBSaveClick(Sender: TObject);
+    procedure v1Column14PropertiesButtonClick(Sender: TObject;
+      AButtonIndex: Integer);
+    procedure v2Column1PropertiesButtonClick(Sender: TObject;
+      AButtonIndex: Integer);
+    procedure v2Column6PropertiesEditValueChanged(Sender: TObject);
+    procedure v1(Sender: TObject);
+    procedure Tv1MouseDown(Sender: TObject; Button: TMouseButton;
+      Shift: TShiftState; X, Y: Integer);
+    procedure v1QtyToFZQtyXSPropertiesEditValueChanged(Sender: TObject);
+  private
+    { Private declarations }
+    function SaveCKData():Boolean;
+  public
+    { Public declarations }
+    FBCId:String;
+  end;
+
+var
+  frmBPJGDZZSInPut: TfrmBPJGDZZSInPut;
+
+implementation
+uses
+  U_DataLink,U_RTFun,U_ClothContractListHZCX,U_ZDYHelp, U_GYSSelList,U_ContractCGJGSXSelList;
+
+{$R *.dfm}
+
+procedure TfrmBPJGDZZSInPut.FormClose(Sender: TObject;
+  var Action: TCloseAction);
+begin
+  Action:=caFree;
+end;
+
+procedure TfrmBPJGDZZSInPut.TBAddClick(Sender: TObject);
+begin
+  with CDS_Sub do
+  begin
+    Append;
+    FieldByName('DZDate').Value:=Trim(FormatDateTime('yyyy-MM-dd',Now));
+    Post;
+  end;
+end;
+function TfrmBPJGDZZSInPut.SaveCKData():Boolean;
+var
+  FCRID,Maxno,FDZID:string;
+begin
+  try
+    ADOQueryCmd.Connection.BeginTrans;
+    CDS_Sub.DisableControls;
+    with CDS_Sub do
+    begin
+      First;
+      while not eof do
+      begin
+        if Trim(CDS_Sub.fieldbyname('DZID').AsString)='' then
+        begin
+          if GetLSNo(ADOQueryCmd,Maxno,'BJ','JYOrder_Main_MD_DuiZhang',3,1)=False then
+          begin
+            Result:=False;
+            ADOQueryCmd.Connection.RollbackTrans;
+            Application.MessageBox('取纱线对账编号失败!','提示',0);
+            Exit;
+          end;
+        end else
+        begin
+          Maxno:=Trim(CDS_Sub.fieldbyname('DZID').AsString);
+        end;
+        with ADOQueryCmd do
+        begin
+          Close;
+          sql.Clear;
+          sql.Add('select * from JYOrder_Main_MD_DuiZhang where DZID='''+Trim(Maxno)+'''');
+          Open;
+        end;
+        with ADOQueryCmd do
+        begin
+          with ADOQueryTemp do
+          begin
+            Close;
+            sql.Clear;
+            sql.Add('select * from JYOrder_Main_MD_DuiZhang');
+            sql.Add(' where DZID='''+Trim(CDS_Sub.fieldbyname('DZID').AsString)+'''');
+            Open;
+          end;
+          FDZID:=Trim(ADOQueryTemp.fieldbyname('DZID').AsString);
+          if Trim(FDZID)='' then
+          begin
+            Append;
+            FieldByName('Filler').Value:=Trim(DName);
+          end else
+          begin
+            Edit;
+            FieldByName('Editer').Value:=Trim(DName);
+            FieldByName('EditTime').Value:=SGetServerDate(ADOQueryTemp);
+          end;
+          FieldByName('DZID').Value:=Trim(Maxno);
+          FieldByName('DZType').Value:='布匹加工';
+          FieldByName('Status').Value:='待对账';
+          FieldByName('ZSType').Value:='有折算';
+          FieldByName('FactoryNo').Value:=Trim(CDS_Sub.fieldbyname('FactoryNo').AsString);
+          RTSetSaveDataCDS(ADOQueryCmd,Tv1,CDS_Sub,'JYOrder_Main_MD_DuiZhang',2);
+          Post;
+        end;
+        Edit;
+        FieldByName('DZID').Value:=Trim(Maxno);
+        Post;
+        Next;
+      end;
+    end;
+    CDS_Sub.EnableControls;
+    ADOQueryCmd.Connection.CommitTrans;
+    Result:=True;
+  except
+    Result:=False;
+    ADOQueryCmd.Connection.RollbackTrans;
+    Application.MessageBox('保存异常!','提示',0);
+  end;
+
+end;
+procedure TfrmBPJGDZZSInPut.TBCloseClick(Sender: TObject);
+begin
+  WriteCxGrid('布匹加工对账录入',Tv1,'财务对账');
+  Close;
+end;
+
+procedure TfrmBPJGDZZSInPut.FormShow(Sender: TObject);
+begin
+  ReadCxGrid('布匹加工对账录入',Tv1,'财务对账');
+  with ADOQueryTemp do
+  begin
+    Close;
+    sql.Clear;
+    sql.Add(' select A.* ');
+    sql.Add(' from JYOrder_Main_MD_DuiZhang A');
+    sql.Add(' where DZID='''+Trim(FBCId)+'''');
+    Open;
+  end;
+  SCreateCDS20(ADOQueryTemp,CDS_Sub);
+  SInitCDSData20(ADOQueryTemp,CDS_Sub);
+end;
+
+procedure TfrmBPJGDZZSInPut.TBDelClick(Sender: TObject);
+begin
+  if CDS_Sub.IsEmpty then Exit;
+  if Trim(CDS_Sub.fieldbyname('DZID').AsString)<>'' then
+  begin
+    if Application.MessageBox('确定要删除数据吗？','提示',32+4)<>IDYES then Exit;
+    with ADOQueryTemp do
+    begin
+      Close;
+      sql.Clear;
+      sql.Add('select * from JYOrder_Main_MD_DuiZhang where DZID='''+Trim(CDS_Sub.fieldbyname('DZID').AsString)+'''');
+      sql.Add(' and isnull(Status,'''')=''已入账'' ');
+      Open;
+    end;
+    if ADOQueryTemp.IsEmpty=False then
+    begin
+      Application.MessageBox('已入账，不能删除!','提示',0);
+      Exit;
+    end;
+    try
+      ADOQueryCmd.Connection.BeginTrans;
+      with ADOQueryCmd do
+      begin
+        Close;
+        sql.Clear;
+        sql.Add(' delete JYOrder_Main_MD_DuiZhang where DZID='''+Trim(CDS_Sub.fieldbyname('DZID').AsString)+'''');
+        ExecSQL;
+      end;
+      ADOQueryCmd.Connection.CommitTrans;
+      CDS_Sub.Delete;
+    except
+      ADOQueryCmd.Connection.RollbackTrans;
+      Application.MessageBox('删除异常!','提示',0);
+    end;
+  end else
+  begin
+    CDS_Sub.Delete;
+  end;
+
+end;
+
+procedure TfrmBPJGDZZSInPut.TBSaveClick(Sender: TObject);
+begin
+  if CDS_Sub.IsEmpty then Exit;
+  if CDS_Sub.Locate('DZDate',null,[])=True then
+  begin
+    Application.MessageBox('日期不能为空!','提示',0);
+    Exit;
+  end;
+  if CDS_Sub.Locate('MPRTCodeName',null,[])=True then
+  begin
+    Application.MessageBox('品名不能为空!','提示',0);
+    Exit;
+  end;
+  if CDS_Sub.Locate('FactoryName',null,[])=True then
+  begin
+    Application.MessageBox('供应商不能为空!','提示',0);
+    Exit;
+  end;
+  if CDS_Sub.Locate('QtyUnit',null,[])=True then
+  begin
+    Application.MessageBox('数量单位不能为空!','提示',0);
+    Exit;
+  end;
+  if CDS_Sub.Locate('Qty',null,[])=True then
+  begin
+    Application.MessageBox('数量不能为空!','提示',0);
+    Exit;
+  end;
+  if CDS_Sub.Locate('FZQtyUnit',null,[])=True then
+  begin
+    Application.MessageBox('辅助单位不能为空!','提示',0);
+    Exit;
+  end;
+  if CDS_Sub.Locate('QtyToFZQtyXS',null,[])=True then
+  begin
+    Application.MessageBox('折算系数不能为空!','提示',0);
+    Exit;
+  end;
+  if CDS_Sub.Locate('FZQty',null,[])=True then
+  begin
+    Application.MessageBox('辅助数量不能为空!','提示',0);
+    Exit;
+  end;
+  if CDS_Sub.Locate('Price',null,[])=True then
+  begin
+    Application.MessageBox('单价不能为空!','提示',0);
+    Exit;
+  end;
+  ToolBar1.SetFocus;
+  if SaveCKData() then
+  begin
+    Application.MessageBox('保存成功!','提示',0);
+    //ModalResult:=1;
+    Exit;
+  end;
+end;
+
+procedure TfrmBPJGDZZSInPut.v1Column14PropertiesButtonClick(Sender: TObject;
+  AButtonIndex: Integer);
+begin
+  try
+    frmGYSSelList:=TfrmGYSSelList.Create(Application);
+    with frmGYSSelList do
+    begin
+      if ShowModal=1 then
+      begin
+        with Self.CDS_Sub do
+        begin
+          edit;
+          FieldByName('FactoryNo').Value:=Trim(frmGYSSelList.Order_Main.fieldbyname('ZKID').AsString) ;
+          FieldByName('FactoryName').Value:=Trim(frmGYSSelList.Order_Main.fieldbyname('KHName').AsString);
+          //Post;
+        end;
+      end;
+    end;
+  finally
+    frmGYSSelList.Free;
+  end;
+end;
+
+procedure TfrmBPJGDZZSInPut.v2Column1PropertiesButtonClick(Sender: TObject;
+  AButtonIndex: Integer);
+begin
+  try
+    frmZDYHelp:=TfrmZDYHelp.Create(Application);
+    with frmZDYHelp do
+    begin
+      flag:='BPJGName';
+      flagname:='加工名称';
+      if ShowModal=1 then
+      begin
+        with Self.CDS_Sub do
+        begin
+          Edit;
+          FieldByName('MPRTCodeName').Value:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString);
+        end;
+      end;
+    end;
+  finally
+    frmZDYHelp.Free;
+  end;
+end;
+
+procedure TfrmBPJGDZZSInPut.v2Column6PropertiesEditValueChanged(
+  Sender: TObject);
+var
+  mvalue,FName,FQty,FPrice:String;
+begin
+  FName:=Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName;
+  mvalue:=TcxTextEdit(Sender).EditingText;
+  if Trim(mvalue)='' then mvalue:='0';
+  with CDS_Sub do
+  begin
+    edit;
+    FieldByName(FName).Value:=mvalue;
+    //Post;
+  end;
+  FQty:=CDS_Sub.fieldbyname('Qty').AsString;
+  FPrice:=CDS_Sub.fieldbyname('Price').AsString;
+  if Trim(FQty)='' then FQty:='0';
+  if Trim(FPrice)='' then FPrice:='0';
+  with CDS_Sub do
+  begin
+    Edit;
+    FieldByName('Money').Value:=StrToFloat(FQty)*StrToFloat(FPrice);
+    //Post;
+  end;
+  if Trim(FName)='Qty' then
+  begin
+    if Trim(CDS_Sub.fieldbyname('QtyToFZQtyXS').AsString)<>'' then
+    begin
+      with CDS_Sub do
+      begin
+        Edit;
+        FieldByName('FZQty').Value:=StrToFloat(FQty)*CDS_Sub.fieldbyname('QtyToFZQtyXS').Value;
+      end;
+    end;
+  end;
+end;
+
+procedure TfrmBPJGDZZSInPut.v1(
+  Sender: TObject);
+var
+  mvalue:String;
+begin
+  mvalue:=TcxComboBox(Sender).EditingText;
+  with CDS_Sub do
+  begin
+    edit;
+    FieldByName('FZQtyUnit').Value:=Trim(mvalue);
+  end;
+  if Trim(mvalue)='' then
+  begin
+    with CDS_Sub do
+    begin
+      Edit;
+      FieldByName('QtyToFZQtyXS').Value:=Null;
+      FieldByName('FZQty').Value:=Null;
+    end;
+  end;
+end;
+
+procedure TfrmBPJGDZZSInPut.Tv1MouseDown(Sender: TObject;
+  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
+var
+  FName:string;
+begin
+  FName:=Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName;
+  if Trim(FName)='QtyToFZQtyXS' then
+  begin
+    if Trim(CDS_Sub.fieldbyname('QtyUnit').AsString)='' then
+    begin
+      v1QtyToFZQtyXS.Options.Editing:=False;
+      Application.MessageBox('数量单位不能为空!','提示',0);
+      exit;
+    end;
+    if Trim(CDS_Sub.fieldbyname('FZQtyUnit').AsString)='' then
+    begin
+      v1QtyToFZQtyXS.Options.Editing:=False;
+      Application.MessageBox('辅助单位不能为空!','提示',0);
+      exit;
+    end;
+    v1QtyToFZQtyXS.Options.Editing:=True;
+  end;
+  if Trim(FName)='FZQty' then
+  begin
+    if Trim(CDS_Sub.fieldbyname('FZQtyUnit').AsString)='' then
+    begin
+      v1FZQty.Options.Editing:=False;
+      Application.MessageBox('辅助单位不能为空!','提示',0);
+      exit;
+    end;
+    v1FZQty.Options.Editing:=True;
+  end;
+end;
+
+procedure TfrmBPJGDZZSInPut.v1QtyToFZQtyXSPropertiesEditValueChanged(
+  Sender: TObject);
+var
+  mvalue,FName,FQty:String;
+begin
+  mvalue:=TcxTextEdit(Sender).EditingText;
+  //if Trim(mvalue)='' then mvalue:='0';
+  with CDS_Sub do
+  begin
+    edit;
+    FieldByName('QtyToFZQtyXS').Value:=mvalue;
+    //Post;
+  end;
+  FQty:=CDS_Sub.fieldbyname('Qty').AsString;
+  if Trim(FQty)='' then FQty:='0';
+  if Trim(CDS_Sub.fieldbyname('QtyToFZQtyXS').AsString)<>'' then
+  begin
+    with CDS_Sub do
+    begin
+      Edit;
+      FieldByName('FZQty').Value:=StrToFloat(FQty)*CDS_Sub.fieldbyname('QtyToFZQtyXS').Value;
+    end;
+  end else
+  begin
+    with CDS_Sub do
+    begin
+      Edit;
+      FieldByName('FZQty').Value:=Null;
+    end;
+  end;
+end;
+
+end.

坯布码单待检(PBMDDJ.dll)/U_BPJGDZZSList.dfm

@@ -0,0 +1,478 @@
+object frmBPJGDZZSList: TfrmBPJGDZZSList
+  Left = 171
+  Top = 128
+  Width = 1130
+  Height = 511
+  Caption = #24067#21305#21152#24037#23545#36134#21015#34920'('#25240#31639')'
+  Color = clBtnFace
+  Font.Charset = GB2312_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -12
+  Font.Name = #23435#20307
+  Font.Style = []
+  OldCreateOrder = False
+  OnClose = FormClose
+  OnCreate = FormCreate
+  OnDestroy = FormDestroy
+  OnShow = FormShow
+  PixelsPerInch = 96
+  TextHeight = 12
+  object ToolBar1: TToolBar
+    Left = 0
+    Top = 0
+    Width = 1114
+    Height = 33
+    ButtonHeight = 30
+    ButtonWidth = 83
+    Caption = 'ToolBar1'
+    Color = clSkyBlue
+    Flat = True
+    Font.Charset = GB2312_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -12
+    Font.Name = #23435#20307
+    Font.Style = []
+    Images = DataLink_DDMD.ThreeImgList
+    List = True
+    ParentColor = False
+    ParentFont = False
+    ShowCaptions = True
+    TabOrder = 0
+    object TBRafresh: TToolButton
+      Left = 0
+      Top = 0
+      AutoSize = True
+      Caption = #21047#26032
+      ImageIndex = 0
+      OnClick = TBRafreshClick
+    end
+    object TBFind: TToolButton
+      Left = 63
+      Top = 0
+      AutoSize = True
+      Caption = #36807#28388
+      ImageIndex = 20
+      OnClick = TBFindClick
+    end
+    object ToolButton1: TToolButton
+      Left = 126
+      Top = 0
+      AutoSize = True
+      Caption = #26032#22686
+      ImageIndex = 1
+      OnClick = ToolButton1Click
+    end
+    object ToolButton2: TToolButton
+      Left = 189
+      Top = 0
+      AutoSize = True
+      Caption = #20462#25913
+      ImageIndex = 11
+      OnClick = ToolButton2Click
+    end
+    object TBRKCX: TToolButton
+      Left = 252
+      Top = 0
+      AutoSize = True
+      Caption = #21024#38500
+      ImageIndex = 3
+      OnClick = TBRKCXClick
+    end
+    object ToolButton3: TToolButton
+      Left = 315
+      Top = 0
+      AutoSize = True
+      Caption = #23545#36134
+      ImageIndex = 77
+      OnClick = ToolButton3Click
+    end
+    object ToolButton4: TToolButton
+      Left = 378
+      Top = 0
+      AutoSize = True
+      Caption = #23545#36134#25764#38144
+      ImageIndex = 52
+      OnClick = ToolButton4Click
+    end
+    object TBExport: TToolButton
+      Left = 465
+      Top = 0
+      AutoSize = True
+      Caption = #23548#20986
+      ImageIndex = 68
+      OnClick = TBExportClick
+    end
+    object TBClose: TToolButton
+      Left = 528
+      Top = 0
+      AutoSize = True
+      Caption = #20851#38381
+      ImageIndex = 21
+      OnClick = TBCloseClick
+    end
+  end
+  object Panel1: TPanel
+    Left = 0
+    Top = 33
+    Width = 1114
+    Height = 38
+    Align = alTop
+    BevelInner = bvRaised
+    BevelOuter = bvLowered
+    Color = clSkyBlue
+    TabOrder = 1
+    object Label1: TLabel
+      Left = 28
+      Top = 12
+      Width = 48
+      Height = 12
+      Caption = #26597#35810#26102#38388
+    end
+    object Label2: TLabel
+      Left = 168
+      Top = 12
+      Width = 12
+      Height = 12
+      Caption = #33267
+    end
+    object Label3: TLabel
+      Left = 438
+      Top = 12
+      Width = 24
+      Height = 12
+      Caption = #21697#21517
+    end
+    object Label4: TLabel
+      Left = 579
+      Top = 12
+      Width = 36
+      Height = 12
+      Caption = #20379#24212#21830
+    end
+    object Label6: TLabel
+      Left = 286
+      Top = 12
+      Width = 36
+      Height = 12
+      Caption = #35746#21333#21495
+    end
+    object BegDate: TDateTimePicker
+      Left = 77
+      Top = 9
+      Width = 87
+      Height = 20
+      Date = 40768.458268587970000000
+      Time = 40768.458268587970000000
+      TabOrder = 0
+    end
+    object EndDate: TDateTimePicker
+      Left = 181
+      Top = 9
+      Width = 87
+      Height = 20
+      Date = 40768.458268587970000000
+      Time = 40768.458268587970000000
+      TabOrder = 1
+    end
+    object MPRTCodeName: TEdit
+      Tag = 2
+      Left = 465
+      Top = 9
+      Width = 100
+      Height = 20
+      TabOrder = 2
+      OnChange = TBFindClick
+    end
+    object FactoryName: TEdit
+      Tag = 2
+      Left = 616
+      Top = 9
+      Width = 129
+      Height = 20
+      TabOrder = 3
+      OnChange = FactoryNameChange
+    end
+    object OrderNo: TEdit
+      Tag = 2
+      Left = 324
+      Top = 9
+      Width = 100
+      Height = 20
+      TabOrder = 4
+      OnChange = TBFindClick
+    end
+  end
+  object cxGrid1: TcxGrid
+    Left = 0
+    Top = 92
+    Width = 1114
+    Height = 380
+    Align = alClient
+    PopupMenu = PopupMenu1
+    TabOrder = 2
+    object Tv1: TcxGridDBTableView
+      NavigatorButtons.ConfirmDelete = False
+      DataController.DataSource = DataSource1
+      DataController.Summary.DefaultGroupSummaryItems = <
+        item
+          Kind = skSum
+          Position = spFooter
+          Column = v1Column9
+        end
+        item
+          Kind = skSum
+          Position = spFooter
+          Column = v2Column6
+        end
+        item
+          Kind = skSum
+          Position = spFooter
+          Column = v1Column1
+        end>
+      DataController.Summary.FooterSummaryItems = <
+        item
+          Kind = skCount
+        end
+        item
+          Kind = skSum
+        end
+        item
+          Kind = skSum
+          Column = v2Column6
+        end
+        item
+          Kind = skSum
+        end
+        item
+          Kind = skSum
+          Column = v1Column9
+        end
+        item
+          Kind = skSum
+          Column = v1Column1
+        end
+        item
+          Kind = skSum
+          Column = v1Column6
+        end>
+      DataController.Summary.SummaryGroups = <>
+      OptionsCustomize.ColumnFiltering = False
+      OptionsView.Footer = True
+      OptionsView.GroupByBox = False
+      OptionsView.GroupFooters = gfAlwaysVisible
+      Styles.Inactive = DataLink_DDMD.SHuangSe
+      Styles.IncSearch = DataLink_DDMD.SHuangSe
+      Styles.Selection = DataLink_DDMD.SHuangSe
+      Styles.Header = DataLink_DDMD.Default
+      object v1Column4: TcxGridDBColumn
+        Caption = #36873#25321
+        DataBinding.FieldName = 'SSel'
+        PropertiesClassName = 'TcxCheckBoxProperties'
+        Properties.ImmediatePost = True
+        Properties.NullStyle = nssUnchecked
+        HeaderAlignmentHorz = taCenter
+        Width = 48
+      end
+      object v1Column2: TcxGridDBColumn
+        Tag = 2
+        Caption = #26085#26399
+        DataBinding.FieldName = 'DZDate'
+        PropertiesClassName = 'TcxDateEditProperties'
+        Properties.SaveTime = False
+        Properties.ShowTime = False
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 100
+      end
+      object v1Column7: TcxGridDBColumn
+        Caption = #35746#21333#21495
+        DataBinding.FieldName = 'OrderNo'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 74
+      end
+      object v2Column1: TcxGridDBColumn
+        Tag = 2
+        Caption = #21697#21517
+        DataBinding.FieldName = 'MPRTCodeName'
+        PropertiesClassName = 'TcxButtonEditProperties'
+        Properties.Buttons = <
+          item
+            Default = True
+            Kind = bkEllipsis
+          end>
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 112
+      end
+      object v1Column14: TcxGridDBColumn
+        Tag = 2
+        Caption = #20379#24212#21830
+        DataBinding.FieldName = 'FactoryName'
+        PropertiesClassName = 'TcxButtonEditProperties'
+        Properties.Alignment.Horz = taLeftJustify
+        Properties.Buttons = <
+          item
+            Default = True
+            Kind = bkEllipsis
+          end>
+        Properties.ReadOnly = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 149
+      end
+      object v1Column9: TcxGridDBColumn
+        Tag = 2
+        Caption = #21305#25968
+        DataBinding.FieldName = 'PS'
+        PropertiesClassName = 'TcxTextEditProperties'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 98
+      end
+      object v2Column6: TcxGridDBColumn
+        Tag = 2
+        Caption = #25968#37327
+        DataBinding.FieldName = 'Qty'
+        PropertiesClassName = 'TcxTextEditProperties'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 89
+      end
+      object v1Column8: TcxGridDBColumn
+        Caption = #25968#37327#21333#20301
+        DataBinding.FieldName = 'QtyUnit'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 66
+      end
+      object v1Column11: TcxGridDBColumn
+        Caption = #25240#31639#31995#25968
+        DataBinding.FieldName = 'QtyToFZQtyXS'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 65
+      end
+      object v1Column6: TcxGridDBColumn
+        Caption = #36741#21161#25968#37327
+        DataBinding.FieldName = 'FZQty'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 73
+      end
+      object v1Column10: TcxGridDBColumn
+        Caption = #36741#21161#21333#20301
+        DataBinding.FieldName = 'FZQtyUnit'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 67
+      end
+      object v1Column3: TcxGridDBColumn
+        Tag = 2
+        Caption = #21333#20215
+        DataBinding.FieldName = 'Price'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 77
+      end
+      object v1Column1: TcxGridDBColumn
+        Tag = 2
+        Caption = #37329#39069
+        DataBinding.FieldName = 'Money'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 87
+      end
+      object v1Column5: TcxGridDBColumn
+        Caption = #29366#24577
+        DataBinding.FieldName = 'Status'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 71
+      end
+      object v1Column12: TcxGridDBColumn
+        Tag = 2
+        Caption = #22791#27880
+        DataBinding.FieldName = 'Note'
+        Options.Editing = False
+        Width = 132
+      end
+    end
+    object cxGrid1Level1: TcxGridLevel
+      GridView = Tv1
+    end
+  end
+  object cxTabControl1: TcxTabControl
+    Left = 0
+    Top = 71
+    Width = 1114
+    Height = 21
+    Align = alTop
+    Font.Charset = GB2312_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -12
+    Font.Name = #23435#20307
+    Font.Style = [fsBold]
+    ParentFont = False
+    Style = 8
+    TabIndex = 0
+    TabOrder = 3
+    Tabs.Strings = (
+      #24453#23545#36134
+      #24050#23545#36134
+      #20840#37096)
+    OnChange = cxTabControl1Change
+    ClientRectBottom = 23
+    ClientRectRight = 1114
+    ClientRectTop = 23
+  end
+  object ADOQueryCmd: TADOQuery
+    Connection = DataLink_DDMD.ADOLink
+    Parameters = <>
+    Left = 920
+    Top = 184
+  end
+  object ADOQueryMain: TADOQuery
+    Connection = DataLink_DDMD.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 888
+    Top = 184
+  end
+  object ADOQueryTemp: TADOQuery
+    Connection = DataLink_DDMD.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 952
+    Top = 184
+  end
+  object DataSource1: TDataSource
+    DataSet = CDS_Main
+    Left = 920
+    Top = 152
+  end
+  object cxGridPopupMenu1: TcxGridPopupMenu
+    Grid = cxGrid1
+    PopupMenus = <>
+    Left = 888
+    Top = 152
+  end
+  object CDS_Main: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 952
+    Top = 152
+  end
+  object PopupMenu1: TPopupMenu
+    Left = 888
+    Top = 224
+    object N1: TMenuItem
+      Caption = #20840#36873
+      OnClick = N1Click
+    end
+    object N2: TMenuItem
+      Caption = #20840#24323
+      OnClick = N2Click
+    end
+  end
+end

坯布码单待检(PBMDDJ.dll)/U_BPJGDZZSList.pas

@@ -0,0 +1,591 @@
+unit U_BPJGDZZSList;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData,
+  cxDataStorage, cxEdit, DB, cxDBData, cxGridCustomTableView,
+  cxGridTableView, cxGridBandedTableView, cxGridDBBandedTableView,
+  cxGridLevel, cxClasses, cxControls, cxGridCustomView, cxGridDBTableView,
+  cxGrid, StdCtrls, ComCtrls, ExtCtrls, ToolWin, cxGridCustomPopupMenu,
+  cxGridPopupMenu, ADODB, DBClient, cxDropDownEdit, cxCheckBox, RM_Common,
+  RM_Class, RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, Menus,
+  cxCalendar, cxButtonEdit, cxTextEdit, cxPC;
+
+type
+  TfrmBPJGDZZSList = class(TForm)
+    ToolBar1: TToolBar;
+    TBRafresh: TToolButton;
+    TBFind: TToolButton;
+    TBExport: TToolButton;
+    TBClose: TToolButton;
+    Panel1: TPanel;
+    ADOQueryCmd: TADOQuery;
+    ADOQueryMain: TADOQuery;
+    ADOQueryTemp: TADOQuery;
+    DataSource1: TDataSource;
+    cxGridPopupMenu1: TcxGridPopupMenu;
+    Label1: TLabel;
+    Label2: TLabel;
+    BegDate: TDateTimePicker;
+    EndDate: TDateTimePicker;
+    CDS_Main: TClientDataSet;
+    TBRKCX: TToolButton;
+    PopupMenu1: TPopupMenu;
+    N1: TMenuItem;
+    N2: TMenuItem;
+    ToolButton1: TToolButton;
+    ToolButton2: TToolButton;
+    Label3: TLabel;
+    Label4: TLabel;
+    MPRTCodeName: TEdit;
+    FactoryName: TEdit;
+    cxGrid1: TcxGrid;
+    Tv1: TcxGridDBTableView;
+    v1Column2: TcxGridDBColumn;
+    v2Column1: TcxGridDBColumn;
+    v1Column14: TcxGridDBColumn;
+    v1Column9: TcxGridDBColumn;
+    v2Column6: TcxGridDBColumn;
+    v1Column3: TcxGridDBColumn;
+    v1Column1: TcxGridDBColumn;
+    v1Column12: TcxGridDBColumn;
+    cxGrid1Level1: TcxGridLevel;
+    ToolButton3: TToolButton;
+    ToolButton4: TToolButton;
+    cxTabControl1: TcxTabControl;
+    v1Column4: TcxGridDBColumn;
+    v1Column5: TcxGridDBColumn;
+    Label6: TLabel;
+    OrderNo: TEdit;
+    v1Column7: TcxGridDBColumn;
+    v1Column8: TcxGridDBColumn;
+    v1Column6: TcxGridDBColumn;
+    v1Column10: TcxGridDBColumn;
+    v1Column11: TcxGridDBColumn;
+    procedure FormDestroy(Sender: TObject);
+    procedure FormClose(Sender: TObject; var Action: TCloseAction);
+    procedure FormCreate(Sender: TObject);
+    procedure TBRafreshClick(Sender: TObject);
+    procedure ConNoMChange(Sender: TObject);
+    procedure TBCloseClick(Sender: TObject);
+    procedure FormShow(Sender: TObject);
+    procedure TBExportClick(Sender: TObject);
+    procedure TBFindClick(Sender: TObject);
+    procedure N1Click(Sender: TObject);
+    procedure N2Click(Sender: TObject);
+    procedure TBRKCXClick(Sender: TObject);
+    procedure ToolButton1Click(Sender: TObject);
+    procedure ToolButton2Click(Sender: TObject);
+    procedure FactoryNameChange(Sender: TObject);
+    procedure cxTabControl1Change(Sender: TObject);
+    procedure ToolButton3Click(Sender: TObject);
+    procedure ToolButton4Click(Sender: TObject);
+  private
+    procedure InitGrid();
+    function  YFHZData(FDZID:string):Boolean;
+    function DelYFHZData():Boolean;
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+var
+  frmBPJGDZZSList: TfrmBPJGDZZSList;
+
+implementation
+uses
+  U_DataLink,U_RTFun,U_BPJGDZZSInPut;
+
+{$R *.dfm}
+
+procedure TfrmBPJGDZZSList.FormDestroy(Sender: TObject);
+begin
+  frmBPJGDZZSList:=nil;
+end;
+
+procedure TfrmBPJGDZZSList.FormClose(Sender: TObject;
+  var Action: TCloseAction);
+begin
+  Action:=caFree;
+end;
+
+procedure TfrmBPJGDZZSList.FormCreate(Sender: TObject);
+begin
+  //cxGrid1.Align:=alClient;
+  EndDate.DateTime:=SGetServerDate10(ADOQueryTemp);
+  BegDate.DateTime:=EndDate.DateTime-15;
+end;
+
+procedure TfrmBPJGDZZSList.InitGrid();
+begin
+  try
+    ADOQueryMain.DisableControls;
+    with ADOQueryMain do
+    begin
+      Filtered:=False;
+      Close;
+      sql.Clear;
+      sql.Add(' select A.* ');
+      sql.Add(' from JYOrder_Main_MD_DuiZhang A');
+      sql.Add(' where isnull(DZType,'''')=''布匹加工'' and isnull(ZSType,'''')=''有折算'' ');
+      if cxTabControl1.TabIndex=0 then
+      begin
+        sql.Add(' and isnull(Status,'''')=''待对账'' ');
+      end else
+      begin
+        sql.Add(' and isnull(Status,'''')=''已对账'' ');
+      end;
+      if cxTabControl1.TabIndex<>0 then
+      begin
+        sql.add(' and A.DZDate>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+'''');
+        sql.Add(' and A.DZDate<='''+Trim(FormatDateTime('yyyy-MM-dd',enddate.DateTime+1))+'''');
+      end;
+      if Trim(FactoryName.Text)<>'' then
+      begin
+        SQL.Add(' and isnull(A.FactoryName,'''') like '''+'%'+Trim(FactoryName.Text)+'%'+'''');
+      end;
+      if Trim(MPRTCodeName.Text)<>'' then
+      begin
+        SQL.Add(' and isnull(A.MPRTCodeName,'''') like '''+'%'+Trim(MPRTCodeName.Text)+'%'+'''');
+      end;
+      if Trim(OrderNo.Text)<>'' then
+      begin
+        SQL.Add(' and isnull(A.OrderNo,'''') like '''+'%'+Trim(OrderNo.Text)+'%'+'''');
+      end;
+      Open;
+      //ShowMessage(SQL.Text);
+    end;
+    SCreateCDS20(ADOQueryMain,CDS_Main);
+    SInitCDSData20(ADOQueryMain,CDS_Main);
+  finally
+    ADOQueryMain.EnableControls;
+  end;
+end;
+
+procedure TfrmBPJGDZZSList.TBRafreshClick(Sender: TObject);
+begin
+  BegDate.SetFocus;
+  InitGrid();
+end;
+
+procedure TfrmBPJGDZZSList.ConNoMChange(Sender: TObject);
+begin
+  if ADOQueryMain.Active then
+  begin
+    SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2));
+  end;
+end;
+
+procedure TfrmBPJGDZZSList.TBCloseClick(Sender: TObject);
+begin
+  WriteCxGrid('布匹加工对账列表',Tv1,'财务对账');
+  Close;
+end;
+
+procedure TfrmBPJGDZZSList.FormShow(Sender: TObject);
+begin
+  ReadCxGrid('布匹加工对账列表',Tv1,'财务对账');
+  //InitGrid();
+end;
+
+procedure TfrmBPJGDZZSList.TBExportClick(Sender: TObject);
+begin
+  if ADOQueryMain.IsEmpty then exit;
+  TcxGridToExcel('布匹加工对账列表(有折算)',cxGrid1);
+end;
+
+procedure TfrmBPJGDZZSList.TBFindClick(Sender: TObject);
+begin
+  if ADOQueryMain.Active then
+  begin
+    SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2));
+    SCreateCDS20(ADOQueryMain,CDS_Main);
+    SInitCDSData20(ADOQueryMain,CDS_Main);
+  end;
+end;
+
+procedure TfrmBPJGDZZSList.N1Click(Sender: TObject);
+begin
+  SelOKNo(CDS_Main,True);
+end;
+
+procedure TfrmBPJGDZZSList.N2Click(Sender: TObject);
+begin
+  SelOKNo(CDS_Main,False);
+end;
+
+procedure TfrmBPJGDZZSList.TBRKCXClick(Sender: TObject);
+begin
+  if CDS_Main.IsEmpty then exit;
+  if cxTabControl1.TabIndex<>0 then Exit;
+  if CDS_Main.Locate('SSel',True,[])=False then
+  begin
+    Application.MessageBox('没有选择数据!','提示',0);
+    Exit;
+  end;
+  if Application.MessageBox('确定要删除数据吗？','提示',32+4)<>IDYES then Exit;
+  try
+    ADOQueryCmd.Connection.BeginTrans;
+    CDS_Main.DisableControls;
+    with CDS_Main do
+    begin
+      First;
+      while Locate('SSel',True,[]) do
+      begin
+        with ADOQueryCmd do
+        begin
+          Close;
+          sql.Clear;
+          sql.Add('delete from JYOrder_Main_MD_DuiZhang where DZID='''+Trim(CDS_Main.fieldbyname('DZID').AsString)+'''');
+          ExecSQL;
+        end;
+        CDS_Main.Delete;
+      end;
+    end;
+    CDS_Main.EnableControls;
+    ADOQueryCmd.Connection.CommitTrans;
+  except
+    ADOQueryCmd.Connection.RollbackTrans;
+    CDS_Main.EnableControls;
+    Application.MessageBox('删除异常!','提示',0);
+  end;
+end;
+
+procedure TfrmBPJGDZZSList.ToolButton1Click(Sender: TObject);
+begin
+  try
+    frmBPJGDZZSInPut:=TfrmBPJGDZZSInPut.Create(Application);
+    with frmBPJGDZZSInPut do
+    begin
+      FBCId:='';
+      if ShowModal=1 then
+      begin
+        Self.InitGrid();
+      end;
+    end;
+  finally
+    frmBPJGDZZSInPut.Free;
+  end;
+end;
+
+procedure TfrmBPJGDZZSList.ToolButton2Click(Sender: TObject);
+begin
+  if cxTabControl1.TabIndex<>0 then Exit;
+  try
+    frmBPJGDZZSInPut:=TfrmBPJGDZZSInPut.Create(Application);
+    with frmBPJGDZZSInPut do
+    begin
+      FBCId:=Trim(CDS_Main.fieldbyname('DZID').AsString);
+      TBDel.Visible:=False;
+      TBAdd.Visible:=False;
+      if ShowModal=1 then
+      begin
+        Self.InitGrid();
+      end;
+    end;
+  finally
+    frmBPJGDZZSInPut.Free;
+  end;
+end;
+
+procedure TfrmBPJGDZZSList.FactoryNameChange(Sender: TObject);
+begin
+  TBFind.Click;
+end;
+
+procedure TfrmBPJGDZZSList.cxTabControl1Change(Sender: TObject);
+begin
+  InitGrid();
+end;
+
+procedure TfrmBPJGDZZSList.ToolButton3Click(Sender: TObject);
+begin
+  if CDS_Main.IsEmpty then exit;
+  if cxTabControl1.TabIndex<>0 then Exit;
+  if CDS_Main.Locate('SSel',True,[])=False then
+  begin
+    Application.MessageBox('没有选择数据!','提示',0);
+    Exit;
+  end;
+  if Application.MessageBox('确定要执行对账操作吗？','提示',32+4)<>IDYES then Exit;
+  try
+    ADOQueryCmd.Connection.BeginTrans;
+    CDS_Main.DisableControls;
+    with CDS_Main do
+    begin
+      First;
+      while Locate('SSel',True,[]) do
+      begin
+        with ADOQueryCmd do
+        begin
+          Close;
+          sql.Clear;
+          sql.Add('select * from JYOrder_Main_MD_DuiZhang where DZID='''+Trim(CDS_Main.fieldbyname('DZID').AsString)+'''');
+          Open;
+        end;
+        with ADOQueryCmd do
+        begin
+          Edit;
+          FieldByName('DuiZhangPerson').Value:=Trim(DName);
+          FieldByName('DuiZhangTime').Value:=SGetServerDateTime(ADOQueryTemp);
+          FieldByName('Status').Value:='已对账';
+          Post;
+        end;
+        YFHZData(Trim(CDS_Main.fieldbyname('DZID').AsString));
+        CDS_Main.Delete;
+      end;
+    end;
+    CDS_Main.EnableControls;
+    ADOQueryCmd.Connection.CommitTrans;
+  except
+    ADOQueryCmd.Connection.RollbackTrans;
+    CDS_Main.EnableControls;
+    Application.MessageBox('对账异常!','提示',0);
+  end;
+end;
+function TfrmBPJGDZZSList.YFHZData(FDZID:string):Boolean;
+var
+  CRID,OrdMainId,FYFID,MaxNo,FComTaiTou,FCRID,FFactoryName,CWFactoryNo,CWFactoryName:String;
+begin
+  Result:=False;
+  with ADOQueryTemp do
+  begin
+    Close;
+    sql.Clear;
+    sql.Add('select * from JYOrder_Main_MD_DuiZhang where DZID='''+Trim(FDZID)+'''');
+    Open;
+  end;
+  CWFactoryNo:=Trim(ADOQueryTemp.fieldbyname('FactoryNo').AsString);
+  CWFactoryName:=Trim(ADOQueryTemp.fieldbyname('FactoryName').AsString);
+  with ADOQueryTemp do
+  begin
+    Close;
+    SQL.Clear;
+    sql.Add('select * from YF_Money_KC where FactoryNo='''+Trim(CWFactoryNo)+'''');
+    Open;
+  end;
+  if ADOQueryTemp.IsEmpty=False then
+  begin
+    CRID:=ADOQueryTemp.fieldbyname('CRID').AsString;
+  end else
+  begin
+    with ADOQueryCmd do
+    begin
+      Close;
+      sql.Clear;
+      sql.Add('Update YF_Money_CRID set CRID=CRID+1');
+      sql.Add('select * from YF_Money_CRID ');
+      Open;
+    end;
+    CRID:=ADOQueryCmd.fieldbyname('CRID').AsString;
+    with ADOQueryCmd do
+    begin
+      Close;
+      SQL.Clear;
+      sql.Add('select * from YF_Money_KC where 1<>1');
+      Open;
+    end;
+    with ADOQueryCmd do
+    begin
+      Append;
+      FieldByName('CRID').Value:=StrToInt(CRID);
+      FieldByName('FactoryName').Value:=Trim(CWFactoryName);
+      FieldByName('FactoryNo').Value:=Trim(CWFactoryNo);
+      FieldByName('ZdyStr1').Value:='应付付';
+      Post;
+    end;
+  end;
+  with ADOQueryTemp do
+  begin
+    Close;
+    sql.Clear;
+    sql.Add('select * from YF_Money_CR where FactoryNo='''+Trim(CWFactoryNo)+'''');
+    sql.Add(' and MHID='''+Trim(CDS_Main.fieldbyname('DZID').AsString)+'''');
+    Open;
+  end;
+  FYFID:=Trim(ADOQueryTemp.fieldbyname('YFID').AsString);
+  if Trim(FYFID)='' then
+  begin
+    if GetLSNo(ADOQueryCmd,MaxNo,'BJ','YF_Money_CR',3,1)=False then
+    begin
+      Application.MessageBox('取布匹加工应付最大号失败!','提示',0);
+      Exit;
+    end;
+  end else
+  begin
+    MaxNo:=Trim(FYFID);
+  end;
+  with ADOQueryCmd do
+  begin
+    Close;
+    sql.Clear;
+    sql.Add('select * from YF_Money_CR where YFID='''+Trim(MaxNo)+'''');
+    Open;
+  end;
+  with ADOQueryCmd do
+  begin
+    if Trim(FYFID)='' then
+      Append
+    else
+      Edit;
+    FieldByName('YFID').Value:=Trim(MaxNo);
+    FieldByName('CRID').Value:=StrToInt(CRID);
+    FieldByName('Filler').Value:=Trim(DName);
+    FieldByName('CRType').Value:='应付款登记';
+    FieldByName('CRFlag').Value:='应付付';
+    FieldByName('QtyFlag').Value:=1;
+    FieldByName('FactoryNo').Value:=Trim(CWFactoryNo);
+    FieldByName('FactoryName').Value:=Trim(CWFactoryName);
+    FieldByName('HZFactoryNo').Value:=Trim(CWFactoryNo);
+    FieldByName('HZFactoryName').Value:=Trim(CWFactoryName);
+    FieldByName('YFType').Value:='自动生成';
+    FieldByName('HuiLv').Value:=1;
+    FieldByName('BZType').Value:='人民币';
+    FieldByName('YFName').Value:='布匹加工';
+    //FieldByName('PSName').Value:='纱线';
+    FieldByName('MHID').Value:=Trim(CDS_Main.fieldbyname('DZID').AsString);
+    Post;
+  end;
+  with ADOQueryCmd do
+  begin
+    Close;
+    sql.Clear;
+    sql.Add('UPdate YF_Money_CR Set PS=(select PS from JYOrder_Main_MD_DuiZhang where DZID='''+Trim(FDZID)+''')');
+    sql.Add(', Qty=(select Qty from JYOrder_Main_MD_DuiZhang where DZID='''+Trim(FDZID)+''')');
+    sql.Add(', Price=(select Price from JYOrder_Main_MD_DuiZhang where DZID='''+Trim(FDZID)+''')');
+    sql.Add(',Money=(select Money from JYOrder_Main_MD_DuiZhang where DZID='''+Trim(FDZID)+''')');
+    sql.Add(',BBMoney=(select Money from JYOrder_Main_MD_DuiZhang where DZID='''+Trim(FDZID)+''')');
+    sql.Add(',CPName=(select MPRTCodeName from JYOrder_Main_MD_DuiZhang where DZID='''+Trim(FDZID)+''')');
+    sql.Add(',QtyUnit=(select QtyUnit from JYOrder_Main_MD_DuiZhang where DZID='''+Trim(FDZID)+''')');
+    sql.Add(',CRTime=(select DZDate from JYOrder_Main_MD_DuiZhang where DZID='''+Trim(FDZID)+''')');
+    sql.Add(',OrderNo=(select OrderNo from JYOrder_Main_MD_DuiZhang where DZID='''+Trim(FDZID)+''')');
+    sql.Add(',Note=(select Note from JYOrder_Main_MD_DuiZhang where DZID='''+Trim(FDZID)+''')');
+    sql.Add(' where YFID='''+Trim(MaxNo)+'''');
+    ExecSQL;
+  end;
+  with ADOQueryCmd do
+  begin
+    Close;
+    sql.Clear;
+    sql.Add('Update JYOrder_Main_MD_DuiZhang Set YFID='''+Trim(MaxNo)+'''');
+    sql.Add(' where DZID='''+Trim(CDS_Main.fieldbyname('DZID').AsString)+'''');
+    ExecSQL;
+  end;
+  with ADOQueryCmd do
+  begin
+    Close;
+    sql.Clear;
+    sql.Add('Update YF_Money_KC Set ');
+    sql.Add(' KCMoney=(select isnull(Sum(Money*QtyFlag),0) from YF_Money_CR A where A.CRID=YF_Money_KC.CRID and A.Valid=''Y'')');
+    sql.Add(',KCBBMoney=(select isnull(Sum(BBMoney*QtyFlag),0) from YF_Money_CR A where A.CRID=YF_Money_KC.CRID and A.Valid=''Y'' )');
+    sql.Add(' where CRID='+CRID);
+    ExecSQL;
+  end;
+
+  Result:=True;
+end;
+function TfrmBPJGDZZSList.DelYFHZData():Boolean;
+var
+  CRID:String;
+begin
+  Result:=False;
+  with ADOQueryTemp do
+  begin
+    Close;
+    sql.Clear;
+    sql.Add('select * from YF_Money_CR where MHID='''+Trim(CDS_Main.fieldbyname('DZID').AsString)+'''');
+    Open;
+  end;
+  CRID:=Trim(ADOQueryTemp.fieldbyname('CRID').AsString);
+  with ADOQueryCmd do
+  begin
+    Close;
+    sql.Clear;
+    sql.Add(' delete YF_Money_CR where  ');
+    sql.Add(' MHID='''+Trim(CDS_Main.fieldbyname('DZID').AsString)+'''');
+    sql.Add(' Update JYOrder_Main_MD_DuiZhang Set YFID=Null where  ');
+    sql.Add(' DZID='''+Trim(CDS_Main.fieldbyname('DZID').AsString)+'''');
+    ExecSQL;
+  end;
+  if Trim(CRID)<>'' then
+  begin
+    with ADOQueryCmd do
+    begin
+      Close;
+      sql.Clear;
+      sql.Add('Update YF_Money_KC Set ');
+      sql.Add(' KCMoney=(select isnull(Sum(Money*QtyFlag),0) from YF_Money_CR A where A.CRID=YF_Money_KC.CRID and A.Valid=''Y'')');
+      sql.Add(',KCBBMoney=(select isnull(Sum(BBMoney*QtyFlag),0) from YF_Money_CR A where A.CRID=YF_Money_KC.CRID and A.Valid=''Y'' )');
+      sql.Add(' where CRID='+CRID);
+      ExecSQL;
+    end;
+    with ADOQueryTemp do
+    begin
+      Close;
+      sql.Clear;
+      sql.Add('select * from YF_Money_CR where CRID='+CRID);
+      Open;
+    end;
+    if ADOQueryTemp.IsEmpty then
+    begin
+      with ADOQueryCmd do
+      begin
+        Close;
+        sql.Clear;
+        sql.Add(' delete YF_Money_KC where CRID='+CRID);
+        ExecSQL;
+      end;
+    end;
+  end;
+
+  Result:=True;
+end;
+procedure TfrmBPJGDZZSList.ToolButton4Click(Sender: TObject);
+begin
+  if CDS_Main.IsEmpty then exit;
+  if cxTabControl1.TabIndex<>1 then Exit;
+  if CDS_Main.Locate('SSel',True,[])=False then
+  begin
+    Application.MessageBox('没有选择数据!','提示',0);
+    Exit;
+  end;
+  if Application.MessageBox('确定要执行撤销操作吗？','提示',32+4)<>IDYES then Exit;
+  try
+    ADOQueryCmd.Connection.BeginTrans;
+    CDS_Main.DisableControls;
+    with CDS_Main do
+    begin
+      First;
+      while Locate('SSel',True,[]) do
+      begin
+        with ADOQueryCmd do
+        begin
+          Close;
+          sql.Clear;
+          sql.Add('select * from JYOrder_Main_MD_DuiZhang where DZID='''+Trim(CDS_Main.fieldbyname('DZID').AsString)+'''');
+          Open;
+        end;
+        with ADOQueryCmd do
+        begin
+          Edit;
+          FieldByName('DuiZhangPerson').Value:=Null;
+          FieldByName('DuiZhangTime').Value:=Null;
+          FieldByName('Status').Value:='待对账';
+          Post;
+        end;
+        DelYFHZData();
+        CDS_Main.Delete;
+      end;
+    end;
+    CDS_Main.EnableControls;
+    ADOQueryCmd.Connection.CommitTrans;
+  except
+    ADOQueryCmd.Connection.RollbackTrans;
+    CDS_Main.EnableControls;
+    Application.MessageBox('撤销异常!','提示',0);
+  end;
+end;
+
+end.

坯布码单待检(PBMDDJ.dll)/U_CICXList.dfm

@@ -0,0 +1,853 @@
+object frmCICXList: TfrmCICXList
+  Left = 62
+  Top = 108
+  Width = 1281
+  Height = 667
+  Caption = #24212#25910#27454#26597#35810
+  Color = clBtnFace
+  Font.Charset = GB2312_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -12
+  Font.Name = #23435#20307
+  Font.Style = []
+  OldCreateOrder = False
+  OnClose = FormClose
+  OnCreate = FormCreate
+  OnDestroy = FormDestroy
+  OnShow = FormShow
+  PixelsPerInch = 96
+  TextHeight = 12
+  object ToolBar1: TToolBar
+    Left = 0
+    Top = 0
+    Width = 1265
+    AutoSize = True
+    ButtonHeight = 30
+    ButtonWidth = 83
+    Caption = 'ToolBar1'
+    Color = clSkyBlue
+    Flat = True
+    Font.Charset = GB2312_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -12
+    Font.Name = #23435#20307
+    Font.Style = []
+    Images = DataLink_DDMD.ThreeImgList
+    List = True
+    ParentColor = False
+    ParentFont = False
+    ShowCaptions = True
+    TabOrder = 0
+    object TBRafresh: TToolButton
+      Left = 0
+      Top = 0
+      AutoSize = True
+      Caption = #21047#26032
+      ImageIndex = 0
+      OnClick = TBRafreshClick
+    end
+    object ToolButton1: TToolButton
+      Left = 63
+      Top = 0
+      AutoSize = True
+      Caption = #36807#28388
+      ImageIndex = 20
+      OnClick = ToolButton1Click
+    end
+    object ToolButton2: TToolButton
+      Left = 126
+      Top = 0
+      AutoSize = True
+      Caption = #26597#30475
+      ImageIndex = 55
+      OnClick = ToolButton2Click
+    end
+    object TBExport: TToolButton
+      Left = 189
+      Top = 0
+      AutoSize = True
+      Caption = #23548#20986
+      ImageIndex = 6
+      OnClick = TBExportClick
+    end
+    object ToolButton3: TToolButton
+      Left = 252
+      Top = 0
+      AutoSize = True
+      Caption = #25805#20316#35828#26126
+      ImageIndex = 41
+      OnClick = ToolButton3Click
+    end
+    object ToolButton4: TToolButton
+      Left = 339
+      Top = 0
+      AutoSize = True
+      Caption = #25171#21360
+      ImageIndex = 4
+      Visible = False
+      OnClick = ToolButton4Click
+    end
+    object TBClose: TToolButton
+      Left = 402
+      Top = 0
+      AutoSize = True
+      Caption = #20851#38381
+      ImageIndex = 21
+      OnClick = TBCloseClick
+    end
+  end
+  object Panel1: TPanel
+    Left = 0
+    Top = 32
+    Width = 1265
+    Height = 47
+    Align = alTop
+    BevelInner = bvRaised
+    BevelOuter = bvLowered
+    Color = clSkyBlue
+    TabOrder = 1
+    object Label2: TLabel
+      Left = 260
+      Top = 18
+      Width = 18
+      Height = 12
+      Caption = '---'
+    end
+    object Label3: TLabel
+      Left = 30
+      Top = 18
+      Width = 13
+      Height = 12
+      Caption = #25353
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label1: TLabel
+      Left = 147
+      Top = 18
+      Width = 26
+      Height = 12
+      Caption = #26597#35810
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label8: TLabel
+      Left = 383
+      Top = 18
+      Width = 65
+      Height = 12
+      Caption = #38144#21806#21457#31080#21495
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label5: TLabel
+      Left = 569
+      Top = 18
+      Width = 39
+      Height = 12
+      Caption = #21512#21516#21495
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label7: TLabel
+      Left = 731
+      Top = 18
+      Width = 26
+      Height = 12
+      Caption = #23458#25143
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object BegDate: TDateTimePicker
+      Left = 175
+      Top = 14
+      Width = 85
+      Height = 20
+      Date = 40675.464742650460000000
+      Format = 'yyyy-MM-dd'
+      Time = 40675.464742650460000000
+      TabOrder = 0
+    end
+    object EndDate: TDateTimePicker
+      Left = 278
+      Top = 14
+      Width = 86
+      Height = 20
+      Date = 40675.464761099540000000
+      Format = 'yyyy-MM-dd'
+      Time = 40675.464761099540000000
+      TabOrder = 1
+    end
+    object ComboBox2: TComboBox
+      Left = 45
+      Top = 14
+      Width = 101
+      Height = 20
+      Style = csDropDownList
+      ItemHeight = 12
+      TabOrder = 2
+    end
+    object CINO: TEdit
+      Tag = 2
+      Left = 447
+      Top = 14
+      Width = 105
+      Height = 20
+      TabOrder = 3
+      OnChange = WorkerChange
+      OnKeyPress = CINOKeyPress
+    end
+    object ConNo: TEdit
+      Tag = 2
+      Left = 609
+      Top = 14
+      Width = 106
+      Height = 20
+      TabOrder = 4
+      OnChange = WorkerChange
+      OnKeyPress = ConNoKeyPress
+    end
+    object CustomerNoName: TEdit
+      Tag = 2
+      Left = 758
+      Top = 14
+      Width = 109
+      Height = 20
+      TabOrder = 5
+      OnChange = WorkerChange
+    end
+    object CheckBox1: TCheckBox
+      Left = 896
+      Top = 16
+      Width = 161
+      Height = 17
+      Caption = #26174#31034#24212#25910#20313#27454#20026'0'#30340#25968#25454
+      TabOrder = 6
+      OnClick = CheckBox1Click
+    end
+  end
+  object cxSplitter1: TcxSplitter
+    Left = 0
+    Top = 425
+    Width = 1265
+    Height = 8
+    HotZoneClassName = 'TcxMediaPlayer9Style'
+    AlignSplitter = salBottom
+    Control = Panel2
+  end
+  object Panel2: TPanel
+    Left = 0
+    Top = 433
+    Width = 1265
+    Height = 195
+    Align = alBottom
+    BevelInner = bvRaised
+    BevelOuter = bvLowered
+    TabOrder = 3
+    object Label4: TLabel
+      Left = 646
+      Top = 2
+      Width = 13
+      Height = 191
+      Align = alLeft
+      Caption = #13#10#13#10#13#10#23450#13#10#13#10#37329#13#10#13#10#20998#13#10#13#10#37197
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clBlue
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label6: TLabel
+      Left = 2
+      Top = 2
+      Width = 13
+      Height = 191
+      Align = alLeft
+      Caption = #13#10#13#10#13#10#20854#13#10#13#10#23427#13#10#13#10#20998#13#10#13#10#37197
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clBlue
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object cxGrid3: TcxGrid
+      Left = 659
+      Top = 2
+      Width = 604
+      Height = 191
+      Align = alClient
+      TabOrder = 0
+      object Tv3: TcxGridDBTableView
+        NavigatorButtons.ConfirmDelete = False
+        NavigatorButtons.Delete.Enabled = False
+        NavigatorButtons.Delete.Visible = False
+        DataController.DataSource = DataSource3
+        DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
+        DataController.Summary.DefaultGroupSummaryItems = <
+          item
+            Format = '0'
+            Position = spFooter
+          end
+          item
+            Format = '0'
+            Position = spFooter
+          end
+          item
+            Format = '0'
+            Position = spFooter
+          end
+          item
+            Format = '0'
+            Position = spFooter
+            Column = cxGridDBColumn18
+          end
+          item
+            Format = '0'
+            Position = spFooter
+          end>
+        DataController.Summary.FooterSummaryItems = <
+          item
+            Kind = skSum
+            Column = cxGridDBColumn19
+          end>
+        DataController.Summary.SummaryGroups = <>
+        OptionsCustomize.ColumnFiltering = False
+        OptionsData.Deleting = False
+        OptionsData.DeletingConfirmation = False
+        OptionsSelection.CellSelect = False
+        OptionsView.Footer = True
+        OptionsView.GroupByBox = False
+        Styles.Inactive = DataLink_DDMD.SHuangSe
+        Styles.IncSearch = DataLink_DDMD.SHuangSe
+        Styles.Selection = DataLink_DDMD.SHuangSe
+        Styles.Header = DataLink_DDMD.Default
+        object cxGridDBColumn15: TcxGridDBColumn
+          Tag = 2
+          Caption = #20998#37197#26085#26399
+          DataBinding.FieldName = 'FPDate'
+          PropertiesClassName = 'TcxDateEditProperties'
+          Properties.SaveTime = False
+          Properties.ShowTime = False
+          HeaderAlignmentHorz = taCenter
+          Width = 110
+        end
+        object cxGridDBColumn17: TcxGridDBColumn
+          Tag = 2
+          Caption = #24065#31181
+          DataBinding.FieldName = 'PriceUnit'
+          PropertiesClassName = 'TcxComboBoxProperties'
+          Properties.DropDownListStyle = lsFixedList
+          Properties.Items.Strings = (
+            '$'
+            #65509
+            #8364)
+          HeaderAlignmentHorz = taCenter
+          Options.Editing = False
+          Width = 62
+        end
+        object cxGridDBColumn18: TcxGridDBColumn
+          Tag = 2
+          Caption = #21512#21516#23450#37329#37329#39069
+          DataBinding.FieldName = 'DJMoney'
+          PropertiesClassName = 'TcxTextEditProperties'
+          HeaderAlignmentHorz = taCenter
+          Options.Editing = False
+          Width = 89
+        end
+        object cxGridDBColumn19: TcxGridDBColumn
+          Caption = #20998#37197#23450#37329
+          DataBinding.FieldName = 'FPMoney'
+          PropertiesClassName = 'TcxTextEditProperties'
+          HeaderAlignmentHorz = taCenter
+          Width = 70
+        end
+        object cxGridDBColumn20: TcxGridDBColumn
+          Tag = 2
+          Caption = #22791#27880
+          DataBinding.FieldName = 'Note'
+          PropertiesClassName = 'TcxTextEditProperties'
+          HeaderAlignmentHorz = taCenter
+          Width = 127
+        end
+      end
+      object cxGridLevel3: TcxGridLevel
+        GridView = Tv3
+      end
+    end
+    object cxGrid2: TcxGrid
+      Left = 15
+      Top = 2
+      Width = 631
+      Height = 191
+      Align = alLeft
+      TabOrder = 1
+      object Tv2: TcxGridDBTableView
+        NavigatorButtons.ConfirmDelete = False
+        NavigatorButtons.Delete.Enabled = False
+        NavigatorButtons.Delete.Visible = False
+        DataController.DataSource = DataSource2
+        DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
+        DataController.Summary.DefaultGroupSummaryItems = <
+          item
+            Format = '0'
+            Position = spFooter
+          end
+          item
+            Format = '0'
+            Position = spFooter
+          end
+          item
+            Format = '0'
+            Position = spFooter
+          end
+          item
+            Format = '0'
+            Position = spFooter
+            Column = VYB
+          end
+          item
+            Format = '0'
+            Position = spFooter
+          end>
+        DataController.Summary.FooterSummaryItems = <
+          item
+            Kind = skSum
+            Column = cxGridDBColumn14
+          end>
+        DataController.Summary.SummaryGroups = <>
+        OptionsCustomize.ColumnFiltering = False
+        OptionsData.Deleting = False
+        OptionsData.DeletingConfirmation = False
+        OptionsSelection.CellSelect = False
+        OptionsView.Footer = True
+        OptionsView.GroupByBox = False
+        Styles.Inactive = DataLink_DDMD.SHuangSe
+        Styles.IncSearch = DataLink_DDMD.SHuangSe
+        Styles.Selection = DataLink_DDMD.SHuangSe
+        Styles.Header = DataLink_DDMD.Default
+        object VDate: TcxGridDBColumn
+          Tag = 2
+          Caption = #20998#37197#26085#26399
+          DataBinding.FieldName = 'FPDate'
+          PropertiesClassName = 'TcxDateEditProperties'
+          Properties.SaveTime = False
+          Properties.ShowTime = False
+          HeaderAlignmentHorz = taCenter
+          Width = 91
+        end
+        object cxGridDBColumn12: TcxGridDBColumn
+          Caption = #25910#27454#26085#26399
+          DataBinding.FieldName = 'CRTime'
+          HeaderAlignmentHorz = taCenter
+          Options.Editing = False
+          Width = 65
+        end
+        object cxGridDBColumn13: TcxGridDBColumn
+          Tag = 2
+          Caption = #24065#31181
+          DataBinding.FieldName = 'BZType'
+          PropertiesClassName = 'TcxComboBoxProperties'
+          Properties.DropDownListStyle = lsFixedList
+          Properties.Items.Strings = (
+            '$'
+            #65509
+            #8364)
+          HeaderAlignmentHorz = taCenter
+          Options.Editing = False
+          Width = 47
+        end
+        object VYB: TcxGridDBColumn
+          Tag = 2
+          Caption = #25910#27454#37329#39069
+          DataBinding.FieldName = 'Money'
+          PropertiesClassName = 'TcxTextEditProperties'
+          HeaderAlignmentHorz = taCenter
+          Options.Editing = False
+          Width = 65
+        end
+        object v2Column1: TcxGridDBColumn
+          Caption = #31867#22411
+          DataBinding.FieldName = 'FPType'
+          PropertiesClassName = 'TcxComboBoxProperties'
+          Properties.DropDownListStyle = lsFixedList
+          Properties.ImmediatePost = True
+          Properties.Items.Strings = (
+            #20313#27454
+            #20840#27454
+            #20323#37329)
+          HeaderAlignmentHorz = taCenter
+          Width = 69
+        end
+        object cxGridDBColumn14: TcxGridDBColumn
+          Caption = #20998#37197#37329#39069
+          DataBinding.FieldName = 'FPMoney'
+          PropertiesClassName = 'TcxTextEditProperties'
+          HeaderAlignmentHorz = taCenter
+          Width = 58
+        end
+        object VNote: TcxGridDBColumn
+          Tag = 2
+          Caption = #22791#27880
+          DataBinding.FieldName = 'Note'
+          PropertiesClassName = 'TcxTextEditProperties'
+          HeaderAlignmentHorz = taCenter
+          Width = 127
+        end
+      end
+      object cxGridLevel2: TcxGridLevel
+        GridView = Tv2
+      end
+    end
+  end
+  object cxGrid1: TcxGrid
+    Left = 0
+    Top = 79
+    Width = 1265
+    Height = 346
+    Align = alClient
+    TabOrder = 4
+    object Tv1: TcxGridDBTableView
+      NavigatorButtons.ConfirmDelete = False
+      OnCellClick = Tv1CellClick
+      DataController.DataSource = DataSource1
+      DataController.Summary.DefaultGroupSummaryItems = <
+        item
+          Kind = skSum
+          Position = spFooter
+        end
+        item
+          Kind = skSum
+          Position = spFooter
+        end
+        item
+          Kind = skSum
+          Position = spFooter
+          Column = cxGridDBColumn8
+        end
+        item
+          Kind = skSum
+          Position = spFooter
+          Column = cxGridDBColumn9
+        end
+        item
+          Kind = skSum
+          Position = spFooter
+        end>
+      DataController.Summary.FooterSummaryItems = <
+        item
+          Kind = skSum
+          Column = cxGridDBColumn6
+        end
+        item
+          Kind = skSum
+          Column = cxGridDBColumn4
+        end
+        item
+          Kind = skSum
+          Column = cxGridDBColumn7
+        end
+        item
+          Kind = skSum
+          Column = cxGridDBColumn11
+        end
+        item
+          Kind = skSum
+          Column = cxGridDBColumn8
+        end
+        item
+          Kind = skSum
+          Column = cxGridDBColumn9
+        end
+        item
+          Kind = skSum
+          Column = v1Column3
+        end>
+      DataController.Summary.SummaryGroups = <>
+      OptionsCustomize.ColumnFiltering = False
+      OptionsSelection.CellSelect = False
+      OptionsView.Footer = True
+      OptionsView.GroupByBox = False
+      OptionsView.GroupFooters = gfAlwaysVisible
+      Styles.Inactive = DataLink_DDMD.SkyBlue
+      Styles.IncSearch = DataLink_DDMD.SkyBlue
+      Styles.Selection = DataLink_DDMD.SkyBlue
+      Styles.Header = DataLink_DDMD.Default
+      object cxGridDBColumn1: TcxGridDBColumn
+        Caption = #38144#21806#21457#31080#21495
+        DataBinding.FieldName = 'CINO'
+        PropertiesClassName = 'TcxTextEditProperties'
+        Properties.Alignment.Horz = taCenter
+        Properties.Alignment.Vert = taVCenter
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 79
+      end
+      object cxGridDBColumn2: TcxGridDBColumn
+        Caption = #21512#21516#21495
+        DataBinding.FieldName = 'ConNo'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 69
+      end
+      object v1Column5: TcxGridDBColumn
+        Caption = #23458#25143
+        DataBinding.FieldName = 'CustomerNoName'
+        HeaderAlignmentHorz = taCenter
+        Width = 73
+      end
+      object cxGridDBColumn3: TcxGridDBColumn
+        Tag = 999
+        Caption = #26085#26399
+        DataBinding.FieldName = 'CIDate'
+        HeaderAlignmentHorz = taCenter
+        HeaderGlyphAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 80
+      end
+      object cxGridDBColumn6: TcxGridDBColumn
+        Caption = #21305#25968
+        DataBinding.FieldName = 'PS'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 73
+      end
+      object cxGridDBColumn4: TcxGridDBColumn
+        Caption = #25968#37327
+        DataBinding.FieldName = 'Qty'
+        HeaderAlignmentHorz = taCenter
+        HeaderGlyphAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 74
+      end
+      object cxGridDBColumn5: TcxGridDBColumn
+        Caption = #25968#37327#21333#20301
+        DataBinding.FieldName = 'QtyUnit'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 65
+      end
+      object v1Column2: TcxGridDBColumn
+        Caption = #24065#31181
+        DataBinding.FieldName = 'BZType'
+        HeaderAlignmentHorz = taCenter
+        Width = 59
+      end
+      object cxGridDBColumn7: TcxGridDBColumn
+        Caption = #21457#36135#37329#39069
+        DataBinding.FieldName = 'FHMoney'
+        PropertiesClassName = 'TcxTextEditProperties'
+        Properties.Alignment.Horz = taCenter
+        Properties.Alignment.Vert = taVCenter
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 69
+      end
+      object cxGridDBColumn10: TcxGridDBColumn
+        Caption = #20854#23427#36153#29992#21517#31216
+        DataBinding.FieldName = 'OtherFeeName'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 86
+      end
+      object cxGridDBColumn11: TcxGridDBColumn
+        Caption = #20854#23427#36153#29992#37329#39069
+        DataBinding.FieldName = 'OtherFee'
+        HeaderAlignmentHorz = taCenter
+        Width = 90
+      end
+      object v1Column6: TcxGridDBColumn
+        Caption = #25187#27454
+        DataBinding.FieldName = 'KKMoney'
+        HeaderAlignmentHorz = taCenter
+        Width = 65
+      end
+      object cxGridDBColumn8: TcxGridDBColumn
+        Caption = #23450#37329
+        DataBinding.FieldName = 'DJMoney'
+        PropertiesClassName = 'TcxTextEditProperties'
+        Properties.Alignment.Horz = taCenter
+        Properties.Alignment.Vert = taVCenter
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 70
+      end
+      object cxGridDBColumn9: TcxGridDBColumn
+        Caption = #20313#27454
+        DataBinding.FieldName = 'YKMoney'
+        PropertiesClassName = 'TcxTextEditProperties'
+        Properties.Alignment.Horz = taCenter
+        Properties.Alignment.Vert = taVCenter
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Styles.Header = DataLink_DDMD.Default
+        Width = 70
+      end
+      object v1Column1: TcxGridDBColumn
+        Caption = #20840#27454
+        DataBinding.FieldName = 'QKMoney'
+        HeaderAlignmentHorz = taCenter
+        Width = 68
+      end
+      object v1Column4: TcxGridDBColumn
+        Caption = #20323#37329
+        DataBinding.FieldName = 'YJMoney'
+        HeaderAlignmentHorz = taCenter
+        Width = 69
+      end
+      object v1Column3: TcxGridDBColumn
+        Caption = #24212#25910#20313#27454
+        DataBinding.FieldName = 'YSMoney'
+        HeaderAlignmentHorz = taCenter
+        Width = 84
+      end
+    end
+    object cxGridLevel1: TcxGridLevel
+      GridView = Tv1
+    end
+  end
+  object cxGridPopupMenu1: TcxGridPopupMenu
+    PopupMenus = <>
+    Left = 784
+    Top = 168
+  end
+  object ADOQueryCmd: TADOQuery
+    Connection = DataLink_DDMD.ADOLink
+    Parameters = <>
+    Left = 936
+  end
+  object ADOQueryMain: TADOQuery
+    Connection = DataLink_DDMD.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 1000
+  end
+  object ADOQueryTemp: TADOQuery
+    Connection = DataLink_DDMD.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 712
+    Top = 160
+  end
+  object DataSource1: TDataSource
+    DataSet = Order_Main
+    Left = 744
+    Top = 160
+  end
+  object Order_Main: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 687
+    Top = 159
+  end
+  object RM1: TRMGridReport
+    ThreadPrepareReport = True
+    InitialZoom = pzDefault
+    PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbExport, pbNavigator]
+    DefaultCollate = False
+    SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\'
+    PreviewOptions.RulerUnit = rmutScreenPixels
+    PreviewOptions.RulerVisible = False
+    PreviewOptions.DrawBorder = False
+    PreviewOptions.BorderPen.Color = clGray
+    PreviewOptions.BorderPen.Style = psDash
+    Dataset = RMDBMain
+    CompressLevel = rmzcFastest
+    CompressThread = False
+    LaterBuildEvents = True
+    OnlyOwnerDataSet = False
+    Left = 454
+    Top = 201
+    ReportData = {}
+  end
+  object RMDBMain: TRMDBDataSet
+    Visible = True
+    DataSet = ADOQueryPrint
+    Left = 392
+    Top = 200
+  end
+  object RMXLSExport1: TRMXLSExport
+    ShowAfterExport = True
+    ExportPrecision = 1
+    PagesOfSheet = 1
+    ExportImages = True
+    ExportFrames = True
+    ExportImageFormat = ifBMP
+    JPEGQuality = 0
+    ScaleX = 1.000000000000000000
+    ScaleY = 1.000000000000000000
+    CompressFile = False
+    Left = 423
+    Top = 200
+  end
+  object CDS_PRT: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 1061
+    Top = 9
+  end
+  object cxGridPopupMenu2: TcxGridPopupMenu
+    PopupMenus = <>
+    Left = 365
+    Top = 203
+  end
+  object ADOQueryPrint: TADOQuery
+    Connection = DataLink_DDMD.ADOLink
+    Parameters = <>
+    Left = 485
+    Top = 203
+  end
+  object cxGridPopupMenu3: TcxGridPopupMenu
+    PopupMenus = <>
+    Left = 685
+    Top = 323
+  end
+  object ClientDataSet3: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 759
+    Top = 495
+  end
+  object DataSource3: TDataSource
+    DataSet = ClientDataSet3
+    Left = 728
+    Top = 496
+  end
+  object DataSource2: TDataSource
+    DataSet = ClientDataSet2
+    Left = 184
+    Top = 512
+  end
+  object ClientDataSet2: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 216
+    Top = 512
+  end
+  object cxGridPopupMenu4: TcxGridPopupMenu
+    PopupMenus = <>
+    Left = 264
+    Top = 512
+  end
+end

坯布码单待检(PBMDDJ.dll)/U_CICXList.pas

@@ -0,0 +1,600 @@
+unit U_CICXList;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, StdCtrls, ExtCtrls, ComCtrls, ToolWin, cxStyles, cxCustomData,
+  cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, ADODB,
+  cxGridCustomPopupMenu, cxGridPopupMenu, cxGridLevel, cxClasses,
+  cxControls, cxGridCustomView, cxGridCustomTableView, cxGridTableView,
+  cxGridDBTableView, cxGrid, DBClient, cxCalendar, cxButtonEdit, cxSplitter,
+  RM_Common, RM_Class, RM_e_Xls, RM_Dataset, RM_System, RM_GridReport,
+  cxTextEdit, cxPC, cxCheckBox, cxDropDownEdit;
+
+
+type
+  TfrmCICXList = class(TForm)
+    ToolBar1: TToolBar;
+    TBRafresh: TToolButton;
+    TBClose: TToolButton;
+    cxGridPopupMenu1: TcxGridPopupMenu;
+    ADOQueryCmd: TADOQuery;
+    ADOQueryMain: TADOQuery;
+    ADOQueryTemp: TADOQuery;
+    DataSource1: TDataSource;
+    TBExport: TToolButton;
+    Order_Main: TClientDataSet;
+    RM1: TRMGridReport;
+    RMDBMain: TRMDBDataSet;
+    RMXLSExport1: TRMXLSExport;
+    CDS_PRT: TClientDataSet;
+    ToolButton3: TToolButton;
+    cxGridPopupMenu2: TcxGridPopupMenu;
+    Panel1: TPanel;
+    Label2: TLabel;
+    BegDate: TDateTimePicker;
+    EndDate: TDateTimePicker;
+    ComboBox2: TComboBox;
+    Label3: TLabel;
+    Label1: TLabel;
+    ToolButton1: TToolButton;
+    ToolButton4: TToolButton;
+    ADOQueryPrint: TADOQuery;
+    cxSplitter1: TcxSplitter;
+    cxGridPopupMenu3: TcxGridPopupMenu;
+    ClientDataSet3: TClientDataSet;
+    DataSource3: TDataSource;
+    Panel2: TPanel;
+    Label4: TLabel;
+    DataSource2: TDataSource;
+    ClientDataSet2: TClientDataSet;
+    cxGridPopupMenu4: TcxGridPopupMenu;
+    ToolButton2: TToolButton;
+    Label6: TLabel;
+    cxGrid3: TcxGrid;
+    Tv3: TcxGridDBTableView;
+    cxGridDBColumn15: TcxGridDBColumn;
+    cxGridDBColumn17: TcxGridDBColumn;
+    cxGridDBColumn18: TcxGridDBColumn;
+    cxGridDBColumn19: TcxGridDBColumn;
+    cxGridDBColumn20: TcxGridDBColumn;
+    cxGridLevel3: TcxGridLevel;
+    Label8: TLabel;
+    Label5: TLabel;
+    Label7: TLabel;
+    CINO: TEdit;
+    ConNo: TEdit;
+    CustomerNoName: TEdit;
+    cxGrid1: TcxGrid;
+    Tv1: TcxGridDBTableView;
+    cxGridDBColumn1: TcxGridDBColumn;
+    cxGridDBColumn2: TcxGridDBColumn;
+    v1Column5: TcxGridDBColumn;
+    cxGridDBColumn3: TcxGridDBColumn;
+    cxGridDBColumn6: TcxGridDBColumn;
+    cxGridDBColumn4: TcxGridDBColumn;
+    cxGridDBColumn5: TcxGridDBColumn;
+    v1Column2: TcxGridDBColumn;
+    cxGridDBColumn7: TcxGridDBColumn;
+    cxGridDBColumn10: TcxGridDBColumn;
+    cxGridDBColumn11: TcxGridDBColumn;
+    v1Column6: TcxGridDBColumn;
+    cxGridDBColumn8: TcxGridDBColumn;
+    cxGridDBColumn9: TcxGridDBColumn;
+    v1Column1: TcxGridDBColumn;
+    v1Column4: TcxGridDBColumn;
+    v1Column3: TcxGridDBColumn;
+    cxGridLevel1: TcxGridLevel;
+    cxGrid2: TcxGrid;
+    Tv2: TcxGridDBTableView;
+    VDate: TcxGridDBColumn;
+    cxGridDBColumn12: TcxGridDBColumn;
+    cxGridDBColumn13: TcxGridDBColumn;
+    VYB: TcxGridDBColumn;
+    v2Column1: TcxGridDBColumn;
+    cxGridDBColumn14: TcxGridDBColumn;
+    VNote: TcxGridDBColumn;
+    cxGridLevel2: TcxGridLevel;
+    CheckBox1: TCheckBox;
+    procedure FormDestroy(Sender: TObject);
+    procedure FormClose(Sender: TObject; var Action: TCloseAction);
+    procedure TBCloseClick(Sender: TObject);
+    procedure TBExportClick(Sender: TObject);
+    procedure TBRafreshClick(Sender: TObject);
+    procedure FormShow(Sender: TObject);
+    procedure cxPageControl1Change(Sender: TObject);
+    procedure ToolButton3Click(Sender: TObject);
+    procedure FormCreate(Sender: TObject);
+    procedure cxTabControl1Change(Sender: TObject);
+    procedure WorkerChange(Sender: TObject);
+    procedure v1Column15CustomDrawCell(Sender: TcxCustomGridTableView;
+      ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo;
+      var ADone: Boolean);
+    procedure v1Column9CustomDrawCell(Sender: TcxCustomGridTableView;
+      ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo;
+      var ADone: Boolean);
+    procedure ToolButton1Click(Sender: TObject);
+    procedure ToolButton4Click(Sender: TObject);
+    procedure CINOKeyPress(Sender: TObject; var Key: Char);
+    procedure ConNoKeyPress(Sender: TObject; var Key: Char);
+    procedure Tv1CellClick(Sender: TcxCustomGridTableView;
+      ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
+      AShift: TShiftState; var AHandled: Boolean);
+    procedure ToolButton2Click(Sender: TObject);
+    procedure CheckBox1Click(Sender: TObject);
+
+  private
+    FInt,PFInt:Integer;
+    canshu1,canshu2:string;
+    FNowDate:TDateTime;
+    procedure InitGrid();
+    procedure InitForm();
+    function  DelData():Boolean;
+    procedure InitGridWsql(fsj:string);
+    function  SaveData():Boolean;
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+var
+  frmCICXList: TfrmCICXList;
+
+implementation
+uses
+  U_DataLink,U_RTFun,U_FHInPut,U_ModuleNote, U_ZDYHelp,U_CIInPut,
+  U_SKCRFenPei,U_ConDJFenPei;
+
+{$R *.dfm}
+
+procedure TfrmCICXList.FormDestroy(Sender: TObject);
+begin
+  frmCICXList:=nil;
+end;
+
+procedure TfrmCICXList.FormClose(Sender: TObject;
+  var Action: TCloseAction);
+begin
+  Action:=caFree;
+end;
+
+procedure TfrmCICXList.TBCloseClick(Sender: TObject);
+begin
+  Close;
+  WriteCxGrid('CIList',Tv1,'CI管理');
+end;
+
+procedure TfrmCICXList.InitGrid();
+var
+  fsj:String;
+begin
+  try
+    ADOQueryMain.DisableControls;
+    with ADOQueryMain do
+    begin
+      Filtered:=False;
+      Close;
+      sql.Clear;
+      sql.Add('select AA.* from (');
+      sql.Add(' select A.*,ConNO=dbo.F_Get_Order_SubStr(A.CIID,''CIConNO'') ');
+      sql.Add(',PS=(select Sum(CSPS) from JYOrder_CI_Sub CS where CS.CIID=A.CIID)');
+      sql.Add(',Qty=(select Sum(CSQty) from JYOrder_CI_Sub CS where CS.CIID=A.CIID)');
+      sql.Add(',QtyUnit=(select Top 1 CSQtyUnit from JYOrder_CI_Sub CS where CS.CIID=A.CIID)');
+      SQL.Add(' from JYOrder_CI A');
+      sql.Add(' ) AA');
+      sql.Add(' where 1=1 ');
+      {if Trim(canshu1)<>'高权限' then
+      begin
+        sql.Add('and (Filler in(select UserName from  SY_User where DPID in');
+        sql.Add('              (select DPID from SY_User where UserName='''+Trim(DName)+'''))');
+      end;}
+      if CheckBox1.Checked=True then
+      begin
+        fsj:=TA(ComboBox2.Items.Objects[ComboBox2.Items.IndexOf(Trim(ComboBox2.Text))]).S;
+        sql.Add(' and AA.'+Trim(fsj)+'>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.Date))+'''');
+        sql.Add(' and AA.'+Trim(fsj)+'<'''+Trim(FormatDateTime('yyyy-MM-dd',EndDate.Date+1))+'''');
+      end else
+      begin
+        sql.Add(' and isnull(YSMoney,0)<>0');
+      end;
+
+      Open;
+    end;
+    SCreateCDS20(ADOQueryMain,Order_Main);
+    SInitCDSData20(ADOQueryMain,Order_Main);
+  finally
+    ADOQueryMain.EnableControls;
+  end;
+
+end;
+
+procedure TfrmCICXList.InitForm();
+begin
+  FNowDate:=SGetServerDate(ADOQueryTemp);
+  EndDate.Date:=FNowDate;
+  BegDate.Date:=EndDate.Date-7;
+  ReadCxGrid('CIList',Tv1,'CI管理');
+  //InitGrid();
+end;
+
+function TfrmCICXList.DelData():Boolean;
+begin
+  try
+    Result:=false;
+    ADOQueryCmd.Connection.BeginTrans;
+    with ADOQueryCmd do
+    begin
+      Close;
+      sql.Clear;
+      sql.Add('delete JYOrder_CI  where CIId='''+Trim(Order_Main.fieldbyname('CIId').AsString)+'''');
+      sql.Add('delete JYOrder_CI_Sub  where CIId='''+Trim(Order_Main.fieldbyname('CIId').AsString)+'''');
+      ExecSQL;
+    end;
+    ADOQueryCmd.Connection.CommitTrans;
+    Result:=True;
+  except
+    ADOQueryCmd.Connection.RollbackTrans;
+    Result:=False;
+    Application.MessageBox('数据删除异常！','提示',0);
+  end;
+end;
+
+procedure TfrmCICXList.TBExportClick(Sender: TObject);
+begin
+  if Order_Main.IsEmpty then Exit;
+  TcxGridToExcel('应收款查询',cxGrid1);
+end;
+
+procedure TfrmCICXList.TBRafreshClick(Sender: TObject);
+begin
+  InitGrid();
+end;
+
+procedure TfrmCICXList.FormShow(Sender: TObject);
+var
+  i:Integer;
+begin
+  InitForm();
+  SInitComBoxByTvColumns(ComboBox2,Tv1,999,True,True);
+end;
+
+procedure TfrmCICXList.cxPageControl1Change(Sender: TObject);
+begin
+  InitGrid();
+end;
+
+procedure TfrmCICXList.ToolButton3Click(Sender: TObject);
+begin
+  try
+    frmModuleNote:=TfrmModuleNote.Create(Application);
+    with frmModuleNote do
+    begin
+      flag:='应收款查询';
+      if ShowModal=1 then
+      begin
+
+      end;
+    end;
+  finally
+    frmModuleNote.Free;
+  end;
+end;
+
+procedure TfrmCICXList.FormCreate(Sender: TObject);
+begin
+  canshu1:=Trim(DParameters1);
+  canshu2:=Trim(DParameters2);
+end;
+
+procedure TfrmCICXList.InitGridWsql(fsj:string);
+begin
+  try
+    ADOQueryMain.DisableControls;
+    with ADOQueryMain do
+    begin
+      Filtered:=False;
+      Close;
+      sql.Clear;
+      sql.Add('select AA.* from (');
+      sql.Add(' select A.*,ConNO=dbo.F_Get_Order_SubStr(A.CIID,''CIConNO'') ');
+      sql.Add(',PS=(select Sum(CSPS) from JYOrder_CI_Sub CS where CS.CIID=A.CIID)');
+      sql.Add(',Qty=(select Sum(CSQty) from JYOrder_CI_Sub CS where CS.CIID=A.CIID)');
+      sql.Add(',QtyUnit=(select Top 1 CSQtyUnit from JYOrder_CI_Sub CS where CS.CIID=A.CIID)');
+      SQL.Add(' from JYOrder_CI A');
+     // sql.Add(' inner join JYOrderCon_Main C on A.PIMainId=C.MainId');
+      sql.Add(' ) AA');
+      sql.Add(' where 1=1 ');
+      {if Trim(canshu1)<>'高权限' then
+      begin
+        sql.Add('and (Filler in(select UserName from  SY_User where DPID in');
+        sql.Add('              (select DPID from SY_User where UserName='''+Trim(DName)+'''))');
+      end; }
+      sql.Add(fsj);
+      Open;
+    end;
+    SCreateCDS20(ADOQueryMain,Order_Main);
+    SInitCDSData20(ADOQueryMain,Order_Main);
+  finally
+    ADOQueryMain.EnableControls;
+  end;
+end;
+function TfrmCICXList.SaveData():Boolean;
+var
+  maxno,maxSubNo:String;
+begin
+  try
+    Result:=False;
+    ADOQueryCmd.Connection.BeginTrans;
+    //保存主表
+    if Trim(Order_Main.fieldbyname('MRID').AsString)='' then
+    begin
+      if GetLSNo(ADOQueryCmd,maxno,'MR','Module_Prompt_Result',4,1)=False then
+      begin
+        ADOQueryCmd.Connection.RollbackTrans;
+        Application.MessageBox('取工作子流水号失败!','提示',0);
+        Exit;
+      end;
+    end else
+    begin
+      maxno:=Trim(Order_Main.fieldbyname('MRID').AsString);
+    end;
+    with ADOQueryCmd do
+    begin
+      Close;
+      sql.Clear;
+      SQL.Add('select * from Module_Prompt_Result where MRId='''+Trim(Order_Main.fieldbyname('MRID').AsString)+'''');
+      Open;
+    end;
+    with ADOQueryCmd do
+    begin
+      if Trim(Order_Main.fieldbyname('MRID').AsString)='' then
+      begin
+        Append;
+      end
+      else begin
+        Edit;
+      end;
+      FieldByName('MPId').Value:=Trim(Order_Main.fieldbyname('MPId').AsString);
+      FieldByName('MRId').Value:=Trim(maxno);
+      FieldByName('MRStatus').Value:='已处理';
+      FieldByName('MRDate').Value:=SGetServerDateTime(ADOQueryTemp);
+      if Trim(Order_Main.fieldbyname('MRId').AsString)='' then
+      begin
+        FieldByName('Filler').Value:=Trim(DName);
+      end else
+      begin
+        FieldByName('Editer').Value:=Trim(DName);
+        FieldByName('EditTime').Value:=SGetServerDateTime(ADOQueryTemp);
+      end;
+      Post;
+    end;
+    ADOQueryCmd.Connection.CommitTrans;
+    Result:=True;
+  except
+    Result:=False;
+    ADOQueryCmd.Connection.RollbackTrans;
+    Application.MessageBox('保存失败！','提示',0);
+  end;
+end;
+procedure TfrmCICXList.cxTabControl1Change(Sender: TObject);
+begin
+  InitGrid();
+end;
+
+procedure TfrmCICXList.WorkerChange(Sender: TObject);
+begin
+  if ADOQueryMain.Active=False then Exit;
+  SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2));
+  SCreateCDS20(ADOQueryMain,Order_Main);
+  SInitCDSData20(ADOQueryMain,Order_Main);
+end;
+
+procedure TfrmCICXList.v1Column15CustomDrawCell(
+  Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;
+  AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
+var
+  Id,Id10:Integer;
+begin
+  Id:=TV1.GetColumnByFieldName('YuJinagDate1').Index;//
+  Id10:=TV1.GetColumnByFieldName('MoneyKC').Index;
+  if Id<0 then Exit;
+  //$008000FF 橙红色    橙色 $000D55FF   $00B9EE9F  浅绿
+  if AViewInfo.GridRecord.Values[Id10]>0 then
+  begin
+    if AViewInfo.GridRecord.Values[Id]-FNowDate<=0 then
+    begin
+      ACanvas.Brush.Color:=clYellow;
+    end  else
+    if AViewInfo.GridRecord.Values[Id]=null then
+    begin
+     // ACanvas.Brush.Color:=clWhite;
+    end;
+  end else
+  begin
+    //ACanvas.Brush.Color:=clWhite;
+  end;
+
+end;
+
+procedure TfrmCICXList.v1Column9CustomDrawCell(
+  Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;
+  AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
+var
+  Id,Id10:Integer;
+begin
+  Id:=TV1.GetColumnByFieldName('YuJinagDate2').Index;//
+  Id10:=TV1.GetColumnByFieldName('MoneyKC').Index;
+  if Id<0 then Exit;
+  //$008000FF 橙红色    橙色 $000D55FF   $00B9EE9F  浅绿
+  if AViewInfo.GridRecord.Values[Id10]>0 then
+  begin
+    if AViewInfo.GridRecord.Values[Id]-FNowDate<=0 then
+    begin
+      ACanvas.Brush.Color:=clRed;
+    end  else
+    if AViewInfo.GridRecord.Values[Id]=null then
+    begin
+      //ACanvas.Brush.Color:=clWhite;
+    end;
+  end else
+  begin
+    //ACanvas.Brush.Color:=clWhite;
+  end;
+
+end;
+
+procedure TfrmCICXList.ToolButton1Click(Sender: TObject);
+begin
+  if ADOQueryMain.Active=False then Exit;
+  SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2));
+  SCreateCDS20(ADOQueryMain,Order_Main);
+  SInitCDSData20(ADOQueryMain,Order_Main);
+end;
+
+procedure TfrmCICXList.ToolButton4Click(Sender: TObject);
+var
+  fPrintFile:String;
+begin
+  if Order_Main.IsEmpty then Exit;
+  if Order_Main.Locate('SSel',True,[])=False then
+  begin
+    Application.MessageBox('没有选择数据！','提示',0);
+    Exit;
+  end;
+  fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\检验指示单标签.rmf' ;
+  Order_Main.DisableControls;
+  with Order_Main do
+  begin
+    First;
+    while not eof do
+    begin
+      if Order_Main.FieldByName('SSel').AsBoolean=True then
+      begin
+        {with ADOQueryTemp do
+        begin
+          Close;
+          sql.Clear;
+          sql.Add('select * from JYOrder_Main_MD where MDID='''+Trim(Order_Main.fieldbyname('MDID').AsString)+'''');
+          Open;
+        end;
+        if ADOQueryTemp.FieldByName('NotPrint').AsBoolean=True then
+        begin
+          Order_Main.EnableControls;
+          Application.MessageBox('不能打印《不打印》的缸条码!','提示',0);
+          Exit;
+        end;  }
+        if FileExists(fPrintFile) then
+        begin
+          with ADOQueryPrint do
+          begin
+            Close;
+            sql.Clear;
+            sql.Add('select B.OrderNo,B.MPRTCodeName,B.MPRTMF,B.MPRTKZ,C.PRTHX,C.PRTColorNo,C.PRTColor,GangNo=A.GangNo,A.PS,A.Qty,A.QtyUnit,A.MDID ');
+            SQL.Add(',B.MPRTCode,B.MPRTGY,C.PRTColorEng,A.SelfGangNo');
+            sql.Add('from JYOrder_Main_MD A');
+            sql.Add('inner join JYOrder_Main B on A.OrdMainid=B.Mainid');
+            sql.Add(' inner join JYOrder_Sub C on A.OrdSubid=C.SubId');
+            sql.Add(' where A.MDID='''+Trim(Order_Main.fieldbyname('MDID').AsString)+'''');
+            Open;
+          end;
+          RM1.LoadFromFile(fPrintFile);
+          //RM1.ShowReport;
+          RM1.PrintReport;
+        end else
+        begin
+          Order_Main.DisableControls;
+          Application.MessageBox(PChar('没有找'+ExtractFilePath(Application.ExeName)+'Report\检验指示单标签.rmf'),'提示',0);
+          Exit;
+        end;
+      end;
+
+      Next;
+    end;
+  end;
+  Order_Main.EnableControls;
+end;
+
+procedure TfrmCICXList.CINOKeyPress(Sender: TObject; var Key: Char);
+var
+  fsj:String;
+begin
+  if Length(Trim(CINO.Text))<3 then Exit;
+  fsj:=' and AA.CINO like '''+'%'+Trim(CINO.Text)+'%'+'''';
+  InitGridWsql(fsj);
+end;
+
+procedure TfrmCICXList.ConNoKeyPress(Sender: TObject; var Key: Char);
+var
+  fsj:String;
+begin
+  if Length(Trim(ConNo.Text))<3 then Exit;
+  fsj:=' and AA.ConNo like '''+'%'+Trim(ConNo.Text)+'%'+'''';
+  InitGridWsql(fsj);
+end;
+
+
+procedure TfrmCICXList.Tv1CellClick(Sender: TcxCustomGridTableView;
+  ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
+  AShift: TShiftState; var AHandled: Boolean);
+begin
+  with ADOQueryTemp do
+  begin
+    Close;
+    sql.Clear;
+    sql.Add(' select YS.CRTime,YS.BZType,YS.Money,FP.* ');
+    sql.Add(' from SK_Money_FP FP');
+    sql.Add(' inner join YF_Money_CR YS on FP.YFID=YS.YFID');
+    sql.Add(' where FP.WBID='''+Trim(Order_Main.fieldbyname('CIId').AsString)+'''');
+    sql.Add(' and isnull(FPType,'''')<>''CI定金'' ');
+    Open;
+  end;
+  SCreateCDS20(ADOQueryTemp,ClientDataSet2);
+  SInitCDSData20(ADOQueryTemp,ClientDataSet2);
+  with ADOQueryTemp do
+  begin
+    Close;
+    sql.Clear;
+    sql.Add(' select YS.PriceUnit,YS.DJMoney,FP.* ');
+    sql.Add(' from SK_Money_FP FP');
+    sql.Add(' inner join JYOrderCon_Sub YS on FP.YFID=YS.SubId');
+    sql.Add(' where FP.WBID='''+Trim(Order_Main.fieldbyname('CIID').AsString)+'''');
+    sql.Add(' and FPType=''CI定金'' ');
+    Open;
+  end;
+  SCreateCDS20(ADOQueryTemp,ClientDataSet3);
+  SInitCDSData20(ADOQueryTemp,ClientDataSet3);
+end;
+
+procedure TfrmCICXList.ToolButton2Click(Sender: TObject);
+begin
+  if Order_Main.IsEmpty then Exit;
+  {if Trim(DName)<>Trim(Order_Main.fieldbyname('Filler').AsString) then
+  begin
+    Application.MessageBox('不能操作他人的信息!','提示',0);
+    Exit;
+  end; }
+  try
+    frmCIInPut:=TfrmCIInPut.Create(Application);
+    with frmCIInPut do
+    begin
+      PState:=1;
+      FMainId:=Trim(Self.Order_Main.fieldbyname('CIID').AsString);
+      TBSave.Visible:=False;
+      ToolBar2.Visible:=False;
+      if ShowModal=1 then
+      begin
+
+      end;
+    end;
+  finally
+    frmCIInPut.Free;
+  end;
+end;
+
+procedure TfrmCICXList.CheckBox1Click(Sender: TObject);
+begin
+  InitGrid();
+end;
+
+end.

坯布码单待检(PBMDDJ.dll)/U_CIInPut.dfm

@@ -0,0 +1,456 @@
+object frmCIInPut: TfrmCIInPut
+  Left = 100
+  Top = 77
+  Width = 1029
+  Height = 591
+  Align = alClient
+  Caption = 'CI'#24405#20837
+  Color = clBtnFace
+  Font.Charset = GB2312_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -12
+  Font.Name = #23435#20307
+  Font.Style = []
+  OldCreateOrder = False
+  Position = poScreenCenter
+  OnShow = FormShow
+  PixelsPerInch = 96
+  TextHeight = 12
+  object ToolBar1: TToolBar
+    Left = 0
+    Top = 0
+    Width = 1013
+    Height = 29
+    ButtonHeight = 30
+    ButtonWidth = 59
+    Caption = 'ToolBar1'
+    EdgeInner = esNone
+    EdgeOuter = esNone
+    Flat = True
+    Font.Charset = GB2312_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -12
+    Font.Name = #23435#20307
+    Font.Style = []
+    Images = DataLink_DDMD.ThreeImgList
+    List = True
+    ParentFont = False
+    ShowCaptions = True
+    TabOrder = 0
+    object TBSave: TToolButton
+      Left = 0
+      Top = 0
+      AutoSize = True
+      Caption = #20445#23384
+      ImageIndex = 5
+      OnClick = TBSaveClick
+    end
+    object TBClose: TToolButton
+      Left = 63
+      Top = 0
+      AutoSize = True
+      Caption = #20851#38381
+      ImageIndex = 21
+      OnClick = TBCloseClick
+    end
+  end
+  object ScrollBox1: TScrollBox
+    Left = 0
+    Top = 29
+    Width = 1013
+    Height = 72
+    Align = alTop
+    BevelInner = bvNone
+    BevelOuter = bvNone
+    Ctl3D = False
+    ParentCtl3D = False
+    TabOrder = 1
+    object Label1: TLabel
+      Left = 36
+      Top = 12
+      Width = 78
+      Height = 12
+      Caption = #38144#21806#21457#31080#21495#65306
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label2: TLabel
+      Left = 36
+      Top = 44
+      Width = 81
+      Height = 12
+      Caption = #26085'      '#26399#65306
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label11: TLabel
+      Left = 543
+      Top = 44
+      Width = 65
+      Height = 12
+      Caption = #36153#29992#37329#39069#65306
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label15: TLabel
+      Left = 295
+      Top = 44
+      Width = 65
+      Height = 12
+      Caption = #36153#29992#21517#31216#65306
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label7: TLabel
+      Left = 295
+      Top = 12
+      Width = 67
+      Height = 12
+      Caption = #23458'    '#25143#65306
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object CINO: TEdit
+      Left = 110
+      Top = 9
+      Width = 120
+      Height = 18
+      CharCase = ecUpperCase
+      TabOrder = 0
+    end
+    object CIDate: TDateTimePicker
+      Left = 110
+      Top = 40
+      Width = 123
+      Height = 20
+      BevelInner = bvNone
+      Date = 40916.670856296290000000
+      Format = 'yyyy-MM-dd'
+      Time = 40916.670856296290000000
+      TabOrder = 1
+    end
+    object OtherFeeName: TBtnEditA
+      Left = 356
+      Top = 40
+      Width = 120
+      Height = 20
+      ReadOnly = True
+      TabOrder = 2
+      OnBtnClick = OtherFeeNameBtnClick
+    end
+    object CustomerNoName: TEdit
+      Left = 357
+      Top = 9
+      Width = 120
+      Height = 18
+      CharCase = ecUpperCase
+      ReadOnly = True
+      TabOrder = 3
+    end
+    object OtherFee: TEdit
+      Left = 605
+      Top = 41
+      Width = 120
+      Height = 18
+      CharCase = ecUpperCase
+      TabOrder = 4
+    end
+  end
+  object ToolBar2: TToolBar
+    Left = 0
+    Top = 101
+    Width = 1013
+    Height = 29
+    ButtonHeight = 30
+    ButtonWidth = 59
+    Caption = 'ToolBar1'
+    EdgeInner = esNone
+    EdgeOuter = esNone
+    Flat = True
+    Font.Charset = GB2312_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -12
+    Font.Name = #23435#20307
+    Font.Style = []
+    Images = DataLink_DDMD.ThreeImgList
+    List = True
+    ParentFont = False
+    ShowCaptions = True
+    TabOrder = 2
+    object ToolButton1: TToolButton
+      Left = 0
+      Top = 0
+      AutoSize = True
+      Caption = #22686#34892
+      ImageIndex = 12
+      OnClick = ToolButton1Click
+    end
+    object ToolButton2: TToolButton
+      Left = 63
+      Top = 0
+      AutoSize = True
+      Caption = #21024#34892
+      ImageIndex = 13
+      OnClick = ToolButton2Click
+    end
+  end
+  object cxGrid2: TcxGrid
+    Left = 0
+    Top = 130
+    Width = 1013
+    Height = 422
+    Align = alClient
+    TabOrder = 3
+    object Tv2: TcxGridDBTableView
+      OnMouseDown = Tv2MouseDown
+      NavigatorButtons.ConfirmDelete = False
+      DataController.DataSource = DataSource1
+      DataController.Summary.DefaultGroupSummaryItems = <
+        item
+          Kind = skSum
+          Position = spFooter
+        end
+        item
+          Kind = skSum
+          Position = spFooter
+        end
+        item
+          Kind = skSum
+          Position = spFooter
+          Column = v1Column11
+        end
+        item
+          Kind = skSum
+          Position = spFooter
+          Column = v1ShipDate
+        end
+        item
+          Kind = skSum
+          Position = spFooter
+        end>
+      DataController.Summary.FooterSummaryItems = <
+        item
+          Kind = skSum
+        end
+        item
+          Kind = skSum
+        end
+        item
+          Kind = skSum
+        end
+        item
+          Kind = skSum
+        end
+        item
+          Kind = skSum
+          Column = v1Column11
+        end
+        item
+          Kind = skSum
+          Column = v1ShipDate
+        end
+        item
+          Kind = skSum
+          Column = v2Column2
+        end>
+      DataController.Summary.SummaryGroups = <>
+      OptionsCustomize.ColumnFiltering = False
+      OptionsView.Footer = True
+      OptionsView.GroupByBox = False
+      OptionsView.GroupFooters = gfAlwaysVisible
+      Styles.Inactive = DataLink_DDMD.SkyBlue
+      Styles.IncSearch = DataLink_DDMD.SkyBlue
+      Styles.Selection = DataLink_DDMD.SkyBlue
+      Styles.Header = DataLink_DDMD.Default
+      object v2Column4: TcxGridDBColumn
+        Caption = #21512#21516#21495
+        DataBinding.FieldName = 'ConNO'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 68
+      end
+      object v2Column6: TcxGridDBColumn
+        Caption = #23458#25143
+        DataBinding.FieldName = 'CustomerNoName'
+        HeaderAlignmentHorz = taCenter
+        Width = 92
+      end
+      object v1Column6: TcxGridDBColumn
+        Caption = #35746#21333#21495
+        DataBinding.FieldName = 'OrderNo'
+        PropertiesClassName = 'TcxTextEditProperties'
+        Properties.Alignment.Horz = taCenter
+        Properties.Alignment.Vert = taVCenter
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 79
+      end
+      object v1Column18: TcxGridDBColumn
+        Caption = #20135#21697#32534#21495
+        DataBinding.FieldName = 'PRTCode'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 99
+      end
+      object v1Column1: TcxGridDBColumn
+        Caption = #39068#33394
+        DataBinding.FieldName = 'PRTColor'
+        HeaderAlignmentHorz = taCenter
+        HeaderGlyphAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 74
+      end
+      object v1Column9: TcxGridDBColumn
+        Caption = #33457#22411
+        DataBinding.FieldName = 'PRTHX'
+        HeaderAlignmentHorz = taCenter
+        HeaderGlyphAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 74
+      end
+      object v1Column20: TcxGridDBColumn
+        Caption = #25968#37327#21333#20301
+        DataBinding.FieldName = 'QtyUnit'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 72
+      end
+      object v1Column8: TcxGridDBColumn
+        Caption = #21457#36135#31867#22411
+        DataBinding.FieldName = 'FHType'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 73
+      end
+      object v1Column4: TcxGridDBColumn
+        Tag = 999
+        Caption = #21457#36135#26085#26399
+        DataBinding.FieldName = 'FHDate'
+        PropertiesClassName = 'TcxTextEditProperties'
+        Properties.Alignment.Horz = taCenter
+        Properties.Alignment.Vert = taVCenter
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 68
+      end
+      object v1Column11: TcxGridDBColumn
+        Caption = #21457#36135#21305#25968
+        DataBinding.FieldName = 'FHPS'
+        PropertiesClassName = 'TcxTextEditProperties'
+        Properties.Alignment.Horz = taCenter
+        Properties.Alignment.Vert = taVCenter
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 65
+      end
+      object v1ShipDate: TcxGridDBColumn
+        Caption = #21457#36135#25968#37327
+        DataBinding.FieldName = 'FHQty'
+        PropertiesClassName = 'TcxTextEditProperties'
+        Properties.Alignment.Horz = taCenter
+        Properties.Alignment.Vert = taVCenter
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Styles.Header = DataLink_DDMD.Default
+        Width = 70
+      end
+      object v2Column3: TcxGridDBColumn
+        Caption = #24065#31181
+        DataBinding.FieldName = 'PriceUnit'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 48
+      end
+      object v2Column1: TcxGridDBColumn
+        Caption = #21333#20215
+        DataBinding.FieldName = 'CSPrice'
+        PropertiesClassName = 'TcxTextEditProperties'
+        Properties.OnEditValueChanged = v2Column1PropertiesEditValueChanged
+        HeaderAlignmentHorz = taCenter
+        Width = 61
+      end
+      object v2Column2: TcxGridDBColumn
+        Caption = #37329#39069
+        DataBinding.FieldName = 'CSMoney'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 74
+      end
+      object v2Column5: TcxGridDBColumn
+        Caption = #25187#27454#37329#39069
+        DataBinding.FieldName = 'SKKMoney'
+        HeaderAlignmentHorz = taCenter
+        Width = 69
+      end
+    end
+    object cxGrid2Level1: TcxGridLevel
+      GridView = Tv2
+    end
+  end
+  object ADOTemp: TADOQuery
+    Connection = DataLink_DDMD.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 598
+    Top = 3
+  end
+  object ADOCmd: TADOQuery
+    Connection = DataLink_DDMD.ADOLink
+    Parameters = <>
+    Left = 519
+    Top = 1
+  end
+  object DataSource1: TDataSource
+    DataSet = Order_Sub
+    Left = 434
+    Top = 394
+  end
+  object Order_Sub: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 467
+    Top = 394
+  end
+  object DataSource2: TDataSource
+    DataSet = ADOZDY
+    Left = 240
+  end
+  object ADOZDY: TADOQuery
+    Connection = DataLink_DDMD.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 280
+    Top = 65533
+  end
+  object CDS_ZDY: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 208
+  end
+  object ADOQuery1: TADOQuery
+    Connection = DataLink_DDMD.ADOLink
+    Parameters = <>
+    Left = 560
+    Top = 1
+  end
+end

坯布码单待检(PBMDDJ.dll)/U_CIInPut.pas

@@ -0,0 +1,477 @@
+unit U_CIInPut;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData,
+  cxDataStorage, cxEdit, DB, cxDBData, cxGridLevel, cxGridCustomTableView,
+  cxGridTableView, cxGridDBTableView, cxClasses, cxControls,
+  cxGridCustomView, cxGrid, cxMemo, cxRichEdit, ComCtrls, cxContainer,
+  cxTextEdit, cxMaskEdit, cxButtonEdit, StdCtrls, ToolWin, DBClient, ADODB,
+  ExtCtrls, BtnEdit, cxDropDownEdit;
+
+type
+  TfrmCIInPut = class(TForm)
+    ToolBar1: TToolBar;
+    TBSave: TToolButton;
+    TBClose: TToolButton;
+    ScrollBox1: TScrollBox;
+    Label1: TLabel;
+    CINO: TEdit;
+    ToolBar2: TToolBar;
+    ToolButton1: TToolButton;
+    ToolButton2: TToolButton;
+    ADOTemp: TADOQuery;
+    ADOCmd: TADOQuery;
+    DataSource1: TDataSource;
+    Order_Sub: TClientDataSet;
+    DataSource2: TDataSource;
+    ADOZDY: TADOQuery;
+    CDS_ZDY: TClientDataSet;
+    ADOQuery1: TADOQuery;
+    Label2: TLabel;
+    CIDate: TDateTimePicker;
+    Label11: TLabel;
+    Label15: TLabel;
+    OtherFeeName: TBtnEditA;
+    CustomerNoName: TEdit;
+    Label7: TLabel;
+    OtherFee: TEdit;
+    cxGrid2: TcxGrid;
+    Tv2: TcxGridDBTableView;
+    v1Column6: TcxGridDBColumn;
+    v1Column18: TcxGridDBColumn;
+    v1Column1: TcxGridDBColumn;
+    v1Column9: TcxGridDBColumn;
+    v1Column20: TcxGridDBColumn;
+    v1Column8: TcxGridDBColumn;
+    v1Column4: TcxGridDBColumn;
+    v1Column11: TcxGridDBColumn;
+    v1ShipDate: TcxGridDBColumn;
+    v2Column1: TcxGridDBColumn;
+    v2Column2: TcxGridDBColumn;
+    v2Column3: TcxGridDBColumn;
+    cxGrid2Level1: TcxGridLevel;
+    v2Column4: TcxGridDBColumn;
+    v2Column5: TcxGridDBColumn;
+    v2Column6: TcxGridDBColumn;
+    procedure TBCloseClick(Sender: TObject);
+    procedure FormShow(Sender: TObject);
+    procedure TBSaveClick(Sender: TObject);
+    procedure ToolButton2Click(Sender: TObject);
+    procedure OtherFeeNameBtnClick(Sender: TObject);
+    procedure ToolButton1Click(Sender: TObject);
+    procedure v2Column1PropertiesEditValueChanged(Sender: TObject);
+    procedure Tv2MouseDown(Sender: TObject; Button: TMouseButton;
+      Shift: TShiftState; X, Y: Integer);
+  private
+    FXS:Integer;
+    procedure InitData();
+    procedure ZDYHelp(FButn:TcxButtonEdit;LType:string);
+    function  SaveData():Boolean;
+    { Private declarations }
+  public
+    PState,PCopyInt:Integer;
+    FMainId,FConNo,FConType:String;
+
+    { Public declarations }
+  end;
+
+var
+  frmCIInPut: TfrmCIInPut;
+
+implementation
+uses
+  U_DataLink,U_ZDYHelp,U_RTFun,U_GYSList,U_ZDYHelpSel,U_FHOKSelList;
+
+{$R *.dfm}
+
+procedure TfrmCIInPut.TBCloseClick(Sender: TObject);
+begin
+  Close;
+end;
+
+procedure TfrmCIInPut.InitData();
+begin
+  with ADOQuery1 do
+  begin
+    Close;
+    SQL.Clear;
+    sql.Add(' select A.CIID,A.CINO,A.CIDate,A.OtherFeeName,A.OtherFee, ');
+    sql.Add(' B.CSID,C.ConNo,C.CustomerNoName,C.CustomerNo,D.FHQty,D.FHPS,D.FHDate,D.FHType,D.QtyUnit,');
+    sql.Add(' E.OrderNo,PRTCode=isnull(E.MPRTCode,'''')+isnull(E.MPRTGY,''''),');
+    sql.Add(' PRTColor=isnull(F.PRTColorNo,'''')+'' ''+isnull(F.PRTColor,'''')+'' ''+isnull(F.PRTColorEng,''''), ');
+    sql.Add(' F.PRTHX,G.PriceUnit,G.PRTPrice,FHMoney=G.PRTPrice*D.FHQty,PIMainId=G.MainId,PISubId=G.SubId,');
+    sql.Add(' F.MainId,F.SubId,D.FHID,B.CSPrice,B.CSMoney,B.SKKMoney');
+    sql.Add(' from JYOrder_CI A');
+    sql.Add(' inner join JYOrder_CI_Sub B on A.CIId=B.CIId');
+    sql.Add(' inner join JYOrder_FH D on B.FHID=D.FHID');
+    sql.Add(' inner join JYOrder_Main E on D.MainId=E.MainId');
+    sql.Add(' inner join JYOrder_Sub F on D.SubId=F.SubId');
+    sql.Add(' inner join JYOrderCon_Sub G on F.PISubId=G.SubId');
+    sql.Add(' inner join JYOrderCon_Main C on G.Mainid=C.MainId');
+    sql.Add(' where A.CIID='''+Trim(FMainId)+'''');
+    Open;
+  end;
+  SCreateCDS20(ADOQuery1,Order_Sub);
+  SInitCDSData20(ADOQuery1,Order_Sub);
+  SCSHDataNew(ADOQuery1,ScrollBox1,0);
+  if PState=0 then
+  begin
+    CIDate.DateTime:=Now;
+  end;
+end;
+
+procedure TfrmCIInPut.ZDYHelp(FButn:TcxButtonEdit;LType:string);
+begin
+end;
+
+procedure TfrmCIInPut.FormShow(Sender: TObject);
+begin
+  InitData();
+end;
+
+function TfrmCIInPut.SaveData():Boolean;
+var
+  maxno,maxSubNo:String;
+begin
+  try
+    Result:=False;
+    ADOCmd.Connection.BeginTrans;
+    //保存主表
+    if Trim(FMainId)='' then
+    begin
+      if GetLSNo(ADOCmd,maxno,'CI','JYOrder_CI',3,1)=False then
+      begin
+        ADOCmd.Connection.RollbackTrans;
+        Application.MessageBox('取流水号失败!','提示',0);
+        Exit;
+      end;
+    end else
+    begin
+      maxno:=Trim(FMainId);
+    end;
+    with ADOCmd do
+    begin
+      Close;
+      sql.Clear;
+      SQL.Add('select * from JYOrder_CI where CIID='''+Trim(FMainId)+'''');
+      Open;
+    end;
+    with ADOCmd do
+    begin
+      if Trim(FMainId)='' then
+      begin
+        Append;
+      end
+      else begin
+        Edit;
+      end;
+      FieldByName('CIID').Value:=Trim(maxno);
+      FieldByName('CINO').Value:=Trim(CINO.Text);
+      FieldByName('CIDate').Value:=Trim(FormatDateTime('yyyy-MM-dd',CIDate.Date));
+      FieldByName('OtherFeeName').Value:=Trim(OtherFeeName.Text);
+      if Trim(OtherFee.Text)<>'' then
+        FieldByName('OtherFee').Value:=Trim(OtherFee.Text)
+      else
+        FieldByName('OtherFee').Value:=Null;
+      if Trim(FMainId)='' then
+      begin
+        FieldByName('Filler').Value:=Trim(DName);
+      end else
+      begin
+        FieldByName('Editer').Value:=Trim(DName);
+        FieldByName('EditTime').Value:=SGetServerDateTime(ADOTemp);
+      end;
+      Post;
+    end;
+    with ADOTemp do
+    begin
+      Close;
+      sql.Clear;
+      sql.Add('select * from JYOrder_CI where CINO='''+Trim(CINO.Text)+'''');
+      Open;
+    end;
+    if ADOTemp.RecordCount>1 then
+    begin
+      ADOCmd.Connection.RollbackTrans;
+      Application.MessageBox('销售发票号重复!','提示',0);
+      Exit;
+    end;
+    ///保存子表
+    with Order_Sub do
+    begin
+      First;
+      while not Eof do
+      begin
+        if Trim(Order_Sub.fieldbyname('CSId').AsString)='' then
+        begin
+          if GetLSNo(ADOCmd,maxSubNo,'CS','JYOrder_CI_Sub',4,1)=False then
+          begin
+            ADOCmd.Connection.RollbackTrans;
+            Application.MessageBox('生成明细表流水号异常！','提示',0);
+            exit;
+          end;
+        end else
+        begin
+          maxSubNo:=Trim(Order_Sub.fieldbyname('CSId').AsString);
+        end;
+        with ADOCmd do
+        begin
+          Close;
+          SQL.Clear;
+          sql.Add('select * from JYOrder_CI_Sub where ');
+          sql.Add('  CSId='''+Trim(maxSubNo)+'''');
+          Open;
+        end;
+        with ADOCmd do
+        begin
+          if Trim(Order_Sub.fieldbyname('CSId').AsString)='' then
+            Append
+          else
+            Edit;
+          FieldByName('CIID').Value:=Trim(maxno);
+          FieldByName('CSId').Value:=Trim(maxSubNo);
+          FieldByName('PIMainId').Value:=Order_Sub.fieldbyname('PIMainId').Value;
+          FieldByName('PISubId').Value:=Order_Sub.fieldbyname('PISubId').Value;
+          FieldByName('FHID').Value:=Order_Sub.fieldbyname('FHID').Value;
+          FieldByName('CSBZType').Value:=Order_Sub.fieldbyname('PriceUnit').Value;
+          FieldByName('CSQtyUnit').Value:=Order_Sub.fieldbyname('QtyUnit').Value;
+          FieldByName('CSPrice').Value:=Order_Sub.fieldbyname('CSPrice').Value;
+          FieldByName('CSPS').Value:=Order_Sub.fieldbyname('FHPS').Value;
+          FieldByName('CSQty').Value:=Order_Sub.fieldbyname('FHQty').Value;
+          FieldByName('CSMoney').Value:=Order_Sub.fieldbyname('CSMoney').Value;
+          FieldByName('SKKMoney').Value:=Order_Sub.fieldbyname('SKKMoney').Value;
+          Post;
+        end;
+        
+        Order_Sub.Edit;
+        Order_Sub.FieldByName('CSId').Value:=Trim(maxSubNo);
+        Next;
+      end;
+    end;
+    with ADOCmd do
+    begin
+      Close;
+      sql.Clear;
+      sql.Add('Update JYOrder_CI Set CustomerNoName='''+Trim(Order_Sub.fieldbyname('CustomerNoName').AsString)+''''); //
+      sql.Add(',CustomerNo='''+Trim(Order_Sub.fieldbyname('CustomerNo').AsString)+''''); //
+      sql.Add(',FHMoney=(select Sum(CSMoney) from JYOrder_CI_Sub CS where CS.CIID=JYOrder_CI.CIID)');
+      sql.Add(',KKMoney=(select Sum(SKKMoney) from JYOrder_CI_Sub CS where CS.CIID=JYOrder_CI.CIID)');
+      sql.Add(',BZType='''+Trim(Order_Sub.fieldbyname('PriceUnit').AsString)+'''');
+      sql.Add(' where CIID='''+Trim(maxno)+'''');
+      ExecSQL;
+    end;
+    with ADOCmd do
+    begin
+      Close;
+      sql.Clear;
+      sql.Add('Update JYOrder_CI Set YSMoney=isnull(FHMoney,0)+isnull(OtherFee,0)+isnull(KKMoney,0)-isnull(DJMoney,0)');
+      sql.Add('-isnull(YKMoney,0)-isnull(QKMoney,0)-isnull(YJMoney,0)');
+      sql.Add(' where CIID='''+Trim(maxno)+'''');
+      ExecSQL;
+    end;
+    ADOCmd.Connection.CommitTrans;
+    FMainId:=Trim(maxno);
+    Result:=True;
+  except
+    Result:=False;
+    ADOCmd.Connection.RollbackTrans;
+    Application.MessageBox('保存失败！','提示',0);
+  end;
+end;
+
+procedure TfrmCIInPut.TBSaveClick(Sender: TObject);
+var
+  PIMainId:String;
+begin
+  CINO.SetFocus;
+  if Trim(CINO.Text)='' then
+  begin
+    Application.MessageBox('销售发票号不能为空！','提示',0);
+    Exit;
+  end;
+  if Order_Sub.IsEmpty then
+  begin
+    Application.MessageBox('明细不能为空！','提示',0);
+    exit;
+  end;
+  PIMainId:='';
+  Order_Sub.DisableControls;
+  with Order_Sub do
+  begin
+    First;
+    while not eof do
+    begin
+      if PIMainId='' then
+      begin
+        PIMainId:=Trim(Order_Sub.fieldbyname('CustomerNoName').AsString);
+      end else
+      begin
+        if Trim(PIMainId)<>Trim(Order_Sub.fieldbyname('CustomerNoName').AsString) then
+        begin
+          Order_Sub.EnableControls;
+          Application.MessageBox('客户不同不能保存!','提示',0);
+          Exit;
+        end;
+      end;
+      if Trim(Order_Sub.fieldbyname('SKKMoney').AsString)<>'' then
+      begin
+        if Order_Sub.fieldbyname('SKKMoney').Value>0 then
+        begin
+          Order_Sub.EnableControls;
+          Application.MessageBox('扣款金额不能为正数！','提示',0);
+          Exit;
+        end;
+      end;
+      Next;
+    end;
+  end;
+  Order_Sub.EnableControls;
+  if Application.MessageBox('确定要保存数据吗？','提示',32+4)<>IDYES then Exit;
+  if SaveData() then
+  begin
+    Application.MessageBox('保存成功！','提示',0);
+    ModalResult:=1;
+  end;
+
+end;
+
+procedure TfrmCIInPut.ToolButton2Click(Sender: TObject);
+begin
+  if Order_Sub.IsEmpty then Exit;
+  if Trim(Order_Sub.fieldbyname('CSId').AsString)<>'' then
+  begin
+    if Application.MessageBox('确定要删除数据吗？','提示',32+4)<>IDYES then Exit;
+    with ADOCmd do
+    begin
+      Close;
+      sql.Clear;
+      sql.Add('delete JYOrder_CI_Sub where CSId='''+Trim(Order_Sub.fieldbyname('CSId').AsString)+'''');
+      ExecSQL;
+    end;
+    with ADOCmd do
+    begin
+      Close;
+      sql.Clear;
+      sql.Add('Update JYOrder_CI Set ');
+      sql.Add(' FHMoney=(select Sum(CSMoney) from JYOrder_CI_Sub CS where CS.CIID=JYOrder_CI.CIID)');
+      sql.Add(' where CIID='''+Trim(FMainId)+'''');
+      ExecSQL;
+    end;
+    with ADOCmd do
+    begin
+      Close;
+      sql.Clear;
+      sql.Add('Update JYOrder_CI Set YSMoney=isnull(FHMoney,0)+isnull(OtherFee,0)-isnull(DJMoney,0)');
+      sql.Add('-isnull(YKMoney,0)-isnull(QKMoney,0)-isnull(YJMoney,0)+isnull(KKMoney,0)');
+      sql.Add(' where CIID='''+Trim(FMainId)+'''');
+      ExecSQL;
+    end;
+  end;
+  Order_Sub.Delete;
+end;
+
+procedure TfrmCIInPut.OtherFeeNameBtnClick(Sender: TObject);
+begin
+  try
+    frmZDYHelp:=TfrmZDYHelp.Create(Application);
+    with frmZDYHelp do
+    begin
+      flag:='CIOtherFeeName';
+      flagname:='其他费用名称';
+      if ShowModal=1 then
+      begin
+        OtherFeeName.Text:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString);
+      end;
+    end;
+  finally
+    frmZDYHelp.Free;
+  end;
+end;
+
+procedure TfrmCIInPut.ToolButton1Click(Sender: TObject);
+begin
+  try
+    frmFHOKSelList:=TfrmFHOKSelList.Create(Application);
+    with frmFHOKSelList do
+    begin
+      if ShowModal=1 then
+      begin
+        with frmFHOKSelList.Order_Main do
+        begin
+          First;
+          while Locate('SSel',True,[]) do
+          begin
+            with Self.Order_Sub do
+            begin
+              Append;
+              FieldByName('PIMainId').Value:=frmFHOKSelList.Order_Main.fieldbyname('PIMainId').Value;
+              FieldByName('PISubId').Value:=frmFHOKSelList.Order_Main.fieldbyname('PISubId').Value;
+              FieldByName('MainId').Value:=frmFHOKSelList.Order_Main.fieldbyname('MainId').Value;
+              FieldByName('SubId').Value:=frmFHOKSelList.Order_Main.fieldbyname('SubId').Value;
+              FieldByName('FHID').Value:=frmFHOKSelList.Order_Main.fieldbyname('FHID').Value;
+              FieldByName('OrderNo').Value:=frmFHOKSelList.Order_Main.fieldbyname('OrderNo').Value;
+              FieldByName('PRTCode').Value:=frmFHOKSelList.Order_Main.fieldbyname('PRTCode').Value;
+              FieldByName('PRTColor').Value:=frmFHOKSelList.Order_Main.fieldbyname('PRTColor').Value;
+              FieldByName('PRTHX').Value:=frmFHOKSelList.Order_Main.fieldbyname('PRTHX').Value;
+              FieldByName('QtyUnit').Value:=frmFHOKSelList.Order_Main.fieldbyname('QtyUnit').Value;
+              FieldByName('FHType').Value:=frmFHOKSelList.Order_Main.fieldbyname('FHType').Value;
+              FieldByName('FHDate').Value:=frmFHOKSelList.Order_Main.fieldbyname('FHDate').Value;
+              FieldByName('FHPS').Value:=frmFHOKSelList.Order_Main.fieldbyname('FHPS').Value;
+              FieldByName('FHQty').Value:=frmFHOKSelList.Order_Main.fieldbyname('FHQty').Value;
+              FieldByName('PriceUnit').Value:=frmFHOKSelList.Order_Main.fieldbyname('PriceUnit').Value;
+              FieldByName('CSPrice').Value:=frmFHOKSelList.Order_Main.fieldbyname('PRTPrice').Value;
+              FieldByName('CSMoney').Value:=frmFHOKSelList.Order_Main.fieldbyname('FHMoney').Value;
+              FieldByName('ConNO').Value:=frmFHOKSelList.Order_Main.fieldbyname('ConNO').Value;
+              FieldByName('CustomerNoName').Value:=frmFHOKSelList.Order_Main.fieldbyname('CustomerNoName').Value;
+              FieldByName('CustomerNo').Value:=frmFHOKSelList.Order_Main.fieldbyname('CustomerNo').Value;
+              //FieldByName('OrderNo').Value:=frmFHOKSelList.Order_Main.fieldbyname('OrderNo').Value;
+              //FieldByName('OrderNo').Value:=frmFHOKSelList.Order_Main.fieldbyname('OrderNo').Value;
+              //FieldByName('OrderNo').Value:=frmFHOKSelList.Order_Main.fieldbyname('OrderNo').Value;
+              Post;
+            end;
+            frmFHOKSelList.Order_Main.Delete;
+          end;
+        end;
+
+      end;
+    end;
+  finally
+    frmFHOKSelList.Free;
+  end;
+end;
+
+procedure TfrmCIInPut.v2Column1PropertiesEditValueChanged(Sender: TObject);
+var
+  mvalue:string;
+begin
+  mvalue:=TcxTextEdit(Sender).EditingText;
+  if Trim(mvalue)='' then mvalue:='0';
+  with Order_Sub do
+  begin
+    Edit;
+    FieldByName('CSPrice').Value:=mvalue;
+    Post;
+  end;
+  with Order_Sub do
+  begin
+    Edit;
+    FieldByName('CSMoney').Value:=FieldByName('CSPrice').Value*FieldByName('FHQty').Value;
+  end;
+end;
+
+procedure TfrmCIInPut.Tv2MouseDown(Sender: TObject; Button: TMouseButton;
+  Shift: TShiftState; X, Y: Integer);
+begin
+  if Trim(DParameters1)='高权限' then
+  begin
+    v2Column1.Options.Editing:=True;
+  end else
+  begin
+    v2Column1.Options.Editing:=False;
+  end;
+end;
+
+end.

坯布码单待检(PBMDDJ.dll)/U_CIList.dfm

@@ -0,0 +1,943 @@
+object frmCIList: TfrmCIList
+  Left = 37
+  Top = 47
+  Width = 1281
+  Height = 667
+  Caption = #38144#21806#21457#31080#21015#34920
+  Color = clBtnFace
+  Font.Charset = GB2312_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -12
+  Font.Name = #23435#20307
+  Font.Style = []
+  OldCreateOrder = False
+  OnClose = FormClose
+  OnCreate = FormCreate
+  OnDestroy = FormDestroy
+  OnShow = FormShow
+  PixelsPerInch = 96
+  TextHeight = 12
+  object ToolBar1: TToolBar
+    Left = 0
+    Top = 0
+    Width = 1265
+    AutoSize = True
+    ButtonHeight = 30
+    ButtonWidth = 83
+    Caption = 'ToolBar1'
+    Color = clSkyBlue
+    Flat = True
+    Font.Charset = GB2312_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -12
+    Font.Name = #23435#20307
+    Font.Style = []
+    Images = DataLink_DDMD.ThreeImgList
+    List = True
+    ParentColor = False
+    ParentFont = False
+    ShowCaptions = True
+    TabOrder = 0
+    object TBRafresh: TToolButton
+      Left = 0
+      Top = 0
+      AutoSize = True
+      Caption = #21047#26032
+      ImageIndex = 0
+      OnClick = TBRafreshClick
+    end
+    object ToolButton1: TToolButton
+      Left = 63
+      Top = 0
+      AutoSize = True
+      Caption = #36807#28388
+      ImageIndex = 20
+      OnClick = ToolButton1Click
+    end
+    object TBAdd: TToolButton
+      Left = 126
+      Top = 0
+      AutoSize = True
+      Caption = #26032#22686
+      ImageIndex = 1
+      OnClick = TBAddClick
+    end
+    object TBEdit: TToolButton
+      Left = 189
+      Top = 0
+      AutoSize = True
+      Caption = #20462#25913
+      ImageIndex = 11
+      OnClick = TBEditClick
+    end
+    object TBDel: TToolButton
+      Left = 252
+      Top = 0
+      AutoSize = True
+      Caption = #21024#38500
+      ImageIndex = 3
+      OnClick = TBDelClick
+    end
+    object ToolButton2: TToolButton
+      Left = 315
+      Top = 0
+      AutoSize = True
+      Caption = #26597#30475
+      ImageIndex = 55
+      OnClick = ToolButton2Click
+    end
+    object TBExport: TToolButton
+      Left = 378
+      Top = 0
+      AutoSize = True
+      Caption = #23548#20986
+      ImageIndex = 6
+      OnClick = TBExportClick
+    end
+    object ToolButton3: TToolButton
+      Left = 441
+      Top = 0
+      AutoSize = True
+      Caption = #25805#20316#35828#26126
+      ImageIndex = 41
+      OnClick = ToolButton3Click
+    end
+    object ToolButton4: TToolButton
+      Left = 528
+      Top = 0
+      AutoSize = True
+      Caption = #25171#21360
+      ImageIndex = 4
+      Visible = False
+      OnClick = ToolButton4Click
+    end
+    object TBClose: TToolButton
+      Left = 591
+      Top = 0
+      AutoSize = True
+      Caption = #20851#38381
+      ImageIndex = 21
+      OnClick = TBCloseClick
+    end
+  end
+  object Panel1: TPanel
+    Left = 0
+    Top = 32
+    Width = 1265
+    Height = 47
+    Align = alTop
+    BevelInner = bvRaised
+    BevelOuter = bvLowered
+    Color = clSkyBlue
+    TabOrder = 1
+    object Label2: TLabel
+      Left = 260
+      Top = 18
+      Width = 18
+      Height = 12
+      Caption = '---'
+    end
+    object Label8: TLabel
+      Left = 383
+      Top = 18
+      Width = 65
+      Height = 12
+      Caption = #38144#21806#21457#31080#21495
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label3: TLabel
+      Left = 30
+      Top = 18
+      Width = 13
+      Height = 12
+      Caption = #25353
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label1: TLabel
+      Left = 147
+      Top = 18
+      Width = 26
+      Height = 12
+      Caption = #26597#35810
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label5: TLabel
+      Left = 569
+      Top = 18
+      Width = 39
+      Height = 12
+      Caption = #21512#21516#21495
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label7: TLabel
+      Left = 731
+      Top = 18
+      Width = 26
+      Height = 12
+      Caption = #23458#25143
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object BegDate: TDateTimePicker
+      Left = 175
+      Top = 14
+      Width = 85
+      Height = 20
+      Date = 40675.464742650460000000
+      Format = 'yyyy-MM-dd'
+      Time = 40675.464742650460000000
+      TabOrder = 0
+    end
+    object EndDate: TDateTimePicker
+      Left = 278
+      Top = 14
+      Width = 86
+      Height = 20
+      Date = 40675.464761099540000000
+      Format = 'yyyy-MM-dd'
+      Time = 40675.464761099540000000
+      TabOrder = 1
+    end
+    object CINO: TEdit
+      Tag = 2
+      Left = 447
+      Top = 14
+      Width = 105
+      Height = 20
+      TabOrder = 2
+      OnChange = WorkerChange
+      OnKeyPress = CINOKeyPress
+    end
+    object ComboBox2: TComboBox
+      Left = 45
+      Top = 14
+      Width = 101
+      Height = 20
+      Style = csDropDownList
+      ItemHeight = 12
+      TabOrder = 3
+    end
+    object ConNo: TEdit
+      Tag = 2
+      Left = 609
+      Top = 14
+      Width = 106
+      Height = 20
+      TabOrder = 4
+      OnChange = WorkerChange
+      OnKeyPress = ConNoKeyPress
+    end
+    object CustomerNoName: TEdit
+      Tag = 2
+      Left = 758
+      Top = 14
+      Width = 109
+      Height = 20
+      TabOrder = 5
+      OnChange = WorkerChange
+    end
+  end
+  object cxGrid1: TcxGrid
+    Left = 0
+    Top = 79
+    Width = 1265
+    Height = 346
+    Align = alClient
+    TabOrder = 2
+    object Tv1: TcxGridDBTableView
+      NavigatorButtons.ConfirmDelete = False
+      OnCellClick = Tv1CellClick
+      OnFocusedRecordChanged = Tv1FocusedRecordChanged
+      DataController.DataSource = DataSource1
+      DataController.Summary.DefaultGroupSummaryItems = <
+        item
+          Kind = skSum
+          Position = spFooter
+        end
+        item
+          Kind = skSum
+          Position = spFooter
+        end
+        item
+          Kind = skSum
+          Position = spFooter
+          Column = cxGridDBColumn8
+        end
+        item
+          Kind = skSum
+          Position = spFooter
+          Column = cxGridDBColumn9
+        end
+        item
+          Kind = skSum
+          Position = spFooter
+        end>
+      DataController.Summary.FooterSummaryItems = <
+        item
+          Kind = skSum
+          Column = cxGridDBColumn6
+        end
+        item
+          Kind = skSum
+          Column = cxGridDBColumn4
+        end
+        item
+          Kind = skSum
+          Column = cxGridDBColumn7
+        end
+        item
+          Kind = skSum
+          Column = cxGridDBColumn11
+        end
+        item
+          Kind = skSum
+          Column = cxGridDBColumn8
+        end
+        item
+          Kind = skSum
+          Column = cxGridDBColumn9
+        end
+        item
+          Kind = skSum
+          Column = v1Column3
+        end>
+      DataController.Summary.SummaryGroups = <>
+      OptionsCustomize.ColumnFiltering = False
+      OptionsSelection.CellSelect = False
+      OptionsView.Footer = True
+      OptionsView.GroupByBox = False
+      OptionsView.GroupFooters = gfAlwaysVisible
+      Styles.Inactive = DataLink_DDMD.SkyBlue
+      Styles.IncSearch = DataLink_DDMD.SkyBlue
+      Styles.Selection = DataLink_DDMD.SkyBlue
+      Styles.Header = DataLink_DDMD.Default
+      object cxGridDBColumn1: TcxGridDBColumn
+        Caption = #38144#21806#21457#31080#21495
+        DataBinding.FieldName = 'CINO'
+        PropertiesClassName = 'TcxTextEditProperties'
+        Properties.Alignment.Horz = taCenter
+        Properties.Alignment.Vert = taVCenter
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 91
+      end
+      object cxGridDBColumn2: TcxGridDBColumn
+        Caption = #21512#21516#21495
+        DataBinding.FieldName = 'ConNo'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 97
+      end
+      object v1Column5: TcxGridDBColumn
+        Caption = #23458#25143
+        DataBinding.FieldName = 'CustomerNoName'
+        HeaderAlignmentHorz = taCenter
+        Width = 73
+      end
+      object cxGridDBColumn3: TcxGridDBColumn
+        Tag = 999
+        Caption = #26085#26399
+        DataBinding.FieldName = 'CIDate'
+        HeaderAlignmentHorz = taCenter
+        HeaderGlyphAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 80
+      end
+      object cxGridDBColumn6: TcxGridDBColumn
+        Caption = #21305#25968
+        DataBinding.FieldName = 'PS'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 73
+      end
+      object cxGridDBColumn4: TcxGridDBColumn
+        Caption = #25968#37327
+        DataBinding.FieldName = 'Qty'
+        HeaderAlignmentHorz = taCenter
+        HeaderGlyphAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 74
+      end
+      object cxGridDBColumn5: TcxGridDBColumn
+        Caption = #25968#37327#21333#20301
+        DataBinding.FieldName = 'QtyUnit'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 65
+      end
+      object v1Column2: TcxGridDBColumn
+        Caption = #24065#31181
+        DataBinding.FieldName = 'BZType'
+        HeaderAlignmentHorz = taCenter
+        Width = 59
+      end
+      object cxGridDBColumn7: TcxGridDBColumn
+        Caption = #21457#36135#37329#39069
+        DataBinding.FieldName = 'FHMoney'
+        PropertiesClassName = 'TcxTextEditProperties'
+        Properties.Alignment.Horz = taCenter
+        Properties.Alignment.Vert = taVCenter
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 69
+      end
+      object cxGridDBColumn10: TcxGridDBColumn
+        Caption = #20854#23427#36153#29992#21517#31216
+        DataBinding.FieldName = 'OtherFeeName'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 86
+      end
+      object cxGridDBColumn11: TcxGridDBColumn
+        Caption = #20854#23427#36153#29992#37329#39069
+        DataBinding.FieldName = 'OtherFee'
+        HeaderAlignmentHorz = taCenter
+        Width = 90
+      end
+      object v1Column6: TcxGridDBColumn
+        Caption = #25187#27454
+        DataBinding.FieldName = 'KKMoney'
+        HeaderAlignmentHorz = taCenter
+        Width = 65
+      end
+      object cxGridDBColumn8: TcxGridDBColumn
+        Caption = #23450#37329
+        DataBinding.FieldName = 'DJMoney'
+        PropertiesClassName = 'TcxTextEditProperties'
+        Properties.Alignment.Horz = taCenter
+        Properties.Alignment.Vert = taVCenter
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 70
+      end
+      object cxGridDBColumn9: TcxGridDBColumn
+        Caption = #20313#27454
+        DataBinding.FieldName = 'YKMoney'
+        PropertiesClassName = 'TcxTextEditProperties'
+        Properties.Alignment.Horz = taCenter
+        Properties.Alignment.Vert = taVCenter
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Styles.Header = DataLink_DDMD.Default
+        Width = 70
+      end
+      object v1Column1: TcxGridDBColumn
+        Caption = #20840#27454
+        DataBinding.FieldName = 'QKMoney'
+        HeaderAlignmentHorz = taCenter
+        Width = 68
+      end
+      object v1Column4: TcxGridDBColumn
+        Caption = #20323#37329
+        DataBinding.FieldName = 'YJMoney'
+        HeaderAlignmentHorz = taCenter
+        Width = 69
+      end
+      object v1Column3: TcxGridDBColumn
+        Caption = #24212#25910#20313#27454
+        DataBinding.FieldName = 'YSMoney'
+        HeaderAlignmentHorz = taCenter
+        Width = 84
+      end
+    end
+    object cxGridLevel1: TcxGridLevel
+      GridView = Tv1
+    end
+  end
+  object cxSplitter1: TcxSplitter
+    Left = 0
+    Top = 425
+    Width = 1265
+    Height = 8
+    HotZoneClassName = 'TcxMediaPlayer9Style'
+    AlignSplitter = salBottom
+    Control = Panel2
+  end
+  object Panel2: TPanel
+    Left = 0
+    Top = 433
+    Width = 1265
+    Height = 195
+    Align = alBottom
+    BevelInner = bvRaised
+    BevelOuter = bvLowered
+    TabOrder = 4
+    object Label4: TLabel
+      Left = 695
+      Top = 2
+      Width = 13
+      Height = 191
+      Align = alLeft
+      Caption = #13#10#13#10#13#10#23450#13#10#13#10#37329#13#10#13#10#20998#13#10#13#10#37197
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clBlue
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label6: TLabel
+      Left = 2
+      Top = 2
+      Width = 13
+      Height = 191
+      Align = alLeft
+      Caption = #13#10#13#10#13#10#20854#13#10#13#10#23427#13#10#13#10#20998#13#10#13#10#37197
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clBlue
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Panel3: TPanel
+      Left = 15
+      Top = 2
+      Width = 49
+      Height = 191
+      Align = alLeft
+      BevelInner = bvRaised
+      BevelOuter = bvLowered
+      TabOrder = 0
+      object Button1: TButton
+        Left = 4
+        Top = 28
+        Width = 41
+        Height = 22
+        Caption = #22686#21152
+        TabOrder = 0
+        OnClick = Button1Click
+      end
+      object Button2: TButton
+        Left = 4
+        Top = 68
+        Width = 41
+        Height = 22
+        Caption = #21024#38500
+        TabOrder = 1
+        OnClick = Button2Click
+      end
+      object Button3: TButton
+        Left = 4
+        Top = 108
+        Width = 41
+        Height = 22
+        Caption = #20445#23384
+        TabOrder = 2
+        OnClick = Button3Click
+      end
+    end
+    object cxGrid2: TcxGrid
+      Left = 64
+      Top = 2
+      Width = 631
+      Height = 191
+      Align = alLeft
+      TabOrder = 1
+      object Tv2: TcxGridDBTableView
+        NavigatorButtons.ConfirmDelete = False
+        NavigatorButtons.Delete.Enabled = False
+        NavigatorButtons.Delete.Visible = False
+        DataController.DataSource = DataSource2
+        DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
+        DataController.Summary.DefaultGroupSummaryItems = <
+          item
+            Format = '0'
+            Position = spFooter
+          end
+          item
+            Format = '0'
+            Position = spFooter
+          end
+          item
+            Format = '0'
+            Position = spFooter
+          end
+          item
+            Format = '0'
+            Position = spFooter
+            Column = VYB
+          end
+          item
+            Format = '0'
+            Position = spFooter
+          end>
+        DataController.Summary.FooterSummaryItems = <
+          item
+            Kind = skSum
+            Column = cxGridDBColumn14
+          end>
+        DataController.Summary.SummaryGroups = <>
+        OptionsCustomize.ColumnFiltering = False
+        OptionsData.Deleting = False
+        OptionsData.DeletingConfirmation = False
+        OptionsView.Footer = True
+        OptionsView.GroupByBox = False
+        Styles.Inactive = DataLink_DDMD.SHuangSe
+        Styles.IncSearch = DataLink_DDMD.SHuangSe
+        Styles.Selection = DataLink_DDMD.SHuangSe
+        Styles.Header = DataLink_DDMD.Default
+        object VDate: TcxGridDBColumn
+          Tag = 2
+          Caption = #20998#37197#26085#26399
+          DataBinding.FieldName = 'FPDate'
+          PropertiesClassName = 'TcxDateEditProperties'
+          Properties.SaveTime = False
+          Properties.ShowTime = False
+          HeaderAlignmentHorz = taCenter
+          Width = 91
+        end
+        object cxGridDBColumn12: TcxGridDBColumn
+          Caption = #25910#27454#26085#26399
+          DataBinding.FieldName = 'CRTime'
+          HeaderAlignmentHorz = taCenter
+          Options.Editing = False
+          Width = 65
+        end
+        object cxGridDBColumn13: TcxGridDBColumn
+          Tag = 2
+          Caption = #24065#31181
+          DataBinding.FieldName = 'BZType'
+          PropertiesClassName = 'TcxComboBoxProperties'
+          Properties.DropDownListStyle = lsFixedList
+          Properties.Items.Strings = (
+            '$'
+            #65509
+            #8364)
+          HeaderAlignmentHorz = taCenter
+          Options.Editing = False
+          Width = 47
+        end
+        object VYB: TcxGridDBColumn
+          Tag = 2
+          Caption = #25910#27454#37329#39069
+          DataBinding.FieldName = 'Money'
+          PropertiesClassName = 'TcxTextEditProperties'
+          HeaderAlignmentHorz = taCenter
+          Options.Editing = False
+          Width = 65
+        end
+        object v2Column1: TcxGridDBColumn
+          Caption = #31867#22411
+          DataBinding.FieldName = 'FPType'
+          PropertiesClassName = 'TcxComboBoxProperties'
+          Properties.DropDownListStyle = lsFixedList
+          Properties.ImmediatePost = True
+          Properties.Items.Strings = (
+            #20313#27454
+            #20840#27454
+            #20323#37329)
+          HeaderAlignmentHorz = taCenter
+          Width = 69
+        end
+        object cxGridDBColumn14: TcxGridDBColumn
+          Caption = #20998#37197#37329#39069
+          DataBinding.FieldName = 'FPMoney'
+          PropertiesClassName = 'TcxTextEditProperties'
+          HeaderAlignmentHorz = taCenter
+          Width = 58
+        end
+        object VNote: TcxGridDBColumn
+          Tag = 2
+          Caption = #22791#27880
+          DataBinding.FieldName = 'Note'
+          PropertiesClassName = 'TcxTextEditProperties'
+          HeaderAlignmentHorz = taCenter
+          Width = 127
+        end
+      end
+      object cxGridLevel2: TcxGridLevel
+        GridView = Tv2
+      end
+    end
+    object Panel4: TPanel
+      Left = 708
+      Top = 2
+      Width = 53
+      Height = 191
+      Align = alLeft
+      BevelInner = bvRaised
+      BevelOuter = bvLowered
+      TabOrder = 2
+      object Button4: TButton
+        Left = 4
+        Top = 28
+        Width = 44
+        Height = 22
+        Caption = #22686#21152
+        TabOrder = 0
+        OnClick = Button4Click
+      end
+      object Button5: TButton
+        Left = 4
+        Top = 68
+        Width = 44
+        Height = 22
+        Caption = #21024#38500
+        TabOrder = 1
+        OnClick = Button5Click
+      end
+      object Button6: TButton
+        Left = 4
+        Top = 108
+        Width = 44
+        Height = 22
+        Caption = #20445#23384
+        TabOrder = 2
+        OnClick = Button6Click
+      end
+    end
+    object cxGrid3: TcxGrid
+      Left = 761
+      Top = 2
+      Width = 502
+      Height = 191
+      Align = alClient
+      TabOrder = 3
+      object Tv3: TcxGridDBTableView
+        NavigatorButtons.ConfirmDelete = False
+        NavigatorButtons.Delete.Enabled = False
+        NavigatorButtons.Delete.Visible = False
+        DataController.DataSource = DataSource3
+        DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
+        DataController.Summary.DefaultGroupSummaryItems = <
+          item
+            Format = '0'
+            Position = spFooter
+          end
+          item
+            Format = '0'
+            Position = spFooter
+          end
+          item
+            Format = '0'
+            Position = spFooter
+          end
+          item
+            Format = '0'
+            Position = spFooter
+            Column = cxGridDBColumn18
+          end
+          item
+            Format = '0'
+            Position = spFooter
+          end>
+        DataController.Summary.FooterSummaryItems = <
+          item
+            Kind = skSum
+            Column = cxGridDBColumn19
+          end>
+        DataController.Summary.SummaryGroups = <>
+        OptionsCustomize.ColumnFiltering = False
+        OptionsData.Deleting = False
+        OptionsData.DeletingConfirmation = False
+        OptionsView.Footer = True
+        OptionsView.GroupByBox = False
+        Styles.Inactive = DataLink_DDMD.SHuangSe
+        Styles.IncSearch = DataLink_DDMD.SHuangSe
+        Styles.Selection = DataLink_DDMD.SHuangSe
+        Styles.Header = DataLink_DDMD.Default
+        object cxGridDBColumn15: TcxGridDBColumn
+          Tag = 2
+          Caption = #20998#37197#26085#26399
+          DataBinding.FieldName = 'FPDate'
+          PropertiesClassName = 'TcxDateEditProperties'
+          Properties.SaveTime = False
+          Properties.ShowTime = False
+          HeaderAlignmentHorz = taCenter
+          Width = 110
+        end
+        object cxGridDBColumn17: TcxGridDBColumn
+          Tag = 2
+          Caption = #24065#31181
+          DataBinding.FieldName = 'PriceUnit'
+          PropertiesClassName = 'TcxComboBoxProperties'
+          Properties.DropDownListStyle = lsFixedList
+          Properties.Items.Strings = (
+            '$'
+            #65509
+            #8364)
+          HeaderAlignmentHorz = taCenter
+          Options.Editing = False
+          Width = 62
+        end
+        object cxGridDBColumn18: TcxGridDBColumn
+          Tag = 2
+          Caption = #21512#21516#23450#37329#37329#39069
+          DataBinding.FieldName = 'DJMoney'
+          PropertiesClassName = 'TcxTextEditProperties'
+          HeaderAlignmentHorz = taCenter
+          Options.Editing = False
+          Width = 89
+        end
+        object cxGridDBColumn19: TcxGridDBColumn
+          Caption = #20998#37197#23450#37329
+          DataBinding.FieldName = 'FPMoney'
+          PropertiesClassName = 'TcxTextEditProperties'
+          HeaderAlignmentHorz = taCenter
+          Width = 70
+        end
+        object cxGridDBColumn20: TcxGridDBColumn
+          Tag = 2
+          Caption = #22791#27880
+          DataBinding.FieldName = 'Note'
+          PropertiesClassName = 'TcxTextEditProperties'
+          HeaderAlignmentHorz = taCenter
+          Width = 127
+        end
+      end
+      object cxGridLevel3: TcxGridLevel
+        GridView = Tv3
+      end
+    end
+  end
+  object cxGridPopupMenu1: TcxGridPopupMenu
+    PopupMenus = <>
+    Left = 776
+    Top = 160
+  end
+  object ADOQueryCmd: TADOQuery
+    Connection = DataLink_DDMD.ADOLink
+    Parameters = <>
+    Left = 936
+  end
+  object ADOQueryMain: TADOQuery
+    Connection = DataLink_DDMD.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 1000
+  end
+  object ADOQueryTemp: TADOQuery
+    Connection = DataLink_DDMD.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 720
+    Top = 160
+  end
+  object DataSource1: TDataSource
+    DataSet = Order_Main
+    Left = 744
+    Top = 160
+  end
+  object Order_Main: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 687
+    Top = 159
+  end
+  object RM1: TRMGridReport
+    ThreadPrepareReport = True
+    InitialZoom = pzDefault
+    PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbExport, pbNavigator]
+    DefaultCollate = False
+    SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\'
+    PreviewOptions.RulerUnit = rmutScreenPixels
+    PreviewOptions.RulerVisible = False
+    PreviewOptions.DrawBorder = False
+    PreviewOptions.BorderPen.Color = clGray
+    PreviewOptions.BorderPen.Style = psDash
+    Dataset = RMDBMain
+    CompressLevel = rmzcFastest
+    CompressThread = False
+    LaterBuildEvents = True
+    OnlyOwnerDataSet = False
+    Left = 454
+    Top = 201
+    ReportData = {}
+  end
+  object RMDBMain: TRMDBDataSet
+    Visible = True
+    DataSet = ADOQueryPrint
+    Left = 392
+    Top = 200
+  end
+  object RMXLSExport1: TRMXLSExport
+    ShowAfterExport = True
+    ExportPrecision = 1
+    PagesOfSheet = 1
+    ExportImages = True
+    ExportFrames = True
+    ExportImageFormat = ifBMP
+    JPEGQuality = 0
+    ScaleX = 1.000000000000000000
+    ScaleY = 1.000000000000000000
+    CompressFile = False
+    Left = 423
+    Top = 200
+  end
+  object CDS_PRT: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 877
+    Top = 9
+  end
+  object cxGridPopupMenu2: TcxGridPopupMenu
+    Grid = cxGrid1
+    PopupMenus = <>
+    Left = 365
+    Top = 195
+  end
+  object ADOQueryPrint: TADOQuery
+    Connection = DataLink_DDMD.ADOLink
+    Parameters = <>
+    Left = 485
+    Top = 203
+  end
+  object cxGridPopupMenu3: TcxGridPopupMenu
+    PopupMenus = <>
+    Left = 549
+    Top = 459
+  end
+  object ClientDataSet3: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 807
+    Top = 503
+  end
+  object DataSource3: TDataSource
+    DataSet = ClientDataSet3
+    Left = 840
+    Top = 496
+  end
+  object DataSource2: TDataSource
+    DataSet = ClientDataSet2
+    Left = 184
+    Top = 512
+  end
+  object ClientDataSet2: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 216
+    Top = 512
+  end
+  object cxGridPopupMenu4: TcxGridPopupMenu
+    Grid = cxGrid2
+    PopupMenus = <>
+    Left = 328
+    Top = 520
+  end
+end

坯布码单待检(PBMDDJ.dll)/U_CKProductBCPInList.dfm

@@ -0,0 +1,539 @@
+object frmCKProductBCPInList: TfrmCKProductBCPInList
+  Left = 128
+  Top = 152
+  Width = 1027
+  Height = 511
+  Caption = #25104#21697#20837#24211#21015#34920
+  Color = clBtnFace
+  Font.Charset = GB2312_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -12
+  Font.Name = #23435#20307
+  Font.Style = []
+  OldCreateOrder = False
+  OnClose = FormClose
+  OnCreate = FormCreate
+  OnDestroy = FormDestroy
+  OnShow = FormShow
+  PixelsPerInch = 96
+  TextHeight = 12
+  object ToolBar1: TToolBar
+    Left = 0
+    Top = 0
+    Width = 1011
+    Height = 33
+    ButtonHeight = 30
+    ButtonWidth = 119
+    Caption = 'ToolBar1'
+    Color = clSkyBlue
+    Flat = True
+    Font.Charset = GB2312_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -12
+    Font.Name = #23435#20307
+    Font.Style = []
+    Images = DataLink_CYZZ.ThreeImgList
+    List = True
+    ParentColor = False
+    ParentFont = False
+    ShowCaptions = True
+    TabOrder = 0
+    object TBRafresh: TToolButton
+      Left = 0
+      Top = 0
+      AutoSize = True
+      Caption = #21047#26032
+      ImageIndex = 0
+      OnClick = TBRafreshClick
+    end
+    object TBFind: TToolButton
+      Left = 63
+      Top = 0
+      AutoSize = True
+      Caption = #36807#28388
+      ImageIndex = 20
+      OnClick = TBFindClick
+    end
+    object TBExport: TToolButton
+      Left = 126
+      Top = 0
+      AutoSize = True
+      Caption = #23548#20986
+      ImageIndex = 16
+      OnClick = TBExportClick
+    end
+    object TBPrint: TToolButton
+      Left = 189
+      Top = 0
+      AutoSize = True
+      Caption = #25171#21360
+      ImageIndex = 4
+      OnClick = TBPrintClick
+    end
+    object TBRKCX: TToolButton
+      Left = 252
+      Top = 0
+      AutoSize = True
+      Caption = #25764#38144#26816#39564
+      ImageIndex = 52
+      Visible = False
+      OnClick = TBRKCXClick
+    end
+    object ToolButton1: TToolButton
+      Left = 339
+      Top = 0
+      Caption = #25171#21360'('#20449#24687#20840#37096')'
+      ImageIndex = 14
+      OnClick = ToolButton1Click
+    end
+    object TBClose: TToolButton
+      Left = 458
+      Top = 0
+      AutoSize = True
+      Caption = #20851#38381
+      ImageIndex = 21
+      OnClick = TBCloseClick
+    end
+  end
+  object Panel1: TPanel
+    Left = 0
+    Top = 33
+    Width = 1011
+    Height = 72
+    Align = alTop
+    BevelInner = bvRaised
+    BevelOuter = bvLowered
+    Color = clSkyBlue
+    TabOrder = 1
+    object Label3: TLabel
+      Left = 357
+      Top = 12
+      Width = 48
+      Height = 12
+      Caption = #20013#25991#21517#31216
+    end
+    object Label4: TLabel
+      Left = 526
+      Top = 12
+      Width = 24
+      Height = 12
+      Caption = #39068#33394
+    end
+    object Label1: TLabel
+      Left = 28
+      Top = 12
+      Width = 48
+      Height = 12
+      Caption = #26597#35810#26102#38388
+    end
+    object Label2: TLabel
+      Left = 64
+      Top = 36
+      Width = 12
+      Height = 12
+      Caption = #33267
+    end
+    object Label5: TLabel
+      Left = 178
+      Top = 12
+      Width = 48
+      Height = 12
+      Caption = #35746' '#21333' '#21495
+    end
+    object Label6: TLabel
+      Left = 178
+      Top = 36
+      Width = 48
+      Height = 12
+      Caption = #26465'    '#30721
+    end
+    object Label8: TLabel
+      Left = 357
+      Top = 36
+      Width = 48
+      Height = 12
+      Caption = #20811'    '#37325
+    end
+    object Label9: TLabel
+      Left = 526
+      Top = 36
+      Width = 24
+      Height = 12
+      Caption = #38376#24133
+    end
+    object Label7: TLabel
+      Left = 648
+      Top = 36
+      Width = 24
+      Height = 12
+      Caption = #31867#22411
+    end
+    object Label10: TLabel
+      Left = 650
+      Top = 12
+      Width = 24
+      Height = 12
+      Caption = #32568#21495
+    end
+    object MPRTCodeName: TEdit
+      Tag = 2
+      Left = 406
+      Top = 9
+      Width = 100
+      Height = 20
+      TabOrder = 0
+      OnChange = MPRTCodeNameChange
+    end
+    object PRTColor: TEdit
+      Tag = 2
+      Left = 550
+      Top = 9
+      Width = 65
+      Height = 20
+      TabOrder = 1
+      OnChange = MPRTCodeNameChange
+    end
+    object BegDate: TDateTimePicker
+      Left = 77
+      Top = 9
+      Width = 87
+      Height = 20
+      Date = 40768.458268587970000000
+      Time = 40768.458268587970000000
+      TabOrder = 2
+    end
+    object EndDate: TDateTimePicker
+      Left = 77
+      Top = 33
+      Width = 87
+      Height = 20
+      Date = 40768.458268587970000000
+      Time = 40768.458268587970000000
+      TabOrder = 3
+    end
+    object orderNo: TEdit
+      Tag = 2
+      Left = 228
+      Top = 9
+      Width = 109
+      Height = 20
+      TabOrder = 4
+      OnChange = orderNoChange
+      OnKeyPress = orderNoKeyPress
+    end
+    object MJID: TEdit
+      Tag = 2
+      Left = 228
+      Top = 33
+      Width = 109
+      Height = 20
+      TabOrder = 5
+      OnChange = MPRTCodeNameChange
+    end
+    object MPRTKZ: TEdit
+      Tag = 2
+      Left = 406
+      Top = 33
+      Width = 100
+      Height = 20
+      TabOrder = 6
+      OnChange = MPRTCodeNameChange
+    end
+    object MPRTMF: TEdit
+      Tag = 2
+      Left = 550
+      Top = 32
+      Width = 65
+      Height = 20
+      TabOrder = 7
+      OnChange = MPRTCodeNameChange
+    end
+    object CPType: TComboBox
+      Tag = 2
+      Left = 674
+      Top = 32
+      Width = 68
+      Height = 20
+      Style = csDropDownList
+      ItemHeight = 12
+      TabOrder = 8
+      OnChange = TBFindClick
+      Items.Strings = (
+        #27491#21697
+        #27425#21697
+        '')
+    end
+    object AOrdDefStr1: TEdit
+      Tag = 1
+      Left = 674
+      Top = 9
+      Width = 68
+      Height = 20
+      TabOrder = 9
+      OnChange = MPRTCodeNameChange
+    end
+  end
+  object cxGrid2: TcxGrid
+    Left = 0
+    Top = 105
+    Width = 1011
+    Height = 367
+    Align = alClient
+    PopupMenu = PopupMenu1
+    TabOrder = 2
+    object Tv1: TcxGridDBTableView
+      NavigatorButtons.ConfirmDelete = False
+      DataController.DataSource = DataSource1
+      DataController.Summary.DefaultGroupSummaryItems = <>
+      DataController.Summary.FooterSummaryItems = <
+        item
+          Kind = skCount
+          Column = v1Column5
+        end
+        item
+          Kind = skSum
+          Column = v2Column5
+        end
+        item
+          Kind = skSum
+          Column = v2Column6
+        end
+        item
+          Kind = skSum
+          Column = v1Column11
+        end>
+      DataController.Summary.SummaryGroups = <>
+      OptionsCustomize.ColumnFiltering = False
+      OptionsView.Footer = True
+      OptionsView.GroupByBox = False
+      Styles.Inactive = DataLink_CYZZ.SHuangSe
+      Styles.IncSearch = DataLink_CYZZ.SHuangSe
+      Styles.Selection = DataLink_CYZZ.SHuangSe
+      Styles.Header = DataLink_CYZZ.Default
+      object v1Column4: TcxGridDBColumn
+        Caption = #36873#25321
+        DataBinding.FieldName = 'SSel'
+        PropertiesClassName = 'TcxCheckBoxProperties'
+        Properties.ImmediatePost = True
+        Properties.NullStyle = nssUnchecked
+        HeaderAlignmentHorz = taCenter
+        Width = 40
+      end
+      object v1Column1: TcxGridDBColumn
+        Caption = #35746#21333#21495
+        DataBinding.FieldName = 'orderNo'
+        HeaderAlignmentHorz = taCenter
+        Options.Focusing = False
+        Width = 74
+      end
+      object v2Column1: TcxGridDBColumn
+        Caption = #20013#25991#21517#31216
+        DataBinding.FieldName = 'MPRTCodeName'
+        HeaderAlignmentHorz = taCenter
+        Options.Focusing = False
+        Width = 92
+      end
+      object v2Column3: TcxGridDBColumn
+        Caption = #39068#33394
+        DataBinding.FieldName = 'PRTColor'
+        HeaderAlignmentHorz = taCenter
+        Options.Focusing = False
+        Width = 77
+      end
+      object v1Column12: TcxGridDBColumn
+        Caption = #33457#22411
+        DataBinding.FieldName = 'PRTHX'
+        HeaderAlignmentHorz = taCenter
+        Width = 59
+      end
+      object v1Column8: TcxGridDBColumn
+        Caption = #38376#24133
+        DataBinding.FieldName = 'MPRTMF'
+        HeaderAlignmentHorz = taCenter
+        Options.Focusing = False
+        Width = 70
+      end
+      object v1Column9: TcxGridDBColumn
+        Caption = #20811#37325
+        DataBinding.FieldName = 'MPRTKZ'
+        HeaderAlignmentHorz = taCenter
+        Options.Focusing = False
+        Width = 59
+      end
+      object v1Column6: TcxGridDBColumn
+        Caption = #26465#30721
+        DataBinding.FieldName = 'MJID'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Options.Focusing = False
+        Width = 92
+      end
+      object v1Column5: TcxGridDBColumn
+        Caption = #21367#21495
+        DataBinding.FieldName = 'MJXH'
+        HeaderAlignmentHorz = taCenter
+        Options.Focusing = False
+        Width = 60
+      end
+      object v1Column3: TcxGridDBColumn
+        Caption = #31867#22411
+        DataBinding.FieldName = 'CPType'
+        HeaderAlignmentHorz = taCenter
+        Options.Focusing = False
+        Width = 63
+      end
+      object v1Column2: TcxGridDBColumn
+        Caption = #20837#24211#26102#38388
+        DataBinding.FieldName = 'CRTime'
+        HeaderAlignmentHorz = taCenter
+        Options.Focusing = False
+        Width = 107
+      end
+      object v2Column5: TcxGridDBColumn
+        Caption = #20837#24211#20844#26020#25968
+        DataBinding.FieldName = 'MJQty4'
+        HeaderAlignmentHorz = taCenter
+        Options.Focusing = False
+        Width = 83
+      end
+      object v2Column6: TcxGridDBColumn
+        Caption = #20837#24211#38271#24230
+        DataBinding.FieldName = 'Qty'
+        HeaderAlignmentHorz = taCenter
+        Options.Focusing = False
+        Width = 85
+      end
+      object v1Column7: TcxGridDBColumn
+        Caption = #38271#24230#21333#20301
+        DataBinding.FieldName = 'QtyUnit'
+        HeaderAlignmentHorz = taCenter
+        Options.Focusing = False
+        Width = 83
+      end
+      object v1Column10: TcxGridDBColumn
+        Caption = #32568#21495
+        DataBinding.FieldName = 'AOrdDefStr1'
+        HeaderAlignmentHorz = taCenter
+        Options.Focusing = False
+        Width = 55
+      end
+      object v1Column11: TcxGridDBColumn
+        Caption = #36192#36865#25968#37327
+        DataBinding.FieldName = 'MJQty2'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 64
+      end
+    end
+    object cxGrid2Level1: TcxGridLevel
+      GridView = Tv1
+    end
+  end
+  object ADOQueryCmd: TADOQuery
+    Connection = DataLink_CYZZ.ADOLink
+    Parameters = <>
+    Left = 968
+    Top = 40
+  end
+  object ADOQueryMain: TADOQuery
+    Connection = DataLink_CYZZ.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 984
+    Top = 40
+  end
+  object ADOQueryTemp: TADOQuery
+    Connection = DataLink_CYZZ.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 944
+    Top = 32
+  end
+  object DataSource1: TDataSource
+    DataSet = CDS_Main
+    Left = 920
+    Top = 152
+  end
+  object cxGridPopupMenu1: TcxGridPopupMenu
+    Grid = cxGrid2
+    PopupMenus = <>
+    Left = 888
+    Top = 144
+  end
+  object CDS_Main: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 896
+    Top = 128
+  end
+  object RM1: TRMGridReport
+    ThreadPrepareReport = True
+    InitialZoom = pzDefault
+    PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbExport, pbNavigator]
+    DefaultCollate = False
+    SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\'
+    PreviewOptions.RulerUnit = rmutScreenPixels
+    PreviewOptions.RulerVisible = False
+    PreviewOptions.DrawBorder = False
+    PreviewOptions.BorderPen.Color = clGray
+    PreviewOptions.BorderPen.Style = psDash
+    Dataset = RMDBMain
+    CompressLevel = rmzcFastest
+    CompressThread = False
+    LaterBuildEvents = True
+    OnlyOwnerDataSet = False
+    Left = 400
+    Top = 224
+    ReportData = {}
+  end
+  object RMDBMain: TRMDBDataSet
+    Visible = True
+    DataSet = CDS_PRT
+    Left = 472
+    Top = 224
+  end
+  object RMXLSExport1: TRMXLSExport
+    ShowAfterExport = True
+    ExportPrecision = 1
+    PagesOfSheet = 100
+    ExportImages = True
+    ExportFrames = True
+    ExportImageFormat = ifBMP
+    JPEGQuality = 0
+    ScaleX = 1.000000000000000000
+    ScaleY = 1.000000000000000000
+    CompressFile = False
+    Left = 432
+    Top = 224
+  end
+  object RMDBHZ: TRMDBDataSet
+    Visible = True
+    DataSet = CDS_HZ
+    Left = 600
+    Top = 224
+  end
+  object CDS_HZ: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 568
+    Top = 224
+  end
+  object CDS_PRT: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 512
+    Top = 224
+  end
+  object PopupMenu1: TPopupMenu
+    Left = 328
+    Top = 232
+    object N1: TMenuItem
+      Caption = #20840#36873
+      OnClick = N1Click
+    end
+    object N2: TMenuItem
+      Caption = #20840#24323
+      OnClick = N2Click
+    end
+  end
+end

坯布码单待检(PBMDDJ.dll)/U_CKProductBCPInList.pas

@@ -0,0 +1,456 @@
+unit U_CKProductBCPInList;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData,
+  cxDataStorage, cxEdit, DB, cxDBData, cxGridCustomTableView,
+  cxGridTableView, cxGridBandedTableView, cxGridDBBandedTableView,
+  cxGridLevel, cxClasses, cxControls, cxGridCustomView, cxGridDBTableView,
+  cxGrid, StdCtrls, ComCtrls, ExtCtrls, ToolWin, cxGridCustomPopupMenu,
+  cxGridPopupMenu, ADODB, DBClient, cxDropDownEdit, cxCheckBox, RM_Common,
+  RM_Class, RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, Menus;
+
+type
+  TfrmCKProductBCPInList = class(TForm)
+    ToolBar1: TToolBar;
+    TBRafresh: TToolButton;
+    TBFind: TToolButton;
+    TBExport: TToolButton;
+    TBPrint: TToolButton;
+    TBClose: TToolButton;
+    Panel1: TPanel;
+    ADOQueryCmd: TADOQuery;
+    ADOQueryMain: TADOQuery;
+    ADOQueryTemp: TADOQuery;
+    DataSource1: TDataSource;
+    cxGridPopupMenu1: TcxGridPopupMenu;
+    Label3: TLabel;
+    Label4: TLabel;
+    MPRTCodeName: TEdit;
+    PRTColor: TEdit;
+    Label1: TLabel;
+    Label2: TLabel;
+    BegDate: TDateTimePicker;
+    EndDate: TDateTimePicker;
+    CDS_Main: TClientDataSet;
+    Label5: TLabel;
+    orderNo: TEdit;
+    Label6: TLabel;
+    MJID: TEdit;
+    Label8: TLabel;
+    MPRTKZ: TEdit;
+    Label9: TLabel;
+    MPRTMF: TEdit;
+    Label7: TLabel;
+    CPType: TComboBox;
+    cxGrid2: TcxGrid;
+    Tv1: TcxGridDBTableView;
+    v1Column1: TcxGridDBColumn;
+    v2Column1: TcxGridDBColumn;
+    v2Column3: TcxGridDBColumn;
+    v1Column8: TcxGridDBColumn;
+    v1Column9: TcxGridDBColumn;
+    v1Column6: TcxGridDBColumn;
+    v1Column5: TcxGridDBColumn;
+    v1Column3: TcxGridDBColumn;
+    v1Column2: TcxGridDBColumn;
+    v2Column5: TcxGridDBColumn;
+    v2Column6: TcxGridDBColumn;
+    v1Column7: TcxGridDBColumn;
+    v1Column10: TcxGridDBColumn;
+    cxGrid2Level1: TcxGridLevel;
+    Label10: TLabel;
+    AOrdDefStr1: TEdit;
+    RM1: TRMGridReport;
+    RMDBMain: TRMDBDataSet;
+    RMXLSExport1: TRMXLSExport;
+    RMDBHZ: TRMDBDataSet;
+    CDS_HZ: TClientDataSet;
+    CDS_PRT: TClientDataSet;
+    TBRKCX: TToolButton;
+    v1Column4: TcxGridDBColumn;
+    PopupMenu1: TPopupMenu;
+    N1: TMenuItem;
+    N2: TMenuItem;
+    ToolButton1: TToolButton;
+    v1Column11: TcxGridDBColumn;
+    v1Column12: TcxGridDBColumn;
+    procedure FormDestroy(Sender: TObject);
+    procedure FormClose(Sender: TObject; var Action: TCloseAction);
+    procedure FormCreate(Sender: TObject);
+    procedure TBRafreshClick(Sender: TObject);
+    procedure ConNoMChange(Sender: TObject);
+    procedure TBCloseClick(Sender: TObject);
+    procedure FormShow(Sender: TObject);
+    procedure TBExportClick(Sender: TObject);
+    procedure TBFindClick(Sender: TObject);
+    procedure MPRTCodeNameChange(Sender: TObject);
+    procedure TBPrintClick(Sender: TObject);
+    procedure orderNoChange(Sender: TObject);
+    procedure orderNoKeyPress(Sender: TObject; var Key: Char);
+    procedure N1Click(Sender: TObject);
+    procedure N2Click(Sender: TObject);
+    procedure TBRKCXClick(Sender: TObject);
+    procedure ToolButton1Click(Sender: TObject);
+  private
+    procedure InitGrid();
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+var
+  frmCKProductBCPInList: TfrmCKProductBCPInList;
+
+implementation
+uses
+  U_DataLink,U_Fun;
+
+{$R *.dfm}
+
+procedure TfrmCKProductBCPInList.FormDestroy(Sender: TObject);
+begin
+  frmCKProductBCPInList:=nil;
+end;
+
+procedure TfrmCKProductBCPInList.FormClose(Sender: TObject;
+  var Action: TCloseAction);
+begin
+  Action:=caFree;
+end;
+
+procedure TfrmCKProductBCPInList.FormCreate(Sender: TObject);
+begin
+  //cxGrid1.Align:=alClient;
+  BegDate.DateTime:=SGetServerDateTime(ADOQueryTemp);
+  EndDate.DateTime:=SGetServerDateTime(ADOQueryTemp)
+end;
+
+procedure TfrmCKProductBCPInList.InitGrid();
+begin
+  try
+    ADOQueryMain.DisableControls;
+    with ADOQueryMain do
+    begin
+      Filtered:=False;
+      Close;
+      sql.Clear;
+      SQL.Add('select A.*,B.OrderNo,B.MPRTCodeName,C.PRTColor,C.PRTHX,B.MPRTMF,B.MPRTKZ,D.MJXH,D.MJQty4');
+      sql.Add(',isnull(customerNoName,B.OrderNo) KHName');
+      sql.Add(',E.AOrdDefStr1,D.MJQty2');
+      sql.add('from CK_BanCP_CR A ');
+      Sql.add(' inner join JYOrder_Main B on A.MainId=B.MainId');
+      Sql.add(' inner join JYOrder_Sub C on A.SubId=C.SubId');
+      Sql.add(' inner join WFB_MJJY D on A.MJId=D.MJId');
+      sql.Add(' inner join JYOrder_Sub_AnPai E on A.APID=E.APID');
+      sql.add('where A.CRTime>=:begdate and A.CRTime<:enddate');
+      SQL.Add(' and CRType=''检验入库'' ');
+      Parameters.ParamByName('begdate').Value:=Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime));
+      Parameters.ParamByName('enddate').Value:=Trim(FormatDateTime('yyyy-MM-dd',enddate.DateTime+1));
+      Open;
+      //ShowMessage(SQL.Text);
+    end;
+    SCreateCDS20(ADOQueryMain,CDS_Main);
+    SInitCDSData20(ADOQueryMain,CDS_Main);
+  finally
+    ADOQueryMain.EnableControls;
+  end;
+end;
+
+procedure TfrmCKProductBCPInList.TBRafreshClick(Sender: TObject);
+begin
+  BegDate.SetFocus;
+  InitGrid();
+end;
+
+procedure TfrmCKProductBCPInList.ConNoMChange(Sender: TObject);
+begin
+  if ADOQueryMain.Active then
+  begin
+    SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2));
+  end;
+end;
+
+procedure TfrmCKProductBCPInList.TBCloseClick(Sender: TObject);
+begin
+  WriteCxGrid('半成品仓库入库',Tv1,'半成品仓库');
+  Close;
+end;
+
+procedure TfrmCKProductBCPInList.FormShow(Sender: TObject);
+begin
+
+  ReadCxGrid('半成品仓库入库',Tv1,'半成品仓库');
+  if Trim(DParameters2)='管理' then
+  begin
+    TBRKCX.Visible:=True;
+  end else
+  begin
+    v1Column4.Visible:=False;
+  end;
+  //InitGrid();
+end;
+
+procedure TfrmCKProductBCPInList.TBExportClick(Sender: TObject);
+begin
+  if ADOQueryMain.IsEmpty then exit;
+  TcxGridToExcel('入库列表',cxGrid2);
+end;
+
+procedure TfrmCKProductBCPInList.TBFindClick(Sender: TObject);
+begin
+  if ADOQueryMain.Active then
+  begin
+    SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2));
+    SCreateCDS20(ADOQueryMain,CDS_Main);
+    SInitCDSData20(ADOQueryMain,CDS_Main);
+  end;
+end;
+
+procedure TfrmCKProductBCPInList.MPRTCodeNameChange(Sender: TObject);
+begin
+  TBFind.Click;
+end;
+
+procedure TfrmCKProductBCPInList.TBPrintClick(Sender: TObject);
+var
+  fPrintFile:String;
+begin
+  if CDS_Main.IsEmpty then Exit;
+  fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\入库码单.rmf' ;
+  with ADOQueryTemp do
+  begin
+    Close;
+    sql.Clear;
+    sql.Add('select AA.* from (select A.*,');
+    sql.Add('GangNo=(select AOrdDefStr1 from JYOrder_Sub_AnPai B where B.APID=A.APID),');
+    sql.Add('OrderNo=(select OrderNo from JYOrder_Main B where B.MainID=A.MainID),');
+    sql.Add('SOrddefstr4=(select SOrddefstr4 from JYOrder_Sub B where B.SubID=A.SubID),');
+    sql.Add('PRTHX=(select PRTHX from JYOrder_Sub B where B.SubID=A.SubID),');
+    SQL.Add('TaiTou=(select Top 1 Note from KH_Zdy B where B.ZdyName=DD.OrdDefStr2 and Type=''OrdDefStr2'' ),');
+    sql.Add('MJXH=(select MJXH from WFB_MJJY B where B.MJID=A.MJID)');
+    sql.Add(' from CK_BanCP_CR A');
+    sql.Add(' inner join JYOrder_Main DD on A.MainId=DD.MainId');
+    sql.Add(' where A.MainId='''+Trim(CDS_Main.fieldbyname('MainId').AsString)+'''');
+    {if Trim(CDS_Main.FieldByName('CKOrdNo').AsString)<>'' then
+    begin
+      sql.Add(' and A.CKOrdNo='''+Trim(CDS_Main.FieldByName('CKOrdNo').AsString)+'''');
+    end; }
+    sql.Add(' and CRType=''检验入库''');
+    SQL.Add(' and CPType=''正品'' )AA ');
+    sql.Add(' order by SOrddefstr4,PRTHX,GangNo,MJXH ');
+    Open;
+  end;
+  SCreateCDS20(ADOQueryTemp,CDS_PRT);
+  SInitCDSData20(ADOQueryTemp,CDS_PRT);
+  with ADOQueryTemp do
+  begin
+    Close;
+    sql.Clear;
+    sql.add('select * from(');
+    sql.Add('select GangNo,OrderNo,SOrddefstr4,PRTHX,Sum(Qty) Qty,Count(*) PS ');
+    SQL.Add('from (select A.Qty,');
+    sql.Add('GangNo=(select AOrdDefStr1 from JYOrder_Sub_AnPai B where B.APID=A.APID),');
+    sql.Add('OrderNo=(select OrderNo from JYOrder_Main B where B.MainID=A.MainID),');
+    sql.Add('PRTHX=(select PRTHX from JYOrder_Sub B where B.SubID=A.SubID),');
+    sql.Add('SOrddefstr4=(select SOrddefstr4 from JYOrder_Sub B where B.SubID=A.SubID)');
+    sql.Add(' from CK_BanCP_CR A');
+    sql.Add(' inner join JYOrder_Main DD on A.MainId=DD.MainId');
+    sql.Add(' where A.MainId='''+Trim(CDS_Main.fieldbyname('MainId').AsString)+'''');
+    {if Trim(CDS_Main.FieldByName('CKOrdNo').AsString)<>'' then
+    begin
+      sql.Add(' and A.CKOrdNo='''+Trim(CDS_Main.FieldByName('CKOrdNo').AsString)+'''');
+    end; }
+    sql.Add(' and CRType=''检验入库''');
+    SQL.Add(' and CPType=''正品''  )AA ');
+    sql.Add('Group by GangNo,OrderNo,SOrddefstr4,PRTHX )AAA');
+    //sql.add(' order by SOrddefstr4,PRTHX,Cast(gangno as int)');
+    sql.add(' order by SOrddefstr4,PRTHX,gangno ');
+    Open;
+  end;
+  SCreateCDS20(ADOQueryTemp,CDS_HZ);
+  SInitCDSData20(ADOQueryTemp,CDS_HZ);
+  if FileExists(fPrintFile) then
+  begin
+    //RMVariables['begindate']:=begindate.DateTime;
+    //RMVariables['enddate']:=enddate.DateTime;
+    //RMVariables['printtime']:=Now;
+    //RMVariables['printer']:=Trim(gUserName);
+    RM1.LoadFromFile(fPrintFile);
+    RM1.ShowReport;
+  end else
+  begin
+    Application.MessageBox(PChar('没有找'+ExtractFilePath(Application.ExeName)+'Report\入库码单.rmf'),'提示',0);
+  end;
+end;
+
+procedure TfrmCKProductBCPInList.orderNoChange(Sender: TObject);
+begin
+  if Length(Trim(orderNo.Text))<4 then Exit;
+  TBFind.Click;
+end;
+
+procedure TfrmCKProductBCPInList.orderNoKeyPress(Sender: TObject;
+  var Key: Char);
+begin
+  if Key=#13 then
+  begin
+    if Length(Trim(orderNo.Text))<4 then Exit;
+    try
+      ADOQueryMain.DisableControls;
+      with ADOQueryMain do
+      begin
+        Filtered:=False;
+        Close;
+        sql.Clear;
+        SQL.Add('select A.*,B.OrderNo,B.MPRTCodeName,C.PRTColor,C.PRTHX,B.MPRTMF,B.MPRTKZ,D.MJXH,D.MJQty4');
+        sql.Add(',isnull(customerNoName,B.OrderNo) KHName');
+        sql.Add(',E.AOrdDefStr1');
+        sql.add('from CK_BanCP_CR A ');
+        Sql.add(' inner join JYOrder_Main B on A.MainId=B.MainId');
+        Sql.add(' inner join JYOrder_Sub C on A.SubId=C.SubId');
+        Sql.add(' inner join WFB_MJJY D on A.MJId=D.MJId');
+        sql.Add(' inner join JYOrder_Sub_AnPai E on A.APID=E.APID');
+        sql.add('where B.OrderNo like :OrderNo');
+        SQL.Add(' and CRType=''检验入库'' ');
+        Parameters.ParamByName('orderNo').Value:='%'+Trim(orderNo.Text)+'%';
+
+        Open;
+        //ShowMessage(SQL.Text);
+      end;
+      SCreateCDS20(ADOQueryMain,CDS_Main);
+      SInitCDSData20(ADOQueryMain,CDS_Main);
+    finally
+      ADOQueryMain.EnableControls;
+    end;
+  end;
+end;
+
+procedure TfrmCKProductBCPInList.N1Click(Sender: TObject);
+begin
+  SelOKNo(CDS_Main,True);
+end;
+
+procedure TfrmCKProductBCPInList.N2Click(Sender: TObject);
+begin
+  SelOKNo(CDS_Main,False);
+end;
+
+procedure TfrmCKProductBCPInList.TBRKCXClick(Sender: TObject);
+begin
+  if CDS_Main.IsEmpty then Exit;
+  if CDS_Main.Locate('SSel',True,[])=False then
+  begin
+    Application.MessageBox('没有选择数据!','提示',0);
+    Exit;
+  end;
+  if Application.MessageBox('确定要执行操作吗？','提示',32+4)<>IDYES then Exit;
+  BegDate.SetFocus;
+  try
+    ADOQueryCmd.Connection.BeginTrans;
+    with CDS_Main do
+    begin
+      while Locate('SSel',True,[]) do
+      begin
+        with ADOQueryTemp do
+        begin
+          Close;
+          sql.Clear;
+          sql.Add('select * from CK_BanCP_CR where CRID='+Trim(CDS_Main.fieldbyname('CRID').AsString));
+          Open;
+        end;
+        if ADOQueryTemp.RecordCount>1 then
+        begin
+          ADOQueryCmd.Connection.RollbackTrans;
+          Application.MessageBox('已出库不能撤销入库!','提示',0);
+          Exit;
+        end;
+        with ADOQueryCmd do
+        begin
+          Close;
+          sql.Clear;
+          sql.Add('delete CK_BanCP_CR where BCID='''+Trim(CDS_Main.fieldbyname('BCID').AsString)+'''');
+          sql.Add('delete CK_BanCP_KC where CRID='+Trim(CDS_Main.fieldbyname('CRID').AsString));
+          sql.Add('Update WFB_MJJY Set MJStr2=''未入库'' where MJID='''+Trim(CDS_Main.fieldbyname('MJID').AsString)+'''');
+          ExecSQL;
+        end;
+        CDS_Main.Delete;
+      end;
+    end;
+    ADOQueryCmd.Connection.CommitTrans;
+
+  except
+    ADOQueryCmd.Connection.RollbackTrans;
+    Application.MessageBox('撤销失败!','提示',0);
+  end;
+end;
+
+procedure TfrmCKProductBCPInList.ToolButton1Click(Sender: TObject);
+var
+  fPrintFile:String;
+begin
+  if CDS_Main.IsEmpty then Exit;
+  fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\出库码单最全.rmf' ;
+  with ADOQueryTemp do
+  begin
+    Close;
+    sql.Clear;
+    sql.Add('select AA.* from (select A.*,MJ.MJMaoZ,MJJingZ=MJ.MJQty4,');
+    sql.Add('GangNo=(select AOrdDefStr1 from JYOrder_Sub_AnPai B where B.APID=A.APID),');
+    sql.Add('OrderNo=(select OrderNo from JYOrder_Main B where B.MainID=A.MainID),');
+    sql.Add('SOrddefstr4=(select SOrddefstr4 from JYOrder_Sub B where B.SubID=A.SubID),');
+    sql.Add('PRTHX=(select PRTHX from JYOrder_Sub B where B.SubID=A.SubID),');
+    SQL.Add('TaiTou=(select Top 1 Note from KH_Zdy B where B.ZdyName=DD.OrdDefStr2 and Type=''OrdDefStr2'' ),');
+    sql.Add('MJXH=(select MJXH from WFB_MJJY B where B.MJID=A.MJID)');
+    sql.Add(' from CK_BanCP_CR A');
+    sql.Add(' inner join WFB_MJJY MJ on A.MJId=MJ.MJId');
+    //sql.Add(' inner join JYOrder_Sub JYS on A.SubId=JYS.SubId');
+    sql.Add(' inner join JYOrder_Main DD on A.MainId=DD.MainId');
+    sql.Add(' where A.MainId='''+Trim(CDS_Main.fieldbyname('MainId').AsString)+'''');
+    sql.Add(' and A.CPType=''正品''');
+    sql.Add(' and CRType=''检验入库'')AA ');
+    sql.Add(' order by SOrddefstr4,PRTHX,GangNo,MJXH ');
+    Open;
+  end;
+  SCreateCDS20(ADOQueryTemp,CDS_PRT);
+  SInitCDSData20(ADOQueryTemp,CDS_PRT);
+  with ADOQueryTemp do
+  begin
+    Close;
+    sql.Clear;
+    SQL.Add('select * from (');
+    sql.Add('select GangNo,OrderNo,SOrddefstr4,PRTHX,Sum(Qty) Qty,Count(*) PS,Sum(MJMaoZ) MJMaoZ,sum(MJJingZ) MJJingZ ');
+    SQL.Add('from (select A.Qty,MJMaoZ=A.KgQty,MJJingZ=MJ.MJQty4,');
+    sql.Add('GangNo=(select AOrdDefStr1 from JYOrder_Sub_AnPai B where B.APID=A.APID),');
+    sql.Add('OrderNo=(select OrderNo from JYOrder_Main B where B.MainID=A.MainID),');
+    sql.Add('PRTHX=(select PRTHX from JYOrder_Sub B where B.SubID=A.SubID),');
+    sql.Add('SOrddefstr4=(select SOrddefstr4 from JYOrder_Sub B where B.SubID=A.SubID)');
+    sql.Add(' from CK_BanCP_CR A');
+    sql.Add(' inner join JYOrder_Main DD on A.MainId=DD.MainId');
+    sql.Add(' inner join WFB_MJJY MJ on A.MJId=MJ.MJId');
+    sql.Add(' where A.MainId='''+Trim(CDS_Main.fieldbyname('MainId').AsString)+'''');
+    sql.Add(' and A.CPType=''正品''');
+    sql.Add(' and CRType=''检验入库'')AA ');
+    sql.Add('Group by GangNo,OrderNo,SOrddefstr4,PRTHX');
+    sql.Add(')AAA order by SOrddefstr4,PRTHX,GangNo');
+    Open;
+  end;
+  SCreateCDS20(ADOQueryTemp,CDS_HZ);
+  SInitCDSData20(ADOQueryTemp,CDS_HZ);
+  if FileExists(fPrintFile) then
+  begin
+    //RMVariables['begindate']:=begindate.DateTime;
+    //RMVariables['enddate']:=enddate.DateTime;
+    //RMVariables['printtime']:=Now;
+    //RMVariables['printer']:=Trim(gUserName);
+    RM1.LoadFromFile(fPrintFile);
+    RM1.ShowReport;
+  end else
+  begin
+    Application.MessageBox(PChar('没有找'+ExtractFilePath(Application.ExeName)+'Report\出库码单最全.rmf'),'提示',0);
+  end;
+end;
+
+end.

坯布码单待检(PBMDDJ.dll)/U_CPAdd.dfm

@@ -0,0 +1,296 @@
+object frmCPAdd: TfrmCPAdd
+  Left = 134
+  Top = 162
+  Width = 1167
+  Height = 399
+  Align = alClient
+  Color = clBtnFace
+  Font.Charset = GB2312_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -12
+  Font.Name = #23435#20307
+  Font.Style = []
+  OldCreateOrder = False
+  Position = poScreenCenter
+  OnShow = FormShow
+  PixelsPerInch = 96
+  TextHeight = 12
+  object ToolBar1: TToolBar
+    Left = 0
+    Top = 0
+    Width = 1151
+    Height = 33
+    ButtonHeight = 30
+    ButtonWidth = 59
+    Caption = 'ToolBar1'
+    Color = clSkyBlue
+    DisabledImages = DataLink_DDMD.ThreeImgList
+    Flat = True
+    Images = DataLink_DDMD.ThreeImgList
+    List = True
+    ParentColor = False
+    ShowCaptions = True
+    TabOrder = 0
+    object ToolButton1: TToolButton
+      Left = 0
+      Top = 0
+      AutoSize = True
+      Caption = #20445#23384
+      ImageIndex = 15
+      OnClick = ToolButton1Click
+    end
+    object TBClose: TToolButton
+      Left = 63
+      Top = 0
+      AutoSize = True
+      Caption = #20851#38381
+      ImageIndex = 21
+      OnClick = TBCloseClick
+    end
+    object Panel1: TPanel
+      Left = 126
+      Top = 0
+      Width = 131
+      Height = 30
+      BevelInner = bvRaised
+      BevelOuter = bvLowered
+      Color = clSkyBlue
+      TabOrder = 0
+      Visible = False
+      object CheckBox1: TCheckBox
+        Left = 10
+        Top = 7
+        Width = 97
+        Height = 17
+        Caption = #38376#24133#21333#20301#33521#23544
+        TabOrder = 0
+        OnClick = CheckBox1Click
+      end
+    end
+  end
+  object cxGrid1: TcxGrid
+    Left = 0
+    Top = 33
+    Width = 1151
+    Height = 327
+    Align = alClient
+    TabOrder = 1
+    object Tv1: TcxGridDBTableView
+      NavigatorButtons.ConfirmDelete = False
+      DataController.DataSource = DataSource2
+      DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
+      DataController.Summary.DefaultGroupSummaryItems = <>
+      DataController.Summary.FooterSummaryItems = <>
+      DataController.Summary.SummaryGroups = <>
+      OptionsBehavior.GoToNextCellOnEnter = True
+      OptionsCustomize.ColumnFiltering = False
+      OptionsView.GroupByBox = False
+      object v1Column1: TcxGridDBColumn
+        Tag = 3
+        Caption = #20135#21697#32534#21495
+        DataBinding.FieldName = 'CYNo'
+        PropertiesClassName = 'TcxTextEditProperties'
+        Properties.CharCase = ecUpperCase
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_DDMD.Default
+        Width = 112
+      end
+      object v1Column12: TcxGridDBColumn
+        Tag = 3
+        Caption = #32769#32534#21495
+        DataBinding.FieldName = 'OldCYNo'
+        HeaderAlignmentHorz = taCenter
+        HeaderGlyphAlignmentHorz = taRightJustify
+        Styles.Header = DataLink_DDMD.Default
+        Width = 73
+      end
+      object v1Column16: TcxGridDBColumn
+        Tag = 3
+        Caption = #35746#21333#21495
+        DataBinding.FieldName = 'OrderNo'
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_DDMD.Default
+        Width = 79
+      end
+      object v1Column13: TcxGridDBColumn
+        Tag = 3
+        Caption = #38472#21015#20301#32622
+        DataBinding.FieldName = 'DefStr2'
+        PropertiesClassName = 'TcxButtonEditProperties'
+        Properties.Buttons = <
+          item
+            Default = True
+            Kind = bkEllipsis
+          end>
+        Properties.OnButtonClick = v1Column13PropertiesButtonClick
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_DDMD.Default
+        Width = 67
+      end
+      object v1Column2: TcxGridDBColumn
+        Tag = 3
+        Caption = #20013#25991#21517#31216
+        DataBinding.FieldName = 'CYName'
+        PropertiesClassName = 'TcxButtonEditProperties'
+        Properties.Buttons = <
+          item
+            Default = True
+            Kind = bkEllipsis
+          end>
+        Properties.OnButtonClick = v1Column2PropertiesButtonClick
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_DDMD.Default
+        Width = 80
+      end
+      object v1Column3: TcxGridDBColumn
+        Tag = 3
+        Caption = #33521#25991#21517#31216
+        DataBinding.FieldName = 'CYEName'
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_DDMD.Default
+        Width = 66
+      end
+      object v1Column4: TcxGridDBColumn
+        Tag = 3
+        Caption = #35268#26684
+        DataBinding.FieldName = 'CYSpec'
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_DDMD.Default
+        Width = 67
+      end
+      object v1Column5: TcxGridDBColumn
+        Tag = 3
+        Caption = #20013#25991#25104#20998
+        DataBinding.FieldName = 'CYCF'
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_DDMD.Default
+        Width = 66
+      end
+      object v1Column6: TcxGridDBColumn
+        Tag = 3
+        Caption = #33521#25991#25104#20998
+        DataBinding.FieldName = 'CYECF'
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_DDMD.Default
+        Width = 63
+      end
+      object v1Column7: TcxGridDBColumn
+        Tag = 3
+        Caption = #38376#24133
+        DataBinding.FieldName = 'CYMF'
+        PropertiesClassName = 'TcxTextEditProperties'
+        Properties.OnEditValueChanged = v1Column7PropertiesEditValueChanged
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_DDMD.Default
+        Width = 62
+      end
+      object v1Column8: TcxGridDBColumn
+        Tag = 3
+        Caption = #20811#37325
+        DataBinding.FieldName = 'CYKZ'
+        PropertiesClassName = 'TcxTextEditProperties'
+        Properties.OnEditValueChanged = v1Column8PropertiesEditValueChanged
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_DDMD.Default
+        Width = 68
+      end
+      object v1Column9: TcxGridDBColumn
+        Tag = 3
+        Caption = #20013#25991#39068#33394
+        DataBinding.FieldName = 'CYColor'
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_DDMD.Default
+        Width = 67
+      end
+      object v1Column41: TcxGridDBColumn
+        Tag = 3
+        Caption = #33521#25991#39068#33394
+        DataBinding.FieldName = 'CYColorEng'
+        Styles.Header = DataLink_DDMD.Default
+        Width = 60
+      end
+      object v1Column14: TcxGridDBColumn
+        Tag = 3
+        Caption = #33457#22411
+        DataBinding.FieldName = 'CYHX'
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_DDMD.Default
+        Width = 70
+      end
+      object v1Column20: TcxGridDBColumn
+        Tag = 2
+        Caption = #20844#26020#20215
+        DataBinding.FieldName = 'CYPriceKg'
+        PropertiesClassName = 'TcxTextEditProperties'
+        Properties.OnEditValueChanged = v1Column20PropertiesEditValueChanged
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_DDMD.Default
+        Width = 53
+      end
+      object v1Column10: TcxGridDBColumn
+        Tag = 2
+        Caption = #31859#20215
+        DataBinding.FieldName = 'CYPriceM'
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_DDMD.Default
+        Width = 66
+      end
+      object v1Column15: TcxGridDBColumn
+        Tag = 3
+        Caption = #38754#26009#26469#28304
+        DataBinding.FieldName = 'CYFrom'
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_DDMD.Default
+        Width = 91
+      end
+      object v1Column11: TcxGridDBColumn
+        Tag = 3
+        Caption = #22791#27880
+        DataBinding.FieldName = 'CYNote'
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_DDMD.Default
+        Width = 85
+      end
+    end
+    object cxGrid1Level1: TcxGridLevel
+      GridView = Tv1
+    end
+  end
+  object CDS_Sub: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 416
+    Top = 208
+  end
+  object ADOQueryMain: TADOQuery
+    Connection = DataLink_DDMD.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 453
+    Top = 209
+  end
+  object DataSource2: TDataSource
+    DataSet = CDS_Sub
+    Left = 491
+    Top = 211
+  end
+  object ADOQueryCmd: TADOQuery
+    Connection = DataLink_DDMD.ADOLink
+    Parameters = <>
+    Left = 589
+    Top = 169
+  end
+  object ADOQueryTemp: TADOQuery
+    Connection = DataLink_DDMD.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 573
+    Top = 121
+  end
+  object cxGridPopupMenu1: TcxGridPopupMenu
+    Grid = cxGrid1
+    PopupMenus = <>
+    Left = 528
+    Top = 216
+  end
+end

坯布码单待检(PBMDDJ.dll)/U_CPAdd.pas

@@ -0,0 +1,651 @@
+unit U_CPAdd;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData,
+  cxDataStorage, cxEdit, DB, cxDBData, ADODB, DBClient, cxGridLevel,
+  cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxClasses,
+  cxControls, cxGridCustomView, cxGrid, ComCtrls, ToolWin,
+  cxGridCustomPopupMenu, cxGridPopupMenu, cxTextEdit, cxButtonEdit,
+  StdCtrls, ExtCtrls;
+
+type
+  TfrmCPAdd = class(TForm)
+    ToolBar1: TToolBar;
+    ToolButton1: TToolButton;
+    TBClose: TToolButton;
+    cxGrid1: TcxGrid;
+    Tv1: TcxGridDBTableView;
+    v1Column1: TcxGridDBColumn;
+    v1Column2: TcxGridDBColumn;
+    v1Column3: TcxGridDBColumn;
+    v1Column4: TcxGridDBColumn;
+    v1Column5: TcxGridDBColumn;
+    v1Column6: TcxGridDBColumn;
+    v1Column7: TcxGridDBColumn;
+    v1Column8: TcxGridDBColumn;
+    v1Column9: TcxGridDBColumn;
+    v1Column10: TcxGridDBColumn;
+    v1Column11: TcxGridDBColumn;
+    cxGrid1Level1: TcxGridLevel;
+    CDS_Sub: TClientDataSet;
+    ADOQueryMain: TADOQuery;
+    DataSource2: TDataSource;
+    ADOQueryCmd: TADOQuery;
+    ADOQueryTemp: TADOQuery;
+    cxGridPopupMenu1: TcxGridPopupMenu;
+    v1Column13: TcxGridDBColumn;
+    v1Column14: TcxGridDBColumn;
+    v1Column20: TcxGridDBColumn;
+    v1Column41: TcxGridDBColumn;
+    Panel1: TPanel;
+    CheckBox1: TCheckBox;
+    v1Column12: TcxGridDBColumn;
+    v1Column15: TcxGridDBColumn;
+    v1Column16: TcxGridDBColumn;
+    procedure FormShow(Sender: TObject);
+    procedure TBCloseClick(Sender: TObject);
+    procedure ToolButton1Click(Sender: TObject);
+    procedure v1Column7PropertiesEditValueChanged(Sender: TObject);
+    procedure v1Column8PropertiesEditValueChanged(Sender: TObject);
+    procedure v1Column2PropertiesButtonClick(Sender: TObject;
+      AButtonIndex: Integer);
+    procedure v1Column26PropertiesButtonClick(Sender: TObject;
+      AButtonIndex: Integer);
+    procedure v1Column27PropertiesButtonClick(Sender: TObject;
+      AButtonIndex: Integer);
+    procedure v1Column20PropertiesEditValueChanged(Sender: TObject);
+    procedure CheckBox1Click(Sender: TObject);
+    procedure v1Column13PropertiesButtonClick(Sender: TObject;
+      AButtonIndex: Integer);
+  private
+    canshu1:string;
+    Fint:Integer;
+    procedure InitSubGrid();
+    function  SaveData():Boolean;
+    { Private declarations }
+  public
+    FCYID,FCYCode,FCPID,FCPNO:String;
+    CopyInt:Integer;
+
+    { Public declarations }
+  end;
+
+var
+  frmCPAdd: TfrmCPAdd;
+
+implementation
+uses
+  U_DataLink,U_RTFun,U_iniParam,U_ZDYHelp;
+
+{$R *.dfm}
+
+procedure TfrmCPAdd.InitSubGrid();
+begin
+  try
+    ADOQueryMain.DisableControls;
+    with ADOQueryMain do
+    begin
+      Close;
+      SQL.Clear;
+      SQL.Add('select * from CP_YDang where CYID='''+Trim(FCYID)+'''');
+      Open;
+    end;
+    SCreateCDS20(ADOQueryMain,CDS_Sub);
+    SInitCDSData20(ADOQueryMain,CDS_Sub);
+  finally
+    ADOQueryMain.EnableControls;
+  end;
+end;
+
+procedure TfrmCPAdd.FormShow(Sender: TObject);
+var
+  fsj,FFSj,FFQZSj,FFFSj,FFType:String;
+  FFInt,i,j:Integer;
+  ii:LongInt;
+begin
+  //canshu1:=Trim(DParameters1);
+  ReadCxGrid('样品编辑YT',Tv1,'样品管理');
+  InitSubGrid();
+  if CopyInt=1 then
+  begin
+    FCYID:='';
+  end;
+  {if Trim(YPCodeType)<>'' then
+  begin
+    if Trim(FCYID)='' then
+    begin
+      //取前缀
+        with ADOQueryTemp do
+        begin
+          Close;
+          sql.Clear;
+          sql.Add('select CYNO AA from CP_YDang ');
+          SQL.Add('where Cast(CYID as int)=(select isnull(Max(Cast(CYID as int)),0) from CP_YDang where CYType='''+Trim(FCPID)+''')');
+          Open;
+        end;
+        if Trim(ADOQueryTemp.fieldbyname('AA').asstring)='' then
+        begin
+          FFQZSj:=Trim(FCPNO);
+        end else
+        begin
+          fsj:=Trim(ADOQueryTemp.fieldbyname('AA').asstring);
+          FFInt:=0;
+          i:=0;
+          FFFSj:=Trim(Copy(fsj,Length(FCPNO)+1,Length(fsj)));
+          while FFInt<=0 do
+          begin
+            FFSj:=Trim(Copy(fsj,Length(FCPNO)+1+i,Length(fsj)));
+            if TryStrToInt(FFSj,ii) then
+            begin
+              if StrToInt(FFSj)>=0 then
+              begin
+                i:=i+1;
+              end else
+              begin
+                FFInt:=1;
+                FFQZSj:=Trim(Copy(fsj,1,Length(FCPNO)+i+1));//前缀字符串
+              end;
+              if i=Length(FFFSj) then
+              begin
+                FFInt:=1;
+                FFQZSj:=Trim(FCPNO);
+              end;
+            end else
+            begin
+              FFInt:=1;
+              FFQZSj:=Trim(Copy(fsj,1,Length(FCPNO)+i+1));//前缀字符串
+            end;
+          end;
+        end;
+      //取前缀
+      //取后缀
+      if Trim(YPCodeType)='大类' then
+      begin
+        i:=99;
+        while i>=1 do
+        begin
+          if i=99 then
+          begin
+            FFType:=Trim(FCPID);
+          end;
+          with ADOQueryTemp do
+          begin
+            Close;
+            sql.Clear;
+            sql.Add('select * from CP_Type where CPID='''+Trim(FFType)+'''');
+            Open;
+            i:=fieldbyname('CPLevel').AsInteger;
+            if i>1 then
+              FFType:=Trim(fieldbyname('CPParent').AsString)
+            else
+            if i=1 then
+            begin
+              FFType:=Trim(fieldbyname('CPID').AsString);
+              i:=0;
+            end;
+          end;
+        end;
+
+        with ADOQueryTemp do
+        begin
+          Close;
+          sql.Clear;
+          sql.Add('exec P_Select_CP_YDang_MaxNo :CPType');
+          Parameters.ParamByName('CPType').Value:=Trim(FFType);
+          Open;
+        end;
+      end else
+      if Trim(YPCodeType)='小类' then
+      begin
+        with ADOQueryTemp do
+        begin
+          Close;
+          sql.Clear;
+          sql.Add('select CYNO AA from CP_YDang ');
+          SQL.Add('where Cast(CYID as int)=(select isnull(Max(Cast(CYID as int)),0) from CP_YDang where CYType='''+Trim(FCPID)+''')');
+          Open;
+        end;
+      end;
+        if Trim(ADOQueryTemp.fieldbyname('AA').asstring)='' then
+        begin
+          FFFSj:='0001';
+        end else
+        begin
+          fsj:=Trim(ADOQueryTemp.fieldbyname('AA').asstring);
+          FFInt:=0;
+          i:=0;
+          FFFSj:='';
+          fsj:=Trim( Copy( fsj,Length(FFQZSj)+1,Length(fsj) ) );
+          while FFInt<=0 do
+          begin
+            FFSj:=Trim(Copy(fsj,(Length(fsj)-i),(Length(fsj))));
+            if TryStrToInt(FFSj,ii) then
+            begin
+              if StrToInt(FFSj)>=0 then
+              begin
+                FFFSj:=Trim(FFSj);//后缀数字字符串
+              end else
+              begin
+                FFInt:=1;
+              end;
+              i:=i+1;
+              if i=Length(fsj) then
+              begin
+                FFInt:=1;
+              end;
+            end else
+            begin
+              FFInt:=1;
+            end;
+          end;
+          i:=Length(FFFSj); //数字编号长度   3
+          FFInt:=StrToInt(FFFSj)+1;//最大号
+          j:=Length(Trim(IntToStr(FFInt))); //最大号位数 1
+          FFFSj:=Trim(IntToStr(FFInt));//后缀数字字符串
+          while j<i do
+          begin
+            FFFSj:='0'+Trim(FFFsj);
+            j:=j+1
+          end;
+        end;
+      //取后缀
+      fsj:=Trim(FFQZSj)+Trim(FFFSj);
+      if CopyInt=0 then
+        CDS_Sub.Append
+      else
+      if CopyInt=1 then
+        CDS_Sub.Edit;
+      CDS_Sub.FieldByName('CYNo').Value:=Trim(fsj);
+      CDS_Sub.Post;
+    end;
+  end else }
+  begin
+    if CDS_Sub.IsEmpty then
+    begin
+      CDS_Sub.Append;
+      CDS_Sub.Post;
+    end;
+  end;
+  
+
+
+end;
+
+procedure TfrmCPAdd.TBCloseClick(Sender: TObject);
+begin
+  WriteCxGrid('样品编辑YT',Tv1,'样品管理');
+  Close;
+end;
+function TfrmCPAdd.SaveData():Boolean;
+var
+  maxId:String;
+begin
+  try
+    ADOQueryCmd.Connection.BeginTrans;
+    if Trim(FCYID)='' then
+    begin
+      if GetLSNo(ADOQueryCmd,maxId,'','CP_YDang',4,1)=False then
+      begin
+        Result:=False;
+        ADOQueryCmd.Connection.RollbackTrans;
+        Application.MessageBox('区最大号失败！','提示',0);
+        Exit;
+      end;
+    end else
+    begin
+      maxId:=Trim(FCYID);
+    end;
+    with ADOQueryCmd do
+    begin
+      Close;
+      SQL.Clear;
+      sql.Add('select * from CP_YDang where CYID='''+Trim(FCYID)+'''');
+      Open;
+    end;
+    with ADOQueryCmd do
+    begin
+      if Trim(FCYID)='' then
+      begin
+        Append;
+      end else
+      begin
+        Edit;
+      end;
+      FieldByName('CYID').Value:=Trim(maxId);
+      FieldByName('CYType').Value:=Trim(FCPID);
+      SSetSaveDataCDSNew(ADOQueryCmd,Tv1,CDS_Sub,'CP_YDang',3);
+      if Trim(CDS_Sub.fieldbyname('CYPriceKg').AsString)='' then
+        FieldByName('CYPriceKg').Value:=0
+      else
+        FieldByName('CYPriceKg').Value:=CDS_Sub.fieldbyname('CYPriceKg').AsString;
+      if Trim(CDS_Sub.fieldbyname('CYPriceM').AsString)='' then
+        FieldByName('CYPriceM').Value:=0
+      else
+        FieldByName('CYPriceM').Value:=CDS_Sub.fieldbyname('CYPriceM').AsString;
+      Post;
+    end;
+    with ADOQueryTemp do
+    begin
+      Close;
+      sql.Clear;
+      sql.Add('select count(*) as AA from CP_YDang where CYNo='''+Trim(CDS_Sub.fieldbyname('CYNo').AsString)+'''');
+      Open;
+      if FieldByName('AA').AsInteger>1 then
+      begin
+        ADOQueryCmd.Connection.RollbackTrans;
+        Result:=False;
+        Application.MessageBox('编号重复！','提示',0);
+        Exit;
+      end;
+    end;
+    ADOQueryCmd.Connection.CommitTrans;
+    with CDS_Sub do
+    begin
+      Edit;
+      FieldByName('CYID').Value:=Trim(maxId);
+      FieldByName('CYType').Value:=Trim(FCPID);
+      Post;
+    end;
+    Result:=True;
+  except
+    Result:=True;
+    ADOQueryCmd.Connection.RollbackTrans;
+    Application.MessageBox('保存失败!','提示',0);
+  end;
+end;
+
+procedure TfrmCPAdd.ToolButton1Click(Sender: TObject);
+var
+  FFFFCPNO:string;
+begin
+  if CDS_Sub.Locate('CYNo',null,[])=True then
+  begin
+    Application.MessageBox('产品编号不能为空！','提示',0);
+    Exit;
+  end;
+  {if CDS_Sub.Locate('CYName',null,[])=True then
+  begin
+    Application.MessageBox('中文名称不能为空！','提示',0);
+    Exit;
+  end;   }
+  FFFFCPNO:=Trim(CDS_Sub.fieldbyname('CYNo').AsString);
+  if Pos(':',FFFFCPNO)>0 then
+  begin
+    Application.MessageBox('产品编号不允许存在冒号(:)！','',0);
+    Exit;
+  end;
+  if Pos('：',FFFFCPNO)>0 then
+  begin
+    Application.MessageBox('产品编号不允许存在冒号(：)！','',0);
+    Exit;
+  end;
+  if Pos('\',FFFFCPNO)>0 then
+  begin
+    Application.MessageBox('产品编号不允许存在反斜杠(\)！','',0);
+    Exit;
+  end;
+  ToolBar1.SetFocus;
+  if SaveData() then
+  begin
+    Application.MessageBox('保存成功！','提示',0);
+    ModalResult:=1;
+  end;
+end;
+
+procedure TfrmCPAdd.v1Column7PropertiesEditValueChanged(Sender: TObject);
+var
+  mvalue,FieldName,PriceKg,MF,KZ:string;
+  FReal:Double;
+begin
+  {mvalue:=Trim(TcxTextEdit(Sender).EditingText);
+  with CDS_Sub do
+  begin
+    Edit;
+    if TryStrToFloat(mvalue,FReal)=False then
+      FieldByName('CYMF').Value:=mvalue
+    else
+    begin
+      if Trim(canshu1)='英寸' then
+        FieldByName('CYMF').Value:=mvalue+'"'
+      else
+        FieldByName('CYMF').Value:=mvalue+'CM';
+    end;
+    Post;
+  end;
+  FieldName:=Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName;
+  PriceKg:=Trim(CDS_Sub.fieldbyname('CYPriceKg').AsString);
+  if Trim(PriceKg)='' then
+  begin
+    PriceKg:='0';
+  end;
+  MF:=Trim(CDS_Sub.fieldbyname('CYMF').AsString);
+  KZ:=Trim(CDS_Sub.fieldbyname('CYKZ').AsString);
+  if Trim(canshu1)<>'英寸' then
+    MF:=Copy(MF,1,Pos('C',MF)-1)
+  else
+    MF:=Copy(MF,1,Pos('"',MF)-1);
+  KZ:=Copy(KZ,1,Pos('g',KZ)-1);
+  if TryStrToFloat(MF,FReal)=False then
+  begin
+    MF:='0';
+  end;
+  if TryStrToFloat(KZ,FReal)=False then
+  begin
+    KZ:='0';
+  end;
+  with CDS_Sub do
+  begin
+    Edit;
+    if Trim(canshu1)<>'英寸' then
+      FieldByName('CYPriceM').Value:=StrToFloat(PriceKg)*StrToFloat(MF)*StrToFloat(KZ)*1.00/100000
+    else
+      FieldByName('CYPriceM').Value:=StrToFloat(PriceKg)*StrToFloat(MF)*2.54*StrToFloat(KZ)*1.00/100000;
+    Post;
+  end; }
+end;
+
+procedure TfrmCPAdd.v1Column8PropertiesEditValueChanged(Sender: TObject);
+var
+  mvalue,FieldName,PriceKg,MF,KZ:string;
+  FReal:Double;
+begin
+  {mvalue:=Trim(TcxTextEdit(Sender).EditingText);
+  with CDS_Sub do
+  begin
+    Edit;
+    if TryStrToFloat(mvalue,FReal)=False then
+      FieldByName('CYKZ').Value:=mvalue
+    else
+      FieldByName('CYKZ').Value:=mvalue+'g/㎡';
+    Post;
+  end;
+  FieldName:=Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName;
+  PriceKg:=Trim(CDS_Sub.fieldbyname('CYPriceKg').AsString);
+  if Trim(PriceKg)='' then
+  begin
+    PriceKg:='0';
+  end;
+  MF:=Trim(CDS_Sub.fieldbyname('CYMF').AsString);
+  KZ:=Trim(CDS_Sub.fieldbyname('CYKZ').AsString);
+  if Trim(canshu1)<>'英寸' then
+    MF:=Copy(MF,1,Pos('C',MF)-1)
+  else
+    MF:=Copy(MF,1,Pos('"',MF)-1);
+  KZ:=Copy(KZ,1,Pos('g',KZ)-1);
+  if TryStrToFloat(MF,FReal)=False then
+  begin
+    MF:='0';
+  end;
+  if TryStrToFloat(KZ,FReal)=False then
+  begin
+    KZ:='0';
+  end;
+  with CDS_Sub do
+  begin
+    Edit;
+    if Trim(canshu1)<>'英寸' then
+      FieldByName('CYPriceM').Value:=StrToFloat(PriceKg)*StrToFloat(MF)*StrToFloat(KZ)*1.00/100000
+    else
+      FieldByName('CYPriceM').Value:=StrToFloat(PriceKg)*StrToFloat(MF)*2.54*StrToFloat(KZ)*1.00/100000;
+    Post;
+  end; }
+end;
+
+procedure TfrmCPAdd.v1Column2PropertiesButtonClick(Sender: TObject;
+  AButtonIndex: Integer);
+begin
+  try
+    frmZDYHelp:=TfrmZDYHelp.Create(Application);
+    with frmZDYHelp do
+    begin
+      flag:='YPName';
+      flagname:='样品名称';
+      if ShowModal=1 then
+      begin
+        with CDS_Sub do
+        begin
+          Edit;
+          FieldByName('CYName').Value:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString);
+        end;
+      end;
+    end;
+  finally
+    frmZDYHelp.Free;
+  end;
+end;
+
+procedure TfrmCPAdd.v1Column26PropertiesButtonClick(Sender: TObject;
+  AButtonIndex: Integer);
+var
+  fsj:string;
+begin
+  fsj:=Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName;
+  try
+    frmZDYHelp:=TfrmZDYHelp.Create(Application);
+    with frmZDYHelp do
+    begin
+      flag:='GYStr';
+      flagname:='工艺名称';
+      if ShowModal=1 then
+      begin
+        with CDS_Sub do
+        begin
+          Edit;
+          FieldByName(fsj).Value:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString);
+        end;
+      end;
+    end;
+  finally
+    frmZDYHelp.Free;
+  end;
+end;
+
+procedure TfrmCPAdd.v1Column27PropertiesButtonClick(Sender: TObject;
+  AButtonIndex: Integer);
+var
+  fsj:string;
+begin
+  fsj:=Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName;
+  try
+    frmZDYHelp:=TfrmZDYHelp.Create(Application);
+    with frmZDYHelp do
+    begin
+      flag:='YPJGFactory';
+      flagname:='加工厂';
+      if ShowModal=1 then
+      begin
+        with CDS_Sub do
+        begin
+          Edit;
+          FieldByName(fsj).Value:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString);
+        end;
+      end;
+    end;
+  finally
+    frmZDYHelp.Free;
+  end;
+end;
+
+procedure TfrmCPAdd.v1Column20PropertiesEditValueChanged(Sender: TObject);
+var
+  FieldName,mvalue,MF,KZ,PriceKg:string;
+  FReal:Double;
+begin
+  mvalue:=TcxTextEdit(Sender).EditingText;
+  FieldName:=Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName;
+  with CDS_Sub do
+  begin
+    Edit;
+    FieldByName(FieldName).Value:=mvalue;
+    Post;
+  end;
+  PriceKg:=Trim(CDS_Sub.fieldbyname('CYPriceKg').AsString);
+  if Trim(PriceKg)='' then
+  begin
+    PriceKg:='0';
+  end;
+  MF:=Trim(CDS_Sub.fieldbyname('CYMF').AsString);
+  KZ:=Trim(CDS_Sub.fieldbyname('CYKZ').AsString);
+  if Trim(canshu1)<>'英寸' then
+    MF:=Copy(MF,1,Pos('C',MF)-1)
+  else
+    MF:=Copy(MF,1,Pos('"',MF)-1);
+  KZ:=Copy(KZ,1,Pos('g',KZ)-1);
+  if TryStrToFloat(MF,FReal)=False then
+  begin
+    MF:='0';
+  end;
+  if TryStrToFloat(KZ,FReal)=False then
+  begin
+    KZ:='0';
+  end;
+  with CDS_Sub do
+  begin
+    Edit;
+    if Trim(canshu1)<>'英寸' then
+      FieldByName('CYPriceM').Value:=StrToFloat(PriceKg)*StrToFloat(MF)*StrToFloat(KZ)*1.00/100000
+    else
+      FieldByName('CYPriceM').Value:=StrToFloat(PriceKg)*StrToFloat(MF)*2.54*StrToFloat(KZ)*1.00/100000;
+    Post;
+  end;
+
+end;
+
+procedure TfrmCPAdd.CheckBox1Click(Sender: TObject);
+begin
+  if CheckBox1.Checked=True then
+  begin
+    canshu1:='英寸';
+  end else
+  begin
+    canshu1:='';
+  end;
+end;
+
+procedure TfrmCPAdd.v1Column13PropertiesButtonClick(Sender: TObject;
+  AButtonIndex: Integer);
+begin
+  try
+    frmZDYHelp:=TfrmZDYHelp.Create(Application);
+    with frmZDYHelp do
+    begin
+      flag:='YPWeiZhi';
+      flagname:='陈列位置';
+      if ShowModal=1 then
+      begin
+        with Self.CDS_Sub do
+        begin
+          Edit;
+          FieldByName('DefStr2').Value:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString);
+        end;
+      end;
+    end;
+  finally
+    frmZDYHelp.Free;
+  end;
+end;
+
+end.

坯布码单待检(PBMDDJ.dll)/U_CPManage.dfm

@@ -0,0 +1,808 @@
+object frmCPManage: TfrmCPManage
+  Left = 75
+  Top = 90
+  Width = 1148
+  Height = 618
+  Caption = #20135#21697#26723#26696
+  Color = clBtnFace
+  Font.Charset = GB2312_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -12
+  Font.Name = #23435#20307
+  Font.Style = []
+  OldCreateOrder = False
+  OnClose = FormClose
+  OnDestroy = FormDestroy
+  OnKeyDown = FormKeyDown
+  OnShow = FormShow
+  PixelsPerInch = 96
+  TextHeight = 12
+  object ToolBar1: TToolBar
+    Left = 0
+    Top = 0
+    Width = 1132
+    Height = 31
+    ButtonHeight = 30
+    ButtonWidth = 83
+    Caption = 'ToolBar1'
+    Color = clSkyBlue
+    DisabledImages = DataLink_DDMD.ThreeImgList
+    Flat = True
+    Images = DataLink_DDMD.ThreeImgList
+    List = True
+    ParentColor = False
+    ShowCaptions = True
+    TabOrder = 0
+    object TBRafresh: TToolButton
+      Left = 0
+      Top = 0
+      AutoSize = True
+      Caption = #21047#26032
+      ImageIndex = 0
+      OnClick = TBRafreshClick
+    end
+    object ToolButton2: TToolButton
+      Left = 63
+      Top = 0
+      AutoSize = True
+      Caption = #36807#28388
+      ImageIndex = 20
+      OnClick = ToolButton2Click
+    end
+    object TBAdd: TToolButton
+      Left = 126
+      Top = 0
+      AutoSize = True
+      Caption = #26032#22686
+      ImageIndex = 1
+      OnClick = TBAddClick
+    end
+    object ToolButton7: TToolButton
+      Left = 189
+      Top = 0
+      AutoSize = True
+      Caption = #22797#21046
+      ImageIndex = 38
+      OnClick = ToolButton7Click
+    end
+    object ToolButton3: TToolButton
+      Left = 252
+      Top = 0
+      AutoSize = True
+      Caption = #20462#25913
+      ImageIndex = 11
+      OnClick = ToolButton3Click
+    end
+    object TBDel: TToolButton
+      Left = 315
+      Top = 0
+      AutoSize = True
+      Caption = #21024#38500
+      ImageIndex = 3
+      OnClick = TBDelClick
+    end
+    object ToolButton1: TToolButton
+      Left = 378
+      Top = 0
+      AutoSize = True
+      Caption = #23548#20986
+      ImageIndex = 97
+      OnClick = ToolButton1Click
+    end
+    object ToolButton4: TToolButton
+      Left = 441
+      Top = 0
+      AutoSize = True
+      Caption = #26631#31614#25171#21360
+      ImageIndex = 4
+      OnClick = ToolButton4Click
+    end
+    object Panel3: TPanel
+      Left = 528
+      Top = 0
+      Width = 72
+      Height = 30
+      BevelInner = bvRaised
+      BevelOuter = bvLowered
+      Color = clSkyBlue
+      TabOrder = 1
+      object Label6: TLabel
+        Left = 3
+        Top = 9
+        Width = 24
+        Height = 12
+        Caption = #20221#25968
+      end
+      object Edit1: TEdit
+        Left = 29
+        Top = 6
+        Width = 38
+        Height = 20
+        TabOrder = 0
+      end
+    end
+    object Panel4: TPanel
+      Left = 600
+      Top = 0
+      Width = 173
+      Height = 30
+      BevelInner = bvRaised
+      BevelOuter = bvLowered
+      Color = clSkyBlue
+      TabOrder = 0
+      object Label13: TLabel
+        Left = 3
+        Top = 9
+        Width = 52
+        Height = 12
+        Caption = #26631#31614#21517#31216
+        Font.Charset = GB2312_CHARSET
+        Font.Color = clWindowText
+        Font.Height = -12
+        Font.Name = #23435#20307
+        Font.Style = [fsBold]
+        ParentFont = False
+      end
+      object LabName: TBtnEditA
+        Left = 61
+        Top = 5
+        Width = 104
+        Height = 20
+        TabOrder = 0
+        OnBtnClick = LabNameBtnClick
+      end
+    end
+    object ToolButton8: TToolButton
+      Left = 773
+      Top = 0
+      Caption = #26631#31614#39044#35272
+      ImageIndex = 66
+      OnClick = ToolButton8Click
+    end
+    object ToolButton5: TToolButton
+      Left = 856
+      Top = 0
+      AutoSize = True
+      Caption = #22270#29255#19978#20256
+      ImageIndex = 18
+      OnClick = ToolButton5Click
+    end
+    object ToolButton6: TToolButton
+      Left = 943
+      Top = 0
+      AutoSize = True
+      Caption = #22270#29255#19979#36733
+      ImageIndex = 19
+      OnClick = ToolButton6Click
+    end
+    object TBClose: TToolButton
+      Left = 1030
+      Top = 0
+      AutoSize = True
+      Caption = #20851#38381
+      ImageIndex = 21
+      OnClick = TBCloseClick
+    end
+  end
+  object cxGrid1: TcxGrid
+    Left = 228
+    Top = 89
+    Width = 904
+    Height = 490
+    Align = alClient
+    TabOrder = 1
+    object Tv1: TcxGridDBTableView
+      OnKeyDown = Tv1KeyDown
+      NavigatorButtons.ConfirmDelete = False
+      NavigatorButtons.Delete.Enabled = False
+      NavigatorButtons.Delete.Visible = False
+      OnCellClick = Tv1CellClick
+      OnCellDblClick = Tv1CellDblClick
+      DataController.DataSource = DataSource2
+      DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
+      DataController.Summary.DefaultGroupSummaryItems = <>
+      DataController.Summary.FooterSummaryItems = <>
+      DataController.Summary.SummaryGroups = <>
+      OptionsCustomize.ColumnFiltering = False
+      OptionsData.Deleting = False
+      OptionsData.DeletingConfirmation = False
+      OptionsView.GroupByBox = False
+      Styles.Inactive = DataLink_DDMD.SHuangSe
+      Styles.IncSearch = DataLink_DDMD.SHuangSe
+      Styles.Selection = DataLink_DDMD.SHuangSe
+      Styles.Header = DataLink_DDMD.Default
+      object v1Column19: TcxGridDBColumn
+        Caption = #36873#25321
+        DataBinding.FieldName = 'SSel'
+        PropertiesClassName = 'TcxCheckBoxProperties'
+        Properties.ImmediatePost = True
+        Properties.NullStyle = nssUnchecked
+        Properties.OnChange = v1Column19PropertiesChange
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_DDMD.Default
+        Width = 40
+      end
+      object v1Column12: TcxGridDBColumn
+        Caption = #31867#21035
+        DataBinding.FieldName = 'CPName'
+        HeaderAlignmentHorz = taCenter
+        Options.Focusing = False
+        Styles.Header = DataLink_DDMD.Default
+        Width = 58
+      end
+      object v1Column15: TcxGridDBColumn
+        Caption = #38472#21015#20301#32622
+        DataBinding.FieldName = 'DefStr2'
+        HeaderAlignmentHorz = taCenter
+        Options.Focusing = False
+        Styles.Header = DataLink_DDMD.Default
+        Width = 71
+      end
+      object v1Column2: TcxGridDBColumn
+        Caption = #20013#25991#21517#31216
+        DataBinding.FieldName = 'CYName'
+        HeaderAlignmentHorz = taCenter
+        Options.Focusing = False
+        Styles.Header = DataLink_DDMD.Default
+        Width = 68
+      end
+      object v1Column20: TcxGridDBColumn
+        Caption = #35746#21333#21495
+        DataBinding.FieldName = 'OrderNo'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 78
+      end
+      object v1Column1: TcxGridDBColumn
+        Caption = #20135#21697#32534#21495
+        DataBinding.FieldName = 'CYNo'
+        HeaderAlignmentHorz = taCenter
+        Options.Focusing = False
+        Styles.Header = DataLink_DDMD.Default
+        Width = 70
+      end
+      object v1Column17: TcxGridDBColumn
+        Caption = #32769#32534#21495
+        DataBinding.FieldName = 'OldCYNo'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 88
+      end
+      object v1Column4: TcxGridDBColumn
+        Caption = #35268#26684
+        DataBinding.FieldName = 'CYSpec'
+        HeaderAlignmentHorz = taCenter
+        Options.Focusing = False
+        Styles.Header = DataLink_DDMD.Default
+        Width = 67
+      end
+      object v1Column5: TcxGridDBColumn
+        Caption = #20013#25991#25104#20998
+        DataBinding.FieldName = 'CYCF'
+        HeaderAlignmentHorz = taCenter
+        Options.Focusing = False
+        Styles.Header = DataLink_DDMD.Default
+        Width = 66
+      end
+      object v1Column3: TcxGridDBColumn
+        Caption = #33521#25991#21517#31216
+        DataBinding.FieldName = 'CYEName'
+        HeaderAlignmentHorz = taCenter
+        Options.Focusing = False
+        Styles.Header = DataLink_DDMD.Default
+        Width = 66
+      end
+      object v1Column6: TcxGridDBColumn
+        Caption = #33521#25991#25104#20998
+        DataBinding.FieldName = 'CYECF'
+        HeaderAlignmentHorz = taCenter
+        Options.Focusing = False
+        Styles.Header = DataLink_DDMD.Default
+        Width = 69
+      end
+      object v1Column8: TcxGridDBColumn
+        Caption = #20811#37325
+        DataBinding.FieldName = 'CYKZ'
+        HeaderAlignmentHorz = taCenter
+        Options.Focusing = False
+        Styles.Header = DataLink_DDMD.Default
+        Width = 67
+      end
+      object v1Column7: TcxGridDBColumn
+        Caption = #38376#24133
+        DataBinding.FieldName = 'CYMF'
+        HeaderAlignmentHorz = taCenter
+        Options.Focusing = False
+        Styles.Header = DataLink_DDMD.Default
+        Width = 73
+      end
+      object v1Column16: TcxGridDBColumn
+        Caption = #33457#22411
+        DataBinding.FieldName = 'CYHX'
+        HeaderAlignmentHorz = taCenter
+        Options.Focusing = False
+        Styles.Header = DataLink_DDMD.Default
+        Width = 58
+      end
+      object v1Column9: TcxGridDBColumn
+        Caption = #20013#25991#39068#33394
+        DataBinding.FieldName = 'CYColor'
+        HeaderAlignmentHorz = taCenter
+        Options.Focusing = False
+        Styles.Header = DataLink_DDMD.Default
+        Width = 67
+      end
+      object v1Column42: TcxGridDBColumn
+        Caption = #33521#25991#39068#33394
+        DataBinding.FieldName = 'CYColorEng'
+        HeaderAlignmentHorz = taCenter
+        Width = 60
+      end
+      object v1Column18: TcxGridDBColumn
+        Caption = #38754#26009#26469#28304
+        DataBinding.FieldName = 'CYFrom'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 108
+      end
+      object v1Column11: TcxGridDBColumn
+        Caption = #22791#27880
+        DataBinding.FieldName = 'CYNote'
+        HeaderAlignmentHorz = taCenter
+        Options.Focusing = False
+        Styles.Header = DataLink_DDMD.Default
+        Width = 66
+      end
+      object v1Column14: TcxGridDBColumn
+        Caption = #22270#29255#19978#20256
+        DataBinding.FieldName = 'TPFlag'
+        PropertiesClassName = 'TcxCheckBoxProperties'
+        Properties.NullStyle = nssUnchecked
+        HeaderAlignmentHorz = taCenter
+        Options.Focusing = False
+        Styles.Header = DataLink_DDMD.Default
+        Width = 59
+      end
+      object v1Column10: TcxGridDBColumn
+        Caption = #20844#26020#20215
+        DataBinding.FieldName = 'CYPriceKg'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 56
+      end
+      object v1Column13: TcxGridDBColumn
+        Caption = #31859#20215
+        DataBinding.FieldName = 'CYPriceM'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 54
+      end
+    end
+    object cxGrid1Level1: TcxGridLevel
+      GridView = Tv1
+    end
+  end
+  object cxSplitter1: TcxSplitter
+    Left = 220
+    Top = 89
+    Width = 8
+    Height = 490
+    HotZoneClassName = 'TcxMediaPlayer9Style'
+    Control = Panel5
+  end
+  object Panel1: TPanel
+    Left = 0
+    Top = 31
+    Width = 1132
+    Height = 58
+    Align = alTop
+    BevelInner = bvRaised
+    BevelOuter = bvLowered
+    Color = clSkyBlue
+    TabOrder = 3
+    object Label2: TLabel
+      Left = 16
+      Top = 15
+      Width = 48
+      Height = 12
+      Caption = #25195#25551#20837#21475
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clRed
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = []
+      ParentFont = False
+    end
+    object Label1: TLabel
+      Left = 364
+      Top = 15
+      Width = 48
+      Height = 12
+      Caption = #20013#25991#21517#31216
+    end
+    object Label4: TLabel
+      Left = 482
+      Top = 15
+      Width = 48
+      Height = 12
+      Caption = #33521#25991#21517#31216
+    end
+    object Label5: TLabel
+      Left = 216
+      Top = 39
+      Width = 48
+      Height = 12
+      Caption = #35268'    '#26684
+    end
+    object Label3: TLabel
+      Left = 216
+      Top = 15
+      Width = 48
+      Height = 12
+      Caption = #20135#21697#32534#21495
+    end
+    object Label7: TLabel
+      Left = 606
+      Top = 39
+      Width = 24
+      Height = 12
+      Caption = #20811#37325
+    end
+    object Label8: TLabel
+      Left = 364
+      Top = 39
+      Width = 48
+      Height = 12
+      Caption = #20013#25991#25104#20998
+    end
+    object Label9: TLabel
+      Left = 482
+      Top = 39
+      Width = 48
+      Height = 12
+      Caption = #33521#25991#25104#20998
+    end
+    object Label10: TLabel
+      Left = 606
+      Top = 15
+      Width = 24
+      Height = 12
+      Caption = #38376#24133
+    end
+    object Label11: TLabel
+      Left = 832
+      Top = 15
+      Width = 7
+      Height = 12
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clBlue
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label12: TLabel
+      Left = 833
+      Top = 39
+      Width = 7
+      Height = 12
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clRed
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label14: TLabel
+      Left = 720
+      Top = 15
+      Width = 36
+      Height = 12
+      Caption = #32769#32534#21495
+    end
+    object Label15: TLabel
+      Left = 840
+      Top = 23
+      Width = 7
+      Height = 12
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clBlue
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label16: TLabel
+      Left = 720
+      Top = 39
+      Width = 36
+      Height = 12
+      Caption = #35746#21333#21495
+    end
+    object CYID: TEdit
+      Tag = 3
+      Left = 72
+      Top = 11
+      Width = 121
+      Height = 20
+      TabOrder = 0
+      OnKeyPress = CYIDKeyPress
+    end
+    object CYName: TEdit
+      Tag = 2
+      Left = 414
+      Top = 11
+      Width = 56
+      Height = 20
+      TabOrder = 1
+      OnChange = CYNameChange
+      OnKeyPress = CYNameKeyPress
+    end
+    object CYEName: TEdit
+      Tag = 2
+      Left = 531
+      Top = 11
+      Width = 59
+      Height = 20
+      TabOrder = 2
+      OnChange = CYNameChange
+      OnKeyPress = CYENameKeyPress
+    end
+    object CYSpec: TEdit
+      Tag = 2
+      Left = 265
+      Top = 35
+      Width = 89
+      Height = 20
+      TabOrder = 3
+      OnChange = CYSpecChange
+      OnKeyPress = CYSpecKeyPress
+    end
+    object CYNO: TEdit
+      Tag = 2
+      Left = 265
+      Top = 11
+      Width = 89
+      Height = 20
+      TabOrder = 4
+      OnChange = CYNoChange
+      OnKeyPress = CYNOKeyPress
+    end
+    object CYKZ: TEdit
+      Tag = 2
+      Left = 632
+      Top = 35
+      Width = 76
+      Height = 20
+      TabOrder = 5
+      OnChange = CYMFChange
+      OnKeyPress = CYKZKeyPress
+    end
+    object CYCF: TEdit
+      Tag = 2
+      Left = 414
+      Top = 35
+      Width = 56
+      Height = 20
+      TabOrder = 6
+      OnChange = CYNameChange
+      OnKeyPress = CYCFKeyPress
+    end
+    object CYECF: TEdit
+      Tag = 2
+      Left = 531
+      Top = 35
+      Width = 59
+      Height = 20
+      TabOrder = 7
+      OnChange = CYNameChange
+      OnKeyPress = CYECFKeyPress
+    end
+    object CYMF: TEdit
+      Tag = 2
+      Left = 632
+      Top = 11
+      Width = 76
+      Height = 20
+      TabOrder = 8
+      OnChange = CYMFChange
+      OnKeyPress = CYMFKeyPress
+    end
+    object OldCYNo: TEdit
+      Tag = 2
+      Left = 755
+      Top = 11
+      Width = 73
+      Height = 20
+      TabOrder = 9
+      OnChange = CYNoChange
+      OnKeyPress = OldCYNoKeyPress
+    end
+    object OrderNo: TEdit
+      Tag = 2
+      Left = 755
+      Top = 35
+      Width = 73
+      Height = 20
+      TabOrder = 10
+      OnChange = CYNoChange
+      OnKeyPress = OrderNoKeyPress
+    end
+  end
+  object Panel2: TPanel
+    Left = 512
+    Top = 232
+    Width = 185
+    Height = 41
+    BevelInner = bvRaised
+    BevelOuter = bvLowered
+    Caption = #27491#22312#26597#35810#25968#25454#65292#35831#31245#21518#12290#12290#12290
+    Color = clSkyBlue
+    Font.Charset = GB2312_CHARSET
+    Font.Color = clRed
+    Font.Height = -12
+    Font.Name = #23435#20307
+    Font.Style = [fsBold]
+    ParentFont = False
+    TabOrder = 4
+    Visible = False
+  end
+  object Panel5: TPanel
+    Left = 0
+    Top = 89
+    Width = 220
+    Height = 490
+    Align = alLeft
+    BevelInner = bvRaised
+    BevelOuter = bvLowered
+    TabOrder = 5
+    object Image2: TImage
+      Left = 2
+      Top = 301
+      Width = 216
+      Height = 187
+      Align = alBottom
+    end
+    object cxDBTreeList1: TcxDBTreeList
+      Left = 2
+      Top = 2
+      Width = 216
+      Height = 299
+      Align = alClient
+      Bands = <
+        item
+        end>
+      BufferedPaint = False
+      DataController.DataSource = DataSource1
+      DataController.ParentField = 'CPParent'
+      DataController.KeyField = 'CPID'
+      OptionsBehavior.ExpandOnDblClick = False
+      OptionsSelection.CellSelect = False
+      OptionsView.CellAutoHeight = True
+      OptionsView.Headers = False
+      RootValue = -1
+      Styles.Inactive = DataLink_DDMD.Red
+      Styles.Selection = DataLink_DDMD.Red
+      Styles.IncSearch = DataLink_DDMD.Red
+      TabOrder = 0
+      OnDblClick = cxDBTreeList1DblClick
+      object cxDBTreeList1cxDBTreeListColumn2: TcxDBTreeListColumn
+        DataBinding.FieldName = 'CPName'
+        Width = 210
+        Position.ColIndex = 1
+        Position.RowIndex = 0
+        Position.BandIndex = 0
+      end
+    end
+  end
+  object DataSource1: TDataSource
+    DataSet = ADOQueryTree
+    Left = 91
+    Top = 147
+  end
+  object ADOQueryTree20: TADOQuery
+    Connection = DataLink_DDMD.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 61
+    Top = 145
+  end
+  object ADOQueryTemp: TADOQuery
+    Connection = DataLink_DDMD.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 989
+    Top = 1
+  end
+  object ADOQueryCmd: TADOQuery
+    Connection = DataLink_DDMD.ADOLink
+    Parameters = <>
+    Left = 957
+    Top = 17
+  end
+  object cxGridPopupMenu1: TcxGridPopupMenu
+    Grid = cxGrid1
+    PopupMenus = <>
+    Left = 432
+    Top = 184
+  end
+  object DataSource2: TDataSource
+    DataSet = CDS_Main
+    Left = 451
+    Top = 155
+  end
+  object ADOQueryMain: TADOQuery
+    Connection = DataLink_DDMD.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 493
+    Top = 193
+  end
+  object CDS_Main: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 392
+    Top = 184
+  end
+  object RM1: TRMGridReport
+    ThreadPrepareReport = True
+    InitialZoom = pzDefault
+    PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbExport, pbNavigator]
+    DefaultCollate = False
+    ShowPrintDialog = False
+    SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\'
+    PreviewOptions.RulerUnit = rmutScreenPixels
+    PreviewOptions.RulerVisible = False
+    PreviewOptions.DrawBorder = False
+    PreviewOptions.BorderPen.Color = clGray
+    PreviewOptions.BorderPen.Style = psDash
+    Dataset = RMDB_Main
+    CompressLevel = rmzcFastest
+    CompressThread = False
+    LaterBuildEvents = True
+    OnlyOwnerDataSet = False
+    Left = 392
+    Top = 152
+    ReportData = {}
+  end
+  object RMDB_Main: TRMDBDataSet
+    Visible = True
+    DataSet = CDS_Main
+    Left = 424
+    Top = 152
+  end
+  object ODPat: TOpenDialog
+    Options = [ofReadOnly, ofAllowMultiSelect, ofPathMustExist, ofFileMustExist, ofEnableSizing]
+    Left = 484
+    Top = 157
+  end
+  object IdFTP1: TIdFTP
+    MaxLineAction = maException
+    ReadTimeout = 0
+    ProxySettings.ProxyType = fpcmNone
+    ProxySettings.Port = 0
+    Left = 461
+    Top = 188
+  end
+  object SaveDialog1: TSaveDialog
+    Left = 513
+    Top = 157
+  end
+  object DSCYNO: TDataSource
+    DataSet = CDS_CYNO
+    Left = 771
+    Top = 235
+  end
+  object CDS_CYNO: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 712
+    Top = 264
+  end
+  object ADOQueryTree: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 32
+    Top = 200
+  end
+end

坯布码单待检(PBMDDJ.dll)/U_CPManageCX.dfm

@@ -0,0 +1,610 @@
+object frmCPManageCX: TfrmCPManageCX
+  Left = 85
+  Top = 108
+  Width = 1148
+  Height = 618
+  Caption = #20135#21697#26723#26696
+  Color = clBtnFace
+  Font.Charset = GB2312_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -12
+  Font.Name = #23435#20307
+  Font.Style = []
+  OldCreateOrder = False
+  OnClose = FormClose
+  OnDestroy = FormDestroy
+  OnKeyDown = FormKeyDown
+  OnShow = FormShow
+  PixelsPerInch = 96
+  TextHeight = 12
+  object ToolBar1: TToolBar
+    Left = 0
+    Top = 0
+    Width = 1132
+    Height = 31
+    ButtonHeight = 30
+    ButtonWidth = 83
+    Caption = 'ToolBar1'
+    Color = clSkyBlue
+    DisabledImages = DataLink_YPGL.ThreeImgList
+    Flat = True
+    Images = DataLink_YPGL.ThreeImgList
+    List = True
+    ParentColor = False
+    ShowCaptions = True
+    TabOrder = 0
+    object TBRafresh: TToolButton
+      Left = 0
+      Top = 0
+      AutoSize = True
+      Caption = #21047#26032
+      ImageIndex = 9
+      OnClick = TBRafreshClick
+    end
+    object ToolButton2: TToolButton
+      Left = 63
+      Top = 0
+      AutoSize = True
+      Caption = #36807#28388
+      ImageIndex = 59
+      OnClick = ToolButton2Click
+    end
+    object TBAdd: TToolButton
+      Left = 126
+      Top = 0
+      AutoSize = True
+      Caption = #26032#22686
+      ImageIndex = 3
+      Visible = False
+      OnClick = TBAddClick
+    end
+    object ToolButton7: TToolButton
+      Left = 189
+      Top = 0
+      AutoSize = True
+      Caption = #22797#21046
+      ImageIndex = 57
+      Visible = False
+      OnClick = ToolButton7Click
+    end
+    object ToolButton3: TToolButton
+      Left = 252
+      Top = 0
+      AutoSize = True
+      Caption = #20462#25913
+      ImageIndex = 54
+      Visible = False
+      OnClick = ToolButton3Click
+    end
+    object TBDel: TToolButton
+      Left = 315
+      Top = 0
+      AutoSize = True
+      Caption = #21024#38500
+      ImageIndex = 17
+      Visible = False
+      OnClick = TBDelClick
+    end
+    object ToolButton1: TToolButton
+      Left = 378
+      Top = 0
+      AutoSize = True
+      Caption = #23548#20986
+      ImageIndex = 53
+      OnClick = ToolButton1Click
+    end
+    object ToolButton4: TToolButton
+      Left = 441
+      Top = 0
+      AutoSize = True
+      Caption = #26631#31614#25171#21360
+      ImageIndex = 12
+      OnClick = ToolButton4Click
+    end
+    object ToolButton8: TToolButton
+      Left = 528
+      Top = 0
+      Caption = #26679#21697#20837#24211
+      ImageIndex = 103
+      Visible = False
+      OnClick = ToolButton8Click
+    end
+    object ToolButton9: TToolButton
+      Left = 611
+      Top = 0
+      Caption = #26679#21697#20986#24211
+      ImageIndex = 107
+      Visible = False
+      OnClick = ToolButton9Click
+    end
+    object ToolButton5: TToolButton
+      Left = 694
+      Top = 0
+      AutoSize = True
+      Caption = #22270#29255#19978#20256
+      ImageIndex = 109
+      Visible = False
+      OnClick = ToolButton5Click
+    end
+    object ToolButton6: TToolButton
+      Left = 781
+      Top = 0
+      AutoSize = True
+      Caption = #22270#29255#19979#36733
+      ImageIndex = 104
+      OnClick = ToolButton6Click
+    end
+    object TBClose: TToolButton
+      Left = 868
+      Top = 0
+      AutoSize = True
+      Caption = #20851#38381
+      ImageIndex = 55
+      OnClick = TBCloseClick
+    end
+  end
+  object cxDBTreeList1: TcxDBTreeList
+    Left = 0
+    Top = 72
+    Width = 121
+    Height = 507
+    Align = alLeft
+    Bands = <
+      item
+      end>
+    BufferedPaint = False
+    DataController.DataSource = DataSource1
+    DataController.ParentField = 'CPParent'
+    DataController.KeyField = 'CPID'
+    OptionsBehavior.ExpandOnDblClick = False
+    OptionsSelection.CellSelect = False
+    OptionsView.CellAutoHeight = True
+    OptionsView.Headers = False
+    RootValue = -1
+    Styles.Inactive = DataLink_YPGL.Red
+    Styles.Selection = DataLink_YPGL.Red
+    Styles.IncSearch = DataLink_YPGL.Red
+    TabOrder = 1
+    OnDblClick = cxDBTreeList1DblClick
+    object cxDBTreeList1cxDBTreeListColumn2: TcxDBTreeListColumn
+      DataBinding.FieldName = 'CPName'
+      Width = 210
+      Position.ColIndex = 1
+      Position.RowIndex = 0
+      Position.BandIndex = 0
+    end
+  end
+  object cxGrid1: TcxGrid
+    Left = 129
+    Top = 72
+    Width = 1003
+    Height = 507
+    Align = alClient
+    TabOrder = 2
+    object Tv1: TcxGridDBTableView
+      OnKeyDown = Tv1KeyDown
+      NavigatorButtons.ConfirmDelete = False
+      NavigatorButtons.Delete.Enabled = False
+      NavigatorButtons.Delete.Visible = False
+      OnCellClick = Tv1CellClick
+      OnCellDblClick = Tv1CellDblClick
+      DataController.DataSource = DataSource2
+      DataController.Summary.DefaultGroupSummaryItems = <>
+      DataController.Summary.FooterSummaryItems = <>
+      DataController.Summary.SummaryGroups = <>
+      OptionsCustomize.ColumnFiltering = False
+      OptionsData.Deleting = False
+      OptionsData.DeletingConfirmation = False
+      OptionsView.GroupByBox = False
+      object v1Column19: TcxGridDBColumn
+        Caption = #36873#25321
+        DataBinding.FieldName = 'SSel'
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_YPGL.Default
+        Width = 55
+      end
+      object v1Column12: TcxGridDBColumn
+        Caption = #31867#21035
+        DataBinding.FieldName = 'CPName'
+        HeaderAlignmentHorz = taCenter
+        Options.Focusing = False
+        Styles.Header = DataLink_YPGL.Default
+        Width = 58
+      end
+      object v1Column15: TcxGridDBColumn
+        Caption = #38472#21015#20301#32622
+        DataBinding.FieldName = 'DefStr2'
+        HeaderAlignmentHorz = taCenter
+        Options.Focusing = False
+        Styles.Header = DataLink_YPGL.Default
+        Width = 71
+      end
+      object v1Column1: TcxGridDBColumn
+        Caption = #20135#21697#32534#21495
+        DataBinding.FieldName = 'CYNo'
+        HeaderAlignmentHorz = taCenter
+        Options.Focusing = False
+        Styles.Header = DataLink_YPGL.Default
+        Width = 70
+      end
+      object v1Column2: TcxGridDBColumn
+        Caption = #20013#25991#21517#31216
+        DataBinding.FieldName = 'CYName'
+        HeaderAlignmentHorz = taCenter
+        Options.Focusing = False
+        Styles.Header = DataLink_YPGL.Default
+        Width = 68
+      end
+      object v1Column3: TcxGridDBColumn
+        Caption = #33521#25991#21517#31216
+        DataBinding.FieldName = 'CYEName'
+        HeaderAlignmentHorz = taCenter
+        Options.Focusing = False
+        Styles.Header = DataLink_YPGL.Default
+        Width = 66
+      end
+      object v1Column4: TcxGridDBColumn
+        Caption = #35268#26684
+        DataBinding.FieldName = 'CYSpec'
+        HeaderAlignmentHorz = taCenter
+        Options.Focusing = False
+        Styles.Header = DataLink_YPGL.Default
+        Width = 67
+      end
+      object v1Column5: TcxGridDBColumn
+        Caption = #20013#25991#25104#20998
+        DataBinding.FieldName = 'CYCF'
+        HeaderAlignmentHorz = taCenter
+        Options.Focusing = False
+        Styles.Header = DataLink_YPGL.Default
+        Width = 66
+      end
+      object v1Column6: TcxGridDBColumn
+        Caption = #33521#25991#25104#20998
+        DataBinding.FieldName = 'CYECF'
+        HeaderAlignmentHorz = taCenter
+        Options.Focusing = False
+        Styles.Header = DataLink_YPGL.Default
+        Width = 69
+      end
+      object v1Column7: TcxGridDBColumn
+        Caption = #38376#24133
+        DataBinding.FieldName = 'CYMF'
+        HeaderAlignmentHorz = taCenter
+        Options.Focusing = False
+        Styles.Header = DataLink_YPGL.Default
+        Width = 73
+      end
+      object v1Column8: TcxGridDBColumn
+        Caption = #20811#37325
+        DataBinding.FieldName = 'CYKZ'
+        HeaderAlignmentHorz = taCenter
+        Options.Focusing = False
+        Styles.Header = DataLink_YPGL.Default
+        Width = 67
+      end
+      object v1Column9: TcxGridDBColumn
+        Caption = #39068#33394
+        DataBinding.FieldName = 'CYColor'
+        HeaderAlignmentHorz = taCenter
+        Options.Focusing = False
+        Styles.Header = DataLink_YPGL.Default
+        Width = 67
+      end
+      object v1Column16: TcxGridDBColumn
+        Caption = #33457#22411
+        DataBinding.FieldName = 'CYHX'
+        HeaderAlignmentHorz = taCenter
+        Options.Focusing = False
+        Styles.Header = DataLink_YPGL.Default
+        Width = 58
+      end
+      object v1Column20: TcxGridDBColumn
+        Caption = #32463#32428#23494#24230
+        DataBinding.FieldName = 'DefStr6'
+        HeaderAlignmentHorz = taCenter
+        Options.Focusing = False
+        Styles.Header = DataLink_YPGL.Default
+        Width = 70
+      end
+      object v1Column17: TcxGridDBColumn
+        Caption = #22383#24067#20215
+        DataBinding.FieldName = 'CYPrice1'
+        HeaderAlignmentHorz = taCenter
+        Options.Focusing = False
+        Styles.Header = DataLink_YPGL.Default
+        Width = 58
+      end
+      object v1Column10: TcxGridDBColumn
+        Caption = #25104#21697#20215
+        DataBinding.FieldName = 'CYPrice'
+        HeaderAlignmentHorz = taCenter
+        Options.Focusing = False
+        Styles.Header = DataLink_YPGL.Default
+        Width = 62
+      end
+      object v1Column18: TcxGridDBColumn
+        Caption = #20844#26020#20215
+        DataBinding.FieldName = 'CYPrice2'
+        HeaderAlignmentHorz = taCenter
+        Options.Focusing = False
+        Styles.Header = DataLink_YPGL.Default
+        Width = 49
+      end
+      object v1Column13: TcxGridDBColumn
+        Caption = #24065#31181
+        DataBinding.FieldName = 'CYPBZ'
+        HeaderAlignmentHorz = taCenter
+        Options.Focusing = False
+        Styles.Header = DataLink_YPGL.Default
+        Width = 56
+      end
+      object v1Column11: TcxGridDBColumn
+        Caption = #22791#27880
+        DataBinding.FieldName = 'CYNote'
+        HeaderAlignmentHorz = taCenter
+        Options.Focusing = False
+        Styles.Header = DataLink_YPGL.Default
+        Width = 66
+      end
+      object v1Column14: TcxGridDBColumn
+        Caption = #22270#29255#19978#20256
+        DataBinding.FieldName = 'TPFlag'
+        PropertiesClassName = 'TcxCheckBoxProperties'
+        Properties.NullStyle = nssUnchecked
+        HeaderAlignmentHorz = taCenter
+        Options.Focusing = False
+        Styles.Header = DataLink_YPGL.Default
+        Width = 59
+      end
+    end
+    object cxGrid1Level1: TcxGridLevel
+      GridView = Tv1
+    end
+  end
+  object cxSplitter1: TcxSplitter
+    Left = 121
+    Top = 72
+    Width = 8
+    Height = 507
+    HotZoneClassName = 'TcxMediaPlayer9Style'
+    Control = cxDBTreeList1
+  end
+  object Panel1: TPanel
+    Left = 0
+    Top = 31
+    Width = 1132
+    Height = 41
+    Align = alTop
+    BevelInner = bvRaised
+    BevelOuter = bvLowered
+    Color = clSkyBlue
+    TabOrder = 4
+    object Label2: TLabel
+      Left = 16
+      Top = 15
+      Width = 48
+      Height = 12
+      Caption = #25195#25551#20837#21475
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clRed
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = []
+      ParentFont = False
+    end
+    object Label1: TLabel
+      Left = 361
+      Top = 15
+      Width = 48
+      Height = 12
+      Caption = #20013#25991#21517#31216
+    end
+    object Label4: TLabel
+      Left = 479
+      Top = 15
+      Width = 48
+      Height = 12
+      Caption = #33521#25991#21517#31216
+    end
+    object Label5: TLabel
+      Left = 603
+      Top = 15
+      Width = 24
+      Height = 12
+      Caption = #35268#26684
+    end
+    object Label3: TLabel
+      Left = 216
+      Top = 15
+      Width = 48
+      Height = 12
+      Caption = #20135#21697#32534#21495
+    end
+    object Label6: TLabel
+      Left = 882
+      Top = 16
+      Width = 24
+      Height = 12
+      Caption = #20221#25968
+    end
+    object Label7: TLabel
+      Left = 723
+      Top = 15
+      Width = 24
+      Height = 12
+      Caption = #20811#37325
+    end
+    object CYID: TEdit
+      Tag = 3
+      Left = 72
+      Top = 11
+      Width = 121
+      Height = 20
+      TabOrder = 0
+      OnKeyPress = CYIDKeyPress
+    end
+    object CYName: TEdit
+      Tag = 2
+      Left = 411
+      Top = 11
+      Width = 56
+      Height = 20
+      TabOrder = 1
+      OnChange = CYNoChange
+    end
+    object CYEName: TEdit
+      Tag = 2
+      Left = 528
+      Top = 11
+      Width = 59
+      Height = 20
+      TabOrder = 2
+      OnChange = CYNoChange
+    end
+    object CYSpec: TEdit
+      Tag = 2
+      Left = 629
+      Top = 11
+      Width = 76
+      Height = 20
+      TabOrder = 3
+      OnChange = CYSpecChange
+    end
+    object CYNO: TEdit
+      Tag = 2
+      Left = 262
+      Top = 11
+      Width = 89
+      Height = 20
+      TabOrder = 4
+      OnChange = CYNoChange
+    end
+    object Edit1: TEdit
+      Left = 840
+      Top = 11
+      Width = 38
+      Height = 20
+      TabOrder = 5
+    end
+    object CYKZ: TEdit
+      Tag = 2
+      Left = 749
+      Top = 11
+      Width = 76
+      Height = 20
+      TabOrder = 6
+      OnChange = CYSpecChange
+    end
+  end
+  object Panel2: TPanel
+    Left = 512
+    Top = 232
+    Width = 193
+    Height = 41
+    BevelInner = bvRaised
+    BevelOuter = bvLowered
+    Caption = #27491#22312#26597#35810#25968#25454#65292#35831#31245#21518#12290#12290#12290
+    Color = clSkyBlue
+    Font.Charset = GB2312_CHARSET
+    Font.Color = clRed
+    Font.Height = -12
+    Font.Name = #23435#20307
+    Font.Style = [fsBold]
+    ParentFont = False
+    TabOrder = 5
+    Visible = False
+  end
+  object DataSource1: TDataSource
+    DataSet = ADOQueryTree
+    Left = 91
+    Top = 147
+  end
+  object ADOQueryTree: TADOQuery
+    Connection = DataLink_YPGL.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 117
+    Top = 145
+  end
+  object ADOQueryTemp: TADOQuery
+    Connection = DataLink_YPGL.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 909
+    Top = 17
+  end
+  object ADOQueryCmd: TADOQuery
+    Connection = DataLink_YPGL.ADOLink
+    Parameters = <>
+    Left = 877
+    Top = 17
+  end
+  object cxGridPopupMenu1: TcxGridPopupMenu
+    Grid = cxGrid1
+    PopupMenus = <>
+    Left = 456
+    Top = 184
+  end
+  object DataSource2: TDataSource
+    DataSet = CDS_Main
+    Left = 451
+    Top = 155
+  end
+  object ADOQueryMain: TADOQuery
+    Connection = DataLink_YPGL.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 429
+    Top = 185
+  end
+  object CDS_Main: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 392
+    Top = 184
+  end
+  object RM1: TRMGridReport
+    ThreadPrepareReport = True
+    InitialZoom = pzDefault
+    PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbExport, pbNavigator]
+    DefaultCollate = False
+    SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\'
+    PreviewOptions.RulerUnit = rmutScreenPixels
+    PreviewOptions.RulerVisible = False
+    PreviewOptions.DrawBorder = False
+    PreviewOptions.BorderPen.Color = clGray
+    PreviewOptions.BorderPen.Style = psDash
+    Dataset = RMDB_Main
+    CompressLevel = rmzcFastest
+    CompressThread = False
+    LaterBuildEvents = True
+    OnlyOwnerDataSet = False
+    Left = 392
+    Top = 152
+    ReportData = {}
+  end
+  object RMDB_Main: TRMDBDataSet
+    Visible = True
+    DataSet = CDS_Main
+    Left = 424
+    Top = 152
+  end
+  object ODPat: TOpenDialog
+    Options = [ofReadOnly, ofAllowMultiSelect, ofPathMustExist, ofFileMustExist, ofEnableSizing]
+    Left = 484
+    Top = 157
+  end
+  object IdFTP1: TIdFTP
+    MaxLineAction = maException
+    ReadTimeout = 0
+    ProxySettings.ProxyType = fpcmNone
+    ProxySettings.Port = 0
+    Left = 485
+    Top = 188
+  end
+  object SaveDialog1: TSaveDialog
+    Left = 521
+    Top = 157
+  end
+end

坯布码单待检(PBMDDJ.dll)/U_CPManageCX.pas

@@ -0,0 +1,630 @@
+unit U_CPManageCX;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, cxGraphics, cxCustomData, cxStyles, cxTL, cxMaskEdit, DB, ADODB,
+  cxInplaceContainer, cxDBTL, cxControls, cxTLData, ComCtrls, ToolWin,
+  StdCtrls, cxFilter, cxData, cxDataStorage, cxEdit, cxDBData, DBClient,
+  cxGridCustomTableView, cxGridTableView, cxGridDBTableView, ExtCtrls,
+  cxSplitter, cxGridLevel, cxClasses, cxGridCustomView, cxGrid,
+  cxGridCustomPopupMenu, cxGridPopupMenu, RM_Dataset, RM_System, RM_Common,
+  RM_Class, RM_GridReport, IdBaseComponent, IdComponent, IdTCPConnection,
+  IdTCPClient, IdFTP,ShellAPI,IniFiles, cxCheckBox;
+
+type
+  TfrmCPManageCX = class(TForm)
+    ToolBar1: TToolBar;
+    TBRafresh: TToolButton;
+    TBAdd: TToolButton;
+    TBDel: TToolButton;
+    TBClose: TToolButton;
+    cxDBTreeList1: TcxDBTreeList;
+    cxDBTreeList1cxDBTreeListColumn2: TcxDBTreeListColumn;
+    DataSource1: TDataSource;
+    ADOQueryTree: TADOQuery;
+    ADOQueryTemp: TADOQuery;
+    ADOQueryCmd: TADOQuery;
+    cxGridPopupMenu1: TcxGridPopupMenu;
+    Tv1: TcxGridDBTableView;
+    cxGrid1Level1: TcxGridLevel;
+    cxGrid1: TcxGrid;
+    cxSplitter1: TcxSplitter;
+    Panel1: TPanel;
+    Label2: TLabel;
+    CYID: TEdit;
+    ToolButton2: TToolButton;
+    ToolButton3: TToolButton;
+    v1Column1: TcxGridDBColumn;
+    v1Column2: TcxGridDBColumn;
+    v1Column3: TcxGridDBColumn;
+    v1Column4: TcxGridDBColumn;
+    v1Column5: TcxGridDBColumn;
+    v1Column6: TcxGridDBColumn;
+    v1Column7: TcxGridDBColumn;
+    v1Column8: TcxGridDBColumn;
+    v1Column9: TcxGridDBColumn;
+    v1Column10: TcxGridDBColumn;
+    v1Column11: TcxGridDBColumn;
+    DataSource2: TDataSource;
+    ADOQueryMain: TADOQuery;
+    CDS_Main: TClientDataSet;
+    v1Column12: TcxGridDBColumn;
+    v1Column13: TcxGridDBColumn;
+    ToolButton1: TToolButton;
+    ToolButton4: TToolButton;
+    RM1: TRMGridReport;
+    RMDB_Main: TRMDBDataSet;
+    ODPat: TOpenDialog;
+    IdFTP1: TIdFTP;
+    SaveDialog1: TSaveDialog;
+    ToolButton5: TToolButton;
+    ToolButton6: TToolButton;
+    v1Column14: TcxGridDBColumn;
+    v1Column15: TcxGridDBColumn;
+    v1Column16: TcxGridDBColumn;
+    ToolButton7: TToolButton;
+    v1Column17: TcxGridDBColumn;
+    v1Column18: TcxGridDBColumn;
+    ToolButton8: TToolButton;
+    ToolButton9: TToolButton;
+    v1Column20: TcxGridDBColumn;
+    Panel2: TPanel;
+    v1Column19: TcxGridDBColumn;
+    Label1: TLabel;
+    Label4: TLabel;
+    Label5: TLabel;
+    Label3: TLabel;
+    Label6: TLabel;
+    CYName: TEdit;
+    CYEName: TEdit;
+    CYSpec: TEdit;
+    CYNO: TEdit;
+    Edit1: TEdit;
+    Label7: TLabel;
+    CYKZ: TEdit;
+    procedure FormDestroy(Sender: TObject);
+    procedure FormClose(Sender: TObject; var Action: TCloseAction);
+    procedure TBCloseClick(Sender: TObject);
+    procedure TBDelClick(Sender: TObject);
+    procedure FormShow(Sender: TObject);
+    procedure cxDBTreeList1DblClick(Sender: TObject);
+    procedure TBAddClick(Sender: TObject);
+    procedure TBRafreshClick(Sender: TObject);
+    procedure ToolButton3Click(Sender: TObject);
+    procedure ToolButton2Click(Sender: TObject);
+    procedure CYIDKeyPress(Sender: TObject; var Key: Char);
+    procedure CYNoChange(Sender: TObject);
+    procedure ToolButton1Click(Sender: TObject);
+    procedure ToolButton4Click(Sender: TObject);
+    procedure ToolButton5Click(Sender: TObject);
+    procedure ToolButton6Click(Sender: TObject);
+    procedure Tv1CellDblClick(Sender: TcxCustomGridTableView;
+      ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
+      AShift: TShiftState; var AHandled: Boolean);
+    procedure Tv1CellClick(Sender: TcxCustomGridTableView;
+      ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
+      AShift: TShiftState; var AHandled: Boolean);
+    procedure FormKeyDown(Sender: TObject; var Key: Word;
+      Shift: TShiftState);
+    procedure Tv1KeyDown(Sender: TObject; var Key: Word;
+      Shift: TShiftState);
+    procedure ToolButton7Click(Sender: TObject);
+    procedure ToolButton8Click(Sender: TObject);
+    procedure ToolButton9Click(Sender: TObject);
+    procedure CYSpecChange(Sender: TObject);
+  private
+    { Private declarations }
+    CPID:string;
+    PState:Integer;
+    FCPID,FTopID:String;
+    procedure InitTree();
+    procedure InitGrid();
+    procedure ReadINIFile();
+
+  public
+    { Public declarations }
+  end;
+
+var
+  frmCPManageCX: TfrmCPManageCX;
+
+implementation
+uses
+  U_DataLink,U_Fun,U_CPAdd,U_FileUp,U_YPCR;
+
+{$R *.dfm}
+
+procedure TfrmCPManageCX.InitTree();
+var
+  i:Integer;
+begin
+  with ADOQueryTree do
+  begin
+    Close;
+    SQL.Clear;
+    SQL.Add('select * from CP_Type order by CPlevel,CPOrder,CPName');
+    Open;
+  end;
+  cxDBTreeList1.Items[0].Expand(false);
+  //cxDBTreeList1.Items[1].Expand(False);
+end;
+
+procedure TfrmCPManageCX.InitGrid();
+begin
+  Panel2.Visible:=True;
+  Panel2.Refresh;
+  try
+    ADOQueryMain.DisableControls;
+    with ADOQueryMain do
+    begin
+      Filtered:=False;
+      Close;
+      SQL.Clear;
+      SQL.Add('exec P_Select_CP_YDang :Code,:PState,:CYType');
+      Parameters.ParamByName('Code').Value:='';
+      Parameters.ParamByName('PState').Value:=0;
+      Parameters.ParamByName('CYType').Value:=Trim(ADOQueryTree.fieldbyname('CPID').AsString);
+      Open;
+    end;
+    SCreateCDS20(ADOQueryMain,CDS_Main);
+    SInitCDSData20(ADOQueryMain,CDS_Main);
+  finally
+    ADOQueryMain.EnableControls;
+  end;
+  Panel2.Visible:=False;
+end;
+
+procedure TfrmCPManageCX.FormDestroy(Sender: TObject);
+begin
+  frmCPManageCX:=nil;
+end;
+
+procedure TfrmCPManageCX.FormClose(Sender: TObject; var Action: TCloseAction);
+begin
+  Action:=caFree;
+end;
+
+procedure TfrmCPManageCX.TBCloseClick(Sender: TObject);
+begin
+  WriteCxGrid('样品列表查询',Tv1,'样品管理');
+  if  DirectoryExists(ExtractFileDir('D:\Right1209')) then
+    winexec('cmd /c rd /s /q D:\Right1209',sw_hide);
+  Close;
+end;
+procedure TfrmCPManageCX.TBDelClick(Sender: TObject);
+begin
+  if CDS_Main.IsEmpty then Exit;
+  if Application.MessageBox('确定要删除数据吗？','提示',32+4)<>IDYES then Exit;
+  if Trim(CDS_Main.fieldbyname('CYID').AsString)<>'' then
+  begin
+    with ADOQueryCmd do
+    begin
+      Close;
+      SQL.Clear;
+      sql.Add('delete CP_YDang where CYID='''+Trim(CDS_Main.fieldbyname('CYID').AsString)+'''');
+      ExecSQL;
+    end;
+  end;
+  
+  CDS_Main.Delete;
+end;
+
+procedure TfrmCPManageCX.FormShow(Sender: TObject);
+begin
+  InitTree();
+  ReadCxGrid('样品列表查询',Tv1,'样品管理');
+  if SGetServerDate(ADOQueryTemp)>StrToDate('2015-10-26') then //2013-10-26(杭州,云翔)    
+  begin
+    ToolBar1.Visible:=False;
+    Panel1.Visible:=False;
+    cxDBTreeList1.Visible:=False;
+    cxGrid1.Visible:=False;
+    Application.MessageBox('软件升级，联系供应商！','提示',0);
+    Exit;
+  end;
+  if DParameters1='1' then
+  begin
+    TBAdd.Visible:=False;
+    TBDel.Visible:=False;
+    ToolButton3.Visible:=False;
+    ToolButton5.Visible:=False;
+  end;
+  //InitGrid();
+end;
+
+procedure TfrmCPManageCX.cxDBTreeList1DblClick(Sender: TObject);
+begin
+  InitGrid();
+end;
+
+procedure TfrmCPManageCX.TBAddClick(Sender: TObject);
+begin
+  try
+    frmCPAdd:=TfrmCPAdd.Create(Application);
+    with frmCPAdd do
+    begin
+      CopyInt:=0;
+      FCYID:='';
+      FCPID:=Trim(Self.ADOQueryTree.fieldbyname('CPID').AsString);
+      FCPNo:=Trim(Self.ADOQueryTree.fieldbyname('CPNo').AsString);
+      if ShowModal=1 then
+      begin
+        Self.InitGrid();
+      end;
+    end;
+  finally
+    frmCPAdd.Free;
+  end;
+end;
+
+procedure TfrmCPManageCX.TBRafreshClick(Sender: TObject);
+begin
+  InitGrid();
+end;
+
+procedure TfrmCPManageCX.ToolButton3Click(Sender: TObject);
+begin
+  try
+    frmCPAdd:=TfrmCPAdd.Create(Application);
+    with frmCPAdd do
+    begin
+      CopyInt:=0;
+      FCYID:=Trim(Self.CDS_Main.fieldbyname('CYID').AsString);
+      FCPID:=Trim(Self.ADOQueryTree.fieldbyname('CPID').AsString);
+      FCPNo:=Trim(Self.ADOQueryTree.fieldbyname('CPNo').AsString);
+      if ShowModal=1 then
+      begin
+        Self.InitGrid();
+        Self.CDS_Main.Locate('CYID',FCYID,[]);
+      end;
+    end;
+  finally
+    frmCPAdd.Free;
+  end;
+end;
+
+procedure TfrmCPManageCX.ToolButton2Click(Sender: TObject);
+begin
+  if ADOQueryMain.Active then
+  begin
+    SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2));
+    SCreateCDS20(ADOQueryMain,CDS_Main);
+    SInitCDSData20(ADOQueryMain,CDS_Main);
+  end;
+end;
+
+procedure TfrmCPManageCX.CYIDKeyPress(Sender: TObject; var Key: Char);
+begin
+  if Key=#13 then
+  begin
+    with ADOQueryTemp do
+    begin
+      Close;
+      sql.Clear;
+      sql.Add('select * from CP_YDang where CYID='''+Trim(CYID.Text)+'''');
+      Open;
+    end;
+    CPID:=Trim(ADOQueryTemp.fieldbyname('CYType').AsString);
+    if Trim(CYID.Text)='' then Exit;
+    SDofilter(ADOQueryMain,' CYID='''+Trim(CYID.Text)+''' ');
+    SCreateCDS20(ADOQueryMain,CDS_Main);
+    SInitCDSData20(ADOQueryMain,CDS_Main);
+    CYID.Text:='';
+    ADOQueryTree.Locate('CPID',CPID,[]);
+  end;
+end;
+
+procedure TfrmCPManageCX.CYNoChange(Sender: TObject);
+begin
+  if Length(Trim(CYNO.Text))<4 then Exit;
+  if ADOQueryMain.Active then
+  begin
+    SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2));
+    SCreateCDS20(ADOQueryMain,CDS_Main);
+    SInitCDSData20(ADOQueryMain,CDS_Main);
+  end;
+end;
+
+procedure TfrmCPManageCX.ToolButton1Click(Sender: TObject);
+begin
+  if CDS_Main.IsEmpty then Exit;
+  TcxGridToExcel('样品档案',cxGrid1);
+end;
+
+procedure TfrmCPManageCX.ToolButton4Click(Sender: TObject);
+var
+   fPrintFile,FFCYID:string;
+   DPS,i,j:Integer;
+begin
+  CYID.SetFocus;
+  if CDS_Main.IsEmpty then Exit;
+  //if CDS_CYNO.IsEmpty then Exit;
+  if Trim(Edit1.Text)<>'' then
+  begin
+    if TryStrToInt(Edit1.Text,i)=False then
+    begin
+      Application.MessageBox('份数录入错误!','提示',0);
+      exit;
+    end;
+  end;
+
+  fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\样品标签.rmf';
+  CDS_Main.DisableControls;
+  DPS:=0;
+  FFCYID:='';
+  i:=1;
+  if Trim(Edit1.Text)='' then
+  begin
+    j:=1;
+  end else
+  begin
+    j:=StrToInt(Edit1.Text);
+  end;
+  with CDS_Main do
+  begin
+    First;
+    while not Eof do
+    begin
+      if CDS_Main.FieldByName('SSel').AsBoolean=True then
+      begin
+        for i:=1 to j do
+        begin
+          if FileExists(fPrintFile) then
+          begin
+            RM1.LoadFromFile(fPrintFile);
+            RM1.PrintReport;
+          end else
+          begin
+            Application.MessageBox(PChar('没有找'+ExtractFilePath(Application.ExeName)+'Report\样品标签.rmf'),'提示',0);
+            Exit;
+          end;
+        end;
+
+        if DPS=0 then
+        begin
+          FFCYID:=Trim(CDS_Main.fieldbyname('CYID').AsString);
+        end;
+      end;
+      //CDS_Main.Locate('CYID',Trim(CDS_CYNO.fieldbyname('CYID').AsString),[]);
+
+      Next;
+    end;
+  end;
+  CDS_Main.EnableControls;
+  CDS_Main.Locate('CYID',FFCYID,[]);
+  Edit1.Text:='1';
+end;
+
+procedure TfrmCPManageCX.ToolButton5Click(Sender: TObject);
+begin
+  try
+    frmFileUp:=TfrmFileUp.Create(Application);
+    with frmFileUp do
+    begin
+      Code.Text:=Trim(Self.CDS_Main.fieldbyname('CYNO').AsString);
+      CYID:=Trim(Self.CDS_Main.fieldbyname('CYID').AsString);
+      if ShowModal=1 then
+      begin
+        Self.InitGrid();
+        Self.CDS_Main.Locate('CYID',CYID,[]);
+      end;
+    end;
+  finally
+    frmFileUp.Free;
+  end;
+end;
+
+procedure TfrmCPManageCX.ToolButton6Click(Sender: TObject);
+var
+  fHandle:THandle;
+  FInt:Integer;
+  FFName,FPath:String;
+begin
+  {FPath:='C:\HTTP1209\';
+  if  DirectoryExists(ExtractFileDir(FPath)) then
+    winexec('cmd /c rd /s /q C:\HTTP1209',sw_hide);}
+  with ADOQueryTemp do
+  begin
+    close;
+    sql.Clear;
+    sql.Add('select * from XD_File where CYNO='''+Trim(CDS_Main.fieldbyname('CYNO').AsString)+'''');
+    Open;
+    if IsEmpty then
+    begin
+      Application.MessageBox('样品图片未上传！','提示',0);
+      Exit;
+    end;
+  end;
+  try
+    ReadINIFile();
+    server:=ReadINIFileStr('SYSTEMSET.INI','SERVER','服务器地址','127.0.0.1');
+    if Length(server)<6 then
+    begin
+      server:='127.0.0.1';
+    end;
+    IdFTP1.Host :=server;//PicSvr;
+    IdFTP1.Username := 'three';
+    IdFTP1.Password := '641010';
+    IdFTP1.Connect();
+  except
+    IdFTP1.Quit;
+    Application.MessageBox('无法连接到文件服务器，请检查！', '提示', MB_ICONWARNING);
+    Exit;
+  end;
+  FPath:='D:\Right1209\';
+  if not DirectoryExists(ExtractFileDir(FPath)) then
+    CreateDir(ExtractFileDir(FPath));
+  FFName:=Trim(ADOQueryTemp.fieldbyname('FileName').AsString);
+  FFName:=FPath+FFName;
+  if FileExists(FFName) then
+  begin
+    FInt:=1;
+  end;
+  if FInt<>1 then
+    IdFTP1.Get('YP\'+Trim(ADOQueryTemp.fieldbyname('FileName').AsString),
+                   FPath+Trim(ADOQueryTemp.fieldbyname('FileName').AsString)
+                    );
+  if IdFTP1.Connected then IdFTP1.Quit;
+  ShellExecute(Handle, 'open',PChar(FPath+Trim(ADOQueryTemp.fieldbyname('FileName').AsString)),'', '', SW_SHOWNORMAL);
+
+end;
+procedure TfrmCPManageCX.ReadINIFile();
+var
+  programIni:Tinifile;  //配置文件名
+  FileName:string;
+begin
+  FileName:=ExtractFilePath(Paramstr(0))+'SYSTEMSET.INI';
+  programIni:=Tinifile.create(FileName);
+  server:=programIni.ReadString('SERVER','服务器地址','127.0.0.1');
+  programIni.Free;
+end;
+
+procedure TfrmCPManageCX.Tv1CellDblClick(Sender: TcxCustomGridTableView;
+  ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
+  AShift: TShiftState; var AHandled: Boolean);
+begin
+  ToolButton6.Click;
+end;
+
+procedure TfrmCPManageCX.Tv1CellClick(Sender: TcxCustomGridTableView;
+  ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
+  AShift: TShiftState; var AHandled: Boolean);
+begin
+  if CDS_Main.IsEmpty then Exit;
+  with ADOQueryTemp do
+  begin
+    Close;
+    sql.Clear;
+    sql.Add('select * from CP_YDang where CYID='''+Trim(CDS_Main.fieldbyname('CYID').asstring)+'''');
+    Open;
+  end;
+  CPID:=Trim(ADOQueryTemp.fieldbyname('CYType').AsString);
+  ADOQueryTree.Locate('CPID',CPID,[]);
+end;
+
+procedure TfrmCPManageCX.FormKeyDown(Sender: TObject; var Key: Word;
+  Shift: TShiftState);
+begin
+  {if Key= then
+  begin
+    if CDS_Main.IsEmpty then Exit;
+    if Application.MessageBox('确定6666要删除数据吗？','提示',32+4)<>IDYES then Exit;
+    if Trim(CDS_Main.fieldbyname('CYID').AsString)<>'' then
+    begin
+      with ADOQueryCmd do
+      begin
+        Close;
+        SQL.Clear;
+        sql.Add('delete CP_YDang where CYID='''+Trim(CDS_Main.fieldbyname('CYID').AsString)+'''');
+        ExecSQL;
+      end;
+    end;
+
+    CDS_Main.Delete;
+  end;  }
+end;
+
+procedure TfrmCPManageCX.Tv1KeyDown(Sender: TObject; var Key: Word;
+  Shift: TShiftState);
+begin
+  if Key=46 then
+  begin
+    TBDel.Click;
+  end;
+end;
+
+procedure TfrmCPManageCX.ToolButton7Click(Sender: TObject);
+begin
+  try
+    frmCPAdd:=TfrmCPAdd.Create(Application);
+    with frmCPAdd do
+    begin
+      CopyInt:=1;
+      FCYID:=Trim(Self.CDS_Main.fieldbyname('CYID').AsString);
+      FCPID:=Trim(Self.ADOQueryTree.fieldbyname('CPID').AsString);
+      FCPNo:=Trim(Self.ADOQueryTree.fieldbyname('CPNo').AsString);
+      if ShowModal=1 then
+      begin
+        Self.InitGrid();
+        Self.CDS_Main.Locate('CYID',FCYID,[]);
+      end;
+    end;
+  finally
+    frmCPAdd.Free;
+  end;
+end;
+
+procedure TfrmCPManageCX.ToolButton8Click(Sender: TObject);
+begin
+  try
+    frmYPCR:=TfrmYPCR.Create(Application);
+    with frmYPCR do
+    begin
+      FCYID:=Trim(CDS_Main.fieldbyname('CYID').AsString);
+      RKFlag:='入库';
+      frmYPCR.InitGrid();
+      with CDS_HZ do
+      begin
+        Append;
+        FieldByName('CYID').Value:=Trim(CDS_Main.fieldbyname('CYID').AsString);
+        FieldByName('CYName').Value:=Trim(CDS_Main.fieldbyname('CYName').AsString);
+        FieldByName('CYSpec').Value:=Trim(CDS_Main.fieldbyname('CYSpec').AsString);
+        FieldByName('KCUnit').Value:=Trim(CDS_Main.fieldbyname('KCUnit').AsString);
+        Post;
+      end;
+      frmYPCR.SaveData();
+      if ShowModal=1 then
+      begin
+
+      end;
+    end;
+  finally
+    frmYPCR.Free;
+  end;
+end;
+
+procedure TfrmCPManageCX.ToolButton9Click(Sender: TObject);
+begin
+  try
+    frmYPCR:=TfrmYPCR.Create(Application);
+    with frmYPCR do
+    begin
+      FCYID:=Trim(CDS_Main.fieldbyname('CYID').AsString);
+      RKFlag:='出库';
+      frmYPCR.InitGrid();
+      frmYPCR.cxGridDBColumn1.Caption:='出库日期';
+      frmYPCR.cxGridDBColumn5.Caption:='出库数量';
+      with CDS_HZ do
+      begin
+        Append;
+        FieldByName('CYID').Value:=Trim(CDS_Main.fieldbyname('CYID').AsString);
+        FieldByName('CYName').Value:=Trim(CDS_Main.fieldbyname('CYName').AsString);
+        FieldByName('CYSpec').Value:=Trim(CDS_Main.fieldbyname('CYSpec').AsString);
+        FieldByName('KCUnit').Value:=Trim(CDS_Main.fieldbyname('KCUnit').AsString);
+        Post;
+      end;
+      frmYPCR.SaveData();
+      if ShowModal=1 then
+      begin
+
+      end;
+    end;
+  finally
+    frmYPCR.Free;
+  end;
+end;
+
+procedure TfrmCPManageCX.CYSpecChange(Sender: TObject);
+begin
+  if Length(Trim(CYSpec.Text))<3 then Exit;
+  if ADOQueryMain.Active then
+  begin
+    SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2));
+    SCreateCDS20(ADOQueryMain,CDS_Main);
+    SInitCDSData20(ADOQueryMain,CDS_Main);
+  end;
+end;
+
+end.

坯布码单待检(PBMDDJ.dll)/U_CPManageTPCX.pas

@@ -0,0 +1,787 @@
+unit U_CPManageTPCX;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, cxGraphics, cxCustomData, cxStyles, cxTL, cxMaskEdit, DB, ADODB,
+  cxInplaceContainer, cxDBTL, cxControls, cxTLData, ComCtrls, ToolWin,
+  StdCtrls, cxFilter, cxData, cxDataStorage, cxEdit, cxDBData, DBClient,
+  cxGridCustomTableView, cxGridTableView, cxGridDBTableView, ExtCtrls,
+  cxSplitter, cxGridLevel, cxClasses, cxGridCustomView, cxGrid,
+  cxGridCustomPopupMenu, cxGridPopupMenu, RM_Dataset, RM_System, RM_Common,
+  RM_Class, RM_GridReport, IdBaseComponent, IdComponent, IdTCPConnection,
+  IdTCPClient, IdFTP,ShellAPI,IniFiles, cxCheckBox, BtnEdit, cxButtonEdit,
+  cxDropDownEdit, cxTextEdit, cxCalendar, Menus,jpeg;
+
+type
+  TfrmCPManageTPCX = class(TForm)
+    ToolBar1: TToolBar;
+    TBRafresh: TToolButton;
+    TBClose: TToolButton;
+    DataSource1: TDataSource;
+    ADOQueryTree10: TADOQuery;
+    ADOQueryTemp: TADOQuery;
+    ADOQueryCmd: TADOQuery;
+    cxGridPopupMenu1: TcxGridPopupMenu;
+    cxSplitter1: TcxSplitter;
+    Panel1: TPanel;
+    Label2: TLabel;
+    CYID: TEdit;
+    ToolButton2: TToolButton;
+    Label1: TLabel;
+    CYName: TEdit;
+    Label5: TLabel;
+    CYSpec: TEdit;
+    DataSource2: TDataSource;
+    ADOQueryMain: TADOQuery;
+    CDS_Main: TClientDataSet;
+    ToolButton4: TToolButton;
+    RM1: TRMGridReport;
+    RMDB_Main: TRMDBDataSet;
+    ODPat: TOpenDialog;
+    IdFTP1: TIdFTP;
+    SaveDialog1: TSaveDialog;
+    ToolButton6: TToolButton;
+    Label3: TLabel;
+    CYNO: TEdit;
+    Panel2: TPanel;
+    DSCYNO: TDataSource;
+    CDS_CYNO: TClientDataSet;
+    Edit1: TEdit;
+    Label6: TLabel;
+    Label7: TLabel;
+    CYKZ: TEdit;
+    Label8: TLabel;
+    CYCF: TEdit;
+    Label10: TLabel;
+    CYMF: TEdit;
+    Label4: TLabel;
+    CYXLType: TEdit;
+    Button1: TButton;
+    Panel3: TPanel;
+    cxGrid1: TcxGrid;
+    Tv1: TcxGridDBTableView;
+    v1Column19: TcxGridDBColumn;
+    v1Column12: TcxGridDBColumn;
+    v1Column15: TcxGridDBColumn;
+    v1Column1: TcxGridDBColumn;
+    v1Column2: TcxGridDBColumn;
+    v1Column4: TcxGridDBColumn;
+    v1Column5: TcxGridDBColumn;
+    v1Column7: TcxGridDBColumn;
+    v1Column8: TcxGridDBColumn;
+    v1Column6: TcxGridDBColumn;
+    v1Column14: TcxGridDBColumn;
+    v1Column10: TcxGridDBColumn;
+    v1Column13: TcxGridDBColumn;
+    v1Column26: TcxGridDBColumn;
+    v1Column29: TcxGridDBColumn;
+    v1Column32: TcxGridDBColumn;
+    v1Column16: TcxGridDBColumn;
+    v1Column3: TcxGridDBColumn;
+    v1Column11: TcxGridDBColumn;
+    v1Column9: TcxGridDBColumn;
+    cxGrid1Level1: TcxGridLevel;
+    cxSplitter2: TcxSplitter;
+    Panel4: TPanel;
+    cxGrid3: TcxGrid;
+    Tv3: TcxGridDBTableView;
+    cxGridDBColumn9: TcxGridDBColumn;
+    cxGridDBColumn10: TcxGridDBColumn;
+    cxGridDBColumn14: TcxGridDBColumn;
+    cxGridLevel2: TcxGridLevel;
+    CDS_CB: TClientDataSet;
+    DSCB: TDataSource;
+    cxGridPopupMenu2: TcxGridPopupMenu;
+    CDS_GY: TClientDataSet;
+    DSGY: TDataSource;
+    cxGridPopupMenu3: TcxGridPopupMenu;
+    ADOQuery1: TADOQuery;
+    v1Column17: TcxGridDBColumn;
+    v3Column1: TcxGridDBColumn;
+    v3Column2: TcxGridDBColumn;
+    ToolButton11: TToolButton;
+    Label9: TLabel;
+    GYStr: TComboBox;
+    Label11: TLabel;
+    HX: TEdit;
+    v1Column18: TcxGridDBColumn;
+    Button2: TButton;
+    Edit2: TEdit;
+    PopupMenu1: TPopupMenu;
+    N1: TMenuItem;
+    N2: TMenuItem;
+    v1Column20: TcxGridDBColumn;
+    v1Column21: TcxGridDBColumn;
+    ADOQueryTree: TClientDataSet;
+    TBSel: TToolButton;
+    Panel5: TPanel;
+    cxDBTreeList1: TcxDBTreeList;
+    cxDBTreeList1cxDBTreeListColumn2: TcxDBTreeListColumn;
+    Image2: TImage;
+    cxGrid62: TcxGrid;
+    Tv2: TcxGridDBTableView;
+    v6Column1: TcxGridDBColumn;
+    cxGridDBColumn40: TcxGridDBColumn;
+    cxGridDBColumn41: TcxGridDBColumn;
+    cxGridDBColumn42: TcxGridDBColumn;
+    cxGridDBColumn49: TcxGridDBColumn;
+    cxGridDBColumn51: TcxGridDBColumn;
+    cxGridLevel5: TcxGridLevel;
+    procedure FormDestroy(Sender: TObject);
+    procedure FormClose(Sender: TObject; var Action: TCloseAction);
+    procedure TBCloseClick(Sender: TObject);
+    procedure FormShow(Sender: TObject);
+    procedure cxDBTreeList1DblClick(Sender: TObject);
+    procedure TBRafreshClick(Sender: TObject);
+    procedure ToolButton2Click(Sender: TObject);
+    procedure CYIDKeyPress(Sender: TObject; var Key: Char);
+    procedure CYNoChange(Sender: TObject);
+    procedure ToolButton4Click(Sender: TObject);
+    procedure ToolButton6Click(Sender: TObject);
+    procedure Tv1CellDblClick(Sender: TcxCustomGridTableView;
+      ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
+      AShift: TShiftState; var AHandled: Boolean);
+    procedure CYSpecChange(Sender: TObject);
+    procedure v1Column19PropertiesChange(Sender: TObject);
+    procedure CYMFChange(Sender: TObject);
+    procedure CYNameChange(Sender: TObject);
+    procedure CYCFChange(Sender: TObject);
+    procedure Button1Click(Sender: TObject);
+    procedure Tv2FocusedRecordChanged(Sender: TcxCustomGridTableView;
+      APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord;
+      ANewItemRecordFocusingChanged: Boolean);
+    procedure Tv1CellClick(Sender: TcxCustomGridTableView;
+      ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
+      AShift: TShiftState; var AHandled: Boolean);
+    procedure ToolButton11Click(Sender: TObject);
+    procedure CYNOKeyPress(Sender: TObject; var Key: Char);
+    procedure GYStrChange(Sender: TObject);
+    procedure Button2Click(Sender: TObject);
+    procedure N1Click(Sender: TObject);
+    procedure N2Click(Sender: TObject);
+    procedure TBSelClick(Sender: TObject);
+  private
+    { Private declarations }
+    CPID:string;
+    PState:Integer;
+    FCPID,FTopID:String;
+    procedure InitTree();
+    procedure InitGrid();
+    procedure ReadINIFile();
+    procedure InitImage();
+
+  public
+    { Public declarations }
+  end;
+
+var
+  frmCPManageTPCX: TfrmCPManageTPCX;
+
+implementation
+uses
+  U_DataLink,U_RTFun, U_ZDYHelpSel;
+
+{$R *.dfm}
+
+procedure TfrmCPManageTPCX.InitTree();
+var
+  i:Integer;
+begin
+  with ADOQueryTree10 do
+  begin
+    Close;
+    SQL.Clear;
+    SQL.Add('select * from CP_Type order by CPlevel,CPOrder,CPName');
+    Open;
+  end;
+  SCreateCDS20(ADOQueryTree10,ADOQueryTree);
+  SInitCDSData20(ADOQueryTree10,ADOQueryTree);
+  cxDBTreeList1.Items[0].Expand(false);
+  //cxDBTreeList1.Items[1].Expand(False);
+end;
+
+procedure TfrmCPManageTPCX.InitGrid();
+begin
+  Panel2.Visible:=True;
+  Panel2.Refresh;
+  try
+    ADOQueryMain.DisableControls;
+    with ADOQueryMain do
+    begin
+      Filtered:=False;
+      Close;
+      SQL.Clear;
+      SQL.Add('exec P_Select_CP_YDang :Code,:PState,:CYType');
+      Parameters.ParamByName('Code').Value:='';
+      Parameters.ParamByName('PState').Value:=0;
+      Parameters.ParamByName('CYType').Value:=Trim(ADOQueryTree.fieldbyname('CPID').AsString);
+      Open;
+    end;
+    SCreateCDS20(ADOQueryMain,CDS_Main);
+    SInitCDSData20(ADOQueryMain,CDS_Main);
+  finally
+    ADOQueryMain.EnableControls;
+  end;
+  Panel2.Visible:=False;
+end;
+
+procedure TfrmCPManageTPCX.FormDestroy(Sender: TObject);
+begin
+  frmCPManageTPCX:=nil;
+end;
+
+procedure TfrmCPManageTPCX.FormClose(Sender: TObject; var Action: TCloseAction);
+begin
+  Action:=caFree;
+ // Action:=caHide;
+end;
+
+procedure TfrmCPManageTPCX.TBCloseClick(Sender: TObject);
+begin
+  WriteCxGrid('样品列表SF',Tv1,'样品管理');
+  WriteCxGrid('样品列表SF1a',Tv2,'样品管理');
+  WriteCxGrid('样品列表SF2',Tv3,'样品管理');
+  if  DirectoryExists(ExtractFileDir('D:\Right1209')) then
+    winexec('cmd /c rd /s /q D:\Right1209',sw_hide);
+  Close;
+end;
+procedure TfrmCPManageTPCX.FormShow(Sender: TObject);
+begin
+  InitTree();
+  ReadCxGrid('样品列表SF',Tv1,'样品管理');
+  ReadCxGrid('样品列表SF1a',Tv2,'样品管理');
+  ReadCxGrid('样品列表SF2',Tv3,'样品管理');
+  
+  with ADOQueryTemp do
+  begin
+    Close;
+    sql.Clear;
+    sql.Add('select CYID='''' ');
+    Open;
+  end;
+  SCreateCDS20(ADOQueryTemp,CDS_CYNO);
+  SInitCDSData20(ADOQueryTemp,CDS_CYNO);
+  CDS_CYNO.Delete;
+end;
+
+procedure TfrmCPManageTPCX.cxDBTreeList1DblClick(Sender: TObject);
+begin
+  InitGrid();
+end;
+
+procedure TfrmCPManageTPCX.TBRafreshClick(Sender: TObject);
+var
+  DWCYID:String;
+begin
+  InitTree();
+  if CDS_Main.IsEmpty=False then
+    DWCYID:=Trim(CDS_Main.fieldbyname('CYID').AsString);
+  InitGrid();
+  CDS_Main.Locate('CYID',DWCYID,[]);
+end;
+
+procedure TfrmCPManageTPCX.ToolButton2Click(Sender: TObject);
+begin
+  if ADOQueryMain.Active then
+  begin
+    SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2));
+    SCreateCDS20(ADOQueryMain,CDS_Main);
+    SInitCDSData20(ADOQueryMain,CDS_Main);
+  end;
+end;
+
+procedure TfrmCPManageTPCX.CYIDKeyPress(Sender: TObject; var Key: Char);
+begin
+  if Key=#13 then
+  begin
+    with ADOQueryMain do
+    begin
+      Close;
+      sql.Clear;
+      sql.Add('select A.*,CPName=(select CPName from CP_Type B where B.CPID=A.CYType)  ');
+      sql.Add(' from CP_YDang A where CYID='''+Trim(CYID.Text)+'''');
+      Open;
+    end;
+    CPID:=Trim(ADOQueryMain.fieldbyname('CYType').AsString);
+    if Trim(CYID.Text)='' then Exit;
+    //SDofilter(ADOQueryMain,' CYID='''+Trim(CYID.Text)+''' ');
+    SCreateCDS20(ADOQueryMain,CDS_Main);
+    SInitCDSData20(ADOQueryMain,CDS_Main);
+    CYID.Text:='';
+    ADOQueryTree.Locate('CPID',CPID,[]);
+    with ADOQuery1 do
+    begin
+      Close;
+      SQL.Clear;
+      sql.Add('select * from CP_Cost where CYID='''+Trim(CDS_Main.fieldbyname('CYID').AsString)+'''');
+      Open;
+    end;
+    SCreateCDS20(ADOQuery1,CDS_CB);
+    SInitCDSData20(ADOQuery1,CDS_CB);
+  end;
+end;
+
+procedure TfrmCPManageTPCX.CYNoChange(Sender: TObject);
+begin
+  if Trim(Trim(TEdit(Sender).Text))<>'' then
+    if Length(Trim(TEdit(Sender).Text))<4 then Exit;
+  if ADOQueryMain.Active then
+  begin
+    SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2));
+    SCreateCDS20(ADOQueryMain,CDS_Main);
+    SInitCDSData20(ADOQueryMain,CDS_Main);
+  end;
+end;
+
+procedure TfrmCPManageTPCX.ToolButton4Click(Sender: TObject);
+var
+   fPrintFile,FFCYID:string;
+   DPS,i,j:Integer;
+begin
+  CYID.SetFocus;
+  if CDS_Main.IsEmpty then Exit;
+  //if CDS_CYNO.IsEmpty then Exit;
+  if Trim(Edit1.Text)<>'' then
+  begin
+    if TryStrToInt(Edit1.Text,i)=False then
+    begin
+      Application.MessageBox('份数录入错误!','提示',0);
+      exit;
+    end;
+  end;
+
+  fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\样品标签.rmf';
+  CDS_Main.DisableControls;
+  DPS:=0;
+  FFCYID:='';
+  i:=1;
+  if Trim(Edit1.Text)='' then
+  begin
+    j:=1;
+  end else
+  begin
+    j:=StrToInt(Edit1.Text);
+  end;
+  with CDS_Main do
+  begin
+    First;
+    while not Eof do
+    begin
+      if CDS_Main.FieldByName('SSel').AsBoolean=True then
+      begin
+        for i:=1 to j do
+        begin
+          if FileExists(fPrintFile) then
+          begin
+            RM1.LoadFromFile(fPrintFile);
+            RM1.PrintReport;
+            //RM1.ShowReport;
+          end else
+          begin
+            Application.MessageBox(PChar('没有找'+ExtractFilePath(Application.ExeName)+'Report\样品标签.rmf'),'提示',0);
+            Exit;
+          end;
+        end;
+
+        if DPS=0 then
+        begin
+          FFCYID:=Trim(CDS_Main.fieldbyname('CYID').AsString);
+        end;
+      end;
+      //CDS_Main.Locate('CYID',Trim(CDS_CYNO.fieldbyname('CYID').AsString),[]);
+
+      Next;
+    end;
+  end;
+  CDS_Main.EnableControls;
+  CDS_Main.Locate('CYID',FFCYID,[]);
+  Edit1.Text:='1';
+
+end;
+
+procedure TfrmCPManageTPCX.InitImage();
+var
+  jpg:TJpegImage;
+  myStream:TADOBlobStream;
+begin
+  if CDS_Main.IsEmpty then Exit;
+  if Trim(CDS_Main.fieldbyname('CYID').AsString)='' then Exit;
+ // if cxPageControl1.ActivePageIndex=6 then
+  begin
+    Image2.Picture.Assign(nil);
+    try
+      with ADOQueryTemp do
+      begin
+        close;
+        sql.Clear;
+        sql.Add(' select * from TP_File A where A.WBID='''+Trim(CDS_Main.fieldbyname('CYID').AsString)+'''');
+        sql.Add(' and TFType=''样品'' ');
+        open;
+        if RecordCount>0 then
+        begin
+          if trim(ADOQueryTemp.fieldbyname('FilesOther').AsString)<>'' then
+          begin
+            myStream:=tadoblobstream.Create(tblobfield(ADOQueryTemp.fieldbyname('FilesOther')),bmread);
+            if myStream=nil then exit;
+            jpg:=TJPEGImage.Create;
+            jpg.LoadFromStream(myStream);
+            Image2.Picture.Assign(jpg);
+          end;
+        end;
+      end;
+    finally
+      jpg.Free;
+      myStream.Free;
+    end;
+  end;
+end;
+
+procedure TfrmCPManageTPCX.ToolButton6Click(Sender: TObject);
+var
+  fHandle:THandle;
+  FInt:Integer;
+  FFName,FPath:String;
+begin
+  {FPath:='C:\HTTP1209\';
+  if  DirectoryExists(ExtractFileDir(FPath)) then
+    winexec('cmd /c rd /s /q C:\HTTP1209',sw_hide);}
+  with ADOQueryTemp do
+  begin
+    close;
+    sql.Clear;
+    sql.Add('select * from XD_File where CYID='''+Trim(CDS_Main.fieldbyname('CYID').AsString)+'''');
+    Open;
+    if IsEmpty then
+    begin
+      Application.MessageBox('样品图片未上传！','提示',0);
+      Exit;
+    end;
+  end;
+  try
+    ReadINIFile();
+    server:=ReadINIFileStr('SYSTEMSET.INI','SERVER','服务器地址','127.0.0.1');
+    if Length(server)<6 then
+    begin
+      server:='127.0.0.1';
+    end;
+    IdFTP1.Host :=server;//PicSvr;
+    IdFTP1.Username := 'three';
+    IdFTP1.Password := '641010';
+    IdFTP1.Connect();
+  except
+    IdFTP1.Quit;
+    Application.MessageBox('无法连接到文件服务器，请检查！', '提示', MB_ICONWARNING);
+    Exit;
+  end;
+  FPath:='D:\Right1209\';
+  if not DirectoryExists(ExtractFileDir(FPath)) then
+    CreateDir(ExtractFileDir(FPath));
+  FFName:=Trim(ADOQueryTemp.fieldbyname('FileName').AsString);
+  FFName:=FPath+FFName;
+  if FileExists(FFName) then
+  begin
+    FInt:=1;
+  end;
+  if FInt<>1 then
+    IdFTP1.Get('YP\'+Trim(ADOQueryTemp.fieldbyname('FileName').AsString),
+                   FPath+Trim(ADOQueryTemp.fieldbyname('FileName').AsString)
+                    );
+  if IdFTP1.Connected then IdFTP1.Quit;
+  ShellExecute(Handle, 'open',PChar(FPath+Trim(ADOQueryTemp.fieldbyname('FileName').AsString)),'', '', SW_SHOWNORMAL);
+
+end;
+procedure TfrmCPManageTPCX.ReadINIFile();
+var
+  programIni:Tinifile;  //配置文件名
+  FileName:string;
+begin
+  FileName:=ExtractFilePath(Paramstr(0))+'SYSTEMSET.INI';
+  programIni:=Tinifile.create(FileName);
+  server:=programIni.ReadString('SERVER','服务器地址','127.0.0.1');
+  programIni.Free;
+end;
+
+procedure TfrmCPManageTPCX.Tv1CellDblClick(Sender: TcxCustomGridTableView;
+  ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
+  AShift: TShiftState; var AHandled: Boolean);
+begin
+  //ToolButton6.Click;
+  if CDS_Main.FieldByName('CostFlag').AsBoolean=False then
+    ModalResult:=1;
+end;
+
+procedure TfrmCPManageTPCX.CYSpecChange(Sender: TObject);
+begin
+  if Length(Trim(CYSpec.Text))<3 then Exit;
+  if ADOQueryMain.Active then
+  begin
+    SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2));
+    SCreateCDS20(ADOQueryMain,CDS_Main);
+    SInitCDSData20(ADOQueryMain,CDS_Main);
+  end;
+end;
+
+procedure TfrmCPManageTPCX.v1Column19PropertiesChange(Sender: TObject);
+var
+  mvalue:Boolean;
+begin
+ { mvalue:=TcxCheckBox(Sender).EditingValue;
+  if mvalue=True then
+  begin
+    with CDS_CYNO do
+    begin
+      if Locate('CYID',Trim(CDS_Main.fieldbyname('CYID').AsString),[])=False then
+      begin
+        Append;
+        FieldByName('CYID').Value:=Trim(CDS_Main.fieldbyname('CYID').AsString);
+        Post;
+      end;
+    end;
+  end else
+  begin
+    //with CDS_CYNO do
+    //begin
+    CDS_CYNO.Locate('CYID',Trim(CDS_Main.fieldbyname('CYID').AsString),[]);
+    CDS_CYNO.Delete;
+    //end;
+  end; }
+end;
+
+procedure TfrmCPManageTPCX.CYMFChange(Sender: TObject);
+begin
+  if Length(Trim(TEdit(Sender).Text))<2 then Exit;
+  if ADOQueryMain.Active then
+  begin
+    SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2));
+    SCreateCDS20(ADOQueryMain,CDS_Main);
+    SInitCDSData20(ADOQueryMain,CDS_Main);
+  end;
+end;
+
+procedure TfrmCPManageTPCX.CYNameChange(Sender: TObject);
+begin
+  if Length(Trim(TEdit(Sender).Text))<2 then Exit;
+  if ADOQueryMain.Active then
+  begin
+    SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2));
+    SCreateCDS20(ADOQueryMain,CDS_Main);
+    SInitCDSData20(ADOQueryMain,CDS_Main);
+  end;
+end;
+
+procedure TfrmCPManageTPCX.CYCFChange(Sender: TObject);
+begin
+
+  if ADOQueryMain.Active then
+  begin
+    SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2));
+    SCreateCDS20(ADOQueryMain,CDS_Main);
+    SInitCDSData20(ADOQueryMain,CDS_Main);
+  end;
+end;
+
+procedure TfrmCPManageTPCX.Button1Click(Sender: TObject);
+begin
+  try
+    frmZDYHelpSel:=TfrmZDYHelpSel.Create(Application);
+    with frmZDYHelpSel do
+    begin
+      flag:='CYXLType';
+      flagname:='系列';
+      FGStr:=' ';
+      if ShowModal=1 then
+      begin
+        CYXLType.Text:=ReturnStr;
+      end;
+    end;
+  finally
+    frmZDYHelpSel.Free;
+  end;
+  //if Length(Trim(CYXLType.Text))<2 then Exit;
+  if ADOQueryMain.Active then
+  begin
+    SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2));
+    SCreateCDS20(ADOQueryMain,CDS_Main);
+    SInitCDSData20(ADOQueryMain,CDS_Main);
+  end;
+end;
+
+procedure TfrmCPManageTPCX.Tv2FocusedRecordChanged(
+  Sender: TcxCustomGridTableView; APrevFocusedRecord,
+  AFocusedRecord: TcxCustomGridRecord;
+  ANewItemRecordFocusingChanged: Boolean);
+begin
+  with ADOQueryTemp do
+  begin
+    Close;
+    SQL.Clear;
+    sql.Add('select * from CP_Cost_HGY where PSID='''+Trim(CDS_CB.fieldbyname('PSID').AsString)+'''');
+    Open;
+  end;
+  SCreateCDS20(ADOQueryTemp,CDS_GY);
+  SInitCDSData20(ADOQueryTemp,CDS_GY);
+end;
+
+procedure TfrmCPManageTPCX.Tv1CellClick(Sender: TcxCustomGridTableView;
+  ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
+  AShift: TShiftState; var AHandled: Boolean);
+begin
+  if CDS_Main.IsEmpty then Exit;
+  with ADOQueryTemp do
+  begin
+    Close;
+    sql.Clear;
+    sql.Add('select * from CP_YDang where CYID='''+Trim(CDS_Main.fieldbyname('CYID').asstring)+'''');
+    Open;
+  end;
+  CPID:=Trim(ADOQueryTemp.fieldbyname('CYType').AsString);
+  ADOQueryTree.Locate('CPID',CPID,[]);
+  with ADOQuery1 do
+  begin
+    Close;
+    SQL.Clear;
+    sql.Add('select * from CP_Cost where CYID='''+Trim(CDS_Main.fieldbyname('CYID').AsString)+'''');
+    Open;
+  end;
+  SCreateCDS20(ADOQuery1,CDS_CB);
+  SInitCDSData20(ADOQuery1,CDS_CB);
+  InitImage();
+end;
+
+procedure TfrmCPManageTPCX.ToolButton11Click(Sender: TObject);
+var
+   fPrintFile,FFCYID:string;
+   DPS,i,j:Integer;
+begin
+  CYID.SetFocus;
+  if CDS_Main.IsEmpty then Exit;
+  fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\样品标签.rmf';
+  with CDS_Main do
+  begin
+    if FileExists(fPrintFile) then
+    begin
+      RM1.LoadFromFile(fPrintFile);
+      //RM1.PrintReport;
+      RM1.ShowReport;
+    end else
+    begin
+      Application.MessageBox(PChar('没有找'+ExtractFilePath(Application.ExeName)+'Report\样品标签.rmf'),'提示',0);
+      Exit;
+    end;
+  end;
+
+end;
+
+procedure TfrmCPManageTPCX.CYNOKeyPress(Sender: TObject; var Key: Char);
+begin
+  if Key=#13 then
+  begin
+    if Trim(CYNO.Text)='' then Exit;
+    with ADOQueryMain do
+    begin
+      Close;
+      sql.Clear;
+      sql.Add('select A.*,CPName=(select CPName from CP_Type B where B.CPID=A.CYType)  ');
+      sql.Add(' ,HX=isnull(CYHX,'''')+isnull(CYHX2,'''')+isnull(CYHX3,'''')');
+      sql.Add(' from CP_YDang A where CYNO='''+Trim(CYNO.Text)+'''');
+      Open;
+    end;
+    CPID:=Trim(ADOQueryMain.fieldbyname('CYType').AsString);
+
+    //SDofilter(ADOQueryMain,' CYID='''+Trim(CYID.Text)+''' ');
+    SCreateCDS20(ADOQueryMain,CDS_Main);
+    SInitCDSData20(ADOQueryMain,CDS_Main);
+    with ADOQuery1 do
+    begin
+      Close;
+      SQL.Clear;
+      sql.Add('select * from CP_Cost where CYID='''+Trim(CDS_Main.fieldbyname('CYID').AsString)+'''');
+      Open;
+    end;
+    SCreateCDS20(ADOQuery1,CDS_CB);
+    SInitCDSData20(ADOQuery1,CDS_CB);
+    CYNO.Text:='';
+    ADOQueryTree.Locate('CPID',CPID,[]);
+  end;
+end;
+
+procedure TfrmCPManageTPCX.GYStrChange(Sender: TObject);
+begin
+  if ADOQueryMain.Active then
+  begin
+    SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2));
+    SCreateCDS20(ADOQueryMain,CDS_Main);
+    SInitCDSData20(ADOQueryMain,CDS_Main);
+  end;
+end;
+
+procedure TfrmCPManageTPCX.Button2Click(Sender: TObject);
+var
+   FColumn,FColumnName,Fsj:String;
+begin
+  if CDS_Main.Locate('SSel',True,[])=False then
+  begin
+    Application.MessageBox('没有选择数据!','提示',0);
+    Exit;
+  end;
+  FColumn:=Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName;
+  FColumnName:=Tv1.Controller.FocusedColumn.Caption;
+  if Trim(Edit2.Text)='' then
+  begin
+    Application.MessageBox('内容不能为空!','提示',0);
+    Exit;
+  end;
+  if Application.MessageBox(Pchar('确定要一键替换<'+FColumnName+'>吗？'),'提示',32+4)<>IDYES then Exit;
+  CDS_Main.DisableControls;
+  with CDS_Main do
+  begin
+    while Locate('SSel',True,[]) do
+    begin
+      if Trim(fsj)='' then
+      begin
+        fsj:='('''+Trim(CDS_Main.fieldbyname('CYID').AsString)+'''';
+      end else
+      begin
+        Fsj:=fsj+','''+Trim(CDS_Main.fieldbyname('CYID').AsString)+'''';
+      end;
+      Edit;
+      FieldByName('SSel').Value:=False;
+      FieldByName(FColumn).Value:=Trim(Edit2.Text);
+      Post;
+
+    end;
+    if Trim(Fsj)<>'' then
+    begin
+      Fsj:=Fsj+')';
+    end;
+  end;
+  CDS_Main.EnableControls;
+  with ADOQueryCmd do
+  begin
+    Close;
+    sql.Clear;
+    sql.Add('Update CP_YDang Set '+FColumn+'='''+Trim(Edit2.Text)+'''');
+    sql.Add(',Editer='''+Trim(DName)+''',EditTime=getdate()');
+    sql.Add(' where CYID in '+fsj);
+    ExecSQL;
+  end;
+end;
+
+procedure TfrmCPManageTPCX.N1Click(Sender: TObject);
+begin
+  SelOKNo(CDS_Main,True);
+end;
+
+procedure TfrmCPManageTPCX.N2Click(Sender: TObject);
+begin
+  SelOKNo(CDS_Main,False);
+end;
+
+procedure TfrmCPManageTPCX.TBSelClick(Sender: TObject);
+begin
+  ModalResult:=1;
+end;
+
+end.

坯布码单待检(PBMDDJ.dll)/U_CPSel.dfm

@@ -0,0 +1,682 @@
+object frmCPSel: TfrmCPSel
+  Left = 75
+  Top = 75
+  Width = 1175
+  Height = 635
+  Caption = #20135#21697#26597#35810
+  Color = clBtnFace
+  Font.Charset = GB2312_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -12
+  Font.Name = #23435#20307
+  Font.Style = []
+  OldCreateOrder = False
+  Position = poScreenCenter
+  OnClose = FormClose
+  OnDestroy = FormDestroy
+  OnKeyDown = FormKeyDown
+  OnShow = FormShow
+  PixelsPerInch = 96
+  TextHeight = 12
+  object ToolBar1: TToolBar
+    Left = 0
+    Top = 0
+    Width = 1159
+    Height = 31
+    ButtonHeight = 30
+    ButtonWidth = 83
+    Caption = 'ToolBar1'
+    Color = clSkyBlue
+    DisabledImages = DataLink_DDMD.ThreeImgList
+    Flat = True
+    Images = DataLink_DDMD.ThreeImgList
+    List = True
+    ParentColor = False
+    ShowCaptions = True
+    TabOrder = 0
+    object TBRafresh: TToolButton
+      Left = 0
+      Top = 0
+      AutoSize = True
+      Caption = #21047#26032
+      ImageIndex = 0
+      OnClick = TBRafreshClick
+    end
+    object ToolButton2: TToolButton
+      Left = 63
+      Top = 0
+      AutoSize = True
+      Caption = #36807#28388
+      ImageIndex = 20
+      OnClick = ToolButton2Click
+    end
+    object ToolButton4: TToolButton
+      Left = 126
+      Top = 0
+      AutoSize = True
+      Caption = #26631#31614#25171#21360
+      ImageIndex = 4
+      Visible = False
+    end
+    object Panel4: TPanel
+      Left = 213
+      Top = 0
+      Width = 174
+      Height = 30
+      BevelInner = bvRaised
+      BevelOuter = bvLowered
+      Color = clSkyBlue
+      TabOrder = 0
+      Visible = False
+      object Label13: TLabel
+        Left = 3
+        Top = 9
+        Width = 52
+        Height = 12
+        Caption = #26631#31614#21517#31216
+        Font.Charset = GB2312_CHARSET
+        Font.Color = clWindowText
+        Font.Height = -12
+        Font.Name = #23435#20307
+        Font.Style = [fsBold]
+        ParentFont = False
+      end
+      object LabName: TBtnEditA
+        Left = 61
+        Top = 5
+        Width = 105
+        Height = 20
+        TabOrder = 0
+        OnBtnClick = LabNameBtnClick
+      end
+    end
+    object ToolButton3: TToolButton
+      Left = 387
+      Top = 0
+      Caption = #26631#31614#39044#35272
+      ImageIndex = 66
+      Visible = False
+      OnClick = ToolButton3Click
+    end
+    object ToolButton6: TToolButton
+      Left = 470
+      Top = 0
+      AutoSize = True
+      Caption = #22270#29255#19979#36733
+      ImageIndex = 19
+      OnClick = ToolButton6Click
+    end
+    object TBClose: TToolButton
+      Left = 557
+      Top = 0
+      AutoSize = True
+      Caption = #20851#38381
+      ImageIndex = 21
+      OnClick = TBCloseClick
+    end
+  end
+  object cxGrid1: TcxGrid
+    Left = 228
+    Top = 89
+    Width = 931
+    Height = 507
+    Align = alClient
+    TabOrder = 1
+    object Tv1: TcxGridDBTableView
+      NavigatorButtons.ConfirmDelete = False
+      NavigatorButtons.Delete.Enabled = False
+      NavigatorButtons.Delete.Visible = False
+      OnCellClick = Tv1CellClick
+      OnCellDblClick = Tv1CellDblClick
+      DataController.DataSource = DataSource2
+      DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
+      DataController.Summary.DefaultGroupSummaryItems = <>
+      DataController.Summary.FooterSummaryItems = <>
+      DataController.Summary.SummaryGroups = <>
+      OptionsCustomize.ColumnFiltering = False
+      OptionsData.Deleting = False
+      OptionsData.DeletingConfirmation = False
+      OptionsView.GroupByBox = False
+      Styles.Inactive = DataLink_DDMD.SHuangSe
+      Styles.IncSearch = DataLink_DDMD.SHuangSe
+      Styles.Selection = DataLink_DDMD.SHuangSe
+      Styles.Header = DataLink_DDMD.Default
+      object v1Column19: TcxGridDBColumn
+        Caption = #36873#25321
+        DataBinding.FieldName = 'SSel'
+        PropertiesClassName = 'TcxCheckBoxProperties'
+        Properties.ImmediatePost = True
+        Properties.NullStyle = nssUnchecked
+        Properties.OnChange = v1Column19PropertiesChange
+        Visible = False
+        HeaderAlignmentHorz = taCenter
+        Hidden = True
+        Styles.Header = DataLink_DDMD.Default
+        Width = 40
+      end
+      object v1Column12: TcxGridDBColumn
+        Caption = #31867#21035
+        DataBinding.FieldName = 'CPName'
+        HeaderAlignmentHorz = taCenter
+        Options.Focusing = False
+        Styles.Header = DataLink_DDMD.Default
+        Width = 58
+      end
+      object v1Column15: TcxGridDBColumn
+        Caption = #38472#21015#20301#32622
+        DataBinding.FieldName = 'DefStr2'
+        HeaderAlignmentHorz = taCenter
+        Options.Focusing = False
+        Styles.Header = DataLink_DDMD.Default
+        Width = 71
+      end
+      object v1Column2: TcxGridDBColumn
+        Caption = #20013#25991#21517#31216
+        DataBinding.FieldName = 'CYName'
+        HeaderAlignmentHorz = taCenter
+        Options.Focusing = False
+        Styles.Header = DataLink_DDMD.Default
+        Width = 68
+      end
+      object v1Column1: TcxGridDBColumn
+        Caption = #20135#21697#32534#21495
+        DataBinding.FieldName = 'CYNo'
+        HeaderAlignmentHorz = taCenter
+        Options.Focusing = False
+        Styles.Header = DataLink_DDMD.Default
+        Width = 70
+      end
+      object v1Column4: TcxGridDBColumn
+        Caption = #35268#26684
+        DataBinding.FieldName = 'CYSpec'
+        HeaderAlignmentHorz = taCenter
+        Options.Focusing = False
+        Styles.Header = DataLink_DDMD.Default
+        Width = 67
+      end
+      object v1Column5: TcxGridDBColumn
+        Caption = #20013#25991#25104#20998
+        DataBinding.FieldName = 'CYCF'
+        HeaderAlignmentHorz = taCenter
+        Options.Focusing = False
+        Styles.Header = DataLink_DDMD.Default
+        Width = 66
+      end
+      object v1Column3: TcxGridDBColumn
+        Caption = #33521#25991#21517#31216
+        DataBinding.FieldName = 'CYEName'
+        HeaderAlignmentHorz = taCenter
+        Options.Focusing = False
+        Styles.Header = DataLink_DDMD.Default
+        Width = 66
+      end
+      object v1Column6: TcxGridDBColumn
+        Caption = #33521#25991#25104#20998
+        DataBinding.FieldName = 'CYECF'
+        HeaderAlignmentHorz = taCenter
+        Options.Focusing = False
+        Styles.Header = DataLink_DDMD.Default
+        Width = 69
+      end
+      object v1Column8: TcxGridDBColumn
+        Caption = #20811#37325
+        DataBinding.FieldName = 'CYKZ'
+        HeaderAlignmentHorz = taCenter
+        Options.Focusing = False
+        Styles.Header = DataLink_DDMD.Default
+        Width = 67
+      end
+      object v1Column7: TcxGridDBColumn
+        Caption = #38376#24133
+        DataBinding.FieldName = 'CYMF'
+        HeaderAlignmentHorz = taCenter
+        Options.Focusing = False
+        Styles.Header = DataLink_DDMD.Default
+        Width = 73
+      end
+      object v1Column16: TcxGridDBColumn
+        Caption = #33457#22411
+        DataBinding.FieldName = 'CYHX'
+        HeaderAlignmentHorz = taCenter
+        Options.Focusing = False
+        Styles.Header = DataLink_DDMD.Default
+        Width = 58
+      end
+      object v1Column9: TcxGridDBColumn
+        Caption = #20013#25991#39068#33394
+        DataBinding.FieldName = 'CYColor'
+        HeaderAlignmentHorz = taCenter
+        Options.Focusing = False
+        Styles.Header = DataLink_DDMD.Default
+        Width = 67
+      end
+      object v1Column42: TcxGridDBColumn
+        Caption = #33521#25991#39068#33394
+        DataBinding.FieldName = 'CYColorEng'
+        HeaderAlignmentHorz = taCenter
+        Width = 60
+      end
+      object v1Column11: TcxGridDBColumn
+        Caption = #22791#27880
+        DataBinding.FieldName = 'CYNote'
+        HeaderAlignmentHorz = taCenter
+        Options.Focusing = False
+        Styles.Header = DataLink_DDMD.Default
+        Width = 66
+      end
+      object v1Column14: TcxGridDBColumn
+        Caption = #22270#29255#19978#20256
+        DataBinding.FieldName = 'TPFlag'
+        PropertiesClassName = 'TcxCheckBoxProperties'
+        Properties.NullStyle = nssUnchecked
+        HeaderAlignmentHorz = taCenter
+        Options.Focusing = False
+        Styles.Header = DataLink_DDMD.Default
+        Width = 59
+      end
+      object v1Column10: TcxGridDBColumn
+        Caption = #20844#26020#20215
+        DataBinding.FieldName = 'CYPriceKg'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 56
+      end
+      object v1Column13: TcxGridDBColumn
+        Caption = #31859#20215
+        DataBinding.FieldName = 'CYPriceM'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 54
+      end
+    end
+    object cxGrid1Level1: TcxGridLevel
+      GridView = Tv1
+    end
+  end
+  object cxSplitter1: TcxSplitter
+    Left = 220
+    Top = 89
+    Width = 8
+    Height = 507
+    HotZoneClassName = 'TcxMediaPlayer9Style'
+    Control = Panel5
+  end
+  object Panel1: TPanel
+    Left = 0
+    Top = 31
+    Width = 1159
+    Height = 58
+    Align = alTop
+    BevelInner = bvRaised
+    BevelOuter = bvLowered
+    Color = clSkyBlue
+    TabOrder = 3
+    object Label2: TLabel
+      Left = 16
+      Top = 15
+      Width = 48
+      Height = 12
+      Caption = #25195#25551#20837#21475
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clRed
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = []
+      ParentFont = False
+    end
+    object Label1: TLabel
+      Left = 364
+      Top = 15
+      Width = 48
+      Height = 12
+      Caption = #20013#25991#21517#31216
+    end
+    object Label4: TLabel
+      Left = 482
+      Top = 15
+      Width = 48
+      Height = 12
+      Caption = #33521#25991#21517#31216
+    end
+    object Label5: TLabel
+      Left = 216
+      Top = 39
+      Width = 48
+      Height = 12
+      Caption = #35268'    '#26684
+    end
+    object Label3: TLabel
+      Left = 216
+      Top = 15
+      Width = 48
+      Height = 12
+      Caption = #20135#21697#32534#21495
+    end
+    object Label6: TLabel
+      Left = 773
+      Top = 15
+      Width = 24
+      Height = 12
+      Caption = #20221#25968
+      Visible = False
+    end
+    object Label7: TLabel
+      Left = 606
+      Top = 39
+      Width = 24
+      Height = 12
+      Caption = #20811#37325
+    end
+    object Label8: TLabel
+      Left = 364
+      Top = 39
+      Width = 48
+      Height = 12
+      Caption = #20013#25991#25104#20998
+    end
+    object Label9: TLabel
+      Left = 482
+      Top = 39
+      Width = 48
+      Height = 12
+      Caption = #33521#25991#25104#20998
+    end
+    object Label10: TLabel
+      Left = 606
+      Top = 15
+      Width = 24
+      Height = 12
+      Caption = #38376#24133
+    end
+    object Label11: TLabel
+      Left = 832
+      Top = 15
+      Width = 7
+      Height = 12
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clBlue
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label12: TLabel
+      Left = 832
+      Top = 39
+      Width = 7
+      Height = 12
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clRed
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object CYID: TEdit
+      Tag = 3
+      Left = 72
+      Top = 11
+      Width = 121
+      Height = 20
+      TabOrder = 0
+      OnKeyPress = CYIDKeyPress
+    end
+    object CYName: TEdit
+      Tag = 2
+      Left = 414
+      Top = 11
+      Width = 56
+      Height = 20
+      TabOrder = 1
+      OnChange = CYNameChange
+    end
+    object CYEName: TEdit
+      Tag = 2
+      Left = 531
+      Top = 11
+      Width = 59
+      Height = 20
+      TabOrder = 2
+      OnChange = CYNameChange
+    end
+    object CYSpec: TEdit
+      Tag = 2
+      Left = 265
+      Top = 35
+      Width = 89
+      Height = 20
+      TabOrder = 3
+      OnChange = CYNoChange
+    end
+    object CYNO: TEdit
+      Tag = 2
+      Left = 265
+      Top = 11
+      Width = 89
+      Height = 20
+      TabOrder = 4
+      OnChange = CYNoChange
+      OnKeyPress = CYNOKeyPress
+    end
+    object Edit1: TEdit
+      Left = 731
+      Top = 11
+      Width = 38
+      Height = 20
+      TabOrder = 5
+      Visible = False
+    end
+    object CYKZ: TEdit
+      Tag = 2
+      Left = 632
+      Top = 35
+      Width = 76
+      Height = 20
+      TabOrder = 6
+      OnChange = CYMFChange
+    end
+    object CYCF: TEdit
+      Tag = 2
+      Left = 414
+      Top = 35
+      Width = 56
+      Height = 20
+      TabOrder = 7
+      OnChange = CYNameChange
+    end
+    object CYECF: TEdit
+      Tag = 2
+      Left = 531
+      Top = 35
+      Width = 59
+      Height = 20
+      TabOrder = 8
+      OnChange = CYNameChange
+    end
+    object CYMF: TEdit
+      Tag = 2
+      Left = 632
+      Top = 11
+      Width = 76
+      Height = 20
+      TabOrder = 9
+      OnChange = CYMFChange
+    end
+  end
+  object Panel2: TPanel
+    Left = 512
+    Top = 232
+    Width = 185
+    Height = 41
+    BevelInner = bvRaised
+    BevelOuter = bvLowered
+    Caption = #27491#22312#26597#35810#25968#25454#65292#35831#31245#21518#12290#12290#12290
+    Color = clSkyBlue
+    Font.Charset = GB2312_CHARSET
+    Font.Color = clRed
+    Font.Height = -12
+    Font.Name = #23435#20307
+    Font.Style = [fsBold]
+    ParentFont = False
+    TabOrder = 4
+    Visible = False
+  end
+  object Panel5: TPanel
+    Left = 0
+    Top = 89
+    Width = 220
+    Height = 507
+    Align = alLeft
+    BevelInner = bvRaised
+    BevelOuter = bvLowered
+    TabOrder = 5
+    object Image2: TImage
+      Left = 2
+      Top = 318
+      Width = 216
+      Height = 187
+      Align = alBottom
+    end
+    object cxDBTreeList1: TcxDBTreeList
+      Left = 2
+      Top = 2
+      Width = 216
+      Height = 316
+      Align = alClient
+      Bands = <
+        item
+        end>
+      BufferedPaint = False
+      DataController.DataSource = DataSource1
+      DataController.ParentField = 'CPParent'
+      DataController.KeyField = 'CPID'
+      OptionsBehavior.ExpandOnDblClick = False
+      OptionsSelection.CellSelect = False
+      OptionsView.CellAutoHeight = True
+      OptionsView.Headers = False
+      RootValue = -1
+      Styles.Inactive = DataLink_DDMD.Red
+      Styles.Selection = DataLink_DDMD.Red
+      Styles.IncSearch = DataLink_DDMD.Red
+      TabOrder = 0
+      OnDblClick = cxDBTreeList1DblClick
+      object cxDBTreeList1cxDBTreeListColumn2: TcxDBTreeListColumn
+        DataBinding.FieldName = 'CPName'
+        Width = 210
+        Position.ColIndex = 1
+        Position.RowIndex = 0
+        Position.BandIndex = 0
+      end
+    end
+  end
+  object DataSource1: TDataSource
+    DataSet = ADOQueryTree
+    Left = 91
+    Top = 147
+  end
+  object ADOQueryTree20: TADOQuery
+    Connection = DataLink_DDMD.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 61
+    Top = 145
+  end
+  object ADOQueryTemp: TADOQuery
+    Connection = DataLink_DDMD.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 989
+    Top = 1
+  end
+  object ADOQueryCmd: TADOQuery
+    Connection = DataLink_DDMD.ADOLink
+    Parameters = <>
+    Left = 1029
+    Top = 1
+  end
+  object cxGridPopupMenu1: TcxGridPopupMenu
+    Grid = cxGrid1
+    PopupMenus = <>
+    Left = 432
+    Top = 184
+  end
+  object DataSource2: TDataSource
+    DataSet = CDS_Main
+    Left = 451
+    Top = 155
+  end
+  object ADOQueryMain: TADOQuery
+    Connection = DataLink_DDMD.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 493
+    Top = 193
+  end
+  object CDS_Main: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 392
+    Top = 184
+  end
+  object RM1: TRMGridReport
+    ThreadPrepareReport = True
+    InitialZoom = pzDefault
+    PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbExport, pbNavigator]
+    DefaultCollate = False
+    ShowPrintDialog = False
+    SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\'
+    PreviewOptions.RulerUnit = rmutScreenPixels
+    PreviewOptions.RulerVisible = False
+    PreviewOptions.DrawBorder = False
+    PreviewOptions.BorderPen.Color = clGray
+    PreviewOptions.BorderPen.Style = psDash
+    Dataset = RMDB_Main
+    CompressLevel = rmzcFastest
+    CompressThread = False
+    LaterBuildEvents = True
+    OnlyOwnerDataSet = False
+    Left = 392
+    Top = 152
+    ReportData = {}
+  end
+  object RMDB_Main: TRMDBDataSet
+    Visible = True
+    DataSet = CDS_Main
+    Left = 424
+    Top = 152
+  end
+  object ODPat: TOpenDialog
+    Options = [ofReadOnly, ofAllowMultiSelect, ofPathMustExist, ofFileMustExist, ofEnableSizing]
+    Left = 484
+    Top = 157
+  end
+  object IdFTP1: TIdFTP
+    MaxLineAction = maException
+    ReadTimeout = 0
+    ProxySettings.ProxyType = fpcmNone
+    ProxySettings.Port = 0
+    Left = 461
+    Top = 188
+  end
+  object SaveDialog1: TSaveDialog
+    Left = 513
+    Top = 157
+  end
+  object DSCYNO: TDataSource
+    DataSet = CDS_CYNO
+    Left = 771
+    Top = 235
+  end
+  object CDS_CYNO: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 712
+    Top = 264
+  end
+  object ADOQueryTree: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 32
+    Top = 200
+  end
+end

坯布码单待检(PBMDDJ.dll)/U_CPSel.pas

@@ -0,0 +1,578 @@
+unit U_CPSel;  //
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, cxGraphics, cxCustomData, cxStyles, cxTL, cxMaskEdit, DB, ADODB,
+  cxInplaceContainer, cxDBTL, cxControls, cxTLData, ComCtrls, ToolWin,
+  StdCtrls, cxFilter, cxData, cxDataStorage, cxEdit, cxDBData, DBClient,
+  cxGridCustomTableView, cxGridTableView, cxGridDBTableView, ExtCtrls,
+  cxSplitter, cxGridLevel, cxClasses, cxGridCustomView, cxGrid,
+  cxGridCustomPopupMenu, cxGridPopupMenu, RM_Dataset, RM_System, RM_Common,
+  RM_Class, RM_GridReport, IdBaseComponent, IdComponent, IdTCPConnection,
+  IdTCPClient, IdFTP,ShellAPI,IniFiles, cxCheckBox,jpeg, BtnEdit;
+
+type
+  TfrmCPSel = class(TForm)
+    ToolBar1: TToolBar;
+    TBRafresh: TToolButton;
+    TBClose: TToolButton;
+    DataSource1: TDataSource;
+    ADOQueryTree20: TADOQuery;
+    ADOQueryTemp: TADOQuery;
+    ADOQueryCmd: TADOQuery;
+    cxGridPopupMenu1: TcxGridPopupMenu;
+    Tv1: TcxGridDBTableView;
+    cxGrid1Level1: TcxGridLevel;
+    cxGrid1: TcxGrid;
+    cxSplitter1: TcxSplitter;
+    Panel1: TPanel;
+    Label2: TLabel;
+    CYID: TEdit;
+    ToolButton2: TToolButton;
+    Label1: TLabel;
+    CYName: TEdit;
+    Label4: TLabel;
+    CYEName: TEdit;
+    Label5: TLabel;
+    CYSpec: TEdit;
+    v1Column1: TcxGridDBColumn;
+    v1Column2: TcxGridDBColumn;
+    v1Column3: TcxGridDBColumn;
+    v1Column4: TcxGridDBColumn;
+    v1Column5: TcxGridDBColumn;
+    v1Column6: TcxGridDBColumn;
+    v1Column7: TcxGridDBColumn;
+    v1Column8: TcxGridDBColumn;
+    v1Column9: TcxGridDBColumn;
+    v1Column11: TcxGridDBColumn;
+    DataSource2: TDataSource;
+    ADOQueryMain: TADOQuery;
+    CDS_Main: TClientDataSet;
+    v1Column12: TcxGridDBColumn;
+    ToolButton4: TToolButton;
+    RM1: TRMGridReport;
+    RMDB_Main: TRMDBDataSet;
+    ODPat: TOpenDialog;
+    IdFTP1: TIdFTP;
+    SaveDialog1: TSaveDialog;
+    ToolButton6: TToolButton;
+    v1Column14: TcxGridDBColumn;
+    v1Column15: TcxGridDBColumn;
+    Label3: TLabel;
+    CYNO: TEdit;
+    v1Column16: TcxGridDBColumn;
+    Panel2: TPanel;
+    v1Column19: TcxGridDBColumn;
+    DSCYNO: TDataSource;
+    CDS_CYNO: TClientDataSet;
+    Edit1: TEdit;
+    Label6: TLabel;
+    Label7: TLabel;
+    CYKZ: TEdit;
+    Label8: TLabel;
+    Label9: TLabel;
+    CYCF: TEdit;
+    CYECF: TEdit;
+    Label10: TLabel;
+    CYMF: TEdit;
+    v1Column42: TcxGridDBColumn;
+    v1Column10: TcxGridDBColumn;
+    v1Column13: TcxGridDBColumn;
+    ADOQueryTree: TClientDataSet;
+    Panel5: TPanel;
+    Image2: TImage;
+    cxDBTreeList1: TcxDBTreeList;
+    cxDBTreeList1cxDBTreeListColumn2: TcxDBTreeListColumn;
+    Label11: TLabel;
+    Label12: TLabel;
+    Panel4: TPanel;
+    Label13: TLabel;
+    LabName: TBtnEditA;
+    ToolButton3: TToolButton;
+    procedure FormDestroy(Sender: TObject);
+    procedure FormClose(Sender: TObject; var Action: TCloseAction);
+    procedure TBCloseClick(Sender: TObject);
+    procedure FormShow(Sender: TObject);
+    procedure cxDBTreeList1DblClick(Sender: TObject);
+    procedure TBRafreshClick(Sender: TObject);
+    procedure ToolButton2Click(Sender: TObject);
+    procedure CYIDKeyPress(Sender: TObject; var Key: Char);
+    procedure CYNoChange(Sender: TObject);
+    procedure ToolButton6Click(Sender: TObject);
+    procedure Tv1CellDblClick(Sender: TcxCustomGridTableView;
+      ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
+      AShift: TShiftState; var AHandled: Boolean);
+    procedure Tv1CellClick(Sender: TcxCustomGridTableView;
+      ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
+      AShift: TShiftState; var AHandled: Boolean);
+    procedure FormKeyDown(Sender: TObject; var Key: Word;
+      Shift: TShiftState);
+    procedure CYSpecChange(Sender: TObject);
+    procedure v1Column19PropertiesChange(Sender: TObject);
+    procedure CYMFChange(Sender: TObject);
+    procedure CYNameChange(Sender: TObject);
+    procedure CYNOKeyPress(Sender: TObject; var Key: Char);
+    procedure LabNameBtnClick(Sender: TObject);
+    procedure ToolButton3Click(Sender: TObject);
+  private
+    { Private declarations }
+    CPID:string;
+    PState:Integer;
+    FCPID,FTopID:String;
+    procedure InitTree();
+    procedure InitGrid();
+    procedure ReadINIFile();
+    procedure InitImage();
+    procedure TJGS();
+
+  public
+    { Public declarations }
+  end;
+
+var
+  frmCPSel: TfrmCPSel;
+
+implementation
+uses
+  U_DataLink,U_RTFun,U_CPAdd,U_FileUp,U_ZDYHelp;
+
+{$R *.dfm}
+
+procedure TfrmCPSel.InitTree();
+var
+  i:Integer;
+begin
+  with ADOQueryTree20 do
+  begin
+    Close;
+    SQL.Clear;
+    SQL.Add('select * from CP_Type order by CPlevel,CPOrder,CPName');
+    Open;
+  end;
+  SCreateCDS20(ADOQueryTree20,ADOQueryTree);
+  SInitCDSData20(ADOQueryTree20,ADOQueryTree);
+  cxDBTreeList1.Items[0].Expand(false);
+  //cxDBTreeList1.Items[1].Expand(False);
+end;
+
+procedure TfrmCPSel.InitGrid();
+begin
+  Panel2.Visible:=True;
+  Panel2.Refresh;
+  try
+    ADOQueryMain.DisableControls;
+    with ADOQueryMain do
+    begin
+      Filtered:=False;
+      Close;
+      SQL.Clear;
+      SQL.Add('exec P_Select_CP_YDang :Code,:PState,:CYType');
+      Parameters.ParamByName('Code').Value:='';
+      Parameters.ParamByName('PState').Value:=0;
+      Parameters.ParamByName('CYType').Value:=Trim(ADOQueryTree.fieldbyname('CPID').AsString);
+      Open;
+    end;
+    SCreateCDS20(ADOQueryMain,CDS_Main);
+    SInitCDSData20(ADOQueryMain,CDS_Main);
+  finally
+    ADOQueryMain.EnableControls;
+  end;
+  Panel2.Visible:=False;
+end;
+procedure TfrmCPSel.TJGS();
+var
+  i,j:Integer;
+begin
+  i:=0;
+  j:=0;
+  CDS_Main.DisableControls;
+  with CDS_Main do
+  begin
+    first;
+    while not Eof do
+    begin
+      if FieldByName('CYPriceKg').Value=0 then
+      begin
+        i:=i+1;
+      end else
+      begin
+        j:=j+1;
+      end;
+      Next;
+    end;
+  end;
+  CDS_Main.EnableControls;
+  Label11.Caption:='定价样品数量:'+Trim(IntToStr(j));
+  Label12.Caption:='未定价样品数量:'+Trim(IntToStr(i));
+end;
+procedure TfrmCPSel.FormDestroy(Sender: TObject);
+begin
+  frmCPSel:=nil;
+end;
+
+procedure TfrmCPSel.FormClose(Sender: TObject; var Action: TCloseAction);
+begin
+  Action:=caFree;
+end;
+
+procedure TfrmCPSel.TBCloseClick(Sender: TObject);
+begin
+  WriteCxGrid('样品列表CX1',Tv1,'样品管理');
+  if  DirectoryExists(ExtractFileDir('D:\Right1209')) then
+    winexec('cmd /c rd /s /q D:\Right1209',sw_hide);
+  Close;
+end;
+procedure TfrmCPSel.FormShow(Sender: TObject);
+begin
+  InitTree();
+  ReadCxGrid('样品列表CX1',Tv1,'样品管理');
+  with ADOQueryTemp do
+  begin
+    Close;
+    sql.Clear;
+    sql.Add('select CYID='''' ');
+    Open;
+  end;
+  SCreateCDS20(ADOQueryTemp,CDS_CYNO);
+  SInitCDSData20(ADOQueryTemp,CDS_CYNO);
+  CDS_CYNO.Delete;
+end;
+
+procedure TfrmCPSel.cxDBTreeList1DblClick(Sender: TObject);
+begin
+  InitGrid();
+  TJGS();
+end;
+
+procedure TfrmCPSel.TBRafreshClick(Sender: TObject);
+begin
+  InitTree();
+  InitGrid();
+  TJGS();
+end;
+
+procedure TfrmCPSel.ToolButton2Click(Sender: TObject);
+begin
+  if ADOQueryMain.Active then
+  begin
+    SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2));
+    SCreateCDS20(ADOQueryMain,CDS_Main);
+    SInitCDSData20(ADOQueryMain,CDS_Main);
+    TJGS();
+  end;
+
+end;
+
+procedure TfrmCPSel.CYIDKeyPress(Sender: TObject; var Key: Char);
+begin
+  if Key=#13 then
+  begin
+    if Trim(CYID.Text)='' then Exit;
+    with ADOQueryMain do
+    begin
+      Close;
+      Filtered:=False;
+      sql.Clear;
+      sql.Add('exec P_Select_CP_YDang :Code,1,'''' ');
+      Parameters.ParamByName('Code').Value:=Trim(CYID.Text);
+      Open;
+    end;
+    SCreateCDS20(ADOQueryMain,CDS_Main);
+    SInitCDSData20(ADOQueryMain,CDS_Main);
+    CYID.Text:='';
+    ADOQueryTree.Locate('CPID',CPID,[]);
+  end;
+end;
+
+procedure TfrmCPSel.CYNoChange(Sender: TObject);
+begin
+  //if Length(Trim(TEdit(Sender).Text))<4 then Exit;
+  if ADOQueryMain.Active then
+  begin
+    SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2));
+    SCreateCDS20(ADOQueryMain,CDS_Main);
+    SInitCDSData20(ADOQueryMain,CDS_Main);
+    TJGS();
+  end;
+
+end;
+
+procedure TfrmCPSel.ToolButton6Click(Sender: TObject);
+var
+  fHandle:THandle;
+  FInt:Integer;
+  FFName,FPath:String;
+begin
+  {FPath:='C:\HTTP1209\';
+  if  DirectoryExists(ExtractFileDir(FPath)) then
+    winexec('cmd /c rd /s /q C:\HTTP1209',sw_hide);}
+  with ADOQueryTemp do
+  begin
+    close;
+    sql.Clear;
+    sql.Add('select * from XD_File where CYNO='''+Trim(CDS_Main.fieldbyname('CYNO').AsString)+'''');
+    Open;
+    if IsEmpty then
+    begin
+      Application.MessageBox('样品图片未上传！','提示',0);
+      Exit;
+    end;
+  end;
+  try
+    ReadINIFile();
+    server:=ReadINIFileStr('SYSTEMSET.INI','SERVER','服务器地址','127.0.0.1');
+    if Length(server)<6 then
+    begin
+      server:='127.0.0.1';
+    end;
+    IdFTP1.Host :=server;//PicSvr;
+    IdFTP1.Username := 'three';
+    IdFTP1.Password := '641010';
+    IdFTP1.Connect();
+  except
+    IdFTP1.Quit;
+    Application.MessageBox('无法连接到文件服务器，请检查！', '提示', MB_ICONWARNING);
+    Exit;
+  end;
+  FPath:='D:\Right1209\';
+  if not DirectoryExists(ExtractFileDir(FPath)) then
+    CreateDir(ExtractFileDir(FPath));
+  FFName:=Trim(ADOQueryTemp.fieldbyname('FileName').AsString);
+  FFName:=FPath+FFName;
+  if FileExists(FFName) then
+  begin
+    FInt:=1;
+  end;
+  if FInt<>1 then
+    IdFTP1.Get('YP\'+Trim(ADOQueryTemp.fieldbyname('FileName').AsString),
+                   FPath+Trim(ADOQueryTemp.fieldbyname('FileName').AsString)
+                    );
+  if IdFTP1.Connected then IdFTP1.Quit;
+  ShellExecute(Handle, 'open',PChar(FPath+Trim(ADOQueryTemp.fieldbyname('FileName').AsString)),'', '', SW_SHOWNORMAL);
+
+end;
+procedure TfrmCPSel.ReadINIFile();
+var
+  programIni:Tinifile;  //配置文件名
+  FileName:string;
+begin
+  FileName:=ExtractFilePath(Paramstr(0))+'SYSTEMSET.INI';
+  programIni:=Tinifile.create(FileName);
+  server:=programIni.ReadString('SERVER','服务器地址','127.0.0.1');
+  programIni.Free;
+end;
+
+procedure TfrmCPSel.Tv1CellDblClick(Sender: TcxCustomGridTableView;
+  ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
+  AShift: TShiftState; var AHandled: Boolean);
+begin
+  ModalResult:=1;
+end;
+
+procedure TfrmCPSel.Tv1CellClick(Sender: TcxCustomGridTableView;
+  ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
+  AShift: TShiftState; var AHandled: Boolean);
+begin
+  if CDS_Main.IsEmpty then Exit;
+  with ADOQueryTemp do
+  begin
+    Close;
+    sql.Clear;
+    sql.Add('select * from CP_YDang where CYID='''+Trim(CDS_Main.fieldbyname('CYID').asstring)+'''');
+    Open;
+  end;
+  CPID:=Trim(ADOQueryTemp.fieldbyname('CYType').AsString);
+  ADOQueryTree.Locate('CPID',CPID,[]);
+  InitImage();
+end;
+procedure TfrmCPSel.InitImage();
+var
+  jpg:TJpegImage;
+  myStream:TADOBlobStream;
+begin
+  if CDS_Main.IsEmpty then Exit;
+  if Trim(CDS_Main.fieldbyname('CYID').AsString)='' then Exit;
+ // if cxPageControl1.ActivePageIndex=6 then
+  begin
+    Image2.Picture.Assign(nil);
+    try
+      with ADOQueryTemp do
+      begin
+        close;
+        sql.Clear;
+        sql.Add(' select * from TP_File A where A.WBID='''+Trim(CDS_Main.fieldbyname('CYID').AsString)+'''');
+        sql.Add(' and TFType=''样品'' ');
+        open;
+        if RecordCount>0 then
+        begin
+          if trim(ADOQueryTemp.fieldbyname('FilesOther').AsString)<>'' then
+          begin
+            myStream:=tadoblobstream.Create(tblobfield(ADOQueryTemp.fieldbyname('FilesOther')),bmread);
+            if myStream=nil then exit;
+            jpg:=TJPEGImage.Create;
+            jpg.LoadFromStream(myStream);
+            Image2.Picture.Assign(jpg);
+          end;
+        end;
+      end;
+    finally
+      jpg.Free;
+      myStream.Free;
+    end;
+  end;
+end;
+
+procedure TfrmCPSel.FormKeyDown(Sender: TObject; var Key: Word;
+  Shift: TShiftState);
+begin
+  {if Key= then
+  begin
+    if CDS_Main.IsEmpty then Exit;
+    if Application.MessageBox('确定6666要删除数据吗？','提示',32+4)<>IDYES then Exit;
+    if Trim(CDS_Main.fieldbyname('CYID').AsString)<>'' then
+    begin
+      with ADOQueryCmd do
+      begin
+        Close;
+        SQL.Clear;
+        sql.Add('delete CP_YDang where CYID='''+Trim(CDS_Main.fieldbyname('CYID').AsString)+'''');
+        ExecSQL;
+      end;
+    end;
+
+    CDS_Main.Delete;
+  end;  }
+end;
+
+procedure TfrmCPSel.CYSpecChange(Sender: TObject);
+begin
+  if Length(Trim(CYSpec.Text))<3 then Exit;
+  if ADOQueryMain.Active then
+  begin
+    SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2));
+    SCreateCDS20(ADOQueryMain,CDS_Main);
+    SInitCDSData20(ADOQueryMain,CDS_Main);
+  end;
+end;
+
+procedure TfrmCPSel.v1Column19PropertiesChange(Sender: TObject);
+var
+  mvalue:Boolean;
+begin
+ { mvalue:=TcxCheckBox(Sender).EditingValue;
+  if mvalue=True then
+  begin
+    with CDS_CYNO do
+    begin
+      if Locate('CYID',Trim(CDS_Main.fieldbyname('CYID').AsString),[])=False then
+      begin
+        Append;
+        FieldByName('CYID').Value:=Trim(CDS_Main.fieldbyname('CYID').AsString);
+        Post;
+      end;
+    end;
+  end else
+  begin
+    //with CDS_CYNO do
+    //begin
+    CDS_CYNO.Locate('CYID',Trim(CDS_Main.fieldbyname('CYID').AsString),[]);
+    CDS_CYNO.Delete;
+    //end;
+  end; }
+end;
+
+procedure TfrmCPSel.CYMFChange(Sender: TObject);
+begin
+  //if Length(Trim(TEdit(Sender).Text))<2 then Exit;
+  if ADOQueryMain.Active then
+  begin
+    SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2));
+    SCreateCDS20(ADOQueryMain,CDS_Main);
+    SInitCDSData20(ADOQueryMain,CDS_Main);
+    TJGS();
+  end;
+
+end;
+
+procedure TfrmCPSel.CYNameChange(Sender: TObject);
+begin
+  //if Length(Trim(TEdit(Sender).Text))<2 then Exit;
+  if ADOQueryMain.Active then
+  begin
+    SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2));
+    SCreateCDS20(ADOQueryMain,CDS_Main);
+    SInitCDSData20(ADOQueryMain,CDS_Main);
+    TJGS();
+  end;
+
+end;
+
+procedure TfrmCPSel.CYNOKeyPress(Sender: TObject; var Key: Char);
+begin
+  if Key=#13 then
+  begin
+    if Trim(CYNO.Text)='' then Exit;
+    if Length(Trim(CYNO.Text))<4 then Exit;
+    with ADOQueryMain do
+    begin
+      Close;
+      Filtered:=False;
+      sql.Clear;
+      sql.Add('exec P_Select_CP_YDang :Code,2,'''' ');
+      Parameters.ParamByName('Code').Value:='%'+Trim(CYNO.Text)+'%';
+      Open;
+    end;
+    SCreateCDS20(ADOQueryMain,CDS_Main);
+    SInitCDSData20(ADOQueryMain,CDS_Main);
+    CYID.Text:='';
+    ADOQueryTree.Locate('CPID',CPID,[]);
+    TJGS();
+  end;
+end;
+
+procedure TfrmCPSel.LabNameBtnClick(Sender: TObject);
+begin
+  try
+    frmZDYHelp:=TfrmZDYHelp.Create(Application);
+    with frmZDYHelp do
+    begin
+      flag:='YPLabName';
+      flagname:='样品标签';
+      fnote:=True;
+      TBAdd.Visible:=False;
+      TBEdit.Visible:=False;
+      TBDel.Visible:=False;
+      if ShowModal=1 then
+      begin
+        Self.LabName.Text:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString);
+      end;
+    end;
+  finally
+    frmZDYHelp.Free;
+  end;
+end;
+
+procedure TfrmCPSel.ToolButton3Click(Sender: TObject);
+var
+   fPrintFile:string;
+begin
+  if CDS_Main.IsEmpty then Exit;
+  if Trim(LabName.Text)='' then
+  begin
+    Application.MessageBox('标签名称不能为空!','提示',0);
+    Exit;
+  end;
+  fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\'+Trim(LabName.Text)+'.rmf' ;
+  if FileExists(fPrintFile) then
+  begin
+    RM1.LoadFromFile(fPrintFile);
+    RM1.ShowReport;
+  end else
+  begin
+    Application.MessageBox(PChar('没有找'+ExtractFilePath(Application.ExeName)+'Report\'+Trim(LabName.Text)+'.rmf'),'提示',0);
+  end;
+end;
+
+end.

坯布码单待检(PBMDDJ.dll)/U_CPType.dfm

@@ -0,0 +1,189 @@
+object frmCPType: TfrmCPType
+  Left = 281
+  Top = 184
+  Width = 870
+  Height = 505
+  Caption = #20135#21697#31867#21035
+  Color = clBtnFace
+  Font.Charset = GB2312_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -12
+  Font.Name = #23435#20307
+  Font.Style = []
+  OldCreateOrder = False
+  OnClose = FormClose
+  OnDestroy = FormDestroy
+  OnShow = FormShow
+  PixelsPerInch = 96
+  TextHeight = 12
+  object ToolBar1: TToolBar
+    Left = 0
+    Top = 0
+    Width = 854
+    Height = 33
+    ButtonHeight = 30
+    ButtonWidth = 83
+    Caption = 'ToolBar1'
+    Color = clSkyBlue
+    DisabledImages = DataLink_DDMD.ThreeImgList
+    Flat = True
+    Images = DataLink_DDMD.ThreeImgList
+    List = True
+    ParentColor = False
+    ShowCaptions = True
+    TabOrder = 0
+    object TBRafresh: TToolButton
+      Left = 0
+      Top = 0
+      AutoSize = True
+      Caption = #21047#26032
+      ImageIndex = 0
+      OnClick = TBRafreshClick
+    end
+    object TBAdd: TToolButton
+      Left = 63
+      Top = 0
+      AutoSize = True
+      Caption = #26032#22686#23376#31867
+      ImageIndex = 12
+      OnClick = TBAddClick
+    end
+    object ToolButton1: TToolButton
+      Left = 150
+      Top = 0
+      AutoSize = True
+      Caption = #20445#23384
+      ImageIndex = 5
+      OnClick = ToolButton1Click
+    end
+    object TBDel: TToolButton
+      Left = 213
+      Top = 0
+      AutoSize = True
+      Caption = #21024#38500
+      ImageIndex = 3
+      OnClick = TBDelClick
+    end
+    object TBClose: TToolButton
+      Left = 276
+      Top = 0
+      AutoSize = True
+      Caption = #20851#38381
+      ImageIndex = 21
+      OnClick = TBCloseClick
+    end
+  end
+  object cxDBTreeList1: TcxDBTreeList
+    Left = 0
+    Top = 33
+    Width = 249
+    Height = 433
+    Align = alLeft
+    Bands = <
+      item
+      end>
+    BufferedPaint = False
+    DataController.DataSource = DataSource1
+    DataController.ParentField = 'CPParent'
+    DataController.KeyField = 'CPID'
+    OptionsBehavior.ExpandOnDblClick = False
+    OptionsSelection.CellSelect = False
+    OptionsView.CellAutoHeight = True
+    OptionsView.Headers = False
+    RootValue = -1
+    TabOrder = 1
+    OnClick = cxDBTreeList1Click
+    object cxDBTreeList1cxDBTreeListColumn2: TcxDBTreeListColumn
+      DataBinding.FieldName = 'CPName'
+      Width = 210
+      Position.ColIndex = 1
+      Position.RowIndex = 0
+      Position.BandIndex = 0
+    end
+  end
+  object Panel1: TPanel
+    Left = 270
+    Top = 54
+    Width = 315
+    Height = 150
+    BevelInner = bvRaised
+    BevelOuter = bvLowered
+    Color = clSkyBlue
+    TabOrder = 2
+    object Label1: TLabel
+      Left = 66
+      Top = 24
+      Width = 48
+      Height = 12
+      Caption = #29238'    '#31867
+    end
+    object Label2: TLabel
+      Left = 66
+      Top = 65
+      Width = 48
+      Height = 12
+      Caption = #31867#21035#21517#31216
+    end
+    object Label3: TLabel
+      Left = 66
+      Top = 105
+      Width = 48
+      Height = 12
+      Caption = #31867#21035#32534#30721
+    end
+    object CPTopName: TEdit
+      Left = 129
+      Top = 21
+      Width = 121
+      Height = 20
+      ReadOnly = True
+      TabOrder = 0
+    end
+    object CPName: TEdit
+      Left = 129
+      Top = 61
+      Width = 121
+      Height = 20
+      TabOrder = 1
+      OnKeyPress = CPNameKeyPress
+    end
+    object CPNo: TEdit
+      Left = 129
+      Top = 101
+      Width = 121
+      Height = 20
+      TabOrder = 2
+    end
+  end
+  object DataSource1: TDataSource
+    DataSet = ADOQueryTree
+    Left = 91
+    Top = 147
+  end
+  object ADOQueryTree10: TADOQuery
+    Connection = DataLink_DDMD.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 125
+    Top = 145
+  end
+  object ADOQueryTemp: TADOQuery
+    Connection = DataLink_DDMD.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 709
+    Top = 209
+  end
+  object ADOQueryCmd: TADOQuery
+    Connection = DataLink_DDMD.ADOLink
+    Parameters = <>
+    Left = 677
+    Top = 137
+  end
+  object ADOQueryTree: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 160
+    Top = 152
+  end
+end

坯布码单待检(PBMDDJ.dll)/U_CPType.pas

@@ -0,0 +1,242 @@
+unit U_CPType;    //1
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, cxGraphics, cxCustomData, cxStyles, cxTL, cxMaskEdit, DB, ADODB,
+  cxInplaceContainer, cxDBTL, cxControls, cxTLData, ComCtrls, ToolWin,
+  StdCtrls, ExtCtrls, DBClient;
+
+type
+  TfrmCPType = class(TForm)
+    ToolBar1: TToolBar;
+    TBRafresh: TToolButton;
+    TBAdd: TToolButton;
+    TBDel: TToolButton;
+    TBClose: TToolButton;
+    cxDBTreeList1: TcxDBTreeList;
+    cxDBTreeList1cxDBTreeListColumn2: TcxDBTreeListColumn;
+    DataSource1: TDataSource;
+    ADOQueryTree10: TADOQuery;
+    ToolButton1: TToolButton;
+    ADOQueryTemp: TADOQuery;
+    ADOQueryCmd: TADOQuery;
+    Panel1: TPanel;
+    Label1: TLabel;
+    Label2: TLabel;
+    Label3: TLabel;
+    CPTopName: TEdit;
+    CPName: TEdit;
+    CPNo: TEdit;
+    ADOQueryTree: TClientDataSet;
+    procedure FormDestroy(Sender: TObject);
+    procedure FormClose(Sender: TObject; var Action: TCloseAction);
+    procedure TBRafreshClick(Sender: TObject);
+    procedure TBCloseClick(Sender: TObject);
+    procedure TBAddClick(Sender: TObject);
+    procedure cxDBTreeList1Click(Sender: TObject);
+    procedure ToolButton1Click(Sender: TObject);
+    procedure TBDelClick(Sender: TObject);
+    procedure CPNameKeyPress(Sender: TObject; var Key: Char);
+    procedure FormShow(Sender: TObject);
+  private
+    { Private declarations }
+    PState:Integer;
+    FCPID,FTopID:String;
+    procedure InitTree();
+
+  public
+    { Public declarations }
+  end;
+
+var
+  frmCPType: TfrmCPType;
+
+implementation
+uses
+  U_DataLink,U_RTFun;
+
+{$R *.dfm}
+
+procedure TfrmCPType.InitTree();
+var
+  i:Integer;
+begin
+  with ADOQueryTree10 do
+  begin
+    Close;
+    SQL.Clear;
+    SQL.Add('select * from CP_Type order by CPlevel,CPOrder,CPName');
+    Open;
+  end;
+  SCreateCDS20(ADOQueryTree10,ADOQueryTree);
+  SInitCDSData20(ADOQueryTree10,ADOQueryTree);
+  cxDBTreeList1.Items[0].Expand(false);
+  //cxDBTreeList1.Items[1].Expand(False);
+end;
+
+procedure TfrmCPType.FormDestroy(Sender: TObject);
+begin
+  frmCPType:=nil;
+end;
+
+procedure TfrmCPType.FormClose(Sender: TObject; var Action: TCloseAction);
+begin
+  Action:=caFree;
+end;
+
+procedure TfrmCPType.TBRafreshClick(Sender: TObject);
+begin
+  InitTree();
+end;
+
+procedure TfrmCPType.TBCloseClick(Sender: TObject);
+begin
+  Close;
+end;
+
+procedure TfrmCPType.TBAddClick(Sender: TObject);
+begin
+  PState:=11;
+  CPTopName.Text:=Trim(ADOQueryTree.fieldbyname('CPName').AsString);
+  //FTopID:=Trim(ADOQueryTree.fieldbyname('CPID').AsString);
+  FCPID:='';
+  CPName.Text:='';
+  CPNo.Text:='';
+  CPName.SetFocus;
+end;
+
+procedure TfrmCPType.cxDBTreeList1Click(Sender: TObject);
+begin
+  PState:=22;
+  with ADOQueryTemp do
+  begin
+    Close;
+    sql.Clear;
+    sql.Add('select * from CP_Type where CPID='''+Trim(ADOQueryTree.fieldbyname('CPParent').AsString)+'''');
+    Open;
+  end;
+  FCPID:=Trim(ADOQueryTree.fieldbyname('CPID').AsString);
+  CPTopName.Text:=Trim(ADOQueryTemp.fieldbyname('CPName').AsString);
+  CPName.Text:=Trim(ADOQueryTree.fieldbyname('CPName').AsString);
+  CPNo.Text:=Trim(ADOQueryTree.fieldbyname('CPNo').AsString);
+end;
+
+procedure TfrmCPType.ToolButton1Click(Sender: TObject);
+var
+  maxId:String;
+begin
+  if Trim(CPName.Text)='' then
+  begin
+    Application.MessageBox('类别名称不能为空！','提示',0);
+    Exit;
+  end;
+  if Trim(CPNo.Text)='' then
+  begin
+    Application.MessageBox('类别编码不能为空！','提示',0);
+    Exit;
+  end;
+  try
+    ADOQueryCmd.Connection.BeginTrans;
+    if PState=11 then
+    begin
+      if GetLSNo(ADOQueryCmd,maxId,'CP','CP_Type',4,1)=False then
+      begin
+        ADOQueryCmd.Connection.RollbackTrans;
+        Application.MessageBox('区最大号失败！','提示',0);
+        Exit;
+      end;
+    end else
+    begin
+      maxId:=Trim(FCPID);
+    end;
+    with ADOQueryCmd do
+    begin
+      Close;
+      SQL.Clear;
+      sql.Add('select * from CP_Type where CPID='''+Trim(FCPID)+'''');
+      Open;
+    end;
+    with ADOQueryCmd do
+    begin
+      if PState=11 then
+      begin
+        Append;
+        FieldByName('CPID').Value:=Trim(maxId);
+        FieldByName('CPName').Value:=Trim(CPName.Text);
+        FieldByName('CPNo').Value:=Trim(CPNo.Text);
+        FieldByName('CPParent').Value:=Trim(ADOQueryTree.fieldbyname('CPID').AsString);
+        FieldByName('CPLevel').Value:=ADOQueryTree.fieldbyname('CPLevel').AsInteger+1;
+        Post;
+      end else
+      if PState=22 then
+      begin
+        Edit;
+        FieldByName('CPID').Value:=Trim(maxId);
+        FieldByName('CPName').Value:=Trim(CPName.Text);
+        FieldByName('CPNo').Value:=Trim(CPNo.Text);
+        //FieldByName('CPParent').Value:=Trim(ADOQueryTree.fieldbyname('CPID').AsString);
+        //FieldByName('CPOrder').Value:=ADOQueryTree.fieldbyname('CPOrder').AsInteger+1;
+        Post;
+      end;
+    end;
+    ADOQueryCmd.Connection.CommitTrans;
+    Application.MessageBox('保存成功!','提示',0);
+  except
+    ADOQueryCmd.Connection.RollbackTrans;
+    Application.MessageBox('保存失败!','提示',0);
+  end;
+end;
+
+procedure TfrmCPType.TBDelClick(Sender: TObject);
+begin
+  if ADOQueryTree.FieldByName('CPLevel').AsInteger=0 then Exit;
+  with ADOQueryTemp do
+  begin
+    Close;
+    sql.Clear;
+    sql.Add('select * from CP_Type where CPParent='''+Trim(ADOQueryTree.fieldbyname('CPID').AsString)+'''');
+    Open;
+    if not IsEmpty then
+    begin
+      Application.MessageBox('已经定义子类不能删除！','提示',0);
+      Exit;
+    end;
+  end;
+  with ADOQueryTemp do
+  begin
+    Close;
+    sql.Clear;
+    sql.Add('select * from CP_YDang where CYType='''+Trim(ADOQueryTree.fieldbyname('CPID').AsString)+'''');
+    Open;
+    if not IsEmpty then
+    begin
+      Application.MessageBox('已经有产品属于此类不能删除！','提示',0);
+      Exit;
+    end;
+  end;
+  if Application.MessageBox('确定要删除数据吗？','提示',32+4)<>IDYES then Exit;
+  with ADOQueryCmd do
+  begin
+    Close;
+    SQL.Clear;
+    sql.Add('delete CP_Type where CPID='''+Trim(ADOQueryTree.fieldbyname('CPID').AsString)+'''');
+    sql.Add('delete CP_Type where CPParent='''+Trim(ADOQueryTree.fieldbyname('CPID').AsString)+'''');
+    ExecSQL;
+  end;
+  InitTree();
+end;
+
+procedure TfrmCPType.CPNameKeyPress(Sender: TObject; var Key: Char);
+begin
+  if Key=#13 then
+    CPNo.SetFocus;
+end;
+
+procedure TfrmCPType.FormShow(Sender: TObject);
+begin
+  InitTree();
+end;
+
+end.

坯布码单待检(PBMDDJ.dll)/U_CPView.dfm

@@ -0,0 +1,745 @@
+object frmCPView: TfrmCPView
+  Left = 75
+  Top = 75
+  Width = 1148
+  Height = 618
+  Caption = #20135#21697#26597#35810
+  Color = clBtnFace
+  Font.Charset = GB2312_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -12
+  Font.Name = #23435#20307
+  Font.Style = []
+  OldCreateOrder = False
+  OnClose = FormClose
+  OnDestroy = FormDestroy
+  OnKeyDown = FormKeyDown
+  OnShow = FormShow
+  PixelsPerInch = 96
+  TextHeight = 12
+  object ToolBar1: TToolBar
+    Left = 0
+    Top = 0
+    Width = 1132
+    Height = 31
+    ButtonHeight = 30
+    ButtonWidth = 83
+    Caption = 'ToolBar1'
+    Color = clSkyBlue
+    DisabledImages = DataLink_DDMD.ThreeImgList
+    Flat = True
+    Images = DataLink_DDMD.ThreeImgList
+    List = True
+    ParentColor = False
+    ShowCaptions = True
+    TabOrder = 0
+    object TBRafresh: TToolButton
+      Left = 0
+      Top = 0
+      AutoSize = True
+      Caption = #21047#26032
+      ImageIndex = 0
+      OnClick = TBRafreshClick
+    end
+    object ToolButton2: TToolButton
+      Left = 63
+      Top = 0
+      AutoSize = True
+      Caption = #36807#28388
+      ImageIndex = 20
+      OnClick = ToolButton2Click
+    end
+    object ToolButton1: TToolButton
+      Left = 126
+      Top = 0
+      AutoSize = True
+      Caption = #23548#20986
+      ImageIndex = 97
+      Visible = False
+      OnClick = ToolButton1Click
+    end
+    object ToolButton4: TToolButton
+      Left = 189
+      Top = 0
+      AutoSize = True
+      Caption = #26631#31614#25171#21360
+      ImageIndex = 4
+      OnClick = ToolButton4Click
+    end
+    object Panel3: TPanel
+      Left = 276
+      Top = 0
+      Width = 72
+      Height = 30
+      BevelInner = bvRaised
+      BevelOuter = bvLowered
+      Color = clSkyBlue
+      TabOrder = 1
+      object Label6: TLabel
+        Left = 3
+        Top = 9
+        Width = 24
+        Height = 12
+        Caption = #20221#25968
+      end
+      object Edit1: TEdit
+        Left = 29
+        Top = 6
+        Width = 38
+        Height = 20
+        TabOrder = 0
+      end
+    end
+    object Panel4: TPanel
+      Left = 348
+      Top = 0
+      Width = 174
+      Height = 30
+      BevelInner = bvRaised
+      BevelOuter = bvLowered
+      Color = clSkyBlue
+      TabOrder = 0
+      object Label13: TLabel
+        Left = 3
+        Top = 9
+        Width = 52
+        Height = 12
+        Caption = #26631#31614#21517#31216
+        Font.Charset = GB2312_CHARSET
+        Font.Color = clWindowText
+        Font.Height = -12
+        Font.Name = #23435#20307
+        Font.Style = [fsBold]
+        ParentFont = False
+      end
+      object LabName: TBtnEditA
+        Left = 61
+        Top = 5
+        Width = 105
+        Height = 20
+        TabOrder = 0
+        OnBtnClick = LabNameBtnClick
+      end
+    end
+    object ToolButton3: TToolButton
+      Left = 522
+      Top = 0
+      Caption = #26631#31614#39044#35272
+      ImageIndex = 66
+      OnClick = ToolButton3Click
+    end
+    object ToolButton6: TToolButton
+      Left = 605
+      Top = 0
+      AutoSize = True
+      Caption = #22270#29255#19979#36733
+      ImageIndex = 19
+      OnClick = ToolButton6Click
+    end
+    object TBClose: TToolButton
+      Left = 692
+      Top = 0
+      AutoSize = True
+      Caption = #20851#38381
+      ImageIndex = 21
+      OnClick = TBCloseClick
+    end
+  end
+  object cxGrid1: TcxGrid
+    Left = 228
+    Top = 89
+    Width = 904
+    Height = 490
+    Align = alClient
+    TabOrder = 1
+    object Tv1: TcxGridDBTableView
+      NavigatorButtons.ConfirmDelete = False
+      NavigatorButtons.Delete.Enabled = False
+      NavigatorButtons.Delete.Visible = False
+      OnCellClick = Tv1CellClick
+      OnCellDblClick = Tv1CellDblClick
+      DataController.DataSource = DataSource2
+      DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
+      DataController.Summary.DefaultGroupSummaryItems = <>
+      DataController.Summary.FooterSummaryItems = <>
+      DataController.Summary.SummaryGroups = <>
+      OptionsCustomize.ColumnFiltering = False
+      OptionsData.Deleting = False
+      OptionsData.DeletingConfirmation = False
+      OptionsView.GroupByBox = False
+      Styles.Inactive = DataLink_DDMD.SHuangSe
+      Styles.IncSearch = DataLink_DDMD.SHuangSe
+      Styles.Selection = DataLink_DDMD.SHuangSe
+      Styles.Header = DataLink_DDMD.Default
+      object v1Column19: TcxGridDBColumn
+        Caption = #36873#25321
+        DataBinding.FieldName = 'SSel'
+        PropertiesClassName = 'TcxCheckBoxProperties'
+        Properties.ImmediatePost = True
+        Properties.NullStyle = nssUnchecked
+        Properties.OnChange = v1Column19PropertiesChange
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_DDMD.Default
+        Width = 40
+      end
+      object v1Column12: TcxGridDBColumn
+        Caption = #31867#21035
+        DataBinding.FieldName = 'CPName'
+        HeaderAlignmentHorz = taCenter
+        Options.Focusing = False
+        Styles.Header = DataLink_DDMD.Default
+        Width = 58
+      end
+      object v1Column15: TcxGridDBColumn
+        Caption = #38472#21015#20301#32622
+        DataBinding.FieldName = 'DefStr2'
+        HeaderAlignmentHorz = taCenter
+        Options.Focusing = False
+        Styles.Header = DataLink_DDMD.Default
+        Width = 71
+      end
+      object v1Column2: TcxGridDBColumn
+        Caption = #20013#25991#21517#31216
+        DataBinding.FieldName = 'CYName'
+        HeaderAlignmentHorz = taCenter
+        Options.Focusing = False
+        Styles.Header = DataLink_DDMD.Default
+        Width = 68
+      end
+      object v1Column1: TcxGridDBColumn
+        Caption = #20135#21697#32534#21495
+        DataBinding.FieldName = 'CYNo'
+        HeaderAlignmentHorz = taCenter
+        Options.Focusing = False
+        Styles.Header = DataLink_DDMD.Default
+        Width = 70
+      end
+      object v1Column17: TcxGridDBColumn
+        Caption = #32769#32534#21495
+        DataBinding.FieldName = 'OldCYNo'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 92
+      end
+      object v1Column20: TcxGridDBColumn
+        Caption = #35746#21333#21495
+        DataBinding.FieldName = 'OrderNo'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 84
+      end
+      object v1Column4: TcxGridDBColumn
+        Caption = #35268#26684
+        DataBinding.FieldName = 'CYSpec'
+        HeaderAlignmentHorz = taCenter
+        Options.Focusing = False
+        Styles.Header = DataLink_DDMD.Default
+        Width = 67
+      end
+      object v1Column5: TcxGridDBColumn
+        Caption = #20013#25991#25104#20998
+        DataBinding.FieldName = 'CYCF'
+        HeaderAlignmentHorz = taCenter
+        Options.Focusing = False
+        Styles.Header = DataLink_DDMD.Default
+        Width = 66
+      end
+      object v1Column3: TcxGridDBColumn
+        Caption = #33521#25991#21517#31216
+        DataBinding.FieldName = 'CYEName'
+        HeaderAlignmentHorz = taCenter
+        Options.Focusing = False
+        Styles.Header = DataLink_DDMD.Default
+        Width = 66
+      end
+      object v1Column6: TcxGridDBColumn
+        Caption = #33521#25991#25104#20998
+        DataBinding.FieldName = 'CYECF'
+        HeaderAlignmentHorz = taCenter
+        Options.Focusing = False
+        Styles.Header = DataLink_DDMD.Default
+        Width = 69
+      end
+      object v1Column8: TcxGridDBColumn
+        Caption = #20811#37325
+        DataBinding.FieldName = 'CYKZ'
+        HeaderAlignmentHorz = taCenter
+        Options.Focusing = False
+        Styles.Header = DataLink_DDMD.Default
+        Width = 67
+      end
+      object v1Column7: TcxGridDBColumn
+        Caption = #38376#24133
+        DataBinding.FieldName = 'CYMF'
+        HeaderAlignmentHorz = taCenter
+        Options.Focusing = False
+        Styles.Header = DataLink_DDMD.Default
+        Width = 73
+      end
+      object v1Column16: TcxGridDBColumn
+        Caption = #33457#22411
+        DataBinding.FieldName = 'CYHX'
+        HeaderAlignmentHorz = taCenter
+        Options.Focusing = False
+        Styles.Header = DataLink_DDMD.Default
+        Width = 58
+      end
+      object v1Column9: TcxGridDBColumn
+        Caption = #20013#25991#39068#33394
+        DataBinding.FieldName = 'CYColor'
+        HeaderAlignmentHorz = taCenter
+        Options.Focusing = False
+        Styles.Header = DataLink_DDMD.Default
+        Width = 67
+      end
+      object v1Column42: TcxGridDBColumn
+        Caption = #33521#25991#39068#33394
+        DataBinding.FieldName = 'CYColorEng'
+        HeaderAlignmentHorz = taCenter
+        Width = 60
+      end
+      object v1Column18: TcxGridDBColumn
+        Caption = #38754#26009#26469#28304
+        DataBinding.FieldName = 'CYFrom'
+        HeaderAlignmentHorz = taCenter
+        Width = 109
+      end
+      object v1Column11: TcxGridDBColumn
+        Caption = #22791#27880
+        DataBinding.FieldName = 'CYNote'
+        HeaderAlignmentHorz = taCenter
+        Options.Focusing = False
+        Styles.Header = DataLink_DDMD.Default
+        Width = 66
+      end
+      object v1Column14: TcxGridDBColumn
+        Caption = #22270#29255#19978#20256
+        DataBinding.FieldName = 'TPFlag'
+        PropertiesClassName = 'TcxCheckBoxProperties'
+        Properties.NullStyle = nssUnchecked
+        HeaderAlignmentHorz = taCenter
+        Options.Focusing = False
+        Styles.Header = DataLink_DDMD.Default
+        Width = 59
+      end
+      object v1Column10: TcxGridDBColumn
+        Caption = #20844#26020#20215
+        DataBinding.FieldName = 'CYPriceKg'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 56
+      end
+      object v1Column13: TcxGridDBColumn
+        Caption = #31859#20215
+        DataBinding.FieldName = 'CYPriceM'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 54
+      end
+    end
+    object cxGrid1Level1: TcxGridLevel
+      GridView = Tv1
+    end
+  end
+  object cxSplitter1: TcxSplitter
+    Left = 220
+    Top = 89
+    Width = 8
+    Height = 490
+    HotZoneClassName = 'TcxMediaPlayer9Style'
+    Control = Panel5
+  end
+  object Panel1: TPanel
+    Left = 0
+    Top = 31
+    Width = 1132
+    Height = 58
+    Align = alTop
+    BevelInner = bvRaised
+    BevelOuter = bvLowered
+    Color = clSkyBlue
+    TabOrder = 3
+    object Label2: TLabel
+      Left = 16
+      Top = 15
+      Width = 48
+      Height = 12
+      Caption = #25195#25551#20837#21475
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clRed
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = []
+      ParentFont = False
+    end
+    object Label1: TLabel
+      Left = 364
+      Top = 15
+      Width = 48
+      Height = 12
+      Caption = #20013#25991#21517#31216
+    end
+    object Label4: TLabel
+      Left = 482
+      Top = 15
+      Width = 48
+      Height = 12
+      Caption = #33521#25991#21517#31216
+    end
+    object Label5: TLabel
+      Left = 216
+      Top = 39
+      Width = 48
+      Height = 12
+      Caption = #35268'    '#26684
+    end
+    object Label3: TLabel
+      Left = 216
+      Top = 15
+      Width = 48
+      Height = 12
+      Caption = #20135#21697#32534#21495
+    end
+    object Label7: TLabel
+      Left = 606
+      Top = 39
+      Width = 24
+      Height = 12
+      Caption = #20811#37325
+    end
+    object Label8: TLabel
+      Left = 364
+      Top = 39
+      Width = 48
+      Height = 12
+      Caption = #20013#25991#25104#20998
+    end
+    object Label9: TLabel
+      Left = 482
+      Top = 39
+      Width = 48
+      Height = 12
+      Caption = #33521#25991#25104#20998
+    end
+    object Label10: TLabel
+      Left = 606
+      Top = 15
+      Width = 24
+      Height = 12
+      Caption = #38376#24133
+    end
+    object Label11: TLabel
+      Left = 832
+      Top = 15
+      Width = 7
+      Height = 12
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clBlue
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label12: TLabel
+      Left = 832
+      Top = 39
+      Width = 7
+      Height = 12
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clRed
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label15: TLabel
+      Left = 720
+      Top = 15
+      Width = 36
+      Height = 12
+      Caption = #32769#32534#21495
+    end
+    object Label16: TLabel
+      Left = 720
+      Top = 39
+      Width = 36
+      Height = 12
+      Caption = #35746#21333#21495
+    end
+    object CYID: TEdit
+      Tag = 3
+      Left = 72
+      Top = 11
+      Width = 121
+      Height = 20
+      TabOrder = 0
+      OnKeyPress = CYIDKeyPress
+    end
+    object CYName: TEdit
+      Tag = 2
+      Left = 414
+      Top = 11
+      Width = 56
+      Height = 20
+      TabOrder = 1
+      OnKeyPress = CYNameKeyPress
+    end
+    object CYEName: TEdit
+      Tag = 2
+      Left = 531
+      Top = 11
+      Width = 59
+      Height = 20
+      TabOrder = 2
+      OnKeyPress = CYENameKeyPress
+    end
+    object CYSpec: TEdit
+      Tag = 2
+      Left = 265
+      Top = 35
+      Width = 89
+      Height = 20
+      TabOrder = 3
+      OnKeyPress = CYSpecKeyPress
+    end
+    object CYNO: TEdit
+      Tag = 2
+      Left = 265
+      Top = 11
+      Width = 89
+      Height = 20
+      TabOrder = 4
+      OnKeyPress = CYNOKeyPress
+    end
+    object CYKZ: TEdit
+      Tag = 2
+      Left = 632
+      Top = 35
+      Width = 76
+      Height = 20
+      TabOrder = 5
+      OnKeyPress = CYENameKeyPress
+    end
+    object CYCF: TEdit
+      Tag = 2
+      Left = 414
+      Top = 35
+      Width = 56
+      Height = 20
+      TabOrder = 6
+      OnKeyPress = CYCFKeyPress
+    end
+    object CYECF: TEdit
+      Tag = 2
+      Left = 531
+      Top = 35
+      Width = 59
+      Height = 20
+      TabOrder = 7
+      OnKeyPress = CYENameKeyPress
+    end
+    object CYMF: TEdit
+      Tag = 2
+      Left = 632
+      Top = 11
+      Width = 76
+      Height = 20
+      TabOrder = 8
+      OnKeyPress = CYENameKeyPress
+    end
+    object OldCYNo: TEdit
+      Tag = 2
+      Left = 755
+      Top = 11
+      Width = 73
+      Height = 20
+      TabOrder = 9
+      OnKeyPress = OldCYNoKeyPress
+    end
+    object OrderNo: TEdit
+      Tag = 2
+      Left = 755
+      Top = 35
+      Width = 73
+      Height = 20
+      TabOrder = 10
+      OnKeyPress = OrderNoKeyPress
+    end
+  end
+  object Panel2: TPanel
+    Left = 512
+    Top = 232
+    Width = 185
+    Height = 41
+    BevelInner = bvRaised
+    BevelOuter = bvLowered
+    Caption = #27491#22312#26597#35810#25968#25454#65292#35831#31245#21518#12290#12290#12290
+    Color = clSkyBlue
+    Font.Charset = GB2312_CHARSET
+    Font.Color = clRed
+    Font.Height = -12
+    Font.Name = #23435#20307
+    Font.Style = [fsBold]
+    ParentFont = False
+    TabOrder = 4
+    Visible = False
+  end
+  object Panel5: TPanel
+    Left = 0
+    Top = 89
+    Width = 220
+    Height = 490
+    Align = alLeft
+    BevelInner = bvRaised
+    BevelOuter = bvLowered
+    TabOrder = 5
+    object Image2: TImage
+      Left = 2
+      Top = 301
+      Width = 216
+      Height = 187
+      Align = alBottom
+    end
+    object cxDBTreeList1: TcxDBTreeList
+      Left = 2
+      Top = 2
+      Width = 216
+      Height = 299
+      Align = alClient
+      Bands = <
+        item
+        end>
+      BufferedPaint = False
+      DataController.DataSource = DataSource1
+      DataController.ParentField = 'CPParent'
+      DataController.KeyField = 'CPID'
+      OptionsBehavior.ExpandOnDblClick = False
+      OptionsSelection.CellSelect = False
+      OptionsView.CellAutoHeight = True
+      OptionsView.Headers = False
+      RootValue = -1
+      Styles.Inactive = DataLink_DDMD.Red
+      Styles.Selection = DataLink_DDMD.Red
+      Styles.IncSearch = DataLink_DDMD.Red
+      TabOrder = 0
+      OnDblClick = cxDBTreeList1DblClick
+      object cxDBTreeList1cxDBTreeListColumn2: TcxDBTreeListColumn
+        DataBinding.FieldName = 'CPName'
+        Width = 210
+        Position.ColIndex = 1
+        Position.RowIndex = 0
+        Position.BandIndex = 0
+      end
+    end
+  end
+  object DataSource1: TDataSource
+    DataSet = ADOQueryTree
+    Left = 91
+    Top = 147
+  end
+  object ADOQueryTree20: TADOQuery
+    Connection = DataLink_DDMD.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 61
+    Top = 145
+  end
+  object ADOQueryTemp: TADOQuery
+    Connection = DataLink_DDMD.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 989
+    Top = 1
+  end
+  object ADOQueryCmd: TADOQuery
+    Connection = DataLink_DDMD.ADOLink
+    Parameters = <>
+    Left = 1029
+    Top = 1
+  end
+  object cxGridPopupMenu1: TcxGridPopupMenu
+    Grid = cxGrid1
+    PopupMenus = <>
+    Left = 432
+    Top = 184
+  end
+  object DataSource2: TDataSource
+    DataSet = CDS_Main
+    Left = 451
+    Top = 155
+  end
+  object ADOQueryMain: TADOQuery
+    Connection = DataLink_DDMD.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 493
+    Top = 193
+  end
+  object CDS_Main: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 392
+    Top = 184
+  end
+  object RM1: TRMGridReport
+    ThreadPrepareReport = True
+    InitialZoom = pzDefault
+    PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbExport, pbNavigator]
+    DefaultCollate = False
+    ShowPrintDialog = False
+    SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\'
+    PreviewOptions.RulerUnit = rmutScreenPixels
+    PreviewOptions.RulerVisible = False
+    PreviewOptions.DrawBorder = False
+    PreviewOptions.BorderPen.Color = clGray
+    PreviewOptions.BorderPen.Style = psDash
+    Dataset = RMDB_Main
+    CompressLevel = rmzcFastest
+    CompressThread = False
+    LaterBuildEvents = True
+    OnlyOwnerDataSet = False
+    Left = 392
+    Top = 152
+    ReportData = {}
+  end
+  object RMDB_Main: TRMDBDataSet
+    Visible = True
+    DataSet = CDS_Main
+    Left = 424
+    Top = 152
+  end
+  object ODPat: TOpenDialog
+    Options = [ofReadOnly, ofAllowMultiSelect, ofPathMustExist, ofFileMustExist, ofEnableSizing]
+    Left = 484
+    Top = 157
+  end
+  object IdFTP1: TIdFTP
+    MaxLineAction = maException
+    ReadTimeout = 0
+    ProxySettings.ProxyType = fpcmNone
+    ProxySettings.Port = 0
+    Left = 461
+    Top = 188
+  end
+  object SaveDialog1: TSaveDialog
+    Left = 513
+    Top = 157
+  end
+  object DSCYNO: TDataSource
+    DataSet = CDS_CYNO
+    Left = 771
+    Top = 235
+  end
+  object CDS_CYNO: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 712
+    Top = 264
+  end
+  object ADOQueryTree: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 32
+    Top = 200
+  end
+end

坯布码单待检(PBMDDJ.dll)/U_CPView.pas

@@ -0,0 +1,745 @@
+unit U_CPView;  //3
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, cxGraphics, cxCustomData, cxStyles, cxTL, cxMaskEdit, DB, ADODB,
+  cxInplaceContainer, cxDBTL, cxControls, cxTLData, ComCtrls, ToolWin,
+  StdCtrls, cxFilter, cxData, cxDataStorage, cxEdit, cxDBData, DBClient,
+  cxGridCustomTableView, cxGridTableView, cxGridDBTableView, ExtCtrls,
+  cxSplitter, cxGridLevel, cxClasses, cxGridCustomView, cxGrid,
+  cxGridCustomPopupMenu, cxGridPopupMenu, RM_Dataset, RM_System, RM_Common,
+  RM_Class, RM_GridReport, IdBaseComponent, IdComponent, IdTCPConnection,
+  IdTCPClient, IdFTP,ShellAPI,IniFiles, cxCheckBox,jpeg, BtnEdit;
+
+type
+  TfrmCPView = class(TForm)
+    ToolBar1: TToolBar;
+    TBRafresh: TToolButton;
+    TBClose: TToolButton;
+    DataSource1: TDataSource;
+    ADOQueryTree20: TADOQuery;
+    ADOQueryTemp: TADOQuery;
+    ADOQueryCmd: TADOQuery;
+    cxGridPopupMenu1: TcxGridPopupMenu;
+    Tv1: TcxGridDBTableView;
+    cxGrid1Level1: TcxGridLevel;
+    cxGrid1: TcxGrid;
+    cxSplitter1: TcxSplitter;
+    Panel1: TPanel;
+    Label2: TLabel;
+    CYID: TEdit;
+    ToolButton2: TToolButton;
+    Label1: TLabel;
+    CYName: TEdit;
+    Label4: TLabel;
+    CYEName: TEdit;
+    Label5: TLabel;
+    CYSpec: TEdit;
+    v1Column1: TcxGridDBColumn;
+    v1Column2: TcxGridDBColumn;
+    v1Column3: TcxGridDBColumn;
+    v1Column4: TcxGridDBColumn;
+    v1Column5: TcxGridDBColumn;
+    v1Column6: TcxGridDBColumn;
+    v1Column7: TcxGridDBColumn;
+    v1Column8: TcxGridDBColumn;
+    v1Column9: TcxGridDBColumn;
+    v1Column11: TcxGridDBColumn;
+    DataSource2: TDataSource;
+    ADOQueryMain: TADOQuery;
+    CDS_Main: TClientDataSet;
+    v1Column12: TcxGridDBColumn;
+    ToolButton1: TToolButton;
+    ToolButton4: TToolButton;
+    RM1: TRMGridReport;
+    RMDB_Main: TRMDBDataSet;
+    ODPat: TOpenDialog;
+    IdFTP1: TIdFTP;
+    SaveDialog1: TSaveDialog;
+    ToolButton6: TToolButton;
+    v1Column14: TcxGridDBColumn;
+    v1Column15: TcxGridDBColumn;
+    Label3: TLabel;
+    CYNO: TEdit;
+    v1Column16: TcxGridDBColumn;
+    Panel2: TPanel;
+    v1Column19: TcxGridDBColumn;
+    DSCYNO: TDataSource;
+    CDS_CYNO: TClientDataSet;
+    Label7: TLabel;
+    CYKZ: TEdit;
+    Label8: TLabel;
+    Label9: TLabel;
+    CYCF: TEdit;
+    CYECF: TEdit;
+    Label10: TLabel;
+    CYMF: TEdit;
+    v1Column42: TcxGridDBColumn;
+    v1Column10: TcxGridDBColumn;
+    v1Column13: TcxGridDBColumn;
+    ADOQueryTree: TClientDataSet;
+    Panel5: TPanel;
+    Image2: TImage;
+    cxDBTreeList1: TcxDBTreeList;
+    cxDBTreeList1cxDBTreeListColumn2: TcxDBTreeListColumn;
+    Label11: TLabel;
+    Label12: TLabel;
+    Panel4: TPanel;
+    Label13: TLabel;
+    LabName: TBtnEditA;
+    ToolButton3: TToolButton;
+    Panel3: TPanel;
+    Label6: TLabel;
+    Edit1: TEdit;
+    Label15: TLabel;
+    OldCYNo: TEdit;
+    v1Column17: TcxGridDBColumn;
+    v1Column18: TcxGridDBColumn;
+    v1Column20: TcxGridDBColumn;
+    Label16: TLabel;
+    OrderNo: TEdit;
+    procedure FormDestroy(Sender: TObject);
+    procedure FormClose(Sender: TObject; var Action: TCloseAction);
+    procedure TBCloseClick(Sender: TObject);
+    procedure FormShow(Sender: TObject);
+    procedure cxDBTreeList1DblClick(Sender: TObject);
+    procedure TBRafreshClick(Sender: TObject);
+    procedure ToolButton2Click(Sender: TObject);
+    procedure CYIDKeyPress(Sender: TObject; var Key: Char);
+    procedure ToolButton1Click(Sender: TObject);
+    procedure ToolButton4Click(Sender: TObject);
+    procedure ToolButton6Click(Sender: TObject);
+    procedure Tv1CellDblClick(Sender: TcxCustomGridTableView;
+      ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
+      AShift: TShiftState; var AHandled: Boolean);
+    procedure Tv1CellClick(Sender: TcxCustomGridTableView;
+      ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
+      AShift: TShiftState; var AHandled: Boolean);
+    procedure FormKeyDown(Sender: TObject; var Key: Word;
+      Shift: TShiftState);
+    procedure CYSpecChange(Sender: TObject);
+    procedure v1Column19PropertiesChange(Sender: TObject);
+    procedure CYNOKeyPress(Sender: TObject; var Key: Char);
+    procedure LabNameBtnClick(Sender: TObject);
+    procedure ToolButton3Click(Sender: TObject);
+    procedure OldCYNoKeyPress(Sender: TObject; var Key: Char);
+    procedure CYSpecKeyPress(Sender: TObject; var Key: Char);
+    procedure CYNameKeyPress(Sender: TObject; var Key: Char);
+    procedure CYCFKeyPress(Sender: TObject; var Key: Char);
+    procedure CYENameKeyPress(Sender: TObject; var Key: Char);
+    procedure OrderNoKeyPress(Sender: TObject; var Key: Char);
+  private
+    { Private declarations }
+    CPID:string;
+    PState:Integer;
+    FCPID,FTopID:String;
+    procedure InitTree();
+    procedure InitGrid();
+    procedure InitGridSql(fsj:string);
+    procedure ReadINIFile();
+    procedure InitImage();
+    procedure TJGS();
+
+  public
+    { Public declarations }
+  end;
+
+var
+  frmCPView: TfrmCPView;
+
+implementation
+uses
+  U_DataLink,U_RTFun,U_CPAdd,U_FileUp,U_ZDYHelp;
+
+{$R *.dfm}
+
+procedure TfrmCPView.InitTree();
+var
+  i:Integer;
+begin
+  with ADOQueryTree20 do
+  begin
+    Close;
+    SQL.Clear;
+    SQL.Add('select * from CP_Type order by CPlevel,CPOrder,CPName');
+    Open;
+  end;
+  SCreateCDS20(ADOQueryTree20,ADOQueryTree);
+  SInitCDSData20(ADOQueryTree20,ADOQueryTree);
+  cxDBTreeList1.Items[0].Expand(false);
+  //cxDBTreeList1.Items[1].Expand(False);
+end;
+
+procedure TfrmCPView.InitGrid();
+begin
+  Panel2.Visible:=True;
+  Panel2.Refresh;
+  try
+    ADOQueryMain.DisableControls;
+    with ADOQueryMain do
+    begin
+      Filtered:=False;
+      Close;
+      SQL.Clear;
+      SQL.Add('exec P_Select_CP_YDang :Code,:PState,:CYType');
+      Parameters.ParamByName('Code').Value:='';
+      Parameters.ParamByName('PState').Value:=0;
+      Parameters.ParamByName('CYType').Value:=Trim(ADOQueryTree.fieldbyname('CPID').AsString);
+      Open;
+    end;
+    SCreateCDS20(ADOQueryMain,CDS_Main);
+    SInitCDSData20(ADOQueryMain,CDS_Main);
+  finally
+    ADOQueryMain.EnableControls;
+  end;
+  Panel2.Visible:=False;
+end;
+procedure TfrmCPView.TJGS();
+var
+  i,j:Integer;
+begin
+  i:=0;
+  j:=0;
+  CDS_Main.DisableControls;
+  with CDS_Main do
+  begin
+    first;
+    while not Eof do
+    begin
+      if FieldByName('CYPriceKg').Value=0 then
+      begin
+        i:=i+1;
+      end else
+      begin
+        j:=j+1;
+      end;
+      Next;
+    end;
+  end;
+  CDS_Main.EnableControls;
+  Label11.Caption:='定价样品数量:'+Trim(IntToStr(j));
+  Label12.Caption:='未定价样品数量:'+Trim(IntToStr(i));
+end;
+procedure TfrmCPView.FormDestroy(Sender: TObject);
+begin
+  frmCPView:=nil;
+end;
+
+procedure TfrmCPView.FormClose(Sender: TObject; var Action: TCloseAction);
+begin
+  Action:=caFree;
+end;
+
+procedure TfrmCPView.TBCloseClick(Sender: TObject);
+begin
+  WriteCxGrid('样品列表CX',Tv1,'样品管理');
+  if  DirectoryExists(ExtractFileDir('D:\Right1209')) then
+    winexec('cmd /c rd /s /q D:\Right1209',sw_hide);
+  Close;
+end;
+procedure TfrmCPView.FormShow(Sender: TObject);
+begin
+  InitTree();
+  ReadCxGrid('样品列表CX',Tv1,'样品管理');
+  with ADOQueryTemp do
+  begin
+    Close;
+    sql.Clear;
+    sql.Add('select CYID='''' ');
+    Open;
+  end;
+  SCreateCDS20(ADOQueryTemp,CDS_CYNO);
+  SInitCDSData20(ADOQueryTemp,CDS_CYNO);
+  CDS_CYNO.Delete;
+end;
+
+procedure TfrmCPView.cxDBTreeList1DblClick(Sender: TObject);
+begin
+  InitGrid();
+  TJGS();
+end;
+
+procedure TfrmCPView.TBRafreshClick(Sender: TObject);
+begin
+  InitTree();
+  InitGrid();
+  TJGS();
+end;
+
+procedure TfrmCPView.ToolButton2Click(Sender: TObject);
+begin
+  if ADOQueryMain.Active then
+  begin
+    SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2));
+    SCreateCDS20(ADOQueryMain,CDS_Main);
+    SInitCDSData20(ADOQueryMain,CDS_Main);
+    TJGS();
+  end;
+
+end;
+
+procedure TfrmCPView.CYIDKeyPress(Sender: TObject; var Key: Char);
+begin
+  if Key=#13 then
+  begin
+    if Trim(CYID.Text)='' then Exit;
+    with ADOQueryMain do
+    begin
+      Close;
+      Filtered:=False;
+      sql.Clear;
+      sql.Add('exec P_Select_CP_YDang :Code,1,'''' ');
+      Parameters.ParamByName('Code').Value:=Trim(CYID.Text);
+      Open;
+    end;
+    SCreateCDS20(ADOQueryMain,CDS_Main);
+    SInitCDSData20(ADOQueryMain,CDS_Main);
+    CYID.Text:='';
+    ADOQueryTree.Locate('CPID',CPID,[]);
+  end;
+end;
+
+procedure TfrmCPView.ToolButton1Click(Sender: TObject);
+begin
+  if CDS_Main.IsEmpty then Exit;
+  TcxGridToExcel('样品档案',cxGrid1);
+end;
+
+procedure TfrmCPView.ToolButton4Click(Sender: TObject);
+var
+   fPrintFile,FFCYID:string;
+   DPS,i,j:Integer;
+begin
+  CYID.SetFocus;
+  if CDS_Main.IsEmpty then Exit;
+  //if CDS_CYNO.IsEmpty then Exit;
+  if Trim(LabName.Text)='' then
+  begin
+    Application.MessageBox('标签名称不能为空!','提示',0);
+    Exit;
+  end;
+  if Trim(Edit1.Text)<>'' then
+  begin
+    if TryStrToInt(Edit1.Text,i)=False then
+    begin
+      Application.MessageBox('份数录入错误!','提示',0);
+      exit;
+    end;
+  end;
+
+  fPrintFile:= ExtractFilePath(Application.ExeName) +'Report\'+Trim(LabName.Text)+'.rmf';
+  CDS_Main.DisableControls;
+  DPS:=0;
+  FFCYID:='';
+  i:=1;
+  if Trim(Edit1.Text)='' then
+  begin
+    j:=1;
+  end else
+  begin
+    j:=StrToInt(Edit1.Text);
+  end;
+  with CDS_Main do
+  begin
+    First;
+    while not Eof do
+    begin
+      if CDS_Main.FieldByName('SSel').AsBoolean=True then
+      begin
+        for i:=1 to j do
+        begin
+          if FileExists(fPrintFile) then
+          begin
+            RM1.LoadFromFile(fPrintFile);
+            RM1.PrintReport;
+          end else
+          begin
+            Application.MessageBox(PChar('没有找'+ExtractFilePath(Application.ExeName)+'Report\'+Trim(LabName.Text)+'.rmf'),'提示',0);
+            Exit;
+          end;
+        end;
+
+        if DPS=0 then
+        begin
+          FFCYID:=Trim(CDS_Main.fieldbyname('CYID').AsString);
+        end;
+      end;
+      //CDS_Main.Locate('CYID',Trim(CDS_CYNO.fieldbyname('CYID').AsString),[]);
+
+      Next;
+    end;
+  end;
+  CDS_Main.EnableControls;
+  CDS_Main.Locate('CYID',FFCYID,[]);
+  Edit1.Text:='1';
+
+end;
+
+procedure TfrmCPView.ToolButton6Click(Sender: TObject);
+var
+  fHandle:THandle;
+  FInt:Integer;
+  FFName,FPath,FFFFCPNO:String;
+begin
+  {FPath:='C:\HTTP1209\';
+  if  DirectoryExists(ExtractFileDir(FPath)) then
+    winexec('cmd /c rd /s /q C:\HTTP1209',sw_hide);}
+  FFFFCPNO:=Trim(CDS_Main.fieldbyname('CYNo').AsString);
+  if Pos(':',FFFFCPNO)>0 then
+  begin
+    Application.MessageBox('产品编号不允许存在冒号(:)！','',0);
+    Exit;
+  end;
+  if Pos('：',FFFFCPNO)>0 then
+  begin
+    Application.MessageBox('产品编号不允许存在冒号(：)！','',0);
+    Exit;
+  end;
+  if Pos('\',FFFFCPNO)>0 then
+  begin
+    Application.MessageBox('产品编号不允许存在反斜杠(\)！','',0);
+    Exit;
+  end;
+  with ADOQueryTemp do
+  begin
+    close;
+    sql.Clear;
+    sql.Add('select * from XD_File where CYNO='''+Trim(CDS_Main.fieldbyname('CYNO').AsString)+'''');
+    Open;
+    if IsEmpty then
+    begin
+      Application.MessageBox('样品图片未上传！','提示',0);
+      Exit;
+    end;
+  end;
+  try
+    ReadINIFile();
+    server:=ReadINIFileStr('SYSTEMSET.INI','SERVER','服务器地址','127.0.0.1');
+    if Length(server)<6 then
+    begin
+      server:='127.0.0.1';
+    end;
+    IdFTP1.Host :=server;//PicSvr;
+    IdFTP1.Username := 'three';
+    IdFTP1.Password := '641010';
+    IdFTP1.Connect();
+  except
+    IdFTP1.Quit;
+    Application.MessageBox('无法连接到文件服务器，请检查！', '提示', MB_ICONWARNING);
+    Exit;
+  end;
+  FPath:='D:\Right1209\';
+  if not DirectoryExists(ExtractFileDir(FPath)) then
+    CreateDir(ExtractFileDir(FPath));
+  FFName:=Trim(ADOQueryTemp.fieldbyname('FileName').AsString);
+  FFName:=FPath+FFName;
+  if FileExists(FFName) then
+  begin
+    FInt:=1;
+  end;
+  if FInt<>1 then
+    IdFTP1.Get('YP\'+Trim(ADOQueryTemp.fieldbyname('FileName').AsString),
+                   FPath+Trim(ADOQueryTemp.fieldbyname('FileName').AsString)
+                    );
+  if IdFTP1.Connected then IdFTP1.Quit;
+  ShellExecute(Handle, 'open',PChar(FPath+Trim(ADOQueryTemp.fieldbyname('FileName').AsString)),'', '', SW_SHOWNORMAL);
+
+end;
+procedure TfrmCPView.ReadINIFile();
+var
+  programIni:Tinifile;  //配置文件名
+  FileName:string;
+begin
+  FileName:=ExtractFilePath(Paramstr(0))+'SYSTEMSET.INI';
+  programIni:=Tinifile.create(FileName);
+  server:=programIni.ReadString('SERVER','服务器地址','127.0.0.1');
+  programIni.Free;
+end;
+
+procedure TfrmCPView.Tv1CellDblClick(Sender: TcxCustomGridTableView;
+  ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
+  AShift: TShiftState; var AHandled: Boolean);
+begin
+  ToolButton6.Click;
+end;
+
+procedure TfrmCPView.Tv1CellClick(Sender: TcxCustomGridTableView;
+  ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
+  AShift: TShiftState; var AHandled: Boolean);
+begin
+  if CDS_Main.IsEmpty then Exit;
+  with ADOQueryTemp do
+  begin
+    Close;
+    sql.Clear;
+    sql.Add('select * from CP_YDang where CYID='''+Trim(CDS_Main.fieldbyname('CYID').asstring)+'''');
+    Open;
+  end;
+  CPID:=Trim(ADOQueryTemp.fieldbyname('CYType').AsString);
+  ADOQueryTree.Locate('CPID',CPID,[]);
+  InitImage();
+end;
+procedure TfrmCPView.InitImage();
+var
+  jpg:TJpegImage;
+  myStream:TADOBlobStream;
+begin
+  if CDS_Main.IsEmpty then Exit;
+  if Trim(CDS_Main.fieldbyname('CYID').AsString)='' then Exit;
+ // if cxPageControl1.ActivePageIndex=6 then
+  begin
+    Image2.Picture.Assign(nil);
+    try
+      with ADOQueryTemp do
+      begin
+        close;
+        sql.Clear;
+        sql.Add(' select * from TP_File A where A.WBID='''+Trim(CDS_Main.fieldbyname('CYID').AsString)+'''');
+        sql.Add(' and TFType=''样品'' ');
+        open;
+        if RecordCount>0 then
+        begin
+          if trim(ADOQueryTemp.fieldbyname('FilesOther').AsString)<>'' then
+          begin
+            myStream:=tadoblobstream.Create(tblobfield(ADOQueryTemp.fieldbyname('FilesOther')),bmread);
+            if myStream=nil then exit;
+            jpg:=TJPEGImage.Create;
+            jpg.LoadFromStream(myStream);
+            Image2.Picture.Assign(jpg);
+          end;
+        end;
+      end;
+    finally
+      jpg.Free;
+      myStream.Free;
+    end;
+  end;
+end;
+
+procedure TfrmCPView.FormKeyDown(Sender: TObject; var Key: Word;
+  Shift: TShiftState);
+begin
+  {if Key= then
+  begin
+    if CDS_Main.IsEmpty then Exit;
+    if Application.MessageBox('确定6666要删除数据吗？','提示',32+4)<>IDYES then Exit;
+    if Trim(CDS_Main.fieldbyname('CYID').AsString)<>'' then
+    begin
+      with ADOQueryCmd do
+      begin
+        Close;
+        SQL.Clear;
+        sql.Add('delete CP_YDang where CYID='''+Trim(CDS_Main.fieldbyname('CYID').AsString)+'''');
+        ExecSQL;
+      end;
+    end;
+
+    CDS_Main.Delete;
+  end;  }
+end;
+
+procedure TfrmCPView.CYSpecChange(Sender: TObject);
+begin
+  if Length(Trim(CYSpec.Text))<3 then Exit;
+  if ADOQueryMain.Active then
+  begin
+    SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2));
+    SCreateCDS20(ADOQueryMain,CDS_Main);
+    SInitCDSData20(ADOQueryMain,CDS_Main);
+  end;
+end;
+
+procedure TfrmCPView.v1Column19PropertiesChange(Sender: TObject);
+var
+  mvalue:Boolean;
+begin
+ { mvalue:=TcxCheckBox(Sender).EditingValue;
+  if mvalue=True then
+  begin
+    with CDS_CYNO do
+    begin
+      if Locate('CYID',Trim(CDS_Main.fieldbyname('CYID').AsString),[])=False then
+      begin
+        Append;
+        FieldByName('CYID').Value:=Trim(CDS_Main.fieldbyname('CYID').AsString);
+        Post;
+      end;
+    end;
+  end else
+  begin
+    //with CDS_CYNO do
+    //begin
+    CDS_CYNO.Locate('CYID',Trim(CDS_Main.fieldbyname('CYID').AsString),[]);
+    CDS_CYNO.Delete;
+    //end;
+  end; }
+end;
+
+procedure TfrmCPView.CYNOKeyPress(Sender: TObject; var Key: Char);
+begin
+  if Key=#13 then
+  begin
+    if Trim(CYNO.Text)='' then Exit;
+    if Length(Trim(CYNO.Text))<4 then Exit;
+    with ADOQueryMain do
+    begin
+      Close;
+      Filtered:=False;
+      sql.Clear;
+      sql.Add('exec P_Select_CP_YDang :Code,2,'''' ');
+      Parameters.ParamByName('Code').Value:='%'+Trim(CYNO.Text)+'%';
+      Open;
+    end;
+    SCreateCDS20(ADOQueryMain,CDS_Main);
+    SInitCDSData20(ADOQueryMain,CDS_Main);
+    CYID.Text:='';
+    ADOQueryTree.Locate('CPID',CPID,[]);
+    TJGS();
+  end;
+end;
+
+procedure TfrmCPView.LabNameBtnClick(Sender: TObject);
+begin
+  try
+    frmZDYHelp:=TfrmZDYHelp.Create(Application);
+    with frmZDYHelp do
+    begin
+      flag:='YPLabName';
+      flagname:='样品标签';
+      fnote:=True;
+      TBAdd.Visible:=False;
+      TBEdit.Visible:=False;
+      TBDel.Visible:=False;
+      if ShowModal=1 then
+      begin
+        Self.LabName.Text:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString);
+      end;
+    end;
+  finally
+    frmZDYHelp.Free;
+  end;
+end;
+
+procedure TfrmCPView.ToolButton3Click(Sender: TObject);
+var
+   fPrintFile:string;
+begin
+  if CDS_Main.IsEmpty then Exit;
+  if Trim(LabName.Text)='' then
+  begin
+    Application.MessageBox('标签名称不能为空!','提示',0);
+    Exit;
+  end;
+  fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\'+Trim(LabName.Text)+'.rmf' ;
+  if FileExists(fPrintFile) then
+  begin
+    RM1.LoadFromFile(fPrintFile);
+    RM1.ShowReport;
+  end else
+  begin
+    Application.MessageBox(PChar('没有找'+ExtractFilePath(Application.ExeName)+'Report\'+Trim(LabName.Text)+'.rmf'),'提示',0);
+  end;
+end;
+
+procedure TfrmCPView.OldCYNoKeyPress(Sender: TObject; var Key: Char);
+begin
+  if Key=#13 then
+  begin
+    if Trim(OldCYNo.Text)='' then Exit;
+    if Length(Trim(OldCYNo.Text))<4 then Exit;
+    with ADOQueryMain do
+    begin
+      Close;
+      Filtered:=False;
+      sql.Clear;
+      sql.Add('exec P_Select_CP_YDang :Code,8,'''' ');
+      Parameters.ParamByName('Code').Value:='%'+Trim(OldCYNo.Text)+'%';
+      Open;
+    end;
+    SCreateCDS20(ADOQueryMain,CDS_Main);
+    SInitCDSData20(ADOQueryMain,CDS_Main);
+    CYID.Text:='';
+    ADOQueryTree.Locate('CPID',CPID,[]);
+    TJGS();
+  end;
+end;
+
+procedure TfrmCPView.CYSpecKeyPress(Sender: TObject; var Key: Char);
+begin
+  if Key=#13 then
+  begin
+    if ADOQueryMain.Active then
+    begin
+      SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2));
+      SCreateCDS20(ADOQueryMain,CDS_Main);
+      SInitCDSData20(ADOQueryMain,CDS_Main);
+      TJGS();
+    end;
+  end;
+end;
+
+procedure TfrmCPView.CYNameKeyPress(Sender: TObject; var Key: Char);
+begin
+  if Key=#13 then
+  begin
+    InitGridSql(' and CYName like '''+'%'+Trim(CYName.Text)+'%'+'''');
+    TJGS();
+  end;
+end;
+procedure TfrmCPView.InitGridSql(fsj:string);
+begin
+  Panel2.Visible:=True;
+  Panel2.Refresh;
+  try
+    ADOQueryMain.DisableControls;
+    with ADOQueryMain do
+    begin
+      Filtered:=False;
+      Close;
+      SQL.Clear;
+      SQL.Add('exec P_Select_CP_YDang_Sql :WSql');
+      Parameters.ParamByName('WSql').Value:=fsj;
+      Open;
+    end;
+    SCreateCDS20(ADOQueryMain,CDS_Main);
+    SInitCDSData20(ADOQueryMain,CDS_Main);
+  finally
+    ADOQueryMain.EnableControls;
+  end;
+  Panel2.Visible:=False;
+end;
+procedure TfrmCPView.CYCFKeyPress(Sender: TObject; var Key: Char);
+begin
+  if Key=#13 then
+  begin
+    if ADOQueryMain.Active then
+    begin
+      SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2));
+      SCreateCDS20(ADOQueryMain,CDS_Main);
+      SInitCDSData20(ADOQueryMain,CDS_Main);
+      TJGS();
+    end;
+  end;
+end;
+
+procedure TfrmCPView.CYENameKeyPress(Sender: TObject; var Key: Char);
+begin
+  if Key=#13 then
+  begin
+    InitGridSql(' and CYEName like '''+'%'+Trim(CYEName.Text)+'%'+'''');
+    TJGS();
+  end;
+end;
+
+procedure TfrmCPView.OrderNoKeyPress(Sender: TObject; var Key: Char);
+begin
+  if Key=#13 then
+  begin
+    InitGridSql(' and OrderNo like '''+'%'+Trim(OrderNo.Text)+'%'+'''');
+    TJGS();
+  end;
+end;
+
+end.

坯布码单待检(PBMDDJ.dll)/U_ClothContractInPutHZ.dfm

@@ -0,0 +1,645 @@
+object frmClothContractInPutHZ: TfrmClothContractInPutHZ
+  Left = 198
+  Top = 90
+  Width = 831
+  Height = 622
+  Caption = #32433#32447#21152#24037#21512#21516#24405#20837
+  Color = clBtnFace
+  Font.Charset = GB2312_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -12
+  Font.Name = #23435#20307
+  Font.Style = []
+  OldCreateOrder = False
+  Position = poScreenCenter
+  OnShow = FormShow
+  PixelsPerInch = 96
+  TextHeight = 12
+  object ToolBar1: TToolBar
+    Left = 0
+    Top = 0
+    Width = 815
+    Height = 29
+    ButtonHeight = 30
+    ButtonWidth = 59
+    Caption = 'ToolBar1'
+    EdgeInner = esNone
+    EdgeOuter = esNone
+    Flat = True
+    Font.Charset = GB2312_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -12
+    Font.Name = #23435#20307
+    Font.Style = []
+    Images = DataLink_CYZZ.ThreeImgList
+    List = True
+    ParentFont = False
+    ShowCaptions = True
+    TabOrder = 0
+    object TBSave: TToolButton
+      Left = 0
+      Top = 0
+      AutoSize = True
+      Caption = #20445#23384
+      ImageIndex = 14
+      OnClick = TBSaveClick
+    end
+    object TBClose: TToolButton
+      Left = 63
+      Top = 0
+      AutoSize = True
+      Caption = #20851#38381
+      ImageIndex = 55
+      OnClick = TBCloseClick
+    end
+  end
+  object ScrollBox1: TScrollBox
+    Left = 0
+    Top = 29
+    Width = 815
+    Height = 220
+    Align = alTop
+    BevelInner = bvNone
+    BevelOuter = bvNone
+    Ctl3D = False
+    ParentCtl3D = False
+    TabOrder = 1
+    object Label1: TLabel
+      Left = 24
+      Top = 14
+      Width = 65
+      Height = 12
+      Caption = #21512#21516#32534#21495#65306
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label4: TLabel
+      Left = 290
+      Top = 46
+      Width = 65
+      Height = 12
+      Caption = #20132#36135#26085#26399#65306
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label5: TLabel
+      Left = 511
+      Top = 222
+      Width = 67
+      Height = 12
+      Caption = #20379'    '#26041#65306
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+      Visible = False
+    end
+    object Label2: TLabel
+      Left = 552
+      Top = 14
+      Width = 65
+      Height = 12
+      Caption = #31614#35746#26085#26399#65306
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label3: TLabel
+      Left = 290
+      Top = 14
+      Width = 67
+      Height = 12
+      Caption = #38656'    '#26041#65306
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label6: TLabel
+      Left = 24
+      Top = 46
+      Width = 65
+      Height = 12
+      Caption = #31614#35746#22320#28857#65306
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label8: TLabel
+      Left = 552
+      Top = 42
+      Width = 65
+      Height = 12
+      Caption = #20132#36135#22320#28857#65306
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label7: TLabel
+      Left = 24
+      Top = 68
+      Width = 65
+      Height = 36
+      Caption = #20379#36135#36136#37327#13#10'   '#21450#13#10#25216#26415#26631#20934#65306
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label9: TLabel
+      Left = 552
+      Top = 68
+      Width = 65
+      Height = 36
+      Caption = #36816#36755#26041#24335#13#10'   '#21450#13#10#36153#29992#25215#25285#65306
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label10: TLabel
+      Left = 24
+      Top = 118
+      Width = 65
+      Height = 12
+      Caption = #21253#35013#35201#27714#65306
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label11: TLabel
+      Left = 290
+      Top = 80
+      Width = 65
+      Height = 12
+      Caption = #32467#31639#26041#24335#65306
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label12: TLabel
+      Left = 24
+      Top = 154
+      Width = 195
+      Height = 12
+      Caption = #39564#25910#26631#20934#12289#26041#27861#21450#25552#20986#24322#35758#26399#38480#65306
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label13: TLabel
+      Left = 24
+      Top = 190
+      Width = 91
+      Height = 12
+      Caption = #20854#23427#32422#23450#20107#39033#65306
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object ConNo: TEdit
+      Left = 86
+      Top = 11
+      Width = 180
+      Height = 18
+      TabOrder = 0
+      OnKeyPress = ConNoKeyPress
+    end
+    object DeliveryDate: TDateTimePicker
+      Left = 353
+      Top = 42
+      Width = 177
+      Height = 20
+      BevelInner = bvNone
+      Date = 40916.670856296290000000
+      Format = 'yyyy-MM-dd'
+      Time = 40916.670856296290000000
+      ShowCheckbox = True
+      TabOrder = 1
+    end
+    object FactoryNoName: TcxButtonEdit
+      Tag = 77
+      Left = 575
+      Top = 218
+      Hint = 'FactoryNo'
+      BeepOnEnter = False
+      Properties.Buttons = <
+        item
+          Default = True
+          Kind = bkEllipsis
+        end>
+      Properties.OnButtonClick = FactoryNoNamePropertiesButtonClick
+      Properties.OnChange = FactoryNoNamePropertiesChange
+      TabOrder = 2
+      Visible = False
+      OnKeyDown = PRTCodeNameKeyDown
+      Width = 162
+    end
+    object PanZDY: TPanel
+      Left = 841
+      Top = 128
+      Width = 202
+      Height = 153
+      TabOrder = 3
+      Visible = False
+      object CXGridZDY: TcxGrid
+        Left = 3
+        Top = 4
+        Width = 197
+        Height = 113
+        TabOrder = 0
+        object TVZDY: TcxGridDBTableView
+          OnKeyPress = TVZDYKeyPress
+          NavigatorButtons.ConfirmDelete = False
+          OnCellDblClick = TVZDYCellDblClick
+          DataController.DataSource = DataSource2
+          DataController.Summary.DefaultGroupSummaryItems = <>
+          DataController.Summary.FooterSummaryItems = <>
+          DataController.Summary.SummaryGroups = <>
+          OptionsCustomize.ColumnFiltering = False
+          OptionsSelection.CellSelect = False
+          OptionsView.GroupByBox = False
+          object VHelpZDYName: TcxGridDBColumn
+            DataBinding.FieldName = 'ZDYName'
+            HeaderAlignmentHorz = taCenter
+            Styles.Header = DataLink_CYZZ.handBlack
+            Width = 163
+            IsCaptionAssigned = True
+          end
+        end
+        object CXGridZDYLevel1: TcxGridLevel
+          GridView = TVZDY
+        end
+      end
+      object Button1: TButton
+        Left = 64
+        Top = 120
+        Width = 65
+        Height = 25
+        Caption = #20851#38381
+        TabOrder = 1
+        OnClick = Button1Click
+      end
+    end
+    object QDTime: TDateTimePicker
+      Left = 614
+      Top = 10
+      Width = 162
+      Height = 20
+      BevelInner = bvNone
+      Date = 40916.670856296290000000
+      Format = 'yyyy-MM-dd'
+      Time = 40916.670856296290000000
+      ShowCheckbox = True
+      TabOrder = 4
+    end
+    object CompanyName: TcxButtonEdit
+      Left = 353
+      Top = 10
+      BeepOnEnter = False
+      Properties.Buttons = <
+        item
+          Default = True
+          Kind = bkEllipsis
+        end>
+      Properties.OnButtonClick = CompanyNamePropertiesButtonClick
+      TabOrder = 5
+      OnKeyDown = PRTCodeNameKeyDown
+      Width = 177
+    end
+    object QDPalce: TEdit
+      Left = 86
+      Top = 43
+      Width = 179
+      Height = 18
+      TabOrder = 6
+    end
+    object JHPlace: TcxButtonEdit
+      Left = 614
+      Top = 38
+      BeepOnEnter = False
+      Properties.Buttons = <
+        item
+          Default = True
+          Kind = bkEllipsis
+        end>
+      Properties.OnButtonClick = JHPlacePropertiesButtonClick
+      TabOrder = 7
+      Width = 162
+    end
+    object ConTK1: TcxButtonEdit
+      Left = 86
+      Top = 76
+      BeepOnEnter = False
+      Properties.Buttons = <
+        item
+          Default = True
+          Kind = bkEllipsis
+        end>
+      Properties.OnButtonClick = ConTK1PropertiesButtonClick
+      TabOrder = 8
+      Width = 183
+    end
+    object ConTk2: TcxButtonEdit
+      Left = 614
+      Top = 76
+      BeepOnEnter = False
+      Properties.Buttons = <
+        item
+          Default = True
+          Kind = bkEllipsis
+        end>
+      Properties.OnButtonClick = ConTk2PropertiesButtonClick
+      TabOrder = 9
+      Width = 162
+    end
+    object ConTK3: TcxButtonEdit
+      Left = 86
+      Top = 114
+      BeepOnEnter = False
+      Properties.Buttons = <
+        item
+          Default = True
+          Kind = bkEllipsis
+        end>
+      Properties.OnButtonClick = ConTK3PropertiesButtonClick
+      TabOrder = 10
+      Width = 691
+    end
+    object ConTK4: TcxButtonEdit
+      Left = 353
+      Top = 76
+      BeepOnEnter = False
+      Properties.Buttons = <
+        item
+          Default = True
+          Kind = bkEllipsis
+        end>
+      Properties.OnButtonClick = ConTK4PropertiesButtonClick
+      TabOrder = 11
+      Width = 177
+    end
+    object ConTK5: TcxButtonEdit
+      Left = 216
+      Top = 150
+      BeepOnEnter = False
+      Properties.Buttons = <
+        item
+          Default = True
+          Kind = bkEllipsis
+        end>
+      Properties.OnButtonClick = ConTK5PropertiesButtonClick
+      TabOrder = 12
+      Width = 563
+    end
+    object ConTk6: TcxButtonEdit
+      Left = 110
+      Top = 186
+      BeepOnEnter = False
+      Properties.Buttons = <
+        item
+          Default = True
+          Kind = bkEllipsis
+        end>
+      Properties.OnButtonClick = ConTk6PropertiesButtonClick
+      TabOrder = 13
+      Width = 669
+    end
+  end
+  object ToolBar2: TToolBar
+    Left = 0
+    Top = 249
+    Width = 815
+    Height = 29
+    ButtonHeight = 30
+    ButtonWidth = 59
+    Caption = 'ToolBar1'
+    EdgeInner = esNone
+    EdgeOuter = esNone
+    Flat = True
+    Font.Charset = GB2312_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -12
+    Font.Name = #23435#20307
+    Font.Style = []
+    Images = DataLink_CYZZ.ThreeImgList
+    List = True
+    ParentFont = False
+    ShowCaptions = True
+    TabOrder = 2
+    object ToolButton1: TToolButton
+      Left = 0
+      Top = 0
+      AutoSize = True
+      Caption = #22686#34892
+      ImageIndex = 103
+      OnClick = ToolButton1Click
+    end
+    object ToolButton2: TToolButton
+      Left = 63
+      Top = 0
+      AutoSize = True
+      Caption = #21024#34892
+      ImageIndex = 107
+      OnClick = ToolButton2Click
+    end
+  end
+  object cxGrid1: TcxGrid
+    Left = 0
+    Top = 278
+    Width = 815
+    Height = 305
+    Align = alClient
+    TabOrder = 3
+    object Tv1: TcxGridDBTableView
+      NavigatorButtons.ConfirmDelete = False
+      DataController.DataSource = DataSource1
+      DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
+      DataController.Summary.DefaultGroupSummaryItems = <
+        item
+          Format = 'C_Code'
+          Column = v1Column1
+        end>
+      DataController.Summary.FooterSummaryItems = <>
+      DataController.Summary.SummaryGroups = <>
+      OptionsBehavior.FocusCellOnTab = True
+      OptionsBehavior.GoToNextCellOnEnter = True
+      OptionsBehavior.FocusCellOnCycle = True
+      OptionsCustomize.ColumnFiltering = False
+      OptionsView.GroupByBox = False
+      object v1Column3: TcxGridDBColumn
+        Tag = 1
+        Caption = #21152#24037#21378
+        DataBinding.FieldName = 'FactoryNoName'
+        PropertiesClassName = 'TcxButtonEditProperties'
+        Properties.Buttons = <
+          item
+            Default = True
+            Kind = bkEllipsis
+          end>
+        Properties.ReadOnly = True
+        Properties.OnButtonClick = v1Column3PropertiesButtonClick
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_CYZZ.Default
+        Width = 117
+      end
+      object v1Column1: TcxGridDBColumn
+        Caption = #20135#21697#21517#31216
+        DataBinding.FieldName = 'C_CodeName'
+        PropertiesClassName = 'TcxButtonEditProperties'
+        Properties.Buttons = <
+          item
+            Default = True
+            Kind = bkEllipsis
+          end>
+        Properties.OnButtonClick = v1Column1PropertiesButtonClick
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_CYZZ.Default
+        Width = 100
+      end
+      object v1PRTSpec: TcxGridDBColumn
+        Caption = #35268#26684#22411#21495
+        DataBinding.FieldName = 'C_Spec'
+        HeaderAlignmentHorz = taCenter
+        Options.Sorting = False
+        Styles.Header = DataLink_CYZZ.handBlack
+        Width = 103
+      end
+      object v1Price: TcxGridDBColumn
+        Caption = #21152#24037#21333#20215
+        DataBinding.FieldName = 'Price'
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_CYZZ.handBlack
+        Width = 58
+      end
+      object v1ClothQty: TcxGridDBColumn
+        Caption = #24065#31181
+        DataBinding.FieldName = 'PriceUnit'
+        PropertiesClassName = 'TcxButtonEditProperties'
+        Properties.Buttons = <
+          item
+            Default = True
+            Kind = bkEllipsis
+          end>
+        Properties.ReadOnly = True
+        Properties.OnButtonClick = v1ClothQtyPropertiesButtonClick
+        HeaderAlignmentHorz = taCenter
+        Options.Sorting = False
+        Styles.Header = DataLink_CYZZ.handBlack
+        Width = 69
+      end
+      object v1ClothUnit: TcxGridDBColumn
+        Caption = #25968#37327
+        DataBinding.FieldName = 'C_Qty'
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_CYZZ.handBlack
+        Width = 69
+      end
+      object v1Column2: TcxGridDBColumn
+        Caption = #25968#37327#21333#20301
+        DataBinding.FieldName = 'C_Unit'
+        PropertiesClassName = 'TcxComboBoxProperties'
+        Properties.DropDownListStyle = lsFixedList
+        Properties.Items.Strings = (
+          'M'
+          'Kg')
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_CYZZ.Default
+        Width = 64
+      end
+      object v1Column4: TcxGridDBColumn
+        Caption = #22791#27880
+        DataBinding.FieldName = 'C_Note'
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_CYZZ.Default
+        Width = 85
+      end
+    end
+    object cxGrid1Level1: TcxGridLevel
+      GridView = Tv1
+    end
+  end
+  object ADOTemp: TADOQuery
+    Connection = DataLink_CYZZ.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 384
+    Top = 65533
+  end
+  object ADOCmd: TADOQuery
+    Connection = DataLink_CYZZ.ADOLink
+    Parameters = <>
+    Left = 520
+    Top = 5
+  end
+  object DataSource1: TDataSource
+    DataSet = Order_Sub
+    Left = 344
+    Top = 376
+  end
+  object Order_Sub: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 384
+    Top = 376
+  end
+  object DataSource2: TDataSource
+    DataSet = ADOZDY
+    Left = 240
+  end
+  object ADOZDY: TADOQuery
+    Connection = DataLink_CYZZ.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 280
+    Top = 65533
+  end
+  object CDS_ZDY: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 208
+  end
+  object ADOQuery1: TADOQuery
+    Connection = DataLink_CYZZ.ADOLink
+    Parameters = <>
+    Left = 456
+    Top = 5
+  end
+end

坯布码单待检(PBMDDJ.dll)/U_ClothContractInPutHZ.pas

@@ -0,0 +1,878 @@
+unit U_ClothContractInPutHZ;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData,
+  cxDataStorage, cxEdit, DB, cxDBData, cxGridLevel, cxGridCustomTableView,
+  cxGridTableView, cxGridDBTableView, cxClasses, cxControls,
+  cxGridCustomView, cxGrid, cxMemo, cxRichEdit, ComCtrls, cxContainer,
+  cxTextEdit, cxMaskEdit, cxButtonEdit, StdCtrls, ToolWin, DBClient, ADODB,
+  ExtCtrls, BtnEdit, cxDropDownEdit;
+
+type
+  TfrmClothContractInPutHZ = class(TForm)
+    ToolBar1: TToolBar;
+    TBSave: TToolButton;
+    TBClose: TToolButton;
+    ScrollBox1: TScrollBox;
+    Label1: TLabel;
+    ConNo: TEdit;
+    Label4: TLabel;
+    DeliveryDate: TDateTimePicker;
+    Label5: TLabel;
+    ToolBar2: TToolBar;
+    ToolButton1: TToolButton;
+    ToolButton2: TToolButton;
+    cxGrid1: TcxGrid;
+    Tv1: TcxGridDBTableView;
+    v1PRTSpec: TcxGridDBColumn;
+    cxGrid1Level1: TcxGridLevel;
+    v1ClothQty: TcxGridDBColumn;
+    v1Price: TcxGridDBColumn;
+    v1ClothUnit: TcxGridDBColumn;
+    ADOTemp: TADOQuery;
+    ADOCmd: TADOQuery;
+    DataSource1: TDataSource;
+    Order_Sub: TClientDataSet;
+    DataSource2: TDataSource;
+    ADOZDY: TADOQuery;
+    CDS_ZDY: TClientDataSet;
+    FactoryNoName: TcxButtonEdit;
+    ADOQuery1: TADOQuery;
+    v1Column1: TcxGridDBColumn;
+    v1Column2: TcxGridDBColumn;
+    PanZDY: TPanel;
+    CXGridZDY: TcxGrid;
+    TVZDY: TcxGridDBTableView;
+    VHelpZDYName: TcxGridDBColumn;
+    CXGridZDYLevel1: TcxGridLevel;
+    Button1: TButton;
+    v1Column4: TcxGridDBColumn;
+    Label2: TLabel;
+    QDTime: TDateTimePicker;
+    Label3: TLabel;
+    CompanyName: TcxButtonEdit;
+    Label6: TLabel;
+    QDPalce: TEdit;
+    Label8: TLabel;
+    JHPlace: TcxButtonEdit;
+    Label7: TLabel;
+    ConTK1: TcxButtonEdit;
+    Label9: TLabel;
+    ConTk2: TcxButtonEdit;
+    Label10: TLabel;
+    ConTK3: TcxButtonEdit;
+    Label11: TLabel;
+    ConTK4: TcxButtonEdit;
+    Label12: TLabel;
+    ConTK5: TcxButtonEdit;
+    Label13: TLabel;
+    ConTk6: TcxButtonEdit;
+    v1Column3: TcxGridDBColumn;
+    procedure TBCloseClick(Sender: TObject);
+    procedure TVZDYCellDblClick(Sender: TcxCustomGridTableView;
+      ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
+      AShift: TShiftState; var AHandled: Boolean);
+    procedure Button1Click(Sender: TObject);
+    procedure PRTCodeNameKeyDown(Sender: TObject; var Key: Word;
+      Shift: TShiftState);
+    procedure TVZDYKeyPress(Sender: TObject; var Key: Char);
+    procedure FormShow(Sender: TObject);
+    procedure TBSaveClick(Sender: TObject);
+    procedure v1OrderUnitPropertiesButtonClick(Sender: TObject;
+      AButtonIndex: Integer);
+    procedure v1PRTUnitPropertiesButtonClick(Sender: TObject;
+      AButtonIndex: Integer);
+    procedure v1PRTColorPropertiesButtonClick(Sender: TObject;
+      AButtonIndex: Integer);
+    procedure ToolButton1Click(Sender: TObject);
+    procedure ToolButton2Click(Sender: TObject);
+    procedure FactoryNoNamePropertiesButtonClick(Sender: TObject;
+      AButtonIndex: Integer);
+    procedure v1Column1PropertiesButtonClick(Sender: TObject;
+      AButtonIndex: Integer);
+    procedure v1PRTMFPropertiesButtonClick(Sender: TObject;
+      AButtonIndex: Integer);
+    procedure v1OrderQtyPropertiesButtonClick(Sender: TObject;
+      AButtonIndex: Integer);
+    procedure v1ClothQtyPropertiesButtonClick(Sender: TObject;
+      AButtonIndex: Integer);
+    procedure v1Column2PropertiesButtonClick(Sender: TObject;
+      AButtonIndex: Integer);
+    procedure FactoryNoNamePropertiesChange(Sender: TObject);
+    procedure CompanyNamePropertiesButtonClick(Sender: TObject;
+      AButtonIndex: Integer);
+    procedure JHPlacePropertiesButtonClick(Sender: TObject;
+      AButtonIndex: Integer);
+    procedure ConTK1PropertiesButtonClick(Sender: TObject;
+      AButtonIndex: Integer);
+    procedure ConTK3PropertiesButtonClick(Sender: TObject;
+      AButtonIndex: Integer);
+    procedure ConTK4PropertiesButtonClick(Sender: TObject;
+      AButtonIndex: Integer);
+    procedure ConTK5PropertiesButtonClick(Sender: TObject;
+      AButtonIndex: Integer);
+    procedure ConTk6PropertiesButtonClick(Sender: TObject;
+      AButtonIndex: Integer);
+    procedure ConTk2PropertiesButtonClick(Sender: TObject;
+      AButtonIndex: Integer);
+    procedure ConNoKeyPress(Sender: TObject; var Key: Char);
+    procedure v1Column3PropertiesButtonClick(Sender: TObject;
+      AButtonIndex: Integer);
+  private
+    FXS:Integer;
+    procedure InitData();
+    procedure ZDYHelp(FButn:TcxButtonEdit;LType:string);
+    function  SaveData():Boolean;
+    { Private declarations }
+  public
+    PState,PCopyInt:Integer;
+    FMainId,FConNo,CPFlag,CPFlagName,FactoryFlag,FConType:String;
+    { Public declarations }
+  end;
+
+var
+  frmClothContractInPutHZ: TfrmClothContractInPutHZ;
+
+implementation
+uses
+  U_DataLink,U_RTZDYHelp,U_RTFun, U_ZDYHelp;
+
+{$R *.dfm}
+
+procedure TfrmClothContractInPutHZ.TBCloseClick(Sender: TObject);
+begin
+  Close;
+end;
+
+procedure TfrmClothContractInPutHZ.InitData();
+begin
+  with ADOQuery1 do
+  begin
+    Close;
+    SQL.Clear;
+    sql.Add('select * from ContractHZ_Main A inner join ContractHZ_Sub B on A.MainId=B.MainId');
+    sql.Add(' where A.MainId='''+Trim(FMainId)+'''');
+    Open;
+  end;
+  SCreateCDS20(ADOQuery1,Order_Sub);
+  SInitCDSData20(ADOQuery1,Order_Sub);
+  SCSHData(ADOQuery1,ScrollBox1,0);
+  if PState=0 then
+  begin
+    with ADOTemp do
+    begin
+      Close;
+      SQL.Clear;
+      sql.Add('select Top 1* from ContractHZ_Main where ConType='''+Trim(FConType)+'''order by FillTime desc ');
+      Open;
+    end;
+    ConTK1.Text:=Trim(ADOTemp.fieldbyname('ConTK1').AsString);
+    ConTK2.Text:=Trim(ADOTemp.fieldbyname('ConTK2').AsString);
+    ConTK3.Text:=Trim(ADOTemp.fieldbyname('ConTK3').AsString);
+    ConTK4.Text:=Trim(ADOTemp.fieldbyname('ConTK4').AsString);
+    ConTK5.Text:=Trim(ADOTemp.fieldbyname('ConTK5').AsString);
+    ConTK6.Text:=Trim(ADOTemp.fieldbyname('ConTK6').AsString);
+    QDTime.DateTime:=SGetServerDate(ADOTemp);
+    DeliveryDate.DateTime:=SGetServerDate(ADOTemp);
+    QDTime.Checked:=True;
+    DeliveryDate.Checked:=False;
+
+    QDPalce.Text:='柯桥';
+  end;
+  PanZDY.Visible:=False;
+end;
+
+procedure TfrmClothContractInPutHZ.ZDYHelp(FButn:TcxButtonEdit;LType:string);
+var
+  FType,ZDYName,FText:String;
+begin
+  PanZDY.Visible:=True;
+  PanZDY.Left:=FButn.Left;
+  PanZDY.Top:=FButn.Top+FButn.Height;
+  with ADOZDY do
+  begin
+    Filtered:=False;
+    Close;
+    SQL.Clear;
+    SQL.Add('select RTrim(ZDYNo) ZDYNo,RTrim(ZDYName) ZDYName from KH_ZDY where Type='''+Trim(LType)+'''');
+    Open;
+  end;
+  FText:=Trim(FButn.Text);
+  if FText<>'' then
+    SDofilter(ADOZDY,' ZDYName like '+QuotedStr('%'+Trim(FText)+'%'))
+  else
+    SDofilter(ADOZDY,'');
+  VHelpZDYName.Summary.GroupFormat:=Trim(FButn.Name);
+end;
+
+procedure TfrmClothContractInPutHZ.TVZDYCellDblClick(Sender: TcxCustomGridTableView;
+  ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
+  AShift: TShiftState; var AHandled: Boolean);
+var
+  FName:string;
+begin
+  if ADOZDY.IsEmpty then Exit;
+  FName:=Trim(VHelpZDYName.Summary.GroupFormat);
+  TcxButtonEdit(FindComponent(FName)).Text:=Trim(ADOZDY.fieldbyname('ZDYName').AsString);
+  TcxButtonEdit(FindComponent(FName)).Hint:=Trim(ADOZDY.fieldbyname('ZDYNO').AsString);
+  PanZDY.Visible:=False;
+end;
+
+procedure TfrmClothContractInPutHZ.Button1Click(Sender: TObject);
+begin
+  PanZDY.Visible:=False;
+end;
+
+procedure TfrmClothContractInPutHZ.PRTCodeNameKeyDown(Sender: TObject; var Key: Word;
+  Shift: TShiftState);
+begin
+  {if (key=vk_return) or (Key=vk_Down) then
+  begin
+    if ADOZDY.Active then
+      CXGridZDY.SetFocus;
+  end; }
+end;
+
+procedure TfrmClothContractInPutHZ.TVZDYKeyPress(Sender: TObject; var Key: Char);
+begin
+  if Key=#13 then
+  begin
+    if ADOZDY.IsEmpty then Exit;
+    TcxButtonEdit(FindComponent(VHelpZDYName.Summary.GroupFormat)).Text:=Trim(ADOZDY.fieldbyname('ZDYName').AsString);
+    TcxButtonEdit(FindComponent(VHelpZDYName.Summary.GroupFormat)).Hint:=Trim(ADOZDY.fieldbyname('ZDYNO').AsString);
+    PanZDY.Visible:=False;
+    ADOZDY.Active:=False;
+  end;
+end;
+
+procedure TfrmClothContractInPutHZ.FormShow(Sender: TObject);
+begin
+  {if Trim(DParameters1)='1' then
+  begin
+    v1Price.Visible:=False;
+    v1ClothQty.Visible:=False;
+    v1PRTQty.Visible:=False;
+  end else
+  begin
+    v1Price.Visible:=True;
+    v1ClothQty.Visible:=True;
+    v1PRTQty.Visible:=True;
+  end;  }
+  InitData();
+  if PCopyInt=1 then
+  begin
+    FMainId:='';
+    FConNo:='';
+    ConNo.Text:='';
+    with Order_Sub do
+    begin
+      First;
+      while not Eof do
+      begin
+        Edit;
+        FieldByName('SubId').Value:='';
+        Post;
+        Next;
+      end;
+    end;
+  end;
+end;
+
+function TfrmClothContractInPutHZ.SaveData():Boolean;
+var
+  maxno,maxSubNo:String;
+begin
+  try
+    ADOCmd.Connection.BeginTrans;
+    ///保存子表
+    with Order_Sub do
+    begin
+      First;
+      while not Eof do
+      begin
+        if Trim(Order_Sub.fieldbyname('SubId').AsString)='' then
+        begin
+          if GetLSNo(ADOCmd,maxno,'HM','ContractHZ_Main',2,1)=False then
+          begin
+            ADOCmd.Connection.RollbackTrans;
+            Application.MessageBox('生成流水号异常！','提示',0);
+            exit;
+          end;
+        end else
+        begin
+          maxno:=Trim(FMainId);
+        end;
+
+        with ADOCmd do
+        begin
+          Close;
+          sql.Clear;
+          SQL.Add('select * from ContractHZ_Main where MainId='''+Trim(FMainId)+'''');
+          Open;
+        end;
+        with ADOCmd do
+        begin
+          if Trim(Order_Sub.fieldbyname('SubId').AsString)='' then
+          begin
+            Append;
+          end
+          else begin
+            Edit;
+          end;
+          FieldByName('MainId').Value:=Trim(maxno);
+          SSetsaveSql(ADOCmd,'ContractSX_Main',ScrollBox1,0);
+          if Trim(Order_Sub.fieldbyname('SubId').AsString)='' then
+          begin
+            FieldByName('Filler').Value:=Trim(DName);
+          end else
+          begin
+            FieldByName('Editer').Value:=Trim(DName);
+            FieldByName('EditTime').Value:=SGetServerDateTime(ADOTemp);
+          end;
+          FieldByName('FactoryNoName').Value:=Trim(Order_Sub.fieldbyname('FactoryNoName').AsString);
+          FieldByName('ConType').Value:=Trim(FConType);
+          Post;
+        end;
+        if Trim(Order_Sub.fieldbyname('SubId').AsString)='' then
+        begin
+          if GetLSNo(ADOCmd,maxSubNo,'HS','ContractHZ_Sub',3,1)=False then
+          begin
+            ADOCmd.Connection.RollbackTrans;
+            Application.MessageBox('取子流水号失败！','提示',0);
+            Exit;
+          end;
+        end else
+        begin
+          maxSubNo:=Trim(Order_Sub.fieldbyname('SubId').AsString);
+        end;
+        with ADOCmd do
+        begin
+          Close;
+          SQL.Clear;
+          sql.Add('select * from ContractHZ_Sub where MainId='''+Trim(maxno)+'''');
+          sql.Add(' and SubId='''+Trim(maxSubNo)+'''');
+          Open;
+        end;
+        with ADOCmd do
+        begin
+          if Trim(Order_Sub.fieldbyname('SubId').AsString)='' then
+            Append
+          else
+            Edit;
+          FieldByName('MainId').Value:=Trim(maxno);
+          FieldByName('SubId').Value:=Trim(maxSubNo);
+          SSetSaveDataCDSNew(ADOCmd,Tv1,Order_Sub,'ContractHZ_Sub',0);
+          if Trim(Order_Sub.fieldbyname('C_Qty').AsString)='' then
+          begin
+            FieldByName('C_Qty').Value:=0;
+          end;
+          if Trim(Order_Sub.fieldbyname('Price').AsString)='' then
+          begin
+            FieldByName('Price').Value:=0;
+          end;
+          FieldByName('C_Unit').Value:=Trim(Order_Sub.fieldbyname('C_Unit').AsString);
+          Post;
+        end;
+        Order_Sub.Edit;
+        Order_Sub.FieldByName('SubId').Value:=Trim(maxSubNo);
+        //Order_Sub.Post;
+        Next;
+      end;
+    end;
+    ADOCmd.Connection.CommitTrans;
+    Result:=True;
+  except
+    Result:=False;
+    ADOCmd.Connection.RollbackTrans;
+    Application.MessageBox('保存失败！','提示',0);
+  end;
+end;
+
+procedure TfrmClothContractInPutHZ.TBSaveClick(Sender: TObject);
+begin
+  DeliveryDate.SetFocus;
+  if Trim(ConNo.Text)='' then
+  begin
+    Application.MessageBox('合同编号不能为空！','提示',0);
+    Exit;
+  end;
+  if Order_Sub.IsEmpty then
+  begin
+    Application.MessageBox('明细不能为空！','提示',0);
+    exit;
+  end;
+  if Order_Sub.Locate('C_Qty',null,[]) then
+  begin
+    Application.MessageBox('数量不能为空!','提示',0);
+    Exit;
+  end;
+  if Order_Sub.Locate('C_Unit',null,[]) then
+  begin
+    Application.MessageBox('数量单位不能为空!','提示',0);
+    Exit;
+  end;
+  if Order_Sub.Locate('FactoryNoName',null,[]) then
+  begin
+    Application.MessageBox('加工厂不能为空!','提示',0);
+    Exit;
+  end;
+  if SaveData() then
+  begin
+    Application.MessageBox('保存成功！','提示',0);
+    ModalResult:=1;
+  end;
+
+end;
+
+procedure TfrmClothContractInPutHZ.v1OrderUnitPropertiesButtonClick(Sender: TObject;
+  AButtonIndex: Integer);
+begin
+  try
+    frmZDYHelp:=TfrmZDYHelp.Create(Application);
+    with frmZDYHelp do
+    begin
+      flag:='OrdUnit';
+      flagname:='单位';
+      if ShowModal=1 then
+      begin
+        Self.Order_Sub.Edit;
+        Self.Order_Sub.FieldByName('OrderUnit').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
+      end;
+    end;
+  finally
+    frmZDYHelp.Free;
+  end;
+end;
+
+procedure TfrmClothContractInPutHZ.v1PRTUnitPropertiesButtonClick(Sender: TObject;
+  AButtonIndex: Integer);
+begin
+  try
+    frmZDYHelp:=TfrmZDYHelp.Create(Application);
+    with frmZDYHelp do
+    begin
+      flag:='OrdUnit';
+      flagname:='单位';
+      if ShowModal=1 then
+      begin
+        Self.Order_Sub.Edit;
+        Self.Order_Sub.FieldByName('PRTUnit').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
+      end;
+    end;
+  finally
+    frmZDYHelp.Free;
+  end;
+end;
+
+procedure TfrmClothContractInPutHZ.v1PRTColorPropertiesButtonClick(Sender: TObject;
+  AButtonIndex: Integer);
+begin
+  try
+    frmZDYHelp:=TfrmZDYHelp.Create(Application);
+    with frmZDYHelp do
+    begin
+      flag:='OrdColor';
+      flagname:='颜色';
+      if ShowModal=1 then
+      begin
+        Self.Order_Sub.Edit;
+        Self.Order_Sub.FieldByName('PRTColor').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
+      end;
+    end;
+  finally
+    frmZDYHelp.Free;
+  end;
+end;
+
+procedure TfrmClothContractInPutHZ.ToolButton1Click(Sender: TObject);
+begin
+  with Order_Sub do
+  begin
+    Append;
+    Post;
+  end;
+end;
+
+procedure TfrmClothContractInPutHZ.ToolButton2Click(Sender: TObject);
+begin
+  if Order_Sub.IsEmpty then Exit;
+  if Trim(Order_Sub.fieldbyname('SubId').AsString)<>'' then
+  begin
+    with ADOTemp do
+    begin
+      Close;
+      sql.Clear;
+      sql.Add('select * from Contract_Sub_MX where SubId='''+Trim(Order_Sub.fieldbyname('SubId').AsString)+'''');
+      Open;
+    end;
+    if ADOTemp.IsEmpty=False then
+    begin
+      Application.MessageBox('已到货不能删除数据!','提示',0);
+      Exit;
+    end;
+    if Application.MessageBox('确定要删除数据吗？','提示',32+4)<>IDYES then Exit;
+    with ADOCmd do
+    begin
+      Close;
+      sql.Clear;
+      sql.Add('delete Contract_Sub where SubId='''+Trim(Order_Sub.fieldbyname('SubId').AsString)+'''');
+      ExecSQL;
+    end;
+  end;
+  Order_Sub.Delete;
+end;
+
+procedure TfrmClothContractInPutHZ.FactoryNoNamePropertiesButtonClick(
+  Sender: TObject; AButtonIndex: Integer);
+begin
+  if Trim(FMainId)<>'' then
+  begin
+    with ADOTemp do
+    begin
+      Close;
+      sql.Clear;
+      sql.Add('select * from YF_Money_CR A where exists(');
+      sql.Add('select * from ContractSX_Sub_MX B inner join Contract_Sub C on B.SubId=C.SubId ');
+      sql.Add(' where C.Mainid='''+Trim(FMainId)+'''');
+      sql.Add(' and B.MXID=A.YFTypeId)');
+      Open;
+    end;
+    if ADOTemp.IsEmpty=False then
+    begin
+      Application.MessageBox('已经产生应付款不能修改供应商!','提示',0);
+      Exit;
+    end;
+  end;
+
+  try
+    frmZDYHelp:=TfrmZDYHelp.Create(Application);
+    with frmZDYHelp do
+    begin
+      flag:='Factory';
+      flagname:='供方';
+      MainType:='YCLFactory';
+      if ShowModal=1 then
+      begin
+        FXS:=99;
+        FactoryNoName.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
+        FactoryNoName.Hint:=Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString);
+      end;
+    end;
+  finally
+    frmZDYHelp.Free;
+  end;
+end;
+
+procedure TfrmClothContractInPutHZ.v1Column1PropertiesButtonClick(
+  Sender: TObject; AButtonIndex: Integer);
+begin
+  try
+    frmZDYHelp:=TfrmZDYHelp.Create(Application);
+    with frmZDYHelp do
+    begin
+      flag:=Trim(CPFlag);
+      flagname:=Trim(CPFlagName);
+      if ShowModal=1 then
+      begin
+        Self.Order_Sub.Edit;
+        Self.Order_Sub.FieldByName('C_CodeName').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
+        Self.Order_Sub.FieldByName('C_Code').Value:=Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString);
+      end;
+    end;
+  finally
+    frmZDYHelp.Free;
+  end;
+end;
+
+procedure TfrmClothContractInPutHZ.v1PRTMFPropertiesButtonClick(
+  Sender: TObject; AButtonIndex: Integer);
+begin
+  try
+    frmZDYHelp:=TfrmZDYHelp.Create(Application);
+    with frmZDYHelp do
+    begin
+      flag:='KZ';
+      flagname:='克重单位';
+      if ShowModal=1 then
+      begin
+        Self.Order_Sub.Edit;
+        Self.Order_Sub.FieldByName('KZUnit').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
+      end;
+    end;
+  finally
+    frmZDYHelp.Free;
+  end;
+end;
+
+procedure TfrmClothContractInPutHZ.v1OrderQtyPropertiesButtonClick(
+  Sender: TObject; AButtonIndex: Integer);
+begin
+  try
+    frmZDYHelp:=TfrmZDYHelp.Create(Application);
+    with frmZDYHelp do
+    begin
+      flag:='MF';
+      flagname:='门幅单位';
+      if ShowModal=1 then
+      begin
+        Self.Order_Sub.Edit;
+        Self.Order_Sub.FieldByName('MFUnit').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
+      end;
+    end;
+  finally
+    frmZDYHelp.Free;
+  end;
+end;
+
+procedure TfrmClothContractInPutHZ.v1ClothQtyPropertiesButtonClick(
+  Sender: TObject; AButtonIndex: Integer);
+begin
+  try
+    frmZDYHelp:=TfrmZDYHelp.Create(Application);
+    with frmZDYHelp do
+    begin
+      flag:='PriceUnit';
+      flagname:='计价单位';
+      if ShowModal=1 then
+      begin
+        Self.Order_Sub.Edit;
+        Self.Order_Sub.FieldByName('PriceUnit').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
+      end;
+    end;
+  finally
+    frmZDYHelp.Free;
+  end;
+end;
+
+procedure TfrmClothContractInPutHZ.v1Column2PropertiesButtonClick(
+  Sender: TObject; AButtonIndex: Integer);
+begin
+  try
+    frmZDYHelp:=TfrmZDYHelp.Create(Application);
+    with frmZDYHelp do
+    begin
+      flag:='OrderUnit';
+      flagname:='单位';
+      if ShowModal=1 then
+      begin
+        Self.Order_Sub.Edit;
+        Self.Order_Sub.FieldByName('C_Unit').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
+      end;
+    end;
+  finally
+    frmZDYHelp.Free;
+  end;
+end;
+
+procedure TfrmClothContractInPutHZ.FactoryNoNamePropertiesChange(
+  Sender: TObject);
+begin
+  {if FXS=99 then
+  begin
+    PanZDY.Visible:=False;
+    FXS:=0;
+    Exit;
+  end;
+  ZDYHelp(FactoryNoName,'FactoryNo1Name');  }
+end;
+
+procedure TfrmClothContractInPutHZ.CompanyNamePropertiesButtonClick(
+  Sender: TObject; AButtonIndex: Integer);
+begin
+  try
+    frmZDYHelp:=TfrmZDYHelp.Create(Application);
+    with frmZDYHelp do
+    begin
+      flag:='OrdDefStr2';
+      flagname:='需方';
+      if ShowModal=1 then
+      begin
+        FXS:=99;
+        CompanyName.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
+      end;
+    end;
+  finally
+    frmZDYHelp.Free;
+  end;
+end;
+
+procedure TfrmClothContractInPutHZ.JHPlacePropertiesButtonClick(
+  Sender: TObject; AButtonIndex: Integer);
+begin
+  try
+    frmZDYHelp:=TfrmZDYHelp.Create(Application);
+    with frmZDYHelp do
+    begin
+      flag:='JHPlace';
+      flagname:='交货地点';
+      if ShowModal=1 then
+      begin
+        JHPlace.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
+      end;
+    end;
+  finally
+    frmZDYHelp.Free;
+  end;
+end;
+
+procedure TfrmClothContractInPutHZ.ConTK1PropertiesButtonClick(
+  Sender: TObject; AButtonIndex: Integer);
+begin
+  try
+    frmZDYHelp:=TfrmZDYHelp.Create(Application);
+    with frmZDYHelp do
+    begin
+      flag:='ConTK1';
+      flagname:='供货质量及技术标准';
+      if ShowModal=1 then
+      begin
+        ConTK1.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
+      end;
+    end;
+  finally
+    frmZDYHelp.Free;
+  end;
+end;
+
+procedure TfrmClothContractInPutHZ.ConTK3PropertiesButtonClick(
+  Sender: TObject; AButtonIndex: Integer);
+begin
+  try
+    frmZDYHelp:=TfrmZDYHelp.Create(Application);
+    with frmZDYHelp do
+    begin
+      flag:='ConTK3';
+      flagname:='包装要求';
+      if ShowModal=1 then
+      begin
+        ConTK3.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
+      end;
+    end;
+  finally
+    frmZDYHelp.Free;
+  end;
+end;
+
+procedure TfrmClothContractInPutHZ.ConTK4PropertiesButtonClick(
+  Sender: TObject; AButtonIndex: Integer);
+begin
+  try
+    frmZDYHelp:=TfrmZDYHelp.Create(Application);
+    with frmZDYHelp do
+    begin
+      flag:='ConTK4';
+      flagname:='结算方式';
+      if ShowModal=1 then
+      begin
+        ConTK4.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
+      end;
+    end;
+  finally
+    frmZDYHelp.Free;
+  end;
+end;
+
+procedure TfrmClothContractInPutHZ.ConTK5PropertiesButtonClick(
+  Sender: TObject; AButtonIndex: Integer);
+begin
+  try
+    frmZDYHelp:=TfrmZDYHelp.Create(Application);
+    with frmZDYHelp do
+    begin
+      flag:='ConTK5';
+      flagname:='验收标准、方法及提出异议期限';
+      if ShowModal=1 then
+      begin
+        ConTK5.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
+      end;
+    end;
+  finally
+    frmZDYHelp.Free;
+  end;
+end;
+
+procedure TfrmClothContractInPutHZ.ConTk6PropertiesButtonClick(
+  Sender: TObject; AButtonIndex: Integer);
+begin
+  try
+    frmZDYHelp:=TfrmZDYHelp.Create(Application);
+    with frmZDYHelp do
+    begin
+      flag:='ConTK6';
+      flagname:='其它约定事项';
+      if ShowModal=1 then
+      begin
+        ConTK6.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
+      end;
+    end;
+  finally
+    frmZDYHelp.Free;
+  end;
+end;
+
+procedure TfrmClothContractInPutHZ.ConTk2PropertiesButtonClick(
+  Sender: TObject; AButtonIndex: Integer);
+begin
+  try
+    frmZDYHelp:=TfrmZDYHelp.Create(Application);
+    with frmZDYHelp do
+    begin
+      flag:='ConTK2';
+      flagname:='运输方法及费用承担';
+      if ShowModal=1 then
+      begin
+        ConTK2.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
+      end;
+    end;
+  finally
+    frmZDYHelp.Free;
+  end;
+end;
+
+procedure TfrmClothContractInPutHZ.ConNoKeyPress(Sender: TObject;
+  var Key: Char);
+begin
+  if Key=#13 then
+  begin
+    if Trim(ConNo.Text)<>'' then
+    begin
+      with ADOTemp do
+      begin
+        Close;
+        sql.Clear;
+        sql.Add('select Top 1* from JYOrder_Main where OrderNo='''+Trim(ConNo.Text)+'''');
+        Open;
+      end;
+      FactoryNoName.Text:=Trim(ADOTemp.fieldbyname('YCLFactory').AsString);
+    end;
+  end;
+end;
+
+procedure TfrmClothContractInPutHZ.v1Column3PropertiesButtonClick(
+  Sender: TObject; AButtonIndex: Integer);
+begin
+  try
+    frmZDYHelp:=TfrmZDYHelp.Create(Application);
+    with frmZDYHelp do
+    begin
+      flag:='Factory';
+      flagname:='供方';
+      MainType:=Trim(FactoryFlag);
+      if ShowModal=1 then
+      begin
+        with Order_Sub do
+        begin
+          Edit;
+          FieldByName('FactoryNoName').Value:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString);
+        end;
+      end;
+    end;
+  finally
+    frmZDYHelp.Free;
+  end;
+end;
+
+end.

坯布码单待检(PBMDDJ.dll)/U_ClothContractInPutJY.dfm

@@ -0,0 +1,568 @@
+object frmClothContractInPutJY: TfrmClothContractInPutJY
+  Left = 155
+  Top = 3
+  Width = 870
+  Height = 697
+  Align = alClient
+  Caption = #37319#36141'/'#21152#24037#21512#21516#24405#20837
+  Color = clBtnFace
+  Font.Charset = GB2312_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -12
+  Font.Name = #23435#20307
+  Font.Style = []
+  OldCreateOrder = False
+  Position = poScreenCenter
+  OnShow = FormShow
+  PixelsPerInch = 96
+  TextHeight = 12
+  object ToolBar1: TToolBar
+    Left = 0
+    Top = 0
+    Width = 854
+    Height = 29
+    ButtonHeight = 30
+    ButtonWidth = 59
+    Caption = 'ToolBar1'
+    EdgeInner = esNone
+    EdgeOuter = esNone
+    Flat = True
+    Font.Charset = GB2312_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -12
+    Font.Name = #23435#20307
+    Font.Style = []
+    Images = DataLink_DDMD.ThreeImgList
+    List = True
+    ParentFont = False
+    ShowCaptions = True
+    TabOrder = 0
+    object TBSave: TToolButton
+      Left = 0
+      Top = 0
+      AutoSize = True
+      Caption = #20445#23384
+      ImageIndex = 5
+      OnClick = TBSaveClick
+    end
+    object TBClose: TToolButton
+      Left = 63
+      Top = 0
+      AutoSize = True
+      Caption = #20851#38381
+      ImageIndex = 21
+      OnClick = TBCloseClick
+    end
+  end
+  object ScrollBox1: TScrollBox
+    Left = 0
+    Top = 29
+    Width = 854
+    Height = 249
+    Align = alTop
+    BevelInner = bvNone
+    BevelOuter = bvNone
+    Ctl3D = False
+    ParentCtl3D = False
+    TabOrder = 1
+    object Label1: TLabel
+      Left = 24
+      Top = 14
+      Width = 65
+      Height = 12
+      Caption = #21512#21516#32534#21495#65306
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label4: TLabel
+      Left = 401
+      Top = 14
+      Width = 65
+      Height = 12
+      Caption = #20132#36135#26085#26399#65306
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label5: TLabel
+      Left = 397
+      Top = 73
+      Width = 66
+      Height = 12
+      Caption = #20379' '#24212' '#21830#65306
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label2: TLabel
+      Left = 225
+      Top = 14
+      Width = 65
+      Height = 12
+      Caption = #31614#35746#26085#26399#65306
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label3: TLabel
+      Left = 24
+      Top = 73
+      Width = 65
+      Height = 12
+      Caption = #20844#21496#25260#22836#65306
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label11: TLabel
+      Left = 224
+      Top = 43
+      Width = 65
+      Height = 12
+      Caption = #28155#21152#21407#22240#65306
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label13: TLabel
+      Left = 24
+      Top = 104
+      Width = 65
+      Height = 12
+      Caption = #21512#21516#35828#26126#65306
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label14: TLabel
+      Left = 579
+      Top = 14
+      Width = 65
+      Height = 12
+      Caption = #24037#24207#21517#31216#65306
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label15: TLabel
+      Left = 24
+      Top = 43
+      Width = 65
+      Height = 12
+      Caption = #21512#21516#31867#22411#65306
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object ConNo: TEdit
+      Left = 87
+      Top = 11
+      Width = 120
+      Height = 18
+      CharCase = ecUpperCase
+      TabOrder = 0
+      OnExit = ConNoExit
+      OnKeyPress = ConNoKeyPress
+    end
+    object DLYDate: TDateTimePicker
+      Left = 462
+      Top = 10
+      Width = 101
+      Height = 20
+      BevelInner = bvNone
+      Date = 40916.670856296290000000
+      Format = 'yyyy-MM-dd'
+      Time = 40916.670856296290000000
+      ShowCheckbox = True
+      TabOrder = 1
+    end
+    object QDTime: TDateTimePicker
+      Left = 287
+      Top = 10
+      Width = 99
+      Height = 20
+      BevelInner = bvNone
+      Date = 40916.670856296290000000
+      Format = 'yyyy-MM-dd'
+      Time = 40916.670856296290000000
+      ShowCheckbox = True
+      TabOrder = 2
+    end
+    object JYNote: TRichEdit
+      Left = 86
+      Top = 101
+      Width = 675
+      Height = 96
+      Lines.Strings = (
+        '')
+      TabOrder = 3
+    end
+    object FactoryNoName: TBtnEditA
+      Left = 462
+      Top = 69
+      Width = 298
+      Height = 20
+      Hint = 'FactoryNo'
+      ReadOnly = True
+      TabOrder = 4
+      OnBtnClick = FactoryNoNameBtnClick
+    end
+    object CompanyName: TBtnEditA
+      Left = 87
+      Top = 69
+      Width = 298
+      Height = 20
+      Hint = 'FactoryNo'
+      ReadOnly = True
+      TabOrder = 5
+      OnBtnClick = CompanyNameBtnClick
+    end
+    object JYType: TBtnEditA
+      Left = 285
+      Top = 39
+      Width = 475
+      Height = 20
+      TabOrder = 6
+      OnBtnClick = JYTypeBtnClick
+    end
+    object ConType: TComboBox
+      Left = 639
+      Top = 10
+      Width = 121
+      Height = 20
+      Style = csDropDownList
+      DropDownCount = 20
+      ItemHeight = 12
+      TabOrder = 7
+      Items.Strings = (
+        #22383#32433#21512#21516
+        #26579#32433#21512#21516
+        #32455#36896#21512#21516
+        #30952#27611#21512#21516
+        #22383#24067#21512#21516
+        #26579#33394#21512#21516
+        #21360#33457#21512#21516
+        #21518#21152#24037#21512#21516
+        #25104#21697#21512#21516)
+    end
+    object ConTypeOther: TBtnEditA
+      Left = 87
+      Top = 39
+      Width = 122
+      Height = 20
+      ReadOnly = True
+      TabOrder = 8
+      OnBtnClick = ConTypeOtherBtnClick
+    end
+    object Panel1: TPanel
+      Left = 86
+      Top = 200
+      Width = 674
+      Height = 25
+      BevelInner = bvRaised
+      BevelOuter = bvLowered
+      TabOrder = 9
+      object Label30: TLabel
+        Left = 70
+        Top = 7
+        Width = 24
+        Height = 12
+        Caption = #30333#22383
+      end
+      object Label29: TLabel
+        Left = 147
+        Top = 7
+        Width = 24
+        Height = 12
+        Caption = #25104#21697
+      end
+      object Label31: TLabel
+        Left = 5
+        Top = 7
+        Width = 65
+        Height = 12
+        Caption = #27599#21305#25968#37327#65306
+        Font.Charset = GB2312_CHARSET
+        Font.Color = clBlue
+        Font.Height = -12
+        Font.Name = #23435#20307
+        Font.Style = [fsBold]
+        ParentFont = False
+      end
+      object ClothOneQty: TEdit
+        Tag = 2
+        Left = 95
+        Top = 4
+        Width = 47
+        Height = 18
+        ReadOnly = True
+        TabOrder = 0
+      end
+      object OneQtyUnit: TComboBox
+        Tag = 2
+        Left = 221
+        Top = 3
+        Width = 41
+        Height = 20
+        Style = csDropDownList
+        Enabled = False
+        ItemHeight = 12
+        TabOrder = 1
+        Items.Strings = (
+          'KG'
+          'M')
+      end
+      object MPRTOneQty: TEdit
+        Tag = 2
+        Left = 172
+        Top = 4
+        Width = 47
+        Height = 18
+        ReadOnly = True
+        TabOrder = 2
+      end
+    end
+  end
+  object ToolBar2: TToolBar
+    Left = 0
+    Top = 278
+    Width = 854
+    Height = 29
+    ButtonHeight = 30
+    ButtonWidth = 59
+    Caption = 'ToolBar1'
+    EdgeInner = esNone
+    EdgeOuter = esNone
+    Flat = True
+    Font.Charset = GB2312_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -12
+    Font.Name = #23435#20307
+    Font.Style = []
+    Images = DataLink_DDMD.ThreeImgList
+    List = True
+    ParentFont = False
+    ShowCaptions = True
+    TabOrder = 2
+    object ToolButton1: TToolButton
+      Left = 0
+      Top = 0
+      AutoSize = True
+      Caption = #22686#34892
+      ImageIndex = 12
+      OnClick = ToolButton1Click
+    end
+    object ToolButton2: TToolButton
+      Left = 63
+      Top = 0
+      AutoSize = True
+      Caption = #21024#34892
+      ImageIndex = 13
+      OnClick = ToolButton2Click
+    end
+  end
+  object cxGrid1: TcxGrid
+    Left = 0
+    Top = 307
+    Width = 854
+    Height = 351
+    Align = alClient
+    TabOrder = 3
+    object Tv1: TcxGridDBTableView
+      NavigatorButtons.ConfirmDelete = False
+      DataController.DataSource = DataSource1
+      DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
+      DataController.Summary.DefaultGroupSummaryItems = <
+        item
+          Format = 'C_Code'
+          Column = v1Column1
+        end
+        item
+          Format = '0'
+          Position = spFooter
+        end
+        item
+          Format = '0'
+          Position = spFooter
+          Column = v1ClothUnit
+        end
+        item
+          Format = '0'
+          Position = spFooter
+          Column = v1Column5
+        end
+        item
+          Format = '0'
+          Position = spFooter
+          Column = v1Column6
+        end
+        item
+          Format = '0'
+          Position = spFooter
+          Column = v1Column7
+        end>
+      DataController.Summary.FooterSummaryItems = <>
+      DataController.Summary.SummaryGroups = <>
+      OptionsBehavior.FocusCellOnTab = True
+      OptionsBehavior.GoToNextCellOnEnter = True
+      OptionsBehavior.FocusCellOnCycle = True
+      OptionsCustomize.ColumnFiltering = False
+      OptionsView.GroupByBox = False
+      object v1Column3: TcxGridDBColumn
+        Caption = #20135#21697#32534#21495
+        DataBinding.FieldName = 'C_Code'
+        PropertiesClassName = 'TcxTextEditProperties'
+        Properties.OnEditValueChanged = v1Column3PropertiesEditValueChanged
+        HeaderAlignmentHorz = taCenter
+        Width = 127
+      end
+      object v1Column1: TcxGridDBColumn
+        Caption = #20135#21697#21517#31216
+        DataBinding.FieldName = 'C_CodeName'
+        PropertiesClassName = 'TcxButtonEditProperties'
+        Properties.Buttons = <
+          item
+            Default = True
+            Kind = bkEllipsis
+          end>
+        Properties.OnButtonClick = v1Column1PropertiesButtonClick
+        HeaderAlignmentHorz = taCenter
+        Width = 89
+      end
+      object v1PRTSpec: TcxGridDBColumn
+        Caption = #35268#26684#22411#21495
+        DataBinding.FieldName = 'C_Spec'
+        HeaderAlignmentHorz = taCenter
+        Options.Sorting = False
+        Width = 74
+      end
+      object v1Column8: TcxGridDBColumn
+        Caption = #25104#20221
+        DataBinding.FieldName = 'C_CF'
+        HeaderAlignmentHorz = taCenter
+        Width = 77
+      end
+      object v1Column4: TcxGridDBColumn
+        Caption = #24037#33402
+        DataBinding.FieldName = 'JGGY'
+        HeaderAlignmentHorz = taCenter
+        Width = 76
+      end
+      object v1Column6: TcxGridDBColumn
+        Caption = #38376#24133'(CM)'
+        DataBinding.FieldName = 'MFQty'
+        HeaderAlignmentHorz = taCenter
+        Width = 59
+      end
+      object v1Column7: TcxGridDBColumn
+        Caption = #20811#37325'(GSM)'
+        DataBinding.FieldName = 'KZQty'
+        HeaderAlignmentHorz = taCenter
+        Width = 61
+      end
+      object v1Column5: TcxGridDBColumn
+        Caption = #21305'/'#21253#25968
+        DataBinding.FieldName = 'PS'
+        HeaderAlignmentHorz = taCenter
+        Width = 48
+      end
+      object v1ClothUnit: TcxGridDBColumn
+        Caption = #25968#37327
+        DataBinding.FieldName = 'C_Qty'
+        HeaderAlignmentHorz = taCenter
+        Width = 70
+      end
+      object v1Column2: TcxGridDBColumn
+        Caption = #21333#20301
+        DataBinding.FieldName = 'C_Unit'
+        PropertiesClassName = 'TcxComboBoxProperties'
+        Properties.DropDownListStyle = lsFixedList
+        Properties.ImmediatePost = True
+        Properties.Items.Strings = (
+          'M'
+          'Y'
+          'Kg'
+          #21305)
+        HeaderAlignmentHorz = taCenter
+        Width = 35
+      end
+    end
+    object cxGrid1Level1: TcxGridLevel
+      GridView = Tv1
+    end
+  end
+  object ADOTemp: TADOQuery
+    Connection = DataLink_DDMD.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 598
+    Top = 3
+  end
+  object ADOCmd: TADOQuery
+    Connection = DataLink_DDMD.ADOLink
+    Parameters = <>
+    Left = 519
+    Top = 1
+  end
+  object DataSource1: TDataSource
+    DataSet = Order_Sub
+    Left = 434
+    Top = 394
+  end
+  object Order_Sub: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 467
+    Top = 394
+  end
+  object DataSource2: TDataSource
+    DataSet = ADOZDY
+    Left = 240
+  end
+  object ADOZDY: TADOQuery
+    Connection = DataLink_DDMD.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 280
+    Top = 65533
+  end
+  object CDS_ZDY: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 208
+  end
+  object ADOQuery1: TADOQuery
+    Connection = DataLink_DDMD.ADOLink
+    Parameters = <>
+    Left = 560
+    Top = 1
+  end
+end

坯布码单待检(PBMDDJ.dll)/U_ClothContractInPutJY.pas

@@ -0,0 +1,936 @@
+unit U_ClothContractInPutJY;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData,
+  cxDataStorage, cxEdit, DB, cxDBData, cxGridLevel, cxGridCustomTableView,
+  cxGridTableView, cxGridDBTableView, cxClasses, cxControls,
+  cxGridCustomView, cxGrid, cxMemo, cxRichEdit, ComCtrls, cxContainer,
+  cxTextEdit, cxMaskEdit, cxButtonEdit, StdCtrls, ToolWin, DBClient, ADODB,
+  ExtCtrls, BtnEdit, cxDropDownEdit;
+
+type
+  TfrmClothContractInPutJY = class(TForm)
+    ToolBar1: TToolBar;
+    TBSave: TToolButton;
+    TBClose: TToolButton;
+    ScrollBox1: TScrollBox;
+    Label1: TLabel;
+    ConNo: TEdit;
+    Label4: TLabel;
+    DLYDate: TDateTimePicker;
+    Label5: TLabel;
+    ToolBar2: TToolBar;
+    ToolButton1: TToolButton;
+    ToolButton2: TToolButton;
+    cxGrid1: TcxGrid;
+    Tv1: TcxGridDBTableView;
+    v1PRTSpec: TcxGridDBColumn;
+    cxGrid1Level1: TcxGridLevel;
+    v1ClothUnit: TcxGridDBColumn;
+    ADOTemp: TADOQuery;
+    ADOCmd: TADOQuery;
+    DataSource1: TDataSource;
+    Order_Sub: TClientDataSet;
+    DataSource2: TDataSource;
+    ADOZDY: TADOQuery;
+    CDS_ZDY: TClientDataSet;
+    ADOQuery1: TADOQuery;
+    v1Column1: TcxGridDBColumn;
+    Label2: TLabel;
+    QDTime: TDateTimePicker;
+    Label3: TLabel;
+    Label11: TLabel;
+    v1Column2: TcxGridDBColumn;
+    Label13: TLabel;
+    JYNote: TRichEdit;
+    FactoryNoName: TBtnEditA;
+    CompanyName: TBtnEditA;
+    JYType: TBtnEditA;
+    v1Column3: TcxGridDBColumn;
+    ConType: TComboBox;
+    Label14: TLabel;
+    v1Column5: TcxGridDBColumn;
+    v1Column6: TcxGridDBColumn;
+    v1Column7: TcxGridDBColumn;
+    v1Column8: TcxGridDBColumn;
+    Label15: TLabel;
+    ConTypeOther: TBtnEditA;
+    Panel1: TPanel;
+    Label30: TLabel;
+    Label29: TLabel;
+    Label31: TLabel;
+    ClothOneQty: TEdit;
+    OneQtyUnit: TComboBox;
+    MPRTOneQty: TEdit;
+    v1Column4: TcxGridDBColumn;
+    procedure TBCloseClick(Sender: TObject);
+    procedure PRTCodeNameKeyDown(Sender: TObject; var Key: Word;
+      Shift: TShiftState);
+    procedure FormShow(Sender: TObject);
+    procedure TBSaveClick(Sender: TObject);
+    procedure v1OrderUnitPropertiesButtonClick(Sender: TObject;
+      AButtonIndex: Integer);
+    procedure v1PRTUnitPropertiesButtonClick(Sender: TObject;
+      AButtonIndex: Integer);
+    procedure v1PRTColorPropertiesButtonClick(Sender: TObject;
+      AButtonIndex: Integer);
+    procedure ToolButton1Click(Sender: TObject);
+    procedure ToolButton2Click(Sender: TObject);
+    procedure FactoryNoNamePropertiesButtonClick(Sender: TObject;
+      AButtonIndex: Integer);
+    procedure v1Column1PropertiesButtonClick(Sender: TObject;
+      AButtonIndex: Integer);
+    procedure v1PRTMFPropertiesButtonClick(Sender: TObject;
+      AButtonIndex: Integer);
+    procedure v1OrderQtyPropertiesButtonClick(Sender: TObject;
+      AButtonIndex: Integer);
+    procedure v1ClothQtyPropertiesButtonClick(Sender: TObject;
+      AButtonIndex: Integer);
+    procedure v1Column2PropertiesButtonClick(Sender: TObject;
+      AButtonIndex: Integer);
+    procedure FactoryNoNamePropertiesChange(Sender: TObject);
+    procedure CompanyNamePropertiesButtonClick(Sender: TObject;
+      AButtonIndex: Integer);
+    procedure ConNoKeyPress(Sender: TObject; var Key: Char);
+    procedure v1Column3PropertiesButtonClick(Sender: TObject;
+      AButtonIndex: Integer);
+    procedure CompanyNameBtnClick(Sender: TObject);
+    procedure FactoryNoNameBtnClick(Sender: TObject);
+    procedure JYTypeBtnClick(Sender: TObject);
+    procedure ConTypeOtherBtnClick(Sender: TObject);
+    procedure ConNoExit(Sender: TObject);
+    procedure v1Column3PropertiesEditValueChanged(Sender: TObject);
+  private
+    FXS:Integer;
+    procedure InitData();
+    procedure ZDYHelp(FButn:TcxButtonEdit;LType:string);
+    function  SaveData():Boolean;
+    { Private declarations }
+  public
+    PState,PCopyInt:Integer;
+    FMainId,FConNo,FConType:String;
+
+    { Public declarations }
+  end;
+
+var
+  frmClothContractInPutJY: TfrmClothContractInPutJY;
+
+implementation
+uses
+  U_DataLink,U_ZDYHelp,U_RTFun,U_GYSList,U_ZDYHelpSel, U_GYSSelList;
+
+{$R *.dfm}
+
+procedure TfrmClothContractInPutJY.TBCloseClick(Sender: TObject);
+begin
+  Close;
+end;
+
+procedure TfrmClothContractInPutJY.InitData();
+begin
+  with ADOQuery1 do
+  begin
+    Close;
+    SQL.Clear;
+    sql.Add(' select * from Contract_Main A inner join Contract_Sub B on A.MainId=B.MainId');
+    sql.Add(' where A.MainId='''+Trim(FMainId)+'''');
+    Open;
+  end;
+  SCreateCDS20(ADOQuery1,Order_Sub);
+  SInitCDSData20(ADOQuery1,Order_Sub);
+  if PCopyInt=1 then
+  begin
+    FMainId:='';
+    with Order_Sub do
+    begin
+      First;
+      while not Eof do
+      begin
+        Edit;
+        FieldByName('SubId').Value:='';
+        Post;
+        Next;
+      end;
+    end;
+  end;
+  SCSHDataNew(ADOQuery1,ScrollBox1,0);
+  FactoryNoName.TxtCode:=Trim(ADOQuery1.FieldByName('FactoryNo').AsString);
+  ConTypeOther.Text:=Trim(ADOQuery1.FieldByName('ConTypeOther').AsString);
+  if PState=0 then
+  begin
+    QDTime.DateTime:=SGetServerDate(ADOTemp);
+    DLYDate.DateTime:=QDTime.DateTime;
+    QDTime.Checked:=True;
+    DLYDate.Checked:=False;
+  end;
+  with ADOQuery1 do
+  begin
+    Close;
+    sql.Clear;
+    sql.Add('select * from JYOrder_Main where OrderNo='''+Trim(ConNo.Text)+'''');
+    Open;
+  end;
+  SCSHDataNew(ADOQuery1,Panel1,2);
+end;
+
+procedure TfrmClothContractInPutJY.ZDYHelp(FButn:TcxButtonEdit;LType:string);
+var
+  FType,ZDYName,FText:String;
+begin
+
+  with ADOZDY do
+  begin
+    Filtered:=False;
+    Close;
+    SQL.Clear;
+    SQL.Add('select RTrim(ZDYNo) ZDYNo,RTrim(ZDYName) ZDYName from KH_ZDY where Type='''+Trim(LType)+'''');
+    Open;
+  end;
+  FText:=Trim(FButn.Text);
+  if FText<>'' then
+    SDofilter(ADOZDY,' ZDYName like '+QuotedStr('%'+Trim(FText)+'%'))
+  else
+    SDofilter(ADOZDY,'');
+end;
+
+procedure TfrmClothContractInPutJY.PRTCodeNameKeyDown(Sender: TObject; var Key: Word;
+  Shift: TShiftState);
+begin
+  {if (key=vk_return) or (Key=vk_Down) then
+  begin
+    if ADOZDY.Active then
+      CXGridZDY.SetFocus;
+  end; }
+end;
+
+procedure TfrmClothContractInPutJY.FormShow(Sender: TObject);
+var
+  FSJ:String;
+begin
+  {if Trim(DParameters1)='1' then
+  begin
+    v1Price.Visible:=False;
+    v1ClothQty.Visible:=False;
+    v1PRTQty.Visible:=False;
+  end else
+  begin
+    v1Price.Visible:=True;
+    v1ClothQty.Visible:=True;
+    v1PRTQty.Visible:=True;
+  end;  }
+
+
+  FSJ:='select ZdyName Name,ZdyName Code from KH_Zdy where TYpe=''JGGX''  ';
+  SInitComBoxBySql(ADOTemp,ConType,False,Fsj);
+  InitData();
+  if PCopyInt=1 then
+  begin
+    FMainId:='';
+    FConNo:='';
+    ConNo.Text:='';
+    with Order_Sub do
+    begin
+      First;
+      while not Eof do
+      begin
+        Edit;
+        FieldByName('SubId').Value:='';
+        FieldByName('ConPrice').Value:=Null;
+        FieldByName('Price').Value:=Null;
+        Post;
+        Next;
+      end;
+    end;
+  end;
+  if PCopyInt=1 then
+  begin
+    PState:=0;
+  end;
+  if Trim(FMainId)<>'' then
+  begin
+    with ADOTemp do
+    begin
+      Close;
+      sql.Clear;
+      sql.Add('select * from JYOrder_Main_MD where ConMainId='''+Trim(FMainId)+'''');
+      Open;
+    end;
+    if ADOTemp.RecordCount>0 then
+    begin
+      ConNo.ReadOnly:=True;
+    end;
+  end;
+end;
+
+function TfrmClothContractInPutJY.SaveData():Boolean;
+var
+  maxno,maxSubNo:String;
+begin
+  try
+    Result:=False;
+    ADOCmd.Connection.BeginTrans;
+    //保存主表
+    if Trim(FMainId)='' then
+    begin
+      if GetLSNo(ADOCmd,maxno,'CM','Contract_Main',3,1)=False then
+      begin
+        ADOCmd.Connection.RollbackTrans;
+        Application.MessageBox('取合同流水号失败!','提示',0);
+        Exit;
+      end;
+    end else
+    begin
+      maxno:=Trim(FMainId);
+    end;
+    with ADOCmd do
+    begin
+      Close;
+      sql.Clear;
+      SQL.Add('select * from Contract_Main where MainId='''+Trim(FMainId)+'''');
+      Open;
+    end;
+    with ADOCmd do
+    begin
+      if Trim(FMainId)='' then
+      begin
+        Append;
+      end
+      else begin
+        Edit;
+      end;
+      FieldByName('MainId').Value:=Trim(maxno);
+      RTSetsavedata(ADOCmd,'Contract_Main',ScrollBox1,0);
+      FieldByName('FactoryNo').Value:=Trim(FactoryNoName.TxtCode);
+      if Trim(Order_Sub.fieldbyname('SubId').AsString)='' then
+      begin
+        FieldByName('Filler').Value:=Trim(DName);
+      end else
+      begin
+        FieldByName('Editer').Value:=Trim(DName);
+        FieldByName('EditTime').Value:=SGetServerDateTime(ADOTemp);
+      end;
+      Post;
+    end;
+    ///保存子表
+    with Order_Sub do
+    begin
+      First;
+      while not Eof do
+      begin
+        if Trim(Order_Sub.fieldbyname('SubId').AsString)='' then
+        begin
+          if GetLSNo(ADOCmd,maxSubNo,'CS','Contract_Sub',2,1)=False then
+          begin
+            ADOCmd.Connection.RollbackTrans;
+            Application.MessageBox('生成合同明细表流水号异常！','提示',0);
+            exit;
+          end;
+        end else
+        begin
+          maxSubNo:=Trim(Order_Sub.fieldbyname('SubId').AsString);
+        end;
+        with ADOCmd do
+        begin
+          Close;
+          SQL.Clear;
+          sql.Add('select * from Contract_Sub where ');
+          sql.Add('  SubId='''+Trim(maxSubNo)+'''');
+          Open;
+        end;
+        with ADOCmd do
+        begin
+          if Trim(Order_Sub.fieldbyname('SubId').AsString)='' then
+            Append
+          else
+            Edit;
+          FieldByName('MainId').Value:=Trim(maxno);
+          FieldByName('SubId').Value:=Trim(maxSubNo);
+          RTSetSaveDataCDS(ADOCmd,Tv1,Order_Sub,'Contract_Sub',0);
+          Post;
+        end;
+        Order_Sub.Edit;
+        Order_Sub.FieldByName('SubId').Value:=Trim(maxSubNo);
+        Next;
+      end;
+    end;
+    ADOCmd.Connection.CommitTrans;
+    FMainId:=Trim(maxno);
+    Result:=True;
+  except
+    Result:=False;
+    ADOCmd.Connection.RollbackTrans;
+    Application.MessageBox('保存失败！','提示',0);
+  end;
+end;
+
+procedure TfrmClothContractInPutJY.TBSaveClick(Sender: TObject);
+begin
+  DLYDate.SetFocus;
+  if Trim(ConNo.Text)='' then
+  begin
+    Application.MessageBox('合同编号不能为空！','提示',0);
+    Exit;
+  end;
+  if Trim(ConType.Text)='' then
+  begin
+    Application.MessageBox('合同类型不能为空！','提示',0);
+    Exit;
+  end;
+  if Trim(JYType.Text)='' then
+  begin
+    Application.MessageBox('添加原因不能为空！','提示',0);
+    Exit;
+  end;
+  if Trim(FactoryNoName.Text)='' then
+  begin
+    Application.MessageBox('供应商不能为空！','提示',0);
+    Exit;
+  end;
+  if Order_Sub.IsEmpty then
+  begin
+    Application.MessageBox('明细不能为空！','提示',0);
+    exit;
+  end;
+  if Order_Sub.Locate('C_Qty',null,[]) then
+  begin
+    Application.MessageBox('数量不能为空!','提示',0);
+    Exit;
+  end;
+  if Order_Sub.Locate('C_Unit',null,[]) then
+  begin
+    Application.MessageBox('数量单位不能为空!','提示',0);
+    Exit;
+  end;
+  if Order_Sub.Locate('C_Spec',null,[]) then
+  begin
+    Application.MessageBox('规格型号不能为空!','提示',0);
+    Exit;
+  end;
+  if Application.MessageBox('确定要保存数据吗？','提示',32+4)<>IDYES then Exit;
+  if SaveData() then
+  begin
+    Application.MessageBox('保存成功！','提示',0);
+    ModalResult:=1;
+  end;
+
+end;
+
+procedure TfrmClothContractInPutJY.v1OrderUnitPropertiesButtonClick(Sender: TObject;
+  AButtonIndex: Integer);
+begin
+  try
+    frmZDYHelp:=TfrmZDYHelp.Create(Application);
+    with frmZDYHelp do
+    begin
+      flag:='OrdUnit';
+      flagname:='单位';
+      if ShowModal=1 then
+      begin
+        Self.Order_Sub.Edit;
+        Self.Order_Sub.FieldByName('OrderUnit').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
+      end;
+    end;
+  finally
+    frmZDYHelp.Free;
+  end;
+end;
+
+procedure TfrmClothContractInPutJY.v1PRTUnitPropertiesButtonClick(Sender: TObject;
+  AButtonIndex: Integer);
+begin
+  try
+    frmZDYHelp:=TfrmZDYHelp.Create(Application);
+    with frmZDYHelp do
+    begin
+      flag:='OrdUnit';
+      flagname:='单位';
+      if ShowModal=1 then
+      begin
+        Self.Order_Sub.Edit;
+        Self.Order_Sub.FieldByName('PRTUnit').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
+      end;
+    end;
+  finally
+    frmZDYHelp.Free;
+  end;
+end;
+
+procedure TfrmClothContractInPutJY.v1PRTColorPropertiesButtonClick(Sender: TObject;
+  AButtonIndex: Integer);
+begin
+  try
+    frmZDYHelp:=TfrmZDYHelp.Create(Application);
+    with frmZDYHelp do
+    begin
+      flag:='OrdColor';
+      flagname:='颜色';
+      if ShowModal=1 then
+      begin
+        Self.Order_Sub.Edit;
+        Self.Order_Sub.FieldByName('PRTColor').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
+      end;
+    end;
+  finally
+    frmZDYHelp.Free;
+  end;
+end;
+
+procedure TfrmClothContractInPutJY.ToolButton1Click(Sender: TObject);
+begin
+  CopyAddRow(Tv1,Order_Sub);
+  with Order_Sub do
+  begin
+    Edit;
+    FieldByName('SubId').Value:='';
+    Post;
+  end;
+  if Order_Sub.RecordCount=1 then
+  begin
+    with ADOTemp do
+    begin
+      Close;
+      sql.Clear;
+      sql.Add('select * from JYOrder_Main where OrderNo='''+Trim(ConNo.Text)+'''');
+      Open;
+    end;
+    if ADOTemp.IsEmpty=False then
+    begin
+      with Order_Sub do
+      begin
+        Edit;
+        FieldByName('C_Code').Value:=Trim(ADOTemp.fieldbyname('MPRTCode').AsString)+
+                                     Trim(ADOTemp.fieldbyname('MPRTGY').AsString);
+        FieldByName('C_CodeName').Value:=Trim(ADOTemp.fieldbyname('MPRTCodeName').AsString);
+        FieldByName('C_Spec').Value:=Trim(ADOTemp.fieldbyname('MPRTSpec').AsString);
+        FieldByName('JGGY').Value:=Trim(ADOTemp.fieldbyname('MPRTGYHZ').AsString);
+        FieldByName('MFQty').Value:=Trim(ADOTemp.fieldbyname('MPRTMF').AsString);
+        FieldByName('KZQty').Value:=Trim(ADOTemp.fieldbyname('MPRTKZ').AsString);
+        FieldByName('C_CF').Value:=Trim(ADOTemp.fieldbyname('MPRTCF').AsString);
+        Post;
+      end;
+    end;
+  end;
+end;
+
+procedure TfrmClothContractInPutJY.ToolButton2Click(Sender: TObject);
+begin
+  if Order_Sub.IsEmpty then Exit;
+  if Trim(Order_Sub.fieldbyname('SubId').AsString)<>'' then
+  begin
+    with ADOTemp do
+    begin
+      Close;
+      sql.Clear;
+      sql.Add('select * from JYOrder_Main_MD where COnSubId='''+Trim(Order_Sub.fieldbyname('SubId').AsString)+'''');
+      Open;
+    end;
+    if ADOTemp.IsEmpty=false then
+    begin
+      Application.MessageBox('已经录入码单不能删除数据!','提示',0);
+      Exit;
+    end;
+    if Application.MessageBox('确定要删除数据吗？','提示',32+4)<>IDYES then Exit;
+    with ADOCmd do
+    begin
+      Close;
+      sql.Clear;
+      sql.Add('delete Contract_Sub where SubId='''+Trim(Order_Sub.fieldbyname('SubId').AsString)+'''');
+      ExecSQL;
+    end;
+  end;
+  Order_Sub.Delete;
+end;
+
+procedure TfrmClothContractInPutJY.FactoryNoNamePropertiesButtonClick(
+  Sender: TObject; AButtonIndex: Integer);
+begin
+  if Trim(FMainId)<>'' then
+  begin
+    with ADOTemp do
+    begin
+      Close;
+      sql.Clear;
+      sql.Add('select * from YF_Money_CR A where exists(');
+      sql.Add('select * from ContractSX_Sub_MX B inner join Contract_Sub C on B.SubId=C.SubId ');
+      sql.Add(' where C.Mainid='''+Trim(FMainId)+'''');
+      sql.Add(' and B.MXID=A.YFTypeId)');
+      Open;
+    end;
+    if ADOTemp.IsEmpty=False then
+    begin
+      Application.MessageBox('已经产生应付款不能修改供应商!','提示',0);
+      Exit;
+    end;
+  end;
+
+  try
+    frmZDYHelp:=TfrmZDYHelp.Create(Application);
+    with frmZDYHelp do
+    begin
+      flag:='Factory';
+      flagname:='供方';
+      MainType:='YCLFactory';
+      if ShowModal=1 then
+      begin
+        FXS:=99;
+        FactoryNoName.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
+        FactoryNoName.Hint:=Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString);
+      end;
+    end;
+  finally
+    frmZDYHelp.Free;
+  end;
+end;
+
+procedure TfrmClothContractInPutJY.v1Column1PropertiesButtonClick(
+  Sender: TObject; AButtonIndex: Integer);
+begin
+  if Trim(ConType.Text)='' then
+  begin
+    Application.MessageBox('合同类型不能为空!','提示',0);
+    Exit;
+  end;
+  try
+    frmZDYHelp:=TfrmZDYHelp.Create(Application);
+    with frmZDYHelp do
+    begin
+      flag:='ClothHT';
+      flagname:='产品名称';
+      MainType:=Trim(ConType.Text);
+      fnote:=True;
+      V1Note.Caption:='编号';
+      if ShowModal=1 then
+      begin
+        Self.Order_Sub.Edit;
+        Self.Order_Sub.FieldByName('C_CodeName').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
+        Self.Order_Sub.FieldByName('C_Code').Value:=Trim(ClientDataSet1.fieldbyname('note').AsString);
+      end;
+    end;
+  finally
+    frmZDYHelp.Free;
+  end;
+end;
+
+procedure TfrmClothContractInPutJY.v1PRTMFPropertiesButtonClick(
+  Sender: TObject; AButtonIndex: Integer);
+begin
+  try
+    frmZDYHelp:=TfrmZDYHelp.Create(Application);
+    with frmZDYHelp do
+    begin
+      flag:='KZ';
+      flagname:='克重单位';
+      if ShowModal=1 then
+      begin
+        Self.Order_Sub.Edit;
+        Self.Order_Sub.FieldByName('KZUnit').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
+      end;
+    end;
+  finally
+    frmZDYHelp.Free;
+  end;
+end;
+
+procedure TfrmClothContractInPutJY.v1OrderQtyPropertiesButtonClick(
+  Sender: TObject; AButtonIndex: Integer);
+begin
+  try
+    frmZDYHelp:=TfrmZDYHelp.Create(Application);
+    with frmZDYHelp do
+    begin
+      flag:='MF';
+      flagname:='门幅单位';
+      if ShowModal=1 then
+      begin
+        Self.Order_Sub.Edit;
+        Self.Order_Sub.FieldByName('MFUnit').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
+      end;
+    end;
+  finally
+    frmZDYHelp.Free;
+  end;
+end;
+
+procedure TfrmClothContractInPutJY.v1ClothQtyPropertiesButtonClick(
+  Sender: TObject; AButtonIndex: Integer);
+begin
+  try
+    frmZDYHelp:=TfrmZDYHelp.Create(Application);
+    with frmZDYHelp do
+    begin
+      flag:='PriceUnit';
+      flagname:='计价单位';
+      if ShowModal=1 then
+      begin
+        Self.Order_Sub.Edit;
+        Self.Order_Sub.FieldByName('PriceUnit').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
+      end;
+    end;
+  finally
+    frmZDYHelp.Free;
+  end;
+end;
+
+procedure TfrmClothContractInPutJY.v1Column2PropertiesButtonClick(
+  Sender: TObject; AButtonIndex: Integer);
+begin
+  try
+    frmZDYHelp:=TfrmZDYHelp.Create(Application);
+    with frmZDYHelp do
+    begin
+      flag:='OrderUnit';
+      flagname:='单位';
+      if ShowModal=1 then
+      begin
+        Self.Order_Sub.Edit;
+        Self.Order_Sub.FieldByName('C_Unit').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
+      end;
+    end;
+  finally
+    frmZDYHelp.Free;
+  end;
+end;
+
+procedure TfrmClothContractInPutJY.FactoryNoNamePropertiesChange(
+  Sender: TObject);
+begin
+  {if FXS=99 then
+  begin
+    PanZDY.Visible:=False;
+    FXS:=0;
+    Exit;
+  end;
+  ZDYHelp(FactoryNoName,'FactoryNo1Name');  }
+end;
+
+procedure TfrmClothContractInPutJY.CompanyNamePropertiesButtonClick(
+  Sender: TObject; AButtonIndex: Integer);
+begin
+  try
+    frmZDYHelp:=TfrmZDYHelp.Create(Application);
+    with frmZDYHelp do
+    begin
+      flag:='OrdDefStr2';
+      flagname:='需方';
+      if ShowModal=1 then
+      begin
+        FXS:=99;
+        CompanyName.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
+      end;
+    end;
+  finally
+    frmZDYHelp.Free;
+  end;
+end;
+
+procedure TfrmClothContractInPutJY.ConNoKeyPress(Sender: TObject;
+  var Key: Char);
+begin
+  {if Key=#13 then
+  begin
+    if Trim(ConNo.Text)<>'' then
+    begin
+      with ADOTemp do
+      begin
+        Close;
+        sql.Clear;
+        sql.Add('select Top 1* from JYOrder_Main where OrderNo='''+Trim(ConNo.Text)+'''');
+        Open;
+      end;
+      FactoryNoName.Text:=Trim(ADOTemp.fieldbyname('YCLFactory').AsString);
+    end;
+  end;  }
+end;
+
+procedure TfrmClothContractInPutJY.v1Column3PropertiesButtonClick(
+  Sender: TObject; AButtonIndex: Integer);
+begin
+  if Trim(FMainId)<>'' then
+  begin
+    with ADOTemp do
+    begin
+      Close;
+      sql.Clear;
+      sql.Add('select * from YF_Money_CR A where exists(');
+      sql.Add('select * from ContractSX_Sub_MX B inner join Contract_Sub C on B.SubId=C.SubId ');
+      sql.Add(' where C.Mainid='''+Trim(FMainId)+'''');
+      sql.Add(' and B.MXID=A.YFTypeId)');
+      Open;
+    end;
+    if ADOTemp.IsEmpty=False then
+    begin
+      Application.MessageBox('已经产生应付款不能修改供应商!','提示',0);
+      Exit;
+    end;
+  end;
+
+  try
+    frmZDYHelp:=TfrmZDYHelp.Create(Application);
+    with frmZDYHelp do
+    begin
+      flag:='Factory';
+      flagname:='供方';
+      MainType:='YCLFactory';
+      if ShowModal=1 then
+      begin
+        with Order_Sub do
+        begin
+          Edit;
+          FieldByName('FactoryNoName').Value:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString);
+        end;
+      end;
+    end;
+  finally
+    frmZDYHelp.Free;
+  end;
+end;
+
+procedure TfrmClothContractInPutJY.CompanyNameBtnClick(Sender: TObject);
+begin
+  try
+    frmZDYHelp:=TfrmZDYHelp.Create(Application);
+    with frmZDYHelp do
+    begin
+      flag:='GSTT';
+      flagname:='公司抬头';
+      V1ZdyStr1.Visible:=True;
+      V1ZdyStr2.Visible:=True;
+      V1ZdyStr3.Visible:=True;
+      V1ZdyStr4.Visible:=True;
+      V1ZdyStr1.Caption:='简称';
+      V1ZdyStr2.Caption:='电话';
+      V1ZdyStr3.Caption:='传真';
+      V1ZdyStr4.Caption:='地址';
+      frmZDYHelp.Align:=alClient;
+      if ShowModal=1 then
+      begin
+        CompanyName.Text:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString);
+      end;
+    end;
+  finally
+    frmZDYHelp.Free;
+  end;
+end;
+
+procedure TfrmClothContractInPutJY.FactoryNoNameBtnClick(
+  Sender: TObject);
+begin
+  try
+    frmGYSSelList:=TfrmGYSSelList.Create(Application);
+    with frmGYSSelList do
+    begin
+      if ShowModal=1 then
+      begin
+        FactoryNoName.Text:=Trim(frmGYSSelList.Order_Main.fieldbyname('KHNameJC').AsString);
+        FactoryNoName.TxtCode:=Trim(frmGYSSelList.Order_Main.fieldbyname('ZKId').AsString);
+      end;
+    end;
+  finally
+    frmGYSSelList.Free;
+  end;
+end;
+
+procedure TfrmClothContractInPutJY.JYTypeBtnClick(Sender: TObject);
+begin
+  try
+    frmZDYHelp:=TfrmZDYHelp.Create(Application);
+    with frmZDYHelp do
+    begin
+      flag:='ConJYType';
+      flagname:='紧急合同原因';
+      frmZDYHelp.TBAdd.Visible:=False;
+      frmZDYHelp.TBEdit.Visible:=False;
+      frmZDYHelp.TBDel.Visible:=False;
+      if ShowModal=1 then
+      begin
+        JYType.Text:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString);
+      end;
+    end;
+  finally
+    frmZDYHelp.Free;
+  end;
+end;
+
+procedure TfrmClothContractInPutJY.ConTypeOtherBtnClick(Sender: TObject);
+begin
+  try
+    frmZDYHelp:=TfrmZDYHelp.Create(Application);
+    with frmZDYHelp do
+    begin
+      flag:='ConTypeOther';
+      flagname:='采购加工合同类型';
+      if ShowModal=1 then
+      begin
+        ConTypeOther.Text:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString);
+      end;
+    end;
+  finally
+    frmZDYHelp.Free;
+  end;
+end;
+
+procedure TfrmClothContractInPutJY.ConNoExit(Sender: TObject);
+begin
+  with ADOQuery1 do
+  begin
+    Close;
+    sql.Clear;
+    sql.Add('select * from JYOrder_Main where OrderNo='''+Trim(ConNo.Text)+'''');
+    Open;
+  end;
+  SCSHDataNew(ADOQuery1,Panel1,2);
+end;
+
+procedure TfrmClothContractInPutJY.v1Column3PropertiesEditValueChanged(
+  Sender: TObject);
+var
+  mvalue:String;
+begin
+  mvalue:=TcxTextEdit(Sender).EditingText;
+  with Order_Sub do
+  begin
+    Edit;
+    FieldByName('C_Code').Value:=Trim(mvalue);
+    Post;
+  end;
+  with ADOTemp do
+  begin
+    Close;
+    sql.Clear;
+    sql.Add('select * from JYOrder_Main where OrderNo='''+Trim(ConNo.Text)+'''');
+    Open;
+  end;
+  if ADOTemp.IsEmpty then
+  begin
+    with ADOTemp do
+    begin
+      Close;
+      sql.Clear;
+      sql.Add('select Top 1* from JYOrder_Main where RTrim(MPRTCode)+RTrim(MPRTGY)='''+Trim(mvalue)+'''');
+      sql.Add(' order by FillTime desc');
+      Open;
+    end;
+    if ADOTemp.IsEmpty=False then
+    begin
+      with Order_Sub do
+      begin
+        Edit;
+        {FieldByName('C_Code').Value:=Trim(ADOTemp.fieldbyname('MPRTCode').AsString)+
+                                     Trim(ADOTemp.fieldbyname('MPRTGY').AsString);}
+        FieldByName('C_CodeName').Value:=Trim(ADOTemp.fieldbyname('MPRTCodeName').AsString);
+        FieldByName('C_Spec').Value:=Trim(ADOTemp.fieldbyname('MPRTSpec').AsString);
+        FieldByName('JGGY').Value:=Trim(ADOTemp.fieldbyname('MPRTGYHZ').AsString);
+        FieldByName('MFQty').Value:=Trim(ADOTemp.fieldbyname('MPRTMF').AsString);
+        FieldByName('KZQty').Value:=Trim(ADOTemp.fieldbyname('MPRTKZ').AsString);
+        FieldByName('C_CF').Value:=Trim(ADOTemp.fieldbyname('MPRTCF').AsString);
+        Post;
+      end;
+    end;
+  end;
+end;
+
+end.

坯布码单待检(PBMDDJ.dll)/U_ClothContractInPutSXMX.dfm

@@ -0,0 +1,733 @@
+object frmClothContractInPutSXMX: TfrmClothContractInPutSXMX
+  Left = 34
+  Top = 24
+  Width = 1055
+  Height = 697
+  Align = alClient
+  Caption = #37319#36141'/'#21152#24037#21512#21516#24405#20837
+  Color = clBtnFace
+  Font.Charset = GB2312_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -12
+  Font.Name = #23435#20307
+  Font.Style = []
+  OldCreateOrder = False
+  Position = poScreenCenter
+  OnShow = FormShow
+  PixelsPerInch = 96
+  TextHeight = 12
+  object ToolBar1: TToolBar
+    Left = 0
+    Top = 0
+    Width = 1039
+    Height = 29
+    ButtonHeight = 30
+    ButtonWidth = 59
+    Caption = 'ToolBar1'
+    EdgeInner = esNone
+    EdgeOuter = esNone
+    Flat = True
+    Font.Charset = GB2312_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -12
+    Font.Name = #23435#20307
+    Font.Style = []
+    Images = DataLink_DDMD.ThreeImgList
+    List = True
+    ParentFont = False
+    ShowCaptions = True
+    TabOrder = 0
+    object TBSave: TToolButton
+      Left = 0
+      Top = 0
+      AutoSize = True
+      Caption = #20445#23384
+      ImageIndex = 5
+      OnClick = TBSaveClick
+    end
+    object TBClose: TToolButton
+      Left = 63
+      Top = 0
+      AutoSize = True
+      Caption = #20851#38381
+      ImageIndex = 21
+      OnClick = TBCloseClick
+    end
+  end
+  object ScrollBox1: TScrollBox
+    Left = 0
+    Top = 29
+    Width = 1039
+    Height = 428
+    Align = alTop
+    BevelInner = bvNone
+    BevelOuter = bvNone
+    Ctl3D = False
+    ParentCtl3D = False
+    TabOrder = 1
+    object Label1: TLabel
+      Left = 24
+      Top = 14
+      Width = 66
+      Height = 12
+      Caption = #35746' '#21333' '#21495#65306
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label4: TLabel
+      Left = 304
+      Top = 52
+      Width = 65
+      Height = 12
+      Caption = #20132#36135#26085#26399#65306
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label5: TLabel
+      Left = 304
+      Top = 90
+      Width = 66
+      Height = 12
+      Caption = #20379' '#24212' '#21830#65306
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label2: TLabel
+      Left = 24
+      Top = 52
+      Width = 65
+      Height = 12
+      Caption = #31614#35746#26085#26399#65306
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label3: TLabel
+      Left = 24
+      Top = 90
+      Width = 65
+      Height = 12
+      Caption = #20844#21496#25260#22836#65306
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label11: TLabel
+      Left = 24
+      Top = 129
+      Width = 65
+      Height = 12
+      Caption = #32467#31639#35828#26126#65306
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label12: TLabel
+      Left = 24
+      Top = 167
+      Width = 65
+      Height = 12
+      Caption = #20135#21697#36136#37327#65306
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label6: TLabel
+      Left = 24
+      Top = 205
+      Width = 65
+      Height = 12
+      Caption = #25968#37327#35828#26126#65306
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label7: TLabel
+      Left = 611
+      Top = 12
+      Width = 52
+      Height = 12
+      Caption = #20132#26399#35828#26126
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+      OnDblClick = Label7DblClick
+    end
+    object Label8: TLabel
+      Left = 24
+      Top = 243
+      Width = 65
+      Height = 12
+      Caption = #20184#27454#26041#24335#65306
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label9: TLabel
+      Left = 610
+      Top = 119
+      Width = 117
+      Height = 12
+      Caption = #19981#21487#25239#21147#21450#39118#38505#25215#25285
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+      OnDblClick = Label9DblClick
+    end
+    object Label10: TLabel
+      Left = 610
+      Top = 257
+      Width = 52
+      Height = 12
+      Caption = #36829#32422#36131#20219
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+      OnDblClick = Label10DblClick
+    end
+    object Label13: TLabel
+      Left = 24
+      Top = 273
+      Width = 67
+      Height = 12
+      Caption = #22791'    '#27880#65306
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+      OnDblClick = Label13DblClick
+    end
+    object Label14: TLabel
+      Left = 304
+      Top = 14
+      Width = 65
+      Height = 12
+      Caption = #24037#24207#21517#31216#65306
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label15: TLabel
+      Left = 463
+      Top = 14
+      Width = 52
+      Height = 12
+      Caption = #21512#21516#31867#22411
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object ConNo: TEdit
+      Left = 86
+      Top = 11
+      Width = 209
+      Height = 18
+      CharCase = ecUpperCase
+      TabOrder = 0
+      OnExit = ConNoExit
+      OnKeyPress = ConNoKeyPress
+    end
+    object DLYDate: TDateTimePicker
+      Left = 365
+      Top = 48
+      Width = 226
+      Height = 20
+      BevelInner = bvNone
+      Date = 40916.670856296290000000
+      Format = 'yyyy-MM-dd'
+      Time = 40916.670856296290000000
+      ShowCheckbox = True
+      TabOrder = 1
+    end
+    object QDTime: TDateTimePicker
+      Left = 86
+      Top = 47
+      Width = 211
+      Height = 20
+      BevelInner = bvNone
+      Date = 40916.670856296290000000
+      Format = 'yyyy-MM-dd'
+      Time = 40916.670856296290000000
+      ShowCheckbox = True
+      TabOrder = 2
+    end
+    object JiaoHuoNote: TRichEdit
+      Left = 611
+      Top = 30
+      Width = 412
+      Height = 83
+      TabOrder = 3
+    end
+    object NoKangLiNote: TRichEdit
+      Left = 610
+      Top = 135
+      Width = 412
+      Height = 110
+      TabOrder = 4
+    end
+    object WeiYueNote: TRichEdit
+      Left = 610
+      Top = 273
+      Width = 412
+      Height = 120
+      TabOrder = 5
+    end
+    object Note: TRichEdit
+      Left = 86
+      Top = 273
+      Width = 504
+      Height = 96
+      Lines.Strings = (
+        '')
+      TabOrder = 6
+    end
+    object FactoryNoName: TBtnEditA
+      Left = 365
+      Top = 86
+      Width = 225
+      Height = 20
+      Hint = 'FactoryNo'
+      ReadOnly = True
+      TabOrder = 7
+      OnBtnClick = FactoryNoNameBtnClick
+    end
+    object CompanyName: TBtnEditA
+      Left = 86
+      Top = 86
+      Width = 209
+      Height = 20
+      Hint = 'FactoryNo'
+      ReadOnly = True
+      TabOrder = 8
+      OnBtnClick = CompanyNameBtnClick
+    end
+    object JieSuanNote: TBtnEditA
+      Left = 86
+      Top = 126
+      Width = 504
+      Height = 20
+      TabOrder = 9
+      OnBtnClick = JieSuanNoteBtnClick
+    end
+    object PRTZhiLiang: TBtnEditA
+      Left = 86
+      Top = 164
+      Width = 504
+      Height = 20
+      TabOrder = 10
+      OnBtnClick = PRTZhiLiangBtnClick
+    end
+    object QtyNote: TBtnEditA
+      Left = 86
+      Top = 202
+      Width = 504
+      Height = 20
+      TabOrder = 11
+      OnBtnClick = QtyNoteBtnClick
+    end
+    object PayMent: TBtnEditA
+      Left = 86
+      Top = 240
+      Width = 504
+      Height = 20
+      TabOrder = 12
+      OnBtnClick = PayMentBtnClick
+    end
+    object ConType: TComboBox
+      Left = 364
+      Top = 10
+      Width = 98
+      Height = 20
+      Style = csDropDownList
+      DropDownCount = 20
+      ItemHeight = 12
+      TabOrder = 13
+      Items.Strings = (
+        #22383#32433#21512#21516
+        #26579#32433#21512#21516
+        #32455#36896#21512#21516
+        #30952#27611#21512#21516
+        #22383#24067#21512#21516
+        #26579#33394#21512#21516
+        #21360#33457#21512#21516
+        #21518#21152#24037#21512#21516
+        #25104#21697#21512#21516)
+    end
+    object ConTypeOther: TBtnEditA
+      Left = 516
+      Top = 10
+      Width = 76
+      Height = 20
+      ReadOnly = True
+      TabOrder = 14
+      OnBtnClick = ConTypeOtherBtnClick
+    end
+    object Panel1: TPanel
+      Left = 86
+      Top = 368
+      Width = 503
+      Height = 25
+      BevelInner = bvRaised
+      BevelOuter = bvLowered
+      TabOrder = 15
+      object Label30: TLabel
+        Left = 70
+        Top = 7
+        Width = 24
+        Height = 12
+        Caption = #30333#22383
+      end
+      object Label29: TLabel
+        Left = 147
+        Top = 7
+        Width = 24
+        Height = 12
+        Caption = #25104#21697
+      end
+      object Label31: TLabel
+        Left = 5
+        Top = 7
+        Width = 65
+        Height = 12
+        Caption = #27599#21305#25968#37327#65306
+        Font.Charset = GB2312_CHARSET
+        Font.Color = clBlue
+        Font.Height = -12
+        Font.Name = #23435#20307
+        Font.Style = [fsBold]
+        ParentFont = False
+      end
+      object ClothOneQty: TEdit
+        Tag = 2
+        Left = 95
+        Top = 4
+        Width = 47
+        Height = 18
+        ReadOnly = True
+        TabOrder = 0
+      end
+      object OneQtyUnit: TComboBox
+        Tag = 2
+        Left = 221
+        Top = 3
+        Width = 41
+        Height = 20
+        Style = csDropDownList
+        Enabled = False
+        ItemHeight = 12
+        TabOrder = 1
+        Items.Strings = (
+          'KG'
+          'M')
+      end
+      object MPRTOneQty: TEdit
+        Tag = 2
+        Left = 172
+        Top = 4
+        Width = 47
+        Height = 18
+        ReadOnly = True
+        TabOrder = 2
+      end
+    end
+  end
+  object ToolBar2: TToolBar
+    Left = 0
+    Top = 457
+    Width = 1039
+    Height = 29
+    ButtonHeight = 30
+    ButtonWidth = 59
+    Caption = 'ToolBar1'
+    EdgeInner = esNone
+    EdgeOuter = esNone
+    Flat = True
+    Font.Charset = GB2312_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -12
+    Font.Name = #23435#20307
+    Font.Style = []
+    Images = DataLink_DDMD.ThreeImgList
+    List = True
+    ParentFont = False
+    ShowCaptions = True
+    TabOrder = 2
+    object ToolButton1: TToolButton
+      Left = 0
+      Top = 0
+      AutoSize = True
+      Caption = #22686#34892
+      ImageIndex = 12
+      OnClick = ToolButton1Click
+    end
+    object ToolButton2: TToolButton
+      Left = 63
+      Top = 0
+      AutoSize = True
+      Caption = #21024#34892
+      ImageIndex = 13
+      OnClick = ToolButton2Click
+    end
+  end
+  object cxGrid1: TcxGrid
+    Left = 0
+    Top = 486
+    Width = 1039
+    Height = 172
+    Align = alClient
+    TabOrder = 3
+    object Tv1: TcxGridDBTableView
+      NavigatorButtons.ConfirmDelete = False
+      DataController.DataSource = DataSource1
+      DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
+      DataController.Summary.DefaultGroupSummaryItems = <
+        item
+          Format = 'C_Code'
+          Column = v1Column1
+        end
+        item
+          Format = '0'
+          Position = spFooter
+          Column = v1Price
+        end
+        item
+          Format = '0'
+          Position = spFooter
+          Column = v1ClothUnit
+        end
+        item
+          Format = '0'
+          Position = spFooter
+          Column = v1Column5
+        end
+        item
+          Format = '0'
+          Position = spFooter
+          Column = v1Column6
+        end
+        item
+          Format = '0'
+          Position = spFooter
+          Column = v1Column7
+        end>
+      DataController.Summary.FooterSummaryItems = <>
+      DataController.Summary.SummaryGroups = <>
+      OptionsBehavior.FocusCellOnTab = True
+      OptionsBehavior.GoToNextCellOnEnter = True
+      OptionsBehavior.FocusCellOnCycle = True
+      OptionsCustomize.ColumnFiltering = False
+      OptionsView.GroupByBox = False
+      object v1Column3: TcxGridDBColumn
+        Caption = #20135#21697#32534#21495
+        DataBinding.FieldName = 'C_Code'
+        PropertiesClassName = 'TcxButtonEditProperties'
+        Properties.Buttons = <
+          item
+            Default = True
+            Kind = bkEllipsis
+          end>
+        Properties.OnEditValueChanged = v1Column3PropertiesEditValueChanged
+        HeaderAlignmentHorz = taCenter
+        Width = 127
+      end
+      object v1Column1: TcxGridDBColumn
+        Caption = #20135#21697#21517#31216
+        DataBinding.FieldName = 'C_CodeName'
+        PropertiesClassName = 'TcxButtonEditProperties'
+        Properties.Buttons = <
+          item
+            Default = True
+            Kind = bkEllipsis
+          end>
+        Properties.OnButtonClick = v1Column1PropertiesButtonClick
+        HeaderAlignmentHorz = taCenter
+        Width = 119
+      end
+      object v1PRTSpec: TcxGridDBColumn
+        Caption = #35268#26684#22411#21495
+        DataBinding.FieldName = 'C_Spec'
+        HeaderAlignmentHorz = taCenter
+        Options.Sorting = False
+        Width = 98
+      end
+      object v1Column13: TcxGridDBColumn
+        Caption = #24037#33402
+        DataBinding.FieldName = 'JGGY'
+        HeaderAlignmentHorz = taCenter
+        Width = 84
+      end
+      object v1Column6: TcxGridDBColumn
+        Caption = #38376#24133'(CM)'
+        DataBinding.FieldName = 'MFQty'
+        HeaderAlignmentHorz = taCenter
+        Width = 87
+      end
+      object v1Column11: TcxGridDBColumn
+        Caption = #38376#24133#35828#26126
+        DataBinding.FieldName = 'MF'
+        HeaderAlignmentHorz = taCenter
+        Width = 63
+      end
+      object v1Column7: TcxGridDBColumn
+        Caption = #20811#37325'(GSM)'
+        DataBinding.FieldName = 'KZQty'
+        HeaderAlignmentHorz = taCenter
+        Width = 70
+      end
+      object v1Column12: TcxGridDBColumn
+        Caption = #20811#37325#35828#26126
+        DataBinding.FieldName = 'KZ'
+        HeaderAlignmentHorz = taCenter
+        Width = 62
+      end
+      object v1Column8: TcxGridDBColumn
+        Caption = #25104#20221
+        DataBinding.FieldName = 'C_CF'
+        HeaderAlignmentHorz = taCenter
+        Width = 76
+      end
+      object v1Price: TcxGridDBColumn
+        Caption = #21333#20215
+        DataBinding.FieldName = 'Price'
+        HeaderAlignmentHorz = taCenter
+        Width = 62
+      end
+      object v1ClothUnit: TcxGridDBColumn
+        Caption = #25968#37327
+        DataBinding.FieldName = 'C_Qty'
+        HeaderAlignmentHorz = taCenter
+        Width = 70
+      end
+      object v1Column5: TcxGridDBColumn
+        Caption = #21305'/'#21253#25968
+        DataBinding.FieldName = 'PS'
+        HeaderAlignmentHorz = taCenter
+        Width = 55
+      end
+      object v1Column2: TcxGridDBColumn
+        Caption = #25968#37327#21333#20301
+        DataBinding.FieldName = 'C_Unit'
+        PropertiesClassName = 'TcxComboBoxProperties'
+        Properties.DropDownListStyle = lsFixedList
+        Properties.ImmediatePost = True
+        Properties.Items.Strings = (
+          'M'
+          'Y'
+          'Kg'
+          #21305
+          #32568
+          #22871)
+        HeaderAlignmentHorz = taCenter
+        Width = 86
+      end
+      object v1Column9: TcxGridDBColumn
+        Caption = #20854#20182#35201#27714
+        DataBinding.FieldName = 'C_Note'
+        HeaderAlignmentHorz = taCenter
+        Width = 95
+      end
+    end
+    object cxGrid1Level1: TcxGridLevel
+      GridView = Tv1
+    end
+  end
+  object ADOTemp: TADOQuery
+    Connection = DataLink_DDMD.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 600
+    Top = 5
+  end
+  object ADOCmd: TADOQuery
+    Connection = DataLink_DDMD.ADOLink
+    Parameters = <>
+    Left = 520
+    Top = 5
+  end
+  object DataSource1: TDataSource
+    DataSet = Order_Sub
+    Left = 344
+    Top = 376
+  end
+  object Order_Sub: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 376
+    Top = 376
+  end
+  object DataSource2: TDataSource
+    DataSet = ADOZDY
+    Left = 240
+  end
+  object ADOZDY: TADOQuery
+    Connection = DataLink_DDMD.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 280
+    Top = 65533
+  end
+  object CDS_ZDY: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 208
+  end
+  object ADOQuery1: TADOQuery
+    Connection = DataLink_DDMD.ADOLink
+    Parameters = <>
+    Left = 560
+    Top = 5
+  end
+  object cxGridPopupMenu1: TcxGridPopupMenu
+    Grid = cxGrid1
+    PopupMenus = <>
+    Left = 488
+    Top = 560
+  end
+end

坯布码单待检(PBMDDJ.dll)/U_ClothContractListHZ.dfm

@@ -0,0 +1,748 @@
+object frmClothContractListHZ: TfrmClothContractListHZ
+  Left = 25
+  Top = 102
+  Width = 1341
+  Height = 536
+  Caption = #37319#36141#21512#21516
+  Color = clBtnFace
+  Font.Charset = GB2312_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -12
+  Font.Name = #23435#20307
+  Font.Style = []
+  OldCreateOrder = False
+  OnClose = FormClose
+  OnCreate = FormCreate
+  OnDestroy = FormDestroy
+  OnShow = FormShow
+  PixelsPerInch = 96
+  TextHeight = 12
+  object ToolBar1: TToolBar
+    Left = 0
+    Top = 0
+    Width = 1325
+    Height = 62
+    AutoSize = True
+    ButtonHeight = 30
+    ButtonWidth = 107
+    Caption = 'ToolBar1'
+    Color = clSkyBlue
+    Flat = True
+    Font.Charset = GB2312_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -12
+    Font.Name = #23435#20307
+    Font.Style = []
+    Images = DataLink_DDMD.ThreeImgList
+    List = True
+    ParentColor = False
+    ParentFont = False
+    ShowCaptions = True
+    TabOrder = 0
+    object TBRafresh: TToolButton
+      Left = 0
+      Top = 0
+      AutoSize = True
+      Caption = #21047#26032
+      ImageIndex = 0
+      OnClick = TBRafreshClick
+    end
+    object TBFind: TToolButton
+      Left = 63
+      Top = 0
+      AutoSize = True
+      Caption = #36807#28388
+      ImageIndex = 20
+      OnClick = TBFindClick
+    end
+    object TBAdd: TToolButton
+      Left = 126
+      Top = 0
+      AutoSize = True
+      Caption = #26032#22686
+      ImageIndex = 1
+      OnClick = TBAddClick
+    end
+    object TBEdit: TToolButton
+      Left = 189
+      Top = 0
+      AutoSize = True
+      Caption = #20462#25913
+      ImageIndex = 11
+      OnClick = TBEditClick
+    end
+    object ToolButton1: TToolButton
+      Left = 252
+      Top = 0
+      AutoSize = True
+      Caption = #22797#21046
+      ImageIndex = 38
+      OnClick = ToolButton1Click
+    end
+    object ToolButton2: TToolButton
+      Left = 315
+      Top = 0
+      AutoSize = True
+      Caption = #26597#30475
+      ImageIndex = 39
+      OnClick = ToolButton2Click
+    end
+    object TBDel: TToolButton
+      Left = 378
+      Top = 0
+      AutoSize = True
+      Caption = #21024#38500
+      ImageIndex = 3
+      OnClick = TBDelClick
+    end
+    object ToolButton7: TToolButton
+      Left = 441
+      Top = 0
+      Caption = #32039#24613#21512#21516#21407#22240
+      ImageIndex = 22
+      OnClick = ToolButton7Click
+    end
+    object TBSSOk: TToolButton
+      Left = 548
+      Top = 0
+      AutoSize = True
+      Caption = #36865#23457
+      ImageIndex = 16
+      OnClick = TBSSOkClick
+    end
+    object TBSSNO: TToolButton
+      Left = 611
+      Top = 0
+      AutoSize = True
+      Caption = #36865#23457#25764#38144
+      ImageIndex = 17
+      OnClick = TBSSNOClick
+    end
+    object TBChkOk: TToolButton
+      Left = 698
+      Top = 0
+      AutoSize = True
+      Caption = #23457#26680#36890#36807
+      ImageIndex = 50
+      Wrap = True
+      OnClick = TBChkOkClick
+    end
+    object TBExport: TToolButton
+      Left = 0
+      Top = 30
+      AutoSize = True
+      Caption = #23548#20986
+      ImageIndex = 6
+      Visible = False
+      OnClick = TBExportClick
+    end
+    object TBChkNO: TToolButton
+      Left = 63
+      Top = 30
+      AutoSize = True
+      Caption = #23457#26680#25764#38144
+      ImageIndex = 129
+      OnClick = TBChkNOClick
+    end
+    object ToolButton4: TToolButton
+      Left = 150
+      Top = 30
+      AutoSize = True
+      Caption = #19978#20256
+      ImageIndex = 18
+      OnClick = ToolButton4Click
+    end
+    object ToolButton6: TToolButton
+      Left = 213
+      Top = 30
+      AutoSize = True
+      Caption = #19978#20256#25764#38144
+      ImageIndex = 52
+      OnClick = ToolButton6Click
+    end
+    object ToolButton5: TToolButton
+      Left = 300
+      Top = 30
+      AutoSize = True
+      Caption = #19979#36733
+      ImageIndex = 19
+      OnClick = ToolButton5Click
+    end
+    object TBPrint: TToolButton
+      Left = 363
+      Top = 30
+      AutoSize = True
+      Caption = #25171#21360
+      ImageIndex = 4
+      OnClick = TBPrintClick
+    end
+    object ComboBox1: TComboBox
+      Left = 426
+      Top = 35
+      Width = 104
+      Height = 20
+      Style = csDropDownList
+      ItemHeight = 12
+      TabOrder = 0
+      Items.Strings = (
+        #37319#36141#21152#24037#21512#21516
+        #37319#36141#21152#24037#21512#21516'('#32433#32447')'
+        #20215#26684#30830#35748#20070)
+    end
+    object ToolButton8: TToolButton
+      Left = 530
+      Top = 30
+      AutoSize = True
+      Caption = #23548#20986
+      ImageIndex = 97
+      OnClick = ToolButton8Click
+    end
+    object ToolButton3: TToolButton
+      Left = 593
+      Top = 30
+      AutoSize = True
+      Caption = #25805#20316#35828#26126
+      ImageIndex = 41
+      OnClick = ToolButton3Click
+    end
+    object TBClose: TToolButton
+      Left = 680
+      Top = 30
+      AutoSize = True
+      Caption = #20851#38381
+      ImageIndex = 21
+      OnClick = TBCloseClick
+    end
+  end
+  object Panel1: TPanel
+    Left = 0
+    Top = 62
+    Width = 1325
+    Height = 54
+    Align = alTop
+    BevelInner = bvRaised
+    BevelOuter = bvLowered
+    Color = clSkyBlue
+    TabOrder = 1
+    object Label1: TLabel
+      Left = 23
+      Top = 22
+      Width = 52
+      Height = 12
+      Caption = #26597#35810#26085#26399
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label2: TLabel
+      Left = 161
+      Top = 22
+      Width = 18
+      Height = 12
+      Caption = '---'
+    end
+    object Label3: TLabel
+      Left = 283
+      Top = 22
+      Width = 52
+      Height = 12
+      Caption = #21512#21516#32534#21495
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label5: TLabel
+      Left = 439
+      Top = 22
+      Width = 52
+      Height = 12
+      Caption = #20135#21697#32534#21495
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label4: TLabel
+      Left = 595
+      Top = 22
+      Width = 39
+      Height = 12
+      Caption = #20379#24212#21830
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label14: TLabel
+      Left = 740
+      Top = 22
+      Width = 52
+      Height = 12
+      Caption = #24037#24207#21517#31216
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object BegDate: TDateTimePicker
+      Left = 76
+      Top = 18
+      Width = 85
+      Height = 20
+      Date = 40675.464742650460000000
+      Format = 'yyyy-MM-dd'
+      Time = 40675.464742650460000000
+      TabOrder = 0
+    end
+    object EndDate: TDateTimePicker
+      Left = 179
+      Top = 18
+      Width = 86
+      Height = 20
+      Date = 40675.464761099540000000
+      Format = 'yyyy-MM-dd'
+      Time = 40675.464761099540000000
+      TabOrder = 1
+    end
+    object ConNo: TEdit
+      Tag = 2
+      Left = 337
+      Top = 18
+      Width = 81
+      Height = 20
+      TabOrder = 2
+      OnChange = ConNoChange
+      OnKeyPress = conPress
+    end
+    object C_Code: TEdit
+      Tag = 2
+      Left = 492
+      Top = 18
+      Width = 83
+      Height = 20
+      TabOrder = 3
+      OnChange = ConNoChange
+    end
+    object FactoryNoName: TEdit
+      Tag = 2
+      Left = 634
+      Top = 18
+      Width = 83
+      Height = 20
+      TabOrder = 4
+      OnChange = ConNoChange
+    end
+    object ConType: TComboBox
+      Tag = 1
+      Left = 794
+      Top = 18
+      Width = 84
+      Height = 20
+      Style = csDropDownList
+      ItemHeight = 12
+      TabOrder = 5
+      OnChange = ConNoChange
+      Items.Strings = (
+        #22383#32433#21512#21516
+        #26579#32433#21512#21516
+        #32455#36896#21512#21516
+        #30952#27611#21512#21516
+        #22383#24067#21512#21516
+        #26579#33394#21512#21516
+        #21360#33457#21512#21516
+        #21518#21152#24037#21512#21516
+        #25104#21697#21512#21516
+        '')
+    end
+  end
+  object cxGrid1: TcxGrid
+    Left = 0
+    Top = 137
+    Width = 1325
+    Height = 360
+    Align = alClient
+    TabOrder = 2
+    object Tv1: TcxGridDBTableView
+      NavigatorButtons.ConfirmDelete = False
+      DataController.DataSource = DataSource1
+      DataController.Summary.DefaultGroupSummaryItems = <>
+      DataController.Summary.FooterSummaryItems = <
+        item
+          Kind = skSum
+          Column = v1PRTOrderQty
+        end
+        item
+          Kind = skSum
+          Column = v1PRTQty
+        end>
+      DataController.Summary.SummaryGroups = <>
+      OptionsCustomize.ColumnFiltering = False
+      OptionsData.Editing = False
+      OptionsSelection.CellSelect = False
+      OptionsView.Footer = True
+      OptionsView.GroupByBox = False
+      Styles.Inactive = DataLink_DDMD.SHuangSe
+      Styles.IncSearch = DataLink_DDMD.SHuangSe
+      Styles.Selection = DataLink_DDMD.SHuangSe
+      object v1OrderNo: TcxGridDBColumn
+        Caption = #21512#21516#32534#21495
+        DataBinding.FieldName = 'ConNo'
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_DDMD.Default
+        Width = 65
+      end
+      object v1Column3: TcxGridDBColumn
+        Caption = #24037#24207#21517#31216
+        DataBinding.FieldName = 'ConType'
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_DDMD.Default
+        Width = 69
+      end
+      object v1Column9: TcxGridDBColumn
+        Caption = #21512#21516#31867#22411
+        DataBinding.FieldName = 'ConTypeOther'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Styles.Header = DataLink_DDMD.Default
+        Width = 62
+      end
+      object v1Column5: TcxGridDBColumn
+        Caption = #31614#35746#26085#26399
+        DataBinding.FieldName = 'QDTime'
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_DDMD.Default
+        Width = 70
+      end
+      object v1DeliveryDate: TcxGridDBColumn
+        Caption = #20132#36135#26085#26399
+        DataBinding.FieldName = 'DLYDate'
+        PropertiesClassName = 'TcxDateEditProperties'
+        Properties.SaveTime = False
+        Properties.ShowTime = False
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_DDMD.Default
+        Width = 68
+      end
+      object v1Column8: TcxGridDBColumn
+        Caption = #20135#21697#32534#21495
+        DataBinding.FieldName = 'C_Code'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Styles.Header = DataLink_DDMD.Default
+        Width = 71
+      end
+      object v1Column2: TcxGridDBColumn
+        Caption = #20135#21697#21517#31216
+        DataBinding.FieldName = 'C_CodeName'
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_DDMD.Default
+        Width = 71
+      end
+      object v1PRTSpec: TcxGridDBColumn
+        Caption = #35268#26684
+        DataBinding.FieldName = 'C_Spec'
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_DDMD.Default
+        Width = 74
+      end
+      object v1FactoryNo1Name: TcxGridDBColumn
+        Caption = #20379#24212#21830
+        DataBinding.FieldName = 'FactoryNoName'
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_DDMD.Default
+        Width = 76
+      end
+      object v1Qty1: TcxGridDBColumn
+        Caption = #21305#25968
+        DataBinding.FieldName = 'Qty1'
+        Visible = False
+        HeaderAlignmentHorz = taCenter
+        Hidden = True
+        Styles.Header = DataLink_DDMD.Default
+        Width = 46
+      end
+      object v1PRTOrderQty: TcxGridDBColumn
+        Caption = #25968#37327
+        DataBinding.FieldName = 'C_Qty'
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_DDMD.Default
+        Width = 58
+      end
+      object v1OrderUnit: TcxGridDBColumn
+        Caption = #21333#20301
+        DataBinding.FieldName = 'C_Unit'
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_DDMD.Default
+        Width = 47
+      end
+      object v1Column1: TcxGridDBColumn
+        Caption = #21333#20215
+        DataBinding.FieldName = 'Price'
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_DDMD.Default
+        Width = 57
+      end
+      object v1PRTQty: TcxGridDBColumn
+        Caption = #24635#20215
+        DataBinding.FieldName = 'Money'
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_DDMD.Default
+        Width = 58
+      end
+      object v1Column13: TcxGridDBColumn
+        Caption = #25991#20214#19978#20256
+        DataBinding.FieldName = 'FileFlag'
+        PropertiesClassName = 'TcxCheckBoxProperties'
+        Properties.NullStyle = nssUnchecked
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_DDMD.Default
+        Width = 64
+      end
+      object v1Column4: TcxGridDBColumn
+        Caption = #22791#27880
+        DataBinding.FieldName = 'C_Note'
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_DDMD.Default
+        Width = 118
+      end
+      object v1Column6: TcxGridDBColumn
+        Caption = #30331#35760#20154
+        DataBinding.FieldName = 'Filler'
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_DDMD.Default
+        Width = 70
+      end
+      object v1Column7: TcxGridDBColumn
+        Caption = #30331#35760#26102#38388
+        DataBinding.FieldName = 'FillTime'
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_DDMD.Default
+        Width = 74
+      end
+      object v1Column14: TcxGridDBColumn
+        Caption = #32039#24613#21512#21516#21407#22240
+        DataBinding.FieldName = 'JYType'
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_DDMD.Default
+        Width = 87
+      end
+      object v1Column15: TcxGridDBColumn
+        Caption = #21512#21516#35828#26126
+        DataBinding.FieldName = 'JYNote'
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_DDMD.Default
+        Width = 78
+      end
+      object v1Column16: TcxGridDBColumn
+        Caption = #26368#21518#20462#25913#20154
+        DataBinding.FieldName = 'Editer'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Styles.Header = DataLink_DDMD.Default
+        Width = 88
+      end
+      object v1Column17: TcxGridDBColumn
+        Caption = #26368#21518#20462#25913#26102#38388
+        DataBinding.FieldName = 'EditTime'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Styles.Header = DataLink_DDMD.Default
+        Width = 126
+      end
+    end
+    object cxGrid1Level1: TcxGridLevel
+      GridView = Tv1
+    end
+  end
+  object Panel16: TPanel
+    Left = 531
+    Top = 229
+    Width = 138
+    Height = 30
+    BevelInner = bvRaised
+    Caption = #27491#22312#19978#20256#12290#12290#12290
+    Color = clSkyBlue
+    Font.Charset = GB2312_CHARSET
+    Font.Color = clRed
+    Font.Height = -12
+    Font.Name = #23435#20307
+    Font.Style = [fsBold]
+    ParentFont = False
+    TabOrder = 3
+    Visible = False
+  end
+  object Panel2: TPanel
+    Left = 530
+    Top = 195
+    Width = 138
+    Height = 30
+    BevelInner = bvRaised
+    Caption = #27491#22312#19979#36733#12290#12290#12290
+    Color = clSkyBlue
+    Font.Charset = GB2312_CHARSET
+    Font.Color = clPurple
+    Font.Height = -12
+    Font.Name = #23435#20307
+    Font.Style = [fsBold]
+    ParentFont = False
+    TabOrder = 4
+    Visible = False
+  end
+  object cxPageControl1: TcxPageControl
+    Left = 0
+    Top = 116
+    Width = 1325
+    Height = 21
+    ActivePage = cxTabSheet1
+    Align = alTop
+    Style = 8
+    TabOrder = 5
+    OnChange = cxPageControl1Change
+    ClientRectBottom = 23
+    ClientRectRight = 1325
+    ClientRectTop = 23
+    object cxTabSheet1: TcxTabSheet
+      Caption = #27491#24120#21512#21516
+      ImageIndex = 0
+    end
+    object cxTabSheet2: TcxTabSheet
+      Caption = #32039#24613#21512#21516
+      ImageIndex = 1
+      object cxTabControl1: TcxTabControl
+        Left = 0
+        Top = 0
+        Width = 1325
+        Height = 25
+        Align = alTop
+        Style = 8
+        TabIndex = 0
+        TabOrder = 0
+        Tabs.Strings = (
+          #24453#36865#23457
+          #24050#36865#23457
+          #24050#23457#26680
+          #20840#37096)
+        OnChange = cxTabControl1Change
+        ClientRectBottom = 25
+        ClientRectRight = 1325
+        ClientRectTop = 23
+      end
+    end
+    object cxTabSheet3: TcxTabSheet
+      Caption = #20840#37096
+      ImageIndex = 2
+    end
+  end
+  object cxGridPopupMenu1: TcxGridPopupMenu
+    Grid = cxGrid1
+    PopupMenus = <>
+    Left = 608
+    Top = 163
+  end
+  object ADOQueryCmd: TADOQuery
+    Connection = DataLink_DDMD.ADOLink
+    Parameters = <>
+    Left = 1071
+    Top = 49
+  end
+  object ADOQueryMain: TADOQuery
+    Connection = DataLink_DDMD.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 1005
+    Top = 48
+  end
+  object ADOQueryTemp: TADOQuery
+    Connection = DataLink_DDMD.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 1032
+    Top = 55
+  end
+  object DataSource1: TDataSource
+    DataSet = Order_Main
+    Left = 1166
+    Top = 54
+  end
+  object Order_Main: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 1103
+    Top = 50
+  end
+  object RM1: TRMGridReport
+    ThreadPrepareReport = True
+    InitialZoom = pzDefault
+    PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbSaveToXLS, pbExport, pbNavigator]
+    DefaultCollate = False
+    SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\'
+    PreviewOptions.RulerUnit = rmutScreenPixels
+    PreviewOptions.RulerVisible = False
+    PreviewOptions.DrawBorder = False
+    PreviewOptions.BorderPen.Color = clGray
+    PreviewOptions.BorderPen.Style = psDash
+    Dataset = RMDBMain
+    CompressLevel = rmzcFastest
+    CompressThread = False
+    LaterBuildEvents = True
+    OnlyOwnerDataSet = False
+    Left = 352
+    Top = 192
+    ReportData = {}
+  end
+  object RMDBMain: TRMDBDataSet
+    Visible = True
+    DataSet = CDS_PRT
+    Left = 400
+    Top = 192
+  end
+  object RMXLSExport1: TRMXLSExport
+    ShowAfterExport = True
+    ExportPrecision = 1
+    PagesOfSheet = 1
+    ExportImages = True
+    ExportFrames = True
+    ExportImageFormat = ifBMP
+    JPEGQuality = 0
+    ScaleX = 1.000000000000000000
+    ScaleY = 1.000000000000000000
+    CompressFile = False
+    Left = 440
+    Top = 192
+  end
+  object CDS_PRT: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 968
+    Top = 56
+  end
+  object ODPat: TOpenDialog
+    Options = [ofReadOnly, ofAllowMultiSelect, ofPathMustExist, ofFileMustExist, ofEnableSizing]
+    Left = 508
+    Top = 157
+  end
+  object IdFTP1: TIdFTP
+    MaxLineAction = maException
+    ReadTimeout = 0
+    ProxySettings.ProxyType = fpcmNone
+    ProxySettings.Port = 0
+    Left = 574
+    Top = 162
+  end
+  object SaveDialog1: TSaveDialog
+    Left = 542
+    Top = 160
+  end
+end

坯布码单待检(PBMDDJ.dll)/U_ClothContractListHZ.pas

@@ -0,0 +1,884 @@
+unit U_ClothContractListHZ;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, StdCtrls, ExtCtrls, ComCtrls, ToolWin, cxStyles, cxCustomData,
+  cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, ADODB,
+  cxGridCustomPopupMenu, cxGridPopupMenu, cxGridLevel, cxClasses,
+  cxControls, cxGridCustomView, cxGridCustomTableView, cxGridTableView,
+  cxGridDBTableView, cxGrid, DBClient, cxCalendar, cxButtonEdit, cxSplitter,
+  RM_Common, RM_Class, RM_e_Xls, RM_Dataset, RM_System, RM_GridReport,
+  cxTextEdit, cxPC, IdBaseComponent, IdComponent, IdTCPConnection,
+  IdTCPClient, IdFTP,ShellAPI, cxCheckBox,jpeg,IniFiles;
+
+type
+  TfrmClothContractListHZ = class(TForm)
+    ToolBar1: TToolBar;
+    TBRafresh: TToolButton;
+    TBFind: TToolButton;
+    TBAdd: TToolButton;
+    TBEdit: TToolButton;
+    TBDel: TToolButton;
+    TBPrint: TToolButton;
+    TBClose: TToolButton;
+    Panel1: TPanel;
+    BegDate: TDateTimePicker;
+    EndDate: TDateTimePicker;
+    Label1: TLabel;
+    Label2: TLabel;
+    cxGridPopupMenu1: TcxGridPopupMenu;
+    ADOQueryCmd: TADOQuery;
+    ADOQueryMain: TADOQuery;
+    ADOQueryTemp: TADOQuery;
+    DataSource1: TDataSource;
+    Label3: TLabel;
+    ConNo: TEdit;
+    Label5: TLabel;
+    C_Code: TEdit;
+    TBExport: TToolButton;
+    Order_Main: TClientDataSet;
+    Label4: TLabel;
+    FactoryNoName: TEdit;
+    RM1: TRMGridReport;
+    RMDBMain: TRMDBDataSet;
+    RMXLSExport1: TRMXLSExport;
+    CDS_PRT: TClientDataSet;
+    ToolButton1: TToolButton;
+    cxGrid1: TcxGrid;
+    Tv1: TcxGridDBTableView;
+    v1OrderNo: TcxGridDBColumn;
+    v1Column2: TcxGridDBColumn;
+    v1DeliveryDate: TcxGridDBColumn;
+    v1Column5: TcxGridDBColumn;
+    v1FactoryNo1Name: TcxGridDBColumn;
+    v1PRTSpec: TcxGridDBColumn;
+    v1Qty1: TcxGridDBColumn;
+    v1PRTOrderQty: TcxGridDBColumn;
+    v1OrderUnit: TcxGridDBColumn;
+    v1Column1: TcxGridDBColumn;
+    v1PRTQty: TcxGridDBColumn;
+    v1Column4: TcxGridDBColumn;
+    cxGrid1Level1: TcxGridLevel;
+    v1Column3: TcxGridDBColumn;
+    ConType: TComboBox;
+    Label14: TLabel;
+    ToolButton2: TToolButton;
+    v1Column6: TcxGridDBColumn;
+    v1Column7: TcxGridDBColumn;
+    ComboBox1: TComboBox;
+    v1Column8: TcxGridDBColumn;
+    v1Column9: TcxGridDBColumn;
+    ToolButton3: TToolButton;
+    ToolButton4: TToolButton;
+    ToolButton5: TToolButton;
+    ODPat: TOpenDialog;
+    IdFTP1: TIdFTP;
+    SaveDialog1: TSaveDialog;
+    v1Column13: TcxGridDBColumn;
+    Panel16: TPanel;
+    Panel2: TPanel;
+    ToolButton6: TToolButton;
+    ToolButton7: TToolButton;
+    v1Column14: TcxGridDBColumn;
+    v1Column15: TcxGridDBColumn;
+    cxPageControl1: TcxPageControl;
+    cxTabSheet1: TcxTabSheet;
+    cxTabSheet2: TcxTabSheet;
+    cxTabSheet3: TcxTabSheet;
+    cxTabControl1: TcxTabControl;
+    TBSSOk: TToolButton;
+    TBSSNO: TToolButton;
+    TBChkNO: TToolButton;
+    TBChkOk: TToolButton;
+    v1Column16: TcxGridDBColumn;
+    v1Column17: TcxGridDBColumn;
+    ToolButton8: TToolButton;
+    procedure FormDestroy(Sender: TObject);
+    procedure FormClose(Sender: TObject; var Action: TCloseAction);
+    procedure TBCloseClick(Sender: TObject);
+    procedure TBFindClick(Sender: TObject);
+    procedure TBEditClick(Sender: TObject);
+    procedure TBDelClick(Sender: TObject);
+    procedure TBExportClick(Sender: TObject);
+    procedure TBPrintClick(Sender: TObject);
+    procedure TBRafreshClick(Sender: TObject);
+    procedure TBAddClick(Sender: TObject);
+    procedure ConNoChange(Sender: TObject);
+    procedure FormShow(Sender: TObject);
+    procedure conPress(Sender: TObject; var Key: Char);
+    procedure cxPageControl1Change(Sender: TObject);
+    procedure ToolButton1Click(Sender: TObject);
+    procedure ToolButton2Click(Sender: TObject);
+    procedure ToolButton3Click(Sender: TObject);
+    procedure FormCreate(Sender: TObject);
+    procedure ToolButton4Click(Sender: TObject);
+    procedure ToolButton5Click(Sender: TObject);
+    procedure ToolButton6Click(Sender: TObject);
+    procedure ToolButton7Click(Sender: TObject);
+    procedure TBSSOkClick(Sender: TObject);
+    procedure TBSSNOClick(Sender: TObject);
+    procedure TBChkOkClick(Sender: TObject);
+    procedure TBChkNOClick(Sender: TObject);
+    procedure cxTabControl1Change(Sender: TObject);
+    procedure ToolButton8Click(Sender: TObject);
+  private
+    FInt,PFInt:Integer;
+    canshu1:string;
+    lstPat: TStringList;
+		AJpeg: TJPEGImage;
+    procedure InitGrid();
+    procedure InitForm();
+    function  DelData():Boolean;
+    procedure ReadINIFile10();
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+var
+  frmClothContractListHZ: TfrmClothContractListHZ;
+
+implementation
+uses
+  U_DataLink,U_RTFun,U_ClothContractInPutSXMX,U_ZDYHelp
+  {U_ClothContractInPutSX,
+  U_ProductOrderList,U_ZDYHelp,
+  ,U_ClothContractInPutHZ,U_ClothContractInPutPB}, U_ModuleNote;
+
+{$R *.dfm}
+
+procedure TfrmClothContractListHZ.FormDestroy(Sender: TObject);
+begin
+  frmClothContractListHZ:=nil;
+end;
+
+procedure TfrmClothContractListHZ.FormClose(Sender: TObject;
+  var Action: TCloseAction);
+begin
+  Action:=caFree;
+end;
+
+procedure TfrmClothContractListHZ.TBCloseClick(Sender: TObject);
+var
+  FPath:String;
+begin
+  Close;
+  WriteCxGrid('采购合同1',Tv1,'生产合同管理');
+  FPath:='D:\Right1209\';
+  if  DirectoryExists(ExtractFileDir(FPath)) then
+    winexec('cmd /c rd /s /q D:\Right1209\',sw_hide);
+end;
+
+procedure TfrmClothContractListHZ.InitGrid();
+begin
+  try
+    ADOQueryMain.DisableControls;
+    with ADOQueryMain do
+    begin
+      Filtered:=False;
+      Close;
+      sql.Clear;
+      sql.Add('select A.*,B.*,Money=B.ConQty*B.ConPrice from Contract_Main A inner join Contract_Sub B on A.MainId=B.MainId ');
+      sql.Add(' where A.FillTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+'''');
+      sql.Add(' and A.FillTime<'''+Trim(FormatDateTime('yyyy-MM-dd',EndDate.DateTime+1))+'''');
+      {if Trim(DParameters1)<>'高权限' then
+      begin
+        sql.Add(' and A.Filler='''+Trim(DName)+'''');
+      end;}
+      if cxPageControl1.ActivePageIndex=0 then
+      begin
+        sql.Add(' and isnull(A.JYType,'''')='''' ');
+      end else
+      if cxPageControl1.ActivePageIndex=1 then
+      begin
+        sql.Add(' and isnull(A.JYType,'''')<>'''' ');
+        if cxTabControl1.TabIndex=0 then
+        begin
+          sql.Add(' and isnull(ChkStatus,'''')='''' ');
+        end else
+        if cxTabControl1.TabIndex=1 then
+        begin
+          sql.Add(' and isnull(ChkStatus,'''')=''已送审'' ');
+        end else
+        if cxTabControl1.TabIndex=2 then
+        begin
+          sql.Add(' and isnull(ChkStatus,'''')=''审核通过'' ');
+        end;
+      end;
+      Open;
+    end;
+    SCreateCDS20(ADOQueryMain,Order_Main);
+    SInitCDSData20(ADOQueryMain,Order_Main);
+  finally
+    ADOQueryMain.EnableControls;
+  end;
+
+end;
+
+procedure TfrmClothContractListHZ.InitForm();
+var
+  FSJ:string;
+begin
+  
+  ReadCxGrid('采购合同1',Tv1,'生产合同管理');
+  EndDate.DateTime:=SGetServerDate10(ADOQueryTemp);
+  BegDate.DateTime:=EndDate.DateTime-30;
+  FSJ:='select ZdyName Name,ZdyName Code from KH_Zdy where TYpe=''JGGX'' and ZdyName not like ''%回检%'' ';
+  SInitComBoxBySql(ADOQueryTemp,ConType,False,Fsj);
+  if Trim(canshu1)='高权限' then
+  begin
+    TBSSOk.Visible:=False;
+    TBSSNO.Visible:=False;
+    TBChkNO.Visible:=True;
+    TBChkOk.Visible:=True;
+    ToolButton7.Visible:=True;
+  end else
+  begin
+    TBChkNO.Visible:=False;
+    TBChkOk.Visible:=False;
+    TBSSOk.Visible:=True;
+    TBSSNO.Visible:=True;
+    ToolButton7.Visible:=False;
+  end;
+end;
+
+procedure TfrmClothContractListHZ.TBFindClick(Sender: TObject);
+begin
+  if ADOQueryMain.Active=False then Exit;
+  SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2));
+  SCreateCDS20(ADOQueryMain,Order_Main);
+  SInitCDSData20(ADOQueryMain,Order_Main);
+end;
+
+procedure TfrmClothContractListHZ.TBEditClick(Sender: TObject);
+var
+  FInt:Integer;
+begin
+  if Order_Main.IsEmpty then Exit;
+  if Trim(canshu1)<>'高权限' then
+  begin
+    if cxPageControl1.ActivePageIndex<>1 then
+    begin
+      if Trim(Order_Main.fieldbyname('Filler').AsString)<>Trim(DName) then
+      begin
+        Application.MessageBox('不能操作他人数据!','提示',0);
+        Exit;
+      end;
+    end else
+    begin
+      if cxTabControl1.TabIndex<>0 then Exit;
+      FInt:=9;
+    end;
+  end;
+  try
+    frmClothContractInPutSXMX:=TfrmClothContractInPutSXMX.Create(Application);
+    with frmClothContractInPutSXMX do
+    begin
+      PState:=1;
+      FMainId:=Trim(Self.Order_Main.fieldbyname('MainId').AsString);
+      FConNo:=Trim(Self.Order_Main.fieldbyname('ConNo').AsString);
+      EditInt:=FInt;
+      frmClothContractInPutSXMX.canshu1:=Trim(self.canshu1);
+      if ShowModal=1 then
+      begin
+
+      end;
+    end;
+  finally
+    frmClothContractInPutSXMX.Free;
+  end;
+end;
+
+procedure TfrmClothContractListHZ.TBDelClick(Sender: TObject);
+begin
+  if Order_Main.IsEmpty then Exit;
+  if Trim(canshu1)<>'高权限' then
+  begin
+    if Trim(Order_Main.fieldbyname('Filler').AsString)<>Trim(DName) then
+    begin
+      Application.MessageBox('不能操作他人数据!','提示',0);
+      Exit;
+    end;
+  end;
+
+  with ADOQueryTemp do
+  begin
+    Close;
+    sql.Clear;
+    sql.Add('select * from JYOrder_Main_MD where COnMainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+'''');
+    Open;
+  end;
+  if ADOQueryTemp.IsEmpty=false then
+  begin
+    Application.MessageBox('已经录入码单不能删除数据!','提示',0);
+    Exit;
+  end;
+  if Application.MessageBox('确定要删除数据吗？','提示',32+4)<>IDYES then Exit;
+  if DelData() then
+  begin
+    Order_Main.Delete;
+  end;
+end;
+
+function TfrmClothContractListHZ.DelData():Boolean;
+begin
+  try
+    Result:=false;
+    ADOQueryCmd.Connection.BeginTrans;
+    with ADOQueryCmd do
+    begin
+      Close;
+      sql.Clear;
+      sql.Add('delete Contract_Sub where SubId='''+Trim(Order_Main.fieldbyname('SubId').AsString)+'''');
+      ExecSQL;
+    end;
+    with ADOQueryTemp do
+    begin
+      Close;
+      sql.Clear;
+      sql.Add('select * from Contract_Sub where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+'''');
+      Open;
+    end;
+    if ADOQueryTemp.IsEmpty then
+    begin
+      with ADOQueryCmd do
+      begin
+        Close;
+        sql.Clear;
+        sql.Add('delete Contract_Main where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+'''');
+        ExecSQL;
+      end;
+    end;
+    if Trim(Order_Main.fieldbyname('SubId').AsString)='' then
+    begin
+      with ADOQueryCmd do
+      begin
+        Close;
+        sql.Clear;
+        sql.Add('delete Contract_Main where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+'''');
+        ExecSQL;
+      end;
+    end;
+    ADOQueryCmd.Connection.CommitTrans;
+    Result:=True;
+  except
+    ADOQueryCmd.Connection.RollbackTrans;
+    Result:=False;
+    Application.MessageBox('数据删除异常！','提示',0);
+  end;
+end;
+
+procedure TfrmClothContractListHZ.TBExportClick(Sender: TObject);
+begin
+  if ADOQueryMain.IsEmpty then Exit;
+  TcxGridToExcel('坯布合同订单列表',cxGrid1);
+end;
+
+procedure TfrmClothContractListHZ.TBPrintClick(Sender: TObject);
+var
+   fPrintFile,FConNoM,RPTName:string;
+
+begin
+  if Order_Main.IsEmpty then Exit;
+  if Trim(ComboBox1.Text)='' then
+  begin
+    Application.MessageBox('报表名称不能为空!','提示',0);
+    Exit;
+  end;
+  RPTName:='Report\'+Trim(ComboBox1.Text)+'.rmf';
+ // fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\采购加工合同.rmf' ;
+  fPrintFile:= ExtractFilePath(Application.ExeName) +RPTName;
+  with ADOQueryTemp do
+  begin
+    Filtered:=False;
+    Close;
+    sql.Clear;
+    sql.Add('select A.*,B.*,Money=B.ConQty*B.ConPrice,C.*,D.KHName,D.ZKTelNo,D.ZKFax,D.ZKAddress  ');
+    sql.Add(' ,C.ZdyName,C.ZdyStr1,C.ZdyStr2,C.ZdyStr3,C.ZdyStr4');
+    sql.Add(' from Contract_Main A inner join Contract_Sub B on A.MainId=B.MainId');
+    sql.Add(' left join KH_Zdy C on A.CompanyName=C.ZdyName and C.Type=''GSTT'' ');
+    sql.Add(' left join ZH_KH_Info D on A.FactoryNo=D.ZKID');
+    sql.Add(' where A.Mainid='''+Trim(Order_Main.fieldbyname('MainId').AsString)+'''');
+    Open;
+  end;
+  SCreateCDS20(ADOQueryTemp,CDS_PRT);
+  SInitCDSData20(ADOQueryTemp,CDS_PRT);
+  if FileExists(fPrintFile) then
+  begin
+    //RMVariables['begindate']:=begindate.DateTime;
+    //RMVariables['enddate']:=enddate.DateTime;
+    //RMVariables['printtime']:=Now;
+    //RMVariables['printer']:=Trim(gUserName);
+    RM1.LoadFromFile(fPrintFile);
+    RM1.ShowReport;
+  end else
+  begin
+    Application.MessageBox(PChar('没有找'+ExtractFilePath(Application.ExeName)+RPTName),'提示',0);
+  end;
+
+end;
+
+procedure TfrmClothContractListHZ.TBRafreshClick(Sender: TObject);
+begin
+  InitGrid();
+end;
+
+procedure TfrmClothContractListHZ.TBAddClick(Sender: TObject);
+begin
+  try
+    frmClothContractInPutSXMX:=TfrmClothContractInPutSXMX.Create(Application);
+    with frmClothContractInPutSXMX do
+    begin
+      PState:=0;
+      FMainId:='';
+
+      if ShowModal=1 then
+      begin
+
+      end;
+    end;
+  finally
+    frmClothContractInPutSXMX.Free;
+  end;
+end;
+
+procedure TfrmClothContractListHZ.ConNoChange(Sender: TObject);
+begin
+  if ADOQueryMain.Active=False then Exit;
+  SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2));
+  SCreateCDS20(ADOQueryMain,Order_Main);
+  SInitCDSData20(ADOQueryMain,Order_Main);
+end;
+
+procedure TfrmClothContractListHZ.FormShow(Sender: TObject);
+begin
+  InitForm();
+end;
+
+procedure TfrmClothContractListHZ.conPress(Sender: TObject;
+  var Key: Char);
+begin
+  if Key=#13 then
+  begin
+    if Length(Trim(ConNo.Text))<3 then Exit;
+    try
+      ADOQueryMain.DisableControls;
+
+      with ADOQueryMain do
+      begin
+        Filtered:=False;
+        Close;
+        sql.Clear;
+        sql.Add('select A.*,B.*,Money=B.C_Qty*B.Price from Contract_Main A inner join Contract_Sub B on A.MainId=B.MainId ');
+        sql.Add(' where A.ConNo like '''+'%'+Trim(ConNo.text)+'%'+'''');
+
+        Open;
+      end;
+      SCreateCDS20(ADOQueryMain,Order_Main);
+      SInitCDSData20(ADOQueryMain,Order_Main);
+    finally
+      ADOQueryMain.EnableControls;
+    end;
+  end;
+end;
+
+procedure TfrmClothContractListHZ.cxPageControl1Change(Sender: TObject);
+begin
+  if cxPageControl1.ActivePageIndex=1 then
+  begin
+    cxPageControl1.Height:=46;
+    if Trim(canshu1)='高权限' then
+    begin
+      cxTabControl1.TabIndex:=1;
+    end;
+  end else
+  begin
+    cxPageControl1.Height:=23;
+  end;
+  InitGrid();
+end;
+
+procedure TfrmClothContractListHZ.ToolButton1Click(Sender: TObject);
+begin
+  if Order_Main.IsEmpty then Exit;
+  try
+    frmClothContractInPutSXMX:=TfrmClothContractInPutSXMX.Create(Application);
+    with frmClothContractInPutSXMX do
+    begin
+      PState:=1;
+      FMainId:=Trim(Self.Order_Main.fieldbyname('MainId').AsString);
+      FConNo:=Trim(Self.Order_Main.fieldbyname('ConNo').AsString);
+      PCopyInt:=1;
+      if ShowModal=1 then
+      begin
+
+      end;
+    end;
+  finally
+    frmClothContractInPutSXMX.Free;
+  end;
+end;
+
+procedure TfrmClothContractListHZ.ToolButton2Click(Sender: TObject);
+begin
+  try
+    frmClothContractInPutSXMX:=TfrmClothContractInPutSXMX.Create(Application);
+    with frmClothContractInPutSXMX do
+    begin
+      PState:=1;
+      FMainId:=Trim(Self.Order_Main.fieldbyname('MainId').AsString);
+      FConNo:=Trim(Self.Order_Main.fieldbyname('ConNo').AsString);
+      TBSave.Visible:=False;
+      ToolBar2.Visible:=False;
+      if ShowModal=1 then
+      begin
+
+      end;
+    end;
+  finally
+    frmClothContractInPutSXMX.Free;
+  end;
+end;
+
+procedure TfrmClothContractListHZ.ToolButton3Click(Sender: TObject);
+begin
+  try
+    frmModuleNote:=TfrmModuleNote.Create(Application);
+    with frmModuleNote do
+    begin
+      flag:='采购加工合同';
+      if ShowModal=1 then
+      begin
+
+      end;
+    end;
+  finally
+    frmModuleNote.Free;
+  end;
+end;
+
+procedure TfrmClothContractListHZ.FormCreate(Sender: TObject);
+begin
+  lstPat := TStringList.Create;
+  canshu1:=Trim(DParameters1);
+  cxPageControl1.ActivePageIndex:=0;
+end;
+
+procedure TfrmClothContractListHZ.ToolButton4Click(Sender: TObject);
+var
+  i,j: Integer;
+  PatFile,HZStr: String;
+  FTPPath,FConNo,MaxNo:string;
+begin
+  {if Trim(canshu1)<>'高权限' then
+  begin
+    if Trim(Order_Main.fieldbyname('Filler').AsString)<>Trim(DName) then
+    begin
+      Application.MessageBox('不能操作他人数据!','提示',0);
+      Exit;
+    end;
+  end; }
+  lstPat.Clear;
+  if ODPat.Execute then
+  begin
+    lstPat.AddStrings(ODPat.Files);
+  end;
+
+  if lstPat.Count > 0 then
+  begin
+    try
+      ReadINIFile10();
+      server:=ReadINIFileStr('SYSTEMSET.INI','SERVER','服务器地址','127.0.0.1');
+      IdFTP1.Host :=server;//PicSvr;
+      IdFTP1.Username := 'three';
+      IdFTP1.Password := '641010';
+      IdFTP1.Connect();
+    except
+      IdFTP1.Quit;
+      Application.MessageBox('无法连接到文件服务器，请检查！', '提示', MB_ICONWARNING);
+      Exit;
+    end;
+  end else
+  begin
+    Exit;
+  end;
+  Panel16.Visible:=True;
+  Panel16.Refresh;
+  with ADOQueryTemp do
+  begin
+    Close;
+    SQL.Clear;
+    SQL.Add('select isnull(Count(*),0) MM from XD_File where  ');
+    SQL.Add(' filetype=''NXHT''');
+    Open;
+    j:=fieldbyname('MM').AsInteger;
+  end;
+  try
+    ADOQueryCmd.Connection.BeginTrans;
+    for i := 0 to lstPat.Count - 1 do
+    begin
+      PatFile := ExtractFileName(lstPat[i]);
+      HZStr:=Copy(PatFile,(Pos('.',PatFile)+1),(Length(PatFile)-Pos('.',PatFile))  ) ;
+      if IdFTP1.Connected then
+      begin
+        try
+          {if not DirectoryExists('D:\图片\'+Trim(gDef1)) then
+           ForceDirectories('D:\图片\'+Trim(gDef1)); }
+         // IdFTP1.Put(lstPat[i], Trim('\SC')+'\'+Trim(PatFile));
+          if GetLSNo(ADOQueryCmd,MaxNo,'NH','XD_File',4,1)=False then
+          begin
+            ADOQueryCmd.Connection.RollbackTrans;
+            Application.MessageBox('取文件最大号失败！','提示',0);
+            Exit;
+          end;
+          IdFTP1.Put(lstPat[i], Trim('\NH')+'\'+Trim(MaxNo)+'.'+Trim(HZStr));
+          with ADOQueryCmd do
+          begin
+            Close;
+            SQL.Clear;
+            SQL.Add('select * from XD_File where 1<>1');
+            Open;
+          end;
+          with ADOQueryCmd do
+          begin
+            Append;
+            FieldByName('XFID').Value:=Trim(MaxNo);
+            FieldByName('CYID').Value:=Trim(Order_Main.fieldbyname('MainId').AsString);
+            FieldByName('CYNO').Value:=Trim(Order_Main.fieldbyname('ConNo').AsString);
+            FieldByName('filename').Value:=Trim(PatFile);
+            FieldByName('FileDate').Value:=SGetServerDate(ADOQueryTemp);
+            fieldbyname('FileType').value:=Trim('NXHT');
+            FieldByName('Filler').Value:=Trim(DName);
+            FieldByName('HZStr').Value:='.'+Trim(HZStr);
+            Post;
+          end;
+        except
+          //ADOQueryCmd.Connection.RollbackTrans;
+          //Application.MessageBox('图片上传失败！','提示',0);
+        end;
+      end;
+    end;
+    with ADOQueryCmd do
+    begin
+      Close;
+      sql.Clear;
+      sql.Add('Update Contract_Main Set FileFlag=1 where Mainid='''+Trim(Order_Main.fieldbyname('Mainid').AsString)+'''');
+      ExecSQL;
+    end;
+    ADOQueryCmd.Connection.CommitTrans;
+    if IdFTP1.Connected then IdFTP1.Quit;
+    Panel16.Visible:=False;
+    Application.MessageBox('上传成功！','提示',0);
+  except
+    ADOQueryCmd.Connection.RollbackTrans;
+    Application.MessageBox('上传失败！','提示',0);
+  end;
+end;
+procedure TfrmClothContractListHZ.ReadINIFile10();
+var
+  programIni:Tinifile;  //配置文件名
+  FileName:string;
+begin
+  FileName:=ExtractFilePath(Paramstr(0))+'SYSTEMSET.INI';
+  programIni:=Tinifile.create(FileName);
+  server:=programIni.ReadString('SERVER','服务器地址','127.0.0.1');
+  programIni.Free;
+end;
+
+procedure TfrmClothContractListHZ.ToolButton5Click(Sender: TObject);
+var
+  fHandle:THandle;
+  FInt:Integer;
+  FFName,FPath:String;
+begin
+  if Order_Main.IsEmpty then Exit;
+  if Order_Main.fieldbyname('FileFlag').AsBoolean=False then Exit;
+  Panel2.Visible:=True;
+  Panel2.Refresh;
+ { }
+  try
+    ReadINIFile10();
+    server:=ReadINIFileStr('SYSTEMSET.INI','SERVER','服务器地址','127.0.0.1');
+    if Length(server)<6 then
+    begin
+      server:='127.0.0.1';
+    end;
+    IdFTP1.Host :=server;//PicSvr;
+    IdFTP1.Username := 'three';
+    IdFTP1.Password := '641010';
+    IdFTP1.Connect();
+  except
+    IdFTP1.Quit;
+    Application.MessageBox('无法连接到文件服务器，请检查！', '提示', MB_ICONWARNING);
+    Exit;
+  end;
+  FPath:='D:\Right1209\';
+  if not DirectoryExists(ExtractFileDir(FPath)) then
+    CreateDir(ExtractFileDir(FPath));
+  with ADOQueryTemp do
+  begin
+    Close;
+    sql.Clear;
+    sql.Add('select * from XD_File where CYID='''+Trim(Order_Main.fieldbyname('MainId').AsString)+'''');
+    Open;
+  end;
+  FFName:=Trim(ADOQueryTemp.fieldbyname('XFID').AsString)+Trim(ADOQueryTemp.fieldbyname('HZStr').AsString);
+  if FileExists(FPath+FFName)=false then
+  begin
+    IdFTP1.Get('NH\'+FFName,FPath+FFName);
+  end;
+  Panel2.Visible:=False;
+  if IdFTP1.Connected then IdFTP1.Quit;
+  if FileExists(FPath+FFName) then
+  begin
+    ShellExecute(Handle, 'open',PChar(FPath+FFName),'', '', SW_SHOWNORMAL);
+  end;
+  {FFName:=Trim(CDS_SC.fieldbyname('FileName').AsString);
+
+  FFName:=FPath+FFName;
+  if FileExists(FFName)=false then
+  begin
+    IdFTP1.Get('SC\'+Trim(CDS_SC.fieldbyname('FileName').AsString),
+                   FPath+Trim(CDS_SC.fieldbyname('FileName').AsString)
+                    );
+  end;
+  Panel2.Visible:=False;
+  if IdFTP1.Connected then IdFTP1.Quit;
+  ShellExecute(Handle, 'open',PChar(FPath+Trim(CDS_SC.fieldbyname('FileName').AsString)),'', '', SW_SHOWNORMAL); }
+
+end;
+
+procedure TfrmClothContractListHZ.ToolButton6Click(Sender: TObject);
+begin
+  if Order_Main.IsEmpty then Exit;
+  if Application.MessageBox('确定要删除数据吗？','提示',32+4)<>IDYES then Exit;
+  with ADOQueryCmd do
+  begin
+    Close;
+    sql.Clear;
+    sql.Add('Update Contract_Main Set FileFlag=0 where Mainid='''+Trim(Order_Main.fieldbyname('Mainid').AsString)+'''');
+    sql.Add(' delete XD_File where CYID='''+Trim(Order_Main.fieldbyname('Mainid').AsString)+'''');
+    ExecSQL;
+  end;
+
+end;
+
+procedure TfrmClothContractListHZ.ToolButton7Click(Sender: TObject);
+begin
+  try
+    frmZDYHelp:=TfrmZDYHelp.Create(Application);
+    with frmZDYHelp do
+    begin
+      flag:='ConJYType';
+      flagname:='紧急合同原因';
+      if Trim(canshu1)<>'高权限' then
+      begin
+        frmZDYHelp.TBAdd.Visible:=False;
+        frmZDYHelp.TBEdit.Visible:=False;
+        frmZDYHelp.TBDel.Visible:=False;
+      end;
+      if ShowModal=1 then
+      begin
+
+      end;
+    end;
+  finally
+    frmZDYHelp.Free;
+  end;
+end;
+
+procedure TfrmClothContractListHZ.TBSSOkClick(Sender: TObject);
+begin
+  if cxPageControl1.ActivePageIndex<>1 then Exit;
+  if cxTabControl1.TabIndex<>0 then Exit;
+  if Order_Main.IsEmpty then Exit;
+  if Application.MessageBox('确定要送审数据吗？','提示',32+4)<>IDYES then Exit;
+  with ADOQueryCmd do
+  begin
+    Close;
+    sql.Clear;
+    SQL.Add('Update Contract_Main Set ChkStatus=''已送审'',SSPerson='''+Trim(DName)+'''');
+    sql.Add(',SSTime=getdate() where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+'''');
+    ExecSQL;
+  end;
+  Order_Main.Delete;
+end;
+
+procedure TfrmClothContractListHZ.TBSSNOClick(Sender: TObject);
+begin
+  if cxPageControl1.ActivePageIndex<>1 then Exit;
+  if cxTabControl1.TabIndex<>1 then Exit;
+  if Order_Main.IsEmpty then Exit;
+  with ADOQueryTemp do
+  begin
+    Close;
+    sql.Clear;
+    sql.Add('select * from Contract_Main where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+'''');
+    sql.Add(' and isnull(ChkStatus,'''')=''审核通过'' ');
+    Open;
+  end;
+  if ADOQueryTemp.IsEmpty=False then
+  begin
+    Application.MessageBox('紧急合同已审核通过不能撤销!','提示',0);
+    Exit;
+  end;
+  if Application.MessageBox('确定要撤销送审数据吗？','提示',32+4)<>IDYES then Exit;
+  with ADOQueryCmd do
+  begin
+    Close;
+    sql.Clear;
+    SQL.Add('Update Contract_Main Set ChkStatus='''',SSPerson='''' ');
+    sql.Add(',SSTime=Null where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+'''');
+    ExecSQL;
+  end;
+  Order_Main.Delete;
+end;
+
+procedure TfrmClothContractListHZ.TBChkOkClick(Sender: TObject);
+begin
+  if cxPageControl1.ActivePageIndex<>1 then Exit;
+  if cxTabControl1.TabIndex<>1 then Exit;
+  if Order_Main.IsEmpty then Exit;
+  if Application.MessageBox('确定要执行此操作吗？','提示',32+4)<>IDYES then Exit;
+  with ADOQueryCmd do
+  begin
+    Close;
+    sql.Clear;
+    SQL.Add('Update Contract_Main Set ChkStatus=''审核通过'',Chker='''+Trim(DName)+'''');
+    sql.Add(',ChkTIme=getdate() where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+'''');
+    ExecSQL;
+  end;
+  Order_Main.Delete;
+end;
+
+procedure TfrmClothContractListHZ.TBChkNOClick(Sender: TObject);
+begin
+  if cxPageControl1.ActivePageIndex<>1 then Exit;
+  if cxTabControl1.TabIndex<>2 then Exit;
+  if Order_Main.IsEmpty then Exit;
+  if Application.MessageBox('确定要执行审核撤销操作吗？','提示',32+4)<>IDYES then Exit;
+  with ADOQueryCmd do
+  begin
+    Close;
+    sql.Clear;
+    SQL.Add('Update Contract_Main Set ChkStatus=''已送审'',Chker='''' ');
+    sql.Add(',ChkTIme=Null where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+'''');
+    ExecSQL;
+  end;
+  Order_Main.Delete;
+end;
+
+procedure TfrmClothContractListHZ.cxTabControl1Change(Sender: TObject);
+begin
+  InitGrid();
+end;
+
+procedure TfrmClothContractListHZ.ToolButton8Click(Sender: TObject);
+begin
+  if Order_Main.IsEmpty then Exit;
+  TcxGridToExcel('采购加工合同',cxGrid1);
+end;
+
+end.

坯布码单待检(PBMDDJ.dll)/U_ClothContractListHZCX.dfm

@@ -0,0 +1,509 @@
+object frmClothContractListHZCX: TfrmClothContractListHZCX
+  Left = 88
+  Top = 120
+  Width = 1242
+  Height = 536
+  Caption = #37319#36141#21512#21516
+  Color = clBtnFace
+  Font.Charset = GB2312_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -12
+  Font.Name = #23435#20307
+  Font.Style = []
+  OldCreateOrder = False
+  OnClose = FormClose
+  OnDestroy = FormDestroy
+  OnShow = FormShow
+  PixelsPerInch = 96
+  TextHeight = 12
+  object ToolBar1: TToolBar
+    Left = 0
+    Top = 0
+    Width = 1226
+    AutoSize = True
+    ButtonHeight = 30
+    ButtonWidth = 59
+    Caption = 'ToolBar1'
+    Color = clSkyBlue
+    Flat = True
+    Font.Charset = GB2312_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -12
+    Font.Name = #23435#20307
+    Font.Style = []
+    Images = DataLink_DDMD.ThreeImgList
+    List = True
+    ParentColor = False
+    ParentFont = False
+    ShowCaptions = True
+    TabOrder = 0
+    object TBRafresh: TToolButton
+      Left = 0
+      Top = 0
+      AutoSize = True
+      Caption = #21047#26032
+      ImageIndex = 0
+      OnClick = TBRafreshClick
+    end
+    object TBFind: TToolButton
+      Left = 63
+      Top = 0
+      AutoSize = True
+      Caption = #36807#28388
+      ImageIndex = 20
+      OnClick = TBFindClick
+    end
+    object TBAdd: TToolButton
+      Left = 126
+      Top = 0
+      AutoSize = True
+      Caption = #26032#22686
+      ImageIndex = 1
+      Visible = False
+      OnClick = TBAddClick
+    end
+    object TBEdit: TToolButton
+      Left = 189
+      Top = 0
+      AutoSize = True
+      Caption = #20462#25913
+      ImageIndex = 11
+      Visible = False
+      OnClick = TBEditClick
+    end
+    object ToolButton1: TToolButton
+      Left = 252
+      Top = 0
+      AutoSize = True
+      Caption = #22797#21046
+      ImageIndex = 38
+      Visible = False
+      OnClick = ToolButton1Click
+    end
+    object ToolButton2: TToolButton
+      Left = 315
+      Top = 0
+      Caption = #26597#30475
+      ImageIndex = 39
+      OnClick = ToolButton2Click
+    end
+    object TBDel: TToolButton
+      Left = 374
+      Top = 0
+      AutoSize = True
+      Caption = #21024#38500
+      ImageIndex = 3
+      Visible = False
+      OnClick = TBDelClick
+    end
+    object TBExport: TToolButton
+      Left = 437
+      Top = 0
+      AutoSize = True
+      Caption = #23548#20986
+      ImageIndex = 6
+      Visible = False
+      OnClick = TBExportClick
+    end
+    object TBPrint: TToolButton
+      Left = 500
+      Top = 0
+      AutoSize = True
+      Caption = #25171#21360
+      ImageIndex = 4
+      Visible = False
+      OnClick = TBPrintClick
+    end
+    object TBClose: TToolButton
+      Left = 563
+      Top = 0
+      AutoSize = True
+      Caption = #20851#38381
+      ImageIndex = 21
+      OnClick = TBCloseClick
+    end
+  end
+  object Panel1: TPanel
+    Left = 0
+    Top = 32
+    Width = 1226
+    Height = 54
+    Align = alTop
+    BevelInner = bvRaised
+    BevelOuter = bvLowered
+    Color = clSkyBlue
+    TabOrder = 1
+    object Label1: TLabel
+      Left = 23
+      Top = 22
+      Width = 52
+      Height = 12
+      Caption = #26597#35810#26085#26399
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label2: TLabel
+      Left = 161
+      Top = 22
+      Width = 18
+      Height = 12
+      Caption = '---'
+    end
+    object Label3: TLabel
+      Left = 283
+      Top = 22
+      Width = 39
+      Height = 12
+      Caption = #35746#21333#21495
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label5: TLabel
+      Left = 425
+      Top = 22
+      Width = 52
+      Height = 12
+      Caption = #20135#21697#32534#21495
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label4: TLabel
+      Left = 581
+      Top = 22
+      Width = 39
+      Height = 12
+      Caption = #20379#24212#21830
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label14: TLabel
+      Left = 726
+      Top = 22
+      Width = 52
+      Height = 12
+      Caption = #21512#21516#31867#22411
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object BegDate: TDateTimePicker
+      Left = 76
+      Top = 18
+      Width = 85
+      Height = 20
+      Date = 40675.464742650460000000
+      Format = 'yyyy-MM-dd'
+      Time = 40675.464742650460000000
+      TabOrder = 0
+    end
+    object EndDate: TDateTimePicker
+      Left = 179
+      Top = 18
+      Width = 86
+      Height = 20
+      Date = 40675.464761099540000000
+      Format = 'yyyy-MM-dd'
+      Time = 40675.464761099540000000
+      TabOrder = 1
+    end
+    object ConNo: TEdit
+      Tag = 2
+      Left = 323
+      Top = 18
+      Width = 81
+      Height = 20
+      TabOrder = 2
+      OnChange = ConNoChange
+      OnKeyPress = conPress
+    end
+    object C_Code: TEdit
+      Tag = 2
+      Left = 478
+      Top = 18
+      Width = 83
+      Height = 20
+      TabOrder = 3
+      OnChange = ConNoChange
+    end
+    object FactoryNoName: TEdit
+      Tag = 2
+      Left = 620
+      Top = 18
+      Width = 83
+      Height = 20
+      TabOrder = 4
+      OnChange = ConNoChange
+    end
+    object ConType: TComboBox
+      Tag = 1
+      Left = 780
+      Top = 18
+      Width = 84
+      Height = 20
+      Style = csDropDownList
+      ItemHeight = 12
+      TabOrder = 5
+      OnChange = ConNoChange
+      Items.Strings = (
+        #22383#32433#21512#21516
+        #26579#32433#21512#21516
+        #32455#36896#21512#21516
+        #22383#24067#21512#21516
+        #26579#33394#21512#21516
+        #21360#33457#21512#21516
+        #21518#21152#24037#21512#21516
+        #25104#21697#21512#21516
+        '')
+    end
+  end
+  object cxGrid1: TcxGrid
+    Left = 0
+    Top = 86
+    Width = 1226
+    Height = 411
+    Align = alClient
+    TabOrder = 2
+    object Tv1: TcxGridDBTableView
+      NavigatorButtons.ConfirmDelete = False
+      DataController.DataSource = DataSource1
+      DataController.Summary.DefaultGroupSummaryItems = <>
+      DataController.Summary.FooterSummaryItems = <
+        item
+          Kind = skSum
+          Column = v1PRTOrderQty
+        end
+        item
+          Kind = skSum
+          Column = v1PRTQty
+        end>
+      DataController.Summary.SummaryGroups = <>
+      OptionsCustomize.ColumnFiltering = False
+      OptionsData.Editing = False
+      OptionsSelection.CellSelect = False
+      OptionsView.Footer = True
+      OptionsView.GroupByBox = False
+      Styles.Inactive = DataLink_DDMD.SHuangSe
+      Styles.IncSearch = DataLink_DDMD.SHuangSe
+      Styles.Selection = DataLink_DDMD.SHuangSe
+      object v1OrderNo: TcxGridDBColumn
+        Caption = #35746#21333#21495
+        DataBinding.FieldName = 'ConNo'
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_DDMD.Default
+        Width = 65
+      end
+      object v1Column3: TcxGridDBColumn
+        Caption = #21512#21516#31867#22411
+        DataBinding.FieldName = 'ConType'
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_DDMD.Default
+        Width = 82
+      end
+      object v1Column5: TcxGridDBColumn
+        Caption = #31614#35746#26085#26399
+        DataBinding.FieldName = 'QDTime'
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_DDMD.Default
+        Width = 70
+      end
+      object v1DeliveryDate: TcxGridDBColumn
+        Caption = #20132#36135#26085#26399
+        DataBinding.FieldName = 'DLYDate'
+        PropertiesClassName = 'TcxDateEditProperties'
+        Properties.SaveTime = False
+        Properties.ShowTime = False
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_DDMD.Default
+        Width = 68
+      end
+      object v1Column8: TcxGridDBColumn
+        Caption = #20135#21697#32534#21495
+        DataBinding.FieldName = 'C_Code'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Styles.Header = DataLink_DDMD.Default
+        Width = 71
+      end
+      object v1Column2: TcxGridDBColumn
+        Caption = #20135#21697#21517#31216
+        DataBinding.FieldName = 'C_CodeName'
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_DDMD.Default
+        Width = 71
+      end
+      object v1PRTSpec: TcxGridDBColumn
+        Caption = #35268#26684
+        DataBinding.FieldName = 'C_Spec'
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_DDMD.Default
+        Width = 74
+      end
+      object v1FactoryNo1Name: TcxGridDBColumn
+        Caption = #20379#24212#21830
+        DataBinding.FieldName = 'FactoryNoName'
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_DDMD.Default
+        Width = 76
+      end
+      object v1Qty1: TcxGridDBColumn
+        Caption = #21305#25968
+        DataBinding.FieldName = 'Qty1'
+        Visible = False
+        HeaderAlignmentHorz = taCenter
+        Hidden = True
+        Styles.Header = DataLink_DDMD.Default
+        Width = 46
+      end
+      object v1PRTOrderQty: TcxGridDBColumn
+        Caption = #25968#37327
+        DataBinding.FieldName = 'C_Qty'
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_DDMD.Default
+        Width = 58
+      end
+      object v1OrderUnit: TcxGridDBColumn
+        Caption = #21333#20301
+        DataBinding.FieldName = 'C_Unit'
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_DDMD.Default
+        Width = 47
+      end
+      object v1Column1: TcxGridDBColumn
+        Caption = #21333#20215
+        DataBinding.FieldName = 'Price'
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_DDMD.Default
+        Width = 57
+      end
+      object v1PRTQty: TcxGridDBColumn
+        Caption = #24635#20215
+        DataBinding.FieldName = 'Money'
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_DDMD.Default
+        Width = 58
+      end
+      object v1Column4: TcxGridDBColumn
+        Caption = #22791#27880
+        DataBinding.FieldName = 'C_Note'
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_DDMD.Default
+        Width = 118
+      end
+      object v1Column6: TcxGridDBColumn
+        Caption = #30331#35760#20154
+        DataBinding.FieldName = 'Filler'
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_DDMD.Default
+        Width = 69
+      end
+      object v1Column7: TcxGridDBColumn
+        Caption = #30331#35760#26102#38388
+        DataBinding.FieldName = 'FillTime'
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_DDMD.Default
+        Width = 77
+      end
+    end
+    object cxGrid1Level1: TcxGridLevel
+      GridView = Tv1
+    end
+  end
+  object cxGridPopupMenu1: TcxGridPopupMenu
+    PopupMenus = <>
+    Left = 1128
+  end
+  object ADOQueryCmd: TADOQuery
+    Connection = DataLink_DDMD.ADOLink
+    Parameters = <>
+    Left = 936
+  end
+  object ADOQueryMain: TADOQuery
+    Connection = DataLink_DDMD.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 1000
+  end
+  object ADOQueryTemp: TADOQuery
+    Connection = DataLink_DDMD.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 1040
+    Top = 8
+  end
+  object DataSource1: TDataSource
+    DataSet = Order_Main
+    Left = 1168
+    Top = 8
+  end
+  object Order_Main: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 1096
+    Top = 8
+  end
+  object RM1: TRMGridReport
+    ThreadPrepareReport = True
+    InitialZoom = pzDefault
+    PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbSaveToXLS, pbExport, pbNavigator]
+    DefaultCollate = False
+    SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\'
+    PreviewOptions.RulerUnit = rmutScreenPixels
+    PreviewOptions.RulerVisible = False
+    PreviewOptions.DrawBorder = False
+    PreviewOptions.BorderPen.Color = clGray
+    PreviewOptions.BorderPen.Style = psDash
+    Dataset = RMDBMain
+    CompressLevel = rmzcFastest
+    CompressThread = False
+    LaterBuildEvents = True
+    OnlyOwnerDataSet = False
+    Left = 352
+    Top = 192
+    ReportData = {}
+  end
+  object RMDBMain: TRMDBDataSet
+    Visible = True
+    DataSet = CDS_PRT
+    Left = 400
+    Top = 192
+  end
+  object RMXLSExport1: TRMXLSExport
+    ShowAfterExport = True
+    ExportPrecision = 1
+    PagesOfSheet = 1
+    ExportImages = True
+    ExportFrames = True
+    ExportImageFormat = ifBMP
+    JPEGQuality = 0
+    ScaleX = 1.000000000000000000
+    ScaleY = 1.000000000000000000
+    CompressFile = False
+    Left = 416
+    Top = 248
+  end
+  object CDS_PRT: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 968
+    Top = 56
+  end
+end

坯布码单待检(PBMDDJ.dll)/U_ClothContractListHZCX.pas

@@ -0,0 +1,399 @@
+unit U_ClothContractListHZCX;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, StdCtrls, ExtCtrls, ComCtrls, ToolWin, cxStyles, cxCustomData,
+  cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, ADODB,
+  cxGridCustomPopupMenu, cxGridPopupMenu, cxGridLevel, cxClasses,
+  cxControls, cxGridCustomView, cxGridCustomTableView, cxGridTableView,
+  cxGridDBTableView, cxGrid, DBClient, cxCalendar, cxButtonEdit, cxSplitter,
+  RM_Common, RM_Class, RM_e_Xls, RM_Dataset, RM_System, RM_GridReport,
+  cxTextEdit, cxPC;
+
+type
+  TfrmClothContractListHZCX = class(TForm)
+    ToolBar1: TToolBar;
+    TBRafresh: TToolButton;
+    TBFind: TToolButton;
+    TBAdd: TToolButton;
+    TBEdit: TToolButton;
+    TBDel: TToolButton;
+    TBPrint: TToolButton;
+    TBClose: TToolButton;
+    Panel1: TPanel;
+    BegDate: TDateTimePicker;
+    EndDate: TDateTimePicker;
+    Label1: TLabel;
+    Label2: TLabel;
+    cxGridPopupMenu1: TcxGridPopupMenu;
+    ADOQueryCmd: TADOQuery;
+    ADOQueryMain: TADOQuery;
+    ADOQueryTemp: TADOQuery;
+    DataSource1: TDataSource;
+    Label3: TLabel;
+    ConNo: TEdit;
+    TBExport: TToolButton;
+    Order_Main: TClientDataSet;
+    RM1: TRMGridReport;
+    RMDBMain: TRMDBDataSet;
+    RMXLSExport1: TRMXLSExport;
+    CDS_PRT: TClientDataSet;
+    ToolButton1: TToolButton;
+    cxGrid1: TcxGrid;
+    Tv1: TcxGridDBTableView;
+    v1OrderNo: TcxGridDBColumn;
+    v1Column2: TcxGridDBColumn;
+    v1DeliveryDate: TcxGridDBColumn;
+    v1Column5: TcxGridDBColumn;
+    v1FactoryNo1Name: TcxGridDBColumn;
+    v1PRTSpec: TcxGridDBColumn;
+    v1Qty1: TcxGridDBColumn;
+    v1PRTOrderQty: TcxGridDBColumn;
+    v1OrderUnit: TcxGridDBColumn;
+    v1Column1: TcxGridDBColumn;
+    v1PRTQty: TcxGridDBColumn;
+    v1Column4: TcxGridDBColumn;
+    cxGrid1Level1: TcxGridLevel;
+    v1Column3: TcxGridDBColumn;
+    ToolButton2: TToolButton;
+    v1Column6: TcxGridDBColumn;
+    v1Column7: TcxGridDBColumn;
+    Label5: TLabel;
+    Label4: TLabel;
+    Label14: TLabel;
+    C_Code: TEdit;
+    FactoryNoName: TEdit;
+    ConType: TComboBox;
+    v1Column8: TcxGridDBColumn;
+    procedure FormDestroy(Sender: TObject);
+    procedure FormClose(Sender: TObject; var Action: TCloseAction);
+    procedure TBCloseClick(Sender: TObject);
+    procedure TBFindClick(Sender: TObject);
+    procedure TBEditClick(Sender: TObject);
+    procedure TBDelClick(Sender: TObject);
+    procedure TBExportClick(Sender: TObject);
+    procedure TBPrintClick(Sender: TObject);
+    procedure TBRafreshClick(Sender: TObject);
+    procedure TBAddClick(Sender: TObject);
+    procedure ConNoChange(Sender: TObject);
+    procedure FormShow(Sender: TObject);
+    procedure conPress(Sender: TObject; var Key: Char);
+    procedure cxPageControl1Change(Sender: TObject);
+    procedure ToolButton1Click(Sender: TObject);
+    procedure ToolButton2Click(Sender: TObject);
+  private
+    FInt,PFInt:Integer;
+    procedure InitGrid();
+    procedure InitForm();
+    function  DelData():Boolean;
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+var
+  frmClothContractListHZCX: TfrmClothContractListHZCX;
+
+implementation
+uses
+  U_DataLink,U_RTFun,U_ClothContractInPutSXMX
+  {U_ClothContractInPutSX,
+  U_ProductOrderList,U_ZDYHelp,
+  ,U_ClothContractInPutHZ,U_ClothContractInPutPB};
+
+{$R *.dfm}
+
+procedure TfrmClothContractListHZCX.FormDestroy(Sender: TObject);
+begin
+  frmClothContractListHZCX:=nil;
+end;
+
+procedure TfrmClothContractListHZCX.FormClose(Sender: TObject;
+  var Action: TCloseAction);
+begin
+  Action:=caFree;
+end;
+
+procedure TfrmClothContractListHZCX.TBCloseClick(Sender: TObject);
+begin
+  Close;
+  WriteCxGrid('采购合同',Tv1,'生产合同管理');
+end;
+
+procedure TfrmClothContractListHZCX.InitGrid();
+begin
+  try
+    ADOQueryMain.DisableControls;
+    with ADOQueryMain do
+    begin
+      Filtered:=False;
+      Close;
+      sql.Clear;
+      sql.Add('select A.*,B.*,Money=B.C_Qty*B.Price from Contract_Main A inner join Contract_Sub B on A.MainId=B.MainId ');
+      sql.Add(' where A.FillTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+'''');
+      sql.Add(' and A.FillTime<'''+Trim(FormatDateTime('yyyy-MM-dd',EndDate.DateTime+1))+'''');
+      Open;
+    end;
+    SCreateCDS20(ADOQueryMain,Order_Main);
+    SInitCDSData20(ADOQueryMain,Order_Main);
+  finally
+    ADOQueryMain.EnableControls;
+  end;
+
+end;
+
+procedure TfrmClothContractListHZCX.InitForm();
+var
+  FSJ:string;
+begin
+  ReadCxGrid('采购合同',Tv1,'生产合同管理');
+  EndDate.DateTime:=SGetServerDate10(ADOQueryTemp);
+  BegDate.DateTime:=EndDate.DateTime-30;
+  FSJ:='select ZdyName Name,ZdyName Code from KH_Zdy where TYpe=''JGGX'' and ZdyName not like ''%回检%'' ';
+  SInitComBoxBySql(ADOQueryTemp,ConType,False,Fsj);
+end;
+
+procedure TfrmClothContractListHZCX.TBFindClick(Sender: TObject);
+begin
+  if ADOQueryMain.Active=False then Exit;
+  SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2));
+  SCreateCDS20(ADOQueryMain,Order_Main);
+  SInitCDSData20(ADOQueryMain,Order_Main);
+end;
+
+procedure TfrmClothContractListHZCX.TBEditClick(Sender: TObject);
+begin
+  try
+    frmClothContractInPutSXMX:=TfrmClothContractInPutSXMX.Create(Application);
+    with frmClothContractInPutSXMX do
+    begin
+      PState:=1;
+      FMainId:=Trim(Self.Order_Main.fieldbyname('MainId').AsString);
+      FConNo:=Trim(Self.Order_Main.fieldbyname('ConNo').AsString);
+      if ShowModal=1 then
+      begin
+
+      end;
+    end;
+  finally
+    frmClothContractInPutSXMX.Free;
+  end;
+end;
+
+procedure TfrmClothContractListHZCX.TBDelClick(Sender: TObject);
+begin
+  if Order_Main.IsEmpty then Exit;
+  if Application.MessageBox('确定要删除数据吗？','提示',32+4)<>IDYES then Exit;
+  if DelData() then
+  begin
+    Order_Main.Delete;
+  end;
+end;
+
+function TfrmClothContractListHZCX.DelData():Boolean;
+begin
+  try
+    Result:=false;
+    ADOQueryCmd.Connection.BeginTrans;
+    with ADOQueryCmd do
+    begin
+      Close;
+      sql.Clear;
+      sql.Add('delete Contract_Sub where SubId='''+Trim(Order_Main.fieldbyname('SubId').AsString)+'''');
+      ExecSQL;
+    end;
+    with ADOQueryTemp do
+    begin
+      Close;
+      sql.Clear;
+      sql.Add('select * from Contract_Sub where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+'''');
+      Open;
+    end;
+    if ADOQueryTemp.IsEmpty then
+    begin
+      with ADOQueryCmd do
+      begin
+        Close;
+        sql.Clear;
+        sql.Add('delete Contract_Main where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+'''');
+        ExecSQL;
+      end;
+    end;
+    if Trim(Order_Main.fieldbyname('SubId').AsString)='' then
+    begin
+      with ADOQueryCmd do
+      begin
+        Close;
+        sql.Clear;
+        sql.Add('delete Contract_Main where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+'''');
+        ExecSQL;
+      end;
+    end;
+    ADOQueryCmd.Connection.CommitTrans;
+    Result:=True;
+  except
+    ADOQueryCmd.Connection.RollbackTrans;
+    Result:=False;
+    Application.MessageBox('数据删除异常！','提示',0);
+  end;
+end;
+
+procedure TfrmClothContractListHZCX.TBExportClick(Sender: TObject);
+begin
+  if ADOQueryMain.IsEmpty then Exit;
+  TcxGridToExcel('坯布合同订单列表',cxGrid1);
+end;
+
+procedure TfrmClothContractListHZCX.TBPrintClick(Sender: TObject);
+var
+   fPrintFile,FConNoM:string;
+
+begin
+  if Order_Main.IsEmpty then Exit;
+  fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\纱线订购合同.rmf' ;
+  with ADOQueryTemp do
+  begin
+    Filtered:=False;
+    Close;
+    sql.Clear;
+    sql.Add('exec ClothContractSX_QryList :MainId,:WSql');
+    Parameters.ParamByName('WSql').Value:=' and FillTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+''''
+                                         +' and FillTime<'''+Trim(FormatDateTime('yyyy-MM-dd',EndDate.DateTime+1))+'''';
+    Parameters.ParamByName('MainId').Value:=Trim(Order_Main.fieldbyname('MainId').AsString);
+    Parameters.ParamByName('WSql').Value:='';
+    Open;
+  end;
+  SCreateCDS20(ADOQueryTemp,CDS_PRT);
+  SInitCDSData20(ADOQueryTemp,CDS_PRT);
+  FConNoM:=Trim(CDS_PRT.fieldbyname('ConNoM').AsString);
+
+
+  if FileExists(fPrintFile) then
+  begin
+    //RMVariables['begindate']:=begindate.DateTime;
+    //RMVariables['enddate']:=enddate.DateTime;
+    //RMVariables['printtime']:=Now;
+    //RMVariables['printer']:=Trim(gUserName);
+    RM1.LoadFromFile(fPrintFile);
+    RM1.ShowReport;
+  end else
+  begin
+    Application.MessageBox(PChar('没有找'+ExtractFilePath(Application.ExeName)+'Report\相对应的合同报表.rmf'),'提示',0);
+  end;
+
+end;
+
+procedure TfrmClothContractListHZCX.TBRafreshClick(Sender: TObject);
+begin
+  InitGrid();
+end;
+
+procedure TfrmClothContractListHZCX.TBAddClick(Sender: TObject);
+begin
+  try
+    frmClothContractInPutSXMX:=TfrmClothContractInPutSXMX.Create(Application);
+    with frmClothContractInPutSXMX do
+    begin
+      PState:=0;
+      FMainId:='';
+
+      if ShowModal=1 then
+      begin
+
+      end;
+    end;
+  finally
+    frmClothContractInPutSXMX.Free;
+  end;
+end;
+
+procedure TfrmClothContractListHZCX.ConNoChange(Sender: TObject);
+begin
+  if ADOQueryMain.Active=False then Exit;
+  SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2));
+  SCreateCDS20(ADOQueryMain,Order_Main);
+  SInitCDSData20(ADOQueryMain,Order_Main);
+end;
+
+procedure TfrmClothContractListHZCX.FormShow(Sender: TObject);
+begin
+  InitForm();
+end;
+
+procedure TfrmClothContractListHZCX.conPress(Sender: TObject;
+  var Key: Char);
+begin
+  if Key=#13 then
+  begin
+    if Length(Trim(ConNo.Text))<3 then Exit;
+    try
+      ADOQueryMain.DisableControls;
+
+      with ADOQueryMain do
+      begin
+        Filtered:=False;
+        Close;
+        sql.Clear;
+        sql.Add('select A.*,B.*,Money=B.C_Qty*B.Price from Contract_Main A inner join Contract_Sub B on A.MainId=B.MainId ');
+        sql.Add(' where A.ConNo like '''+'%'+Trim(ConNo.text)+'%'+'''');
+
+        Open;
+      end;
+      SCreateCDS20(ADOQueryMain,Order_Main);
+      SInitCDSData20(ADOQueryMain,Order_Main);
+    finally
+      ADOQueryMain.EnableControls;
+    end;
+  end;
+end;
+
+procedure TfrmClothContractListHZCX.cxPageControl1Change(Sender: TObject);
+begin
+ // InitGrid();
+end;
+
+procedure TfrmClothContractListHZCX.ToolButton1Click(Sender: TObject);
+begin
+  if Order_Main.IsEmpty then Exit;
+  try
+    frmClothContractInPutSXMX:=TfrmClothContractInPutSXMX.Create(Application);
+    with frmClothContractInPutSXMX do
+    begin
+      PState:=1;
+      FMainId:=Trim(Self.Order_Main.fieldbyname('MainId').AsString);
+      FConNo:=Trim(Self.Order_Main.fieldbyname('ConNo').AsString);
+      PCopyInt:=1;
+      if ShowModal=1 then
+      begin
+
+      end;
+    end;
+  finally
+    frmClothContractInPutSXMX.Free;
+  end;
+end;
+
+procedure TfrmClothContractListHZCX.ToolButton2Click(Sender: TObject);
+begin
+  try
+    frmClothContractInPutSXMX:=TfrmClothContractInPutSXMX.Create(Application);
+    with frmClothContractInPutSXMX do
+    begin
+      PState:=1;
+      FMainId:=Trim(Self.Order_Main.fieldbyname('MainId').AsString);
+      FConNo:=Trim(Self.Order_Main.fieldbyname('ConNo').AsString);
+      TBSave.Visible:=False;
+      ToolBar2.Visible:=False;
+      if ShowModal=1 then
+      begin
+
+      end;
+    end;
+  finally
+    frmClothContractInPutSXMX.Free;
+  end;
+end;
+
+end.

坯布码单待检(PBMDDJ.dll)/U_ClothContractListHZHelp.pas

@@ -0,0 +1,594 @@
+unit U_ClothContractListHZHelp;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, StdCtrls, ExtCtrls, ComCtrls, ToolWin, cxStyles, cxCustomData,
+  cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, ADODB,
+  cxGridCustomPopupMenu, cxGridPopupMenu, cxGridLevel, cxClasses,
+  cxControls, cxGridCustomView, cxGridCustomTableView, cxGridTableView,
+  cxGridDBTableView, cxGrid, DBClient, cxCalendar, cxButtonEdit, cxSplitter,
+  RM_Common, RM_Class, RM_e_Xls, RM_Dataset, RM_System, RM_GridReport,
+  cxTextEdit, cxPC;
+
+type
+  TfrmClothContractListHZHelp = class(TForm)
+    ToolBar1: TToolBar;
+    TBRafresh: TToolButton;
+    TBFind: TToolButton;
+    TBClose: TToolButton;
+    Panel1: TPanel;
+    BegDate: TDateTimePicker;
+    EndDate: TDateTimePicker;
+    Label1: TLabel;
+    Label2: TLabel;
+    cxGridPopupMenu1: TcxGridPopupMenu;
+    ADOQueryCmd: TADOQuery;
+    ADOQueryMain: TADOQuery;
+    ADOQueryTemp: TADOQuery;
+    DataSource1: TDataSource;
+    Label3: TLabel;
+    ConNoM: TEdit;
+    Label5: TLabel;
+    C_CodeNameM: TEdit;
+    TBExport: TToolButton;
+    Order_Main: TClientDataSet;
+    Label4: TLabel;
+    C_Spec: TEdit;
+    RM1: TRMGridReport;
+    RMDBMain: TRMDBDataSet;
+    RMXLSExport1: TRMXLSExport;
+    CDS_PRT: TClientDataSet;
+    cxPageControl1: TcxPageControl;
+    cxTabSheet1: TcxTabSheet;
+    cxTabSheet2: TcxTabSheet;
+    cxTabSheet3: TcxTabSheet;
+    cxTabSheet4: TcxTabSheet;
+    cxTabSheet5: TcxTabSheet;
+    cxGrid2: TcxGrid;
+    Tv2: TcxGridDBTableView;
+    cxGridDBColumn1: TcxGridDBColumn;
+    cxGridDBColumn2: TcxGridDBColumn;
+    cxGridDBColumn3: TcxGridDBColumn;
+    cxGridDBColumn5: TcxGridDBColumn;
+    cxGridDBColumn6: TcxGridDBColumn;
+    cxGridDBColumn7: TcxGridDBColumn;
+    cxGridDBColumn8: TcxGridDBColumn;
+    cxGridDBColumn9: TcxGridDBColumn;
+    cxGridDBColumn10: TcxGridDBColumn;
+    cxGridDBColumn11: TcxGridDBColumn;
+    cxGridDBColumn12: TcxGridDBColumn;
+    cxGridDBColumn13: TcxGridDBColumn;
+    cxGridLevel1: TcxGridLevel;
+    cxGrid4: TcxGrid;
+    Tv4: TcxGridDBTableView;
+    cxGridDBColumn26: TcxGridDBColumn;
+    cxGridDBColumn27: TcxGridDBColumn;
+    cxGridDBColumn28: TcxGridDBColumn;
+    cxGridDBColumn29: TcxGridDBColumn;
+    cxGridDBColumn30: TcxGridDBColumn;
+    cxGridDBColumn31: TcxGridDBColumn;
+    cxGridDBColumn32: TcxGridDBColumn;
+    cxGridDBColumn33: TcxGridDBColumn;
+    cxGridDBColumn34: TcxGridDBColumn;
+    cxGridDBColumn35: TcxGridDBColumn;
+    cxGridDBColumn36: TcxGridDBColumn;
+    cxGridDBColumn37: TcxGridDBColumn;
+    cxGridLevel3: TcxGridLevel;
+    cxGrid5: TcxGrid;
+    Tv5: TcxGridDBTableView;
+    cxGridDBColumn38: TcxGridDBColumn;
+    cxGridDBColumn39: TcxGridDBColumn;
+    cxGridDBColumn40: TcxGridDBColumn;
+    cxGridDBColumn41: TcxGridDBColumn;
+    cxGridDBColumn42: TcxGridDBColumn;
+    cxGridDBColumn43: TcxGridDBColumn;
+    cxGridDBColumn44: TcxGridDBColumn;
+    cxGridDBColumn45: TcxGridDBColumn;
+    cxGridDBColumn46: TcxGridDBColumn;
+    cxGridDBColumn47: TcxGridDBColumn;
+    cxGridDBColumn48: TcxGridDBColumn;
+    cxGridDBColumn49: TcxGridDBColumn;
+    cxGridLevel4: TcxGridLevel;
+    cxGrid3: TcxGrid;
+    Tv3: TcxGridDBTableView;
+    cxGridDBColumn4: TcxGridDBColumn;
+    cxGridDBColumn14: TcxGridDBColumn;
+    cxGridDBColumn15: TcxGridDBColumn;
+    cxGridDBColumn16: TcxGridDBColumn;
+    cxGridDBColumn17: TcxGridDBColumn;
+    cxGridDBColumn18: TcxGridDBColumn;
+    v1PRTMF: TcxGridDBColumn;
+    v1PRTKZ: TcxGridDBColumn;
+    cxGridDBColumn19: TcxGridDBColumn;
+    cxGridDBColumn20: TcxGridDBColumn;
+    cxGridDBColumn21: TcxGridDBColumn;
+    cxGridDBColumn22: TcxGridDBColumn;
+    cxGridDBColumn23: TcxGridDBColumn;
+    cxGridDBColumn24: TcxGridDBColumn;
+    cxGridDBColumn25: TcxGridDBColumn;
+    cxGridLevel2: TcxGridLevel;
+    cxTabSheet6: TcxTabSheet;
+    cxGrid6: TcxGrid;
+    Tv6: TcxGridDBTableView;
+    cxGridDBColumn50: TcxGridDBColumn;
+    cxGridDBColumn51: TcxGridDBColumn;
+    cxGridDBColumn52: TcxGridDBColumn;
+    cxGridDBColumn53: TcxGridDBColumn;
+    cxGridDBColumn54: TcxGridDBColumn;
+    cxGridDBColumn55: TcxGridDBColumn;
+    cxGridDBColumn56: TcxGridDBColumn;
+    cxGridDBColumn57: TcxGridDBColumn;
+    cxGridDBColumn58: TcxGridDBColumn;
+    cxGridDBColumn59: TcxGridDBColumn;
+    cxGridDBColumn60: TcxGridDBColumn;
+    cxGridDBColumn61: TcxGridDBColumn;
+    cxGridLevel5: TcxGridLevel;
+    cxGrid1: TcxGrid;
+    Tv1: TcxGridDBTableView;
+    v1OrderNo: TcxGridDBColumn;
+    v1Column2: TcxGridDBColumn;
+    v1DeliveryDate: TcxGridDBColumn;
+    v1Column5: TcxGridDBColumn;
+    v1FactoryNo1Name: TcxGridDBColumn;
+    v1PRTSpec: TcxGridDBColumn;
+    v1Qty1: TcxGridDBColumn;
+    v1PRTOrderQty: TcxGridDBColumn;
+    v1OrderUnit: TcxGridDBColumn;
+    v1Column1: TcxGridDBColumn;
+    v1PRTUnit: TcxGridDBColumn;
+    v1PRTQty: TcxGridDBColumn;
+    v1Column4: TcxGridDBColumn;
+    cxGrid1Level1: TcxGridLevel;
+    procedure FormDestroy(Sender: TObject);
+    procedure FormClose(Sender: TObject; var Action: TCloseAction);
+    procedure TBCloseClick(Sender: TObject);
+    procedure TBFindClick(Sender: TObject);
+    procedure TBExportClick(Sender: TObject);
+    procedure TBPrintClick(Sender: TObject);
+    procedure TBRafreshClick(Sender: TObject);
+    procedure ConNoMChange(Sender: TObject);
+    procedure FormShow(Sender: TObject);
+    procedure conPress(Sender: TObject; var Key: Char);
+    procedure cxPageControl1Change(Sender: TObject);
+  private
+    FInt,PFInt:Integer;
+    procedure InitGrid();
+    procedure InitForm();
+    function  DelData():Boolean;
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+var
+  frmClothContractListHZHelp: TfrmClothContractListHZHelp;
+
+implementation
+uses
+  U_DataLink,U_RTFun;
+
+{$R *.dfm}
+
+procedure TfrmClothContractListHZHelp.FormDestroy(Sender: TObject);
+begin
+  frmClothContractListHZHelp:=nil;
+end;
+
+procedure TfrmClothContractListHZHelp.FormClose(Sender: TObject;
+  var Action: TCloseAction);
+begin
+  Action:=caFree;
+end;
+
+procedure TfrmClothContractListHZHelp.TBCloseClick(Sender: TObject);
+begin
+  Close;
+  WriteCxGrid('坯布合同订单列表选择',Tv1,'指示单管理');
+
+end;
+
+procedure TfrmClothContractListHZHelp.InitGrid();
+begin
+  if cxPageControl1.ActivePageIndex=0 then
+  begin
+    try
+      ADOQueryMain.DisableControls;
+      with ADOQueryMain do
+      begin
+        Filtered:=False;
+        Close;
+        sql.Clear;
+        sql.Add('exec ClothContractSX_QryList :MainId,:WSql');
+        Parameters.ParamByName('WSql').Value:=' and FillTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+''''
+                                             +' and FillTime<'''+Trim(FormatDateTime('yyyy-MM-dd',EndDate.DateTime+1))+'''';
+        Open;
+      end;
+      SCreateCDS20(ADOQueryMain,Order_Main);
+      SInitCDSData20(ADOQueryMain,Order_Main);
+    finally
+      ADOQueryMain.EnableControls;
+    end;
+  end else
+  if cxPageControl1.ActivePageIndex=1 then
+  begin
+    try
+      ADOQueryMain.DisableControls;
+      with ADOQueryMain do
+      begin
+        Filtered:=False;
+        Close;
+        sql.Clear;
+        sql.Add('select A.*,B.*,ConNoM=A.ConNo,Money=(B.Price*B.C_Qty) from ContractHZ_Main A inner join ContractHZ_Sub B on A.Mainid=B.MainId ');
+        sql.Add(' where  A.FillTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+'''');
+        sql.Add(' and A.FillTime<'''+Trim(FormatDateTime('yyyy-MM-dd',EndDate.DateTime+1))+'''');
+        SQL.Add(' and A.ConType=''纱线前加工'' ');
+        Open;
+      end;
+      SCreateCDS20(ADOQueryMain,Order_Main);
+      SInitCDSData20(ADOQueryMain,Order_Main);
+    finally
+      ADOQueryMain.EnableControls;
+    end;
+  end else
+  if cxPageControl1.ActivePageIndex=2 then
+  begin
+    try
+      ADOQueryMain.DisableControls;
+      with ADOQueryMain do
+      begin
+        Filtered:=False;
+        Close;
+        sql.Clear;
+        sql.Add('select A.*,B.*,ConNoM=A.ConNo,Money=(B.Price*B.C_Qty) from ContractHZ_Main A inner join ContractHZ_Sub B on A.Mainid=B.MainId ');
+        sql.Add(' where  A.FillTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+'''');
+        sql.Add(' and A.FillTime<'''+Trim(FormatDateTime('yyyy-MM-dd',EndDate.DateTime+1))+'''');
+        SQL.Add(' and A.ConType=''纱线加工'' ');
+        Open;
+      end;
+      SCreateCDS20(ADOQueryMain,Order_Main);
+      SInitCDSData20(ADOQueryMain,Order_Main);
+    finally
+      ADOQueryMain.EnableControls;
+    end;
+  end else
+  if cxPageControl1.ActivePageIndex=3 then
+  begin
+    try
+      ADOQueryMain.DisableControls;
+      with ADOQueryMain do
+      begin
+        Filtered:=False;
+        Close;
+        sql.Clear;
+        sql.Add('exec ClothContract_QryList :MainId,:WSql');
+        Parameters.ParamByName('WSql').Value:=' and FillTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+''''
+                                             +' and FillTime<'''+Trim(FormatDateTime('yyyy-MM-dd',EndDate.DateTime+1))+'''';
+        Open;
+      end;
+      SCreateCDS20(ADOQueryMain,Order_Main);
+      SInitCDSData20(ADOQueryMain,Order_Main);
+    finally
+      ADOQueryMain.EnableControls;
+    end;
+  end else
+  if cxPageControl1.ActivePageIndex=4 then
+  begin
+    try
+      ADOQueryMain.DisableControls;
+      with ADOQueryMain do
+      begin
+        Filtered:=False;
+        Close;
+        sql.Clear;
+        sql.Add('select A.*,B.*,ConNoM=A.ConNo,Money=(B.Price*B.C_Qty) from ContractHZ_Main A inner join ContractHZ_Sub B on A.Mainid=B.MainId ');
+        sql.Add(' where  A.FillTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+'''');
+        sql.Add(' and A.FillTime<'''+Trim(FormatDateTime('yyyy-MM-dd',EndDate.DateTime+1))+'''');
+        SQL.Add(' and A.ConType=''染色加工'' ');
+        Open;
+      end;
+      SCreateCDS20(ADOQueryMain,Order_Main);
+      SInitCDSData20(ADOQueryMain,Order_Main);
+    finally
+      ADOQueryMain.EnableControls;
+    end;
+  end else
+  if cxPageControl1.ActivePageIndex=5 then
+  begin
+    try
+      ADOQueryMain.DisableControls;
+      with ADOQueryMain do
+      begin
+        Filtered:=False;
+        Close;
+        sql.Clear;
+        sql.Add('select A.*,B.*,ConNoM=A.ConNo,Money=(B.Price*B.C_Qty) from ContractHZ_Main A inner join ContractHZ_Sub B on A.Mainid=B.MainId ');
+        sql.Add(' where  A.FillTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+'''');
+        sql.Add(' and A.FillTime<'''+Trim(FormatDateTime('yyyy-MM-dd',EndDate.DateTime+1))+'''');
+        SQL.Add(' and A.ConType=''后加工'' ');
+        Open;
+      end;
+      SCreateCDS20(ADOQueryMain,Order_Main);
+      SInitCDSData20(ADOQueryMain,Order_Main);
+    finally
+      ADOQueryMain.EnableControls;
+    end;
+  end;
+
+end;
+
+procedure TfrmClothContractListHZHelp.InitForm();
+begin
+  ReadCxGrid('坯布合同订单列表选择',Tv1,'指示单管理');
+
+
+  BegDate.DateTime:=SGetServerDate10(ADOQueryTemp)-7;
+  EndDate.DateTime:=SGetServerDate10(ADOQueryTemp);
+  InitGrid();
+end;
+
+procedure TfrmClothContractListHZHelp.TBFindClick(Sender: TObject);
+begin
+  if ADOQueryMain.Active=False then Exit;
+  SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2));
+  SCreateCDS20(ADOQueryMain,Order_Main);
+  SInitCDSData20(ADOQueryMain,Order_Main);
+end;
+
+function TfrmClothContractListHZHelp.DelData():Boolean;
+begin
+  try
+    Result:=false;
+    ADOQueryCmd.Connection.BeginTrans;
+    with ADOQueryCmd do
+    begin
+      Close;
+      sql.Clear;
+      sql.Add('delete ContractSX_Sub where SubId='''+Trim(Order_Main.fieldbyname('SubId').AsString)+'''');
+      ExecSQL;
+    end;
+    with ADOQueryTemp do
+    begin
+      Close;
+      sql.Clear;
+      sql.Add('select * from ContractSX_Sub where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+'''');
+      Open;
+    end;
+    if ADOQueryTemp.IsEmpty then
+    begin
+      with ADOQueryCmd do
+      begin
+        Close;
+        sql.Clear;
+        sql.Add('delete ContractSX_Main where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+'''');
+        ExecSQL;
+      end;
+    end;
+    if Trim(Order_Main.fieldbyname('SubId').AsString)='' then
+    begin
+      with ADOQueryCmd do
+      begin
+        Close;
+        sql.Clear;
+        sql.Add('delete ContractSX_Main where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+'''');
+        ExecSQL;
+      end;
+    end;
+    ADOQueryCmd.Connection.CommitTrans;
+    Result:=True;
+  except
+    ADOQueryCmd.Connection.RollbackTrans;
+    Result:=False;
+    Application.MessageBox('数据删除异常！','提示',0);
+  end;
+end;
+
+procedure TfrmClothContractListHZHelp.TBExportClick(Sender: TObject);
+begin
+  if ADOQueryMain.IsEmpty then Exit;
+  TcxGridToExcel('坯布合同订单列表',cxGrid1);
+end;
+
+procedure TfrmClothContractListHZHelp.TBPrintClick(Sender: TObject);
+var
+   fPrintFile,FConNoM:string;
+
+begin
+  if Order_Main.IsEmpty then Exit;
+  if cxPageControl1.ActivePageIndex=0 then
+  begin
+    fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\纱线订购合同.rmf' ;
+    with ADOQueryTemp do
+    begin
+      Filtered:=False;
+      Close;
+      sql.Clear;
+      sql.Add('exec ClothContractSX_QryList :MainId,:WSql');
+      Parameters.ParamByName('WSql').Value:=' and FillTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+''''
+                                           +' and FillTime<'''+Trim(FormatDateTime('yyyy-MM-dd',EndDate.DateTime+1))+'''';
+      Parameters.ParamByName('MainId').Value:=Trim(Order_Main.fieldbyname('MainId').AsString);
+      Parameters.ParamByName('WSql').Value:='';
+      Open;
+    end;
+    SCreateCDS20(ADOQueryTemp,CDS_PRT);
+    SInitCDSData20(ADOQueryTemp,CDS_PRT);
+    FConNoM:=Trim(CDS_PRT.fieldbyname('ConNoM').AsString);
+  end else
+  if cxPageControl1.ActivePageIndex=1 then
+  begin
+    fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\纱线前加工合同.rmf' ;
+    with ADOQueryTemp do
+    begin
+      Filtered:=False;
+      Close;
+      sql.Clear;
+      sql.Add('select * from ContractHZ_Main A inner join ContractHZ_Sub B on A.MainId=B.MainId');
+      SQL.Add(' where A.MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+'''');
+      Open;
+    end;
+    SCreateCDS20(ADOQueryTemp,CDS_PRT);
+    SInitCDSData20(ADOQueryTemp,CDS_PRT);
+    FConNoM:=Trim(CDS_PRT.fieldbyname('ConNo').AsString);
+  end else
+  if cxPageControl1.ActivePageIndex=2 then
+  begin
+    fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\纱线加工合同.rmf' ;
+    with ADOQueryTemp do
+    begin
+      Filtered:=False;
+      Close;
+      sql.Clear;
+      sql.Add('select * from ContractHZ_Main A inner join ContractHZ_Sub B on A.MainId=B.MainId');
+      SQL.Add(' where A.MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+'''');
+      Open;
+    end;
+    SCreateCDS20(ADOQueryTemp,CDS_PRT);
+    SInitCDSData20(ADOQueryTemp,CDS_PRT);
+    FConNoM:=Trim(CDS_PRT.fieldbyname('ConNo').AsString);
+  end else
+  if cxPageControl1.ActivePageIndex=3 then
+  begin
+    fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\坯布订购合同.rmf' ;
+    with ADOQueryTemp do
+    begin
+      Filtered:=False;
+      Close;
+      sql.Clear;
+      sql.Add('exec ClothContract_QryList :MainId,:WSql');
+      Parameters.ParamByName('WSql').Value:=' and FillTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+''''
+                                           +' and FillTime<'''+Trim(FormatDateTime('yyyy-MM-dd',EndDate.DateTime+1))+'''';
+      Parameters.ParamByName('MainId').Value:=Trim(Order_Main.fieldbyname('MainId').AsString);
+      Parameters.ParamByName('WSql').Value:='';
+      Open;
+    end;
+    SCreateCDS20(ADOQueryTemp,CDS_PRT);
+    SInitCDSData20(ADOQueryTemp,CDS_PRT);
+    FConNoM:=Trim(CDS_PRT.fieldbyname('ConNoM').AsString);
+  end else
+  if cxPageControl1.ActivePageIndex=4 then
+  begin
+    fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\染色合同.rmf' ;
+    with ADOQueryTemp do
+    begin
+      Filtered:=False;
+      Close;
+      sql.Clear;
+      sql.Add('select * from ContractHZ_Main A inner join ContractHZ_Sub B on A.MainId=B.MainId');
+      SQL.Add('where A.MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+'''');
+      Open;
+    end;
+    SCreateCDS20(ADOQueryTemp,CDS_PRT);
+    SInitCDSData20(ADOQueryTemp,CDS_PRT);
+    FConNoM:=Trim(CDS_PRT.fieldbyname('ConNo').AsString);
+  end else
+  if cxPageControl1.ActivePageIndex=5 then
+  begin
+    fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\后加工合同.rmf' ;
+    with ADOQueryTemp do
+    begin
+      Filtered:=False;
+      Close;
+      sql.Clear;
+      sql.Add('select * from ContractHZ_Main A inner join ContractHZ_Sub B on A.MainId=B.MainId');
+      SQL.Add('where A.MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+'''');
+      Open;
+    end;
+    SCreateCDS20(ADOQueryTemp,CDS_PRT);
+    SInitCDSData20(ADOQueryTemp,CDS_PRT);
+    FConNoM:=Trim(CDS_PRT.fieldbyname('ConNo').AsString);
+  end;
+
+
+  if FileExists(fPrintFile) then
+  begin
+    //RMVariables['begindate']:=begindate.DateTime;
+    //RMVariables['enddate']:=enddate.DateTime;
+    //RMVariables['printtime']:=Now;
+    //RMVariables['printer']:=Trim(gUserName);
+    RM1.LoadFromFile(fPrintFile);
+    RM1.ShowReport;
+  end else
+  begin
+    Application.MessageBox(PChar('没有找'+ExtractFilePath(Application.ExeName)+'Report\相对应的合同报表.rmf'),'提示',0);
+  end;
+
+end;
+
+procedure TfrmClothContractListHZHelp.TBRafreshClick(Sender: TObject);
+begin
+  InitGrid();
+end;
+
+procedure TfrmClothContractListHZHelp.ConNoMChange(Sender: TObject);
+begin
+  if ADOQueryMain.Active=False then Exit;
+  SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2));
+  SCreateCDS20(ADOQueryMain,Order_Main);
+  SInitCDSData20(ADOQueryMain,Order_Main);
+end;
+
+procedure TfrmClothContractListHZHelp.FormShow(Sender: TObject);
+begin
+  InitForm();
+end;
+
+procedure TfrmClothContractListHZHelp.conPress(Sender: TObject;
+  var Key: Char);
+begin
+  if Key=#13 then
+  begin
+    if Length(Trim(ConNoM.Text))<3 then Exit;
+    try
+      ADOQueryMain.DisableControls;
+
+      with ADOQueryMain do
+      begin
+        Filtered:=False;
+        Close;
+        sql.Clear;
+        if cxPageControl1.ActivePageIndex=0 then
+        begin
+          sql.Add('exec ClothContractSX_QryList :MainId,:WSql');
+          Parameters.ParamByName('WSql').Value:=' and OM.conNo like '''+'%'+Trim(ConNoM.Text)+'%'+'''';
+        end else
+        if cxPageControl1.ActivePageIndex=1 then
+        begin
+          sql.Add('select A.*,B.*,Money=(B.Price*B.C_Qty) from ContractHZ_Main A inner join ContractHZ_Sub B on A.Mainid=B.MainId ');
+          SQL.Add(' where A.ConNO like'''+'%'+Trim(ConNoM.Text)+'%'+'''');
+          sql.Add(' and A.ConType=''纱线加工''');
+        end else
+        if cxPageControl1.ActivePageIndex=2 then
+        begin
+          sql.Add('exec ClothContract_QryList :MainId,:WSql');
+          Parameters.ParamByName('WSql').Value:=' and OM.conNo like '''+'%'+Trim(ConNoM.Text)+'%'+'''';
+        end else
+        if cxPageControl1.ActivePageIndex=3 then
+        begin
+          sql.Add('select A.*,B.*,Money=(B.Price*B.C_Qty) from ContractHZ_Main A inner join ContractHZ_Sub B on A.Mainid=B.MainId ');
+          SQL.Add(' where A.ConNO like'''+'%'+Trim(ConNoM.Text)+'%'+'''');
+          sql.Add(' and A.ConType=''染色加工''');
+        end else
+        if cxPageControl1.ActivePageIndex=4 then
+        begin
+          sql.Add('select A.*,B.*,Money=(B.Price*B.C_Qty) from ContractHZ_Main A inner join ContractHZ_Sub B on A.Mainid=B.MainId ');
+          SQL.Add(' where A.ConNO like'''+'%'+Trim(ConNoM.Text)+'%'+'''');
+          sql.Add(' and A.ConType=''后加工''');
+        end;
+
+        Open;
+      end;
+      SCreateCDS20(ADOQueryMain,Order_Main);
+      SInitCDSData20(ADOQueryMain,Order_Main);
+    finally
+      ADOQueryMain.EnableControls;
+    end;
+  end;
+end;
+
+procedure TfrmClothContractListHZHelp.cxPageControl1Change(Sender: TObject);
+begin
+  InitGrid();
+end;
+
+end.