~

.gitignore

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

打卷检验管理/AES.pas

@@ -0,0 +1,317 @@
+(**************************************************)
+
+unit AES;                  
+
+interface
+
+uses
+  SysUtils, Classes, Math, ElAES;
+
+type
+  TKeyBit = (kb128, kb192, kb256);
+
+function StrToHex(Value: string): string;
+function HexToStr(Value: string): string;
+function EncryptString(Value: string; Key: string;
+  KeyBit: TKeyBit = kb128): string;
+function DecryptString(Value: string; Key: string;
+  KeyBit: TKeyBit = kb128): string;
+function EncryptStream(Stream: TStream; Key: string;
+  KeyBit: TKeyBit = kb128): TStream;
+function DecryptStream(Stream: TStream; Key: string;
+  KeyBit: TKeyBit = kb128): TStream;
+procedure EncryptFile(SourceFile, DestFile: string;
+  Key: string; KeyBit: TKeyBit = kb128);
+procedure DecryptFile(SourceFile, DestFile: string;
+  Key: string; KeyBit: TKeyBit = kb128);
+  
+implementation
+
+function StrToHex(Value: string): string;
+var
+  I: Integer;
+begin
+  Result := '';
+  for I := 1 to Length(Value) do
+    Result := Result + IntToHex(Ord(Value[I]), 2);
+end;
+
+function HexToStr(Value: string): string;
+var
+  I: Integer;
+begin
+  Result := '';
+  for I := 1 to Length(Value) do
+  begin
+    if ((I mod 2) = 1) then
+      Result := Result + Chr(StrToInt('0x'+ Copy(Value, I, 2)));
+  end;
+end;
+
+{  --  字符串加密函数 默认按照 128 位密匙加密 --  }
+function EncryptString(Value: string; Key: string;
+  KeyBit: TKeyBit = kb128): string;
+var
+  SS, DS: TStringStream;
+  Size: Int64;
+  AESKey128: TAESKey128;
+  AESKey192: TAESKey192;
+  AESKey256: TAESKey256;
+begin
+  Result := '';
+  SS := TStringStream.Create(Value);
+  DS := TStringStream.Create('');
+  try
+    Size := SS.Size;
+    DS.WriteBuffer(Size, SizeOf(Size));
+    {  --  128 位密匙最大长度为 16 个字符 --  }
+    if KeyBit = kb128 then
+    begin
+      FillChar(AESKey128, SizeOf(AESKey128), 0 );
+      Move(PChar(Key)^, AESKey128, Min(SizeOf(AESKey128), Length(Key)));
+      EncryptAESStreamECB(SS, 0, AESKey128, DS);
+    end;
+    {  --  192 位密匙最大长度为 24 个字符 --  }
+    if KeyBit = kb192 then
+    begin
+      FillChar(AESKey192, SizeOf(AESKey192), 0 );
+      Move(PChar(Key)^, AESKey192, Min(SizeOf(AESKey192), Length(Key)));
+      EncryptAESStreamECB(SS, 0, AESKey192, DS);
+    end;
+    {  --  256 位密匙最大长度为 32 个字符 --  }
+    if KeyBit = kb256 then
+    begin
+      FillChar(AESKey256, SizeOf(AESKey256), 0 );
+      Move(PChar(Key)^, AESKey256, Min(SizeOf(AESKey256), Length(Key)));
+      EncryptAESStreamECB(SS, 0, AESKey256, DS);
+    end;
+    Result := StrToHex(DS.DataString);
+  finally
+    SS.Free;
+    DS.Free;
+  end;
+end;
+
+{  --  字符串解密函数 默认按照 128 位密匙解密 --  }
+function DecryptString(Value: string; Key: string;
+  KeyBit: TKeyBit = kb128): string;
+var
+  SS, DS: TStringStream;
+  Size: Int64;
+  AESKey128: TAESKey128;
+  AESKey192: TAESKey192;
+  AESKey256: TAESKey256;
+begin
+  Result := '';
+  SS := TStringStream.Create(HexToStr(Value));
+  DS := TStringStream.Create('');
+  try
+    Size := SS.Size;
+    SS.ReadBuffer(Size, SizeOf(Size));
+    {  --  128 位密匙最大长度为 16 个字符 --  }
+    if KeyBit = kb128 then
+    begin
+      FillChar(AESKey128, SizeOf(AESKey128), 0 );
+      Move(PChar(Key)^, AESKey128, Min(SizeOf(AESKey128), Length(Key)));
+      DecryptAESStreamECB(SS, SS.Size - SS.Position, AESKey128, DS);
+    end;
+    {  --  192 位密匙最大长度为 24 个字符 --  }
+    if KeyBit = kb192 then
+    begin
+      FillChar(AESKey192, SizeOf(AESKey192), 0 );
+      Move(PChar(Key)^, AESKey192, Min(SizeOf(AESKey192), Length(Key)));
+      DecryptAESStreamECB(SS, SS.Size - SS.Position, AESKey192, DS);
+    end;
+    {  --  256 位密匙最大长度为 32 个字符 --  }
+    if KeyBit = kb256 then
+    begin
+      FillChar(AESKey256, SizeOf(AESKey256), 0 );
+      Move(PChar(Key)^, AESKey256, Min(SizeOf(AESKey256), Length(Key)));
+      DecryptAESStreamECB(SS, SS.Size - SS.Position, AESKey256, DS);
+    end;
+    Result := DS.DataString;
+  finally
+    SS.Free;
+    DS.Free;
+  end;
+end;
+
+{  --  流加密函数 默认按照 128 位密匙解密 --  }
+function EncryptStream(Stream: TStream; Key: string;
+  KeyBit: TKeyBit = kb128): TStream;
+var
+  Count: Int64;
+  OutStrm: TStream;
+  AESKey128: TAESKey128;
+  AESKey192: TAESKey192;
+  AESKey256: TAESKey256;
+begin
+  OutStrm := TStream.Create;
+  Stream.Position := 0;
+  Count := Stream.Size;
+  OutStrm.Write(Count, SizeOf(Count));
+  try
+    {  --  128 位密匙最大长度为 16 个字符 --  }
+    if KeyBit = kb128 then
+    begin
+      FillChar(AESKey128, SizeOf(AESKey128), 0 );
+      Move(PChar(Key)^, AESKey128, Min(SizeOf(AESKey128), Length(Key)));
+      EncryptAESStreamECB(Stream, 0, AESKey128, OutStrm);
+    end;
+    {  --  192 位密匙最大长度为 24 个字符 --  }
+    if KeyBit = kb192 then
+    begin
+      FillChar(AESKey192, SizeOf(AESKey192), 0 );
+      Move(PChar(Key)^, AESKey192, Min(SizeOf(AESKey192), Length(Key)));
+      EncryptAESStreamECB(Stream, 0, AESKey192, OutStrm);
+    end;
+    {  --  256 位密匙最大长度为 32 个字符 --  }
+    if KeyBit = kb256 then
+    begin
+      FillChar(AESKey256, SizeOf(AESKey256), 0 );
+      Move(PChar(Key)^, AESKey256, Min(SizeOf(AESKey256), Length(Key)));
+      EncryptAESStreamECB(Stream, 0, AESKey256, OutStrm);
+    end;
+    Result := OutStrm;
+  finally
+    OutStrm.Free;
+  end;
+end;
+
+{  --  流解密函数 默认按照 128 位密匙解密 --  }
+function DecryptStream(Stream: TStream; Key: string;
+  KeyBit: TKeyBit = kb128): TStream;
+var
+  Count, OutPos: Int64;
+  OutStrm: TStream;
+  AESKey128: TAESKey128;
+  AESKey192: TAESKey192;
+  AESKey256: TAESKey256;
+begin
+  OutStrm := TStream.Create;
+  Stream.Position := 0;
+  OutPos :=OutStrm.Position;
+  Stream.ReadBuffer(Count, SizeOf(Count));
+  try
+    {  --  128 位密匙最大长度为 16 个字符 --  }
+    if KeyBit = kb128 then
+    begin
+      FillChar(AESKey128, SizeOf(AESKey128), 0 );
+      Move(PChar(Key)^, AESKey128, Min(SizeOf(AESKey128), Length(Key)));
+      DecryptAESStreamECB(Stream, Stream.Size - Stream.Position,
+        AESKey128, OutStrm);
+    end;
+    {  --  192 位密匙最大长度为 24 个字符 --  }
+    if KeyBit = kb192 then
+    begin
+      FillChar(AESKey192, SizeOf(AESKey192), 0 );
+      Move(PChar(Key)^, AESKey192, Min(SizeOf(AESKey192), Length(Key)));
+      DecryptAESStreamECB(Stream, Stream.Size - Stream.Position,
+        AESKey192, OutStrm);
+    end;
+    {  --  256 位密匙最大长度为 32 个字符 --  }
+    if KeyBit = kb256 then
+    begin
+      FillChar(AESKey256, SizeOf(AESKey256), 0 );
+      Move(PChar(Key)^, AESKey256, Min(SizeOf(AESKey256), Length(Key)));
+      DecryptAESStreamECB(Stream, Stream.Size - Stream.Position,
+        AESKey256, OutStrm);
+    end;
+    OutStrm.Size := OutPos + Count;
+    OutStrm.Position := OutPos;
+    Result := OutStrm;
+  finally
+    OutStrm.Free;
+  end;
+end;
+
+{  --  文件加密函数 默认按照 128 位密匙解密 --  }
+procedure EncryptFile(SourceFile, DestFile: string;
+  Key: string; KeyBit: TKeyBit = kb128);
+var
+  SFS, DFS: TFileStream;
+  Size: Int64;
+  AESKey128: TAESKey128;
+  AESKey192: TAESKey192;
+  AESKey256: TAESKey256;
+begin
+  SFS := TFileStream.Create(SourceFile, fmOpenRead);
+  try
+    DFS := TFileStream.Create(DestFile, fmCreate);
+    try
+      Size := SFS.Size;
+      DFS.WriteBuffer(Size, SizeOf(Size));
+      {  --  128 位密匙最大长度为 16 个字符 --  }
+      if KeyBit = kb128 then
+      begin
+        FillChar(AESKey128, SizeOf(AESKey128), 0 );
+        Move(PChar(Key)^, AESKey128, Min(SizeOf(AESKey128), Length(Key)));
+        EncryptAESStreamECB(SFS, 0, AESKey128, DFS);
+      end;
+      {  --  192 位密匙最大长度为 24 个字符 --  }
+      if KeyBit = kb192 then
+      begin
+        FillChar(AESKey192, SizeOf(AESKey192), 0 );
+        Move(PChar(Key)^, AESKey192, Min(SizeOf(AESKey192), Length(Key)));
+        EncryptAESStreamECB(SFS, 0, AESKey192, DFS);
+      end;
+      {  --  256 位密匙最大长度为 32 个字符 --  }
+      if KeyBit = kb256 then
+      begin
+        FillChar(AESKey256, SizeOf(AESKey256), 0 );
+        Move(PChar(Key)^, AESKey256, Min(SizeOf(AESKey256), Length(Key)));
+        EncryptAESStreamECB(SFS, 0, AESKey256, DFS);
+      end;
+    finally
+      DFS.Free;
+    end;
+  finally
+    SFS.Free;
+  end;
+end;
+
+{  --  文件解密函数 默认按照 128 位密匙解密 --  }
+procedure DecryptFile(SourceFile, DestFile: string;
+  Key: string; KeyBit: TKeyBit = kb128);
+var
+  SFS, DFS: TFileStream;
+  Size: Int64;
+  AESKey128: TAESKey128;
+  AESKey192: TAESKey192;
+  AESKey256: TAESKey256;
+begin
+  SFS := TFileStream.Create(SourceFile, fmOpenRead);
+  try
+    SFS.ReadBuffer(Size, SizeOf(Size));
+    DFS := TFileStream.Create(DestFile, fmCreate);
+    try
+      {  --  128 位密匙最大长度为 16 个字符 --  }
+      if KeyBit = kb128 then
+      begin
+        FillChar(AESKey128, SizeOf(AESKey128), 0 );
+        Move(PChar(Key)^, AESKey128, Min(SizeOf(AESKey128), Length(Key)));
+        DecryptAESStreamECB(SFS, SFS.Size - SFS.Position, AESKey128, DFS);
+      end;
+      {  --  192 位密匙最大长度为 24 个字符 --  }
+      if KeyBit = kb192 then
+      begin
+        FillChar(AESKey192, SizeOf(AESKey192), 0 );
+        Move(PChar(Key)^, AESKey192, Min(SizeOf(AESKey192), Length(Key)));
+        DecryptAESStreamECB(SFS, SFS.Size - SFS.Position, AESKey192, DFS);
+      end;
+      {  --  256 位密匙最大长度为 32 个字符 --  }
+      if KeyBit = kb256 then
+      begin
+        FillChar(AESKey256, SizeOf(AESKey256), 0 );
+        Move(PChar(Key)^, AESKey256, Min(SizeOf(AESKey256), Length(Key)));
+        DecryptAESStreamECB(SFS, SFS.Size - SFS.Position, AESKey256, DFS);
+      end;
+      DFS.Size := Size;
+    finally
+      DFS.Free;
+    end;
+  finally
+    SFS.Free;
+  end;
+end;
+end.

打卷检验管理/FieldExportSet/.INI

@@ -0,0 +1,2 @@
+[导出设置]
+导出字段=Begin/订单号/颜色/出库长度/长度单位/卷号/缸号

打卷检验管理/FieldExportSet/检验分析订单.INI

@@ -0,0 +1,2 @@
+[导出设置]
+导出字段=Begin/布单号/布类/颜色/针寸数/重量(磅)/疵点个数

打卷检验管理/FieldExportSet/检验报告.INI

@@ -0,0 +1,2 @@
+[导出设置]
+导出字段=Begin

打卷检验管理/FieldExportSet/采购单列表.INI

@@ -0,0 +1,2 @@
+[导出设置]
+导出字段=Begin/采购单编号/Fabric/布类

打卷检验管理/File.INI

@@ -0,0 +1,6 @@
+[生产车间配置]
+卷条码机台标志=
+机台个数=
+端口号=
+端口Dll文件=JZCRS323D.dll
+码表Dll文件=JCYData10.dll

打卷检验管理/OrderManage.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=F:\selfware_83398\selfware\马国钢开发代码\项目代码\self\订单\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

打卷检验管理/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)
+
+

打卷检验管理/RCInspection.cfg

@@ -0,0 +1,38 @@
+-$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\borland\delphi7\Projects\Bpl"
+-LN"c:\program files\borland\delphi7\Projects\Bpl"
+-w-UNSAFE_TYPE
+-w-UNSAFE_CODE
+-w-UNSAFE_CAST

打卷检验管理/RCInspection.dof

@@ -0,0 +1,141 @@
+[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=
+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\染厂检验管理\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
+[HistoryLists\hlUnitAliases]
+Count=1
+Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;

打卷检验管理/SYSTEMSET.ini

@@ -0,0 +1,3 @@
+[SERVER]
+服务器地址=127.0.0.1
+软件名称=XXXXXXX1

打卷检验管理/TradeManage.cfg

@@ -0,0 +1,38 @@
+-$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"
+-w-UNSAFE_TYPE
+-w-UNSAFE_CODE
+-w-UNSAFE_CAST

打卷检验管理/TradeManage.dof

@@ -0,0 +1,141 @@
+[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=
+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:\徐加艳项目代码\项目代码\雷哥\打卷检验管理\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
+[HistoryLists\hlUnitAliases]
+Count=1
+Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;

打卷检验管理/TradeManage.dpr

@@ -0,0 +1,77 @@
+library TradeManage;
+uses
+  SysUtils,
+  classes,
+  forms,
+  WinTypes,
+  WinProcs,
+  U_DataLink in 'U_DataLink.pas' {DataLink_TradeManage: TDataModule},
+  U_GetDllForm in 'U_GetDllForm.pas',                                                                   
+  U_ZDYHelpSel in '..\..\..\ThreeFun\Form\U_ZDYHelpSel.pas' {frmZDYHelpSel},
+  U_SelExportField in '..\..\..\ThreeFun\Fun\U_SelExportField.pas' {frmSelExportField},
+  U_ColumnSet in '..\..\..\ThreeFun\Form\U_ColumnSet.pas' {frmColumnSet},
+  U_ZDYHelp in '..\..\..\ThreeFun\Form\U_ZDYHelp.pas' {frmZDYHelp},
+  U_GetAddRess in '..\..\..\ThreeFun\Form\U_GetAddRess.pas',
+  U_iniParam in 'U_iniParam.pas',
+  AES in 'AES.pas',
+  ElAES in 'ElAES.pas',
+  U_SelPrintFieldNew in '..\..\..\ThreeFun\Form\U_SelPrintFieldNew.pas' {frmSelPrintFieldNew},
+  U_LabelPrint in 'U_LabelPrint.pas' {frmLabelPrint},
+  U_ConInPutNX in 'U_ConInPutNX.pas' {frmConInPutNX},
+  U_MJManageNewFDNew in 'U_MJManageNewFDNew.pas' {frmMJManageNewFDNewSF},
+  U_MJEdit in 'U_MJEdit.pas' {frmMJEdit},
+  U_CpRkSaoMNewDB in 'U_CpRkSaoMNewDB.pas' {frmCpRkSaoMNewDB},
+  U_OrderSelRK in 'U_OrderSelRK.pas' {frmOrderSelRK},
+  U_CKProductBCPKCHZList in 'U_CKProductBCPKCHZList.pas' {frmCKProductBCPKCHZList},
+  U_ClothHCList in 'U_ClothHCList.pas' {frmClothHCList},
+  U_ContractListNX in 'U_ContractListNX.pas' {frmContractListNX},
+  U_OrderJDList in 'U_OrderJDList.pas' {frmOrderJDList},
+  U_ProductOrderListSel in 'U_ProductOrderListSel.pas' {frmProductOrderListSel},
+  U_ConInPut in 'U_ConInPut.pas' {frmConInPut},
+  U_ClothContractInPut in 'U_ClothContractInPut.pas' {frmClothContractInPut},
+  U_ClothContractList in 'U_ClothContractList.pas' {frmClothContractList},
+  U_ClothContractInPutHZ in 'U_ClothContractInPutHZ.pas' {frmClothContractInPutHZ},
+  U_OrderInPut in 'U_OrderInPut.pas' {frmOrderInPut},
+  U_CKProductBCPOutList in 'U_CKProductBCPOutList.pas' {frmCKProductBCPOutList},
+  U_CpRkSaoMNew in 'U_CpRkSaoMNew.pas' {frmCpRkSaoMNew},
+  U_Fun10 in '..\..\..\ThreeFun\Fun\U_Fun10.pas',
+  U_ProductOrderNewList_JD in 'U_ProductOrderNewList_JD.pas' {frmProductOrderNewList_JD},
+  U_HCList in 'U_HCList.pas' {frmHCList},
+  U_ModulePromptList in 'U_ModulePromptList.pas' {frmModulePromptList},
+  U_Fun in '..\..\..\ThreeFun\Fun\U_Fun.pas',
+  U_FjList in 'U_FjList.pas' {frmFjList},
+  getpic in 'getpic.pas' {FormGetPic},
+  U_JYOrderOther_Main in 'U_JYOrderOther_Main.pas' {FrmJYOrderOther},
+  U_FjList10 in '..\..\..\ThreeFun\Form\U_FjList10.pas' {frmFjList10},
+  U_CompressionFun in '..\..\..\ThreeFun\Fun\U_CompressionFun.pas',
+  U_ColumnBandSet in '..\..\..\ThreeFun\Form\U_ColumnBandSet.pas' {frmColumnBandSet},
+  U_CKJYList in 'U_CKJYList.pas' {frmCKJYList},
+  U_CKProductJYHZList in 'U_CKProductJYHZList.pas' {frmCKProductJYHZList},
+  U_SysLogOrder in 'U_SysLogOrder.pas' {frmSysLogOrder},
+  U_MJSJFX in 'U_MJSJFX.pas' {frmMJSJFX},
+  U_RTFun in '..\..\..\RTFunAndForm\Fun\U_RTFun.pas';
+
+{$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.
+

打卷检验管理/U.dfm

@@ -0,0 +1,202 @@
+object Form1: TForm1
+  Left = 204
+  Top = 180
+  Width = 870
+  Height = 500
+  Caption = 'Form1'
+  Color = clBtnFace
+  Font.Charset = DEFAULT_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -11
+  Font.Name = 'MS Sans Serif'
+  Font.Style = []
+  OldCreateOrder = False
+  PixelsPerInch = 96
+  TextHeight = 13
+  object ToolBar1: TToolBar
+    Left = 0
+    Top = 0
+    Width = 862
+    Height = 30
+    ButtonHeight = 30
+    ButtonWidth = 59
+    Caption = 'ToolBar1'
+    Color = clSkyBlue
+    EdgeInner = esNone
+    EdgeOuter = esNone
+    Flat = True
+    Font.Charset = GB2312_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -12
+    Font.Name = #23435#20307
+    Font.Style = []
+    Images = DataLink_RCInspection.ThreeImgList
+    List = True
+    ParentColor = False
+    ParentFont = False
+    ShowCaptions = True
+    TabOrder = 0
+    object ToolButton2: TToolButton
+      Left = 0
+      Top = 0
+      Caption = #20445#23384
+      ImageIndex = 58
+    end
+    object TBClose: TToolButton
+      Left = 59
+      Top = 0
+      AutoSize = True
+      Caption = #20851#38381
+      ImageIndex = 55
+    end
+  end
+  object Panel1: TPanel
+    Left = 0
+    Top = 30
+    Width = 862
+    Height = 41
+    Align = alTop
+    BevelInner = bvRaised
+    BevelOuter = bvLowered
+    Color = clSkyBlue
+    TabOrder = 1
+    object Label1: TLabel
+      Left = 25
+      Top = 16
+      Width = 52
+      Height = 12
+      Caption = #24067#21305#26465#30721
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clRed
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object APID: TEdit
+      Left = 80
+      Top = 10
+      Width = 138
+      Height = 24
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -16
+      Font.Name = #23435#20307
+      Font.Style = []
+      ParentFont = False
+      TabOrder = 0
+    end
+  end
+  object cxGrid2: TcxGrid
+    Left = 0
+    Top = 71
+    Width = 862
+    Height = 392
+    Align = alClient
+    TabOrder = 2
+    object Tv2: TcxGridDBTableView
+      NavigatorButtons.ConfirmDelete = False
+      DataController.DataSource = DataSource1
+      DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
+      DataController.Summary.DefaultGroupSummaryItems = <>
+      DataController.Summary.FooterSummaryItems = <
+        item
+          Kind = skSum
+          Column = v2Column1
+        end
+        item
+          Kind = skSum
+          Column = Tv2CDQty
+        end>
+      DataController.Summary.SummaryGroups = <>
+      OptionsCustomize.ColumnFiltering = False
+      OptionsSelection.CellSelect = False
+      OptionsView.Footer = True
+      OptionsView.GroupByBox = False
+      Styles.Header = DataLink_RCInspection.TextSHuangSe
+      object tv2CDType: TcxGridDBColumn
+        Caption = #30133#28857#21517#31216
+        DataBinding.FieldName = 'CDName'
+        HeaderAlignmentHorz = taCenter
+        Options.Focusing = False
+        Options.Sorting = False
+        Styles.Content = DataLink_RCInspection.Default
+        Width = 144
+      end
+      object tv2CDWZ: TcxGridDBColumn
+        Caption = #20301#32622#36215
+        DataBinding.FieldName = 'CDBeg'
+        PropertiesClassName = 'TcxTextEditProperties'
+        HeaderAlignmentHorz = taCenter
+        HeaderGlyphAlignmentHorz = taCenter
+        Options.Sorting = False
+        Styles.Content = DataLink_RCInspection.Default
+        Width = 96
+      end
+      object v2Column2: TcxGridDBColumn
+        Caption = #20301#32622#27490
+        DataBinding.FieldName = 'CDend'
+        HeaderAlignmentHorz = taCenter
+        HeaderGlyphAlignmentHorz = taCenter
+        Styles.Content = DataLink_RCInspection.Default
+        Width = 93
+      end
+      object Tv2CDQty: TcxGridDBColumn
+        Caption = #25968#37327
+        DataBinding.FieldName = 'CDQty'
+        PropertiesClassName = 'TcxTextEditProperties'
+        HeaderAlignmentHorz = taCenter
+        Options.Sorting = False
+        Styles.Content = DataLink_RCInspection.Default
+        Width = 93
+      end
+      object Tv2CDReason: TcxGridDBColumn
+        Caption = #21407#22240
+        DataBinding.FieldName = 'CDReason'
+        Visible = False
+        HeaderAlignmentHorz = taCenter
+        Options.Sorting = False
+        Width = 131
+      end
+      object v2Column1: TcxGridDBColumn
+        DataBinding.FieldName = 'CDQty'
+        Visible = False
+        Width = 55
+      end
+    end
+    object cxGridLevel1: TcxGridLevel
+      GridView = Tv2
+    end
+  end
+  object ADOTmp: TADOQuery
+    Connection = DataLink_RCInspection.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 336
+    Top = 40
+  end
+  object ADOQueryMain: TADOQuery
+    Connection = DataLink_RCInspection.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 312
+    Top = 200
+  end
+  object ADOCmd: TADOQuery
+    Connection = DataLink_RCInspection.ADOLink
+    Parameters = <>
+    Left = 288
+    Top = 40
+  end
+  object DataSource1: TDataSource
+    DataSet = Order_MJ
+    Left = 528
+    Top = 200
+  end
+  object Order_MJ: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 344
+    Top = 200
+  end
+end

打卷检验管理/U.pas

@@ -0,0 +1,48 @@
+unit U;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData,
+  cxDataStorage, cxEdit, DB, cxDBData, cxTextEdit, DBClient, ADODB,
+  cxGridLevel, cxGridCustomTableView, cxGridTableView, cxGridDBTableView,
+  cxClasses, cxControls, cxGridCustomView, cxGrid, StdCtrls, ExtCtrls,
+  ComCtrls, ToolWin;
+
+type
+  TForm1 = class(TForm)
+    ToolBar1: TToolBar;
+    ToolButton2: TToolButton;
+    TBClose: TToolButton;
+    Panel1: TPanel;
+    Label1: TLabel;
+    APID: TEdit;
+    cxGrid2: TcxGrid;
+    Tv2: TcxGridDBTableView;
+    tv2CDType: TcxGridDBColumn;
+    tv2CDWZ: TcxGridDBColumn;
+    v2Column2: TcxGridDBColumn;
+    Tv2CDQty: TcxGridDBColumn;
+    Tv2CDReason: TcxGridDBColumn;
+    v2Column1: TcxGridDBColumn;
+    cxGridLevel1: TcxGridLevel;
+    ADOTmp: TADOQuery;
+    ADOQueryMain: TADOQuery;
+    ADOCmd: TADOQuery;
+    DataSource1: TDataSource;
+    Order_MJ: TClientDataSet;
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+var
+  Form1: TForm1;
+
+implementation
+
+{$R *.dfm}
+
+end.

打卷检验管理/U_BanCpCkSaoM.dfm

@@ -0,0 +1,201 @@
+object frmBanCpCkSaoM: TfrmBanCpCkSaoM
+  Left = 241
+  Top = 177
+  Width = 870
+  Height = 500
+  Caption = #21322#25104#21697#20986#24211#25195#25551
+  Color = clBtnFace
+  Font.Charset = ANSI_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -16
+  Font.Name = #23435#20307
+  Font.Style = [fsBold]
+  OldCreateOrder = False
+  OnClose = FormClose
+  OnDestroy = FormDestroy
+  OnShow = FormShow
+  PixelsPerInch = 96
+  TextHeight = 16
+  object cxGrid2: TcxGrid
+    Left = 0
+    Top = 81
+    Width = 862
+    Height = 382
+    Align = alClient
+    TabOrder = 0
+    object Tv1: TcxGridDBTableView
+      OnDblClick = Tv1DblClick
+      NavigatorButtons.ConfirmDelete = False
+      DataController.DataSource = DataSource1
+      DataController.Summary.DefaultGroupSummaryItems = <>
+      DataController.Summary.FooterSummaryItems = <
+        item
+          Kind = skSum
+          Column = v2Column5
+        end
+        item
+          Kind = skSum
+          Column = v2Column6
+        end
+        item
+          Kind = skSum
+        end
+        item
+          Kind = skSum
+        end
+        item
+          Kind = skSum
+        end
+        item
+          Kind = skSum
+        end>
+      DataController.Summary.SummaryGroups = <>
+      OptionsCustomize.ColumnFiltering = False
+      OptionsSelection.CellSelect = False
+      OptionsView.Footer = True
+      OptionsView.GroupByBox = False
+      Styles.Header = DataLink_TradeManage.Default
+      object v1Column1: TcxGridDBColumn
+        Caption = #35746#21333#21495
+        DataBinding.FieldName = 'orderNo'
+        HeaderAlignmentHorz = taCenter
+        Width = 97
+      end
+      object v2Column1: TcxGridDBColumn
+        Caption = #20013#25991#21517#31216
+        DataBinding.FieldName = 'MPRTCodeName'
+        HeaderAlignmentHorz = taCenter
+        Options.Focusing = False
+        Width = 101
+      end
+      object v2Column3: TcxGridDBColumn
+        Caption = #39068#33394
+        DataBinding.FieldName = 'PRTColor'
+        HeaderAlignmentHorz = taCenter
+        Options.Focusing = False
+        Width = 78
+      end
+      object v1Column3: TcxGridDBColumn
+        Caption = #32568#21495
+        DataBinding.FieldName = 'GangNo'
+        HeaderAlignmentHorz = taCenter
+        Width = 58
+      end
+      object v1Column5: TcxGridDBColumn
+        Caption = #26465#30721
+        DataBinding.FieldName = 'MJID'
+        HeaderAlignmentHorz = taCenter
+        Width = 112
+      end
+      object v1Column2: TcxGridDBColumn
+        Caption = #20986#24211#26102#38388
+        DataBinding.FieldName = 'CRTime'
+        HeaderAlignmentHorz = taCenter
+        Width = 88
+      end
+      object v2Column5: TcxGridDBColumn
+        Caption = #20986#24211#20844#26020#25968
+        DataBinding.FieldName = 'KGQty'
+        HeaderAlignmentHorz = taCenter
+        Options.Focusing = False
+        Width = 89
+      end
+      object v2Column6: TcxGridDBColumn
+        Caption = #20986#24211#38271#24230
+        DataBinding.FieldName = 'Qty'
+        HeaderAlignmentHorz = taCenter
+        Options.Focusing = False
+        Width = 99
+      end
+      object v1Column6: TcxGridDBColumn
+        Caption = #38271#24230#21333#20301
+        DataBinding.FieldName = 'QtyUnit'
+        HeaderAlignmentHorz = taCenter
+        Width = 60
+      end
+    end
+    object cxGrid2Level1: TcxGridLevel
+      GridView = Tv1
+    end
+  end
+  object Panel1: TPanel
+    Left = 0
+    Top = 0
+    Width = 862
+    Height = 81
+    Align = alTop
+    BevelInner = bvRaised
+    BevelOuter = bvLowered
+    TabOrder = 1
+    object Label1: TLabel
+      Left = 56
+      Top = 40
+      Width = 68
+      Height = 16
+      Caption = #25195#25551#20837#21475
+    end
+    object XJID: TEdit
+      Left = 124
+      Top = 37
+      Width = 167
+      Height = 24
+      TabOrder = 0
+      OnKeyPress = XJIDKeyPress
+    end
+    object Button1: TButton
+      Left = 309
+      Top = 38
+      Width = 75
+      Height = 23
+      Caption = #20986#24211
+      TabOrder = 1
+      OnClick = Button1Click
+    end
+    object Button2: TButton
+      Left = 413
+      Top = 38
+      Width = 75
+      Height = 23
+      Caption = #20851#38381
+      TabOrder = 2
+      OnClick = Button2Click
+    end
+  end
+  object cxGridPopupMenu1: TcxGridPopupMenu
+    Grid = cxGrid2
+    PopupMenus = <>
+    Left = 728
+    Top = 136
+  end
+  object CDS_Main: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 760
+    Top = 136
+  end
+  object DataSource1: TDataSource
+    DataSet = CDS_Main
+    Left = 792
+    Top = 136
+  end
+  object ADOQueryTemp: TADOQuery
+    Connection = DataLink_TradeManage.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 944
+    Top = 32
+  end
+  object ADOQueryCmd: TADOQuery
+    Connection = DataLink_TradeManage.ADOLink
+    Parameters = <>
+    Left = 968
+    Top = 40
+  end
+  object ADOQueryMain: TADOQuery
+    Connection = DataLink_TradeManage.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 984
+    Top = 40
+  end
+end

打卷检验管理/U_BanCpCkSaoM.pas

@@ -0,0 +1,253 @@
+unit U_BanCpCkSaoM;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData,
+  cxDataStorage, cxEdit, DB, cxDBData, StdCtrls, ExtCtrls, ADODB, DBClient,
+  cxGridCustomPopupMenu, cxGridPopupMenu, cxGridLevel,
+  cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxClasses,
+  cxControls, cxGridCustomView, cxGrid;
+
+type
+  TfrmBanCpCkSaoM = class(TForm)
+    cxGrid2: TcxGrid;
+    Tv1: TcxGridDBTableView;
+    v1Column1: TcxGridDBColumn;
+    v2Column1: TcxGridDBColumn;
+    v2Column3: TcxGridDBColumn;
+    v1Column3: TcxGridDBColumn;
+    v1Column2: TcxGridDBColumn;
+    v2Column5: TcxGridDBColumn;
+    v2Column6: TcxGridDBColumn;
+    cxGrid2Level1: TcxGridLevel;
+    cxGridPopupMenu1: TcxGridPopupMenu;
+    CDS_Main: TClientDataSet;
+    DataSource1: TDataSource;
+    ADOQueryTemp: TADOQuery;
+    ADOQueryCmd: TADOQuery;
+    ADOQueryMain: TADOQuery;
+    Panel1: TPanel;
+    XJID: TEdit;
+    Label1: TLabel;
+    Button1: TButton;
+    v1Column5: TcxGridDBColumn;
+    Button2: TButton;
+    v1Column6: TcxGridDBColumn;
+    procedure FormClose(Sender: TObject; var Action: TCloseAction);
+    procedure FormDestroy(Sender: TObject);
+    procedure FormShow(Sender: TObject);
+    procedure XJIDKeyPress(Sender: TObject; var Key: Char);
+    procedure Button1Click(Sender: TObject);
+    procedure Tv1DblClick(Sender: TObject);
+    procedure Button2Click(Sender: TObject);
+  private
+    { Private declarations }
+    procedure InitGrid();
+  public
+    { Public declarations }
+  end;
+
+var
+  frmBanCpCkSaoM: TfrmBanCpCkSaoM;
+
+implementation
+uses
+U_DataLink,U_Fun ;
+
+{$R *.dfm}
+
+procedure TfrmBanCpCkSaoM.FormClose(Sender: TObject;
+  var Action: TCloseAction);
+begin
+  Action:=caFree;
+end;
+
+procedure TfrmBanCpCkSaoM.FormDestroy(Sender: TObject);
+begin
+  frmBanCpCkSaoM:=nil;
+end;
+procedure TfrmBanCpCkSaoM.InitGrid();
+begin
+  try
+    ADOQueryMain.DisableControls;
+    with ADOQueryMain do
+    begin
+      Filtered:=False;
+      Close;
+      sql.Clear;
+      SQL.Add('select A.*,B.OrderNo,B.MPRTCodeName,C.PRTColor,F.KCQty,F.KCKgQty,F.KCQtyUnit,KK.GangNo  ');
+      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 KK on D.APID=KK.APID');
+      sql.Add(' inner join CK_BanCP_KC F on A.CRID=F.CRID');
+      sql.add('where 1<>1');
+      Open;
+    end;
+    SCreateCDS20(ADOQueryMain,CDS_Main);
+    SInitCDSData20(ADOQueryMain,CDS_Main);
+  finally
+    ADOQueryMain.EnableControls;
+  end;
+end;
+
+procedure TfrmBanCpCkSaoM.FormShow(Sender: TObject);
+begin
+  ReadCxGrid('成品出库',Tv1,'成品仓库');
+  InitGrid();
+end;
+
+procedure TfrmBanCpCkSaoM.XJIDKeyPress(Sender: TObject; var Key: Char);
+begin
+  if Key=#13 then
+  begin
+    with ADOQueryTemp do
+    begin
+      Close;
+      sql.Clear;
+      SQL.Add('select A.*  ');
+      sql.add('from CK_BanCP_CR A ');
+      sql.add('where A.MJID='''+Trim(XJID.Text)+'''');
+      Open;
+    end;
+    if ADOQueryTemp.IsEmpty then
+    begin
+      Application.MessageBox('条码错误！','提示',0);
+      Exit;
+    end;
+    with ADOQueryTemp do
+    begin
+      Close;
+      sql.Clear;
+      SQL.Add('select A.*,B.OrderNo,B.MPRTCodeName,C.PRTColor,F.KCQty,F.KCKgQty,F.KCQtyUnit,KK.GangNo  ');
+      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 KK on D.APID=KK.APID');
+      sql.Add(' inner join CK_BanCP_KC F on A.CRID=F.CRID');
+      sql.add('where A.MJID='''+Trim(XJID.Text)+'''');
+      sql.Add(' and KCQty>0 and A.CRType=''检验入库'' ');
+      Open;
+    end;
+    if ADOQueryTemp.IsEmpty=False  then
+    begin
+      if CDS_Main.Locate('MJID',Trim(ADOQueryTemp.fieldbyname('MJID').AsString),[])=True then
+      begin
+        Application.MessageBox('已经扫描过，不能再次扫描！','提示',0);
+        Exit;
+      end;
+      with CDS_Main do
+      begin
+        Append;
+        FieldByName('OrderNo').Value:=ADOQueryTemp.fieldbyname('OrderNo').Value;
+        FieldByName('MPRTCodeName').Value:=ADOQueryTemp.fieldbyname('MPRTCodeName').Value;
+        FieldByName('PRTColor').Value:=ADOQueryTemp.fieldbyname('PRTColor').Value;
+        FieldByName('GangNo').Value:=ADOQueryTemp.fieldbyname('GangNo').Value;
+        FieldByName('CRID').Value:=ADOQueryTemp.fieldbyname('CRID').Value;
+        FieldByName('CRTime').Value:=SGetServerDateTime(ADOQueryCmd);
+        FieldByName('KGQty').Value:=ADOQueryTemp.fieldbyname('kCKGQty').Value;
+        FieldByName('Qty').Value:=ADOQueryTemp.fieldbyname('KCQty').Value;
+        FieldByName('QtyUnit').Value:=ADOQueryTemp.fieldbyname('KCQtyUnit').Value;
+        FieldByName('MJID').Value:=ADOQueryTemp.fieldbyname('MJID').Value;
+        FieldByName('APID').Value:=ADOQueryTemp.fieldbyname('APID').Value;
+        Post;
+      end;
+    end else
+    begin
+      Application.MessageBox('此卷已经出库，不能再次出库！','提示',0);
+      Exit;
+    end;
+    XJID.Text:='';
+  end;
+end;
+
+procedure TfrmBanCpCkSaoM.Button1Click(Sender: TObject);
+var
+  maxno:string;
+begin
+  if CDS_Main.IsEmpty then Exit;
+  XJID.SetFocus;
+  if Application.MessageBox('确定要执行此操作吗？','提示',32+4)<>IDYES then Exit;
+  try
+    ADOQueryCmd.Connection.BeginTrans;
+    with CDS_Main do
+    begin
+      First;
+      while not Eof do
+      begin
+        if GetLSNo(ADOQueryCmd,maxno,'ZC','CK_BanCp_CR',4,1)=False then
+        begin
+          ADOQueryCmd.Connection.RollbackTrans;
+          Application.MessageBox('取出库最大号失败！','提示',0);
+          Exit;
+        end;
+        with ADOQueryCmd do
+        begin
+          Close;
+          sql.Clear;
+          sql.Add('Update CK_BanCp_CR Set NowOutFlag=1 where MJID='''+Trim(CDS_Main.fieldbyname('MJID').AsString)+'''');
+          SQL.Add(' and CRType=''正常出库'' ');
+          ExecSQL;
+        end;
+        with ADOQueryCmd do
+        begin
+          Close;
+          sql.Clear;
+          sql.Add('select * from CK_BanCp_CR where 1<>1');
+          Open;
+        end;
+        with ADOQueryCmd do
+        begin
+          Append;
+          FieldByName('BCID').Value:=Trim(maxno);
+          FieldByName('CRID').Value:=CDS_Main.fieldbyname('CRID').Value;
+          FieldByName('CRTime').Value:=CDS_Main.fieldbyname('CRTime').Value;
+          FieldByName('KGQty').Value:=CDS_Main.fieldbyname('KGQty').Value;
+          FieldByName('Qty').Value:=CDS_Main.fieldbyname('Qty').Value;
+          FieldByName('QtyUnit').Value:=CDS_Main.fieldbyname('QtyUnit').Value;
+          FieldByName('MJID').Value:=CDS_Main.fieldbyname('MJID').Value;
+          FieldByName('APID').Value:=CDS_Main.fieldbyname('APID').Value;
+          FieldByName('CPType').Value:=CDS_Main.fieldbyname('CPType').Value;
+          FieldByName('FillTime').Value:=SGetServerDateTime(ADOQueryTemp);
+          FieldByName('Filler').Value:=Trim(DName);
+          FieldByName('CRFlag').Value:='出库';
+          FieldByName('CRType').Value:='正常出库';
+          Post;
+        end;
+        with ADOQueryCmd do
+        begin
+          Close;
+          sql.Clear;
+          sql.Add('Update CK_BanCp_KC set KCKgQty=0,KCQty=0 where CRID='+CDS_Main.fieldbyname('CRID').AsString);
+          ExecSQL;
+        end;
+        Next;
+      end;
+    end;
+    ADOQueryCmd.Connection.CommitTrans;
+    InitGrid();
+    Application.MessageBox('出库成功！','提示',0);
+    Exit;
+  except
+    ADOQueryCmd.Connection.RollbackTrans;
+    Application.MessageBox('出库异常！','提示',0);
+  end;
+end;
+
+procedure TfrmBanCpCkSaoM.Tv1DblClick(Sender: TObject);
+begin
+  if CDS_Main.IsEmpty then Exit;
+  CDS_Main.Delete;
+end;
+
+procedure TfrmBanCpCkSaoM.Button2Click(Sender: TObject);
+begin
+  Close;
+  WriteCxGrid('成品出库',Tv1,'成品仓库');
+end;
+
+end.

打卷检验管理/U_BanCpHCSaoM.dfm

@@ -0,0 +1,212 @@
+object frmBanCpHCSaoM: TfrmBanCpHCSaoM
+  Left = 241
+  Top = 177
+  Width = 905
+  Height = 504
+  Caption = #21322#25104#21697#22238#20179#25195#25551
+  Color = clBtnFace
+  Font.Charset = ANSI_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -16
+  Font.Name = #23435#20307
+  Font.Style = [fsBold]
+  OldCreateOrder = False
+  OnClose = FormClose
+  OnDestroy = FormDestroy
+  OnShow = FormShow
+  PixelsPerInch = 96
+  TextHeight = 16
+  object cxGrid2: TcxGrid
+    Left = 0
+    Top = 81
+    Width = 897
+    Height = 386
+    Align = alClient
+    TabOrder = 0
+    object Tv1: TcxGridDBTableView
+      NavigatorButtons.ConfirmDelete = False
+      DataController.DataSource = DataSource1
+      DataController.Summary.DefaultGroupSummaryItems = <>
+      DataController.Summary.FooterSummaryItems = <
+        item
+          Kind = skSum
+          Column = v2Column5
+        end
+        item
+          Kind = skSum
+          Column = v2Column6
+        end
+        item
+          Kind = skSum
+        end
+        item
+          Kind = skSum
+        end
+        item
+          Kind = skSum
+        end
+        item
+          Kind = skSum
+        end>
+      DataController.Summary.SummaryGroups = <>
+      OptionsCustomize.ColumnFiltering = False
+      OptionsView.Footer = True
+      OptionsView.GroupByBox = False
+      Styles.Header = cxStyle1
+      object v1Column1: TcxGridDBColumn
+        Caption = #35746#21333#21495
+        DataBinding.FieldName = 'orderNo'
+        HeaderAlignmentHorz = taCenter
+        Options.Focusing = False
+        Width = 77
+      end
+      object v2Column1: TcxGridDBColumn
+        Caption = #20135#21697#20195#21495
+        DataBinding.FieldName = 'MPRTCodeName'
+        HeaderAlignmentHorz = taCenter
+        Options.Focusing = False
+        Width = 112
+      end
+      object v2Column3: TcxGridDBColumn
+        Caption = #39068#33394
+        DataBinding.FieldName = 'PRTColor'
+        HeaderAlignmentHorz = taCenter
+        Options.Focusing = False
+        Width = 77
+      end
+      object v1Column3: TcxGridDBColumn
+        Caption = #38376#24133
+        DataBinding.FieldName = 'MPRTMF'
+        HeaderAlignmentHorz = taCenter
+        Options.Focusing = False
+        Width = 58
+      end
+      object v1Column4: TcxGridDBColumn
+        Caption = #20811#37325
+        DataBinding.FieldName = 'MPRTKZ'
+        HeaderAlignmentHorz = taCenter
+        Options.Focusing = False
+        Width = 57
+      end
+      object v1Column5: TcxGridDBColumn
+        Caption = #26465#30721
+        DataBinding.FieldName = 'MJID'
+        HeaderAlignmentHorz = taCenter
+        Options.Focusing = False
+        Width = 123
+      end
+      object v1Column2: TcxGridDBColumn
+        Caption = #22238#20179#26102#38388
+        DataBinding.FieldName = 'CRTime'
+        HeaderAlignmentHorz = taCenter
+        Options.Focusing = False
+        Width = 88
+      end
+      object v2Column5: TcxGridDBColumn
+        Caption = #22238#20179#20844#26020#25968
+        DataBinding.FieldName = 'KGQty'
+        HeaderAlignmentHorz = taCenter
+        Width = 100
+      end
+      object v2Column6: TcxGridDBColumn
+        Caption = #22238#20179#38271#24230
+        DataBinding.FieldName = 'Qty'
+        HeaderAlignmentHorz = taCenter
+        Width = 85
+      end
+      object v1Column6: TcxGridDBColumn
+        Caption = #38271#24230#21333#20301
+        DataBinding.FieldName = 'QtyUnit'
+        Options.Focusing = False
+        Width = 74
+      end
+    end
+    object cxGrid2Level1: TcxGridLevel
+      GridView = Tv1
+    end
+  end
+  object Panel1: TPanel
+    Left = 0
+    Top = 0
+    Width = 897
+    Height = 81
+    Align = alTop
+    BevelInner = bvRaised
+    BevelOuter = bvLowered
+    TabOrder = 1
+    object Label1: TLabel
+      Left = 56
+      Top = 40
+      Width = 68
+      Height = 16
+      Caption = #25195#25551#20837#21475
+    end
+    object XJID: TEdit
+      Left = 124
+      Top = 37
+      Width = 167
+      Height = 24
+      TabOrder = 0
+      OnKeyPress = XJIDKeyPress
+    end
+    object Button1: TButton
+      Left = 309
+      Top = 38
+      Width = 75
+      Height = 23
+      Caption = #22238#20179
+      TabOrder = 1
+      OnClick = Button1Click
+    end
+    object Button2: TButton
+      Left = 421
+      Top = 38
+      Width = 75
+      Height = 23
+      Caption = #20851#38381
+      TabOrder = 2
+      OnClick = Button2Click
+    end
+  end
+  object cxGridPopupMenu1: TcxGridPopupMenu
+    Grid = cxGrid2
+    PopupMenus = <>
+    Left = 728
+    Top = 136
+  end
+  object CDS_Main: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 760
+    Top = 136
+  end
+  object DataSource1: TDataSource
+    DataSet = CDS_Main
+    Left = 792
+    Top = 136
+  end
+  object ADOQueryTemp: TADOQuery
+    Connection = DataLink_TradeManage.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 944
+    Top = 32
+  end
+  object ADOQueryCmd: TADOQuery
+    Connection = DataLink_TradeManage.ADOLink
+    Parameters = <>
+    Left = 968
+    Top = 40
+  end
+  object ADOQueryMain: TADOQuery
+    Connection = DataLink_TradeManage.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 984
+    Top = 40
+  end
+  object cxStyleRepository1: TcxStyleRepository
+    object cxStyle1: TcxStyle
+    end
+  end
+end

打卷检验管理/U_BanCpHCSaoM.pas

@@ -0,0 +1,264 @@
+unit U_BanCpHCSaoM;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData,
+  cxDataStorage, cxEdit, DB, cxDBData, StdCtrls, ExtCtrls, ADODB, DBClient,
+  cxGridCustomPopupMenu, cxGridPopupMenu, cxGridLevel,
+  cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxClasses,
+  cxControls, cxGridCustomView, cxGrid;
+
+type
+  TfrmBanCpHCSaoM = class(TForm)
+    cxGrid2: TcxGrid;
+    Tv1: TcxGridDBTableView;
+    v1Column1: TcxGridDBColumn;
+    v2Column1: TcxGridDBColumn;
+    v2Column3: TcxGridDBColumn;
+    v1Column3: TcxGridDBColumn;
+    v1Column4: TcxGridDBColumn;
+    v1Column2: TcxGridDBColumn;
+    v2Column5: TcxGridDBColumn;
+    v2Column6: TcxGridDBColumn;
+    cxGrid2Level1: TcxGridLevel;
+    cxGridPopupMenu1: TcxGridPopupMenu;
+    CDS_Main: TClientDataSet;
+    DataSource1: TDataSource;
+    ADOQueryTemp: TADOQuery;
+    ADOQueryCmd: TADOQuery;
+    ADOQueryMain: TADOQuery;
+    Panel1: TPanel;
+    XJID: TEdit;
+    Label1: TLabel;
+    Button1: TButton;
+    v1Column5: TcxGridDBColumn;
+    Button2: TButton;
+    v1Column6: TcxGridDBColumn;
+    cxStyleRepository1: TcxStyleRepository;
+    cxStyle1: TcxStyle;
+    procedure FormClose(Sender: TObject; var Action: TCloseAction);
+    procedure FormDestroy(Sender: TObject);
+    procedure FormShow(Sender: TObject);
+    procedure XJIDKeyPress(Sender: TObject; var Key: Char);
+    procedure Button1Click(Sender: TObject);
+    procedure Button2Click(Sender: TObject);
+  private
+    { Private declarations }
+    procedure InitGrid();
+  public
+    { Public declarations }
+  end;
+
+var
+  frmBanCpHCSaoM: TfrmBanCpHCSaoM;
+
+implementation
+uses
+U_DataLink,U_Fun ;
+
+{$R *.dfm}
+
+procedure TfrmBanCpHCSaoM.FormClose(Sender: TObject;
+  var Action: TCloseAction);
+begin
+  Action:=caFree;
+end;
+
+procedure TfrmBanCpHCSaoM.FormDestroy(Sender: TObject);
+begin
+  frmBanCpHCSaoM:=nil;
+end;
+procedure TfrmBanCpHCSaoM.InitGrid();
+begin
+  try
+    ADOQueryMain.DisableControls;
+    with ADOQueryMain do
+    begin
+      Filtered:=False;
+      Close;
+      sql.Clear;
+      SQL.Add('select A.*,B.OrderNo,B.MPRTCodeName,C.PRTColor,B.MPRTMF,B.MPRTKZ  ');
+      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('where 1<>1');
+      Open;
+    end;
+    SCreateCDS20(ADOQueryMain,CDS_Main);
+    SInitCDSData20(ADOQueryMain,CDS_Main);
+  finally
+    ADOQueryMain.EnableControls;
+  end;
+end;
+
+procedure TfrmBanCpHCSaoM.FormShow(Sender: TObject);
+begin
+  ReadCxGrid('成品回仓',Tv1,'成品仓库');
+  InitGrid();
+end;
+
+procedure TfrmBanCpHCSaoM.XJIDKeyPress(Sender: TObject; var Key: Char);
+begin
+  if Key=#13 then
+  begin
+    with ADOQueryTemp do
+    begin
+      Close;
+      sql.Clear;
+      SQL.Add('select A.*  ');
+      sql.add('from CK_BanCP_CR A ');
+      sql.add('where A.MJID='''+Trim(XJID.Text)+'''');
+      Open;
+    end;
+    if ADOQueryTemp.IsEmpty then
+    begin
+      Application.MessageBox('条码错误！','提示',0);
+      Exit;
+    end;
+    with ADOQueryTemp do
+    begin
+      Close;
+      sql.Clear;
+      SQL.Add('select A.*,B.OrderNo,B.MPRTCodeName,C.PRTColor,B.MPRTMF,B.MPRTKZ,F.KCQty,F.KCKgQty  ');
+      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 CK_BanCP_KC F on A.CRID=F.CRID');
+      sql.add('where A.MJID='''+Trim(XJID.Text)+'''');
+      sql.Add(' and KCQty=0 and A.CRType=''检验入库'' ');
+      Open;
+    end;
+    if ADOQueryTemp.IsEmpty=false  then
+    begin
+      if CDS_Main.Locate('MJID',Trim(ADOQueryTemp.fieldbyname('MJID').AsString),[])=True then
+      begin
+        Application.MessageBox('已经扫描过，不能再次扫描！','提示',0);
+        Exit;
+      end;
+      with CDS_Main do
+      begin
+        Append;
+        FieldByName('OrderNo').Value:=ADOQueryTemp.fieldbyname('OrderNo').Value;
+        FieldByName('MPRTCodeName').Value:=ADOQueryTemp.fieldbyname('MPRTCodeName').Value;
+        FieldByName('PRTColor').Value:=ADOQueryTemp.fieldbyname('PRTColor').Value;
+        FieldByName('MPRTMF').Value:=ADOQueryTemp.fieldbyname('MPRTMF').Value;
+        FieldByName('MPRTKZ').Value:=ADOQueryTemp.fieldbyname('MPRTKZ').Value;
+        FieldByName('CRID').Value:=ADOQueryTemp.fieldbyname('CRID').Value;
+        FieldByName('CRTime').Value:=SGetServerDateTime(ADOQueryCmd);
+        FieldByName('KGQty').Value:=ADOQueryTemp.fieldbyname('KGQty').Value;
+        FieldByName('Qty').Value:=ADOQueryTemp.fieldbyname('Qty').Value;
+        FieldByName('QtyUnit').Value:=ADOQueryTemp.fieldbyname('QtyUnit').Value;
+        FieldByName('MainID').Value:=ADOQueryTemp.fieldbyname('MainID').Value;
+        FieldByName('SubID').Value:=ADOQueryTemp.fieldbyname('SubID').Value;
+        FieldByName('APID').Value:=ADOQueryTemp.fieldbyname('APID').Value;
+        FieldByName('CPType').Value:=ADOQueryTemp.fieldbyname('CPType').Value;
+        FieldByName('MJID').Value:=ADOQueryTemp.fieldbyname('MJID').Value;
+        Post;
+      end;
+    end else
+    begin
+      Application.MessageBox('此卷已在仓库中，无需回仓！','提示',0);
+      Exit;
+    end;
+    XJID.Text:='';
+  end;
+end;
+
+procedure TfrmBanCpHCSaoM.Button1Click(Sender: TObject);
+var
+  maxno:string;
+begin
+  if CDS_Main.IsEmpty then Exit;
+  if CDS_Main.Locate('KgQty',0,[]) then
+  begin
+    Application.MessageBox('回仓公斤数不能为0！','提示',0);
+    Exit;
+  end;
+  if CDS_Main.Locate('Qty',0,[]) then
+  begin
+    Application.MessageBox('回仓长度不能为0！','提示',0);
+    Exit;
+  end;
+  if CDS_Main.Locate('KgQty',null,[]) then
+  begin
+    Application.MessageBox('回仓公斤数不能为空！','提示',0);
+    Exit;
+  end;
+  if CDS_Main.Locate('Qty',null,[]) then
+  begin
+    Application.MessageBox('回仓长度不能为空！','提示',0);
+    Exit;
+  end;
+  XJID.SetFocus;
+  if Application.MessageBox('确定要执行此操作吗？','提示',32+4)<>IDYES then Exit;
+  try
+    ADOQueryCmd.Connection.BeginTrans;
+    with CDS_Main do
+    begin
+      First;
+      while not Eof do
+      begin
+        if GetLSNo(ADOQueryCmd,maxno,'HC','CK_BanCp_CR',4,1)=False then
+        begin
+          ADOQueryCmd.Connection.RollbackTrans;
+          Application.MessageBox('取出库最大号失败！','提示',0);
+          Exit;
+        end;
+        with ADOQueryCmd do
+        begin
+          Close;
+          sql.Clear;
+          sql.Add('select * from CK_BanCp_CR where 1<>1');
+          Open;
+        end;
+        with ADOQueryCmd do
+        begin
+          Append;
+          FieldByName('BCID').Value:=Trim(maxno);
+          FieldByName('CRID').Value:=CDS_Main.fieldbyname('CRID').Value;
+          FieldByName('CRTime').Value:=CDS_Main.fieldbyname('CRTime').Value;
+          FieldByName('KGQty').Value:=CDS_Main.fieldbyname('KGQty').Value;
+          FieldByName('Qty').Value:=CDS_Main.fieldbyname('Qty').Value;
+          FieldByName('QtyUnit').Value:=CDS_Main.fieldbyname('QtyUnit').Value;
+          FieldByName('MainID').Value:=CDS_Main.fieldbyname('MainID').Value;
+          FieldByName('SubID').Value:=CDS_Main.fieldbyname('SubID').Value;
+          FieldByName('APID').Value:=CDS_Main.fieldbyname('APID').Value;
+          FieldByName('MJID').Value:=CDS_Main.fieldbyname('MJID').Value;
+          FieldByName('CPType').Value:=CDS_Main.fieldbyname('CPType').Value;
+          FieldByName('FillTime').Value:=SGetServerDateTime(ADOQueryTemp);
+          FieldByName('Filler').Value:=Trim(DName);
+          FieldByName('CRFlag').Value:='入库';
+          FieldByName('CRType').Value:='回仓';
+          Post;
+        end;
+        with ADOQueryCmd do
+        begin
+          Close;
+          sql.Clear;
+          SQL.Add('Update CK_BanCp_KC set KCKgQty='+cds_main.fieldbyname('KgQty').AsString);
+          SQL.Add(',KCQty='+cds_main.fieldbyname('Qty').AsString);
+          sql.Add(' where CRID='+CDS_Main.fieldbyname('CRID').AsString);
+          ExecSQL;
+        end;
+        Next;
+      end;
+    end;
+    ADOQueryCmd.Connection.CommitTrans;
+    InitGrid();
+    Application.MessageBox('回仓成功！','提示',0);
+    Exit;
+  except
+    ADOQueryCmd.Connection.RollbackTrans;
+    Application.MessageBox('回仓异常！','提示',0);
+  end;
+end;
+
+procedure TfrmBanCpHCSaoM.Button2Click(Sender: TObject);
+begin
+  Close;
+  WriteCxGrid('成品回仓',Tv1,'成品仓库');
+end;
+
+end.

打卷检验管理/U_BangAdd.dfm

@@ -0,0 +1,255 @@
+object frmBangAdd: TfrmBangAdd
+  Left = 232
+  Top = 185
+  Width = 703
+  Height = 396
+  Caption = #26816#39564#31216#37325
+  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 Label1: TLabel
+    Left = 193
+    Top = 79
+    Width = 52
+    Height = 12
+    Caption = #25195#25551#20837#21475
+    Font.Charset = GB2312_CHARSET
+    Font.Color = clRed
+    Font.Height = -12
+    Font.Name = #23435#20307
+    Font.Style = [fsBold]
+    ParentFont = False
+  end
+  object Label2: TLabel
+    Left = 392
+    Top = 77
+    Width = 9
+    Height = 16
+    Font.Charset = GB2312_CHARSET
+    Font.Color = clRed
+    Font.Height = -16
+    Font.Name = #23435#20307
+    Font.Style = [fsBold]
+    ParentFont = False
+    Visible = False
+  end
+  object Label3: TLabel
+    Left = 193
+    Top = 115
+    Width = 54
+    Height = 12
+    Caption = #31216'    '#37325
+    Font.Charset = GB2312_CHARSET
+    Font.Color = clBlue
+    Font.Height = -12
+    Font.Name = #23435#20307
+    Font.Style = [fsBold]
+    ParentFont = False
+  end
+  object Label4: TLabel
+    Left = 387
+    Top = 115
+    Width = 15
+    Height = 14
+    Caption = #30917
+    Font.Charset = GB2312_CHARSET
+    Font.Color = clBlack
+    Font.Height = -14
+    Font.Name = #23435#20307
+    Font.Style = [fsBold]
+    ParentFont = False
+  end
+  object Label5: TLabel
+    Left = 193
+    Top = 147
+    Width = 54
+    Height = 12
+    Caption = #32440'    '#31649
+    Font.Charset = GB2312_CHARSET
+    Font.Color = clBlue
+    Font.Height = -12
+    Font.Name = #23435#20307
+    Font.Style = [fsBold]
+    ParentFont = False
+  end
+  object Label6: TLabel
+    Left = 387
+    Top = 147
+    Width = 15
+    Height = 14
+    Caption = #30917
+    Font.Charset = GB2312_CHARSET
+    Font.Color = clBlack
+    Font.Height = -14
+    Font.Name = #23435#20307
+    Font.Style = [fsBold]
+    ParentFont = False
+  end
+  object Label7: TLabel
+    Left = 193
+    Top = 179
+    Width = 54
+    Height = 12
+    Caption = #33014'    '#24102
+    Font.Charset = GB2312_CHARSET
+    Font.Color = clBlue
+    Font.Height = -12
+    Font.Name = #23435#20307
+    Font.Style = [fsBold]
+    ParentFont = False
+  end
+  object Label8: TLabel
+    Left = 387
+    Top = 179
+    Width = 15
+    Height = 14
+    Caption = #30917
+    Font.Charset = GB2312_CHARSET
+    Font.Color = clBlack
+    Font.Height = -14
+    Font.Name = #23435#20307
+    Font.Style = [fsBold]
+    ParentFont = False
+  end
+  object MJID: TEdit
+    Left = 248
+    Top = 73
+    Width = 138
+    Height = 24
+    Font.Charset = GB2312_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -16
+    Font.Name = #23435#20307
+    Font.Style = []
+    ParentFont = False
+    TabOrder = 0
+    OnKeyPress = MJIDKeyPress
+  end
+  object Button1: TButton
+    Left = 193
+    Top = 232
+    Width = 57
+    Height = 25
+    Caption = #30830#23450
+    TabOrder = 1
+    OnClick = Button1Click
+    OnKeyPress = Button1KeyPress
+  end
+  object Button2: TButton
+    Left = 343
+    Top = 232
+    Width = 60
+    Height = 25
+    Caption = #36864#20986
+    TabOrder = 2
+    OnClick = Button2Click
+  end
+  object Edit1: TEdit
+    Left = 248
+    Top = 109
+    Width = 136
+    Height = 24
+    Font.Charset = GB2312_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -16
+    Font.Name = #23435#20307
+    Font.Style = []
+    ParentFont = False
+    TabOrder = 3
+    OnKeyPress = MJIDKeyPress
+  end
+  object CheckBox1: TCheckBox
+    Left = 248
+    Top = 44
+    Width = 97
+    Height = 17
+    Caption = #33258#21160#35835#21462
+    Checked = True
+    State = cbChecked
+    TabOrder = 4
+    OnClick = CheckBox1Click
+  end
+  object Edit2: TEdit
+    Left = 248
+    Top = 141
+    Width = 136
+    Height = 24
+    Font.Charset = GB2312_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -16
+    Font.Name = #23435#20307
+    Font.Style = []
+    ParentFont = False
+    TabOrder = 5
+    OnKeyPress = MJIDKeyPress
+  end
+  object Edit3: TEdit
+    Left = 248
+    Top = 173
+    Width = 136
+    Height = 24
+    Font.Charset = GB2312_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -16
+    Font.Name = #23435#20307
+    Font.Style = []
+    ParentFont = False
+    TabOrder = 6
+    OnKeyPress = MJIDKeyPress
+  end
+  object ADOCmd: TADOQuery
+    Connection = DataLink_RCInspection.ADOLink
+    Parameters = <>
+    Left = 608
+    Top = 144
+  end
+  object ADOTmp: TADOQuery
+    Connection = DataLink_RCInspection.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 608
+    Top = 200
+  end
+  object RM2: 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 = 560
+    Top = 200
+    ReportData = {}
+  end
+  object RMDB_Main: TRMDBDataSet
+    Visible = True
+    DataSet = ADOQueryPrint
+    Left = 536
+    Top = 144
+  end
+  object ADOQueryPrint: TADOQuery
+    Connection = DataLink_RCInspection.ADOLink
+    Parameters = <>
+    Left = 512
+    Top = 184
+  end
+end

打卷检验管理/U_BangAdd.pas

@@ -0,0 +1,308 @@
+unit U_BangAdd;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, StdCtrls, DB, ADODB,OleCtrls, RM_Dataset, RM_System, RM_Common,
+  RM_Class, RM_GridReport;
+  function CommOpen(fhandle:hwnd;sCommName:PAnsiChar;
+                    IntTime:integer;IsMessage:integer):integer;stdcall;external 'ELERS323C.DLL';
+  function CommClose(sCommName:PAnsiChar):integer;stdcall;external 'ELERS323C.DLL';
+
+type
+  TfrmBangAdd = class(TForm)
+    Label1: TLabel;
+    MJID: TEdit;
+    Label2: TLabel;
+    Button1: TButton;
+    Button2: TButton;
+    Edit1: TEdit;
+    ADOCmd: TADOQuery;
+    ADOTmp: TADOQuery;
+    Label3: TLabel;
+    Label4: TLabel;
+    CheckBox1: TCheckBox;
+    RM2: TRMGridReport;
+    RMDB_Main: TRMDBDataSet;
+    ADOQueryPrint: TADOQuery;
+    Label5: TLabel;
+    Label6: TLabel;
+    Edit2: TEdit;
+    Label7: TLabel;
+    Label8: TLabel;
+    Edit3: TEdit;
+    procedure MJIDKeyPress(Sender: TObject; var Key: Char);
+    procedure FormDestroy(Sender: TObject);
+    procedure Button1Click(Sender: TObject);
+    procedure Button2Click(Sender: TObject);
+    procedure FormClose(Sender: TObject; var Action: TCloseAction);
+    procedure FormShow(Sender: TObject);
+    procedure CheckBox1Click(Sender: TObject);
+    procedure Button1KeyPress(Sender: TObject; var Key: Char);
+  private
+    { Private declarations }
+    procedure On1201(Var Message:Tmessage);Message 1201;
+    procedure PrintData();
+  public
+    { Public declarations }
+  end;
+
+var
+  frmBangAdd: TfrmBangAdd;
+
+implementation
+
+{$R *.dfm}
+procedure TfrmBangAdd.On1201(Var Message:Tmessage);
+var
+  i1,i2:integer;
+  unitname:string;
+  fdata:double;
+begin
+  i1:=message.WParam;
+  i2:=message.LParam;
+
+  Edit1.Text:= floattostr(i1 *i2 /100000 );
+end;
+
+procedure TfrmBangAdd.MJIDKeyPress(Sender: TObject; var Key: Char);
+begin
+  if Key=#13 then
+  begin
+    with ADOTmp do
+    begin
+      Close;
+      sql.Clear;
+      sql.Add('select * from WFB_MJJY where MJID='''+Trim(MJID.Text)+'''');
+      Open;
+    end;
+    if ADOTmp.IsEmpty=False then
+    begin
+      Label2.Visible:=True;
+      Label2.Caption:=Trim(ADOTmp.fieldbyname('MJID').AsString);
+    end else
+    begin
+      MJID.Text:='';
+      Label2.Visible:=False;
+      Label2.Caption:='';
+      Application.MessageBox('条码错误!','提示',0);
+      Exit;
+    end;
+    MJID.Text:='';
+    Button1.SetFocus;
+  end;
+end;
+
+procedure TfrmBangAdd.FormDestroy(Sender: TObject);
+begin
+  frmBangAdd:=nil;
+end;
+
+procedure TfrmBangAdd.Button1Click(Sender: TObject);
+var
+  FZG,FJD:string;
+  FFreal,FMJMaoZ:Double;
+begin
+  if Label2.Caption='' then
+  begin
+    Application.MessageBox('未扫条码!','提示',0);
+    Exit;
+  end;
+  if Trim(Edit1.Text)='' then
+  begin
+    Application.MessageBox('重量不能为空!','提示',0);
+    Exit;
+  end;
+  with ADOTmp do
+  begin
+    Close;
+    sql.Clear;
+    SQL.Add('select * from WFB_MJJY where MJID='''+Trim(Label2.Caption)+'''');
+    Open;
+  end;
+  if ADOTmp.FieldByName('MJMaoZ').AsFloat>0 then
+  begin
+    if Application.MessageBox('已称重，确定要重新称重吗？','提示',32+4)<>IDYES then Exit;
+  end;
+  if Trim(Edit2.Text)<>'' then
+  begin
+    if TryStrToFloat(Edit2.Text,FFreal)=False then
+    begin
+      Application.MessageBox('非法数字!','提示',0);
+      Exit;
+    end else
+    begin
+      FZG:=Edit2.Text;
+    end;
+  end else
+  begin
+    FZG:='0';
+  end;
+  if Trim(Edit3.Text)<>'' then
+  begin
+    if TryStrToFloat(Edit3.Text,FFreal)=False then
+    begin
+      Application.MessageBox('非法数字!','提示',0);
+      Exit;
+    end else
+    begin
+      FJD:=Edit3.Text;
+    end;
+  end else
+  begin
+    FJD:='0';
+  end;
+  FMJMaoZ:=StrToFloat(Edit1.Text)-StrToFloat(FZG);
+  try
+    ADOCmd.Connection.BeginTrans;
+    with ADOCmd do
+    begin
+      Close;
+      sql.Clear;
+      sql.Add('Update WFB_MJJY Set MJMaoZ='+Trim(Floattostr(FMJMaoZ)));
+      sql.add(',MJQty1='+Trim(Edit1.Text));
+      sql.add(',MJQty2='+Trim(FZG));
+      sql.add(',MJQty3='+Trim(FJD));
+      SQL.Add(' where MJID='''+Trim(Label2.Caption)+'''');
+      ExecSQL;
+    end;
+    ADOCmd.Connection.CommitTrans;
+    PrintData();
+    Label2.Caption:='';
+    Label2.Visible:=False;
+    MJID.SetFocus;
+    //Application.MessageBox('操作成功!','提示',0);
+  except
+    ADOCmd.Connection.RollbackTrans;
+    Application.MessageBox('操作失败!','提示',0);
+  end;
+end;
+procedure TfrmBangAdd.PrintData();
+var
+   fPrintFile,LabInt,LabName:String;
+begin
+  with ADOTmp do
+  begin
+    Close;
+    SQL.Clear;
+    sql.Add(' select C.SLbInt,C.SLbName from WFB_MJJY A');
+    sql.Add(' inner join JYOrder_Sub_AnPai B on A.APID=B.APID');
+    sql.Add(' inner join JYOrder_Sub C on B.SubId=C.SubId');
+    sql.Add(' where A.MJID='''+Trim(Label2.Caption)+'''');
+    Open;
+  end;
+  if ADOTmp.IsEmpty=False  then
+  begin
+    LabInt:=ADOTmp.fieldbyname('SLbInt').AsString;
+    LabName:=ADOTmp.fieldbyname('SLbName').AsString;
+  end ;
+  if Trim(LabName)='' then 
+  begin
+    Application.MessageBox('卷标签未设置！','提示',0);
+    Exit;
+  end;
+ { try
+    frmLabelPrint:=TfrmLabelPrint.Create(Application);
+    with frmLabelPrint do
+    begin
+      fLabelId:=LabInt;
+      FFCDFlag:=Trim(CDFlag);
+      fKeyNo:=Trim(FXJID);
+      fIsPreviewPrint:=True;
+      frmLabelPrint.Button1.Click;
+     // if ShowModal=1 then
+      //begin
+
+     // end;
+    end;
+  finally
+    frmLabelPrint.Free;
+  end;  }
+  with ADOQueryPrint do
+  begin
+    Close;
+    sql.Clear;
+    SQL.Add('select D.OrderNo,C.PRTColor,C.PRTKZ,C.PRTType,D.OrdDefStr2,D.OrdDefStr3,D.OrdDefStr7,B.AOrdDefNote30,A.MJXH,B.GangNo');
+    SQL.Add(',C.PRTMF,C.SOrddefstr3,C.SOrddefstr5,D.DlyDate,D.DLyPlace,A.MJMaoZ,B.AOrdDefNote31,C.SOrddefstr4,');
+    SQL.Add('ColorEngName=(select top 1 Note from KH_Zdy E where E.ZdyName=C.PRTColor and E.Type=''OrdColor''  ),');
+    {SQL.Add('MJBang=Cast((A.MJMaoZ*2.2046) as decimal(18,2)),');
+    SQL.Add('MJMaoZBang=Cast(((A.MJQty1+A.MJQty3)*2.2046) as decimal(18,2)),');
+    SQL.Add('MAQty=Cast((A.MJMaoZ*100*1000/(A.MJSJKZ*(A.MJFK*2.54))*0.9144) as decimal(18,2) ),');
+    SQL.Add('MQty=Cast((A.MJMaoZ*100*1000/(A.MJSJKZ*(A.MJFK*2.54))) as decimal(18,2) ),');
+    SQL.Add('MaoZ=A.MJQty1+A.MJQty3,');
+    SQL.Add('JingZ=A.MJQty1-A.MJQty2'); }
+    SQL.Add('MJBang=A.MJMaoZ,');
+    SQL.Add('MJMaoZBang=A.MJQty1+A.MJQty3,');
+    SQL.Add('MAQty=Cast((A.MJMaoZ*0.4536*100*1000/(A.MJSJKZ*(A.MJFK*2.54))*0.9144) as decimal(18,2) ),');
+    SQL.Add('MQty=Cast((A.MJMaoZ*0.4536*100*1000/(A.MJSJKZ*(A.MJFK*2.54))) as decimal(18,2) ),');
+    SQL.Add('MaoZ=Cast((A.MJQty1+A.MJQty3)*0.4536 as decimal(18,2)),');
+    SQL.Add('JingZ=Cast((A.MJQty1-A.MJQty2)*0.4536 as decimal(18,2))');
+    SQL.Add('from WFB_MJJY A inner join JYOrder_Sub_AnPai B on A.APID=B.APID');
+    SQL.Add('inner join JYOrder_Sub C on B.SubId=C.SubId');
+    SQL.Add('inner join JYOrder_Main D on C.MainId=D.Mainid');
+    SQL.Add('where A.MJID='''+Trim(Label2.Caption)+'''');
+    Open;
+  end;
+  fPrintFile:=ExtractFilePath(Application.ExeName)+'Report\'+Trim(LabName)+'.rmf' ;
+  if FileExists(fPrintFile) then
+  begin
+    RM2.LoadFromFile(fPrintFile);
+    //RM2.ShowReport;
+    Rm2.PrintReport;
+  end else
+  begin
+    Application.MessageBox(PChar('没有找'+ExtractFilePath(Application.ExeName)+'Report\'+Trim(LabName)+'.rmf'),'提示',0);
+  end;
+ 
+end;
+
+procedure TfrmBangAdd.Button2Click(Sender: TObject);
+begin
+  Close;
+end;
+
+procedure TfrmBangAdd.FormClose(Sender: TObject; var Action: TCloseAction);
+begin
+  Action:=caFree;
+  if CheckBox1.Checked=False then
+    CommClose(pchar('com1'));
+end;
+
+procedure TfrmBangAdd.FormShow(Sender: TObject);
+begin
+  if CommOpen(frmBangAdd.Handle,pchar('com1'),500,1)<1 then
+  begin
+    showmessage('串口打开失败!');
+  end
+  else
+  begin
+  end;
+end;
+
+procedure TfrmBangAdd.CheckBox1Click(Sender: TObject);
+begin
+  if CheckBox1.Checked=True then
+  begin
+    if CommOpen(frmBangAdd.Handle,pchar('com1'),500,1)<1 then
+    begin
+      showmessage('串口打开失败!');
+    end
+    else
+    begin
+    end;
+  end else
+  begin
+    CommClose(pchar('com1'));
+  end;
+end;
+
+procedure TfrmBangAdd.Button1KeyPress(Sender: TObject; var Key: Char);
+begin
+  if Key=#13 then
+  begin
+    Button1.Click;
+  end;
+end;
+
+end.

打卷检验管理/U_BefChkHX.dfm

@@ -0,0 +1,335 @@
+object frmBefChkHX: TfrmBefChkHX
+  Left = 213
+  Top = 134
+  Width = 870
+  Height = 534
+  Caption = #26816#21069#22238#20462
+  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 Panel1: TPanel
+    Left = 0
+    Top = 32
+    Width = 854
+    Height = 73
+    Align = alTop
+    BevelInner = bvRaised
+    BevelOuter = bvLowered
+    Color = clSkyBlue
+    TabOrder = 0
+    object orderno: TLabel
+      Left = 48
+      Top = 24
+      Width = 63
+      Height = 16
+      Caption = 'orderno'
+      Font.Charset = ANSI_CHARSET
+      Font.Color = clRed
+      Font.Height = -16
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object PRTColor: TLabel
+      Left = 168
+      Top = 24
+      Width = 72
+      Height = 16
+      Caption = 'PRTColor'
+      Font.Charset = ANSI_CHARSET
+      Font.Color = clRed
+      Font.Height = -16
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object FirstName: TLabel
+      Left = 296
+      Top = 24
+      Width = 81
+      Height = 16
+      Caption = 'FirstName'
+      Font.Charset = ANSI_CHARSET
+      Font.Color = clRed
+      Font.Height = -16
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object PBFactory: TLabel
+      Left = 464
+      Top = 24
+      Width = 81
+      Height = 16
+      Caption = 'PBFactory'
+      Font.Charset = ANSI_CHARSET
+      Font.Color = clRed
+      Font.Height = -16
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+  end
+  object ToolBar2: TToolBar
+    Left = 0
+    Top = 0
+    Width = 854
+    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_TradeManage.ThreeImgList
+    List = True
+    ParentColor = False
+    ParentFont = False
+    ShowCaptions = True
+    TabOrder = 1
+    object ToolButton2: TToolButton
+      Left = 0
+      Top = 0
+      AutoSize = True
+      Caption = #22686#34892
+      ImageIndex = 103
+      OnClick = ToolButton2Click
+    end
+    object ToolButton3: TToolButton
+      Left = 63
+      Top = 0
+      AutoSize = True
+      Caption = #21024#34892
+      ImageIndex = 107
+      OnClick = ToolButton3Click
+    end
+    object ToolButton4: TToolButton
+      Left = 126
+      Top = 0
+      AutoSize = True
+      Caption = #20445#23384
+      ImageIndex = 111
+      OnClick = ToolButton4Click
+    end
+    object ToolButton5: TToolButton
+      Left = 189
+      Top = 0
+      Caption = #25171#21360
+      ImageIndex = 12
+      OnClick = ToolButton5Click
+    end
+    object ToolButton1: TToolButton
+      Left = 248
+      Top = 0
+      Caption = #20851#38381
+      ImageIndex = 55
+      OnClick = ToolButton1Click
+    end
+  end
+  object cxGrid2: TcxGrid
+    Left = 0
+    Top = 105
+    Width = 854
+    Height = 390
+    Align = alClient
+    TabOrder = 2
+    object TV2: TcxGridDBTableView
+      NavigatorButtons.ConfirmDelete = False
+      DataController.DataSource = DataSource1
+      DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
+      DataController.Summary.DefaultGroupSummaryItems = <
+        item
+          Format = '0'
+          Position = spFooter
+          Column = V2Column1
+        end>
+      DataController.Summary.FooterSummaryItems = <
+        item
+          Kind = skSum
+          Column = V2Column1
+        end
+        item
+          Kind = skSum
+          Column = V2Column7
+        end>
+      DataController.Summary.SummaryGroups = <>
+      OptionsBehavior.GoToNextCellOnEnter = True
+      OptionsCustomize.ColumnFiltering = False
+      OptionsView.Footer = True
+      OptionsView.GroupByBox = False
+      Styles.Inactive = DataLink_TradeManage.SHuangSe
+      Styles.IncSearch = DataLink_TradeManage.SHuangSe
+      Styles.Selection = DataLink_TradeManage.SHuangSe
+      Styles.Header = DataLink_TradeManage.Default
+      object V2Column2: TcxGridDBColumn
+        Tag = 2
+        Caption = #22238#20462#26102#38388
+        DataBinding.FieldName = 'HXDate'
+        PropertiesClassName = 'TcxDateEditProperties'
+        Properties.SaveTime = False
+        Properties.ShowTime = False
+        HeaderAlignmentHorz = taCenter
+        Width = 96
+      end
+      object V2Column8: TcxGridDBColumn
+        Tag = 2
+        Caption = #26579#21378
+        DataBinding.FieldName = 'HXFactory'
+        PropertiesClassName = 'TcxButtonEditProperties'
+        Properties.Buttons = <
+          item
+            Default = True
+            Kind = bkEllipsis
+          end>
+        Properties.ReadOnly = True
+        HeaderAlignmentHorz = taCenter
+        Options.Focusing = False
+        Width = 84
+      end
+      object V2Column7: TcxGridDBColumn
+        Tag = 2
+        Caption = #21305#25968#37327
+        DataBinding.FieldName = 'HXPS'
+        PropertiesClassName = 'TcxTextEditProperties'
+        HeaderAlignmentHorz = taCenter
+        Width = 50
+      end
+      object V2Column1: TcxGridDBColumn
+        Tag = 2
+        Caption = #25968#37327
+        DataBinding.FieldName = 'HXQty'
+        PropertiesClassName = 'TcxTextEditProperties'
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_TradeManage.FonePurple
+        Width = 69
+      end
+      object V2Column9: TcxGridDBColumn
+        Tag = 2
+        Caption = #32568#21495
+        DataBinding.FieldName = 'GangNo'
+        HeaderAlignmentHorz = taCenter
+        Width = 71
+      end
+      object V2Column5: TcxGridDBColumn
+        Tag = 2
+        Caption = #25968#37327#21333#20301
+        DataBinding.FieldName = 'HXUnit'
+        PropertiesClassName = 'TcxComboBoxProperties'
+        Properties.DropDownListStyle = lsFixedList
+        Properties.Items.Strings = (
+          'M'
+          'Kg')
+        HeaderAlignmentHorz = taCenter
+        Options.Focusing = False
+        Width = 74
+      end
+      object V2Column6: TcxGridDBColumn
+        Tag = 2
+        Caption = #22791#27880
+        DataBinding.FieldName = 'HXNote'
+        PropertiesClassName = 'TcxButtonEditProperties'
+        Properties.Buttons = <
+          item
+            Default = True
+            Kind = bkEllipsis
+          end>
+        HeaderAlignmentHorz = taCenter
+        Width = 123
+      end
+      object V2Column4: TcxGridDBColumn
+        Tag = 2
+        Caption = #31867#22411
+        DataBinding.FieldName = 'HXType'
+        HeaderAlignmentHorz = taCenter
+        Options.Focusing = False
+        Width = 71
+      end
+    end
+    object cxGridLevel1: TcxGridLevel
+      GridView = TV2
+    end
+  end
+  object ADOQuery1: TADOQuery
+    Connection = DataLink_TradeManage.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 352
+    Top = 8
+  end
+  object ADOQuery2: TADOQuery
+    Connection = DataLink_TradeManage.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 512
+    Top = 8
+  end
+  object ADOQuery3: TADOQuery
+    Connection = DataLink_TradeManage.ADOLink
+    Parameters = <>
+    Left = 440
+    Top = 8
+  end
+  object ClientDataSet1: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 448
+    Top = 216
+  end
+  object DataSource1: TDataSource
+    DataSet = ClientDataSet1
+    Left = 480
+    Top = 224
+  end
+  object cxGridPopupMenu1: TcxGridPopupMenu
+    Grid = cxGrid2
+    PopupMenus = <>
+    Left = 312
+    Top = 256
+  end
+  object RMDBMain: TRMDBDataSet
+    Visible = True
+    DataSet = CDS_PRT
+    Left = 416
+    Top = 160
+  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 = RMDBMain
+    CompressLevel = rmzcFastest
+    CompressThread = False
+    LaterBuildEvents = True
+    OnlyOwnerDataSet = False
+    Left = 464
+    Top = 168
+    ReportData = {}
+  end
+  object CDS_PRT: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 392
+    Top = 288
+  end
+end

打卷检验管理/U_BefChkHX.pas

@@ -0,0 +1,256 @@
+unit U_BefChkHX;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData,
+  cxDataStorage, cxEdit, DB, cxDBData, cxCalendar, cxButtonEdit,
+  cxTextEdit, StdCtrls, cxGridLevel, cxGridCustomTableView,
+  cxGridTableView, cxGridDBTableView, cxClasses, cxControls,
+  cxGridCustomView, cxGrid, ComCtrls, ToolWin, ExtCtrls, cxDropDownEdit,
+  DBClient, ADODB, cxGridCustomPopupMenu, cxGridPopupMenu, RM_Common,
+  RM_Class, RM_GridReport, RM_System, RM_Dataset;
+
+type
+  TfrmBefChkHX = class(TForm)
+    Panel1: TPanel;
+    ToolBar2: TToolBar;
+    ToolButton2: TToolButton;
+    ToolButton3: TToolButton;
+    ToolButton4: TToolButton;
+    cxGrid2: TcxGrid;
+    TV2: TcxGridDBTableView;
+    V2Column2: TcxGridDBColumn;
+    V2Column8: TcxGridDBColumn;
+    V2Column7: TcxGridDBColumn;
+    V2Column1: TcxGridDBColumn;
+    V2Column5: TcxGridDBColumn;
+    V2Column6: TcxGridDBColumn;
+    cxGridLevel1: TcxGridLevel;
+    orderno: TLabel;
+    PRTColor: TLabel;
+    FirstName: TLabel;
+    PBFactory: TLabel;
+    ADOQuery1: TADOQuery;
+    ADOQuery2: TADOQuery;
+    ADOQuery3: TADOQuery;
+    ClientDataSet1: TClientDataSet;
+    DataSource1: TDataSource;
+    ToolButton1: TToolButton;
+    cxGridPopupMenu1: TcxGridPopupMenu;
+    V2Column4: TcxGridDBColumn;
+    V2Column9: TcxGridDBColumn;
+    ToolButton5: TToolButton;
+    RMDBMain: TRMDBDataSet;
+    RM1: TRMGridReport;
+    CDS_PRT: TClientDataSet;
+    procedure FormDestroy(Sender: TObject);
+    procedure FormClose(Sender: TObject; var Action: TCloseAction);
+    procedure ToolButton2Click(Sender: TObject);
+    procedure ToolButton3Click(Sender: TObject);
+    procedure ToolButton4Click(Sender: TObject);
+    procedure ToolButton1Click(Sender: TObject);
+    procedure FormShow(Sender: TObject);
+    procedure ToolButton5Click(Sender: TObject);
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+    FLLID,HXUnit:String;
+  end;
+
+var
+  frmBefChkHX: TfrmBefChkHX;
+
+implementation
+uses
+U_DataLink,U_Fun;
+
+{$R *.dfm}
+
+procedure TfrmBefChkHX.FormDestroy(Sender: TObject);
+begin
+  frmBefChkHX:=nil;
+end;
+
+procedure TfrmBefChkHX.FormClose(Sender: TObject;
+  var Action: TCloseAction);
+begin
+  Action:=caFree;
+end;
+
+procedure TfrmBefChkHX.ToolButton2Click(Sender: TObject);
+begin
+  with ClientDataSet1 do
+  begin
+    Append;
+    FieldByName('HXFactory').Value:=Trim(FirstName.Caption);
+    FieldByName('HXDate').Value:=SGetServerDate(ADOQuery2);
+    FieldByName('HXType').Value:='检前回修';
+    FieldByName('HXUnit').Value:=Trim(HXUnit);
+    Post;
+  end;
+end;
+
+procedure TfrmBefChkHX.ToolButton3Click(Sender: TObject);
+begin
+  if ClientDataSet1.IsEmpty then Exit;
+  if Trim(ClientDataSet1.fieldbyname('HXType').AsString)<>'检前回修' then Exit;
+  if Application.MessageBox('确定要删除数据吗？','提示',32+4)<>IDYES then Exit;
+  with ADOQuery3 do
+  begin
+    Close;
+    SQL.Clear;
+    SQL.Add('delete Contract_Cloth_BefChkHX  where HXID='''+Trim(ClientDataSet1.fieldbyname('HXID').AsString)+'''');
+    sql.Add('Update Contract_Cloth_LL Set HXPS=(select isnull(sum(HXPS),0) from Contract_Cloth_BefChkHX A where A.LLID='''+Trim(FLLID)+''')');
+    sql.Add(',HXQty=(select isnull(sum(HXQty),0) from Contract_Cloth_BefChkHX A where A.LLID='''+Trim(FLLID)+''')');
+    sql.Add(',HXMQty=(select isnull(sum(HXMQty),0) from Contract_Cloth_BefChkHX A where A.LLID='''+Trim(FLLID)+''')');
+    sql.Add(',HXUnit=(select Top 1 HXUnit from Contract_Cloth_BefChkHX A where A.LLID='''+Trim(FLLID)+''')');
+    sql.Add(' where LLID='''+Trim(FLLID)+'''');
+    ExecSQL;
+  end;
+  ClientDataSet1.Delete;
+
+end;
+
+procedure TfrmBefChkHX.ToolButton4Click(Sender: TObject);
+var
+  maxno:string;
+  FSubId:String;
+begin
+  try
+    ADOQuery3.Connection.BeginTrans;
+    with ClientDataSet1 do
+    begin
+      First;
+      while not Eof do
+      begin
+        if Trim(ClientDataSet1.fieldbyname('HXType').AsString)='检前回修' then
+        begin
+          if Trim(ClientDataSet1.fieldbyname('HXID').AsString)='' then
+          begin
+            with ADOQuery1 do
+            begin
+              Close;
+              sql.Clear;
+              sql.Add('select * from Contract_Cloth_LL where LLID='''+Trim(FLLID)+'''');
+              Open;
+            end;
+            FSubId:=Trim(ADOQuery1.fieldbyname('OrdSubId').AsString);
+            with ADOQuery1 do
+            begin
+              Close;
+              sql.Clear;
+              sql.Add('select * from JYOrder_Sub_AnPai where Subid='''+Trim(FSubId)+'''');
+             // sql.Add(' and GangNo='''+Trim(ClientDataSet1.fieldbyname('GangNo').AsString)+'''');
+              Open;
+            end;
+            if ADOQuery1.IsEmpty then
+            begin
+              ADOQuery3.Connection.RollbackTrans;
+              Application.MessageBox('未回仓不能保存回修数据!','提示',0);
+              Exit;
+            end;
+          end;
+
+          if Trim(ClientDataSet1.fieldbyname('HXID').AsString)='' then
+          begin
+            if GetLSNo(ADOQuery3,maxno,'HX','Contract_Cloth_BefChkHX',2,1)=False then
+            begin
+              ADOQuery3.Connection.RollbackTrans;
+              Application.MessageBox('取回修最大号失败!','提示',0);
+              Exit;
+            end;
+          end else
+          begin
+            maxno:=Trim(ClientDataSet1.fieldbyname('HXID').AsString);
+          end;
+          with ADOQuery3 do
+          begin
+            Close;
+            sql.Clear;
+            sql.Add('select * from Contract_Cloth_BefChkHX where HXID='''+Trim(ClientDataSet1.fieldbyname('HXID').AsString)+'''');
+            Open;
+          end;
+          with ADOQuery3 do
+          begin
+            if Trim(ClientDataSet1.fieldbyname('HXID').AsString)='' then
+              Append
+            else
+              Edit;
+            FieldByName('LLID').Value:=Trim(FLLID);
+            FieldByName('HXID').Value:=Trim(maxno);
+            SSetSaveDataCDSNew(ADOQuery3,TV2,ClientDataSet1,'Contract_Cloth_BefChkHX',2);
+            Post;
+          end;
+        end;
+        Next;
+      end;
+    end;
+    with ADOQuery3 do
+    begin
+      Close;
+      SQL.Clear;
+      SQL.Add('Update Contract_Cloth_BefChkHX Set HXMQty=HXQty*ZSXS where LLID='''+Trim(FLLID)+'''');
+      sql.Add('Update Contract_Cloth_LL Set HXPS=(select sum(HXPS) from Contract_Cloth_BefChkHX A where A.LLID=Contract_Cloth_LL.LLID)');
+      sql.Add(',HXQty=(select sum(HXQty) from Contract_Cloth_BefChkHX A where A.LLID=Contract_Cloth_LL.LLID)');
+      sql.Add(',HXMQty=(select sum(HXMQty) from Contract_Cloth_BefChkHX A where A.LLID=Contract_Cloth_LL.LLID)');
+      sql.Add(',HXUnit=(select Top 1 HXUnit from Contract_Cloth_BefChkHX A where A.LLID=Contract_Cloth_LL.LLID)');
+      sql.Add(' where LLID='''+Trim(FLLID)+'''');
+      ExecSQL;
+    end;
+    ADOQuery3.Connection.CommitTrans;
+    Application.MessageBox('保存成功!','提示',0);
+    Exit;
+  except
+    ADOQuery3.Connection.RollbackTrans;
+    Application.MessageBox('保存异常!','提示',0);
+  end;
+end;
+
+procedure TfrmBefChkHX.ToolButton1Click(Sender: TObject);
+begin
+  Close;
+  WriteCxGrid('检前回修',TV2,'回仓管理');
+end;
+
+procedure TfrmBefChkHX.FormShow(Sender: TObject);
+begin
+  ReadCxGrid('检前回修',TV2,'回仓管理');
+end;
+
+procedure TfrmBefChkHX.ToolButton5Click(Sender: TObject);
+var
+   fPrintFile:string;
+begin
+  if ClientDataSet1.IsEmpty then Exit;
+  fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\回修单.rmf' ;
+  with ADOQuery1 do
+  begin
+    Close;
+    sql.Clear;
+    sql.Add('select A.*,C.PRTColor,D.MPRTCodeName,D.MPRTSpec,D.OrderNo from Contract_Cloth_BefChkHX A');
+    sql.Add(' inner join Contract_Cloth_LL B on A.LLID=B.LLID');
+    sql.Add(' inner join JYOrder_Sub C on B.OrdSubId=C.SubID');
+    sql.Add(' inner join JYOrder_Main D on C.MainId=D.MainId');
+    sql.Add(' where A.HXID='''+Trim(ClientDataSet1.fieldbyname('HXID').AsString)+'''');
+    Open;
+  end;
+  SCreateCDS20(ADOQuery1,CDS_PRT);
+  SInitCDSData20(ADOQuery1,CDS_PRT);
+  if FileExists(fPrintFile) then
+  begin
+    //RMVariables['begindate']:=begindate.DateTime;
+    //RMVariables['enddate']:=enddate.DateTime;
+    //RMVariables['printtime']:=Now;
+    RMVariables['DYFiller']:=Trim(DName);
+    RM1.LoadFromFile(fPrintFile);
+    RM1.ShowReport;
+  end else
+  begin
+    Application.MessageBox(PChar('没有找'+ExtractFilePath(Application.ExeName)+'Report\回修单.rmf'),'提示',0);
+  end;
+end;
+
+end.

打卷检验管理/U_CKJYList.dfm

@@ -0,0 +1,652 @@
+object frmCKJYList: TfrmCKJYList
+  Left = 240
+  Top = 101
+  Width = 943
+  Height = 598
+  Caption = #25104#21697#20986#24211#27719#24635#20449#24687
+  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 Label17: TLabel
+    Left = 840
+    Top = 144
+    Width = 42
+    Height = 12
+    Caption = 'Label17'
+  end
+  object ToolBar1: TToolBar
+    Left = 0
+    Top = 0
+    Width = 927
+    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_TradeManage.ThreeImgList
+    List = True
+    ParentColor = False
+    ParentFont = False
+    ShowCaptions = True
+    TabOrder = 0
+    object TBRafresh: TToolButton
+      Left = 0
+      Top = 0
+      AutoSize = True
+      Caption = #21047#26032
+      ImageIndex = 9
+      OnClick = TBRafreshClick
+    end
+    object TBFind: TToolButton
+      Left = 63
+      Top = 0
+      AutoSize = True
+      Caption = #36807#28388
+      ImageIndex = 59
+      OnClick = TBFindClick
+    end
+    object TBExport: TToolButton
+      Left = 126
+      Top = 0
+      AutoSize = True
+      Caption = #23548#20986
+      ImageIndex = 75
+      OnClick = TBExportClick
+    end
+    object TBPrint: TToolButton
+      Left = 189
+      Top = 0
+      AutoSize = True
+      Caption = #25171#21360
+      ImageIndex = 12
+      Visible = False
+    end
+    object TBClose: TToolButton
+      Left = 252
+      Top = 0
+      AutoSize = True
+      Caption = #20851#38381
+      ImageIndex = 55
+      OnClick = TBCloseClick
+    end
+  end
+  object Panel1: TPanel
+    Left = 0
+    Top = 33
+    Width = 927
+    Height = 48
+    Align = alTop
+    BevelInner = bvRaised
+    BevelOuter = bvLowered
+    Color = clSkyBlue
+    TabOrder = 1
+    object Label1: TLabel
+      Left = 24
+      Top = 12
+      Width = 48
+      Height = 12
+      Caption = #26597#35810#26102#38388
+    end
+    object Label2: TLabel
+      Left = 168
+      Top = 12
+      Width = 6
+      Height = 12
+      Caption = '-'
+    end
+    object Label8: TLabel
+      Left = 211
+      Top = 100
+      Width = 48
+      Height = 12
+      Caption = #20811'    '#37325
+    end
+    object Label9: TLabel
+      Left = 380
+      Top = 108
+      Width = 24
+      Height = 12
+      Caption = #38376#24133
+    end
+    object Label7: TLabel
+      Left = 624
+      Top = 84
+      Width = 48
+      Height = 12
+      Caption = #31867'    '#22411
+    end
+    object Label10: TLabel
+      Left = 496
+      Top = 40
+      Width = 6
+      Height = 12
+    end
+    object Label11: TLabel
+      Left = 488
+      Top = 80
+      Width = 36
+      Height = 12
+      Caption = #19994#21153#21592
+    end
+    object Label12: TLabel
+      Left = 488
+      Top = 104
+      Width = 36
+      Height = 12
+      Caption = #36319#21333#21592
+    end
+    object Label5: TLabel
+      Left = 292
+      Top = 12
+      Width = 48
+      Height = 12
+      Caption = #35746' '#21333' '#21495
+    end
+    object Label6: TLabel
+      Left = 600
+      Top = 12
+      Width = 24
+      Height = 12
+      Caption = #39068#33394
+    end
+    object Label13: TLabel
+      Left = 448
+      Top = 12
+      Width = 48
+      Height = 12
+      Caption = #21592#24037#21517#31216
+    end
+    object Label4: TLabel
+      Left = 724
+      Top = 12
+      Width = 36
+      Height = 12
+      Caption = #21512#21516#21495
+    end
+    object Label15: TLabel
+      Left = 1028
+      Top = 12
+      Width = 18
+      Height = 12
+      Caption = 'PO#'
+      Visible = False
+    end
+    object Label16: TLabel
+      Left = 364
+      Top = 76
+      Width = 24
+      Height = 12
+      Caption = #32593#21495
+      Visible = False
+    end
+    object Label3: TLabel
+      Left = 756
+      Top = 84
+      Width = 24
+      Height = 12
+      Caption = #33457#21517
+    end
+    object BegDate: TDateTimePicker
+      Left = 73
+      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 MPRTKZ: TEdit
+      Tag = 2
+      Left = 260
+      Top = 96
+      Width = 100
+      Height = 20
+      TabOrder = 2
+      OnChange = MPRTCodeNameChange
+    end
+    object MPRTMF: TEdit
+      Tag = 2
+      Left = 404
+      Top = 104
+      Width = 65
+      Height = 20
+      TabOrder = 3
+      OnChange = MPRTCodeNameChange
+    end
+    object CPType: TComboBox
+      Tag = 2
+      Left = 675
+      Top = 80
+      Width = 68
+      Height = 20
+      Style = csDropDownList
+      ItemHeight = 12
+      TabOrder = 4
+      OnChange = TBFindClick
+      Items.Strings = (
+        #27491#21697
+        #27425#21697
+        #22810#25340
+        '')
+    end
+    object YWY: TEdit
+      Tag = 2
+      Left = 526
+      Top = 76
+      Width = 65
+      Height = 20
+      TabOrder = 5
+      OnChange = MPRTCodeNameChange
+    end
+    object OrdPerson1: TEdit
+      Tag = 2
+      Left = 526
+      Top = 100
+      Width = 65
+      Height = 20
+      TabOrder = 6
+      OnChange = MPRTCodeNameChange
+    end
+    object orderNo: TEdit
+      Tag = 2
+      Left = 342
+      Top = 8
+      Width = 80
+      Height = 20
+      TabOrder = 7
+      OnChange = MPRTCodeNameChange
+    end
+    object PRTColor: TEdit
+      Tag = 2
+      Left = 626
+      Top = 8
+      Width = 80
+      Height = 20
+      TabOrder = 8
+      OnChange = MPRTCodeNameChange
+    end
+    object filler: TEdit
+      Tag = 2
+      Left = 498
+      Top = 8
+      Width = 80
+      Height = 20
+      TabOrder = 9
+      OnChange = MPRTCodeNameChange
+    end
+    object conNo: TEdit
+      Tag = 2
+      Left = 766
+      Top = 8
+      Width = 80
+      Height = 20
+      TabOrder = 10
+      OnChange = MPRTCodeNameChange
+    end
+    object KHCONNO: TEdit
+      Tag = 2
+      Left = 1050
+      Top = 8
+      Width = 80
+      Height = 20
+      TabOrder = 11
+      Visible = False
+      OnChange = MPRTCodeNameChange
+    end
+    object wangno: TEdit
+      Tag = 2
+      Left = 398
+      Top = 72
+      Width = 80
+      Height = 20
+      TabOrder = 12
+      Visible = False
+      OnChange = MPRTCodeNameChange
+    end
+    object huaname: TEdit
+      Tag = 2
+      Left = 790
+      Top = 80
+      Width = 80
+      Height = 20
+      TabOrder = 13
+      OnChange = MPRTCodeNameChange
+    end
+  end
+  object cxGrid2: TcxGrid
+    Left = 0
+    Top = 101
+    Width = 927
+    Height = 459
+    Align = alClient
+    TabOrder = 3
+    object Tv1: TcxGridDBTableView
+      OnMouseUp = Tv1MouseUp
+      NavigatorButtons.ConfirmDelete = False
+      OnCellDblClick = Tv1CellDblClick
+      DataController.DataSource = DataSource1
+      DataController.Summary.DefaultGroupSummaryItems = <>
+      DataController.Summary.FooterSummaryItems = <
+        item
+          Kind = skSum
+          Column = v1Column6
+        end
+        item
+          Kind = skSum
+          Column = v2Column5
+        end
+        item
+          Kind = skSum
+        end
+        item
+          Kind = skSum
+        end
+        item
+          Kind = skSum
+          Column = v1Column12
+        end
+        item
+          Kind = skSum
+          Column = v1Column9
+        end>
+      DataController.Summary.SummaryGroups = <>
+      OptionsCustomize.ColumnFiltering = False
+      OptionsData.Editing = False
+      OptionsView.Footer = True
+      OptionsView.GroupByBox = False
+      Styles.Inactive = DataLink_TradeManage.SHuangSe
+      Styles.IncSearch = DataLink_TradeManage.SHuangSe
+      Styles.Selection = DataLink_TradeManage.SHuangSe
+      Styles.Header = DataLink_TradeManage.Default
+      object v1Column3: TcxGridDBColumn
+        Caption = #26816#39564#26085#26399
+        DataBinding.FieldName = 'CRTime'
+        PropertiesClassName = 'TcxDateEditProperties'
+        Properties.ShowTime = False
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 142
+      end
+      object v1Column2: TcxGridDBColumn
+        Caption = #21592#24037#21517#31216
+        DataBinding.FieldName = 'Filler'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 60
+      end
+      object v1Column8: TcxGridDBColumn
+        Caption = 'PO#'
+        DataBinding.FieldName = 'KHCONNO'
+        HeaderAlignmentHorz = taCenter
+        Width = 94
+      end
+      object v1Column5: TcxGridDBColumn
+        Caption = #21512#21516#21495
+        DataBinding.FieldName = 'conNo'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 80
+      end
+      object v1Column1: TcxGridDBColumn
+        Caption = #35746#21333#21495
+        DataBinding.FieldName = 'orderNo'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 110
+      end
+      object v1Column13: TcxGridDBColumn
+        Caption = #23458#25143
+        DataBinding.FieldName = 'CustomerNoName'
+        HeaderAlignmentHorz = taCenter
+        Width = 100
+      end
+      object v1Column4: TcxGridDBColumn
+        Caption = #35746#21333#24635#25968
+        DataBinding.FieldName = 'ZQTY'
+        HeaderAlignmentHorz = taCenter
+        Width = 80
+      end
+      object v1Column6: TcxGridDBColumn
+        Caption = #21367#25968
+        DataBinding.FieldName = 'JQty'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 60
+      end
+      object v2Column5: TcxGridDBColumn
+        Caption = #27611#37325
+        DataBinding.FieldName = 'KGQty'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 80
+      end
+      object v1Column12: TcxGridDBColumn
+        Caption = #38271#24230
+        DataBinding.FieldName = 'Qty'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 80
+      end
+      object v1Column7: TcxGridDBColumn
+        Caption = #25968#37327#21333#20301
+        DataBinding.FieldName = 'MjTypeOther'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 69
+      end
+      object v2Column1: TcxGridDBColumn
+        Caption = #20013#25991#21517#31216
+        DataBinding.FieldName = 'PRTCodeName'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 125
+      end
+      object v1Column9: TcxGridDBColumn
+        Caption = #38271#24230'(M)'
+        DataBinding.FieldName = 'Qty_M'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 90
+      end
+      object v1Column10: TcxGridDBColumn
+        Caption = #27599#21367#24179#22343#38271#24230'(M)'
+        DataBinding.FieldName = 'Roll_M'
+        Visible = False
+        HeaderAlignmentHorz = taCenter
+        Width = 120
+      end
+    end
+    object cxGrid2Level1: TcxGridLevel
+      GridView = Tv1
+    end
+  end
+  object Panel4: TPanel
+    Left = 62
+    Top = 139
+    Width = 294
+    Height = 213
+    TabOrder = 4
+    Visible = False
+    object Label14: TLabel
+      Left = 48
+      Top = 88
+      Width = 6
+      Height = 12
+    end
+    object Panel10: TPanel
+      Left = 1
+      Top = 1
+      Width = 292
+      Height = 23
+      Align = alTop
+      Alignment = taLeftJustify
+      BevelOuter = bvNone
+      Caption = #20107#20214#35828#26126
+      Color = clSkyBlue
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -16
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+      TabOrder = 0
+      object Image2: TImage
+        Left = 269
+        Top = 3
+        Width = 22
+        Height = 16
+        ParentShowHint = False
+        Picture.Data = {
+          07544269746D617076040000424D760400000000000036000000280000001500
+          0000110000000100180000000000400400000000000000000000000000000000
+          0000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+          FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+          FF00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+          FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+          FF00FFFFFFFFFFFFF0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6
+          F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6FFFFFFFFFF
+          FF00FFFFFFFFFFFF404040404040404040404040404040404040404040404040
+          404040404040404040404040404040404040404040404040F0CAA6FFFFFFFFFF
+          FF00FFFFFFFFFFFFFFFFFF808080808080808080808080808080808080808080
+          808080808080808080808080808080808080808080404040F0CAA6FFFFFFFFFF
+          FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4
+          C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF
+          FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4
+          C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF
+          FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4000000000000C8D0D4C8D0D4
+          C8D0D4C8D0D4000000000000C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF
+          FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4000000000000C8D0D4
+          C8D0D4000000000000C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF
+          FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4000000000000
+          000000000000C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF
+          FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4000000
+          000000C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF
+          FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4000000000000
+          000000000000C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF
+          FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4000000000000C8D0D4
+          C8D0D4000000000000C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF
+          FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4000000000000C8D0D4C8D0D4
+          C8D0D4C8D0D4000000000000C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF
+          FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4
+          C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF
+          FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4
+          C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF
+          FF00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+          FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+          FF00}
+        ShowHint = True
+        Transparent = True
+        OnClick = Image2Click
+      end
+    end
+    object RichEdit1: TRichEdit
+      Left = 1
+      Top = 24
+      Width = 292
+      Height = 188
+      Align = alClient
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clRed
+      Font.Height = -16
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+      TabOrder = 1
+    end
+  end
+  object cxTabControl1: TcxTabControl
+    Left = 0
+    Top = 81
+    Width = 927
+    Height = 20
+    Align = alTop
+    Style = 9
+    TabIndex = 0
+    TabOrder = 5
+    Tabs.Strings = (
+      #20840#37096)
+    OnChange = cxTabControl1Change
+    ClientRectBottom = 20
+    ClientRectRight = 927
+    ClientRectTop = 19
+  end
+  object MovePanel2: TMovePanel
+    Left = 408
+    Top = 192
+    Width = 289
+    Height = 49
+    BevelInner = 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 = -14
+    Font.Name = #23435#20307
+    Font.Style = [fsBold]
+    ParentFont = False
+    TabOrder = 2
+    Visible = False
+  end
+  object ADOQueryCmd: TADOQuery
+    Connection = DataLink_TradeManage.ADOLink
+    Parameters = <>
+    Left = 968
+    Top = 40
+  end
+  object ADOQueryMain: TADOQuery
+    Connection = DataLink_TradeManage.ADOLink
+    LockType = ltReadOnly
+    CommandTimeout = 60
+    Parameters = <>
+    Left = 984
+    Top = 40
+  end
+  object ADOQueryTemp: TADOQuery
+    Connection = DataLink_TradeManage.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 980
+    Top = 4
+  end
+  object DataSource1: TDataSource
+    DataSet = CDS_Main
+    Left = 920
+    Top = 152
+  end
+  object cxGridPopupMenu1: TcxGridPopupMenu
+    PopupMenus = <>
+    Left = 888
+    Top = 144
+  end
+  object CDS_Main: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 896
+    Top = 128
+  end
+end

打卷检验管理/U_CKJYList.pas

@@ -0,0 +1,301 @@
+unit U_CKJYList;
+
+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, MovePanel, cxButtonEdit,
+  cxCalendar, cxPC;
+
+type
+  TfrmCKJYList = 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;
+    Label1: TLabel;
+    Label2: TLabel;
+    BegDate: TDateTimePicker;
+    EndDate: TDateTimePicker;
+    CDS_Main: TClientDataSet;
+    Label8: TLabel;
+    MPRTKZ: TEdit;
+    Label9: TLabel;
+    MPRTMF: TEdit;
+    Label7: TLabel;
+    CPType: TComboBox;
+    MovePanel2: TMovePanel;
+    Label10: TLabel;
+    Label11: TLabel;
+    Label12: TLabel;
+    YWY: TEdit;
+    OrdPerson1: TEdit;
+    cxGrid2: TcxGrid;
+    Tv1: TcxGridDBTableView;
+    v1Column3: TcxGridDBColumn;
+    v1Column1: TcxGridDBColumn;
+    v2Column1: TcxGridDBColumn;
+    v1Column6: TcxGridDBColumn;
+    v1Column12: TcxGridDBColumn;
+    v1Column7: TcxGridDBColumn;
+    v2Column5: TcxGridDBColumn;
+    cxGrid2Level1: TcxGridLevel;
+    orderNo: TEdit;
+    Label5: TLabel;
+    Label6: TLabel;
+    PRTColor: TEdit;
+    Label13: TLabel;
+    filler: TEdit;
+    v1Column2: TcxGridDBColumn;
+    v1Column5: TcxGridDBColumn;
+    conNo: TEdit;
+    Label4: TLabel;
+    Panel4: TPanel;
+    Label14: TLabel;
+    Panel10: TPanel;
+    Image2: TImage;
+    RichEdit1: TRichEdit;
+    v1Column8: TcxGridDBColumn;
+    KHCONNO: TEdit;
+    Label15: TLabel;
+    cxTabControl1: TcxTabControl;
+    v1Column9: TcxGridDBColumn;
+    v1Column10: TcxGridDBColumn;
+    v1Column13: TcxGridDBColumn;
+    Label16: TLabel;
+    wangno: TEdit;
+    v1Column4: TcxGridDBColumn;
+    huaname: TEdit;
+    Label3: TLabel;
+    Label17: TLabel;
+    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 v1Column5PropertiesButtonClick(Sender: TObject;
+      AButtonIndex: Integer);
+    procedure PRTColorChange(Sender: TObject);
+    procedure Tv1MouseUp(Sender: TObject; Button: TMouseButton;
+      Shift: TShiftState; X, Y: Integer);
+    procedure Tv1CellDblClick(Sender: TcxCustomGridTableView;
+      ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
+      AShift: TShiftState; var AHandled: Boolean);
+    procedure Image2Click(Sender: TObject);
+    procedure cxTabControl1Change(Sender: TObject);
+  private
+        FLeft,FTop:Integer;
+    procedure InitGrid();
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+var
+  frmCKJYList: TfrmCKJYList;
+
+implementation
+uses
+  U_DataLink,U_Fun,U_ZDYHelp;
+
+{$R *.dfm}
+
+procedure TfrmCKJYList.FormDestroy(Sender: TObject);
+begin
+  frmCKJYList:=nil;
+end;
+
+procedure TfrmCKJYList.FormClose(Sender: TObject;
+  var Action: TCloseAction);
+begin
+  Action:=caFree;
+end;
+
+procedure TfrmCKJYList.FormCreate(Sender: TObject);
+begin
+  //cxGrid1.Align:=alClient;
+  BegDate.DateTime:=SGetServerDateTime(ADOQueryTemp);
+  EndDate.DateTime:=SGetServerDateTime(ADOQueryTemp)
+end;
+
+procedure TfrmCKJYList.InitGrid();
+begin
+try
+    ADOQueryMain.DisableControls;
+    with ADOQueryMain do
+    begin
+      Close;
+      sql.Clear;
+      Filtered:=False;
+      sql.Add('select convert(char(10),A.FillTime,120) as CRTime,A.Filler,A.mainID,A.MjTypeOther,C.OrderNo,D.PRTCodeName,C.conNo,C.CustomerNoName,D.PrtColor,');
+      sql.Add('count(A.MainId) as JQty,SUM(A.MJlen) as Qty,SUM(A.MJmaoZ) as KGQty,SUM(A.MJQty4) as MJQty4,SUM(A.MJQty5) as MJQty5,');
+      sql.Add('khconNO=(select top 1 khconNo from JYOrderCon_Main X where X.conNO=C.conNO)');
+      sql.Add(',Qty_M=sum(case when MjTypeOther=''Y'' then cast(MJlen*0.9144 as decimal(18,2)) else MJLen end)');
+      sql.Add(',Roll_M= cast(sum(case when MjTypeOther=''Y'' then cast(MJlen*0.9144 as decimal(18,2)) else MJLen end)/count(A.MainId) as decimal(18,2))');
+      SQL.Add(',CJQTY=(select count(X.Mainid) from WFB_MJJY X where X.Mainid=A.Mainid  and X.Filler=A.Filler and convert(char(10),X.FillTime,120)=convert(char(10),A.FillTime,120) and baoID<>'''' and X.MJTypeOther=A.MJTypeOther)');
+      SQL.Add(',CQTY=(select SUM(MJlen) from WFB_MJJY X where X.Mainid=A.Mainid  and X.Filler=A.Filler and convert(char(10),X.FillTime,120)=convert(char(10),A.FillTime,120) and baoID<>'''' and X.MJTypeOther=A.MJTypeOther)');
+      SQL.Add(',CKGQTY=(select SUM(MJmaoZ) from WFB_MJJY X where X.Mainid=A.Mainid  and X.Filler=A.Filler and convert(char(10),X.FillTime,120)=convert(char(10),A.FillTime,120) and baoID<>'''' and X.MJTypeOther=A.MJTypeOther)');
+      SQL.Add(',CMJQty4=(select SUM(MJQty4) from WFB_MJJY X where X.Mainid=A.Mainid  and X.Filler=A.Filler and convert(char(10),X.FillTime,120)=convert(char(10),A.FillTime,120) and baoID<>'''' and X.MJTypeOther=A.MJTypeOther)');
+      sql.Add(',ZQTY=(select sum(PRTOrderQty) from JYOrder_sub X where X.mainid=A.mainid)');
+      sql.Add('from WFB_MJJY A ');
+      sql.Add('inner join JYOrder_Main C on C.MainId=A.MainId ');
+      sql.Add('inner join JYOrder_sub D on D.subID=A.subID ');
+      Sql.add('where A.FillTime>='''+formatdateTime('yyyy-MM-dd',begdate.Date)+''' ');
+      Sql.add('and A.FillTime<'''+formatdateTime('yyyy-MM-dd',enddate.Date+1)+''' ');
+      IF cxTabControl1.TabIndex=0 then
+      Sql.add('and not exists(select MJID from CK_BanCP_KC X where X.MJID=A.MJID) ')
+      else
+      IF cxTabControl1.TabIndex=1 then
+      Sql.add('and exists(select MJID from CK_BanCP_KC X where X.MJID=A.MJID) ');
+      Sql.add('group by convert(char(10),A.FillTime,120),A.Filler,A.mainID,A.MjTypeOther,C.OrderNo,D.PRTCodeName,C.conNo,C.CustomerNoName,D.PrtColor');
+      Open;
+    end;
+    SCreateCDS20(ADOQueryMain,CDS_Main);
+    SInitCDSData20(ADOQueryMain,CDS_Main);
+  finally
+    ADOQueryMain.EnableControls;
+  end;
+end;
+
+procedure TfrmCKJYList.TBRafreshClick(Sender: TObject);
+begin
+  //BegDate.SetFocus;
+  MovePanel2.Visible:=True;
+  MovePanel2.Refresh;
+  InitGrid();
+  MovePanel2.Visible:=False;
+end;
+
+procedure TfrmCKJYList.ConNoMChange(Sender: TObject);
+begin
+  if ADOQueryMain.Active then
+  begin
+    SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2));
+  end;
+end;
+
+procedure TfrmCKJYList.TBCloseClick(Sender: TObject);
+begin
+  WriteCxGrid(self.Caption+tv1.Name,Tv1,'成品仓库1');
+  Close;
+end;
+
+procedure TfrmCKJYList.FormShow(Sender: TObject);
+begin
+
+  ReadCxGrid(self.Caption+tv1.Name,Tv1,'成品仓库1');
+  if Trim(DParameters2)='管理' then
+  begin
+    //v1Column5.Options.Focusing:=True;
+  end else
+  begin
+    //v1Column5.Options.Focusing:=False;
+  end;
+  //InitGrid();
+end;
+
+procedure TfrmCKJYList.TBExportClick(Sender: TObject);
+begin
+  if ADOQueryMain.IsEmpty then exit;
+  TcxGridToExcel('库存汇总列表',cxGrid2);
+end;
+
+procedure TfrmCKJYList.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 TfrmCKJYList.MPRTCodeNameChange(Sender: TObject);
+begin
+  TBFind.Click;
+end;
+
+procedure TfrmCKJYList.v1Column5PropertiesButtonClick(
+  Sender: TObject; AButtonIndex: Integer);
+begin
+  try
+    frmZDYHelp:=TfrmZDYHelp.Create(Application);
+    with frmZDYHelp do
+    begin
+      flag:='SOrdDefStr10';
+      flagname:='库存存放地点';
+      if ShowModal=1 then
+      begin
+        with CDS_Main do
+        begin
+          Edit;
+          FieldByName('SOrdDefStr10').Value:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString);
+        end;
+        with ADOQueryCmd do
+        begin
+          Close;
+          sql.Clear;
+          sql.Add('Update JYOrder_Sub Set SOrdDefStr10='''+Trim(ClientDataSet1.fieldbyname('ZdyName').AsString)+'''');
+          sql.Add(' where SubId='''+Trim(Self.CDS_Main.fieldbyname('SubId').AsString)+'''');
+          ExecSQL;
+        end;
+      end;
+    end;
+  finally
+    frmZDYHelp.Free;
+  end;
+end;
+
+procedure TfrmCKJYList.PRTColorChange(Sender: TObject);
+begin
+  TBFind.Click;
+end;
+
+procedure TfrmCKJYList.Tv1MouseUp(Sender: TObject; Button: TMouseButton;
+  Shift: TShiftState; X, Y: Integer);
+begin
+  FLeft:=X;
+  FTop:=Y;
+end;
+
+procedure TfrmCKJYList.Tv1CellDblClick(Sender: TcxCustomGridTableView;
+  ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
+  AShift: TShiftState; var AHandled: Boolean);
+begin
+  Panel4.Left:=FLeft;
+  Panel4.Top:=FTop+110;
+  Panel4.Visible:=True;
+  Panel10.Caption:=Trim(TV1.Controller.FocusedColumn.Caption);
+  RichEdit1.Text:=CDS_Main.fieldbyname(TV1.Controller.FocusedColumn.DataBinding.FilterFieldName).AsString;
+  application.ProcessMessages;
+end;
+
+procedure TfrmCKJYList.Image2Click(Sender: TObject);
+begin
+   Panel4.Visible:=False;
+end;
+
+procedure TfrmCKJYList.cxTabControl1Change(Sender: TObject);
+begin
+  TBRafresh.Click;
+end;
+
+end.

打卷检验管理/U_CKProductBCPHCList.dfm

@@ -0,0 +1,390 @@
+object frmCKProductBCPHCList: TfrmCKProductBCPHCList
+  Left = 128
+  Top = 152
+  Width = 1027
+  Height = 511
+  Caption = #25104#21697#22238#20179#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 = 1019
+    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_TradeManage.ThreeImgList
+    List = True
+    ParentColor = False
+    ParentFont = False
+    ShowCaptions = True
+    TabOrder = 0
+    object TBRafresh: TToolButton
+      Left = 0
+      Top = 0
+      AutoSize = True
+      Caption = #21047#26032
+      ImageIndex = 9
+      OnClick = TBRafreshClick
+    end
+    object TBFind: TToolButton
+      Left = 63
+      Top = 0
+      AutoSize = True
+      Caption = #36807#28388
+      ImageIndex = 59
+      OnClick = TBFindClick
+    end
+    object TBExport: TToolButton
+      Left = 126
+      Top = 0
+      AutoSize = True
+      Caption = #23548#20986
+      ImageIndex = 75
+      OnClick = TBExportClick
+    end
+    object TBPrint: TToolButton
+      Left = 189
+      Top = 0
+      AutoSize = True
+      Caption = #25171#21360
+      ImageIndex = 12
+      Visible = False
+    end
+    object TBClose: TToolButton
+      Left = 252
+      Top = 0
+      AutoSize = True
+      Caption = #20851#38381
+      ImageIndex = 55
+      OnClick = TBCloseClick
+    end
+  end
+  object Panel1: TPanel
+    Left = 0
+    Top = 33
+    Width = 1019
+    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 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 = MPRTCodeNameChange
+    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
+  end
+  object cxGrid2: TcxGrid
+    Left = 0
+    Top = 105
+    Width = 1019
+    Height = 369
+    Align = alClient
+    TabOrder = 2
+    object Tv1: TcxGridDBTableView
+      NavigatorButtons.ConfirmDelete = False
+      DataController.DataSource = DataSource1
+      DataController.Summary.DefaultGroupSummaryItems = <>
+      DataController.Summary.FooterSummaryItems = <
+        item
+          Kind = skCount
+          Column = v1Column6
+        end
+        item
+          Kind = skSum
+          Column = v2Column5
+        end
+        item
+          Kind = skSum
+          Column = v2Column6
+        end>
+      DataController.Summary.SummaryGroups = <>
+      OptionsCustomize.ColumnFiltering = False
+      OptionsSelection.CellSelect = False
+      OptionsView.Footer = True
+      OptionsView.GroupByBox = False
+      Styles.Inactive = DataLink_TradeManage.SHuangSe
+      Styles.IncSearch = DataLink_TradeManage.SHuangSe
+      Styles.Selection = DataLink_TradeManage.SHuangSe
+      Styles.Header = DataLink_TradeManage.Default
+      object v1Column1: TcxGridDBColumn
+        Caption = #35746#21333#21495
+        DataBinding.FieldName = 'orderNo'
+        HeaderAlignmentHorz = taCenter
+        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 v1Column8: TcxGridDBColumn
+        Caption = #38376#24133
+        DataBinding.FieldName = 'MPRTMF'
+        HeaderAlignmentHorz = taCenter
+        Width = 70
+      end
+      object v1Column9: TcxGridDBColumn
+        Caption = #20811#37325
+        DataBinding.FieldName = 'MPRTKZ'
+        HeaderAlignmentHorz = taCenter
+        Width = 59
+      end
+      object v1Column6: TcxGridDBColumn
+        Caption = #26465#30721
+        DataBinding.FieldName = 'MJID'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 92
+      end
+      object v1Column3: TcxGridDBColumn
+        Caption = #31867#22411
+        DataBinding.FieldName = 'CPType'
+        HeaderAlignmentHorz = taCenter
+        Width = 63
+      end
+      object v1Column2: TcxGridDBColumn
+        Caption = #22238#20179#26102#38388
+        DataBinding.FieldName = 'CRTime'
+        HeaderAlignmentHorz = taCenter
+        Width = 107
+      end
+      object v2Column5: TcxGridDBColumn
+        Caption = #22238#20179#20844#26020#25968
+        DataBinding.FieldName = 'KGQty'
+        HeaderAlignmentHorz = taCenter
+        Options.Focusing = False
+        Width = 83
+      end
+      object v2Column6: TcxGridDBColumn
+        Caption = #22238#20179#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
+    end
+    object cxGrid2Level1: TcxGridLevel
+      GridView = Tv1
+    end
+  end
+  object ADOQueryCmd: TADOQuery
+    Connection = DataLink_TradeManage.ADOLink
+    Parameters = <>
+    Left = 968
+    Top = 40
+  end
+  object ADOQueryMain: TADOQuery
+    Connection = DataLink_TradeManage.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 984
+    Top = 40
+  end
+  object ADOQueryTemp: TADOQuery
+    Connection = DataLink_TradeManage.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
+end

打卷检验管理/U_CKProductBCPHCList.pas

@@ -0,0 +1,182 @@
+unit U_CKProductBCPHCList;
+
+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;
+
+type
+  TfrmCKProductBCPHCList = 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;
+    Tv1: TcxGridDBTableView;
+    cxGrid2Level1: TcxGridLevel;
+    cxGrid2: TcxGrid;
+    v2Column1: TcxGridDBColumn;
+    v2Column3: TcxGridDBColumn;
+    v2Column5: TcxGridDBColumn;
+    v2Column6: TcxGridDBColumn;
+    v1Column1: TcxGridDBColumn;
+    v1Column2: TcxGridDBColumn;
+    Label5: TLabel;
+    orderNo: TEdit;
+    Label6: TLabel;
+    MJID: TEdit;
+    v1Column7: TcxGridDBColumn;
+    v1Column6: TcxGridDBColumn;
+    v1Column8: TcxGridDBColumn;
+    v1Column9: TcxGridDBColumn;
+    Label8: TLabel;
+    MPRTKZ: TEdit;
+    Label9: TLabel;
+    MPRTMF: TEdit;
+    Label7: TLabel;
+    CPType: TComboBox;
+    v1Column3: 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);
+  private
+    procedure InitGrid();
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+var
+  frmCKProductBCPHCList: TfrmCKProductBCPHCList;
+
+implementation
+uses
+  U_DataLink,U_Fun;
+
+{$R *.dfm}
+
+procedure TfrmCKProductBCPHCList.FormDestroy(Sender: TObject);
+begin
+  frmCKProductBCPHCList:=nil;
+end;
+
+procedure TfrmCKProductBCPHCList.FormClose(Sender: TObject;
+  var Action: TCloseAction);
+begin
+  Action:=caFree;
+end;
+
+procedure TfrmCKProductBCPHCList.FormCreate(Sender: TObject);
+begin
+  //cxGrid1.Align:=alClient;
+  BegDate.DateTime:=SGetServerDateTime(ADOQueryTemp);
+  EndDate.DateTime:=SGetServerDateTime(ADOQueryTemp)
+end;
+
+procedure TfrmCKProductBCPHCList.InitGrid();
+begin
+  try
+    ADOQueryMain.DisableControls;
+    with ADOQueryMain do
+    begin
+      Filtered:=False;
+      Close;
+      sql.Clear;
+      SQL.Add('select A.*,B.OrderNo,B.MPRTCodeName,C.PRTColor,B.MPRTMF,B.MPRTKZ');
+      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('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 TfrmCKProductBCPHCList.TBRafreshClick(Sender: TObject);
+begin
+  BegDate.SetFocus;
+  InitGrid();
+end;
+
+procedure TfrmCKProductBCPHCList.ConNoMChange(Sender: TObject);
+begin
+  if ADOQueryMain.Active then
+  begin
+    SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2));
+  end;
+end;
+
+procedure TfrmCKProductBCPHCList.TBCloseClick(Sender: TObject);
+begin
+  WriteCxGrid('仓库回仓列表',Tv1,'成品仓库');
+  Close;
+end;
+
+procedure TfrmCKProductBCPHCList.FormShow(Sender: TObject);
+begin
+
+  ReadCxGrid('仓库回仓列表',Tv1,'成品仓库');
+  
+  InitGrid();
+end;
+
+procedure TfrmCKProductBCPHCList.TBExportClick(Sender: TObject);
+begin
+  if ADOQueryMain.IsEmpty then exit;
+  TcxGridToExcel('回仓列表',cxGrid2);
+end;
+
+procedure TfrmCKProductBCPHCList.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 TfrmCKProductBCPHCList.MPRTCodeNameChange(Sender: TObject);
+begin
+  TBFind.Click;
+end;
+
+end.

打卷检验管理/U_CKProductBCPInList.dfm

@@ -0,0 +1,811 @@
+object frmCKProductBCPInList: TfrmCKProductBCPInList
+  Left = 122
+  Top = 53
+  Width = 1083
+  Height = 680
+  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 = 1067
+    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_TradeManage.ThreeImgList
+    List = True
+    ParentColor = False
+    ParentFont = False
+    ShowCaptions = True
+    TabOrder = 0
+    object TBRafresh: TToolButton
+      Left = 0
+      Top = 0
+      AutoSize = True
+      Caption = #21047#26032
+      ImageIndex = 9
+      OnClick = TBRafreshClick
+    end
+    object TBFind: TToolButton
+      Left = 63
+      Top = 0
+      AutoSize = True
+      Caption = #36807#28388
+      ImageIndex = 59
+      OnClick = TBFindClick
+    end
+    object ToolButton1: TToolButton
+      Left = 126
+      Top = 0
+      Caption = #26174#31034#24211#23384
+      ImageIndex = 59
+      OnClick = ToolButton1Click
+    end
+    object TBExport: TToolButton
+      Left = 209
+      Top = 0
+      AutoSize = True
+      Caption = #23548#20986
+      ImageIndex = 75
+      OnClick = TBExportClick
+    end
+    object TBRKCX: TToolButton
+      Left = 272
+      Top = 0
+      AutoSize = True
+      Caption = #25764#38144#20837#24211
+      ImageIndex = 105
+      Visible = False
+      OnClick = TBRKCXClick
+    end
+    object TBPrint: TToolButton
+      Left = 359
+      Top = 0
+      AutoSize = True
+      Caption = #25171#21360
+      ImageIndex = 12
+      OnClick = TBPrintClick
+    end
+    object ComboBox1: TComboBox
+      Left = 422
+      Top = 3
+      Width = 140
+      Height = 24
+      Style = csDropDownList
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -16
+      Font.Name = #23435#20307
+      Font.Style = []
+      ItemHeight = 16
+      ItemIndex = 0
+      ParentFont = False
+      TabOrder = 0
+      Text = #38144#21806#30721#21333
+      Items.Strings = (
+        #38144#21806#30721#21333
+        #38144#21806#30721#21333'-'#23433#24247
+        #38144#21806#30721#21333'-QLO'
+        #21333#33394#21253#35013
+        #21333#33394#21253#35013'-'#38271#24230
+        #28151#33394#21253#35013'-10'#33394
+        #28151#33394#21253#35013'-'#37325#37327)
+    end
+    object TBClose: TToolButton
+      Left = 562
+      Top = 0
+      AutoSize = True
+      Caption = #20851#38381
+      ImageIndex = 55
+      OnClick = TBCloseClick
+    end
+  end
+  object Panel1: TPanel
+    Left = 0
+    Top = 33
+    Width = 1067
+    Height = 76
+    Align = alTop
+    BevelInner = bvRaised
+    BevelOuter = bvLowered
+    Color = clSkyBlue
+    TabOrder = 1
+    object Label3: TLabel
+      Left = 337
+      Top = 12
+      Width = 48
+      Height = 12
+      Caption = #20013#25991#21517#31216
+    end
+    object Label4: TLabel
+      Left = 490
+      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 = 337
+      Top = 36
+      Width = 48
+      Height = 12
+      Caption = #20811'    '#37325
+    end
+    object Label9: TLabel
+      Left = 490
+      Top = 36
+      Width = 24
+      Height = 12
+      Caption = #38376#24133
+    end
+    object Label7: TLabel
+      Left = 624
+      Top = 36
+      Width = 24
+      Height = 12
+      Caption = #31867#22411
+    end
+    object Label10: TLabel
+      Left = 624
+      Top = 12
+      Width = 24
+      Height = 12
+      Caption = #21253#21495
+    end
+    object Label12: TLabel
+      Left = 1116
+      Top = 12
+      Width = 46
+      Height = 12
+      Caption = #21253#25968#65306'0'
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clRed
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label13: TLabel
+      Left = 761
+      Top = 12
+      Width = 48
+      Height = 12
+      Caption = #33457#22411#33457#21495
+    end
+    object Label14: TLabel
+      Left = 761
+      Top = 36
+      Width = 48
+      Height = 12
+      Caption = #33394'    '#21495
+    end
+    object Label15: TLabel
+      Left = 905
+      Top = 12
+      Width = 48
+      Height = 12
+      Caption = #20837#24211#21333#21495
+    end
+    object Label16: TLabel
+      Left = 905
+      Top = 36
+      Width = 48
+      Height = 12
+      Caption = #32568'    '#21495
+    end
+    object PRTCodeName: TEdit
+      Tag = 2
+      Left = 386
+      Top = 9
+      Width = 90
+      Height = 20
+      TabOrder = 0
+      OnChange = PRTCodeNameChange
+    end
+    object BegDate: TDateTimePicker
+      Left = 77
+      Top = 9
+      Width = 87
+      Height = 20
+      Date = 40768.458268587970000000
+      Time = 40768.458268587970000000
+      ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
+      TabOrder = 1
+    end
+    object EndDate: TDateTimePicker
+      Left = 77
+      Top = 33
+      Width = 87
+      Height = 20
+      Date = 40768.458268587970000000
+      Time = 40768.458268587970000000
+      ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
+      TabOrder = 2
+    end
+    object orderNo: TEdit
+      Tag = 2
+      Left = 228
+      Top = 9
+      Width = 90
+      Height = 20
+      TabOrder = 3
+      OnChange = orderNoChange
+      OnKeyPress = orderNoKeyPress
+    end
+    object MJID: TEdit
+      Tag = 2
+      Left = 228
+      Top = 33
+      Width = 90
+      Height = 20
+      TabOrder = 4
+      OnChange = PRTCodeNameChange
+    end
+    object PRTKZ: TEdit
+      Tag = 1
+      Left = 386
+      Top = 33
+      Width = 90
+      Height = 20
+      TabOrder = 5
+      OnChange = PRTCodeNameChange
+    end
+    object PRTMF: TEdit
+      Tag = 1
+      Left = 516
+      Top = 33
+      Width = 90
+      Height = 20
+      TabOrder = 6
+      OnChange = PRTCodeNameChange
+    end
+    object CPType: TComboBox
+      Tag = 2
+      Left = 650
+      Top = 33
+      Width = 90
+      Height = 20
+      Style = csDropDownList
+      ItemHeight = 12
+      TabOrder = 7
+      OnChange = TBFindClick
+      Items.Strings = (
+        #27491#21697
+        #27425#21697
+        #22810#25340
+        ''
+        '')
+    end
+    object PRTColor: TComboBox
+      Tag = 1
+      Left = 516
+      Top = 9
+      Width = 90
+      Height = 20
+      ItemHeight = 12
+      TabOrder = 8
+      OnChange = PRTColorChange
+    end
+    object BaoNo: TEdit
+      Tag = 2
+      Left = 650
+      Top = 9
+      Width = 90
+      Height = 20
+      TabOrder = 9
+      OnChange = PRTCodeNameChange
+    end
+    object PRTHX: TEdit
+      Tag = 2
+      Left = 810
+      Top = 9
+      Width = 90
+      Height = 20
+      TabOrder = 10
+      OnChange = PRTCodeNameChange
+    end
+    object SOrddefstr1: TEdit
+      Tag = 2
+      Left = 810
+      Top = 33
+      Width = 90
+      Height = 20
+      TabOrder = 11
+      OnChange = PRTCodeNameChange
+    end
+    object RKOrdID: TEdit
+      Tag = 2
+      Left = 954
+      Top = 9
+      Width = 90
+      Height = 20
+      TabOrder = 12
+      OnChange = PRTCodeNameChange
+    end
+    object MJstr4: TEdit
+      Tag = 2
+      Left = 954
+      Top = 33
+      Width = 90
+      Height = 20
+      TabOrder = 13
+      OnChange = PRTCodeNameChange
+    end
+    object CheckBox1: TCheckBox
+      Left = 28
+      Top = 52
+      Width = 97
+      Height = 17
+      Caption = #20840#36873
+      TabOrder = 14
+      OnClick = CheckBox1Click
+    end
+  end
+  object cxGrid2: TcxGrid
+    Left = 0
+    Top = 109
+    Width = 1067
+    Height = 533
+    Align = alClient
+    PopupMenu = PopupMenu1
+    TabOrder = 2
+    object Tv1: TcxGridDBTableView
+      OnMouseUp = Tv1MouseUp
+      Navigator.Buttons.CustomButtons = <>
+      OnCellClick = Tv1CellClick
+      OnCellDblClick = Tv1CellDblClick
+      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 = v1Column15
+        end
+        item
+          Kind = skSum
+          Column = v1Column16
+        end>
+      DataController.Summary.SummaryGroups = <>
+      OptionsCustomize.ColumnFiltering = False
+      OptionsView.Footer = True
+      OptionsView.GroupByBox = False
+      Styles.Inactive = DataLink_TradeManage.SHuangSe
+      Styles.IncSearch = DataLink_TradeManage.SHuangSe
+      Styles.Selection = DataLink_TradeManage.SHuangSe
+      Styles.Header = DataLink_TradeManage.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.Editing = False
+        Width = 74
+      end
+      object v2Column1: TcxGridDBColumn
+        Caption = #20013#25991#21517#31216
+        DataBinding.FieldName = 'PRTCodeName'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 92
+      end
+      object v2Column3: TcxGridDBColumn
+        Caption = #39068#33394
+        DataBinding.FieldName = 'PRTColor'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 77
+      end
+      object v1Column11: TcxGridDBColumn
+        Caption = #33457#22411#33457#21495
+        DataBinding.FieldName = 'PRTHX'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 80
+      end
+      object v1Column8: TcxGridDBColumn
+        Caption = #38376#24133
+        DataBinding.FieldName = 'PRTMF'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 70
+      end
+      object v1Column9: TcxGridDBColumn
+        Caption = #20811#37325
+        DataBinding.FieldName = 'PRTKZ'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 59
+      end
+      object v1Column13: TcxGridDBColumn
+        Caption = #20837#24211#21333#21495
+        DataBinding.FieldName = 'RKOrdID'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 69
+      end
+      object v1Column14: TcxGridDBColumn
+        Caption = #24211#20301
+        DataBinding.FieldName = 'RKPlace'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 54
+      end
+      object v1Column5: TcxGridDBColumn
+        Caption = #21367#21495
+        DataBinding.FieldName = 'MJXH'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 60
+      end
+      object v1Column6: TcxGridDBColumn
+        Caption = #21367#26465#30721
+        DataBinding.FieldName = 'MJID'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 92
+      end
+      object v1Column12: TcxGridDBColumn
+        Caption = #21253#21495
+        DataBinding.FieldName = 'BaoNo'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 52
+      end
+      object v1BAOid: TcxGridDBColumn
+        Caption = #21253#26465#30721
+        DataBinding.FieldName = 'BAOid'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 90
+      end
+      object v1Column3: TcxGridDBColumn
+        Caption = #31867#22411
+        DataBinding.FieldName = 'CPType'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 65
+      end
+      object v1Column2: TcxGridDBColumn
+        Caption = #20837#24211#26102#38388
+        DataBinding.FieldName = 'CRTime'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 107
+      end
+      object v1Column15: TcxGridDBColumn
+        Caption = #30382#37325
+        DataBinding.FieldName = 'MJqty3'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 59
+      end
+      object v1Column16: TcxGridDBColumn
+        Caption = #20928#37325
+        DataBinding.FieldName = 'MJqty4'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 56
+      end
+      object v2Column5: TcxGridDBColumn
+        Caption = #27611#37325
+        DataBinding.FieldName = 'KGQty'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 62
+      end
+      object v2Column6: TcxGridDBColumn
+        Caption = #20837#24211#38271#24230
+        DataBinding.FieldName = 'Qty'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 85
+      end
+      object v1Column7: TcxGridDBColumn
+        Caption = #38271#24230#21333#20301
+        DataBinding.FieldName = 'QtyUnit'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 83
+      end
+      object v1Column10: TcxGridDBColumn
+        Caption = #33394#21495
+        DataBinding.FieldName = 'SOrddefstr1'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 60
+      end
+      object v1Column17: TcxGridDBColumn
+        Caption = #32568#21495
+        DataBinding.FieldName = 'MJstr4'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 60
+      end
+      object v1Column18: TcxGridDBColumn
+        Caption = #26579#21378#32568#21495
+        DataBinding.FieldName = 'MJstr5'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 60
+      end
+    end
+    object cxGrid2Level1: TcxGridLevel
+      GridView = Tv1
+    end
+  end
+  object Panel4: TPanel
+    Left = 62
+    Top = 148
+    Width = 294
+    Height = 212
+    TabOrder = 3
+    Visible = False
+    object Label11: TLabel
+      Left = 48
+      Top = 88
+      Width = 6
+      Height = 12
+    end
+    object Panel10: TPanel
+      Left = 1
+      Top = 1
+      Width = 292
+      Height = 24
+      Align = alTop
+      Alignment = taLeftJustify
+      BevelOuter = bvNone
+      Caption = #20107#20214#35828#26126
+      Color = clSkyBlue
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -16
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+      TabOrder = 0
+      object Image2: TImage
+        Left = 269
+        Top = 3
+        Width = 22
+        Height = 16
+        ParentShowHint = False
+        Picture.Data = {
+          07544269746D617076040000424D760400000000000036000000280000001500
+          0000110000000100180000000000400400000000000000000000000000000000
+          0000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+          FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+          FF00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+          FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+          FF00FFFFFFFFFFFFF0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6
+          F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6FFFFFFFFFF
+          FF00FFFFFFFFFFFF404040404040404040404040404040404040404040404040
+          404040404040404040404040404040404040404040404040F0CAA6FFFFFFFFFF
+          FF00FFFFFFFFFFFFFFFFFF808080808080808080808080808080808080808080
+          808080808080808080808080808080808080808080404040F0CAA6FFFFFFFFFF
+          FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4
+          C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF
+          FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4
+          C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF
+          FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4000000000000C8D0D4C8D0D4
+          C8D0D4C8D0D4000000000000C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF
+          FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4000000000000C8D0D4
+          C8D0D4000000000000C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF
+          FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4000000000000
+          000000000000C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF
+          FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4000000
+          000000C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF
+          FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4000000000000
+          000000000000C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF
+          FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4000000000000C8D0D4
+          C8D0D4000000000000C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF
+          FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4000000000000C8D0D4C8D0D4
+          C8D0D4C8D0D4000000000000C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF
+          FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4
+          C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF
+          FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4
+          C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF
+          FF00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+          FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+          FF00}
+        ShowHint = True
+        Transparent = True
+        OnClick = Image2Click
+      end
+    end
+    object RichEdit1: TRichEdit
+      Left = 1
+      Top = 25
+      Width = 292
+      Height = 186
+      Align = alClient
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clRed
+      Font.Height = -16
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
+      ParentFont = False
+      TabOrder = 1
+    end
+  end
+  object ADOQueryCmd: TADOQuery
+    Connection = DataLink_TradeManage.ADOLink
+    Parameters = <>
+    Left = 888
+    Top = 8
+  end
+  object ADOQueryMain: TADOQuery
+    Connection = DataLink_TradeManage.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 936
+    Top = 8
+  end
+  object ADOQueryTemp: TADOQuery
+    Connection = DataLink_TradeManage.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 844
+    Top = 8
+  end
+  object DataSource1: TDataSource
+    DataSet = CDS_Main
+    Left = 932
+    Top = 260
+  end
+  object cxGridPopupMenu1: TcxGridPopupMenu
+    Grid = cxGrid2
+    PopupMenus = <>
+    Left = 888
+    Top = 144
+  end
+  object CDS_Main: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 836
+    Top = 260
+  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
+    CompressLevel = rmzcFastest
+    CompressThread = False
+    LaterBuildEvents = True
+    OnlyOwnerDataSet = False
+    Left = 368
+    Top = 168
+    ReportData = {}
+  end
+  object RMDBMain: TRMDBDataSet
+    Visible = True
+    DataSet = CDS_PRT
+    Left = 520
+    Top = 260
+  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 PopupMenu1: TPopupMenu
+    Left = 564
+    Top = 284
+    object N1: TMenuItem
+      Caption = #20840#36873
+      OnClick = N1Click
+    end
+    object N2: TMenuItem
+      Caption = #20840#24323
+      OnClick = N2Click
+    end
+  end
+  object ADOQueryPrint: TADOQuery
+    Connection = DataLink_TradeManage.ADOLink
+    Parameters = <>
+    Left = 1076
+    Top = 17
+  end
+  object RMDBHZ: TRMDBDataSet
+    Visible = True
+    DataSet = CDS_HZ
+    Left = 572
+    Top = 168
+  end
+  object CDS_HZ: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 568
+    Top = 224
+  end
+  object CDS_PRT: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 512
+    Top = 224
+  end
+end

打卷检验管理/U_CKProductBCPInList.pas

@@ -0,0 +1,771 @@
+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,
+  cxLookAndFeels, cxLookAndFeelPainters, cxNavigator;
+
+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;
+    PRTCodeName: TEdit;
+    Label1: TLabel;
+    Label2: TLabel;
+    BegDate: TDateTimePicker;
+    EndDate: TDateTimePicker;
+    CDS_Main: TClientDataSet;
+    Label5: TLabel;
+    orderNo: TEdit;
+    Label6: TLabel;
+    MJID: TEdit;
+    Label8: TLabel;
+    PRTKZ: TEdit;
+    Label9: TLabel;
+    PRTMF: 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;
+    cxGrid2Level1: TcxGridLevel;
+    Label10: TLabel;
+    RM1: TRMGridReport;
+    RMDBMain: TRMDBDataSet;
+    RMXLSExport1: TRMXLSExport;
+    TBRKCX: TToolButton;
+    v1Column4: TcxGridDBColumn;
+    PopupMenu1: TPopupMenu;
+    N1: TMenuItem;
+    N2: TMenuItem;
+    v1Column11: TcxGridDBColumn;
+    PRTColor: TComboBox;
+    v1Column12: TcxGridDBColumn;
+    v1Column13: TcxGridDBColumn;
+    v1Column14: TcxGridDBColumn;
+    v1Column15: TcxGridDBColumn;
+    v1Column16: TcxGridDBColumn;
+    ComboBox1: TComboBox;
+    BaoNo: TEdit;
+    v1BAOid: TcxGridDBColumn;
+    Panel4: TPanel;
+    Label11: TLabel;
+    Panel10: TPanel;
+    Image2: TImage;
+    RichEdit1: TRichEdit;
+    v1Column10: TcxGridDBColumn;
+    Label12: TLabel;
+    PRTHX: TEdit;
+    Label13: TLabel;
+    SOrddefstr1: TEdit;
+    Label14: TLabel;
+    ADOQueryPrint: TADOQuery;
+    RKOrdID: TEdit;
+    Label15: TLabel;
+    v1Column17: TcxGridDBColumn;
+    v1Column18: TcxGridDBColumn;
+    MJstr4: TEdit;
+    Label16: TLabel;
+    CheckBox1: TCheckBox;
+    RMDBHZ: TRMDBDataSet;
+    CDS_HZ: TClientDataSet;
+    CDS_PRT: TClientDataSet;
+    ToolButton1: TToolButton;
+    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 PRTCodeNameChange(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 Tv1CellClick(Sender: TcxCustomGridTableView;
+      ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
+      AShift: TShiftState; var AHandled: Boolean);
+    procedure PRTColorChange(Sender: TObject);
+    procedure BaoNoChange(Sender: TObject);
+    procedure Image2Click(Sender: TObject);
+    procedure Tv1CellDblClick(Sender: TcxCustomGridTableView;
+      ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
+      AShift: TShiftState; var AHandled: Boolean);
+    procedure Tv1MouseUp(Sender: TObject; Button: TMouseButton;
+      Shift: TShiftState; X, Y: Integer);
+    procedure CheckBox1Click(Sender: TObject);
+    procedure ToolButton1Click(Sender: TObject);
+
+  private
+      FLeft,FTop:Integer;
+    procedure InitGrid();
+
+    Procedure JSbaoNum();
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+var
+  frmCKProductBCPInList: TfrmCKProductBCPInList;
+
+implementation
+uses
+  U_DataLink,U_Fun;
+
+{$R *.dfm}
+Procedure TfrmCKProductBCPInList.JSbaoNum();
+var
+  i:integer;
+  baoID:string;
+  strlist:Tstringlist;
+begin
+  i:=0;
+  baoID:='';
+  IF CDS_Main.IsEmpty then
+  begin
+    Label12.Caption:='包数：0';
+    exit;
+  end;
+  strlist:=Tstringlist.Create;
+  try
+    with CDS_Main do
+    begin
+      DisableControls;
+      first;
+      while not eof do
+      begin
+        IF  (trim(fieldbyname('BaoNO').AsString)<>'') then
+        begin
+          IF strlist.IndexOf(trim(fieldbyname('subID').AsString)+trim(fieldbyname('BaoNO').AsString))<0 then
+          begin
+            strlist.Add(trim(fieldbyname('subID').AsString)+trim(fieldbyname('BaoNO').AsString));
+          end;
+        end;
+     {   IF (trim(fieldbyname('BaoID').AsString)<>trim(baoID)) and (trim(fieldbyname('BaoID').AsString)<>'') then
+        begin
+          i:=i+1;
+          baoID:=trim(fieldbyname('BaoID').AsString);
+        end;  }
+        Next;
+      end;
+      EnableControls;
+    end;
+    Label12.Caption:='包数：'+inttostr(strlist.Count);
+  finally
+    strlist.Free;
+  end;
+end;
+
+
+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
+  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,C.PRTCodeName,C.PRTSpec,C.PRTColor,C.SOrddefstr1,C.PRTMF,C.PRTKZ,D.MJXH,C.PRTHX,D.MJQty3,D.MJQty4 ');
+      sql.Add(',isnull(customerNoName,B.OrderNo) KHName');
+      sql.Add(',PONO=(select Top 1 KHConNo from JYOrderCon_Main JCM where JCM.ConNo=B.OrderNo)');
+      sql.Add(',MPRTECodeName=(select Top 1 MPRTCodeName from JYOrderCon_Main JCM where JCM.ConNo=B.OrderNo)');
+      sql.Add(',cast(D.mjstr4 as varchar(20)) as mjstr4,D.Mjstr5');
+      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('where A.CRTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+'''');
+      sql.Add(' and A.CRTime<'''+Trim(FormatDateTime('yyyy-MM-dd',enddate.DateTime+1))+'''');
+      SQL.Add(' and A.CRType=''检验入库'' ');
+      Open;
+    end;
+    SCreateCDS20(ADOQueryMain,CDS_Main);
+    SInitCDSData20(ADOQueryMain,CDS_Main);
+  finally
+    ADOQueryMain.EnableControls;
+  end;
+   TBFind.Click;
+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
+    v1Column4.Visible:=True;
+    TBRKCX.Visible:=True;
+
+  end else
+  begin
+    v1Column4.Visible:=False;
+    TBRKCX.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;
+   JSbaoNum();
+end;
+
+
+procedure TfrmCKProductBCPInList.PRTCodeNameChange(Sender: TObject);
+begin
+  TBFind.Click;
+end;
+
+procedure TfrmCKProductBCPInList.TBPrintClick(Sender: TObject);
+var
+  fPrintFile,fPrintFile10,FMainID:String;
+begin
+  if CDS_Main.IsEmpty then Exit;
+  if trim(ComboBox1.Text)='' then exit;
+  if CDS_Main.Locate('SSel',True,[])=False then
+  begin
+    Application.MessageBox('没有选择数据','提示',0);
+    Exit;
+  end;
+  fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\'+trim(ComboBox1.Text)+'.rmf' ;
+
+  with ADOQueryCmd do
+  begin
+    Close;
+    sql.Clear;
+    sql.Add('delete TBSubID where DName='''+Trim(DCode)+'''');
+    ExecSQL;
+  end;
+  with ADOQueryCmd do
+  begin
+    Close;
+    sql.Clear;
+    sql.Add('SELECT * FROM TBSubID where 1=2 ');
+    open;
+  end;
+  FMainID:='';
+  CDS_Main.DisableControls;
+  try
+    ADOQueryCmd.Connection.BeginTrans;
+    with CDS_Main do
+    begin
+    First;
+    while not Eof do
+    begin
+      If Fieldbyname('Ssel').AsBoolean then
+      begin
+        IF FMainID='' then
+        begin
+          FMainID:=Trim(CDS_Main.fieldbyname('mainID').AsString);
+        end
+        else
+        begin
+          IF Trim(CDS_Main.fieldbyname('mainID').AsString)<>FMainID then
+          begin
+            application.MessageBox('选择的不是同一个指示单，不能一起打印！','提示信息',0);
+            ADOQueryCmd.Connection.RollbackTrans;
+            EnableControls;
+            exit;
+          end;
+        end;
+          ADOQueryCmd.append;
+          ADOQueryCmd.fieldbyname('SubId').Value:=Trim(CDS_Main.fieldbyname('MJID').AsString);
+          ADOQueryCmd.fieldbyname('Dname').Value:=Trim(DCode);
+          ADOQueryCmd.post;
+      end;
+      Next;
+    end;
+    end;
+    ADOQueryCmd.Connection.CommitTrans;
+  except
+    ADOQueryCmd.Connection.RollbackTrans;
+  end;
+  CDS_Main.EnableControls;
+
+    IF (trim(ComboBox1.Text)='销售码单') or (trim(ComboBox1.Text)='销售码单-安康') then
+  begin
+    with ADOQueryTemp do
+    begin
+      Close;
+      sql.Clear;
+      sql.add('exec P_Print_CKMD ');
+      sql.add('@mainID='+quotedstr(Trim('')));
+      sql.add(',@DName='+quotedstr(Trim(DCode)));
+//      sql.add(',@flag=''0'' ');
+//      sql.add(',@CNum=''10'' ');
+      Open;
+    end;
+    SCreateCDS20(ADOQueryTemp,CDS_HZ);
+    SInitCDSData20(ADOQueryTemp,CDS_HZ);
+
+    with ADOQueryTemp do
+    begin
+      Close;
+      sql.Clear;
+      sql.add('exec P_Do_PrintMd_HZ ');
+      sql.add('@mainID='+quotedstr(Trim('')));
+      sql.add(',@DName='+quotedstr(Trim(DCode)));
+      sql.add(',@flag=''2'' ');
+      Open;
+    end;
+    SCreateCDS20(ADOQueryTemp,CDS_PRT);
+    SInitCDSData20(ADOQueryTemp,CDS_PRT);
+  end;
+
+  IF trim(ComboBox1.Text)='销售码单-QLO' then
+  begin
+    with ADOQueryTemp do
+    begin
+      Close;
+      sql.Clear;
+      sql.add(' SELECT A.mainID,A.subID,A.MJStr4,A.MJLen,A.MJTypeOther,A.baoID,A.baoNo,A.MJQty2,A.MJQty3,A.MJQty4,A.MJMaoZ,A.MJXH,A.MJID, ');
+      sql.add('B.SOrddefstr1,B.PRTCodeName,B.prtSpec,B.PRTColor,B.SOrddefstr4,B.PRTHX,B.Sorddefstr6,B.PRTKuanNO,  ');
+      sql.add('C.Filler as zl,C.OrdPerson1,C.OrderNo,');
+      sql.add('CRTime=(select MAX(CRTime) from CK_BanCP_CR X where X.MJID=A.MJID),');
+      sql.add('CKOrdNo=(select MAX(CKOrdNo) from CK_BanCP_CR X where X.MJID=A.MJID )  ');
+//      sql.add(',a=count(distinct A.MJStr4)');
+      sql.add('FROM WFB_MJJY A');
+      sql.add('inner join JYOrder_Sub B on B.MainId=A.MainId and B.SubId=A.subID  ');
+      sql.add('inner join JYOrder_Main C on C.MainId=A.MainId   ');
+      sql.add('WHERE EXISTS(select SubId from TBSubID X where X.SubId=A.MJID and X.DName='''+DCode+''') ');
+      sql.add('ORDER BY A.MainID,A.subID,A.MJStr4,A.MJXH ');
+//      showmessage(sql.Text);
+      Open;
+    end;
+    SCreateCDS20(ADOQueryTemp,CDS_HZ);
+    SInitCDSData20(ADOQueryTemp,CDS_HZ);
+
+    with ADOQueryTemp do
+    begin
+      Close;
+      sql.Clear;
+      sql.add('exec P_Do_PrintMd_HZ ');
+      sql.add('@mainID='+quotedstr(Trim('')));
+      sql.add(',@DName='+quotedstr(Trim(DCode)));
+      sql.add(',@flag=''2'' ');
+      Open;
+    end;
+    SCreateCDS20(ADOQueryTemp,CDS_PRT);
+    SInitCDSData20(ADOQueryTemp,CDS_PRT);
+  end;
+
+  IF (trim(ComboBox1.Text)='单色包装') OR (trim(ComboBox1.Text)='单色包装-长度') OR (trim(ComboBox1.Text)='裸装') then
+  begin
+    with ADOQueryTemp do
+    begin
+      Close;
+      sql.Clear;
+      sql.add('exec P_Do_PrintMd20 ');
+      sql.add('@mainID='+quotedstr(Trim('')));
+      sql.add(',@DName='+quotedstr(Trim(DCode)));
+      sql.add(',@flag=''0'' ');
+      sql.add(',@CNum=''10'' ');
+      Open;
+    end;
+    SCreateCDS20(ADOQueryTemp,CDS_HZ);
+    SInitCDSData20(ADOQueryTemp,CDS_HZ);
+
+    with ADOQueryTemp do
+    begin
+      Close;
+      sql.Clear;
+      sql.add('exec P_Do_PrintMd_HZ ');
+      sql.add('@mainID='+quotedstr(Trim('')));
+      sql.add(',@DName='+quotedstr(Trim(DCode)));
+      sql.add(',@flag=''0'' ');
+      Open;
+    end;
+    SCreateCDS20(ADOQueryTemp,CDS_PRT);
+    SInitCDSData20(ADOQueryTemp,CDS_PRT);
+  end;
+
+//  IF (trim(ComboBox1.Text)='裸装') then
+//  begin
+//    with ADOQueryTemp do
+//    begin
+//      Close;
+//      sql.Clear;
+//      sql.add('select A.OrderNo,B.* from WFB_MJJY B left join JYOrder_Main A on A.MainId=B.MainId ');
+//      sql.add('where A.OrderNo ='+Trim(CDS_Main.fieldbyname('orderNo').AsString));
+//      sql.add('order by b.MJXH');
+//      Open;
+//    end;
+//    SCreateCDS20(ADOQueryTemp,CDS_HZ);
+//    SInitCDSData20(ADOQueryTemp,CDS_HZ);
+//
+//    with ADOQueryTemp do
+//    begin
+//      Close;
+//      sql.Clear;
+//      sql.add('exec P_Do_PrintMd_HZ ');
+//      sql.add('@mainID='+quotedstr(Trim('')));
+//      sql.add(',@DName='+quotedstr(Trim(DCode)));
+//      sql.add(',@flag=''0'' ');
+//      Open;
+//    end;
+//    SCreateCDS20(ADOQueryTemp,CDS_PRT);
+//    SInitCDSData20(ADOQueryTemp,CDS_PRT);
+//  end;
+
+  IF trim(ComboBox1.Text)='混色包装-10色' then
+  begin
+    with ADOQueryTemp do
+    begin
+      Close;
+      sql.Clear;
+      sql.add('exec P_Do_PrintMd30 ');
+      sql.add('@mainID='+quotedstr(Trim('')));
+      sql.add(',@DName='+quotedstr(Trim(DCode)));
+      sql.add(',@flag=''0'' ');
+      sql.add(',@CNum=''10'' ');
+      Open;
+    end;
+    SCreateCDS20(ADOQueryTemp,CDS_HZ);
+    SInitCDSData20(ADOQueryTemp,CDS_HZ);
+
+    with ADOQueryTemp do
+    begin
+      Close;
+      sql.Clear;
+      sql.add('exec P_Do_PrintMd_HZ ');
+      sql.add('@mainID='+quotedstr(Trim('')));
+      sql.add(',@DName='+quotedstr(Trim(DCode)));
+      sql.add(',@flag=''1'' ');
+      Open;
+    end;
+    SCreateCDS20(ADOQueryTemp,CDS_PRT);
+    SInitCDSData20(ADOQueryTemp,CDS_PRT);
+  end;
+  IF trim(ComboBox1.Text)='混色包装-重量' then
+  begin
+    with ADOQueryTemp do
+    begin
+      Close;
+      sql.Clear;
+      sql.add('exec P_Do_PrintMd30 ');
+      sql.add('@mainID='+quotedstr(Trim('')));
+      sql.add(',@DName='+quotedstr(Trim(DCode)));
+      sql.add(',@flag=''0'' ');
+      sql.add(',@CNum=''10'' ');
+      Open;
+    end;
+    SCreateCDS20(ADOQueryTemp,CDS_HZ);
+    SInitCDSData20(ADOQueryTemp,CDS_HZ);
+
+    with ADOQueryTemp do
+    begin
+      Close;
+      sql.Clear;
+      sql.add('exec P_Do_PrintMd_HZ ');
+      sql.add('@mainID='+quotedstr(Trim('')));
+      sql.add(',@DName='+quotedstr(Trim(DCode)));
+      sql.add(',@flag=''1'' ');
+      Open;
+    end;
+    SCreateCDS20(ADOQueryTemp,CDS_PRT);
+    SInitCDSData20(ADOQueryTemp,CDS_PRT);
+
+  end;
+
+
+
+  if FileExists(fPrintFile) then
+  begin
+    RM1.LoadFromFile(fPrintFile);
+    RM1.ShowReport;
+  end
+  else
+  begin
+    Application.MessageBox(PChar('没有找'+fPrintFile),'提示',0);
+  end;
+end;
+
+
+
+
+procedure TfrmCKProductBCPInList.orderNoChange(Sender: TObject);
+begin
+  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,C.PRTCodeName,C.PRTSpec,C.PRTColor,C.SOrddefstr1,C.PRTMF,C.PRTKZ,D.MJXH,C.PRTHX,D.MJQty3,D.MJQty4');
+        sql.Add(',isnull(customerNoName,B.OrderNo) KHName');
+        sql.Add(',PONO=(select Top 1 KHConNo from JYOrderCon_Main JCM where JCM.ConNo=B.OrderNo)');
+        sql.Add(',MPRTECodeName=(select Top 1 MPRTCodeName from JYOrderCon_Main JCM where JCM.ConNo=B.OrderNo)');
+        sql.Add(',D.mjstr4,D.MJstr5');
+        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('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);
+      if CDS_Main.IsEmpty=False then
+      begin
+        InitOrderColor(Trim(CDS_Main.fieldbyname('MainId').AsString),PRTColor,ADOQueryTemp);
+        //InitBCGangNo(Trim(CDS_Main.fieldbyname('SubId').AsString),AOrdDefStr1,ADOQueryTemp);
+      end;
+    finally
+      ADOQueryMain.EnableControls;
+    end;
+     JSbaoNum();
+  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.Tv1CellClick(
+  Sender: TcxCustomGridTableView;
+  ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
+  AShift: TShiftState; var AHandled: Boolean);
+begin
+  if CDS_Main.IsEmpty=False then
+  begin
+    InitOrderColor(Trim(CDS_Main.fieldbyname('MainId').AsString),PRTColor,ADOQueryTemp);
+   // InitBCGangNo(Trim(CDS_Main.fieldbyname('SubId').AsString),AOrdDefStr1,ADOQueryTemp);
+  end;
+end;
+
+procedure TfrmCKProductBCPInList.PRTColorChange(Sender: TObject);
+begin
+  TBFind.Click;
+  if CDS_Main.IsEmpty=False then
+  begin
+    //InitOrderColor(Trim(CDS_Main.fieldbyname('MainId').AsString),PRTColor,ADOQueryTemp);
+    //InitBCGangNo(Trim(CDS_Main.fieldbyname('SubId').AsString),AOrdDefStr1,ADOQueryTemp);
+  end;
+end;
+
+procedure TfrmCKProductBCPInList.BaoNoChange(Sender: TObject);
+begin
+  TBFind.Click;
+end;
+
+procedure TfrmCKProductBCPInList.Image2Click(Sender: TObject);
+begin
+  Panel4.Visible:=False;
+end;
+
+procedure TfrmCKProductBCPInList.Tv1CellDblClick(
+  Sender: TcxCustomGridTableView;
+  ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
+  AShift: TShiftState; var AHandled: Boolean);
+begin
+  Panel4.Left:=FLeft;
+  Panel4.Top:=FTop+110;
+  Panel4.Visible:=True;
+  Panel4.Refresh;
+  Panel10.Caption:=Trim(TV1.Controller.FocusedColumn.Caption);
+  RichEdit1.Text:=CDS_Main.fieldbyname(TV1.Controller.FocusedColumn.DataBinding.FilterFieldName).AsString;
+end;
+
+procedure TfrmCKProductBCPInList.Tv1MouseUp(Sender: TObject;
+  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
+begin
+  FLeft:=X;
+  FTop:=Y;
+end;
+
+procedure TfrmCKProductBCPInList.CheckBox1Click(Sender: TObject);
+begin
+  SelOKNo(CDS_Main,CheckBox1.Checked);
+end;
+
+
+procedure TfrmCKProductBCPInList.ToolButton1Click(Sender: TObject);
+begin
+  try
+    ADOQueryMain.DisableControls;
+    with ADOQueryMain do
+    begin
+      Filtered:=False;
+      Close;
+      sql.Clear;
+      SQL.Add('select A.*,B.OrderNo,C.PRTCodeName,C.PRTSpec,C.PRTColor,C.SOrddefstr1,C.PRTMF,C.PRTKZ,D.MJXH,C.PRTHX,D.MJQty3,D.MJQty4');
+      sql.Add(',isnull(customerNoName,B.OrderNo) KHName');
+      sql.Add(',PONO=(select Top 1 KHConNo from JYOrderCon_Main JCM where JCM.ConNo=B.OrderNo)');
+      sql.Add(',MPRTECodeName=(select Top 1 MPRTCodeName from JYOrderCon_Main JCM where JCM.ConNo=B.OrderNo)');
+      sql.Add(',D.mjstr4,D.Mjstr5');
+      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 CK_BanCP_KC E on A.BCID=E.BCID');
+      sql.add('where A.CRTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+'''');
+      sql.Add(' and A.CRTime<'''+Trim(FormatDateTime('yyyy-MM-dd',enddate.DateTime+1))+'''');
+      SQL.Add(' and A.CRType=''检验入库'' ');
+      SQL.Add('and (E.KCQty>0 or E.KCKGQty>0) ');
+      Open;
+    end;
+    SCreateCDS20(ADOQueryMain,CDS_Main);
+    SInitCDSData20(ADOQueryMain,CDS_Main);
+  finally
+    ADOQueryMain.EnableControls;
+  end;
+   TBFind.Click;
+end;
+
+end.

打卷检验管理/U_CKProductBCPKC.dfm

@@ -0,0 +1,330 @@
+object frmCKProductBCPKC: TfrmCKProductBCPKC
+  Left = 128
+  Top = 152
+  Width = 1027
+  Height = 511
+  Caption = #21322#25104#21697#20986#20837#23384
+  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 = 1019
+    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_WFBProducttion.ThreeImgList
+    List = True
+    ParentColor = False
+    ParentFont = False
+    ShowCaptions = True
+    TabOrder = 0
+    object TBRafresh: TToolButton
+      Left = 0
+      Top = 0
+      AutoSize = True
+      Caption = #21047#26032
+      ImageIndex = 9
+      OnClick = TBRafreshClick
+    end
+    object TBFind: TToolButton
+      Left = 63
+      Top = 0
+      AutoSize = True
+      Caption = #36807#28388
+      ImageIndex = 59
+      OnClick = TBFindClick
+    end
+    object TBExport: TToolButton
+      Left = 126
+      Top = 0
+      AutoSize = True
+      Caption = #23548#20986
+      ImageIndex = 75
+      OnClick = TBExportClick
+    end
+    object TBPrint: TToolButton
+      Left = 189
+      Top = 0
+      AutoSize = True
+      Caption = #25171#21360
+      ImageIndex = 12
+      Visible = False
+    end
+    object TBClose: TToolButton
+      Left = 252
+      Top = 0
+      AutoSize = True
+      Caption = #20851#38381
+      ImageIndex = 55
+      OnClick = TBCloseClick
+    end
+  end
+  object Panel1: TPanel
+    Left = 0
+    Top = 33
+    Width = 1019
+    Height = 42
+    Align = alTop
+    BevelInner = bvRaised
+    BevelOuter = bvLowered
+    Color = clSkyBlue
+    TabOrder = 1
+    object Label3: TLabel
+      Left = 302
+      Top = 12
+      Width = 48
+      Height = 12
+      Caption = #20135#21697#20195#21495
+    end
+    object Label4: TLabel
+      Left = 478
+      Top = 12
+      Width = 24
+      Height = 12
+      Caption = #39068#33394
+    end
+    object Label7: TLabel
+      Left = 638
+      Top = 12
+      Width = 24
+      Height = 12
+      Caption = #33457#22411
+    end
+    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 YCLName: TEdit
+      Tag = 2
+      Left = 351
+      Top = 9
+      Width = 100
+      Height = 20
+      TabOrder = 0
+      OnChange = YCLNameChange
+    end
+    object SWFBColor: TEdit
+      Tag = 2
+      Left = 502
+      Top = 9
+      Width = 100
+      Height = 20
+      TabOrder = 1
+      OnChange = YCLNameChange
+    end
+    object SWFBHW: TEdit
+      Tag = 2
+      Left = 663
+      Top = 9
+      Width = 100
+      Height = 20
+      TabOrder = 2
+      OnChange = YCLNameChange
+    end
+    object BegDate: TDateTimePicker
+      Left = 77
+      Top = 9
+      Width = 87
+      Height = 20
+      Date = 40768.458268587970000000
+      Time = 40768.458268587970000000
+      TabOrder = 3
+    end
+    object EndDate: TDateTimePicker
+      Left = 181
+      Top = 9
+      Width = 87
+      Height = 20
+      Date = 40768.458268587970000000
+      Time = 40768.458268587970000000
+      TabOrder = 4
+    end
+  end
+  object cxGrid2: TcxGrid
+    Left = 0
+    Top = 75
+    Width = 1019
+    Height = 399
+    Align = alClient
+    TabOrder = 2
+    object Tv1: TcxGridDBTableView
+      NavigatorButtons.ConfirmDelete = False
+      OnCellDblClick = Tv1CellDblClick
+      DataController.DataSource = DataSource1
+      DataController.Summary.DefaultGroupSummaryItems = <>
+      DataController.Summary.FooterSummaryItems = <
+        item
+          Kind = skSum
+          Column = v2Column5
+        end
+        item
+          Kind = skSum
+          Column = v2Column6
+        end
+        item
+          Kind = skSum
+          Column = v1Column1
+        end
+        item
+          Kind = skSum
+        end
+        item
+          Kind = skSum
+          Column = v2Column7
+        end
+        item
+          Kind = skSum
+          Column = v2Column8
+        end>
+      DataController.Summary.SummaryGroups = <>
+      OptionsCustomize.ColumnFiltering = False
+      OptionsSelection.CellSelect = False
+      OptionsView.Footer = True
+      OptionsView.GroupByBox = False
+      Styles.Header = DataLink_WFBProducttion.Default
+      object v2Column1: TcxGridDBColumn
+        Caption = #20135#21697#20195#21495
+        DataBinding.FieldName = 'SWFBCodeName'
+        HeaderAlignmentHorz = taCenter
+        Options.Focusing = False
+        Width = 92
+      end
+      object v2Column2: TcxGridDBColumn
+        Caption = #24133#23485
+        DataBinding.FieldName = 'XJFK'
+        HeaderAlignmentHorz = taCenter
+        Options.Focusing = False
+        Width = 77
+      end
+      object v2Column3: TcxGridDBColumn
+        Caption = #39068#33394
+        DataBinding.FieldName = 'SWFBColor'
+        HeaderAlignmentHorz = taCenter
+        Options.Focusing = False
+        Width = 77
+      end
+      object v2Column4: TcxGridDBColumn
+        Caption = #20811#37325
+        DataBinding.FieldName = 'SWFBKZ'
+        HeaderAlignmentHorz = taCenter
+        Options.Focusing = False
+        Width = 82
+      end
+      object v1Column3: TcxGridDBColumn
+        Caption = #33457#22411
+        DataBinding.FieldName = 'SWFBHW'
+        HeaderAlignmentHorz = taCenter
+        Width = 58
+      end
+      object v1Column4: TcxGridDBColumn
+        Caption = #32593#23380#30446#25968
+        DataBinding.FieldName = 'WKMS'
+        Width = 57
+      end
+      object v2Column5: TcxGridDBColumn
+        Caption = #19978#26399#25968#37327
+        DataBinding.FieldName = 'SQJCS'
+        HeaderAlignmentHorz = taCenter
+        Options.Focusing = False
+        Width = 73
+      end
+      object v2Column6: TcxGridDBColumn
+        Caption = #26412#26399#20837#24211#25968#37327
+        DataBinding.FieldName = 'RKS'
+        HeaderAlignmentHorz = taCenter
+        Options.Focusing = False
+        Width = 101
+      end
+      object v1Column1: TcxGridDBColumn
+        Caption = #26412#26399#22238#20179#25968#37327
+        DataBinding.FieldName = 'HCS'
+        Options.Focusing = False
+        Width = 87
+      end
+      object v2Column7: TcxGridDBColumn
+        Caption = #26412#26399#20986#24211#25968#37327
+        DataBinding.FieldName = 'CKS'
+        HeaderAlignmentHorz = taCenter
+        Options.Focusing = False
+        Width = 93
+      end
+      object v2Column8: TcxGridDBColumn
+        Caption = #24211#23384#25968#37327
+        DataBinding.FieldName = 'KCQty'
+        HeaderAlignmentHorz = taCenter
+        Options.Focusing = False
+        Width = 56
+      end
+    end
+    object cxGrid2Level1: TcxGridLevel
+      GridView = Tv1
+    end
+  end
+  object ADOQueryCmd: TADOQuery
+    Connection = DataLink_WFBProducttion.ADOLink
+    Parameters = <>
+    Left = 904
+    Top = 40
+  end
+  object ADOQueryMain: TADOQuery
+    Connection = DataLink_WFBProducttion.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 840
+    Top = 40
+  end
+  object ADOQueryTemp: TADOQuery
+    Connection = DataLink_WFBProducttion.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 872
+    Top = 40
+  end
+  object DataSource1: TDataSource
+    DataSet = CDS_Main
+    Left = 624
+    Top = 184
+  end
+  object cxGridPopupMenu1: TcxGridPopupMenu
+    Grid = cxGrid2
+    PopupMenus = <>
+    Left = 544
+    Top = 176
+  end
+  object CDS_Main: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 416
+    Top = 192
+  end
+end

打卷检验管理/U_CKProductBCPKC.pas

@@ -0,0 +1,207 @@
+unit U_CKProductBCPKC;
+
+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;
+
+type
+  TfrmCKProductBCPKC = 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;
+    Label7: TLabel;
+    YCLName: TEdit;
+    SWFBColor: TEdit;
+    SWFBHW: TEdit;
+    Label1: TLabel;
+    Label2: TLabel;
+    BegDate: TDateTimePicker;
+    EndDate: TDateTimePicker;
+    CDS_Main: TClientDataSet;
+    Tv1: TcxGridDBTableView;
+    cxGrid2Level1: TcxGridLevel;
+    cxGrid2: TcxGrid;
+    v2Column1: TcxGridDBColumn;
+    v2Column2: TcxGridDBColumn;
+    v2Column3: TcxGridDBColumn;
+    v2Column4: TcxGridDBColumn;
+    v2Column5: TcxGridDBColumn;
+    v2Column6: TcxGridDBColumn;
+    v2Column7: TcxGridDBColumn;
+    v2Column8: TcxGridDBColumn;
+    v1Column1: TcxGridDBColumn;
+    v1Column3: TcxGridDBColumn;
+    v1Column4: 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 YCLNameChange(Sender: TObject);
+    procedure Tv1CellDblClick(Sender: TcxCustomGridTableView;
+      ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
+      AShift: TShiftState; var AHandled: Boolean);
+  private
+    procedure InitGrid();
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+var
+  frmCKProductBCPKC: TfrmCKProductBCPKC;
+
+implementation
+uses
+  U_DataLink,U_Fun,U_CRMX;
+
+{$R *.dfm}
+
+procedure TfrmCKProductBCPKC.FormDestroy(Sender: TObject);
+begin
+  frmCKProductBCPKC:=nil;
+end;
+
+procedure TfrmCKProductBCPKC.FormClose(Sender: TObject;
+  var Action: TCloseAction);
+begin
+  Action:=caFree;
+end;
+
+procedure TfrmCKProductBCPKC.FormCreate(Sender: TObject);
+begin
+  //cxGrid1.Align:=alClient;
+  BegDate.DateTime:=SGetServerDateTime(ADOQueryTemp)-30;
+  EndDate.DateTime:=SGetServerDateTime(ADOQueryTemp)
+end;
+
+procedure TfrmCKProductBCPKC.InitGrid();
+begin
+  try
+    ADOQueryMain.DisableControls;
+    with ADOQueryMain do
+    begin
+      Filtered:=False;
+      Close;
+      sql.Clear;
+      SQL.Add('exec CK_YCL_CRCHZ :begdate,:enddate,:CKName');
+      Parameters.ParamByName('begdate').Value:=Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime));
+      Parameters.ParamByName('enddate').Value:=Trim(FormatDateTime('yyyy-MM-dd',enddate.DateTime+1));
+      Parameters.ParamByName('CKName').Value:=Trim(DParameters1);
+      Open;
+      //ShowMessage(SQL.Text);
+    end;
+    SCreateCDS20(ADOQueryMain,CDS_Main);
+    SInitCDSData20(ADOQueryMain,CDS_Main);
+  finally
+    ADOQueryMain.EnableControls;
+  end;
+end;
+
+procedure TfrmCKProductBCPKC.TBRafreshClick(Sender: TObject);
+begin
+  BegDate.SetFocus;
+  InitGrid();
+end;
+
+procedure TfrmCKProductBCPKC.ConNoMChange(Sender: TObject);
+begin
+  if ADOQueryMain.Active then
+  begin
+    SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2));
+  end;
+end;
+
+procedure TfrmCKProductBCPKC.TBCloseClick(Sender: TObject);
+begin
+  WriteCxGrid('埻第蹋踱湔2',Tv1,'埻第蹋累踱');
+  Close;
+end;
+
+procedure TfrmCKProductBCPKC.FormShow(Sender: TObject);
+begin
+
+  ReadCxGrid('埻第蹋踱湔2',Tv1,'埻第蹋累踱');
+  if Trim(DParameters2)='埻蹋濬倰' then
+  begin
+    ToolButton1.Visible:=True;
+    v2Column9.Options.Focusing:=True;
+    v2Column9.Visible:=True;
+  end else
+  begin
+    ToolButton1.Visible:=False;
+    v2Column9.Options.Focusing:=False;
+    v2Column9.Visible:=False;
+  end;
+  InitGrid();
+end;
+
+procedure TfrmCKProductBCPKC.TBExportClick(Sender: TObject);
+begin
+  if ADOQueryMain.IsEmpty then exit;
+  TcxGridToExcel(Trim(DParameters1)+'踱湔',cxGrid2);
+end;
+
+procedure TfrmCKProductBCPKC.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 TfrmCKProductBCPKC.YCLNameChange(Sender: TObject);
+begin
+  TBFind.Click;
+end;
+
+procedure TfrmCKProductBCPKC.Tv1CellDblClick(Sender: TcxCustomGridTableView;
+  ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
+  AShift: TShiftState; var AHandled: Boolean);
+begin
+  try
+    frmCRMX:=TfrmCRMX.Create(Application);
+    with frmCRMX do
+    begin
+      Fbegdate:=FormatDateTime('yyyy-MM-dd',Self.BegDate.DateTime);
+      Fenddate:=FormatDateTime('yyyy-MM-dd',Self.enddate.DateTime+1);
+      {FGYS:=Trim(Self.CDS_Main.fieldbyname('GYS').AsString);
+      FYCLCode:=Trim(Self.CDS_Main.fieldbyname('YCLCode').AsString);
+      FYCLSpec:=Trim(Self.CDS_Main.fieldbyname('YCLSpec').AsString);
+      FCRUnit:=Trim(Self.CDS_Main.fieldbyname('KCUint').AsString);  }
+      CRID:=Trim(Self.CDS_Main.fieldbyname('CRID').AsString);
+      if ShowModal=1 then
+      begin
+
+      end;
+    end;
+  finally
+    frmCRMX.Free;
+  end;
+end;
+
+end.

打卷检验管理/U_CKProductBCPKCHZList.dfm

@@ -0,0 +1,576 @@
+object frmCKProductBCPKCHZList: TfrmCKProductBCPKCHZList
+  Left = 176
+  Top = 156
+  Width = 1027
+  Height = 511
+  Caption = #25104#21697#24211#23384#27719#24635#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 = 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_TradeManage.ThreeImgList
+    List = True
+    ParentColor = False
+    ParentFont = False
+    ShowCaptions = True
+    TabOrder = 0
+    object TBRafresh: TToolButton
+      Left = 0
+      Top = 0
+      AutoSize = True
+      Caption = #21047#26032
+      ImageIndex = 9
+      OnClick = TBRafreshClick
+    end
+    object TBFind: TToolButton
+      Left = 63
+      Top = 0
+      AutoSize = True
+      Caption = #36807#28388
+      ImageIndex = 59
+      OnClick = TBFindClick
+    end
+    object TBExport: TToolButton
+      Left = 126
+      Top = 0
+      AutoSize = True
+      Caption = #23548#20986
+      ImageIndex = 75
+      OnClick = TBExportClick
+    end
+    object TBPrint: TToolButton
+      Left = 189
+      Top = 0
+      AutoSize = True
+      Caption = #25171#21360
+      ImageIndex = 12
+      Visible = False
+    end
+    object TBClose: TToolButton
+      Left = 252
+      Top = 0
+      AutoSize = True
+      Caption = #20851#38381
+      ImageIndex = 55
+      OnClick = TBCloseClick
+    end
+  end
+  object Panel1: TPanel
+    Left = 0
+    Top = 33
+    Width = 1011
+    Height = 61
+    Align = alTop
+    BevelInner = bvRaised
+    BevelOuter = bvLowered
+    Color = clSkyBlue
+    TabOrder = 1
+    object Label3: TLabel
+      Left = 215
+      Top = 12
+      Width = 48
+      Height = 12
+      Caption = #20013#25991#21517#31216
+    end
+    object Label4: TLabel
+      Left = 384
+      Top = 12
+      Width = 24
+      Height = 12
+      Caption = #39068#33394
+    end
+    object Label1: TLabel
+      Left = 780
+      Top = 12
+      Width = 48
+      Height = 12
+      Caption = #26597#35810#26102#38388
+      Visible = False
+    end
+    object Label2: TLabel
+      Left = 816
+      Top = 36
+      Width = 12
+      Height = 12
+      Caption = #33267
+      Visible = False
+    end
+    object Label5: TLabel
+      Left = 45
+      Top = 12
+      Width = 36
+      Height = 12
+      Caption = #35746#21333#21495
+    end
+    object Label6: TLabel
+      Left = 45
+      Top = 36
+      Width = 36
+      Height = 12
+      Caption = #33394'  '#21495
+    end
+    object Label8: TLabel
+      Left = 215
+      Top = 36
+      Width = 48
+      Height = 12
+      Caption = #20811'    '#37325
+    end
+    object Label9: TLabel
+      Left = 384
+      Top = 36
+      Width = 24
+      Height = 12
+      Caption = #38376#24133
+    end
+    object Label7: TLabel
+      Left = 616
+      Top = 36
+      Width = 48
+      Height = 12
+      Caption = #31867'    '#22411
+    end
+    object Label10: TLabel
+      Left = 508
+      Top = 36
+      Width = 6
+      Height = 12
+    end
+    object Label11: TLabel
+      Left = 492
+      Top = 12
+      Width = 36
+      Height = 12
+      Caption = #19994#21153#21592
+    end
+    object Label12: TLabel
+      Left = 492
+      Top = 36
+      Width = 36
+      Height = 12
+      Caption = #36319#21333#21592
+    end
+    object PRTCodeName: TEdit
+      Tag = 2
+      Left = 264
+      Top = 8
+      Width = 100
+      Height = 20
+      TabOrder = 0
+      OnChange = PRTCodeNameChange
+    end
+    object BegDate: TDateTimePicker
+      Left = 829
+      Top = 9
+      Width = 87
+      Height = 20
+      Date = 40768.458268587970000000
+      Time = 40768.458268587970000000
+      ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
+      TabOrder = 1
+      Visible = False
+    end
+    object EndDate: TDateTimePicker
+      Left = 829
+      Top = 33
+      Width = 87
+      Height = 20
+      Date = 40768.458268587970000000
+      Time = 40768.458268587970000000
+      ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
+      TabOrder = 2
+      Visible = False
+    end
+    object orderNo: TEdit
+      Tag = 2
+      Left = 86
+      Top = 8
+      Width = 103
+      Height = 20
+      TabOrder = 3
+      OnChange = PRTCodeNameChange
+    end
+    object SOrddefstr1: TEdit
+      Tag = 2
+      Left = 86
+      Top = 32
+      Width = 103
+      Height = 20
+      TabOrder = 4
+      OnChange = PRTCodeNameChange
+    end
+    object PRTKZ: TEdit
+      Tag = 1
+      Left = 264
+      Top = 32
+      Width = 100
+      Height = 20
+      TabOrder = 5
+      OnChange = PRTCodeNameChange
+    end
+    object PRTMF: TEdit
+      Tag = 1
+      Left = 408
+      Top = 32
+      Width = 65
+      Height = 20
+      TabOrder = 6
+      OnChange = PRTCodeNameChange
+    end
+    object CPType: TComboBox
+      Tag = 2
+      Left = 667
+      Top = 32
+      Width = 68
+      Height = 20
+      Style = csDropDownList
+      ItemHeight = 12
+      TabOrder = 7
+      OnChange = TBFindClick
+      Items.Strings = (
+        #27491#21697
+        #27425#21697
+        #22810#25340
+        '')
+    end
+    object YWY: TEdit
+      Tag = 2
+      Left = 530
+      Top = 8
+      Width = 65
+      Height = 20
+      TabOrder = 8
+      OnChange = PRTCodeNameChange
+    end
+    object OrdPerson1: TEdit
+      Tag = 2
+      Left = 530
+      Top = 32
+      Width = 65
+      Height = 20
+      TabOrder = 9
+      OnChange = PRTCodeNameChange
+    end
+    object PRTColor: TComboBox
+      Tag = 1
+      Left = 408
+      Top = 8
+      Width = 66
+      Height = 20
+      ItemHeight = 12
+      TabOrder = 10
+      OnChange = PRTColorChange
+    end
+  end
+  object cxGrid2: TcxGrid
+    Left = 0
+    Top = 94
+    Width = 1011
+    Height = 379
+    Align = alClient
+    TabOrder = 2
+    object Tv1: TcxGridDBTableView
+      OnMouseUp = Tv1MouseUp
+      Navigator.Buttons.CustomButtons = <>
+      OnCellClick = Tv1CellClick
+      OnCellDblClick = Tv1CellDblClick
+      DataController.DataSource = DataSource1
+      DataController.Summary.DefaultGroupSummaryItems = <>
+      DataController.Summary.FooterSummaryItems = <
+        item
+          Kind = skSum
+          Column = v1Column6
+        end
+        item
+          Kind = skSum
+          Column = v2Column5
+        end
+        item
+          Kind = skSum
+          Column = v2Column6
+        end>
+      DataController.Summary.SummaryGroups = <>
+      OptionsCustomize.ColumnFiltering = False
+      OptionsView.Footer = True
+      OptionsView.GroupByBox = False
+      Styles.Inactive = DataLink_TradeManage.SHuangSe
+      Styles.IncSearch = DataLink_TradeManage.SHuangSe
+      Styles.Selection = DataLink_TradeManage.SHuangSe
+      Styles.Header = DataLink_TradeManage.Default
+      object v1Column1: TcxGridDBColumn
+        Caption = #35746#21333#21495
+        DataBinding.FieldName = 'orderNo'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 74
+      end
+      object v2Column1: TcxGridDBColumn
+        Caption = #20013#25991#21517#31216
+        DataBinding.FieldName = 'PRTCodeName'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 92
+      end
+      object v2Column3: TcxGridDBColumn
+        Caption = #39068#33394
+        DataBinding.FieldName = 'PRTColor'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 77
+      end
+      object v1Column5: TcxGridDBColumn
+        Caption = #33394#21495
+        DataBinding.FieldName = 'SOrddefstr1'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 71
+      end
+      object v1Column10: TcxGridDBColumn
+        Caption = #33457#22411#33457#21495
+        DataBinding.FieldName = 'PRTHX'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 65
+      end
+      object v1Column2: TcxGridDBColumn
+        Caption = #19994#21153#21592
+        DataBinding.FieldName = 'YWY'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 52
+      end
+      object v1Column4: TcxGridDBColumn
+        Caption = #36319#21333#21592
+        DataBinding.FieldName = 'OrdPerson1'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 59
+      end
+      object v1Column8: TcxGridDBColumn
+        Caption = #38376#24133
+        DataBinding.FieldName = 'PRTMF'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 70
+      end
+      object v1Column9: TcxGridDBColumn
+        Caption = #20811#37325
+        DataBinding.FieldName = 'PRTKZ'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 59
+      end
+      object v1Column3: TcxGridDBColumn
+        Caption = #31867#22411
+        DataBinding.FieldName = 'CPType'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 63
+      end
+      object v1Column6: TcxGridDBColumn
+        Caption = #21367#25968#37327
+        DataBinding.FieldName = 'JQty'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 74
+      end
+      object v2Column5: TcxGridDBColumn
+        Caption = #24211#23384#20844#26020#25968
+        DataBinding.FieldName = 'KCKGQty'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 83
+      end
+      object v2Column6: TcxGridDBColumn
+        Caption = #24211#23384#25968#37327
+        DataBinding.FieldName = 'KCQty'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 85
+      end
+      object v1Column7: TcxGridDBColumn
+        Caption = #25968#37327#21333#20301
+        DataBinding.FieldName = 'KCQtyUnit'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 83
+      end
+    end
+    object cxGrid2Level1: TcxGridLevel
+      GridView = Tv1
+    end
+  end
+  object MovePanel2: TMovePanel
+    Left = 408
+    Top = 192
+    Width = 289
+    Height = 49
+    BevelInner = 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 = -14
+    Font.Name = #23435#20307
+    Font.Style = [fsBold]
+    ParentFont = False
+    TabOrder = 3
+    Visible = False
+  end
+  object Panel4: TPanel
+    Left = 62
+    Top = 148
+    Width = 294
+    Height = 212
+    TabOrder = 4
+    Visible = False
+    object Label13: TLabel
+      Left = 48
+      Top = 88
+      Width = 6
+      Height = 12
+    end
+    object Panel10: TPanel
+      Left = 1
+      Top = 1
+      Width = 292
+      Height = 24
+      Align = alTop
+      Alignment = taLeftJustify
+      BevelOuter = bvNone
+      Caption = #20107#20214#35828#26126
+      Color = clSkyBlue
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -16
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+      TabOrder = 0
+      object Image2: TImage
+        Left = 269
+        Top = 3
+        Width = 22
+        Height = 16
+        ParentShowHint = False
+        Picture.Data = {
+          07544269746D617076040000424D760400000000000036000000280000001500
+          0000110000000100180000000000400400000000000000000000000000000000
+          0000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+          FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+          FF00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+          FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+          FF00FFFFFFFFFFFFF0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6
+          F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6FFFFFFFFFF
+          FF00FFFFFFFFFFFF404040404040404040404040404040404040404040404040
+          404040404040404040404040404040404040404040404040F0CAA6FFFFFFFFFF
+          FF00FFFFFFFFFFFFFFFFFF808080808080808080808080808080808080808080
+          808080808080808080808080808080808080808080404040F0CAA6FFFFFFFFFF
+          FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4
+          C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF
+          FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4
+          C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF
+          FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4000000000000C8D0D4C8D0D4
+          C8D0D4C8D0D4000000000000C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF
+          FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4000000000000C8D0D4
+          C8D0D4000000000000C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF
+          FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4000000000000
+          000000000000C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF
+          FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4000000
+          000000C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF
+          FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4000000000000
+          000000000000C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF
+          FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4000000000000C8D0D4
+          C8D0D4000000000000C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF
+          FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4000000000000C8D0D4C8D0D4
+          C8D0D4C8D0D4000000000000C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF
+          FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4
+          C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF
+          FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4
+          C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF
+          FF00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+          FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+          FF00}
+        ShowHint = True
+        Transparent = True
+        OnClick = Image2Click
+      end
+    end
+    object RichEdit1: TRichEdit
+      Left = 1
+      Top = 25
+      Width = 292
+      Height = 186
+      Align = alClient
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clRed
+      Font.Height = -16
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
+      ParentFont = False
+      TabOrder = 1
+    end
+  end
+  object ADOQueryCmd: TADOQuery
+    Connection = DataLink_TradeManage.ADOLink
+    Parameters = <>
+    Left = 968
+    Top = 40
+  end
+  object ADOQueryMain: TADOQuery
+    Connection = DataLink_TradeManage.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 984
+    Top = 40
+  end
+  object ADOQueryTemp: TADOQuery
+    Connection = DataLink_TradeManage.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
+end

打卷检验管理/U_CKProductBCPKCHZList.pas

@@ -0,0 +1,294 @@
+unit U_CKProductBCPKCHZList;
+
+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, MovePanel, cxButtonEdit,
+  cxLookAndFeels, cxLookAndFeelPainters, cxNavigator;
+
+type
+  TfrmCKProductBCPKCHZList = 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;
+    PRTCodeName: TEdit;
+    Label1: TLabel;
+    Label2: TLabel;
+    BegDate: TDateTimePicker;
+    EndDate: TDateTimePicker;
+    CDS_Main: TClientDataSet;
+    Tv1: TcxGridDBTableView;
+    cxGrid2Level1: TcxGridLevel;
+    cxGrid2: TcxGrid;
+    v2Column1: TcxGridDBColumn;
+    v2Column3: TcxGridDBColumn;
+    v2Column5: TcxGridDBColumn;
+    v2Column6: TcxGridDBColumn;
+    v1Column1: TcxGridDBColumn;
+    Label5: TLabel;
+    orderNo: TEdit;
+    Label6: TLabel;
+    SOrddefstr1: TEdit;
+    v1Column7: TcxGridDBColumn;
+    v1Column6: TcxGridDBColumn;
+    v1Column8: TcxGridDBColumn;
+    v1Column9: TcxGridDBColumn;
+    Label8: TLabel;
+    PRTKZ: TEdit;
+    Label9: TLabel;
+    PRTMF: TEdit;
+    Label7: TLabel;
+    CPType: TComboBox;
+    v1Column3: TcxGridDBColumn;
+    MovePanel2: TMovePanel;
+    v1Column2: TcxGridDBColumn;
+    v1Column4: TcxGridDBColumn;
+    Label10: TLabel;
+    Label11: TLabel;
+    Label12: TLabel;
+    YWY: TEdit;
+    OrdPerson1: TEdit;
+    v1Column5: TcxGridDBColumn;
+    v1Column10: TcxGridDBColumn;
+    PRTColor: TComboBox;
+    Panel4: TPanel;
+    Label13: TLabel;
+    Panel10: TPanel;
+    Image2: TImage;
+    RichEdit1: TRichEdit;
+    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 PRTCodeNameChange(Sender: TObject);
+    procedure v1Column5PropertiesButtonClick(Sender: TObject;
+      AButtonIndex: Integer);
+    procedure PRTColorChange(Sender: TObject);
+    procedure Tv1CellClick(Sender: TcxCustomGridTableView;
+      ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
+      AShift: TShiftState; var AHandled: Boolean);
+    procedure Tv1CellDblClick(Sender: TcxCustomGridTableView;
+      ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
+      AShift: TShiftState; var AHandled: Boolean);
+    procedure Tv1MouseUp(Sender: TObject; Button: TMouseButton;
+      Shift: TShiftState; X, Y: Integer);
+    procedure Image2Click(Sender: TObject);
+  private
+       FLeft,FTop:Integer;
+    procedure InitGrid();
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+var
+  frmCKProductBCPKCHZList: TfrmCKProductBCPKCHZList;
+
+implementation
+uses
+  U_DataLink,U_Fun,U_ZDYHelp;
+
+{$R *.dfm}
+
+procedure TfrmCKProductBCPKCHZList.FormDestroy(Sender: TObject);
+begin
+  frmCKProductBCPKCHZList:=nil;
+end;
+
+procedure TfrmCKProductBCPKCHZList.FormClose(Sender: TObject;
+  var Action: TCloseAction);
+begin
+  Action:=caFree;
+end;
+
+procedure TfrmCKProductBCPKCHZList.FormCreate(Sender: TObject);
+begin
+  //cxGrid1.Align:=alClient;
+  BegDate.DateTime:=SGetServerDateTime(ADOQueryTemp);
+  EndDate.DateTime:=SGetServerDateTime(ADOQueryTemp)
+end;
+
+procedure TfrmCKProductBCPKCHZList.InitGrid();
+begin
+  try
+    ADOQueryMain.DisableControls;
+    with ADOQueryMain do
+    begin
+      Filtered:=False;
+      Close;
+      sql.Clear;
+      sql.Add('select YWY=B.OrdPerson2,B.OrdPerson1,C.SOrdDefStr10,C.SubId,A.* ,B.OrdDefStr1,B.OrderNo,C.PRTCodeName,C.PRTColor,C.PRTMF,C.PRTKZ ');
+      sql.Add(',C.SOrddefstr1,C.PRTHX');
+      sql.Add(' from(select sum(KCQty) KCQty,Sum(KCKgQty) KCKgQty,count(*) JQty,AA.MainId,AA.SubId,AA.CPType,KC.KCQtyUnit ');
+      sql.Add(' from CK_BanCP_KC KC inner join CK_BanCP_CR AA on KC.CRID=AA.CRID and AA.CRType=''检验入库''');
+      sql.Add(' where (KC.KCQty>0 or KC.KCKgQty>0) group by AA.MainId,AA.SubId,AA.CPType,KC.KCQtyUnit ) 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');
+     { if Trim(DParameters1)<>'高权限' then
+      begin
+        sql.Add(' where B.Filler='''+Trim(DName)+'''');
+      end else
+      begin
+      end;   }
+      Open;
+    end;
+    SCreateCDS20(ADOQueryMain,CDS_Main);
+    SInitCDSData20(ADOQueryMain,CDS_Main);
+  finally
+    ADOQueryMain.EnableControls;
+  end;
+end;
+
+procedure TfrmCKProductBCPKCHZList.TBRafreshClick(Sender: TObject);
+begin
+  MovePanel2.Visible:=True;
+  MovePanel2.Refresh;
+  InitGrid();
+  MovePanel2.Visible:=False;
+end;
+
+procedure TfrmCKProductBCPKCHZList.ConNoMChange(Sender: TObject);
+begin
+  if ADOQueryMain.Active then
+  begin
+    SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2));
+  end;
+end;
+
+procedure TfrmCKProductBCPKCHZList.TBCloseClick(Sender: TObject);
+begin
+  WriteCxGrid('仓库库存汇总列表',Tv1,'成品仓库');
+  Close;
+end;
+
+procedure TfrmCKProductBCPKCHZList.FormShow(Sender: TObject);
+begin
+
+  ReadCxGrid('仓库库存汇总列表',Tv1,'成品仓库');
+  if Trim(DParameters2)='管理' then
+  begin
+    v1Column5.Options.Focusing:=True;
+  end else
+  begin
+    v1Column5.Options.Focusing:=False;
+  end;
+  //InitGrid();
+end;
+
+procedure TfrmCKProductBCPKCHZList.TBExportClick(Sender: TObject);
+begin
+  if ADOQueryMain.IsEmpty then exit;
+  TcxGridToExcel('库存汇总列表',cxGrid2);
+end;
+
+procedure TfrmCKProductBCPKCHZList.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 TfrmCKProductBCPKCHZList.PRTCodeNameChange(Sender: TObject);
+begin
+  TBFind.Click;
+end;
+
+procedure TfrmCKProductBCPKCHZList.v1Column5PropertiesButtonClick(
+  Sender: TObject; AButtonIndex: Integer);
+begin
+  try
+    frmZDYHelp:=TfrmZDYHelp.Create(Application);
+    with frmZDYHelp do
+    begin
+      flag:='SOrdDefStr10';
+      flagname:='库存存放地点';
+      if ShowModal=1 then
+      begin
+        with CDS_Main do
+        begin
+          Edit;
+          FieldByName('SOrdDefStr10').Value:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString);
+        end;
+        with ADOQueryCmd do
+        begin
+          Close;
+          sql.Clear;
+          sql.Add('Update JYOrder_Sub Set SOrdDefStr10='''+Trim(ClientDataSet1.fieldbyname('ZdyName').AsString)+'''');
+          sql.Add(' where SubId='''+Trim(Self.CDS_Main.fieldbyname('SubId').AsString)+'''');
+          ExecSQL;
+        end;
+      end;
+    end;
+  finally
+    frmZDYHelp.Free;
+  end;
+end;
+
+procedure TfrmCKProductBCPKCHZList.PRTColorChange(Sender: TObject);
+begin
+  TBFind.Click;
+end;
+
+procedure TfrmCKProductBCPKCHZList.Tv1CellClick(
+  Sender: TcxCustomGridTableView;
+  ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
+  AShift: TShiftState; var AHandled: Boolean);
+begin
+  if CDS_Main.IsEmpty=False then
+  begin
+    InitOrderColor(Trim(CDS_Main.fieldbyname('MainId').AsString),PRTColor,ADOQueryTemp);
+    //InitBCGangNo(Trim(CDS_Main.fieldbyname('SubId').AsString),AOrdDefStr1,ADOQueryTemp);
+  end;
+end;
+
+procedure TfrmCKProductBCPKCHZList.Tv1CellDblClick(
+  Sender: TcxCustomGridTableView;
+  ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
+  AShift: TShiftState; var AHandled: Boolean);
+begin
+  Panel4.Left:=FLeft;
+  Panel4.Top:=FTop+110;
+  Panel4.Visible:=True;
+  Panel4.Refresh;
+  Panel10.Caption:=Trim(TV1.Controller.FocusedColumn.Caption);
+  RichEdit1.Text:=CDS_Main.fieldbyname(TV1.Controller.FocusedColumn.DataBinding.FilterFieldName).AsString;
+end;
+
+procedure TfrmCKProductBCPKCHZList.Tv1MouseUp(Sender: TObject;
+  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
+begin
+  FLeft:=X;
+  FTop:=Y;
+end;
+
+procedure TfrmCKProductBCPKCHZList.Image2Click(Sender: TObject);
+begin
+  Panel4.Visible:=False;
+end;
+
+end.

打卷检验管理/U_CKProductBCPKCList.dfm

@@ -0,0 +1,822 @@
+object frmCKProductBCPKCList: TfrmCKProductBCPKCList
+  Left = 210
+  Top = 140
+  Width = 1184
+  Height = 587
+  Caption = #25104#21697#24211#23384#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 = 1168
+    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_TradeManage.ThreeImgList
+    List = True
+    ParentColor = False
+    ParentFont = False
+    ShowCaptions = True
+    TabOrder = 0
+    object TBRafresh: TToolButton
+      Left = 0
+      Top = 0
+      AutoSize = True
+      Caption = #21047#26032
+      ImageIndex = 9
+      OnClick = TBRafreshClick
+    end
+    object TBFind: TToolButton
+      Left = 63
+      Top = 0
+      AutoSize = True
+      Caption = #36807#28388
+      ImageIndex = 59
+      OnClick = TBFindClick
+    end
+    object TBExport: TToolButton
+      Left = 126
+      Top = 0
+      AutoSize = True
+      Caption = #23548#20986
+      ImageIndex = 75
+      OnClick = TBExportClick
+    end
+    object TBZD: TToolButton
+      Left = 189
+      Top = 0
+      AutoSize = True
+      Caption = #36716#21333
+      ImageIndex = 102
+      OnClick = TBZDClick
+    end
+    object ToolButton1: TToolButton
+      Left = 252
+      Top = 0
+      AutoSize = True
+      Caption = #20445#23384
+      ImageIndex = 57
+      Visible = False
+      OnClick = ToolButton1Click
+    end
+    object TBPrint: TToolButton
+      Left = 315
+      Top = 0
+      AutoSize = True
+      Caption = #25171#21360
+      ImageIndex = 12
+      Visible = False
+      OnClick = TBPrintClick
+    end
+    object ComboBox1: TComboBox
+      Left = 378
+      Top = 3
+      Width = 140
+      Height = 24
+      Style = csDropDownList
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -16
+      Font.Name = #23435#20307
+      Font.Style = []
+      ItemHeight = 16
+      ParentFont = False
+      TabOrder = 0
+      Visible = False
+      Items.Strings = (
+        #38144#21806#30721#21333
+        #21333#33394#21253#35013
+        #21333#33394#21253#35013'-'#38271#24230
+        #28151#33394#21253#35013'-10'#33394
+        #28151#33394#21253#35013'-'#37325#37327)
+    end
+    object TBClose: TToolButton
+      Left = 518
+      Top = 0
+      AutoSize = True
+      Caption = #20851#38381
+      ImageIndex = 55
+      OnClick = TBCloseClick
+    end
+  end
+  object Panel1: TPanel
+    Left = 0
+    Top = 33
+    Width = 1168
+    Height = 64
+    Align = alTop
+    BevelInner = bvRaised
+    BevelOuter = bvLowered
+    Color = clSkyBlue
+    TabOrder = 1
+    object Label3: TLabel
+      Left = 213
+      Top = 12
+      Width = 48
+      Height = 12
+      Caption = #20013#25991#21517#31216
+    end
+    object Label1: TLabel
+      Left = 1020
+      Top = 12
+      Width = 48
+      Height = 12
+      Caption = #26597#35810#26102#38388
+      Visible = False
+    end
+    object Label2: TLabel
+      Left = 1048
+      Top = 40
+      Width = 12
+      Height = 12
+      Caption = #33267
+      Visible = False
+    end
+    object Label5: TLabel
+      Left = 45
+      Top = 12
+      Width = 36
+      Height = 12
+      Caption = #35746#21333#21495
+    end
+    object Label6: TLabel
+      Left = 45
+      Top = 36
+      Width = 36
+      Height = 12
+      Caption = #21367#26465#30721
+    end
+    object Label8: TLabel
+      Left = 213
+      Top = 36
+      Width = 48
+      Height = 12
+      Caption = #20811'    '#37325
+    end
+    object Label9: TLabel
+      Left = 402
+      Top = 36
+      Width = 24
+      Height = 12
+      Caption = #38376#24133
+    end
+    object Label7: TLabel
+      Left = 580
+      Top = 36
+      Width = 24
+      Height = 12
+      Caption = #31867#22411
+    end
+    object Label4: TLabel
+      Left = 402
+      Top = 12
+      Width = 24
+      Height = 12
+      Caption = #39068#33394
+    end
+    object Label10: TLabel
+      Left = 984
+      Top = 28
+      Width = 24
+      Height = 12
+      Caption = #32568#21495
+      Visible = False
+    end
+    object Label12: TLabel
+      Left = 580
+      Top = 12
+      Width = 24
+      Height = 12
+      Caption = #21253#21495
+    end
+    object PRTCodeName: TEdit
+      Tag = 2
+      Left = 263
+      Top = 8
+      Width = 100
+      Height = 20
+      TabOrder = 0
+      OnChange = PRTCodeNameChange
+    end
+    object BegDate: TDateTimePicker
+      Left = 1069
+      Top = 9
+      Width = 87
+      Height = 20
+      Date = 40768.458268587970000000
+      Time = 40768.458268587970000000
+      ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
+      TabOrder = 1
+      Visible = False
+    end
+    object EndDate: TDateTimePicker
+      Left = 1069
+      Top = 33
+      Width = 87
+      Height = 20
+      Date = 40768.458268587970000000
+      Time = 40768.458268587970000000
+      ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
+      TabOrder = 2
+      Visible = False
+    end
+    object orderNo: TEdit
+      Tag = 2
+      Left = 84
+      Top = 8
+      Width = 100
+      Height = 20
+      TabOrder = 3
+      OnChange = PRTCodeNameChange
+    end
+    object MJID: TEdit
+      Tag = 2
+      Left = 84
+      Top = 33
+      Width = 100
+      Height = 20
+      TabOrder = 4
+      OnChange = PRTCodeNameChange
+    end
+    object PRTKZ: TEdit
+      Tag = 1
+      Left = 263
+      Top = 33
+      Width = 100
+      Height = 20
+      TabOrder = 5
+      OnChange = PRTCodeNameChange
+    end
+    object PRTMF: TEdit
+      Tag = 1
+      Left = 428
+      Top = 32
+      Width = 100
+      Height = 20
+      TabOrder = 6
+      OnChange = PRTCodeNameChange
+    end
+    object CPType: TComboBox
+      Tag = 2
+      Left = 606
+      Top = 32
+      Width = 100
+      Height = 20
+      Style = csDropDownList
+      ItemHeight = 12
+      TabOrder = 7
+      OnChange = TBFindClick
+      Items.Strings = (
+        #27491#21697
+        #27425#21697
+        #22810#25340
+        ''
+        ''
+        '')
+    end
+    object PRTColor: TComboBox
+      Tag = 1
+      Left = 428
+      Top = 8
+      Width = 100
+      Height = 20
+      ItemHeight = 12
+      TabOrder = 8
+      OnChange = PRTColorChange
+    end
+    object AOrdDefStr1: TComboBox
+      Tag = 1
+      Left = 1011
+      Top = 24
+      Width = 100
+      Height = 20
+      ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
+      ItemHeight = 12
+      TabOrder = 9
+      Visible = False
+      OnChange = AOrdDefStr1Change
+    end
+    object baoNo: TEdit
+      Tag = 1
+      Left = 606
+      Top = 8
+      Width = 100
+      Height = 20
+      TabOrder = 10
+      OnChange = PRTCodeNameChange
+    end
+    object CheckBox1: TCheckBox
+      Left = 764
+      Top = 36
+      Width = 97
+      Height = 17
+      Caption = #20840#36873
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clBlue
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+      TabOrder = 11
+      OnClick = CheckBox1Click
+    end
+  end
+  object cxGrid2: TcxGrid
+    Left = 0
+    Top = 97
+    Width = 1168
+    Height = 452
+    Align = alClient
+    PopupMenu = PopupMenu1
+    TabOrder = 2
+    object Tv1: TcxGridDBTableView
+      OnMouseUp = Tv1MouseUp
+      NavigatorButtons.ConfirmDelete = False
+      OnCellClick = Tv1CellClick
+      OnCellDblClick = Tv1CellDblClick
+      DataController.DataSource = DataSource1
+      DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
+      DataController.Summary.DefaultGroupSummaryItems = <>
+      DataController.Summary.FooterSummaryItems = <
+        item
+          Kind = skCount
+          Column = v1Column6
+        end
+        item
+          Kind = skSum
+          Column = v2Column5
+        end
+        item
+          Kind = skSum
+          Column = v2Column6
+        end>
+      DataController.Summary.SummaryGroups = <>
+      OptionsCustomize.ColumnFiltering = False
+      OptionsData.Deleting = False
+      OptionsView.Footer = True
+      OptionsView.GroupByBox = False
+      OptionsView.Indicator = True
+      Styles.Inactive = DataLink_TradeManage.SHuangSe
+      Styles.IncSearch = DataLink_TradeManage.SHuangSe
+      Styles.Selection = DataLink_TradeManage.SHuangSe
+      Styles.Header = DataLink_TradeManage.Default
+      object v1Column12: TcxGridDBColumn
+        Caption = #36873#25321
+        DataBinding.FieldName = 'SSel'
+        PropertiesClassName = 'TcxCheckBoxProperties'
+        Properties.ImmediatePost = True
+        Properties.NullStyle = nssUnchecked
+        HeaderAlignmentHorz = taCenter
+        Width = 53
+      end
+      object v1Column1: TcxGridDBColumn
+        Caption = #35746#21333#21495
+        DataBinding.FieldName = 'orderNo'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 74
+      end
+      object v2Column1: TcxGridDBColumn
+        Caption = #20013#25991#21517#31216
+        DataBinding.FieldName = 'PRTCodeName'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 92
+      end
+      object v1Column10: TcxGridDBColumn
+        Caption = #33394#21495
+        DataBinding.FieldName = 'SOrddefstr1'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 59
+      end
+      object v1Column13: TcxGridDBColumn
+        Caption = #33457#22411#33457#21495
+        DataBinding.FieldName = 'PRTHX'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 58
+      end
+      object v2Column3: TcxGridDBColumn
+        Caption = #39068#33394
+        DataBinding.FieldName = 'PRTColor'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 77
+      end
+      object v1Column8: TcxGridDBColumn
+        Caption = #38376#24133
+        DataBinding.FieldName = 'PRTMF'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 70
+      end
+      object v1Column9: TcxGridDBColumn
+        Caption = #20811#37325
+        DataBinding.FieldName = 'PRTKZ'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 59
+      end
+      object v1Column6: TcxGridDBColumn
+        Caption = #21367#26465#30721
+        DataBinding.FieldName = 'MJID'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 92
+      end
+      object v1Column14: TcxGridDBColumn
+        Caption = #21253#21495
+        DataBinding.FieldName = 'baoNO'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Styles.Content = FontBlue
+        Styles.Footer = FontBlue
+        Styles.Header = FontBlue
+        Width = 83
+      end
+      object v1Column4: TcxGridDBColumn
+        Caption = #21367#21495
+        DataBinding.FieldName = 'MJXH'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 59
+      end
+      object v1Column3: TcxGridDBColumn
+        Caption = #31867#22411
+        DataBinding.FieldName = 'CPType'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 63
+      end
+      object v2Column5: TcxGridDBColumn
+        Caption = #24211#23384#20844#26020#25968
+        DataBinding.FieldName = 'KCKGQty'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 83
+      end
+      object v2Column6: TcxGridDBColumn
+        Caption = #24211#23384#25968#37327
+        DataBinding.FieldName = 'KCQty'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 85
+      end
+      object v1Column7: TcxGridDBColumn
+        Caption = #25968#37327#21333#20301
+        DataBinding.FieldName = 'QtyUnit'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 83
+      end
+      object v1Column5: TcxGridDBColumn
+        Caption = #30133#28857#24773#20917
+        DataBinding.FieldName = 'CDQK'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 96
+      end
+      object v1Column11: TcxGridDBColumn
+        Caption = #20837#24211#26102#38388
+        DataBinding.FieldName = 'CRTime'
+        PropertiesClassName = 'TcxDateEditProperties'
+        Properties.SaveTime = False
+        Properties.ShowTime = False
+        Options.Editing = False
+        Width = 61
+      end
+    end
+    object cxGrid2Level1: TcxGridLevel
+      GridView = Tv1
+    end
+  end
+  object Panel4: TPanel
+    Left = 62
+    Top = 139
+    Width = 294
+    Height = 213
+    TabOrder = 3
+    Visible = False
+    object Label11: TLabel
+      Left = 48
+      Top = 88
+      Width = 6
+      Height = 12
+    end
+    object Panel10: TPanel
+      Left = 1
+      Top = 1
+      Width = 292
+      Height = 23
+      Align = alTop
+      Alignment = taLeftJustify
+      BevelOuter = bvNone
+      Caption = #20107#20214#35828#26126
+      Color = clSkyBlue
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -16
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+      TabOrder = 0
+      OnMouseMove = Panel10MouseMove
+      object Image2: TImage
+        Left = 269
+        Top = 3
+        Width = 22
+        Height = 16
+        ParentShowHint = False
+        Picture.Data = {
+          07544269746D617076040000424D760400000000000036000000280000001500
+          0000110000000100180000000000400400000000000000000000000000000000
+          0000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+          FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+          FF00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+          FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+          FF00FFFFFFFFFFFFF0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6
+          F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6FFFFFFFFFF
+          FF00FFFFFFFFFFFF404040404040404040404040404040404040404040404040
+          404040404040404040404040404040404040404040404040F0CAA6FFFFFFFFFF
+          FF00FFFFFFFFFFFFFFFFFF808080808080808080808080808080808080808080
+          808080808080808080808080808080808080808080404040F0CAA6FFFFFFFFFF
+          FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4
+          C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF
+          FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4
+          C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF
+          FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4000000000000C8D0D4C8D0D4
+          C8D0D4C8D0D4000000000000C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF
+          FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4000000000000C8D0D4
+          C8D0D4000000000000C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF
+          FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4000000000000
+          000000000000C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF
+          FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4000000
+          000000C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF
+          FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4000000000000
+          000000000000C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF
+          FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4000000000000C8D0D4
+          C8D0D4000000000000C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF
+          FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4000000000000C8D0D4C8D0D4
+          C8D0D4C8D0D4000000000000C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF
+          FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4
+          C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF
+          FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4
+          C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF
+          FF00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+          FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+          FF00}
+        ShowHint = True
+        Transparent = True
+        OnClick = Image2Click
+      end
+    end
+    object RichEdit1: TRichEdit
+      Left = 1
+      Top = 24
+      Width = 292
+      Height = 188
+      Align = alClient
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clRed
+      Font.Height = -16
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
+      ParentFont = False
+      TabOrder = 1
+    end
+  end
+  object MovePanel2: TMovePanel
+    Left = 408
+    Top = 192
+    Width = 289
+    Height = 49
+    BevelInner = bvLowered
+    Caption = #27491#22312#25805#20316#25968#25454#65292#35831#31245#21518#12290#12290#12290
+    Color = clSkyBlue
+    Font.Charset = GB2312_CHARSET
+    Font.Color = clRed
+    Font.Height = -14
+    Font.Name = #23435#20307
+    Font.Style = [fsBold]
+    ParentFont = False
+    TabOrder = 4
+    Visible = False
+  end
+  object ADOQueryCmd: TADOQuery
+    Connection = DataLink_TradeManage.ADOLink
+    Parameters = <>
+    Left = 928
+    Top = 48
+  end
+  object ADOQueryMain: TADOQuery
+    Connection = DataLink_TradeManage.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 984
+    Top = 40
+  end
+  object ADOQueryTemp: TADOQuery
+    Connection = DataLink_TradeManage.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 856
+    Top = 48
+  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 = 608
+    Top = 160
+  end
+  object PopupMenu1: TPopupMenu
+    Left = 392
+    Top = 152
+    object N1: TMenuItem
+      Caption = #20840#36873
+      OnClick = N1Click
+    end
+    object N2: TMenuItem
+      Caption = #20840#24323
+      OnClick = N2Click
+    end
+  end
+  object ThreeColorBase: TcxStyleRepository
+    Left = 539
+    Top = 316
+    object SHuangSe: TcxStyle
+      AssignedValues = [svColor, svFont, svTextColor]
+      Color = 4707838
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = []
+      TextColor = clBtnText
+    end
+    object SkyBlue: TcxStyle
+      AssignedValues = [svColor, svFont]
+      Color = clSkyBlue
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = []
+    end
+    object Default: TcxStyle
+      AssignedValues = [svFont]
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+    end
+    object QHuangSe: TcxStyle
+      AssignedValues = [svColor, svFont]
+      Color = 8454143
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = []
+    end
+    object Red: TcxStyle
+      AssignedValues = [svColor, svFont]
+      Color = clRed
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = []
+    end
+    object FontBlue: TcxStyle
+      AssignedValues = [svFont, svTextColor]
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clBlue
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      TextColor = clBlue
+    end
+    object TextSHuangSe: TcxStyle
+      AssignedValues = [svFont, svTextColor]
+      Font.Charset = ANSI_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      TextColor = clBlack
+    end
+    object FonePurple: TcxStyle
+      AssignedValues = [svFont, svTextColor]
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindow
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      TextColor = clBlack
+    end
+    object FoneClMaroon: TcxStyle
+      AssignedValues = [svFont, svTextColor]
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      TextColor = clMaroon
+    end
+    object FoneRed: TcxStyle
+      AssignedValues = [svFont, svTextColor]
+      Font.Charset = ANSI_CHARSET
+      Font.Color = clRed
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      TextColor = clRed
+    end
+    object RowColor: TcxStyle
+      AssignedValues = [svColor]
+      Color = 16311512
+    end
+    object handBlack: TcxStyle
+      AssignedValues = [svFont]
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+    end
+    object cxBlue: TcxStyle
+      AssignedValues = [svColor, svFont]
+      Color = 16711731
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = []
+    end
+  end
+  object CDS_HZ: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 568
+    Top = 224
+  end
+  object CDS_PRT: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 512
+    Top = 224
+  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
+    CompressLevel = rmzcFastest
+    CompressThread = False
+    LaterBuildEvents = True
+    OnlyOwnerDataSet = False
+    Left = 368
+    Top = 168
+    ReportData = {}
+  end
+end

打卷检验管理/U_CKProductBCPKCList.pas

@@ -0,0 +1,717 @@
+unit U_CKProductBCPKCList;
+
+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, MovePanel, cxCheckBox,
+  Menus, cxCalendar, RM_System, RM_Common, RM_Class, RM_GridReport;
+
+type
+  TfrmCKProductBCPKCList = 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;
+    PRTCodeName: TEdit;
+    Label1: TLabel;
+    Label2: TLabel;
+    BegDate: TDateTimePicker;
+    EndDate: TDateTimePicker;
+    CDS_Main: TClientDataSet;
+    Tv1: TcxGridDBTableView;
+    cxGrid2Level1: TcxGridLevel;
+    cxGrid2: TcxGrid;
+    v2Column1: TcxGridDBColumn;
+    v2Column3: TcxGridDBColumn;
+    v2Column5: TcxGridDBColumn;
+    v2Column6: TcxGridDBColumn;
+    v1Column1: TcxGridDBColumn;
+    Label5: TLabel;
+    orderNo: TEdit;
+    Label6: TLabel;
+    MJID: TEdit;
+    v1Column7: TcxGridDBColumn;
+    v1Column6: TcxGridDBColumn;
+    v1Column8: TcxGridDBColumn;
+    v1Column9: TcxGridDBColumn;
+    Label8: TLabel;
+    PRTKZ: TEdit;
+    Label9: TLabel;
+    PRTMF: TEdit;
+    Label7: TLabel;
+    CPType: TComboBox;
+    v1Column3: TcxGridDBColumn;
+    v1Column4: TcxGridDBColumn;
+    v1Column5: TcxGridDBColumn;
+    Panel4: TPanel;
+    Label11: TLabel;
+    Panel10: TPanel;
+    Image2: TImage;
+    RichEdit1: TRichEdit;
+    MovePanel2: TMovePanel;
+    v1Column11: TcxGridDBColumn;
+    TBZD: TToolButton;
+    v1Column12: TcxGridDBColumn;
+    PopupMenu1: TPopupMenu;
+    N1: TMenuItem;
+    N2: TMenuItem;
+    v1Column10: TcxGridDBColumn;
+    v1Column13: TcxGridDBColumn;
+    Label4: TLabel;
+    Label10: TLabel;
+    PRTColor: TComboBox;
+    AOrdDefStr1: TComboBox;
+    v1Column14: TcxGridDBColumn;
+    ThreeColorBase: TcxStyleRepository;
+    SHuangSe: TcxStyle;
+    SkyBlue: TcxStyle;
+    Default: TcxStyle;
+    QHuangSe: TcxStyle;
+    Red: TcxStyle;
+    FontBlue: TcxStyle;
+    TextSHuangSe: TcxStyle;
+    FonePurple: TcxStyle;
+    FoneClMaroon: TcxStyle;
+    FoneRed: TcxStyle;
+    RowColor: TcxStyle;
+    handBlack: TcxStyle;
+    cxBlue: TcxStyle;
+    ToolButton1: TToolButton;
+    Label12: TLabel;
+    baoNo: TEdit;
+    CheckBox1: TCheckBox;
+    ComboBox1: TComboBox;
+    CDS_HZ: TClientDataSet;
+    CDS_PRT: TClientDataSet;
+    RM1: TRMGridReport;
+    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 PRTCodeNameChange(Sender: TObject);
+    procedure Panel10MouseMove(Sender: TObject; Shift: TShiftState; X,
+      Y: Integer);
+    procedure Image2Click(Sender: TObject);
+    procedure Tv1MouseUp(Sender: TObject; Button: TMouseButton;
+      Shift: TShiftState; X, Y: Integer);
+    procedure Tv1CellDblClick(Sender: TcxCustomGridTableView;
+      ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
+      AShift: TShiftState; var AHandled: Boolean);
+    procedure TBZDClick(Sender: TObject);
+    procedure N1Click(Sender: TObject);
+    procedure N2Click(Sender: TObject);
+    procedure Tv1CellClick(Sender: TcxCustomGridTableView;
+      ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
+      AShift: TShiftState; var AHandled: Boolean);
+    procedure PRTColorChange(Sender: TObject);
+    procedure AOrdDefStr1Change(Sender: TObject);
+    procedure ToolButton1Click(Sender: TObject);
+    procedure CheckBox1Click(Sender: TObject);
+    procedure TBPrintClick(Sender: TObject);
+  private
+    FLeft,FTop:Integer;
+    procedure InitGrid();
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+var
+  frmCKProductBCPKCList: TfrmCKProductBCPKCList;
+
+implementation
+uses
+  U_DataLink,U_Fun,U_ProductOrderListSel;
+
+{$R *.dfm}
+
+procedure TfrmCKProductBCPKCList.FormDestroy(Sender: TObject);
+begin
+  frmCKProductBCPKCList:=nil;
+end;
+
+procedure TfrmCKProductBCPKCList.FormClose(Sender: TObject;
+  var Action: TCloseAction);
+begin
+  Action:=caFree;
+end;
+
+procedure TfrmCKProductBCPKCList.FormCreate(Sender: TObject);
+begin
+  BegDate.DateTime:=SGetServerDateTime(ADOQueryTemp);
+  EndDate.DateTime:=SGetServerDateTime(ADOQueryTemp)
+end;
+
+procedure TfrmCKProductBCPKCList.InitGrid();
+begin
+  try
+    ADOQueryMain.DisableControls;
+    with ADOQueryMain do
+    begin
+      Filtered:=False;
+      Close;
+      sql.Clear;
+      SQL.Add('exec P_View_CPKCMX :WSQl');
+      if Trim(DParameters2)<>'管理' then
+      begin
+        Parameters.ParamByName('WSQl').Value:=' and B.Filler='''+Trim(DName)+'''';
+      end else
+      begin
+        Parameters.ParamByName('WSQl').Value:='';
+      end;
+      Open;
+    end;
+    SCreateCDS20(ADOQueryMain,CDS_Main);
+    SInitCDSData20(ADOQueryMain,CDS_Main);
+  finally
+    ADOQueryMain.EnableControls;
+  end;
+end;
+
+procedure TfrmCKProductBCPKCList.TBRafreshClick(Sender: TObject);
+begin
+ // BegDate.SetFocus;
+  MovePanel2.Visible:=True;
+  MovePanel2.Refresh;
+  InitGrid();
+  MovePanel2.Visible:=False;
+end;
+
+procedure TfrmCKProductBCPKCList.ConNoMChange(Sender: TObject);
+begin
+  if ADOQueryMain.Active then
+  begin
+    SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2));
+  end;
+end;
+
+procedure TfrmCKProductBCPKCList.TBCloseClick(Sender: TObject);
+begin
+  WriteCxGrid('仓库库存列表',Tv1,'成品仓库');
+  Close;
+end;
+
+procedure TfrmCKProductBCPKCList.FormShow(Sender: TObject);
+begin
+  ReadCxGrid('仓库库存列表',Tv1,'成品仓库');
+  if Trim(DParameters2)='管理' then
+  begin
+  //  TBZD.Visible:=True;
+    ToolButton1.Visible:=true;
+     TBZD.Visible:=False;
+    v1Column12.Visible:=true;
+  //  v1Column14.Options.Editing:=true;
+  end else
+  begin
+    TBZD.Visible:=False;
+    ToolButton1.Visible:=false;
+     v1Column12.Visible:=true;
+    v1Column14.Options.Editing:=False;
+  end;
+  //InitGrid();
+end;
+
+procedure TfrmCKProductBCPKCList.TBExportClick(Sender: TObject);
+begin
+  if ADOQueryMain.IsEmpty then exit;
+  TcxGridToExcel('库存列表',cxGrid2);
+end;
+
+procedure TfrmCKProductBCPKCList.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 TfrmCKProductBCPKCList.PRTCodeNameChange(Sender: TObject);
+begin
+  TBFind.Click;
+end;
+
+procedure TfrmCKProductBCPKCList.Panel10MouseMove(Sender: TObject;
+  Shift: TShiftState; X, Y: Integer);
+begin
+  ReleaseCapture;
+  TWinControl(Panel4).Perform(WM_SYSCOMMAND,$F012,0);
+end;
+
+procedure TfrmCKProductBCPKCList.Image2Click(Sender: TObject);
+begin
+  Panel4.Visible:=False;
+end;
+
+procedure TfrmCKProductBCPKCList.Tv1MouseUp(Sender: TObject;
+  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
+begin
+  FLeft:=X;
+  FTop:=Y;
+end;
+
+procedure TfrmCKProductBCPKCList.Tv1CellDblClick(
+  Sender: TcxCustomGridTableView;
+  ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
+  AShift: TShiftState; var AHandled: Boolean);
+begin
+  {if Trim(TV1.Controller.FocusedColumn.DataBinding.FilterFieldName)<>'CDQK' then Exit;
+  with ADOQueryTemp do
+  begin
+    Close;
+    sql.Clear;
+    sql.Add('select CDQK=dbo.F_Get_Order_SubStr(:MJID,''MJCDHZSL'')');
+    Parameters.ParamByName('MJID').Value:=Trim(CDS_Main.fieldbyname('MJID').AsString);
+    Open;
+  end;
+  with CDS_Main do
+  begin
+    Edit;
+    FieldByName('CDQK').Value:=Trim(ADOQueryTemp.fieldbyname('CDQK').AsString);
+    Post;
+  end; }
+  Panel4.Left:=FLeft;
+  Panel4.Top:=FTop+110;
+  Panel4.Visible:=True;
+  Panel4.Refresh;
+  Panel10.Caption:=Trim(TV1.Controller.FocusedColumn.Caption);
+
+  RichEdit1.Text:=CDS_Main.fieldbyname(TV1.Controller.FocusedColumn.DataBinding.FilterFieldName).AsString;
+end;
+
+procedure TfrmCKProductBCPKCList.TBZDClick(Sender: TObject);
+var
+  FMainid,FSubId,FOrderNo,FColor,FSH,FHX,FCodeName,FMPRTMF,FMPRTKZ:String;
+begin
+  if CDS_Main.Locate('SSel',True,[])=False then
+  begin
+    Application.MessageBox('没有选择数据!','提示',0);
+    Exit;
+  end;
+  FMainid:='';
+  try
+    frmProductOrderListSel:=TfrmProductOrderListSel.Create(Application);
+    with frmProductOrderListSel do
+    begin
+      FFInt:=1;
+      if ShowModal=1 then
+      begin
+        FMainid:=frmProductOrderListSel.Order_Main.fieldbyname('Mainid').AsString;
+        FSubId:=frmProductOrderListSel.Order_Main.fieldbyname('SubId').AsString;
+        FOrderNo:=frmProductOrderListSel.Order_Main.fieldbyname('OrderNo').Value;
+        FCodeName:=frmProductOrderListSel.Order_Main.fieldbyname('PRTCodeName').Value;
+        FColor:=frmProductOrderListSel.Order_Main.fieldbyname('PRTColor').Value;
+        if Trim(frmProductOrderListSel.Order_Main.fieldbyname('SOrddefstr1').AsString)<>'' then
+          FSH:=frmProductOrderListSel.Order_Main.fieldbyname('SOrddefstr1').AsString;
+        if Trim(frmProductOrderListSel.Order_Main.fieldbyname('PRTHX').AsString)<>'' then
+          FHX:=frmProductOrderListSel.Order_Main.fieldbyname('PRTHX').Value;
+        FMPRTMF:=frmProductOrderListSel.Order_Main.fieldbyname('PRTMF').AsString;
+        FMPRTKZ:=frmProductOrderListSel.Order_Main.fieldbyname('PRTKZ').AsString;
+      end;
+    end;
+  finally
+    frmProductOrderListSel.Free;
+  end;
+  if Trim(FMainid)<>'' then
+  begin
+    if Application.MessageBox('确定要执行此操作吗？','提示',32+4)<>IDYES then Exit;
+    MovePanel2.Visible:=True;
+    MovePanel2.Refresh;
+    try
+      Self.ADOQueryCmd.Connection.BeginTrans;
+      Self.CDS_Main.DisableControls;
+      with Self.CDS_Main do
+      begin
+        while not Eof do
+        begin
+          if Self.CDS_Main.FieldByName('SSEl').AsBoolean=True then
+          begin
+            with Self.ADOQueryCmd do
+            begin
+              Close;
+              sql.Clear;
+              sql.Add('UPdate CK_BanCP_CR Set MainId='''+Trim(FMainid)+'''');
+              sql.Add(',SubId='''+Trim(FSubId)+'''');
+              sql.Add(',ZDPerson='''+Trim(DName)+''',ZDTime=getdate() ');
+              sql.Add(' where CRID='+self.CDS_Main.fieldbyname('CRID').AsString);
+              SQL.Add(' and CRType=''检验入库'' ');
+              sql.Add('UPdate WFB_MJJY Set MainId='''+Trim(FMainid)+'''');
+              sql.Add(',SubId='''+Trim(FSubId)+'''');
+              //sql.Add(',ZDPerson='''+Trim(DName)+''',ZDTime=getdate() ');
+              sql.Add(' where MJID='+self.CDS_Main.fieldbyname('MJID').AsString);
+              ExecSQL;
+            end;
+            Edit;
+            FieldByName('OrderNo').Value:=FOrderNo;
+            FieldByName('PRTCodeName').Value:=FCodeName;
+            FieldByName('PRTColor').Value:=FColor;
+            FieldByName('SOrddefstr1').Value:=FSH;
+            FieldByName('PRTHX').Value:=FHX;
+            FieldByName('PRTMF').Value:=FMPRTMF;
+            FieldByName('PRTKZ').Value:=FMPRTKZ;
+            Post;
+          end;
+          Next;
+        end;
+      end;
+      Self.CDS_Main.EnableControls;
+      Self.ADOQueryCmd.Connection.CommitTrans;
+      MovePanel2.Visible:=False;
+    except
+      Self.ADOQueryCmd.Connection.RollbackTrans;
+      MovePanel2.Visible:=False;
+      Application.MessageBox('转单失败!','提示',0) ;
+    end;
+  end;
+end;
+
+procedure TfrmCKProductBCPKCList.N1Click(Sender: TObject);
+begin
+  SelOKNo(CDS_Main,True);
+end;
+
+procedure TfrmCKProductBCPKCList.N2Click(Sender: TObject);
+begin
+  SelOKNo(CDS_Main,False);
+end;
+
+procedure TfrmCKProductBCPKCList.Tv1CellClick(
+  Sender: TcxCustomGridTableView;
+  ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
+  AShift: TShiftState; var AHandled: Boolean);
+begin
+  if CDS_Main.IsEmpty=False then
+  begin
+    InitOrderColor(Trim(CDS_Main.fieldbyname('MainId').AsString),PRTColor,ADOQueryTemp);
+    InitBCGangNo(Trim(CDS_Main.fieldbyname('SubId').AsString),AOrdDefStr1,ADOQueryTemp);
+  end;
+end;
+
+procedure TfrmCKProductBCPKCList.PRTColorChange(Sender: TObject);
+begin
+  TBFind.Click;
+  if CDS_Main.IsEmpty=False then
+  begin
+    //InitOrderColor(Trim(CDS_Main.fieldbyname('MainId').AsString),PRTColor,ADOQueryTemp);
+    InitBCGangNo(Trim(CDS_Main.fieldbyname('SubId').AsString),AOrdDefStr1,ADOQueryTemp);
+  end;
+end;
+
+procedure TfrmCKProductBCPKCList.AOrdDefStr1Change(Sender: TObject);
+begin
+  TBFind.Click;
+end;
+
+procedure TfrmCKProductBCPKCList.ToolButton1Click(Sender: TObject);
+begin
+  IF CDS_main.IsEmpty then exit;
+  orderNo.SetFocus;
+  if CDS_Main.Locate('SSel',True,[])=False then
+  begin
+    Application.MessageBox('没有选择数据!','提示',0);
+    Exit;
+  end;
+
+  ADOQueryCmd.Connection.BeginTrans;
+  try
+    with  CDS_Main do
+    begin
+      DisableControls;
+      first;
+      while not eof do
+      begin
+        IF fieldbyname('ssel').AsBoolean then
+        begin
+          with ADOQueryCmd do
+          begin
+            close;
+            sql.Clear;
+            sql.Add('update CK_BanCP_CR ');
+            sql.Add('SET baoNO='+quotedstr(CDS_Main.fieldbyname('baoNO').AsString));
+            sql.Add('where BCID='+quotedstr(CDS_Main.fieldbyname('BCID').AsString));
+            sql.Add('and MJID='+quotedstr(CDS_Main.fieldbyname('MJID').AsString));
+            execsql;
+          end;
+        end;
+        next;
+      end;
+      first;
+      EnableControls;
+    end;
+    ADOQueryCmd.Connection.CommitTrans;
+    application.MessageBox('数据保存成功！','提示信息');
+    exit;
+  except
+    ADOQueryCmd.Connection.RollbackTrans;
+    application.MessageBox('数据保存失败！','提示信息',MB_ICONERROR);
+    exit;
+  end;
+end;
+
+procedure TfrmCKProductBCPKCList.CheckBox1Click(Sender: TObject);
+begin
+    with  CDS_Main do
+    begin
+      DisableControls;
+      first;
+      while not eof do
+      begin
+        edit;
+        fieldbyname('ssel').Value:=checkbox1.Checked;
+        post;
+        next;
+      end;
+      first;
+      EnableControls;
+    end;
+end;
+
+procedure TfrmCKProductBCPKCList.TBPrintClick(Sender: TObject);
+var
+  fPrintFile,fPrintFile10,FMainID:String;
+begin
+  if CDS_Main.IsEmpty then Exit;
+  if trim(ComboBox1.Text)='' then exit;
+  if CDS_Main.Locate('SSel',True,[])=False then
+  begin
+    Application.MessageBox('没有选择数据','提示',0);
+    Exit;
+  end;
+  fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\'+trim(ComboBox1.Text)+'.rmf' ;
+
+  with ADOQueryCmd do
+  begin
+    Close;
+    sql.Clear;
+    sql.Add('delete TBSubID where DName='''+Trim(DCode)+'''');
+    ExecSQL;
+  end;
+  with ADOQueryCmd do
+  begin
+    Close;
+    sql.Clear;
+    sql.Add('SELECT * FROM TBSubID where 1=2 ');
+    open;
+  end;
+  FMainID:='';
+  CDS_Main.DisableControls;
+  try
+    ADOQueryCmd.Connection.BeginTrans;
+    with CDS_Main do
+    begin
+    First;
+    while not Eof do
+    begin
+      If Fieldbyname('Ssel').AsBoolean then
+      begin
+        IF FMainID='' then
+        begin
+          FMainID:=Trim(CDS_Main.fieldbyname('mainID').AsString);
+        end
+        else
+        begin
+          IF Trim(CDS_Main.fieldbyname('mainID').AsString)<>FMainID then
+          begin
+            application.MessageBox('选择的不是同一个指示单，不能一起打印！','提示信息',0);
+            ADOQueryCmd.Connection.RollbackTrans;
+            EnableControls;
+            exit;
+          end;
+        end;
+          ADOQueryCmd.append;
+          ADOQueryCmd.fieldbyname('SubId').Value:=Trim(CDS_Main.fieldbyname('MJID').AsString);
+          ADOQueryCmd.fieldbyname('Dname').Value:=Trim(DCode);
+          ADOQueryCmd.post;
+      end;
+      Next;
+    end;
+    end;
+    ADOQueryCmd.Connection.CommitTrans;
+  except
+    ADOQueryCmd.Connection.RollbackTrans;
+  end;
+  CDS_Main.EnableControls;
+
+    IF (trim(ComboBox1.Text)='销售码单') then
+  begin
+    with ADOQueryTemp do
+    begin
+      Close;
+      sql.Clear;
+      sql.add('exec P_Print_CKMD ');
+      sql.add('@mainID='+quotedstr(Trim('')));
+      sql.add(',@DName='+quotedstr(Trim(DCode)));
+//      sql.add(',@flag=''0'' ');
+//      sql.add(',@CNum=''10'' ');
+      Open;
+    end;
+    SCreateCDS20(ADOQueryTemp,CDS_HZ);
+    SInitCDSData20(ADOQueryTemp,CDS_HZ);
+
+    with ADOQueryTemp do
+    begin
+      Close;
+      sql.Clear;
+      sql.add('exec P_Do_PrintMd_HZ ');
+      sql.add('@mainID='+quotedstr(Trim('')));
+      sql.add(',@DName='+quotedstr(Trim(DCode)));
+      sql.add(',@flag=''2'' ');
+      Open;
+    end;
+    SCreateCDS20(ADOQueryTemp,CDS_PRT);
+    SInitCDSData20(ADOQueryTemp,CDS_PRT);
+  end;
+
+  IF (trim(ComboBox1.Text)='单色包装') OR (trim(ComboBox1.Text)='单色包装-长度') OR (trim(ComboBox1.Text)='裸装') then
+  begin
+    with ADOQueryTemp do
+    begin
+      Close;
+      sql.Clear;
+      sql.add('exec P_Do_PrintMd20 ');
+      sql.add('@mainID='+quotedstr(Trim('')));
+      sql.add(',@DName='+quotedstr(Trim(DCode)));
+      sql.add(',@flag=''0'' ');
+      sql.add(',@CNum=''10'' ');
+      Open;
+    end;
+    SCreateCDS20(ADOQueryTemp,CDS_HZ);
+    SInitCDSData20(ADOQueryTemp,CDS_HZ);
+
+    with ADOQueryTemp do
+    begin
+      Close;
+      sql.Clear;
+      sql.add('exec P_Do_PrintMd_HZ ');
+      sql.add('@mainID='+quotedstr(Trim('')));
+      sql.add(',@DName='+quotedstr(Trim(DCode)));
+      sql.add(',@flag=''0'' ');
+      Open;
+    end;
+    SCreateCDS20(ADOQueryTemp,CDS_PRT);
+    SInitCDSData20(ADOQueryTemp,CDS_PRT);
+  end;
+
+//  IF (trim(ComboBox1.Text)='裸装') then
+//  begin
+//    with ADOQueryTemp do
+//    begin
+//      Close;
+//      sql.Clear;
+//      sql.add('select A.OrderNo,B.* from WFB_MJJY B left join JYOrder_Main A on A.MainId=B.MainId ');
+//      sql.add('where A.OrderNo ='+Trim(CDS_Main.fieldbyname('orderNo').AsString));
+//      sql.add('order by b.MJXH');
+//      Open;
+//    end;
+//    SCreateCDS20(ADOQueryTemp,CDS_HZ);
+//    SInitCDSData20(ADOQueryTemp,CDS_HZ);
+//
+//    with ADOQueryTemp do
+//    begin
+//      Close;
+//      sql.Clear;
+//      sql.add('exec P_Do_PrintMd_HZ ');
+//      sql.add('@mainID='+quotedstr(Trim('')));
+//      sql.add(',@DName='+quotedstr(Trim(DCode)));
+//      sql.add(',@flag=''0'' ');
+//      Open;
+//    end;
+//    SCreateCDS20(ADOQueryTemp,CDS_PRT);
+//    SInitCDSData20(ADOQueryTemp,CDS_PRT);
+//  end;
+
+  IF trim(ComboBox1.Text)='混色包装-10色' then
+  begin
+    with ADOQueryTemp do
+    begin
+      Close;
+      sql.Clear;
+      sql.add('exec P_Do_PrintMd30 ');
+      sql.add('@mainID='+quotedstr(Trim('')));
+      sql.add(',@DName='+quotedstr(Trim(DCode)));
+      sql.add(',@flag=''0'' ');
+      sql.add(',@CNum=''10'' ');
+      Open;
+    end;
+    SCreateCDS20(ADOQueryTemp,CDS_HZ);
+    SInitCDSData20(ADOQueryTemp,CDS_HZ);
+
+    with ADOQueryTemp do
+    begin
+      Close;
+      sql.Clear;
+      sql.add('exec P_Do_PrintMd_HZ ');
+      sql.add('@mainID='+quotedstr(Trim('')));
+      sql.add(',@DName='+quotedstr(Trim(DCode)));
+      sql.add(',@flag=''1'' ');
+      Open;
+    end;
+    SCreateCDS20(ADOQueryTemp,CDS_PRT);
+    SInitCDSData20(ADOQueryTemp,CDS_PRT);
+  end;
+  IF trim(ComboBox1.Text)='混色包装-重量' then
+  begin
+    with ADOQueryTemp do
+    begin
+      Close;
+      sql.Clear;
+      sql.add('exec P_Do_PrintMd30 ');
+      sql.add('@mainID='+quotedstr(Trim('')));
+      sql.add(',@DName='+quotedstr(Trim(DCode)));
+      sql.add(',@flag=''0'' ');
+      sql.add(',@CNum=''10'' ');
+      Open;
+    end;
+    SCreateCDS20(ADOQueryTemp,CDS_HZ);
+    SInitCDSData20(ADOQueryTemp,CDS_HZ);
+
+    with ADOQueryTemp do
+    begin
+      Close;
+      sql.Clear;
+      sql.add('exec P_Do_PrintMd_HZ ');
+      sql.add('@mainID='+quotedstr(Trim('')));
+      sql.add(',@DName='+quotedstr(Trim(DCode)));
+      sql.add(',@flag=''1'' ');
+      Open;
+    end;
+    SCreateCDS20(ADOQueryTemp,CDS_PRT);
+    SInitCDSData20(ADOQueryTemp,CDS_PRT);
+
+  end;
+
+
+
+  if FileExists(fPrintFile) then
+  begin
+    RM1.LoadFromFile(fPrintFile);
+    RM1.ShowReport;
+  end
+  else
+  begin
+    Application.MessageBox(PChar('没有找'+fPrintFile),'提示',0);
+  end;
+end;
+
+end.

打卷检验管理/U_CKProductBCPOutList.dfm

@@ -0,0 +1,815 @@
+object frmCKProductBCPOutList: TfrmCKProductBCPOutList
+  Left = 14
+  Top = 144
+  Width = 1378
+  Height = 754
+  Caption = #25104#21697#20986#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 = 1362
+    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_TradeManage.ThreeImgList
+    List = True
+    ParentColor = False
+    ParentFont = False
+    ShowCaptions = True
+    TabOrder = 0
+    object TBRafresh: TToolButton
+      Left = 0
+      Top = 0
+      AutoSize = True
+      Caption = #21047#26032
+      ImageIndex = 9
+      OnClick = TBRafreshClick
+    end
+    object TBFind: TToolButton
+      Left = 63
+      Top = 0
+      AutoSize = True
+      Caption = #36807#28388
+      ImageIndex = 59
+      OnClick = TBFindClick
+    end
+    object TBCKCX: TToolButton
+      Left = 126
+      Top = 0
+      Caption = #25764#38144#20986#24211
+      ImageIndex = 129
+      Visible = False
+      OnClick = TBCKCXClick
+    end
+    object TBExport: TToolButton
+      Left = 209
+      Top = 0
+      AutoSize = True
+      Caption = #23548#20986
+      ImageIndex = 75
+      OnClick = TBExportClick
+    end
+    object TBPrint: TToolButton
+      Left = 272
+      Top = 0
+      AutoSize = True
+      Caption = #25171#21360
+      ImageIndex = 12
+      OnClick = TBPrintClick
+    end
+    object ComboBox1: TComboBox
+      Left = 335
+      Top = 3
+      Width = 140
+      Height = 24
+      Style = csDropDownList
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -16
+      Font.Name = #23435#20307
+      Font.Style = []
+      ItemHeight = 16
+      ItemIndex = 0
+      ParentFont = False
+      TabOrder = 0
+      Text = #38144#21806#30721#21333
+      Items.Strings = (
+        #38144#21806#30721#21333
+        #38144#21806#30721#21333'-'#23433#24247
+        #38144#21806#30721#21333'-QLO'
+        #21333#33394#21253#35013
+        #21333#33394#21253#35013'-'#38271#24230
+        #28151#33394#21253#35013'-10'#33394
+        #28151#33394#21253#35013'-'#37325#37327)
+    end
+    object TBClose: TToolButton
+      Left = 475
+      Top = 0
+      AutoSize = True
+      Caption = #20851#38381
+      ImageIndex = 55
+      OnClick = TBCloseClick
+    end
+  end
+  object Panel1: TPanel
+    Left = 0
+    Top = 33
+    Width = 1362
+    Height = 80
+    Align = alTop
+    BevelInner = bvRaised
+    BevelOuter = bvLowered
+    Color = clSkyBlue
+    TabOrder = 1
+    object Label3: TLabel
+      Left = 337
+      Top = 12
+      Width = 48
+      Height = 12
+      Caption = #20013#25991#21517#31216
+    end
+    object Label4: TLabel
+      Left = 499
+      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 = 337
+      Top = 36
+      Width = 48
+      Height = 12
+      Caption = #20811'    '#37325
+    end
+    object Label9: TLabel
+      Left = 499
+      Top = 36
+      Width = 24
+      Height = 12
+      Caption = #38376#24133
+    end
+    object Label7: TLabel
+      Left = 628
+      Top = 36
+      Width = 48
+      Height = 12
+      Caption = #31867'    '#22411
+    end
+    object Label10: TLabel
+      Left = 628
+      Top = 12
+      Width = 48
+      Height = 12
+      Caption = #20986#24211#21333#21495
+    end
+    object Label12: TLabel
+      Left = 1084
+      Top = 8
+      Width = 46
+      Height = 12
+      Caption = #21253#25968#65306'0'
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clRed
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label13: TLabel
+      Left = 789
+      Top = 12
+      Width = 48
+      Height = 12
+      Caption = #33457#22411#33457#21495
+    end
+    object Label14: TLabel
+      Left = 789
+      Top = 36
+      Width = 48
+      Height = 12
+      Caption = #33394'    '#21495
+    end
+    object Label15: TLabel
+      Left = 941
+      Top = 12
+      Width = 48
+      Height = 12
+      Caption = #32568'    '#21495
+    end
+    object PRTCodeName: TEdit
+      Tag = 2
+      Left = 386
+      Top = 9
+      Width = 90
+      Height = 20
+      TabOrder = 0
+      OnChange = PRTCodeNameChange
+    end
+    object BegDate: TDateTimePicker
+      Left = 77
+      Top = 9
+      Width = 87
+      Height = 20
+      Date = 40768.458268587970000000
+      Time = 40768.458268587970000000
+      TabOrder = 1
+    end
+    object EndDate: TDateTimePicker
+      Left = 77
+      Top = 33
+      Width = 87
+      Height = 20
+      Date = 40768.458268587970000000
+      Time = 40768.458268587970000000
+      TabOrder = 2
+    end
+    object orderNo: TEdit
+      Tag = 2
+      Left = 228
+      Top = 9
+      Width = 90
+      Height = 20
+      TabOrder = 3
+      OnChange = orderNoChange
+      OnKeyPress = orderNoKeyPress
+    end
+    object MJID: TEdit
+      Tag = 2
+      Left = 228
+      Top = 33
+      Width = 90
+      Height = 20
+      TabOrder = 4
+      OnChange = PRTCodeNameChange
+    end
+    object PRTKZ: TEdit
+      Tag = 1
+      Left = 386
+      Top = 33
+      Width = 90
+      Height = 20
+      TabOrder = 5
+      OnChange = PRTCodeNameChange
+    end
+    object PRTMF: TEdit
+      Tag = 1
+      Left = 524
+      Top = 33
+      Width = 90
+      Height = 20
+      TabOrder = 6
+      OnChange = PRTCodeNameChange
+    end
+    object CPType: TComboBox
+      Tag = 2
+      Left = 681
+      Top = 33
+      Width = 90
+      Height = 20
+      Style = csDropDownList
+      ItemHeight = 12
+      TabOrder = 7
+      OnChange = TBFindClick
+      Items.Strings = (
+        #27491#21697
+        #27425#21697
+        #22810#25340
+        '')
+    end
+    object CkOrdNo: TEdit
+      Tag = 2
+      Left = 681
+      Top = 9
+      Width = 90
+      Height = 20
+      TabOrder = 8
+      OnChange = PRTCodeNameChange
+    end
+    object PRTColor: TEdit
+      Tag = 2
+      Left = 524
+      Top = 9
+      Width = 90
+      Height = 20
+      TabOrder = 9
+      OnChange = PRTCodeNameChange
+    end
+    object PRTHX: TEdit
+      Tag = 2
+      Left = 838
+      Top = 9
+      Width = 90
+      Height = 20
+      TabOrder = 10
+      OnChange = PRTCodeNameChange
+    end
+    object SOrddefstr1: TEdit
+      Tag = 2
+      Left = 838
+      Top = 33
+      Width = 90
+      Height = 20
+      TabOrder = 11
+      OnChange = PRTCodeNameChange
+    end
+    object MJstr4: TEdit
+      Tag = 2
+      Left = 990
+      Top = 9
+      Width = 90
+      Height = 20
+      TabOrder = 12
+      OnChange = PRTCodeNameChange
+    end
+    object CheckBox1: TCheckBox
+      Left = 28
+      Top = 52
+      Width = 97
+      Height = 17
+      Caption = #20840#36873
+      TabOrder = 13
+      OnClick = CheckBox1Click
+    end
+  end
+  object cxGrid2: TcxGrid
+    Left = 0
+    Top = 113
+    Width = 1362
+    Height = 603
+    Align = alClient
+    PopupMenu = PopupMenu1
+    TabOrder = 2
+    object Tv1: TcxGridDBTableView
+      OnMouseUp = Tv1MouseUp
+      Navigator.Buttons.CustomButtons = <>
+      OnCellDblClick = Tv1CellDblClick
+      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 = v1Column14
+        end
+        item
+          Kind = skSum
+          Column = v1Column15
+        end>
+      DataController.Summary.SummaryGroups = <>
+      OptionsCustomize.ColumnFiltering = False
+      OptionsView.Footer = True
+      OptionsView.GroupByBox = False
+      OptionsView.Indicator = True
+      Styles.Inactive = DataLink_TradeManage.SHuangSe
+      Styles.IncSearch = DataLink_TradeManage.SHuangSe
+      Styles.Selection = DataLink_TradeManage.SHuangSe
+      Styles.Header = DataLink_TradeManage.Default
+      object v1Column11: TcxGridDBColumn
+        Caption = #36873#25321
+        DataBinding.FieldName = 'SSel'
+        PropertiesClassName = 'TcxCheckBoxProperties'
+        Properties.NullStyle = nssUnchecked
+        HeaderAlignmentHorz = taCenter
+        Width = 44
+      end
+      object v1Column1: TcxGridDBColumn
+        Caption = #35746#21333#21495
+        DataBinding.FieldName = 'orderNo'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 74
+      end
+      object v2Column1: TcxGridDBColumn
+        Caption = #20013#25991#21517#31216
+        DataBinding.FieldName = 'PRTCodeName'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 92
+      end
+      object v2Column3: TcxGridDBColumn
+        Caption = #39068#33394
+        DataBinding.FieldName = 'PRTColor'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 77
+      end
+      object v1Column12: TcxGridDBColumn
+        Caption = #33457#22411#33457#21495
+        DataBinding.FieldName = 'PRTHX'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 74
+      end
+      object v1Column8: TcxGridDBColumn
+        Caption = #38376#24133
+        DataBinding.FieldName = 'PRTMF'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 70
+      end
+      object v1Column9: TcxGridDBColumn
+        Caption = #20811#37325
+        DataBinding.FieldName = 'PRTKZ'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 59
+      end
+      object v1Column5: TcxGridDBColumn
+        Caption = #21367#21495
+        DataBinding.FieldName = 'MJXH'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 60
+      end
+      object v1Column6: TcxGridDBColumn
+        Caption = #21367#26465#30721
+        DataBinding.FieldName = 'MJID'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 92
+      end
+      object v1Column13: TcxGridDBColumn
+        Caption = #21253#21495
+        DataBinding.FieldName = 'BaoNo'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 60
+      end
+      object v1BAOID: TcxGridDBColumn
+        Caption = #21253#26465#30721
+        DataBinding.FieldName = 'BAOID'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 65
+      end
+      object v1Column3: TcxGridDBColumn
+        Caption = #31867#22411
+        DataBinding.FieldName = 'CPType'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 63
+      end
+      object v1Column2: TcxGridDBColumn
+        Caption = #20986#24211#26102#38388
+        DataBinding.FieldName = 'CRTime'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 107
+      end
+      object v1Column14: TcxGridDBColumn
+        Caption = #30382#37325
+        DataBinding.FieldName = 'MJQty3'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 59
+      end
+      object v1Column15: TcxGridDBColumn
+        Caption = #20928#37325
+        DataBinding.FieldName = 'MJQty4'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 55
+      end
+      object v2Column5: TcxGridDBColumn
+        Caption = #27611#37325
+        DataBinding.FieldName = 'KGQty'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 65
+      end
+      object v2Column6: TcxGridDBColumn
+        Caption = #20986#24211#38271#24230
+        DataBinding.FieldName = 'Qty'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 85
+      end
+      object v1Column7: TcxGridDBColumn
+        Caption = #38271#24230#21333#20301
+        DataBinding.FieldName = 'QtyUnit'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 83
+      end
+      object v1Column4: TcxGridDBColumn
+        Caption = #20986#24211#21333#21495
+        DataBinding.FieldName = 'CKOrdNo'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 73
+      end
+      object v1Column16: TcxGridDBColumn
+        Caption = #22791#27880
+        DataBinding.FieldName = 'CRNote'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 88
+      end
+      object v1Column10: TcxGridDBColumn
+        Caption = #33394#21495
+        DataBinding.FieldName = 'SOrddefstr1'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 75
+      end
+      object v1Column17: TcxGridDBColumn
+        Caption = #32568#21495
+        DataBinding.FieldName = 'MJstr4'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 60
+      end
+      object v1Column18: TcxGridDBColumn
+        Caption = #26579#21378#32568#21495
+        DataBinding.FieldName = 'MJstr5'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 60
+      end
+    end
+    object cxGrid2Level1: TcxGridLevel
+      GridView = Tv1
+    end
+  end
+  object MovePanel2: TMovePanel
+    Left = 344
+    Top = 192
+    Width = 289
+    Height = 49
+    BevelInner = bvLowered
+    Caption = #27491#22312#25191#34892#25968#25454#25805#20316#65292#35831#31245#21518#12290#12290#12290
+    Color = clSkyBlue
+    Font.Charset = GB2312_CHARSET
+    Font.Color = clRed
+    Font.Height = -14
+    Font.Name = #23435#20307
+    Font.Style = [fsBold]
+    ParentFont = False
+    TabOrder = 3
+    Visible = False
+  end
+  object Panel4: TPanel
+    Left = 62
+    Top = 148
+    Width = 294
+    Height = 212
+    TabOrder = 4
+    Visible = False
+    object Label11: TLabel
+      Left = 48
+      Top = 88
+      Width = 6
+      Height = 12
+    end
+    object Panel10: TPanel
+      Left = 1
+      Top = 1
+      Width = 292
+      Height = 24
+      Align = alTop
+      Alignment = taLeftJustify
+      BevelOuter = bvNone
+      Caption = #20107#20214#35828#26126
+      Color = clSkyBlue
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -16
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+      TabOrder = 0
+      object Image2: TImage
+        Left = 269
+        Top = 3
+        Width = 22
+        Height = 16
+        ParentShowHint = False
+        Picture.Data = {
+          07544269746D617076040000424D760400000000000036000000280000001500
+          0000110000000100180000000000400400000000000000000000000000000000
+          0000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+          FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+          FF00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+          FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+          FF00FFFFFFFFFFFFF0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6
+          F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6FFFFFFFFFF
+          FF00FFFFFFFFFFFF404040404040404040404040404040404040404040404040
+          404040404040404040404040404040404040404040404040F0CAA6FFFFFFFFFF
+          FF00FFFFFFFFFFFFFFFFFF808080808080808080808080808080808080808080
+          808080808080808080808080808080808080808080404040F0CAA6FFFFFFFFFF
+          FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4
+          C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF
+          FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4
+          C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF
+          FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4000000000000C8D0D4C8D0D4
+          C8D0D4C8D0D4000000000000C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF
+          FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4000000000000C8D0D4
+          C8D0D4000000000000C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF
+          FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4000000000000
+          000000000000C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF
+          FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4000000
+          000000C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF
+          FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4000000000000
+          000000000000C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF
+          FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4000000000000C8D0D4
+          C8D0D4000000000000C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF
+          FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4000000000000C8D0D4C8D0D4
+          C8D0D4C8D0D4000000000000C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF
+          FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4
+          C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF
+          FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4
+          C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF
+          FF00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+          FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+          FF00}
+        ShowHint = True
+        Transparent = True
+        OnClick = Image2Click
+      end
+    end
+    object RichEdit1: TRichEdit
+      Left = 1
+      Top = 25
+      Width = 292
+      Height = 186
+      Align = alClient
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clRed
+      Font.Height = -16
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
+      ParentFont = False
+      TabOrder = 1
+    end
+  end
+  object ADOQueryCmd: TADOQuery
+    Connection = DataLink_TradeManage.ADOLink
+    Parameters = <>
+    Left = 1188
+    Top = 48
+  end
+  object ADOQueryMain: TADOQuery
+    Connection = DataLink_TradeManage.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 1132
+    Top = 40
+  end
+  object ADOQueryTemp: TADOQuery
+    Connection = DataLink_TradeManage.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 1112
+    Top = 40
+  end
+  object cxGridPopupMenu1: TcxGridPopupMenu
+    Grid = cxGrid2
+    PopupMenus = <>
+    Left = 784
+    Top = 248
+  end
+  object CDS_Main: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 840
+    Top = 192
+  end
+  object RMDBMain: TRMDBDataSet
+    Visible = True
+    DataSet = CDS_PRT
+    Left = 360
+    Top = 248
+  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 = 416
+    Top = 248
+  end
+  object PopupMenu1: TPopupMenu
+    Left = 256
+    Top = 152
+    object N1: TMenuItem
+      Caption = #20840#36873
+      OnClick = N1Click
+    end
+    object N2: TMenuItem
+      Caption = #20840#24323
+      OnClick = N2Click
+    end
+  end
+  object cxGridPopupMenu2: TcxGridPopupMenu
+    Grid = cxGrid2
+    PopupMenus = <>
+    Left = 216
+    Top = 216
+  end
+  object cxGridPopupMenu3: TcxGridPopupMenu
+    PopupMenus = <>
+    Left = 600
+    Top = 376
+  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
+    CompressLevel = rmzcFastest
+    CompressThread = False
+    LaterBuildEvents = True
+    OnlyOwnerDataSet = False
+    Left = 553
+    Top = 152
+    ReportData = {}
+  end
+  object cxGridPopupMenu4: TcxGridPopupMenu
+    PopupMenus = <>
+    Left = 716
+    Top = 484
+  end
+  object DataSource1: TDataSource
+    DataSet = CDS_Main
+    Left = 920
+    Top = 152
+  end
+  object ADOQueryPrint: TADOQuery
+    Connection = DataLink_TradeManage.ADOLink
+    Parameters = <>
+    Left = 1172
+    Top = 57
+  end
+  object RMDBHZ: TRMDBDataSet
+    Visible = True
+    DataSet = CDS_HZ
+    Left = 572
+    Top = 168
+  end
+  object CDS_HZ: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 568
+    Top = 224
+  end
+  object CDS_PRT: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 512
+    Top = 224
+  end
+end

打卷检验管理/U_CKProductJYHZList.dfm

@@ -0,0 +1,652 @@
+object frmCKProductJYHZList: TfrmCKProductJYHZList
+  Left = 239
+  Top = 140
+  Width = 1517
+  Height = 511
+  Caption = #25104#21697#26816#39564#27719#24635#20449#24687
+  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 = 1501
+    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_TradeManage.ThreeImgList
+    List = True
+    ParentColor = False
+    ParentFont = False
+    ShowCaptions = True
+    TabOrder = 0
+    object TBRafresh: TToolButton
+      Left = 0
+      Top = 0
+      AutoSize = True
+      Caption = #21047#26032
+      ImageIndex = 9
+      OnClick = TBRafreshClick
+    end
+    object TBFind: TToolButton
+      Left = 63
+      Top = 0
+      AutoSize = True
+      Caption = #36807#28388
+      ImageIndex = 59
+      OnClick = TBFindClick
+    end
+    object ToolButton1: TToolButton
+      Left = 126
+      Top = 0
+      AutoSize = True
+      Caption = #26597#30475#26126#32454
+      ImageIndex = 3
+      OnClick = ToolButton1Click
+    end
+    object TBExport: TToolButton
+      Left = 213
+      Top = 0
+      AutoSize = True
+      Caption = #23548#20986
+      ImageIndex = 75
+      OnClick = TBExportClick
+    end
+    object TBPrint: TToolButton
+      Left = 276
+      Top = 0
+      AutoSize = True
+      Caption = #25171#21360
+      ImageIndex = 12
+      Visible = False
+      OnClick = TBPrintClick
+    end
+    object TBClose: TToolButton
+      Left = 339
+      Top = 0
+      AutoSize = True
+      Caption = #20851#38381
+      ImageIndex = 55
+      OnClick = TBCloseClick
+    end
+  end
+  object Panel1: TPanel
+    Left = 0
+    Top = 33
+    Width = 1501
+    Height = 68
+    Align = alTop
+    BevelInner = bvRaised
+    BevelOuter = bvLowered
+    Color = clSkyBlue
+    TabOrder = 1
+    object Label3: TLabel
+      Left = 212
+      Top = 36
+      Width = 48
+      Height = 12
+      Caption = #20013#25991#21517#31216
+    end
+    object Label1: TLabel
+      Left = 24
+      Top = 12
+      Width = 48
+      Height = 12
+      Caption = #26597#35810#26102#38388
+    end
+    object Label2: TLabel
+      Left = 60
+      Top = 36
+      Width = 12
+      Height = 12
+      Caption = #33267
+    end
+    object Label5: TLabel
+      Left = 212
+      Top = 12
+      Width = 48
+      Height = 12
+      Caption = #35746' '#21333' '#21495
+    end
+    object Label6: TLabel
+      Left = 420
+      Top = 12
+      Width = 24
+      Height = 12
+      Caption = #39068#33394
+    end
+    object Label8: TLabel
+      Left = 211
+      Top = 100
+      Width = 48
+      Height = 12
+      Caption = #20811'    '#37325
+    end
+    object Label9: TLabel
+      Left = 380
+      Top = 108
+      Width = 24
+      Height = 12
+      Caption = #38376#24133
+    end
+    object Label7: TLabel
+      Left = 780
+      Top = 16
+      Width = 48
+      Height = 12
+      Caption = #31867'    '#22411
+    end
+    object Label10: TLabel
+      Left = 504
+      Top = 36
+      Width = 6
+      Height = 12
+    end
+    object Label11: TLabel
+      Left = 488
+      Top = 80
+      Width = 36
+      Height = 12
+      Caption = #19994#21153#21592
+    end
+    object Label12: TLabel
+      Left = 488
+      Top = 104
+      Width = 36
+      Height = 12
+      Caption = #36319#21333#21592
+    end
+    object Label4: TLabel
+      Left = 420
+      Top = 36
+      Width = 24
+      Height = 12
+      Caption = #32568#21495
+    end
+    object Label14: TLabel
+      Left = 600
+      Top = 16
+      Width = 36
+      Height = 12
+      Caption = #21512#21516#21495
+    end
+    object Label15: TLabel
+      Left = 616
+      Top = 40
+      Width = 18
+      Height = 12
+      Caption = 'PO#'
+    end
+    object MPRTCodeName: TEdit
+      Tag = 2
+      Left = 266
+      Top = 32
+      Width = 80
+      Height = 20
+      TabOrder = 0
+      OnChange = MPRTCodeNameChange
+    end
+    object BegDate: TDateTimePicker
+      Left = 73
+      Top = 9
+      Width = 87
+      Height = 20
+      Date = 40768.458268587970000000
+      Time = 40768.458268587970000000
+      TabOrder = 1
+    end
+    object EndDate: TDateTimePicker
+      Left = 73
+      Top = 33
+      Width = 87
+      Height = 20
+      Date = 40768.458268587970000000
+      Time = 40768.458268587970000000
+      TabOrder = 2
+    end
+    object orderNo: TEdit
+      Tag = 2
+      Left = 266
+      Top = 8
+      Width = 80
+      Height = 20
+      TabOrder = 3
+      OnChange = MPRTCodeNameChange
+    end
+    object PRTColor: TEdit
+      Tag = 2
+      Left = 446
+      Top = 8
+      Width = 80
+      Height = 20
+      TabOrder = 4
+      OnChange = MPRTCodeNameChange
+    end
+    object MPRTKZ: TEdit
+      Tag = 2
+      Left = 260
+      Top = 96
+      Width = 100
+      Height = 20
+      TabOrder = 5
+      OnChange = MPRTCodeNameChange
+    end
+    object MPRTMF: TEdit
+      Tag = 2
+      Left = 404
+      Top = 104
+      Width = 65
+      Height = 20
+      TabOrder = 6
+      OnChange = MPRTCodeNameChange
+    end
+    object CPType: TComboBox
+      Tag = 2
+      Left = 831
+      Top = 12
+      Width = 68
+      Height = 20
+      Style = csDropDownList
+      ItemHeight = 12
+      TabOrder = 7
+      OnChange = TBFindClick
+      Items.Strings = (
+        #27491#21697
+        #27425#21697
+        #22810#25340
+        '')
+    end
+    object YWY: TEdit
+      Tag = 2
+      Left = 526
+      Top = 76
+      Width = 65
+      Height = 20
+      TabOrder = 8
+      OnChange = MPRTCodeNameChange
+    end
+    object OrdPerson1: TEdit
+      Tag = 2
+      Left = 526
+      Top = 100
+      Width = 65
+      Height = 20
+      TabOrder = 9
+      OnChange = MPRTCodeNameChange
+    end
+    object MJstr4: TEdit
+      Tag = 1
+      Left = 446
+      Top = 32
+      Width = 80
+      Height = 20
+      TabOrder = 10
+      OnChange = MPRTCodeNameChange
+    end
+    object conNo: TEdit
+      Tag = 2
+      Left = 638
+      Top = 12
+      Width = 80
+      Height = 20
+      TabOrder = 11
+      OnChange = MPRTCodeNameChange
+    end
+    object KHCONNO: TEdit
+      Tag = 2
+      Left = 638
+      Top = 36
+      Width = 80
+      Height = 20
+      TabOrder = 12
+      OnChange = MPRTCodeNameChange
+    end
+  end
+  object cxGrid2: TcxGrid
+    Left = 0
+    Top = 101
+    Width = 1501
+    Height = 371
+    Align = alClient
+    TabOrder = 2
+    object Tv1: TcxGridDBTableView
+      OnMouseUp = Tv1MouseUp
+      Navigator.Buttons.CustomButtons = <>
+      OnCellDblClick = Tv1CellDblClick
+      DataController.DataSource = DataSource1
+      DataController.Summary.DefaultGroupSummaryItems = <>
+      DataController.Summary.FooterSummaryItems = <
+        item
+          Kind = skSum
+          Column = v1Column6
+        end
+        item
+          Kind = skSum
+          Column = v2Column5
+        end
+        item
+          Kind = skSum
+        end
+        item
+          Kind = skSum
+          Column = v1Column11
+        end
+        item
+          Kind = skSum
+          Column = v1Column12
+        end>
+      DataController.Summary.SummaryGroups = <>
+      OptionsCustomize.ColumnFiltering = False
+      OptionsData.Editing = False
+      OptionsView.Footer = True
+      OptionsView.GroupByBox = False
+      Styles.Inactive = DataLink_TradeManage.SHuangSe
+      Styles.IncSearch = DataLink_TradeManage.SHuangSe
+      Styles.Selection = DataLink_TradeManage.SHuangSe
+      Styles.Header = DataLink_TradeManage.Default
+      object v1Column3: TcxGridDBColumn
+        Caption = #20837#24211#26085#26399
+        DataBinding.FieldName = 'CRTime'
+        PropertiesClassName = 'TcxDateEditProperties'
+        Properties.ShowTime = False
+        HeaderAlignmentHorz = taCenter
+        Width = 89
+      end
+      object v1Column1: TcxGridDBColumn
+        Caption = #35746#21333#21495
+        DataBinding.FieldName = 'orderNo'
+        HeaderAlignmentHorz = taCenter
+        Width = 72
+      end
+      object v1Column9: TcxGridDBColumn
+        Caption = #21512#21516#21495
+        DataBinding.FieldName = 'conNo'
+        HeaderAlignmentHorz = taCenter
+        Width = 80
+      end
+      object v1Column10: TcxGridDBColumn
+        Caption = 'PO#'
+        DataBinding.FieldName = 'khconNO'
+        HeaderAlignmentHorz = taCenter
+        Width = 80
+      end
+      object v2Column1: TcxGridDBColumn
+        Caption = #20013#25991#21517#31216
+        DataBinding.FieldName = 'PRTCodeName'
+        HeaderAlignmentHorz = taCenter
+        Width = 125
+      end
+      object v1Column4: TcxGridDBColumn
+        Caption = #39068#33394
+        DataBinding.FieldName = 'PRTColor'
+        HeaderAlignmentHorz = taCenter
+        Width = 70
+      end
+      object v1Column2: TcxGridDBColumn
+        Caption = #39068#33394'('#33521#25991')'
+        DataBinding.FieldName = 'SOrddefstr4'
+        HeaderAlignmentHorz = taCenter
+        Width = 70
+      end
+      object v1Column8: TcxGridDBColumn
+        Caption = #33457#22411
+        DataBinding.FieldName = 'PRTHX'
+        HeaderAlignmentHorz = taCenter
+        Width = 70
+      end
+      object v1Column5: TcxGridDBColumn
+        Caption = #32568#21495
+        DataBinding.FieldName = 'MJStr4'
+        HeaderAlignmentHorz = taCenter
+        Width = 70
+      end
+      object v1Column6: TcxGridDBColumn
+        Caption = #26816#39564#21367#25968
+        DataBinding.FieldName = 'JQty'
+        HeaderAlignmentHorz = taCenter
+        Width = 60
+      end
+      object v1Column12: TcxGridDBColumn
+        Caption = #26816#39564#38271#24230
+        DataBinding.FieldName = 'Qty'
+        HeaderAlignmentHorz = taCenter
+        Width = 80
+      end
+      object v1Column7: TcxGridDBColumn
+        Caption = #25968#37327#21333#20301
+        DataBinding.FieldName = 'QtyUnit'
+        HeaderAlignmentHorz = taCenter
+        Width = 83
+      end
+      object v2Column5: TcxGridDBColumn
+        Caption = #27611#37325
+        DataBinding.FieldName = 'KGQty'
+        HeaderAlignmentHorz = taCenter
+        Width = 80
+      end
+      object v1Column11: TcxGridDBColumn
+        Caption = #20928#37325
+        DataBinding.FieldName = 'MJQty4'
+        HeaderAlignmentHorz = taCenter
+        Width = 80
+      end
+      object v1Column13: TcxGridDBColumn
+        Caption = #31867#22411
+        DataBinding.FieldName = 'CPType'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 60
+      end
+      object Tv1Column1: TcxGridDBColumn
+        Caption = #20986#24211#21305#25968
+        DataBinding.FieldName = 'CKROLL'
+        HeaderAlignmentHorz = taCenter
+      end
+      object Tv1Column3: TcxGridDBColumn
+        Caption = #20986#24211#25968#37327
+        DataBinding.FieldName = 'sckroll'
+        HeaderAlignmentHorz = taCenter
+        Width = 60
+      end
+      object Tv1Column2: TcxGridDBColumn
+        Caption = #24211#23384#21305#25968
+        DataBinding.FieldName = 'KCROLL'
+        HeaderAlignmentHorz = taCenter
+      end
+      object Tv1Column4: TcxGridDBColumn
+        Caption = #24211#23384#25968#37327
+        DataBinding.FieldName = 'skcroll'
+        HeaderAlignmentHorz = taCenter
+        Width = 60
+      end
+    end
+    object cxGrid2Level1: TcxGridLevel
+      GridView = Tv1
+    end
+  end
+  object MovePanel2: TMovePanel
+    Left = 408
+    Top = 192
+    Width = 289
+    Height = 49
+    BevelInner = 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 = -14
+    Font.Name = #23435#20307
+    Font.Style = [fsBold]
+    ParentFont = False
+    TabOrder = 3
+    Visible = False
+  end
+  object Panel4: TPanel
+    Left = 62
+    Top = 139
+    Width = 294
+    Height = 213
+    TabOrder = 4
+    Visible = False
+    object Label13: TLabel
+      Left = 48
+      Top = 88
+      Width = 6
+      Height = 12
+    end
+    object Panel10: TPanel
+      Left = 1
+      Top = 1
+      Width = 292
+      Height = 23
+      Align = alTop
+      Alignment = taLeftJustify
+      BevelOuter = bvNone
+      Caption = #20107#20214#35828#26126
+      Color = clSkyBlue
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -16
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+      TabOrder = 0
+      object Image2: TImage
+        Left = 269
+        Top = 3
+        Width = 22
+        Height = 16
+        ParentShowHint = False
+        Picture.Data = {
+          07544269746D617076040000424D760400000000000036000000280000001500
+          0000110000000100180000000000400400000000000000000000000000000000
+          0000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+          FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+          FF00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+          FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+          FF00FFFFFFFFFFFFF0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6
+          F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6FFFFFFFFFF
+          FF00FFFFFFFFFFFF404040404040404040404040404040404040404040404040
+          404040404040404040404040404040404040404040404040F0CAA6FFFFFFFFFF
+          FF00FFFFFFFFFFFFFFFFFF808080808080808080808080808080808080808080
+          808080808080808080808080808080808080808080404040F0CAA6FFFFFFFFFF
+          FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4
+          C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF
+          FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4
+          C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF
+          FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4000000000000C8D0D4C8D0D4
+          C8D0D4C8D0D4000000000000C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF
+          FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4000000000000C8D0D4
+          C8D0D4000000000000C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF
+          FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4000000000000
+          000000000000C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF
+          FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4000000
+          000000C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF
+          FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4000000000000
+          000000000000C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF
+          FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4000000000000C8D0D4
+          C8D0D4000000000000C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF
+          FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4000000000000C8D0D4C8D0D4
+          C8D0D4C8D0D4000000000000C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF
+          FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4
+          C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF
+          FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4
+          C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF
+          FF00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+          FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+          FF00}
+        ShowHint = True
+        Transparent = True
+        OnClick = Image2Click
+      end
+    end
+    object RichEdit1: TRichEdit
+      Left = 1
+      Top = 24
+      Width = 292
+      Height = 188
+      Align = alClient
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clRed
+      Font.Height = -16
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+      TabOrder = 1
+    end
+  end
+  object ADOQueryCmd: TADOQuery
+    Connection = DataLink_TradeManage.ADOLink
+    Parameters = <>
+    Left = 980
+    Top = 144
+  end
+  object ADOQueryMain: TADOQuery
+    Connection = DataLink_TradeManage.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 996
+    Top = 144
+  end
+  object ADOQueryTemp: TADOQuery
+    Connection = DataLink_TradeManage.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 956
+    Top = 136
+  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 = 776
+    Top = 224
+  end
+  object RMGridReport1: 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
+    CompressLevel = rmzcFastest
+    CompressThread = False
+    LaterBuildEvents = True
+    OnlyOwnerDataSet = False
+    Left = 720
+    Top = 136
+    ReportData = {}
+  end
+end

打卷检验管理/U_CKProductJYHZList.pas

@@ -0,0 +1,318 @@
+unit U_CKProductJYHZList;
+
+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, MovePanel, cxButtonEdit,
+  cxCalendar, RM_System, RM_Common, RM_Class, RM_GridReport,
+  cxLookAndFeels, cxLookAndFeelPainters, cxNavigator;
+
+type
+  TfrmCKProductJYHZList = 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;
+    MPRTCodeName: TEdit;
+    Label1: TLabel;
+    Label2: TLabel;
+    BegDate: TDateTimePicker;
+    EndDate: TDateTimePicker;
+    CDS_Main: TClientDataSet;
+    Tv1: TcxGridDBTableView;
+    cxGrid2Level1: TcxGridLevel;
+    cxGrid2: TcxGrid;
+    v2Column1: TcxGridDBColumn;
+    v2Column5: TcxGridDBColumn;
+    v1Column1: TcxGridDBColumn;
+    Label5: TLabel;
+    orderNo: TEdit;
+    Label6: TLabel;
+    PRTColor: TEdit;
+    v1Column7: TcxGridDBColumn;
+    v1Column6: TcxGridDBColumn;
+    Label8: TLabel;
+    MPRTKZ: TEdit;
+    Label9: TLabel;
+    MPRTMF: TEdit;
+    Label7: TLabel;
+    CPType: TComboBox;
+    MovePanel2: TMovePanel;
+    Label10: TLabel;
+    Label11: TLabel;
+    Label12: TLabel;
+    YWY: TEdit;
+    OrdPerson1: TEdit;
+    v1Column11: TcxGridDBColumn;
+    v1Column12: TcxGridDBColumn;
+    v1Column3: TcxGridDBColumn;
+    v1Column4: TcxGridDBColumn;
+    v1Column5: TcxGridDBColumn;
+    v1Column8: TcxGridDBColumn;
+    MJstr4: TEdit;
+    Label4: TLabel;
+    Panel4: TPanel;
+    Label13: TLabel;
+    Panel10: TPanel;
+    Image2: TImage;
+    RichEdit1: TRichEdit;
+    v1Column2: TcxGridDBColumn;
+    v1Column9: TcxGridDBColumn;
+    v1Column10: TcxGridDBColumn;
+    conNo: TEdit;
+    Label14: TLabel;
+    KHCONNO: TEdit;
+    Label15: TLabel;
+    v1Column13: TcxGridDBColumn;
+    RMGridReport1: TRMGridReport;
+    ToolButton1: TToolButton;
+    Tv1Column1: TcxGridDBColumn;
+    Tv1Column2: TcxGridDBColumn;
+    Tv1Column3: TcxGridDBColumn;
+    Tv1Column4: 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 v1Column5PropertiesButtonClick(Sender: TObject;
+      AButtonIndex: Integer);
+    procedure PRTColorChange(Sender: TObject);
+    procedure Image2Click(Sender: TObject);
+    procedure Tv1CellDblClick(Sender: TcxCustomGridTableView;
+      ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
+      AShift: TShiftState; var AHandled: Boolean);
+    procedure Tv1MouseUp(Sender: TObject; Button: TMouseButton;
+      Shift: TShiftState; X, Y: Integer);
+    procedure TBPrintClick(Sender: TObject);
+    procedure ToolButton1Click(Sender: TObject);
+  private
+    FLeft,FTop:Integer;
+    procedure InitGrid();
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+var
+  frmCKProductJYHZList: TfrmCKProductJYHZList;
+
+implementation
+uses
+  U_DataLink,U_Fun,U_ZDYHelp,U_JYOrderCDOne;
+
+{$R *.dfm}
+
+procedure TfrmCKProductJYHZList.FormDestroy(Sender: TObject);
+begin
+  frmCKProductJYHZList:=nil;
+end;
+
+procedure TfrmCKProductJYHZList.FormClose(Sender: TObject;
+  var Action: TCloseAction);
+begin
+  Action:=caFree;
+end;
+
+procedure TfrmCKProductJYHZList.FormCreate(Sender: TObject);
+begin
+  //cxGrid1.Align:=alClient;
+  BegDate.DateTime:=SGetServerDateTime(ADOQueryTemp);
+  EndDate.DateTime:=SGetServerDateTime(ADOQueryTemp)
+end;
+
+procedure TfrmCKProductJYHZList.InitGrid();
+begin
+  try
+    ADOQueryMain.DisableControls;
+    with ADOQueryMain do
+    begin
+      Close;
+      sql.Clear;
+      Filtered:=False;
+      sql.Add('select convert(char(10),A.fillTime,120) as CRTime,A.MJType as CPType,A.MainId,A.MJTypeother as QtyUnit,A.Mjstr4,C.OrderNo,C.ConNO,D.PRTCodeName,D.PrtColor,D.PrtHX,D.SOrddefstr4, ');
+      sql.Add('count(A.MainId) as JQty,SUM(A.MJLen) as Qty,SUM(A.MJMaoZ) as KGQty,SUM(A.MJQty4) as MJQty4,');
+      sql.Add('JQty=(select count(*) from WFB_MJJY X where X.SubId=A.SubId),');
+      sql.Add('SCKROLL=(select sum(mjlen) from WFB_MJJY X where X.SubId=A.SubId and X.ckflag=''已出库''),');
+      sql.Add('SkcROLL=(select sum(mjlen) from WFB_MJJY X where X.SubId=A.SubId and X.ckflag=''未出库''),');
+      sql.Add('CKROLL=(select count(*) from WFB_MJJY X where X.SubId=A.SubId and X.ckflag=''已出库''),');
+      sql.Add('KCROLL=(select count(*) from WFB_MJJY X where X.SubId=A.SubId and X.ckflag=''未出库''),');
+      sql.Add('khconNO=(select top 1 khconNo from JYOrderCon_Main X where X.conNO=C.conNO)');
+      sql.Add('from WFB_MJJY A ');
+      sql.Add('inner join JYOrder_Main C on C.MainId=A.MainId ');
+      sql.Add('inner join JYOrder_sub D on D.subID=A.subID ');
+      Sql.add('where A.fillTime>='''+formatdateTime('yyyy-MM-dd',begdate.Date)+''' ');
+      Sql.add('and A.fillTime<'''+formatdateTime('yyyy-MM-dd',enddate.Date+1)+''' ');
+      Sql.add('group by convert(char(10),A.fillTime,120),A.SubId,A.MJType,A.MainId,A.MJTypeother,A.Mjstr4,C.OrderNo,C.ConNO,D.PRTCodeName,D.PrtColor,D.PrtHX,D.SOrddefstr4');
+      Open;
+      //ShowMessage(SQL.Text);
+    end;
+    SCreateCDS20(ADOQueryMain,CDS_Main);
+    SInitCDSData20(ADOQueryMain,CDS_Main);
+  finally
+    ADOQueryMain.EnableControls;
+  end;
+end;
+
+procedure TfrmCKProductJYHZList.TBRafreshClick(Sender: TObject);
+begin
+  //BegDate.SetFocus;
+  MovePanel2.Visible:=True;
+  MovePanel2.Refresh;
+  InitGrid();
+  MovePanel2.Visible:=False;
+end;
+
+procedure TfrmCKProductJYHZList.ConNoMChange(Sender: TObject);
+begin
+  if ADOQueryMain.Active then
+  begin
+    SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2));
+  end;
+end;
+
+procedure TfrmCKProductJYHZList.TBCloseClick(Sender: TObject);
+begin
+  WriteCxGrid(self.Caption+tv1.Name,Tv1,'成品仓库');
+  Close;
+end;
+
+procedure TfrmCKProductJYHZList.FormShow(Sender: TObject);
+begin
+
+  ReadCxGrid(self.Caption+tv1.Name,Tv1,'成品仓库');
+  if Trim(DParameters2)='管理' then
+  begin
+    //v1Column5.Options.Focusing:=True;
+  end else
+  begin
+    //v1Column5.Options.Focusing:=False;
+  end;
+  //InitGrid();
+end;
+
+procedure TfrmCKProductJYHZList.TBExportClick(Sender: TObject);
+begin
+  if ADOQueryMain.IsEmpty then exit;
+  TcxGridToExcel('库存汇总列表',cxGrid2);
+end;
+
+procedure TfrmCKProductJYHZList.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 TfrmCKProductJYHZList.MPRTCodeNameChange(Sender: TObject);
+begin
+  TBFind.Click;
+end;
+
+procedure TfrmCKProductJYHZList.v1Column5PropertiesButtonClick(
+  Sender: TObject; AButtonIndex: Integer);
+begin
+  try
+    frmZDYHelp:=TfrmZDYHelp.Create(Application);
+    with frmZDYHelp do
+    begin
+      flag:='SOrdDefStr10';
+      flagname:='库存存放地点';
+      if ShowModal=1 then
+      begin
+        with CDS_Main do
+        begin
+          Edit;
+          FieldByName('SOrdDefStr10').Value:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString);
+        end;
+        with ADOQueryCmd do
+        begin
+          Close;
+          sql.Clear;
+          sql.Add('Update JYOrder_Sub Set SOrdDefStr10='''+Trim(ClientDataSet1.fieldbyname('ZdyName').AsString)+'''');
+          sql.Add(' where SubId='''+Trim(Self.CDS_Main.fieldbyname('SubId').AsString)+'''');
+          ExecSQL;
+        end;
+      end;
+    end;
+  finally
+    frmZDYHelp.Free;
+  end;
+end;
+
+procedure TfrmCKProductJYHZList.PRTColorChange(Sender: TObject);
+begin
+  TBFind.Click;
+end;
+
+procedure TfrmCKProductJYHZList.Image2Click(Sender: TObject);
+begin
+   Panel4.Visible:=False;
+end;
+
+procedure TfrmCKProductJYHZList.Tv1CellDblClick(
+  Sender: TcxCustomGridTableView;
+  ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
+  AShift: TShiftState; var AHandled: Boolean);
+begin
+  Panel4.Left:=FLeft;
+  Panel4.Top:=FTop+110;
+  Panel4.Visible:=True;
+  Panel10.Caption:=Trim(TV1.Controller.FocusedColumn.Caption);
+  RichEdit1.Text:=CDS_Main.fieldbyname(TV1.Controller.FocusedColumn.DataBinding.FilterFieldName).AsString;
+  application.ProcessMessages;
+end;
+
+procedure TfrmCKProductJYHZList.Tv1MouseUp(Sender: TObject;
+  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
+begin
+  FLeft:=X;
+  FTop:=Y;
+end;
+
+procedure TfrmCKProductJYHZList.TBPrintClick(Sender: TObject);
+begin
+  RMGridReport1.PreviewButtons:=[pbZoom,pbLoad,pbSave,pbPrint,pbFind,pbPageSetup,pbExit,pbExport,pbNavigator];
+end;
+
+procedure TfrmCKProductJYHZList.ToolButton1Click(Sender: TObject);
+begin
+   if cds_main.IsEmpty then Exit;
+    frmJYOrderCDOne:=TfrmJYOrderCDOne.Create(Application);
+    with frmJYOrderCDOne do
+    begin
+      orderno.Text:=trim(self.CDS_Main.fieldbyname('orderno').asstring);
+      gangno.Text:=trim(self.CDS_Main.fieldbyname('MJStr4').asstring);
+      PRTColor.Text:=trim(self.CDS_Main.fieldbyname('PRTColor').asstring);
+      if ShowModal=1 then
+      begin
+    //     InitGrid();
+      end;
+      free;
+    end;
+end;
+
+end.

打卷检验管理/U_CKYCLKC.dfm

@@ -0,0 +1,345 @@
+object frmCKYCLKC: TfrmCKYCLKC
+  Left = 128
+  Top = 152
+  Width = 1027
+  Height = 511
+  Caption = #21407#26448#26009#20986#20837#23384
+  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 = 1019
+    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_JWLCK.ThreeImgList
+    List = True
+    ParentColor = False
+    ParentFont = False
+    ShowCaptions = True
+    TabOrder = 0
+    object TBRafresh: TToolButton
+      Left = 0
+      Top = 0
+      AutoSize = True
+      Caption = #21047#26032
+      ImageIndex = 9
+      OnClick = TBRafreshClick
+    end
+    object TBFind: TToolButton
+      Left = 63
+      Top = 0
+      AutoSize = True
+      Caption = #36807#28388
+      ImageIndex = 59
+      OnClick = TBFindClick
+    end
+    object TBExport: TToolButton
+      Left = 126
+      Top = 0
+      AutoSize = True
+      Caption = #23548#20986
+      ImageIndex = 75
+      OnClick = TBExportClick
+    end
+    object TBPrint: TToolButton
+      Left = 189
+      Top = 0
+      AutoSize = True
+      Caption = #25171#21360
+      ImageIndex = 12
+      Visible = False
+    end
+    object ToolButton1: TToolButton
+      Left = 252
+      Top = 0
+      Caption = #20445#23384
+      ImageIndex = 14
+      OnClick = ToolButton1Click
+    end
+    object TBClose: TToolButton
+      Left = 311
+      Top = 0
+      AutoSize = True
+      Caption = #20851#38381
+      ImageIndex = 55
+      OnClick = TBCloseClick
+    end
+  end
+  object Panel1: TPanel
+    Left = 0
+    Top = 33
+    Width = 1019
+    Height = 42
+    Align = alTop
+    BevelInner = bvRaised
+    BevelOuter = bvLowered
+    Color = clSkyBlue
+    TabOrder = 1
+    object Label3: TLabel
+      Left = 302
+      Top = 12
+      Width = 48
+      Height = 12
+      Caption = #29289#26009#21517#31216
+    end
+    object Label4: TLabel
+      Left = 478
+      Top = 12
+      Width = 36
+      Height = 12
+      Caption = #35268'  '#26684
+    end
+    object Label7: TLabel
+      Left = 638
+      Top = 12
+      Width = 48
+      Height = 12
+      Caption = #20379' '#24212' '#21830
+    end
+    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 YCLName: TEdit
+      Tag = 2
+      Left = 351
+      Top = 9
+      Width = 100
+      Height = 20
+      TabOrder = 0
+      OnChange = YCLNameChange
+    end
+    object YCLSpec: TEdit
+      Tag = 2
+      Left = 516
+      Top = 9
+      Width = 100
+      Height = 20
+      TabOrder = 1
+      OnChange = YCLNameChange
+    end
+    object GYSName: TEdit
+      Tag = 2
+      Left = 687
+      Top = 9
+      Width = 100
+      Height = 20
+      TabOrder = 2
+      OnChange = YCLNameChange
+    end
+    object BegDate: TDateTimePicker
+      Left = 77
+      Top = 9
+      Width = 87
+      Height = 20
+      Date = 40768.458268587970000000
+      Time = 40768.458268587970000000
+      TabOrder = 3
+    end
+    object EndDate: TDateTimePicker
+      Left = 181
+      Top = 9
+      Width = 87
+      Height = 20
+      Date = 40768.458268587970000000
+      Time = 40768.458268587970000000
+      TabOrder = 4
+    end
+  end
+  object cxGrid2: TcxGrid
+    Left = 0
+    Top = 75
+    Width = 1019
+    Height = 399
+    Align = alClient
+    TabOrder = 2
+    object Tv1: TcxGridDBTableView
+      NavigatorButtons.ConfirmDelete = False
+      OnCellDblClick = Tv1CellDblClick
+      DataController.DataSource = DataSource1
+      DataController.Summary.DefaultGroupSummaryItems = <>
+      DataController.Summary.FooterSummaryItems = <
+        item
+          Kind = skSum
+          Column = v2Column5
+        end
+        item
+          Kind = skSum
+          Column = v2Column6
+        end
+        item
+          Kind = skSum
+          Column = v1Column1
+        end
+        item
+          Kind = skSum
+          Column = v1Column2
+        end
+        item
+          Kind = skSum
+          Column = v2Column7
+        end
+        item
+          Kind = skSum
+          Column = v2Column8
+        end>
+      DataController.Summary.SummaryGroups = <>
+      OptionsCustomize.ColumnFiltering = False
+      OptionsView.Footer = True
+      OptionsView.GroupByBox = False
+      Styles.Header = DataLink_JWLCK.Default
+      object v2Column1: TcxGridDBColumn
+        Caption = #29289#26009#21517#31216
+        DataBinding.FieldName = 'YCLName'
+        HeaderAlignmentHorz = taCenter
+        Options.Focusing = False
+        Width = 92
+      end
+      object v2Column2: TcxGridDBColumn
+        Caption = #35268#26684
+        DataBinding.FieldName = 'YCLSpec'
+        HeaderAlignmentHorz = taCenter
+        Options.Focusing = False
+        Width = 77
+      end
+      object v2Column3: TcxGridDBColumn
+        Caption = #20379#24212#21830
+        DataBinding.FieldName = 'GYSName'
+        HeaderAlignmentHorz = taCenter
+        Options.Focusing = False
+        Width = 77
+      end
+      object v2Column4: TcxGridDBColumn
+        Caption = #21333#20301
+        DataBinding.FieldName = 'KCUint'
+        HeaderAlignmentHorz = taCenter
+        Options.Focusing = False
+        Width = 82
+      end
+      object v2Column5: TcxGridDBColumn
+        Caption = #19978#26399#25968#37327
+        DataBinding.FieldName = 'SQJCS'
+        HeaderAlignmentHorz = taCenter
+        Options.Focusing = False
+        Width = 73
+      end
+      object v2Column6: TcxGridDBColumn
+        Caption = #26412#26399#20837#24211#25968#37327
+        DataBinding.FieldName = 'RKS'
+        HeaderAlignmentHorz = taCenter
+        Options.Focusing = False
+        Width = 101
+      end
+      object v1Column1: TcxGridDBColumn
+        Caption = #26412#26399#22238#20179#25968#37327
+        DataBinding.FieldName = 'HCS'
+        Options.Focusing = False
+        Width = 87
+      end
+      object v1Column2: TcxGridDBColumn
+        Caption = #26412#26399#36864#36135#25968#37327
+        DataBinding.FieldName = 'THS'
+        Options.Focusing = False
+        Width = 88
+      end
+      object v2Column7: TcxGridDBColumn
+        Caption = #26412#26399#20986#24211#25968#37327
+        DataBinding.FieldName = 'CKS'
+        HeaderAlignmentHorz = taCenter
+        Options.Focusing = False
+        Width = 93
+      end
+      object v2Column8: TcxGridDBColumn
+        Caption = #24211#23384#25968#37327
+        DataBinding.FieldName = 'KCQty'
+        HeaderAlignmentHorz = taCenter
+        Options.Focusing = False
+        Width = 78
+      end
+      object v2Column9: TcxGridDBColumn
+        Caption = #31867#22411
+        DataBinding.FieldName = 'KCType'
+        PropertiesClassName = 'TcxComboBoxProperties'
+        Properties.DropDownListStyle = lsFixedList
+        Properties.Items.Strings = (
+          #20027#35201
+          #36741#21161
+          #20854#23427
+          '')
+        HeaderAlignmentHorz = taCenter
+        Width = 81
+      end
+    end
+    object cxGrid2Level1: TcxGridLevel
+      GridView = Tv1
+    end
+  end
+  object ADOQueryCmd: TADOQuery
+    Connection = DataLink_JWLCK.ADOLink
+    Parameters = <>
+    Left = 904
+    Top = 40
+  end
+  object ADOQueryMain: TADOQuery
+    Connection = DataLink_JWLCK.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 840
+    Top = 40
+  end
+  object ADOQueryTemp: TADOQuery
+    Connection = DataLink_JWLCK.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 872
+    Top = 40
+  end
+  object DataSource1: TDataSource
+    DataSet = CDS_Main
+    Left = 624
+    Top = 184
+  end
+  object cxGridPopupMenu1: TcxGridPopupMenu
+    Grid = cxGrid2
+    PopupMenus = <>
+    Left = 544
+    Top = 176
+  end
+  object CDS_Main: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 416
+    Top = 192
+  end
+end

打卷检验管理/U_CKYCLKC.pas

@@ -0,0 +1,241 @@
+unit U_CKYCLKC;
+
+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;
+
+type
+  TfrmCKYCLKC = 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;
+    Label7: TLabel;
+    YCLName: TEdit;
+    YCLSpec: TEdit;
+    GYSName: TEdit;
+    Label1: TLabel;
+    Label2: TLabel;
+    BegDate: TDateTimePicker;
+    EndDate: TDateTimePicker;
+    CDS_Main: TClientDataSet;
+    Tv1: TcxGridDBTableView;
+    cxGrid2Level1: TcxGridLevel;
+    cxGrid2: TcxGrid;
+    v2Column1: TcxGridDBColumn;
+    v2Column2: TcxGridDBColumn;
+    v2Column3: TcxGridDBColumn;
+    v2Column4: TcxGridDBColumn;
+    v2Column5: TcxGridDBColumn;
+    v2Column6: TcxGridDBColumn;
+    v2Column7: TcxGridDBColumn;
+    v2Column8: TcxGridDBColumn;
+    v2Column9: TcxGridDBColumn;
+    ToolButton1: TToolButton;
+    v1Column1: TcxGridDBColumn;
+    v1Column2: 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 YCLNameChange(Sender: TObject);
+    procedure Tv1CellDblClick(Sender: TcxCustomGridTableView;
+      ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
+      AShift: TShiftState; var AHandled: Boolean);
+    procedure ToolButton1Click(Sender: TObject);
+  private
+    procedure InitGrid();
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+var
+  frmCKYCLKC: TfrmCKYCLKC;
+
+implementation
+uses
+  U_DataLink,U_Fun,U_CRMX;
+
+{$R *.dfm}
+
+procedure TfrmCKYCLKC.FormDestroy(Sender: TObject);
+begin
+  frmCKYCLKC:=nil;
+end;
+
+procedure TfrmCKYCLKC.FormClose(Sender: TObject;
+  var Action: TCloseAction);
+begin
+  Action:=caFree;
+end;
+
+procedure TfrmCKYCLKC.FormCreate(Sender: TObject);
+begin
+  //cxGrid1.Align:=alClient;
+  BegDate.DateTime:=SGetServerDateTime(ADOQueryTemp)-30;
+  EndDate.DateTime:=SGetServerDateTime(ADOQueryTemp)
+end;
+
+procedure TfrmCKYCLKC.InitGrid();
+begin
+  try
+    ADOQueryMain.DisableControls;
+    with ADOQueryMain do
+    begin
+      Filtered:=False;
+      Close;
+      sql.Clear;
+      SQL.Add('exec CK_YCL_CRCHZ :begdate,:enddate,:CKName');
+      Parameters.ParamByName('begdate').Value:=Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime));
+      Parameters.ParamByName('enddate').Value:=Trim(FormatDateTime('yyyy-MM-dd',enddate.DateTime+1));
+      Parameters.ParamByName('CKName').Value:=Trim(DParameters1);
+      Open;
+      //ShowMessage(SQL.Text);
+    end;
+    SCreateCDS20(ADOQueryMain,CDS_Main);
+    SInitCDSData20(ADOQueryMain,CDS_Main);
+  finally
+    ADOQueryMain.EnableControls;
+  end;
+end;
+
+procedure TfrmCKYCLKC.TBRafreshClick(Sender: TObject);
+begin
+  BegDate.SetFocus;
+  InitGrid();
+end;
+
+procedure TfrmCKYCLKC.ConNoMChange(Sender: TObject);
+begin
+  if ADOQueryMain.Active then
+  begin
+    SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2));
+  end;
+end;
+
+procedure TfrmCKYCLKC.TBCloseClick(Sender: TObject);
+begin
+  WriteCxGrid('埻第蹋踱湔2',Tv1,'埻第蹋累踱');
+  Close;
+end;
+
+procedure TfrmCKYCLKC.FormShow(Sender: TObject);
+begin
+
+  ReadCxGrid('埻第蹋踱湔2',Tv1,'埻第蹋累踱');
+  if Trim(DParameters2)='埻蹋濬倰' then
+  begin
+    ToolButton1.Visible:=True;
+    v2Column9.Options.Focusing:=True;
+    v2Column9.Visible:=True;
+  end else
+  begin
+    ToolButton1.Visible:=False;
+    v2Column9.Options.Focusing:=False;
+    v2Column9.Visible:=False;
+  end;
+  InitGrid();
+end;
+
+procedure TfrmCKYCLKC.TBExportClick(Sender: TObject);
+begin
+  if ADOQueryMain.IsEmpty then exit;
+  TcxGridToExcel(Trim(DParameters1)+'踱湔',cxGrid2);
+end;
+
+procedure TfrmCKYCLKC.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 TfrmCKYCLKC.YCLNameChange(Sender: TObject);
+begin
+  TBFind.Click;
+end;
+
+procedure TfrmCKYCLKC.Tv1CellDblClick(Sender: TcxCustomGridTableView;
+  ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
+  AShift: TShiftState; var AHandled: Boolean);
+begin
+  try
+    frmCRMX:=TfrmCRMX.Create(Application);
+    with frmCRMX do
+    begin
+      Fbegdate:=FormatDateTime('yyyy-MM-dd',Self.BegDate.DateTime);
+      Fenddate:=FormatDateTime('yyyy-MM-dd',Self.enddate.DateTime+1);
+      {FGYS:=Trim(Self.CDS_Main.fieldbyname('GYS').AsString);
+      FYCLCode:=Trim(Self.CDS_Main.fieldbyname('YCLCode').AsString);
+      FYCLSpec:=Trim(Self.CDS_Main.fieldbyname('YCLSpec').AsString);
+      FCRUnit:=Trim(Self.CDS_Main.fieldbyname('KCUint').AsString);  }
+      CRID:=Trim(Self.CDS_Main.fieldbyname('CRID').AsString);
+      if ShowModal=1 then
+      begin
+
+      end;
+    end;
+  finally
+    frmCRMX.Free;
+  end;
+end;
+
+procedure TfrmCKYCLKC.ToolButton1Click(Sender: TObject);
+begin
+  try
+    ADOQueryCmd.Connection.BeginTrans;
+    BegDate.SetFocus;
+    CDS_Main.DisableControls;
+    with CDS_Main do
+    begin
+      First;
+      while not Eof do
+      begin
+        with ADOQueryCmd do
+        begin
+          Close;
+          sql.Clear;
+          sql.Add('Update CK_YCL_KC Set KCType='''+Trim(CDS_Main.fieldbyname('KCType').AsString)+'''');
+          SQL.Add(' where CRID='+CDS_Main.fieldbyname('CRID').AsString);
+          ExecSQL;
+        end;
+        Next;
+      end;
+    end;
+    CDS_Main.EnableControls;
+    ADOQueryCmd.Connection.CommitTrans;
+    Application.MessageBox('悵湔傖髡ㄐ','枑尨',0);
+  except
+    ADOQueryCmd.Connection.RollbackTrans;
+    Application.MessageBox('悵湔囮啖ㄐ','枑尨',0);
+  end;
+
+end;
+
+end.

打卷检验管理/U_ClothContractInPut.dfm

@@ -0,0 +1,653 @@
+object frmClothContractInPut: TfrmClothContractInPut
+  Left = 132
+  Top = 120
+  Width = 864
+  Height = 625
+  Caption = #22383#24067#35746#36141#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 = 856
+    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_TradeManage.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 = 856
+    Height = 241
+    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 Label5: TLabel
+      Left = 295
+      Top = 14
+      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
+    end
+    object Label3: TLabel
+      Left = 546
+      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 Label4: TLabel
+      Left = 546
+      Top = 45
+      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 Label2: TLabel
+      Left = 24
+      Top = 45
+      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 Label6: TLabel
+      Left = 295
+      Top = 45
+      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 = 298
+      Top = 89
+      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 = 77
+      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 = 544
+      Top = 77
+      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 = 137
+      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 = 298
+      Top = 137
+      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 = 177
+      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 = 209
+      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 = 181
+      Height = 18
+      TabOrder = 0
+      OnKeyPress = ConNoKeyPress
+    end
+    object FactoryNoName: TcxButtonEdit
+      Left = 359
+      Top = 10
+      Hint = 'FactoryNo'
+      BeepOnEnter = False
+      Properties.Buttons = <
+        item
+          Default = True
+          Kind = bkEllipsis
+        end>
+      Properties.OnButtonClick = FactoryNoNamePropertiesButtonClick
+      Properties.OnChange = FactoryNoNamePropertiesChange
+      TabOrder = 1
+      OnKeyDown = PRTCodeNameKeyDown
+      Width = 162
+    end
+    object PanZDY: TPanel
+      Left = 841
+      Top = 128
+      Width = 202
+      Height = 153
+      TabOrder = 2
+      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_TradeManage.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 CompanyName: TcxButtonEdit
+      Left = 609
+      Top = 10
+      BeepOnEnter = False
+      Properties.Buttons = <
+        item
+          Default = True
+          Kind = bkEllipsis
+        end>
+      Properties.OnButtonClick = CompanyNamePropertiesButtonClick
+      TabOrder = 3
+      OnKeyDown = PRTCodeNameKeyDown
+      Width = 175
+    end
+    object DeliveryDate: TDateTimePicker
+      Left = 609
+      Top = 41
+      Width = 177
+      Height = 20
+      BevelInner = bvNone
+      Date = 40916.670856296290000000
+      Format = 'yyyy-MM-dd'
+      Time = 40916.670856296290000000
+      ShowCheckbox = True
+      TabOrder = 4
+    end
+    object QDTime: TDateTimePicker
+      Left = 86
+      Top = 41
+      Width = 183
+      Height = 20
+      BevelInner = bvNone
+      Date = 40916.670856296290000000
+      Format = 'yyyy-MM-dd'
+      Time = 40916.670856296290000000
+      ShowCheckbox = True
+      TabOrder = 5
+    end
+    object QDPalce: TEdit
+      Left = 359
+      Top = 42
+      Width = 161
+      Height = 18
+      TabOrder = 6
+    end
+    object JHPlace: TcxButtonEdit
+      Left = 361
+      Top = 85
+      BeepOnEnter = False
+      Properties.Buttons = <
+        item
+          Default = True
+          Kind = bkEllipsis
+        end>
+      Properties.OnButtonClick = JHPlacePropertiesButtonClick
+      TabOrder = 7
+      Width = 162
+    end
+    object ConTK1: TcxButtonEdit
+      Left = 86
+      Top = 85
+      BeepOnEnter = False
+      Properties.Buttons = <
+        item
+          Default = True
+          Kind = bkEllipsis
+        end>
+      TabOrder = 8
+      Width = 183
+    end
+    object ConTk2: TcxButtonEdit
+      Left = 609
+      Top = 85
+      BeepOnEnter = False
+      Properties.Buttons = <
+        item
+          Default = True
+          Kind = bkEllipsis
+        end>
+      TabOrder = 9
+      Width = 179
+    end
+    object ConTK3: TcxButtonEdit
+      Left = 86
+      Top = 133
+      BeepOnEnter = False
+      Properties.Buttons = <
+        item
+          Default = True
+          Kind = bkEllipsis
+        end>
+      TabOrder = 10
+      Width = 184
+    end
+    object ConTK4: TcxButtonEdit
+      Left = 361
+      Top = 133
+      BeepOnEnter = False
+      Properties.Buttons = <
+        item
+          Default = True
+          Kind = bkEllipsis
+        end>
+      TabOrder = 11
+      Width = 162
+    end
+    object ConTK5: TcxButtonEdit
+      Left = 216
+      Top = 173
+      BeepOnEnter = False
+      Properties.Buttons = <
+        item
+          Default = True
+          Kind = bkEllipsis
+        end>
+      TabOrder = 12
+      Width = 576
+    end
+    object ConTk6: TcxButtonEdit
+      Left = 110
+      Top = 205
+      BeepOnEnter = False
+      Properties.Buttons = <
+        item
+          Default = True
+          Kind = bkEllipsis
+        end>
+      TabOrder = 13
+      Width = 683
+    end
+  end
+  object ToolBar2: TToolBar
+    Left = 0
+    Top = 270
+    Width = 856
+    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_TradeManage.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 = 299
+    Width = 856
+    Height = 289
+    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 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_TradeManage.Default
+        Width = 100
+      end
+      object v1PRTSpec: TcxGridDBColumn
+        Caption = #35268#26684#22411#21495
+        DataBinding.FieldName = 'C_Spec'
+        HeaderAlignmentHorz = taCenter
+        Options.Sorting = False
+        Styles.Header = DataLink_TradeManage.handBlack
+        Width = 103
+      end
+      object v1PRTColor: TcxGridDBColumn
+        Caption = #20811#37325'(g/'#13217')'
+        DataBinding.FieldName = 'KZQty'
+        HeaderAlignmentHorz = taCenter
+        Options.Sorting = False
+        Styles.Header = DataLink_TradeManage.handBlack
+        Width = 78
+      end
+      object v1PRTKZ: TcxGridDBColumn
+        Caption = #38376#24133'(cm)'
+        DataBinding.FieldName = 'MFQty'
+        HeaderAlignmentHorz = taCenter
+        Options.Sorting = False
+        Styles.Header = DataLink_TradeManage.handBlack
+        Width = 80
+      end
+      object v1Price: TcxGridDBColumn
+        Caption = #21333#20215
+        DataBinding.FieldName = 'Price'
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_TradeManage.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_TradeManage.handBlack
+        Width = 69
+      end
+      object v1Column5: TcxGridDBColumn
+        Caption = #21305#25968#37327
+        DataBinding.FieldName = 'Qty1'
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_TradeManage.Default
+        Width = 54
+      end
+      object v1ClothUnit: TcxGridDBColumn
+        Caption = #25968#37327
+        DataBinding.FieldName = 'C_Qty'
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_TradeManage.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_TradeManage.Default
+        Width = 64
+      end
+      object v1Column3: TcxGridDBColumn
+        Caption = #21305#25968
+        DataBinding.FieldName = 'Qty1'
+        Visible = False
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_TradeManage.Default
+        Width = 46
+      end
+      object v1Column4: TcxGridDBColumn
+        Caption = #22791#27880
+        DataBinding.FieldName = 'C_Note'
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_TradeManage.Default
+        Width = 85
+      end
+    end
+    object cxGrid1Level1: TcxGridLevel
+      GridView = Tv1
+    end
+  end
+  object ADOTemp: TADOQuery
+    Connection = DataLink_TradeManage.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 816
+    Top = 85
+  end
+  object ADOCmd: TADOQuery
+    Connection = DataLink_TradeManage.ADOLink
+    Parameters = <>
+    Left = 800
+    Top = 109
+  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
+    Top = 8
+  end
+  object ADOZDY: TADOQuery
+    Connection = DataLink_TradeManage.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 280
+    Top = 5
+  end
+  object CDS_ZDY: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 208
+    Top = 16
+  end
+  object ADOQuery1: TADOQuery
+    Connection = DataLink_TradeManage.ADOLink
+    Parameters = <>
+    Left = 792
+    Top = 125
+  end
+end

打卷检验管理/U_ClothContractInPut.pas

@@ -0,0 +1,760 @@
+unit U_ClothContractInPut;
+
+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
+  TfrmClothContractInPut = class(TForm)
+    ToolBar1: TToolBar;
+    TBSave: TToolButton;
+    TBClose: TToolButton;
+    ScrollBox1: TScrollBox;
+    Label1: TLabel;
+    ConNo: TEdit;
+    Label5: TLabel;
+    ToolBar2: TToolBar;
+    ToolButton1: TToolButton;
+    ToolButton2: TToolButton;
+    cxGrid1: TcxGrid;
+    Tv1: TcxGridDBTableView;
+    v1PRTSpec: TcxGridDBColumn;
+    v1PRTColor: TcxGridDBColumn;
+    cxGrid1Level1: TcxGridLevel;
+    v1PRTKZ: TcxGridDBColumn;
+    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;
+    v1Column3: TcxGridDBColumn;
+    PanZDY: TPanel;
+    CXGridZDY: TcxGrid;
+    TVZDY: TcxGridDBTableView;
+    VHelpZDYName: TcxGridDBColumn;
+    CXGridZDYLevel1: TcxGridLevel;
+    Button1: TButton;
+    v1Column4: TcxGridDBColumn;
+    Label3: TLabel;
+    CompanyName: TcxButtonEdit;
+    v1Column5: TcxGridDBColumn;
+    Label4: TLabel;
+    Label2: TLabel;
+    Label6: TLabel;
+    Label8: TLabel;
+    DeliveryDate: TDateTimePicker;
+    QDTime: TDateTimePicker;
+    QDPalce: TEdit;
+    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;
+    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 ConNoKeyPress(Sender: TObject; var Key: Char);
+  private
+    FXS:Integer;
+    procedure InitData();
+    procedure ZDYHelp(FButn:TcxButtonEdit;LType:string);
+    function  SaveData():Boolean;
+    { Private declarations }
+  public
+    PState:Integer;
+    FMainId,FConNo:String;
+    { Public declarations }
+  end;
+
+var
+  frmClothContractInPut: TfrmClothContractInPut;
+
+implementation
+uses
+  U_DataLink,U_ZDYHelp,U_Fun;
+
+{$R *.dfm}
+
+procedure TfrmClothContractInPut.TBCloseClick(Sender: TObject);
+begin
+  Close;
+end;
+
+procedure TfrmClothContractInPut.InitData();
+begin
+  with ADOQuery1 do
+  begin
+    Close;
+    SQL.Clear;
+    sql.Add(' exec ClothContract_QryList :MainId,:WSql');
+    if PState=1 then
+    begin
+      ADOQuery1.Parameters.ParamByName('MainId').Value:=Trim(FMainId);
+      ADOQuery1.Parameters.ParamByName('WSQl').Value:='';
+    end;
+    if PState=0 then
+    begin
+      ADOQuery1.Parameters.ParamByName('MainId').Value:=Trim(FMainId);
+      ADOQuery1.Parameters.ParamByName('WSql').Value:=' and 1<>1 ';
+    end;
+    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 Contract_Main order by FillTime desc ');
+      Open;
+    end;
+    QDTime.DateTime:=SGetServerDate(ADOTemp);
+    DeliveryDate.DateTime:=SGetServerDate(ADOTemp);
+    QDTime.Checked:=True;
+    DeliveryDate.Checked:=False;
+  end;
+  PanZDY.Visible:=False;
+end;
+
+procedure TfrmClothContractInPut.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 TfrmClothContractInPut.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 TfrmClothContractInPut.Button1Click(Sender: TObject);
+begin
+  PanZDY.Visible:=False;
+end;
+
+procedure TfrmClothContractInPut.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 TfrmClothContractInPut.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 TfrmClothContractInPut.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();
+end;
+
+function TfrmClothContractInPut.SaveData():Boolean;
+var
+  maxno:String;
+begin
+  try
+    ADOCmd.Connection.BeginTrans;
+    ///保存主表
+    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;
+        if GetLSNo(ADOTemp,maxno,'CM','Contract_Main',2,1)=False then
+        begin
+          ADOCmd.Connection.RollbackTrans;
+          Application.MessageBox('生成流水号异常！','提示',0);
+          exit;
+        end;
+      end
+      else begin
+        maxno:=Trim(FMainId);
+        Edit;
+      end;
+      FieldByName('MainId').Value:=Trim(maxno);
+      SSetsaveSql(ADOCmd,'Contract_Main',ScrollBox1,0);
+     
+      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;
+    FMainId:=Trim(maxno);
+    ///保存子表
+    with Order_Sub do
+    begin
+      First;
+      while not Eof do
+      begin
+        if Trim(Order_Sub.fieldbyname('C_Unit').AsString)='Kg' then
+        begin
+          if Trim(Order_Sub.fieldbyname('KZqty').AsString)='' then
+          begin
+            ADOCmd.Connection.RollbackTrans;
+            Application.MessageBox('克重不能为空!','提示',0);
+            Exit;
+          end;
+          if Trim(Order_Sub.fieldbyname('MFqty').AsString)='' then
+          begin
+            ADOCmd.Connection.RollbackTrans;
+            Application.MessageBox('门幅不能为空!','提示',0);
+            Exit;
+          end;
+        end;
+        if Trim(Order_Sub.fieldbyname('SubId').AsString)='' then
+        begin
+          if GetLSNo(ADOTemp,maxno,'CS','Contract_Sub',3,1)=False then
+          begin
+            ADOCmd.Connection.RollbackTrans;
+            Application.MessageBox('取子流水号失败！','提示',0);
+            Exit;
+          end;
+        end else
+        begin
+          maxno:=Trim(Order_Sub.fieldbyname('SubId').AsString);
+        end;
+        with ADOCmd do
+        begin
+          Close;
+          SQL.Clear;
+          sql.Add('select * from Contract_Sub where MainId='''+Trim(FMainId)+'''');
+          sql.Add(' and SubId='''+Trim(maxno)+'''');
+          Open;
+        end;
+        with ADOCmd do
+        begin
+          if Trim(Order_Sub.fieldbyname('SubId').AsString)='' then
+            Append
+          else
+            Edit;
+          FieldByName('MainId').Value:=Trim(FMainId);
+          FieldByName('SubId').Value:=Trim(maxno);
+          SSetSaveDataCDSNew(ADOCmd,Tv1,Order_Sub,'Contract_Sub',0);
+          if Trim(Order_Sub.fieldbyname('C_Qty').AsString)='' then
+          begin
+            FieldByName('C_Qty').Value:=0;
+          end;
+          if Trim(Order_Sub.fieldbyname('Qty1').AsString)='' then
+          begin
+            FieldByName('Qty1').Value:=0;
+          end;
+          if Trim(Order_Sub.fieldbyname('Price').AsString)='' then
+          begin
+            FieldByName('Price').Value:=0;
+          end;
+          if Trim(Order_Sub.fieldbyname('C_Unit').AsString)='Kg' then
+          begin
+            FieldByName('MQty').Value:=Order_Sub.fieldbyname('C_Qty').Value*1.00*1000
+                                       /(Order_Sub.fieldbyname('MFQty').Value*1.00/100*Order_Sub.fieldbyname('KZQty').Value);
+          end else
+          begin
+            FieldByName('MQty').Value:=Order_Sub.fieldbyname('C_Qty').Value;
+          end;
+          Post;
+        end;
+        Order_Sub.Edit;
+        Order_Sub.FieldByName('SubId').Value:=Trim(maxno);
+        //Order_Sub.Post;
+        Next;
+      end;
+    end;
+    ADOCmd.Connection.CommitTrans;
+    Result:=True;
+  except
+    Result:=False;
+    ADOCmd.Connection.RollbackTrans;
+    Application.MessageBox('保存失败！','提示',0);
+  end;
+end;
+
+procedure TfrmClothContractInPut.TBSaveClick(Sender: TObject);
+begin
+  DeliveryDate.SetFocus;
+  if Trim(ConNo.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('KZQty',null,[]) then
+  begin
+    Application.MessageBox('克重不能为空!','提示',0);
+    Exit;
+  end;
+  if Order_Sub.Locate('MFQty',null,[]) then
+  begin
+    Application.MessageBox('门幅不能为空!','提示',0);
+    Exit;
+  end;
+  if PState=1 then
+  begin
+    with ADOTemp do
+    begin
+      Close;
+      sql.Clear;
+      sql.Add('select * from Contract_Cloth_DH where MainId='''+Trim(FMainId)+'''');
+      Open;
+    end;
+    if ADOTemp.IsEmpty=False then
+    begin
+      if Trim(FConNo)<>Trim(ConNo.Text) then
+      begin
+        Application.MessageBox('已经到货不能修改合同编号!','提示',0);
+        Exit;
+      end;
+    end;
+  end;
+  if SaveData() then
+  begin
+    Application.MessageBox('保存成功！','提示',0);
+  end;
+end;
+
+procedure TfrmClothContractInPut.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 TfrmClothContractInPut.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 TfrmClothContractInPut.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 TfrmClothContractInPut.ToolButton1Click(Sender: TObject);
+begin
+  with Order_Sub do
+  begin
+    Append;
+    Post;
+  end;
+end;
+
+procedure TfrmClothContractInPut.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 TfrmClothContractInPut.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 Contract_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:='PBFactory';
+      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 TfrmClothContractInPut.v1Column1PropertiesButtonClick(
+  Sender: TObject; AButtonIndex: Integer);
+begin
+  try
+    frmZDYHelp:=TfrmZDYHelp.Create(Application);
+    with frmZDYHelp do
+    begin
+      flag:='Cloth';
+      flagname:='坯布名称';
+      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 TfrmClothContractInPut.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 TfrmClothContractInPut.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 TfrmClothContractInPut.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 TfrmClothContractInPut.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 TfrmClothContractInPut.FactoryNoNamePropertiesChange(
+  Sender: TObject);
+begin
+  {if FXS=99 then
+  begin
+    PanZDY.Visible:=False;
+    FXS:=0;
+    Exit;
+  end;
+  ZDYHelp(FactoryNoName,'FactoryNo1Name');  }
+end;
+
+procedure TfrmClothContractInPut.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 TfrmClothContractInPut.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 TfrmClothContractInPut.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;
+
+end.

打卷检验管理/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_TradeManage.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_TradeManage.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_TradeManage.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_TradeManage.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_TradeManage.Default
+        Width = 100
+      end
+      object v1PRTSpec: TcxGridDBColumn
+        Caption = #35268#26684#22411#21495
+        DataBinding.FieldName = 'C_Spec'
+        HeaderAlignmentHorz = taCenter
+        Options.Sorting = False
+        Styles.Header = DataLink_TradeManage.handBlack
+        Width = 103
+      end
+      object v1Price: TcxGridDBColumn
+        Caption = #21152#24037#21333#20215
+        DataBinding.FieldName = 'Price'
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_TradeManage.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_TradeManage.handBlack
+        Width = 69
+      end
+      object v1ClothUnit: TcxGridDBColumn
+        Caption = #25968#37327
+        DataBinding.FieldName = 'C_Qty'
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_TradeManage.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_TradeManage.Default
+        Width = 64
+      end
+      object v1Column4: TcxGridDBColumn
+        Caption = #22791#27880
+        DataBinding.FieldName = 'C_Note'
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_TradeManage.Default
+        Width = 85
+      end
+    end
+    object cxGrid1Level1: TcxGridLevel
+      GridView = Tv1
+    end
+  end
+  object ADOTemp: TADOQuery
+    Connection = DataLink_TradeManage.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 384
+    Top = 65533
+  end
+  object ADOCmd: TADOQuery
+    Connection = DataLink_TradeManage.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_TradeManage.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 280
+    Top = 65533
+  end
+  object CDS_ZDY: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 208
+  end
+  object ADOQuery1: TADOQuery
+    Connection = DataLink_TradeManage.ADOLink
+    Parameters = <>
+    Left = 456
+    Top = 5
+  end
+end

打卷检验管理/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_ZDYHelp,U_Fun;
+
+{$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.

打卷检验管理/U_ClothContractInPutPB.dfm

@@ -0,0 +1,722 @@
+object frmClothContractInPutPB: TfrmClothContractInPutPB
+  Left = 192
+  Top = 67
+  Width = 1089
+  Height = 630
+  Caption = #22383#24067#35746#36141#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
+  WindowState = wsMaximized
+  OnShow = FormShow
+  PixelsPerInch = 96
+  TextHeight = 12
+  object ToolBar1: TToolBar
+    Left = 0
+    Top = 0
+    Width = 1081
+    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_TradeManage.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 = 1081
+    Height = 244
+    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 = 546
+      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 = 431
+      Top = 246
+      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 = 24
+      Top = 46
+      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 = 546
+      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 = 295
+      Top = 14
+      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 = 295
+      Top = 46
+      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 = 78
+      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 = 546
+      Top = 78
+      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 = 138
+      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 = 295
+      Top = 90
+      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 = 178
+      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 = 210
+      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
+      ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
+      TabOrder = 0
+      OnKeyPress = ConNoKeyPress
+    end
+    object DeliveryDate: TDateTimePicker
+      Left = 609
+      Top = 42
+      Width = 177
+      Height = 20
+      BevelInner = bvNone
+      Date = 40916.000000000000000000
+      Format = 'yyyy-MM-dd'
+      Time = 40916.000000000000000000
+      ShowCheckbox = True
+      ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
+      TabOrder = 1
+    end
+    object FactoryNoName: TcxButtonEdit
+      Tag = 45
+      Left = 495
+      Top = 242
+      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_TradeManage.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 = 86
+      Top = 42
+      Width = 183
+      Height = 20
+      BevelInner = bvNone
+      Date = 40916.000000000000000000
+      Format = 'yyyy-MM-dd'
+      Time = 40916.000000000000000000
+      ShowCheckbox = True
+      ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
+      TabOrder = 4
+    end
+    object CompanyName: TcxButtonEdit
+      Left = 609
+      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 = 359
+      Top = 11
+      Width = 161
+      Height = 18
+      ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
+      TabOrder = 6
+    end
+    object JHPlace: TcxButtonEdit
+      Left = 359
+      Top = 42
+      BeepOnEnter = False
+      Properties.Buttons = <
+        item
+          Default = True
+          Kind = bkEllipsis
+        end>
+      Properties.OnButtonClick = JHPlacePropertiesButtonClick
+      TabOrder = 7
+      Width = 162
+    end
+    object ConTK1: TcxButtonEdit
+      Left = 86
+      Top = 86
+      BeepOnEnter = False
+      Properties.Buttons = <
+        item
+          Default = True
+          Kind = bkEllipsis
+        end>
+      Properties.OnButtonClick = ConTK1PropertiesButtonClick
+      TabOrder = 8
+      Width = 183
+    end
+    object ConTk2: TcxButtonEdit
+      Left = 609
+      Top = 86
+      BeepOnEnter = False
+      Properties.Buttons = <
+        item
+          Default = True
+          Kind = bkEllipsis
+        end>
+      Properties.OnButtonClick = ConTk2PropertiesButtonClick
+      TabOrder = 9
+      Width = 178
+    end
+    object ConTK3: TcxButtonEdit
+      Left = 86
+      Top = 134
+      BeepOnEnter = False
+      Properties.Buttons = <
+        item
+          Default = True
+          Kind = bkEllipsis
+        end>
+      Properties.OnButtonClick = ConTK3PropertiesButtonClick
+      TabOrder = 10
+      Width = 702
+    end
+    object ConTK4: TcxButtonEdit
+      Left = 359
+      Top = 86
+      BeepOnEnter = False
+      Properties.Buttons = <
+        item
+          Default = True
+          Kind = bkEllipsis
+        end>
+      Properties.OnButtonClick = ConTK4PropertiesButtonClick
+      TabOrder = 11
+      Width = 162
+    end
+    object ConTK5: TcxButtonEdit
+      Left = 216
+      Top = 174
+      BeepOnEnter = False
+      Properties.Buttons = <
+        item
+          Default = True
+          Kind = bkEllipsis
+        end>
+      Properties.OnButtonClick = ConTK5PropertiesButtonClick
+      TabOrder = 12
+      Width = 572
+    end
+    object ConTk6: TcxButtonEdit
+      Left = 110
+      Top = 206
+      BeepOnEnter = False
+      Properties.Buttons = <
+        item
+          Default = True
+          Kind = bkEllipsis
+        end>
+      Properties.OnButtonClick = ConTk6PropertiesButtonClick
+      TabOrder = 13
+      Width = 679
+    end
+  end
+  object ToolBar2: TToolBar
+    Left = 0
+    Top = 273
+    Width = 1081
+    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_TradeManage.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 = 302
+    Width = 1081
+    Height = 294
+    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
+      Styles.Header = DataLink_TradeManage.Default
+      object v1Column7: TcxGridDBColumn
+        Tag = 99
+        Caption = #20379#26041
+        DataBinding.FieldName = 'FactoryNoName'
+        PropertiesClassName = 'TcxButtonEditProperties'
+        Properties.Buttons = <
+          item
+            Default = True
+            Kind = bkEllipsis
+          end>
+        Properties.OnButtonClick = v1Column7PropertiesButtonClick
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_TradeManage.Default
+        Width = 96
+      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_TradeManage.Default
+        Width = 81
+      end
+      object v1PRTSpec: TcxGridDBColumn
+        Caption = #35268#26684#22411#21495
+        DataBinding.FieldName = 'C_Spec'
+        HeaderAlignmentHorz = taCenter
+        Options.Sorting = False
+        Styles.Header = DataLink_TradeManage.handBlack
+        Width = 67
+      end
+      object v1Column3: TcxGridDBColumn
+        Caption = #38376#24133'(cm)'
+        DataBinding.FieldName = 'MFQty'
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_TradeManage.Default
+        Width = 64
+      end
+      object v1Column5: TcxGridDBColumn
+        Caption = #20811#37325'(g/'#13217')'
+        DataBinding.FieldName = 'KZQty'
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_TradeManage.Default
+        Width = 74
+      end
+      object v1Price: TcxGridDBColumn
+        Caption = #21333#20215
+        DataBinding.FieldName = 'Price'
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_TradeManage.handBlack
+        Width = 49
+      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_TradeManage.handBlack
+        Width = 41
+      end
+      object v1Column6: TcxGridDBColumn
+        Caption = #21305#25968
+        DataBinding.FieldName = 'Qty1'
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_TradeManage.Default
+        Width = 50
+      end
+      object v1ClothUnit: TcxGridDBColumn
+        Caption = #25968#37327
+        DataBinding.FieldName = 'C_Qty'
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_TradeManage.handBlack
+        Width = 47
+      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_TradeManage.Default
+        Width = 67
+      end
+      object v1Column8: TcxGridDBColumn
+        Caption = #35746#21333#25968#37327
+        DataBinding.FieldName = 'Sdefstr1'
+        HeaderAlignmentHorz = taCenter
+        Width = 67
+      end
+      object v1Column9: TcxGridDBColumn
+        Caption = #35745#21010#32553#29575'(%)'
+        DataBinding.FieldName = 'Qty2'
+        HeaderAlignmentHorz = taCenter
+        Width = 85
+      end
+      object v1Column10: TcxGridDBColumn
+        Caption = #26579#21378
+        DataBinding.FieldName = 'Sdefstr2'
+        PropertiesClassName = 'TcxButtonEditProperties'
+        Properties.Buttons = <
+          item
+            Default = True
+            Kind = bkEllipsis
+          end>
+        Properties.OnButtonClick = v1Column10PropertiesButtonClick
+        HeaderAlignmentHorz = taCenter
+        Width = 81
+      end
+      object v1Column11: TcxGridDBColumn
+        Caption = #26579#21378#24037#33402
+        DataBinding.FieldName = 'Sdefstr3'
+        HeaderAlignmentHorz = taCenter
+        Width = 70
+      end
+      object v1Column12: TcxGridDBColumn
+        Caption = #26579#21378#20215#26684
+        DataBinding.FieldName = 'Sdefstr4'
+        HeaderAlignmentHorz = taCenter
+        Width = 60
+      end
+      object v1Column13: TcxGridDBColumn
+        Caption = #25351#31034#21333#21495
+        DataBinding.FieldName = 'Sdefstr5'
+        HeaderAlignmentHorz = taCenter
+        Width = 80
+      end
+      object v1Column14: TcxGridDBColumn
+        Caption = #24037#21378#32534#21495
+        DataBinding.FieldName = 'Sdefstr6'
+        HeaderAlignmentHorz = taCenter
+        Width = 80
+      end
+      object v1Column4: TcxGridDBColumn
+        Caption = #22791#27880
+        DataBinding.FieldName = 'C_Note'
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_TradeManage.Default
+        Width = 118
+      end
+    end
+    object cxGrid1Level1: TcxGridLevel
+      GridView = Tv1
+    end
+  end
+  object ADOTemp: TADOQuery
+    Connection = DataLink_TradeManage.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 384
+    Top = 13
+  end
+  object ADOCmd: TADOQuery
+    Connection = DataLink_TradeManage.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
+    Top = 8
+  end
+  object ADOZDY: TADOQuery
+    Connection = DataLink_TradeManage.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 280
+    Top = 5
+  end
+  object CDS_ZDY: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 208
+    Top = 16
+  end
+  object ADOQuery1: TADOQuery
+    Connection = DataLink_TradeManage.ADOLink
+    Parameters = <>
+    Left = 456
+    Top = 13
+  end
+end

打卷检验管理/U_ClothContractInPutPB.pas

@@ -0,0 +1,976 @@
+unit U_ClothContractInPutPB;
+
+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
+  TfrmClothContractInPutPB = 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;
+    v1Column5: TcxGridDBColumn;
+    v1Column6: TcxGridDBColumn;
+    v1Column7: TcxGridDBColumn;
+    v1Column8: TcxGridDBColumn;
+    v1Column9: TcxGridDBColumn;
+    v1Column10: TcxGridDBColumn;
+    v1Column11: TcxGridDBColumn;
+    v1Column12: TcxGridDBColumn;
+    v1Column13: TcxGridDBColumn;
+    v1Column14: 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 v1Column7PropertiesButtonClick(Sender: TObject;
+      AButtonIndex: Integer);
+    procedure v1Column10PropertiesButtonClick(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:String;
+    { Public declarations }
+  end;
+
+var
+  frmClothContractInPutPB: TfrmClothContractInPutPB;
+
+implementation
+uses
+  U_DataLink,U_ZDYHelp,U_Fun;
+
+{$R *.dfm}
+
+procedure TfrmClothContractInPutPB.TBCloseClick(Sender: TObject);
+begin
+  Close;
+end;
+
+procedure TfrmClothContractInPutPB.InitData();
+begin
+  with ADOQuery1 do
+  begin
+    Close;
+    SQL.Clear;
+    sql.Add(' exec ClothContract_QryList :MainId,:WSql');
+    if PState=1 then
+    begin
+      ADOQuery1.Parameters.ParamByName('MainId').Value:=Trim(FMainId);
+      ADOQuery1.Parameters.ParamByName('WSQl').Value:='';
+    end;
+    if PState=0 then
+    begin
+      ADOQuery1.Parameters.ParamByName('MainId').Value:=Trim(FMainId);
+      ADOQuery1.Parameters.ParamByName('WSql').Value:=' and 1<>1 ';
+    end;
+    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 Contract_Main order by FillTime desc ');
+      Open;
+    end;
+    QDTime.DateTime:=SGetServerDate(ADOTemp);
+    DeliveryDate.DateTime:=SGetServerDate(ADOTemp);
+    QDTime.Checked:=True;
+    DeliveryDate.Checked:=False;
+  end;
+  PanZDY.Visible:=False;
+end;
+
+procedure TfrmClothContractInPutPB.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 TfrmClothContractInPutPB.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 TfrmClothContractInPutPB.Button1Click(Sender: TObject);
+begin
+  PanZDY.Visible:=False;
+end;
+
+procedure TfrmClothContractInPutPB.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 TfrmClothContractInPutPB.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 TfrmClothContractInPutPB.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 TfrmClothContractInPutPB.SaveData():Boolean;
+var
+  maxno,maxSubNo:String;
+begin
+  try
+    ADOCmd.Connection.BeginTrans;
+    ///保存主表
+
+    //FMainId:=Trim(maxno);
+    ///保存子表
+    with Order_Sub do
+    begin
+      First;
+      while not Eof do
+      begin
+        if Trim(Order_Sub.fieldbyname('SubId').AsString)='' then
+        begin
+          if GetLSNo(ADOCmd,maxno,'PM','Contract_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 Contract_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,'Contract_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);
+          Post;
+        end;
+        if Trim(Order_Sub.fieldbyname('SubId').AsString)='' then
+        begin
+          if GetLSNo(ADOCmd,maxSubNo,'PS','Contract_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 Contract_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,'Contract_Sub',0);
+          FieldByName('C_Unit').Value:=Trim(Order_Sub.fieldbyname('C_Unit').AsString);
+          if Trim(Order_Sub.fieldbyname('C_Qty').AsString)='' then
+          begin
+            FieldByName('C_Qty').Value:=0;
+          end;
+          if Trim(Order_Sub.fieldbyname('Qty1').AsString)='' then
+          begin
+            FieldByName('Qty1').Value:=0;
+          end;
+          if Trim(Order_Sub.fieldbyname('Price').AsString)='' then
+          begin
+            FieldByName('Price').Value:=0;
+          end;
+          if Trim(Order_Sub.fieldbyname('C_Unit').AsString)='Kg' then
+          begin
+            FieldByName('MQty').Value:=Order_Sub.fieldbyname('C_Qty').Value*1.00*1000
+                                       /(Order_Sub.fieldbyname('MFQty').Value*1.00/100*Order_Sub.fieldbyname('KZQty').Value);
+          end else
+          begin
+            FieldByName('MQty').Value:=Order_Sub.fieldbyname('C_Qty').Value;
+          end;
+          FieldByName('C_Note').Value:=trim(Order_Sub.fieldbyname('C_Note').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 TfrmClothContractInPutPB.TBSaveClick(Sender: TObject);
+begin
+  DeliveryDate.SetFocus;
+  if Trim(ConNo.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('FactoryNoName',null,[]) then
+  begin
+    Application.MessageBox('供方不能为空!','提示',0);
+    Exit;
+  end;
+  if PState=1 then
+  begin
+  {  with ADOTemp do
+    begin
+      Close;
+      sql.Clear;
+      sql.Add('select * from Contract_Cloth_DH where MainId='''+Trim(FMainId)+'''');
+      sql.Add(' and Isnull(DHTYpe,'''')='''' ');
+      Open;
+    end;
+    if ADOTemp.IsEmpty=False then
+    begin
+      if Trim(FConNo)<>Trim(ConNo.Text) then
+      begin
+        Application.MessageBox('已经到货不能修改合同编号!','提示',0);
+        Exit;
+      end;
+    end; }
+  end;
+  if SaveData() then
+  begin
+    Application.MessageBox('保存成功！','提示',0);
+    ModalResult:=1;
+  end;
+end;
+
+procedure TfrmClothContractInPutPB.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 TfrmClothContractInPutPB.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 TfrmClothContractInPutPB.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 TfrmClothContractInPutPB.ToolButton1Click(Sender: TObject);
+begin
+  with Order_Sub do
+  begin
+    Append;
+    Post;
+  end;
+end;
+
+procedure TfrmClothContractInPutPB.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 TfrmClothContractInPutPB.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 Contract_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:='PBFactory';
+      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 TfrmClothContractInPutPB.v1Column1PropertiesButtonClick(
+  Sender: TObject; AButtonIndex: Integer);
+begin
+  try
+    frmZDYHelp:=TfrmZDYHelp.Create(Application);
+    with frmZDYHelp do
+    begin
+      flag:='Cloth';
+      flagname:='坯布名称';
+      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 TfrmClothContractInPutPB.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 TfrmClothContractInPutPB.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 TfrmClothContractInPutPB.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 TfrmClothContractInPutPB.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 TfrmClothContractInPutPB.FactoryNoNamePropertiesChange(
+  Sender: TObject);
+begin
+  {if FXS=99 then
+  begin
+    PanZDY.Visible:=False;
+    FXS:=0;
+    Exit;
+  end;
+  ZDYHelp(FactoryNoName,'FactoryNo1Name');  }
+end;
+
+procedure TfrmClothContractInPutPB.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 TfrmClothContractInPutPB.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 TfrmClothContractInPutPB.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 TfrmClothContractInPutPB.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 TfrmClothContractInPutPB.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 TfrmClothContractInPutPB.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 TfrmClothContractInPutPB.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 TfrmClothContractInPutPB.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 TfrmClothContractInPutPB.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('PBFactory').AsString);
+    end;
+  end;
+end;
+
+procedure TfrmClothContractInPutPB.v1Column7PropertiesButtonClick(
+  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 Contract_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:='PBFactory';
+      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 TfrmClothContractInPutPB.v1Column10PropertiesButtonClick(
+  Sender: TObject; AButtonIndex: Integer);
+begin
+   try
+    frmZDYHelp:=TfrmZDYHelp.Create(Application);
+    with frmZDYHelp do
+    begin
+      flag:='Factory';
+      flagname:='供方';
+      MainType:='PBFactory';
+      if ShowModal=1 then
+      begin
+        with Order_Sub do
+        begin
+          Edit;
+          FieldByName('Sdefstr2').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
+        end;
+      end;
+    end;
+  finally
+    frmZDYHelp.Free;
+  end;
+end;
+
+end.

打卷检验管理/U_ClothContractInPutSX.dfm

@@ -0,0 +1,633 @@
+object frmClothContractInPutSX: TfrmClothContractInPutSX
+  Left = 198
+  Top = 112
+  Width = 831
+  Height = 622
+  Caption = #32433#32447#35746#36141#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 = 823
+    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_TradeManage.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 = 823
+    Height = 250
+    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 = 546
+      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 = 295
+      Top = 14
+      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
+    end
+    object Label2: TLabel
+      Left = 24
+      Top = 46
+      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 = 546
+      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 = 295
+      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 = 298
+      Top = 90
+      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 = 78
+      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 = 544
+      Top = 78
+      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 = 138
+      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 = 298
+      Top = 138
+      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 = 178
+      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 = 210
+      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 = 609
+      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
+      Left = 359
+      Top = 10
+      Hint = 'FactoryNo'
+      BeepOnEnter = False
+      Properties.Buttons = <
+        item
+          Default = True
+          Kind = bkEllipsis
+        end>
+      Properties.OnButtonClick = FactoryNoNamePropertiesButtonClick
+      Properties.OnChange = FactoryNoNamePropertiesChange
+      TabOrder = 2
+      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_TradeManage.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 = 86
+      Top = 42
+      Width = 183
+      Height = 20
+      BevelInner = bvNone
+      Date = 40916.670856296290000000
+      Format = 'yyyy-MM-dd'
+      Time = 40916.670856296290000000
+      ShowCheckbox = True
+      TabOrder = 4
+    end
+    object CompanyName: TcxButtonEdit
+      Left = 609
+      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 = 359
+      Top = 43
+      Width = 161
+      Height = 18
+      TabOrder = 6
+    end
+    object JHPlace: TcxButtonEdit
+      Left = 361
+      Top = 86
+      BeepOnEnter = False
+      Properties.Buttons = <
+        item
+          Default = True
+          Kind = bkEllipsis
+        end>
+      Properties.OnButtonClick = JHPlacePropertiesButtonClick
+      TabOrder = 7
+      Width = 162
+    end
+    object ConTK1: TcxButtonEdit
+      Left = 86
+      Top = 86
+      BeepOnEnter = False
+      Properties.Buttons = <
+        item
+          Default = True
+          Kind = bkEllipsis
+        end>
+      Properties.OnButtonClick = ConTK1PropertiesButtonClick
+      TabOrder = 8
+      Width = 183
+    end
+    object ConTk2: TcxButtonEdit
+      Left = 609
+      Top = 86
+      BeepOnEnter = False
+      Properties.Buttons = <
+        item
+          Default = True
+          Kind = bkEllipsis
+        end>
+      Properties.OnButtonClick = ConTk2PropertiesButtonClick
+      TabOrder = 9
+      Width = 179
+    end
+    object ConTK3: TcxButtonEdit
+      Left = 86
+      Top = 134
+      BeepOnEnter = False
+      Properties.Buttons = <
+        item
+          Default = True
+          Kind = bkEllipsis
+        end>
+      Properties.OnButtonClick = ConTK3PropertiesButtonClick
+      TabOrder = 10
+      Width = 184
+    end
+    object ConTK4: TcxButtonEdit
+      Left = 361
+      Top = 134
+      BeepOnEnter = False
+      Properties.Buttons = <
+        item
+          Default = True
+          Kind = bkEllipsis
+        end>
+      Properties.OnButtonClick = ConTK4PropertiesButtonClick
+      TabOrder = 11
+      Width = 162
+    end
+    object ConTK5: TcxButtonEdit
+      Left = 216
+      Top = 174
+      BeepOnEnter = False
+      Properties.Buttons = <
+        item
+          Default = True
+          Kind = bkEllipsis
+        end>
+      Properties.OnButtonClick = ConTK5PropertiesButtonClick
+      TabOrder = 12
+      Width = 576
+    end
+    object ConTk6: TcxButtonEdit
+      Left = 110
+      Top = 206
+      BeepOnEnter = False
+      Properties.Buttons = <
+        item
+          Default = True
+          Kind = bkEllipsis
+        end>
+      Properties.OnButtonClick = ConTk6PropertiesButtonClick
+      TabOrder = 13
+      Width = 683
+    end
+  end
+  object ToolBar2: TToolBar
+    Left = 0
+    Top = 279
+    Width = 823
+    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_TradeManage.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 = 308
+    Width = 823
+    Height = 277
+    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
+        Caption = #20379#26041
+        DataBinding.FieldName = 'FactoryNoName'
+        Width = 112
+      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_TradeManage.Default
+        Width = 100
+      end
+      object v1PRTSpec: TcxGridDBColumn
+        Caption = #35268#26684#22411#21495
+        DataBinding.FieldName = 'C_Spec'
+        HeaderAlignmentHorz = taCenter
+        Options.Sorting = False
+        Styles.Header = DataLink_TradeManage.handBlack
+        Width = 103
+      end
+      object v1Price: TcxGridDBColumn
+        Caption = #21333#20215
+        DataBinding.FieldName = 'Price'
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_TradeManage.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_TradeManage.handBlack
+        Width = 69
+      end
+      object v1ClothUnit: TcxGridDBColumn
+        Caption = #25968#37327
+        DataBinding.FieldName = 'C_Qty'
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_TradeManage.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_TradeManage.Default
+        Width = 64
+      end
+      object v1Column4: TcxGridDBColumn
+        Caption = #22791#27880
+        DataBinding.FieldName = 'C_Note'
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_TradeManage.Default
+        Width = 85
+      end
+    end
+    object cxGrid1Level1: TcxGridLevel
+      GridView = Tv1
+    end
+  end
+  object ADOTemp: TADOQuery
+    Connection = DataLink_TradeManage.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 384
+    Top = 13
+  end
+  object ADOCmd: TADOQuery
+    Connection = DataLink_TradeManage.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
+    Top = 8
+  end
+  object ADOZDY: TADOQuery
+    Connection = DataLink_TradeManage.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 280
+    Top = 5
+  end
+  object CDS_ZDY: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 208
+    Top = 16
+  end
+  object ADOQuery1: TADOQuery
+    Connection = DataLink_TradeManage.ADOLink
+    Parameters = <>
+    Left = 456
+    Top = 13
+  end
+end

打卷检验管理/U_ClothContractInPutSX.pas

@@ -0,0 +1,854 @@
+unit U_ClothContractInPutSX;
+
+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
+  TfrmClothContractInPutSX = 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);
+  private
+    FXS:Integer;
+    procedure InitData();
+    procedure ZDYHelp(FButn:TcxButtonEdit;LType:string);
+    function  SaveData():Boolean;
+    { Private declarations }
+  public
+    PState:Integer;
+    FMainId,FConNo:String;
+    { Public declarations }
+  end;
+
+var
+  frmClothContractInPutSX: TfrmClothContractInPutSX;
+
+implementation
+uses
+  U_DataLink,U_ZDYHelp,U_Fun;
+
+{$R *.dfm}
+
+procedure TfrmClothContractInPutSX.TBCloseClick(Sender: TObject);
+begin
+  Close;
+end;
+
+procedure TfrmClothContractInPutSX.InitData();
+begin
+  with ADOQuery1 do
+  begin
+    Close;
+    SQL.Clear;
+    sql.Add(' exec ClothContractSX_QryList :MainId,:WSql');
+    if PState=1 then
+    begin
+      ADOQuery1.Parameters.ParamByName('MainId').Value:=Trim(FMainId);
+      ADOQuery1.Parameters.ParamByName('WSQl').Value:='';
+    end;
+    if PState=0 then
+    begin
+      ADOQuery1.Parameters.ParamByName('MainId').Value:=Trim(FMainId);
+      ADOQuery1.Parameters.ParamByName('WSql').Value:=' and 1<>1 ';
+    end;
+    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 ContractSX_Main order by FillTime desc ');
+      Open;
+    end;
+    QDTime.DateTime:=SGetServerDate(ADOTemp);
+    DeliveryDate.DateTime:=SGetServerDate(ADOTemp);
+    QDTime.Checked:=True;
+    DeliveryDate.Checked:=False;
+    QDPalce.Text:='柯桥';
+  end;
+  PanZDY.Visible:=False;
+end;
+
+procedure TfrmClothContractInPutSX.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 TfrmClothContractInPutSX.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 TfrmClothContractInPutSX.Button1Click(Sender: TObject);
+begin
+  PanZDY.Visible:=False;
+end;
+
+procedure TfrmClothContractInPutSX.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 TfrmClothContractInPutSX.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 TfrmClothContractInPutSX.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();
+end;
+
+function TfrmClothContractInPutSX.SaveData():Boolean;
+var
+  maxno:String;
+begin
+  try
+    ADOCmd.Connection.BeginTrans;
+    ///保存主表
+    if Trim(FMainId)='' then
+    begin
+      if GetLSNo(ADOCmd,maxno,'SM','ContractSX_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 ContractSX_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);
+      SSetsaveSql(ADOCmd,'ContractSX_Main',ScrollBox1,0);
+      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;
+    FMainId:=Trim(maxno);
+    ///保存子表
+    with Order_Sub do
+    begin
+      First;
+      while not Eof do
+      begin
+        if Trim(Order_Sub.fieldbyname('SubId').AsString)='' then
+        begin
+          if GetLSNo(ADOCmd,maxno,'SS','ContractSX_Sub',3,1)=False then
+          begin
+            ADOCmd.Connection.RollbackTrans;
+            Application.MessageBox('取子流水号失败！','提示',0);
+            Exit;
+          end;
+        end else
+        begin
+          maxno:=Trim(Order_Sub.fieldbyname('SubId').AsString);
+        end;
+        with ADOCmd do
+        begin
+          Close;
+          SQL.Clear;
+          sql.Add('select * from ContractSX_Sub where MainId='''+Trim(FMainId)+'''');
+          sql.Add(' and SubId='''+Trim(maxno)+'''');
+          Open;
+        end;
+        with ADOCmd do
+        begin
+          if Trim(Order_Sub.fieldbyname('SubId').AsString)='' then
+            Append
+          else
+            Edit;
+          FieldByName('MainId').Value:=Trim(FMainId);
+          FieldByName('SubId').Value:=Trim(maxno);
+          SSetSaveDataCDSNew(ADOCmd,Tv1,Order_Sub,'ContractSX_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;
+          Post;
+        end;
+        Order_Sub.Edit;
+        Order_Sub.FieldByName('SubId').Value:=Trim(maxno);
+        //Order_Sub.Post;
+        Next;
+      end;
+    end;
+    ADOCmd.Connection.CommitTrans;
+    Result:=True;
+  except
+    Result:=False;
+    ADOCmd.Connection.RollbackTrans;
+    Application.MessageBox('保存失败！','提示',0);
+  end;
+end;
+
+procedure TfrmClothContractInPutSX.TBSaveClick(Sender: TObject);
+begin
+  DeliveryDate.SetFocus;
+  if Trim(ConNo.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 PState=1 then
+  begin
+    with ADOTemp do
+    begin
+      Close;
+      sql.Clear;
+      sql.Add('select * from ContractSX_Cloth_DH where MainId='''+Trim(FMainId)+'''');
+      Open;
+    end;
+    if ADOTemp.IsEmpty=False then
+    begin
+      if Trim(FConNo)<>Trim(ConNo.Text) then
+      begin
+        Application.MessageBox('已经到货不能修改合同编号!','提示',0);
+        Exit;
+      end;
+    end;
+  end;
+  if SaveData() then
+  begin
+    Application.MessageBox('保存成功！','提示',0);
+  end;
+end;
+
+procedure TfrmClothContractInPutSX.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 TfrmClothContractInPutSX.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 TfrmClothContractInPutSX.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 TfrmClothContractInPutSX.ToolButton1Click(Sender: TObject);
+begin
+  with Order_Sub do
+  begin
+    Append;
+    Post;
+  end;
+end;
+
+procedure TfrmClothContractInPutSX.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 TfrmClothContractInPutSX.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 TfrmClothContractInPutSX.v1Column1PropertiesButtonClick(
+  Sender: TObject; AButtonIndex: Integer);
+begin
+  try
+    frmZDYHelp:=TfrmZDYHelp.Create(Application);
+    with frmZDYHelp do
+    begin
+      flag:='ClothSX';
+      flagname:='纱线名称';
+      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 TfrmClothContractInPutSX.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 TfrmClothContractInPutSX.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 TfrmClothContractInPutSX.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 TfrmClothContractInPutSX.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 TfrmClothContractInPutSX.FactoryNoNamePropertiesChange(
+  Sender: TObject);
+begin
+  {if FXS=99 then
+  begin
+    PanZDY.Visible:=False;
+    FXS:=0;
+    Exit;
+  end;
+  ZDYHelp(FactoryNoName,'FactoryNo1Name');  }
+end;
+
+procedure TfrmClothContractInPutSX.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 TfrmClothContractInPutSX.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 TfrmClothContractInPutSX.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 TfrmClothContractInPutSX.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 TfrmClothContractInPutSX.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 TfrmClothContractInPutSX.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 TfrmClothContractInPutSX.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 TfrmClothContractInPutSX.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 TfrmClothContractInPutSX.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;
+
+end.

打卷检验管理/U_ClothContractInPutSXMX.dfm

@@ -0,0 +1,647 @@
+object frmClothContractInPutSXMX: TfrmClothContractInPutSXMX
+  Left = 198
+  Top = 90
+  Width = 831
+  Height = 622
+  Caption = #32433#32447#35746#36141#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_TradeManage.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_TradeManage.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
+      Text = #26607#26725
+    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_TradeManage.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 = #20379#26041
+        DataBinding.FieldName = 'FactoryNoName'
+        PropertiesClassName = 'TcxButtonEditProperties'
+        Properties.Buttons = <
+          item
+            Default = True
+            Kind = bkEllipsis
+          end>
+        Properties.ReadOnly = True
+        Properties.OnButtonClick = v1Column3PropertiesButtonClick
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_TradeManage.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_TradeManage.Default
+        Width = 100
+      end
+      object v1PRTSpec: TcxGridDBColumn
+        Caption = #35268#26684#22411#21495
+        DataBinding.FieldName = 'C_Spec'
+        HeaderAlignmentHorz = taCenter
+        Options.Sorting = False
+        Styles.Header = DataLink_TradeManage.handBlack
+        Width = 103
+      end
+      object v1Price: TcxGridDBColumn
+        Caption = #21333#20215
+        DataBinding.FieldName = 'Price'
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_TradeManage.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_TradeManage.handBlack
+        Width = 69
+      end
+      object v1ClothUnit: TcxGridDBColumn
+        Caption = #25968#37327
+        DataBinding.FieldName = 'C_Qty'
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_TradeManage.handBlack
+        Width = 69
+      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'
+          'Kg')
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_TradeManage.Default
+        Width = 63
+      end
+      object v1Column4: TcxGridDBColumn
+        Caption = #22791#27880
+        DataBinding.FieldName = 'C_Note'
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_TradeManage.Default
+        Width = 85
+      end
+    end
+    object cxGrid1Level1: TcxGridLevel
+      GridView = Tv1
+    end
+  end
+  object ADOTemp: TADOQuery
+    Connection = DataLink_TradeManage.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 384
+    Top = 65533
+  end
+  object ADOCmd: TADOQuery
+    Connection = DataLink_TradeManage.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_TradeManage.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 280
+    Top = 65533
+  end
+  object CDS_ZDY: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 208
+  end
+  object ADOQuery1: TADOQuery
+    Connection = DataLink_TradeManage.ADOLink
+    Parameters = <>
+    Left = 456
+    Top = 5
+  end
+end

打卷检验管理/U_ClothContractInPutSXMX.pas

@@ -0,0 +1,931 @@
+unit U_ClothContractInPutSXMX;
+
+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
+  TfrmClothContractInPutSXMX = 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;
+    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;
+    v1Column2: 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:String;
+
+    { Public declarations }
+  end;
+
+var
+  frmClothContractInPutSXMX: TfrmClothContractInPutSXMX;
+
+implementation
+uses
+  U_DataLink,U_ZDYHelp,U_Fun;
+
+{$R *.dfm}
+
+procedure TfrmClothContractInPutSXMX.TBCloseClick(Sender: TObject);
+begin
+  Close;
+end;
+
+procedure TfrmClothContractInPutSXMX.InitData();
+begin
+  with ADOQuery1 do
+  begin
+    Close;
+    SQL.Clear;
+    sql.Add(' exec ClothContractSX_QryList :MainId,:WSql');
+    if PState=1 then
+    begin
+      ADOQuery1.Parameters.ParamByName('MainId').Value:=Trim(FMainId);
+      ADOQuery1.Parameters.ParamByName('WSQl').Value:='';
+    end;
+    if PState=0 then
+    begin
+      ADOQuery1.Parameters.ParamByName('MainId').Value:=Trim(FMainId);
+      ADOQuery1.Parameters.ParamByName('WSql').Value:=' and 1<>1 ';
+    end;
+    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 ContractSX_Main order by FillTime desc ');
+      Open;
+    end;
+    QDTime.DateTime:=SGetServerDate(ADOTemp);
+    DeliveryDate.DateTime:=SGetServerDate(ADOTemp);
+    QDTime.Checked:=True;
+    DeliveryDate.Checked:=False;
+    QDPalce.Text:='柯桥';
+  end;
+  PanZDY.Visible:=False;
+end;
+
+procedure TfrmClothContractInPutSXMX.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 TfrmClothContractInPutSXMX.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 TfrmClothContractInPutSXMX.Button1Click(Sender: TObject);
+begin
+  PanZDY.Visible:=False;
+end;
+
+procedure TfrmClothContractInPutSXMX.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 TfrmClothContractInPutSXMX.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 TfrmClothContractInPutSXMX.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 TfrmClothContractInPutSXMX.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,'SM','ContractSX_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 ContractSX_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);
+          Post;
+        end;
+        if Trim(Order_Sub.fieldbyname('SubId').AsString)='' then
+        begin
+          if GetLSNo(ADOCmd,maxSubNo,'SS','ContractSX_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 ContractSX_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
+            ADOCmd.Append
+          else
+            ADOCmd.Edit;
+          FieldByName('MainId').Value:=Trim(maxno);
+          FieldByName('SubId').Value:=Trim(maxSubNo);
+          FieldByName('C_Unit').Value:=Trim(Order_Sub.fieldbyname('C_Unit').AsString);
+          SSetSaveDataCDSNew(ADOCmd,Tv1,Order_Sub,'ContractSX_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;
+          ADOCmd.FieldByName('C_Unit').Value:=Trim(Order_Sub.fieldbyname('C_Unit').AsString);
+          ADOCmd.Post;
+        end;
+        Order_Sub.Edit;
+        Order_Sub.FieldByName('SubId').Value:=Trim(maxSubNo);
+        with ADOCmd do
+        begin
+          Close;
+          sql.Clear;
+          sql.Add('Update ContractSX_Sub Set C_Unit='''+Trim(Order_Sub.fieldbyname('C_Unit').AsString)+'''');
+          sql.Add(' where Subid='''+Trim(Order_Sub.fieldbyname('Subid').AsString)+'''');
+          ExecSQL;
+        end;
+        //Order_Sub.Post;
+        Next;
+      end;
+    end;
+    ADOCmd.Connection.CommitTrans;
+    Result:=True;
+  except
+    Result:=False;
+    ADOCmd.Connection.RollbackTrans;
+    Application.MessageBox('保存失败！','提示',0);
+  end;
+end;
+
+procedure TfrmClothContractInPutSXMX.TBSaveClick(Sender: TObject);
+begin
+  DeliveryDate.SetFocus;
+  if Trim(ConNo.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('FactoryNoName',null,[]) then
+  begin
+    Application.MessageBox('供方不能为空!','提示',0);
+    Exit;
+  end;
+  if PState=1 then
+  begin
+    with ADOTemp do
+    begin
+      Close;
+      sql.Clear;
+      sql.Add('select * from ContractSX_Cloth_DH where MainId='''+Trim(FMainId)+'''');
+      Open;
+    end;
+    if ADOTemp.IsEmpty=False then
+    begin
+      if Trim(FConNo)<>Trim(ConNo.Text) then
+      begin
+        Application.MessageBox('已经到货不能修改合同编号!','提示',0);
+        Exit;
+      end;
+    end;
+  end;
+  if SaveData() then
+  begin
+    Application.MessageBox('保存成功！','提示',0);
+    ModalResult:=1;
+  end;
+
+end;
+
+procedure TfrmClothContractInPutSXMX.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 TfrmClothContractInPutSXMX.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 TfrmClothContractInPutSXMX.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 TfrmClothContractInPutSXMX.ToolButton1Click(Sender: TObject);
+begin
+  with Order_Sub do
+  begin
+    Append;
+    Post;
+  end;
+end;
+
+procedure TfrmClothContractInPutSXMX.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 TfrmClothContractInPutSXMX.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 TfrmClothContractInPutSXMX.v1Column1PropertiesButtonClick(
+  Sender: TObject; AButtonIndex: Integer);
+begin
+  try
+    frmZDYHelp:=TfrmZDYHelp.Create(Application);
+    with frmZDYHelp do
+    begin
+      flag:='ClothSX';
+      flagname:='纱线名称';
+      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 TfrmClothContractInPutSXMX.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 TfrmClothContractInPutSXMX.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 TfrmClothContractInPutSXMX.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 TfrmClothContractInPutSXMX.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 TfrmClothContractInPutSXMX.FactoryNoNamePropertiesChange(
+  Sender: TObject);
+begin
+  {if FXS=99 then
+  begin
+    PanZDY.Visible:=False;
+    FXS:=0;
+    Exit;
+  end;
+  ZDYHelp(FactoryNoName,'FactoryNo1Name');  }
+end;
+
+procedure TfrmClothContractInPutSXMX.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 TfrmClothContractInPutSXMX.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 TfrmClothContractInPutSXMX.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 TfrmClothContractInPutSXMX.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 TfrmClothContractInPutSXMX.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 TfrmClothContractInPutSXMX.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 TfrmClothContractInPutSXMX.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 TfrmClothContractInPutSXMX.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 TfrmClothContractInPutSXMX.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 TfrmClothContractInPutSXMX.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;
+
+end.

打卷检验管理/U_ClothContractKCList.dfm

@@ -0,0 +1,635 @@
+object frmClothContractKCList: TfrmClothContractKCList
+  Left = 100
+  Top = 35
+  Width = 1238
+  Height = 653
+  Caption = #22383#24067#24211#23384#27719#24635#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
+  OnShow = FormShow
+  PixelsPerInch = 96
+  TextHeight = 12
+  object ToolBar1: TToolBar
+    Left = 0
+    Top = 0
+    Width = 1222
+    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_TradeManage.ThreeImgList
+    List = True
+    ParentColor = False
+    ParentFont = False
+    ShowCaptions = True
+    TabOrder = 0
+    object TBRafresh: TToolButton
+      Left = 0
+      Top = 0
+      AutoSize = True
+      Caption = #21047#26032
+      ImageIndex = 2
+      OnClick = TBRafreshClick
+    end
+    object TBFind: TToolButton
+      Left = 63
+      Top = 0
+      AutoSize = True
+      Caption = #36807#28388
+      ImageIndex = 59
+      OnClick = TBFindClick
+    end
+    object TBClose: TToolButton
+      Left = 126
+      Top = 0
+      AutoSize = True
+      Caption = #20851#38381
+      ImageIndex = 55
+      OnClick = TBCloseClick
+    end
+  end
+  object Panel1: TPanel
+    Left = 0
+    Top = 32
+    Width = 1222
+    Height = 54
+    Align = alTop
+    BevelInner = bvRaised
+    BevelOuter = bvLowered
+    Color = clSkyBlue
+    TabOrder = 1
+    object Label1: TLabel
+      Left = 23
+      Top = 22
+      Width = 52
+      Height = 12
+      Caption = #30331#35760#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 = 444
+      Top = 22
+      Width = 52
+      Height = 12
+      Caption = #20135#21697#21517#31216
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label4: TLabel
+      Left = 612
+      Top = 22
+      Width = 26
+      Height = 12
+      Caption = #35268#26684
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label6: TLabel
+      Left = 748
+      Top = 22
+      Width = 39
+      Height = 12
+      Caption = #22383#24067#21378
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label7: TLabel
+      Left = 892
+      Top = 22
+      Width = 26
+      Height = 12
+      Caption = #26579#21378
+      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
+    end
+    object C_CodeName: TEdit
+      Tag = 2
+      Left = 497
+      Top = 18
+      Width = 83
+      Height = 20
+      TabOrder = 3
+      OnChange = ConNoChange
+    end
+    object C_Spec: TEdit
+      Tag = 2
+      Left = 640
+      Top = 18
+      Width = 83
+      Height = 20
+      TabOrder = 4
+      OnChange = ConNoChange
+    end
+    object FactoryNoName: TEdit
+      Tag = 2
+      Left = 792
+      Top = 18
+      Width = 83
+      Height = 20
+      TabOrder = 5
+      OnChange = ConNoChange
+    end
+    object FirstName: TEdit
+      Tag = 2
+      Left = 920
+      Top = 18
+      Width = 83
+      Height = 20
+      TabOrder = 6
+      OnChange = ConNoChange
+    end
+  end
+  object cxGrid1: TcxGrid
+    Left = 0
+    Top = 86
+    Width = 1222
+    Height = 529
+    Align = alClient
+    TabOrder = 2
+    object Tv1: TcxGridDBTableView
+      NavigatorButtons.ConfirmDelete = False
+      DataController.DataSource = DataSource1
+      DataController.Summary.DefaultGroupSummaryItems = <>
+      DataController.Summary.FooterSummaryItems = <
+        item
+          Kind = skSum
+        end
+        item
+          Kind = skSum
+        end
+        item
+          Kind = skSum
+        end
+        item
+          Kind = skSum
+          Column = v1Column6
+        end
+        item
+          Kind = skSum
+          Column = v1Column3
+        end
+        item
+          Kind = skSum
+          Column = v1Column7
+        end
+        item
+          Kind = skSum
+          Column = v1Column8
+        end
+        item
+          Kind = skSum
+        end
+        item
+          Kind = skSum
+        end
+        item
+          Kind = skSum
+        end
+        item
+          Kind = skSum
+        end
+        item
+          Kind = skSum
+        end
+        item
+          Kind = skSum
+        end
+        item
+          Kind = skSum
+          Column = v1Column4
+        end
+        item
+          Kind = skSum
+          Column = v1Column14
+        end
+        item
+          Kind = skAverage
+        end
+        item
+          Kind = skAverage
+        end
+        item
+          Kind = skSum
+        end
+        item
+          Kind = skSum
+        end>
+      DataController.Summary.SummaryGroups = <>
+      OptionsCustomize.ColumnFiltering = False
+      OptionsData.Editing = False
+      OptionsSelection.CellSelect = False
+      OptionsView.Footer = True
+      OptionsView.GroupByBox = False
+      Styles.Inactive = DataLink_TradeManage.SHuangSe
+      Styles.IncSearch = DataLink_TradeManage.SHuangSe
+      Styles.Selection = DataLink_TradeManage.SHuangSe
+      Styles.Header = DataLink_TradeManage.Default
+      object v1OrderNo: TcxGridDBColumn
+        Caption = #21512#21516#32534#21495
+        DataBinding.FieldName = 'ConNo'
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_TradeManage.Default
+        Width = 103
+      end
+      object v1FactoryNo1Name: TcxGridDBColumn
+        Caption = #22383#24067#21378
+        DataBinding.FieldName = 'FactoryNoName'
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_TradeManage.Default
+        Width = 171
+      end
+      object v1Column2: TcxGridDBColumn
+        Caption = #20135#21697#21517#31216
+        DataBinding.FieldName = 'C_CodeName'
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_TradeManage.Default
+        Width = 134
+      end
+      object v1PRTSpec: TcxGridDBColumn
+        Caption = #35268#26684
+        DataBinding.FieldName = 'C_Spec'
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_TradeManage.Default
+        Width = 93
+      end
+      object v1Column5: TcxGridDBColumn
+        Caption = #26579#21378
+        DataBinding.FieldName = 'FirstName'
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_TradeManage.Default
+        Width = 104
+      end
+      object v1Column1: TcxGridDBColumn
+        Caption = #37319#36141#21305#25968
+        DataBinding.FieldName = 'Qty1'
+        HeaderAlignmentHorz = taCenter
+        Width = 60
+      end
+      object v1Column9: TcxGridDBColumn
+        Caption = #37319#36141#25968#37327
+        DataBinding.FieldName = 'C_Qty'
+        HeaderAlignmentHorz = taCenter
+        Width = 60
+      end
+      object v1Column19: TcxGridDBColumn
+        Caption = #25968#37327#21333#20301
+        DataBinding.FieldName = 'C_unit'
+        HeaderAlignmentHorz = taCenter
+        Width = 60
+      end
+      object v1Column6: TcxGridDBColumn
+        Caption = #21040#36135#21305#25968
+        DataBinding.FieldName = 'DHPS'
+        HeaderAlignmentHorz = taCenter
+        Width = 59
+      end
+      object v1Column3: TcxGridDBColumn
+        Caption = #21040#36135#25968#37327
+        DataBinding.FieldName = 'DHQty'
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_TradeManage.Default
+        Width = 64
+      end
+      object v1Column4: TcxGridDBColumn
+        Caption = #25237#24067#21305#25968
+        DataBinding.FieldName = 'TPPS'
+        HeaderAlignmentHorz = taCenter
+        Styles.Content = FontBlue
+        Styles.Footer = FontBlue
+        Styles.Header = FontBlue
+        Width = 58
+      end
+      object v1Column14: TcxGridDBColumn
+        Caption = #25237#24067#25968#37327
+        DataBinding.FieldName = 'TPQty'
+        HeaderAlignmentHorz = taCenter
+        Styles.Content = FontBlue
+        Styles.Footer = FontBlue
+        Styles.Header = FontBlue
+        Width = 59
+      end
+      object v1Column7: TcxGridDBColumn
+        Caption = #24211#23384#21305#25968
+        DataBinding.FieldName = 'KCPS'
+        HeaderAlignmentHorz = taCenter
+        Styles.Content = FoneRed
+        Styles.Footer = FoneRed
+        Styles.Header = FoneRed
+        Width = 61
+      end
+      object v1Column8: TcxGridDBColumn
+        Caption = #24211#23384#25968#37327
+        DataBinding.FieldName = 'KCQty'
+        HeaderAlignmentHorz = taCenter
+        Styles.Content = FoneRed
+        Styles.Footer = FoneRed
+        Styles.Header = FoneRed
+        Width = 58
+      end
+    end
+    object cxGrid1Level1: TcxGridLevel
+      GridView = Tv1
+    end
+  end
+  object cxGridPopupMenu1: TcxGridPopupMenu
+    Grid = cxGrid1
+    PopupMenus = <>
+    Left = 448
+    Top = 168
+  end
+  object ADOQueryCmd: TADOQuery
+    Connection = DataLink_TradeManage.ADOLink
+    Parameters = <>
+    Left = 936
+  end
+  object ADOQueryMain: TADOQuery
+    Connection = DataLink_TradeManage.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 1000
+  end
+  object ADOQueryTemp: TADOQuery
+    Connection = DataLink_TradeManage.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 ClientDataSet3: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 576
+    Top = 168
+  end
+  object DataSource2: TDataSource
+    DataSet = ClientDataSet2
+    Left = 512
+    Top = 168
+  end
+  object DataSource3: TDataSource
+    DataSet = ClientDataSet3
+    Left = 544
+    Top = 168
+  end
+  object ClientDataSet2: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 480
+    Top = 168
+  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 = 320
+    Top = 168
+    ReportData = {}
+  end
+  object RMDBMain: TRMDBDataSet
+    Visible = True
+    DataSet = Order_Main
+    Left = 352
+    Top = 168
+  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 = 384
+    Top = 168
+  end
+  object cxGridPopupMenu2: TcxGridPopupMenu
+    PopupMenus = <>
+    Left = 416
+    Top = 168
+  end
+  object ThreeColorBase: TcxStyleRepository
+    Left = 139
+    Top = 80
+    object SHuangSe: TcxStyle
+      AssignedValues = [svColor, svFont, svTextColor]
+      Color = 4707838
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = []
+      TextColor = clBtnText
+    end
+    object SkyBlue: TcxStyle
+      AssignedValues = [svColor, svFont]
+      Color = clSkyBlue
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = []
+    end
+    object Default: TcxStyle
+      AssignedValues = [svFont]
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+    end
+    object QHuangSe: TcxStyle
+      AssignedValues = [svColor, svFont]
+      Color = 8454143
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = []
+    end
+    object Red: TcxStyle
+      AssignedValues = [svColor, svFont]
+      Color = clRed
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = []
+    end
+    object FontBlue: TcxStyle
+      AssignedValues = [svFont, svTextColor]
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clBlue
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      TextColor = clBlue
+    end
+    object TextSHuangSe: TcxStyle
+      AssignedValues = [svFont, svTextColor]
+      Font.Charset = ANSI_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      TextColor = clBlack
+    end
+    object FonePurple: TcxStyle
+      AssignedValues = [svFont, svTextColor]
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindow
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      TextColor = clBlack
+    end
+    object FoneClMaroon: TcxStyle
+      AssignedValues = [svFont, svTextColor]
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      TextColor = clMaroon
+    end
+    object FoneRed: TcxStyle
+      AssignedValues = [svFont, svTextColor]
+      Font.Charset = ANSI_CHARSET
+      Font.Color = clRed
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      TextColor = clRed
+    end
+    object RowColor: TcxStyle
+      AssignedValues = [svColor]
+      Color = 16311512
+    end
+    object handBlack: TcxStyle
+      AssignedValues = [svFont]
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+    end
+    object cxBlue: TcxStyle
+      AssignedValues = [svColor, svFont]
+      Color = 16711731
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = []
+    end
+  end
+end

打卷检验管理/U_ClothContractKCList.pas

@@ -0,0 +1,202 @@
+unit U_ClothContractKCList;
+
+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;
+
+type
+  TfrmClothContractKCList = 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;
+    ConNo: TEdit;
+    Label5: TLabel;
+    C_CodeName: TEdit;
+    Order_Main: TClientDataSet;
+    Label4: TLabel;
+    C_Spec: TEdit;
+    ClientDataSet3: TClientDataSet;
+    DataSource2: TDataSource;
+    DataSource3: TDataSource;
+    ClientDataSet2: TClientDataSet;
+    RM1: TRMGridReport;
+    RMDBMain: TRMDBDataSet;
+    RMXLSExport1: TRMXLSExport;
+    cxGrid1: TcxGrid;
+    Tv1: TcxGridDBTableView;
+    v1OrderNo: TcxGridDBColumn;
+    v1Column2: TcxGridDBColumn;
+    v1FactoryNo1Name: TcxGridDBColumn;
+    v1PRTSpec: TcxGridDBColumn;
+    cxGrid1Level1: TcxGridLevel;
+    v1Column3: TcxGridDBColumn;
+    v1Column5: TcxGridDBColumn;
+    cxGridPopupMenu2: TcxGridPopupMenu;
+    Label6: TLabel;
+    FactoryNoName: TEdit;
+    Label7: TLabel;
+    FirstName: TEdit;
+    v1Column6: TcxGridDBColumn;
+    v1Column7: TcxGridDBColumn;
+    v1Column8: TcxGridDBColumn;
+    v1Column4: TcxGridDBColumn;
+    v1Column14: TcxGridDBColumn;
+    v1Column19: TcxGridDBColumn;
+    v1Column1: TcxGridDBColumn;
+    v1Column9: TcxGridDBColumn;
+    ThreeColorBase: TcxStyleRepository;
+    SHuangSe: TcxStyle;
+    SkyBlue: TcxStyle;
+    Default: TcxStyle;
+    QHuangSe: TcxStyle;
+    Red: TcxStyle;
+    FontBlue: TcxStyle;
+    TextSHuangSe: TcxStyle;
+    FonePurple: TcxStyle;
+    FoneClMaroon: TcxStyle;
+    FoneRed: TcxStyle;
+    RowColor: TcxStyle;
+    handBlack: TcxStyle;
+    cxBlue: TcxStyle;
+    procedure FormDestroy(Sender: TObject);
+    procedure FormClose(Sender: TObject; var Action: TCloseAction);
+    procedure TBCloseClick(Sender: TObject);
+    procedure TBFindClick(Sender: TObject);
+    procedure TBRafreshClick(Sender: TObject);
+    procedure ConNoChange(Sender: TObject);
+    procedure FormShow(Sender: TObject);
+  private
+    FInt,PFInt:Integer;
+    procedure InitGrid();
+    procedure InitForm();
+    procedure InitGridWSQL(FWSQL:String);
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+var
+  frmClothContractKCList: TfrmClothContractKCList;
+
+implementation
+uses
+  U_DataLink,U_ClothContractInPut,U_Fun,U_ProductOrderList,U_ZDYHelp;
+
+{$R *.dfm}
+
+procedure TfrmClothContractKCList.FormDestroy(Sender: TObject);
+begin
+  frmClothContractKCList:=nil;
+end;
+
+procedure TfrmClothContractKCList.FormClose(Sender: TObject;
+  var Action: TCloseAction);
+begin
+  Action:=caFree;
+end;
+
+procedure TfrmClothContractKCList.TBCloseClick(Sender: TObject);
+begin
+  Close;
+  WriteCxGrid(self.Caption+tv1.Name,Tv1,'ָʾµ¥¹ÜÀí');
+end;
+
+procedure TfrmClothContractKCList.InitGrid();
+begin
+  try
+    ADOQueryMain.DisableControls;
+    with ADOQueryMain do
+    begin
+      Filtered:=False;
+      Close;
+      sql.Clear;
+      sql.Add('exec P_Get_PBKC :begdate,:enddate');
+      Parameters.ParamByName('begdate').Value:=FormatDateTime('yyyy-MM-dd',BegDate.Date);
+      Parameters.ParamByName('enddate').Value:=FormatDateTime('yyyy-MM-dd',EndDate.Date+1);
+      Open;
+    end;
+    SCreateCDS20(ADOQueryMain,Order_Main);
+    SInitCDSData20(ADOQueryMain,Order_Main);
+  finally
+    ADOQueryMain.EnableControls;
+  end;
+end;
+procedure TfrmClothContractKCList.InitGridWSQL(FWSQL:String);
+begin
+  try
+    ADOQueryMain.DisableControls;
+    with ADOQueryMain do
+    begin
+      Filtered:=False;
+      Close;
+      sql.Clear;
+      sql.Add('exec P_View_ClothHZ :begdate,:enddate,:WSQL');
+      Parameters.ParamByName('begdate').Value:='1900-01-01';
+      Parameters.ParamByName('enddate').Value:='2050-01-01';
+      Parameters.ParamByName('WSQL').Value:=FWSQL;
+      Open;
+    end;
+    SCreateCDS20(ADOQueryMain,Order_Main);
+    SInitCDSData20(ADOQueryMain,Order_Main);
+  finally
+    ADOQueryMain.EnableControls;
+  end;
+end;
+
+procedure TfrmClothContractKCList.InitForm();
+begin
+  ReadCxGrid(self.Caption+tv1.Name,Tv1,'ָʾµ¥¹ÜÀí');
+  EndDate.DateTime:=SGetServerDateTime(ADOQueryTemp);
+  BegDate.DateTime:=EndDate.DateTime-15;
+  InitGrid();
+end;
+
+procedure TfrmClothContractKCList.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 TfrmClothContractKCList.TBRafreshClick(Sender: TObject);
+begin
+  InitGrid();
+end;
+
+procedure TfrmClothContractKCList.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 TfrmClothContractKCList.FormShow(Sender: TObject);
+begin
+  InitForm();
+end;
+
+end.

打卷检验管理/U_ClothContractList.dfm

@@ -0,0 +1,929 @@
+object frmClothContractList: TfrmClothContractList
+  Left = 111
+  Top = 38
+  Width = 1192
+  Height = 699
+  Caption = #22383#24067#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 = 1184
+    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_TradeManage.ThreeImgList
+    List = True
+    ParentColor = False
+    ParentFont = False
+    ShowCaptions = True
+    TabOrder = 0
+    object TBRafresh: TToolButton
+      Left = 0
+      Top = 0
+      AutoSize = True
+      Caption = #21047#26032
+      ImageIndex = 2
+      OnClick = TBRafreshClick
+    end
+    object TBFind: TToolButton
+      Left = 63
+      Top = 0
+      AutoSize = True
+      Caption = #36807#28388
+      ImageIndex = 59
+      OnClick = TBFindClick
+    end
+    object TBAdd: TToolButton
+      Left = 126
+      Top = 0
+      AutoSize = True
+      Caption = #26032#22686
+      ImageIndex = 3
+      OnClick = TBAddClick
+    end
+    object TBEdit: TToolButton
+      Left = 189
+      Top = 0
+      AutoSize = True
+      Caption = #20462#25913
+      ImageIndex = 54
+      OnClick = TBEditClick
+    end
+    object TBDel: TToolButton
+      Left = 252
+      Top = 0
+      AutoSize = True
+      Caption = #21024#38500
+      ImageIndex = 17
+      OnClick = TBDelClick
+    end
+    object Tchk: TToolButton
+      Left = 315
+      Top = 0
+      AutoSize = True
+      Caption = #23436#25104
+      ImageIndex = 41
+      OnClick = TchkClick
+    end
+    object TNochk: TToolButton
+      Left = 378
+      Top = 0
+      AutoSize = True
+      Caption = #25764#38144#23436#25104
+      ImageIndex = 86
+      Wrap = True
+      OnClick = TNochkClick
+    end
+    object TBExport: TToolButton
+      Left = 0
+      Top = 30
+      AutoSize = True
+      Caption = #23548#20986
+      ImageIndex = 75
+      OnClick = TBExportClick
+    end
+    object TBPrint: TToolButton
+      Left = 63
+      Top = 30
+      AutoSize = True
+      Caption = #25171#21360
+      ImageIndex = 12
+      OnClick = TBPrintClick
+    end
+    object ToolButton6: TToolButton
+      Left = 126
+      Top = 30
+      Width = 48
+      Caption = 'ToolButton6'
+      ImageIndex = 115
+      Style = tbsSeparator
+      Visible = False
+    end
+    object TBClose: TToolButton
+      Left = 174
+      Top = 30
+      AutoSize = True
+      Caption = #20851#38381
+      ImageIndex = 55
+      OnClick = TBCloseClick
+    end
+    object ToolButton1: TToolButton
+      Left = 237
+      Top = 30
+      Width = 41
+      Caption = 'ToolButton1'
+      ImageIndex = 60
+      Style = tbsSeparator
+      Visible = False
+    end
+    object ToolButton2: TToolButton
+      Left = 278
+      Top = 30
+      AutoSize = True
+      Caption = #22686#34892
+      ImageIndex = 103
+      Visible = False
+      OnClick = ToolButton2Click
+    end
+    object ToolButton3: TToolButton
+      Left = 341
+      Top = 30
+      AutoSize = True
+      Caption = #21024#34892
+      ImageIndex = 107
+      Visible = False
+      OnClick = ToolButton3Click
+    end
+    object ToolButton4: TToolButton
+      Left = 404
+      Top = 30
+      AutoSize = True
+      Caption = #21040#22383#30830#23450
+      ImageIndex = 113
+      Visible = False
+      OnClick = ToolButton4Click
+    end
+    object ToolButton5: TToolButton
+      Left = 491
+      Top = 30
+      Caption = #22383#24067#39046#26009#30830#23450
+      ImageIndex = 114
+      Visible = False
+      OnClick = ToolButton5Click
+    end
+  end
+  object Panel1: TPanel
+    Left = 0
+    Top = 62
+    Width = 1184
+    Height = 54
+    Align = alTop
+    BevelInner = bvRaised
+    BevelOuter = bvLowered
+    Color = clSkyBlue
+    TabOrder = 1
+    object Label1: TLabel
+      Left = 21
+      Top = 22
+      Width = 52
+      Height = 12
+      Caption = #31614#35746#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 = 444
+      Top = 22
+      Width = 52
+      Height = 12
+      Caption = #20135#21697#21517#31216
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label4: TLabel
+      Left = 612
+      Top = 22
+      Width = 26
+      Height = 12
+      Caption = #35268#26684
+      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
+      ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
+      TabOrder = 0
+    end
+    object EndDate: TDateTimePicker
+      Left = 179
+      Top = 18
+      Width = 86
+      Height = 20
+      Date = 40675.464761099540000000
+      Format = 'yyyy-MM-dd'
+      Time = 40675.464761099540000000
+      ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
+      TabOrder = 1
+    end
+    object ConNoM: TEdit
+      Tag = 2
+      Left = 337
+      Top = 18
+      Width = 81
+      Height = 20
+      ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
+      TabOrder = 2
+      OnChange = ConNoMChange
+      OnKeyPress = conPress
+    end
+    object C_CodeNameM: TEdit
+      Tag = 2
+      Left = 497
+      Top = 18
+      Width = 83
+      Height = 20
+      ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
+      TabOrder = 3
+      OnChange = ConNoMChange
+    end
+    object C_Spec: TEdit
+      Tag = 2
+      Left = 640
+      Top = 18
+      Width = 83
+      Height = 20
+      ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
+      TabOrder = 4
+      OnChange = ConNoMChange
+    end
+    object Button1: TButton
+      Left = 760
+      Top = 15
+      Width = 75
+      Height = 25
+      Caption = #22686#34892
+      TabOrder = 5
+      Visible = False
+      OnClick = Button1Click
+    end
+    object Button2: TButton
+      Left = 856
+      Top = 15
+      Width = 75
+      Height = 25
+      Caption = #21024#34892
+      TabOrder = 6
+      Visible = False
+      OnClick = Button2Click
+    end
+    object Button3: TButton
+      Left = 952
+      Top = 15
+      Width = 75
+      Height = 25
+      Caption = #21040#22383#30830#23450
+      TabOrder = 7
+      Visible = False
+      OnClick = Button3Click
+    end
+    object Button4: TButton
+      Left = 1048
+      Top = 15
+      Width = 86
+      Height = 25
+      Caption = #22383#24067#39046#26009#30830#23450
+      TabOrder = 8
+      Visible = False
+      OnClick = Button4Click
+    end
+  end
+  object ScrollBox1: TScrollBox
+    Left = -172
+    Top = 112
+    Width = 1351
+    Height = 545
+    BorderStyle = bsNone
+    TabOrder = 2
+    object cxGrid1: TcxGrid
+      Left = 0
+      Top = 0
+      Width = 815
+      Height = 545
+      Align = alClient
+      TabOrder = 0
+      object Tv1: TcxGridDBTableView
+        OnMouseDown = Tv1MouseDown
+        NavigatorButtons.ConfirmDelete = False
+        OnCellDblClick = Tv1CellDblClick
+        OnCustomDrawCell = Tv1CustomDrawCell
+        OnFocusedRecordChanged = Tv1FocusedRecordChanged
+        DataController.DataSource = DataSource1
+        DataController.Summary.DefaultGroupSummaryItems = <>
+        DataController.Summary.FooterSummaryItems = <
+          item
+            Kind = skSum
+            Column = v1C_Qty
+          end
+          item
+            Kind = skSum
+            Column = v1Price
+          end
+          item
+            Kind = skSum
+            Column = v1Money
+          end>
+        DataController.Summary.SummaryGroups = <>
+        OptionsCustomize.ColumnFiltering = False
+        OptionsData.Deleting = False
+        OptionsData.Editing = False
+        OptionsSelection.CellSelect = False
+        OptionsView.Footer = True
+        OptionsView.GroupByBox = False
+        Styles.Inactive = DataLink_TradeManage.SHuangSe
+        Styles.IncSearch = DataLink_TradeManage.SHuangSe
+        Styles.Selection = DataLink_TradeManage.SHuangSe
+        Styles.Header = DataLink_TradeManage.Default
+        object v1OrderNo: TcxGridDBColumn
+          Caption = #21512#21516#32534#21495
+          DataBinding.FieldName = 'ConNo'
+          HeaderAlignmentHorz = taCenter
+          Styles.Header = DataLink_TradeManage.Default
+          Width = 80
+        end
+        object v1Column2: TcxGridDBColumn
+          Caption = #20135#21697#21517#31216
+          DataBinding.FieldName = 'C_CodeName'
+          HeaderAlignmentHorz = taCenter
+          Styles.Header = DataLink_TradeManage.Default
+          Width = 100
+        end
+        object v1DeliveryDate: TcxGridDBColumn
+          Caption = #20132#36135#26085#26399
+          DataBinding.FieldName = 'DeliveryDate'
+          PropertiesClassName = 'TcxDateEditProperties'
+          Properties.SaveTime = False
+          Properties.ShowTime = False
+          HeaderAlignmentHorz = taCenter
+          Styles.Header = DataLink_TradeManage.Default
+          Width = 75
+        end
+        object v1Column5: TcxGridDBColumn
+          Caption = #31614#35746#26085#26399
+          DataBinding.FieldName = 'QDTime'
+          HeaderAlignmentHorz = taCenter
+          Styles.Header = DataLink_TradeManage.Default
+          Width = 75
+        end
+        object v1FactoryNo1Name: TcxGridDBColumn
+          Caption = #20379#26041
+          DataBinding.FieldName = 'FactoryNoName'
+          HeaderAlignmentHorz = taCenter
+          Styles.Header = DataLink_TradeManage.Default
+          Width = 100
+        end
+        object v1PRTSpec: TcxGridDBColumn
+          Caption = #35268#26684
+          DataBinding.FieldName = 'C_Spec'
+          HeaderAlignmentHorz = taCenter
+          Styles.Header = DataLink_TradeManage.Default
+          Width = 80
+        end
+        object v1PRTMF: TcxGridDBColumn
+          Caption = #38376#24133'(cm)'
+          DataBinding.FieldName = 'MFQty'
+          HeaderAlignmentHorz = taCenter
+          Styles.Header = DataLink_TradeManage.Default
+          Width = 60
+        end
+        object v1PRTKZ: TcxGridDBColumn
+          Caption = #20811#37325'(g/'#13217')'
+          DataBinding.FieldName = 'KZQty'
+          HeaderAlignmentHorz = taCenter
+          Styles.Header = DataLink_TradeManage.Default
+          Width = 60
+        end
+        object v1Qty1: TcxGridDBColumn
+          Caption = #21305#25968
+          DataBinding.FieldName = 'Qty1'
+          HeaderAlignmentHorz = taCenter
+          Hidden = True
+          Styles.Header = DataLink_TradeManage.Default
+          Width = 50
+        end
+        object v1C_Qty: TcxGridDBColumn
+          Caption = #25968#37327
+          DataBinding.FieldName = 'C_Qty'
+          HeaderAlignmentHorz = taCenter
+          Styles.Header = DataLink_TradeManage.Default
+          Width = 50
+        end
+        object v1OrderUnit: TcxGridDBColumn
+          Caption = #21333#20301
+          DataBinding.FieldName = 'C_Unit'
+          HeaderAlignmentHorz = taCenter
+          Styles.Header = DataLink_TradeManage.Default
+          Width = 50
+        end
+        object v1Price: TcxGridDBColumn
+          Caption = #21333#20215
+          DataBinding.FieldName = 'Price'
+          HeaderAlignmentHorz = taCenter
+          Styles.Header = DataLink_TradeManage.Default
+          Width = 60
+        end
+        object v1PriceUnit: TcxGridDBColumn
+          Caption = #24065#31181
+          DataBinding.FieldName = 'PriceUnit'
+          HeaderAlignmentHorz = taCenter
+          Styles.Header = DataLink_TradeManage.Default
+          Width = 60
+        end
+        object v1Money: TcxGridDBColumn
+          Caption = #24635#20215
+          DataBinding.FieldName = 'Money'
+          HeaderAlignmentHorz = taCenter
+          Styles.Header = DataLink_TradeManage.Default
+          Width = 60
+        end
+        object v1Column3: TcxGridDBColumn
+          Caption = #35746#21333#25968#37327
+          DataBinding.FieldName = 'Sdefstr1'
+          HeaderAlignmentHorz = taCenter
+          Width = 70
+        end
+        object v1Column6: TcxGridDBColumn
+          Caption = #35745#21010#32553#29575'(%)'
+          DataBinding.FieldName = 'Qty2'
+          HeaderAlignmentHorz = taCenter
+          Width = 70
+        end
+        object v1Column7: TcxGridDBColumn
+          Caption = #26579#21378
+          DataBinding.FieldName = 'Sdefstr2'
+          HeaderAlignmentHorz = taCenter
+          Width = 70
+        end
+        object v1Column8: TcxGridDBColumn
+          Caption = #26579#21378#24037#33402
+          DataBinding.FieldName = 'Sdefstr3'
+          HeaderAlignmentHorz = taCenter
+          Width = 70
+        end
+        object v1Column9: TcxGridDBColumn
+          Caption = #26579#21378#20215#26684
+          DataBinding.FieldName = 'Sdefstr4'
+          HeaderAlignmentHorz = taCenter
+          Width = 70
+        end
+        object v1Column10: TcxGridDBColumn
+          Caption = #25351#31034#21333#21495
+          DataBinding.FieldName = 'sdefstr5'
+          HeaderAlignmentHorz = taCenter
+          Width = 70
+        end
+        object v1Column11: TcxGridDBColumn
+          Caption = #24037#21378#32534#21495
+          DataBinding.FieldName = 'sdefstr6'
+          HeaderAlignmentHorz = taCenter
+          Width = 70
+        end
+        object v1Column4: TcxGridDBColumn
+          Caption = #22791#27880
+          DataBinding.FieldName = 'C_Note'
+          HeaderAlignmentHorz = taCenter
+          Styles.Header = DataLink_TradeManage.Default
+          Width = 70
+        end
+        object v1DHQty: TcxGridDBColumn
+          Caption = #21040#36135#21305#25968
+          DataBinding.FieldName = 'DHQty'
+          HeaderAlignmentHorz = taCenter
+          Width = 65
+        end
+        object v1MXQty: TcxGridDBColumn
+          Caption = #21040#36135#25968#37327
+          DataBinding.FieldName = 'MXQty'
+          HeaderAlignmentHorz = taCenter
+          Width = 65
+        end
+      end
+      object cxGrid1Level1: TcxGridLevel
+        GridView = Tv1
+      end
+    end
+    object Panel2: TPanel
+      Left = 823
+      Top = 0
+      Width = 528
+      Height = 545
+      Align = alRight
+      BevelInner = bvRaised
+      BevelOuter = bvLowered
+      TabOrder = 1
+      Visible = False
+      object cxGrid3: TcxGrid
+        Left = 2
+        Top = 195
+        Width = 524
+        Height = 348
+        Align = alClient
+        TabOrder = 0
+        object Tv3: TcxGridDBTableView
+          OnMouseDown = Tv3MouseDown
+          NavigatorButtons.ConfirmDelete = False
+          DataController.DataSource = DataSource3
+          DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
+          DataController.Summary.DefaultGroupSummaryItems = <>
+          DataController.Summary.FooterSummaryItems = <
+            item
+              Kind = skSum
+              Column = v3Column2
+            end
+            item
+              Kind = skSum
+              Column = v3Column3
+            end>
+          DataController.Summary.SummaryGroups = <>
+          OptionsBehavior.FocusCellOnTab = True
+          OptionsBehavior.GoToNextCellOnEnter = True
+          OptionsBehavior.FocusCellOnCycle = True
+          OptionsCustomize.ColumnFiltering = False
+          OptionsView.Footer = True
+          OptionsView.GroupByBox = False
+          Styles.Header = DataLink_TradeManage.Default
+          object cxGridDBColumn1: TcxGridDBColumn
+            Caption = #35746#21333#32534#21495
+            DataBinding.FieldName = 'OrderNo'
+            PropertiesClassName = 'TcxButtonEditProperties'
+            Properties.Buttons = <
+              item
+                Default = True
+                Kind = bkEllipsis
+              end>
+            Properties.ReadOnly = True
+            HeaderAlignmentHorz = taCenter
+            Styles.Header = DataLink_TradeManage.Default
+            Width = 62
+          end
+          object cxGridDBPRTColor: TcxGridDBColumn
+            Caption = #39068#33394
+            DataBinding.FieldName = 'PRTColor'
+            HeaderAlignmentHorz = taCenter
+            Options.Focusing = False
+            Styles.Header = DataLink_TradeManage.Default
+            Width = 42
+          end
+          object v3Column6: TcxGridDBColumn
+            Caption = #25237#22383#26085#26399
+            DataBinding.FieldName = 'TPDate'
+            PropertiesClassName = 'TcxDateEditProperties'
+            Properties.SaveTime = False
+            Properties.ShowTime = False
+            HeaderAlignmentHorz = taCenter
+            Width = 74
+          end
+          object v3Column3: TcxGridDBColumn
+            Caption = #25237#22383#21305#25968
+            DataBinding.FieldName = 'Qty1'
+            Visible = False
+            HeaderAlignmentHorz = taCenter
+            Styles.Header = DataLink_TradeManage.Default
+            Width = 63
+          end
+          object v3Column2: TcxGridDBColumn
+            Caption = #25968#37327'('#35745#21010')'
+            DataBinding.FieldName = 'TPQty'
+            PropertiesClassName = 'TcxTextEditProperties'
+            Properties.OnEditValueChanged = v3Column2PropertiesEditValueChanged
+            HeaderAlignmentHorz = taCenter
+            Styles.Header = DataLink_TradeManage.Default
+            Width = 75
+          end
+          object v3Column4: TcxGridDBColumn
+            Caption = #25968#37327#20844#24046
+            DataBinding.FieldName = 'Qty2'
+            PropertiesClassName = 'TcxTextEditProperties'
+            Properties.OnEditValueChanged = v3Column2PropertiesEditValueChanged
+            HeaderAlignmentHorz = taCenter
+            Width = 63
+          end
+          object v3Column5: TcxGridDBColumn
+            Caption = #35745#21010#32553#29575'(%)'
+            DataBinding.FieldName = 'Qty3'
+            PropertiesClassName = 'TcxTextEditProperties'
+            HeaderAlignmentHorz = taCenter
+            Width = 78
+          end
+          object v3Column7: TcxGridDBColumn
+            Caption = #25237#22383#20154
+            DataBinding.FieldName = 'TPPerson'
+            HeaderAlignmentHorz = taCenter
+            Width = 48
+          end
+          object v3Column8: TcxGridDBColumn
+            Caption = #22791#27880
+            DataBinding.FieldName = 'TPNote'
+            Width = 73
+          end
+        end
+        object cxGridLevel1: TcxGridLevel
+          GridView = Tv3
+        end
+      end
+      object cxGrid2: TcxGrid
+        Left = 2
+        Top = 2
+        Width = 524
+        Height = 193
+        Align = alTop
+        TabOrder = 1
+        object Tv2: TcxGridDBTableView
+          OnMouseDown = Tv2MouseDown
+          NavigatorButtons.ConfirmDelete = False
+          OnCellClick = Tv2CellClick
+          DataController.DataSource = DataSource2
+          DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
+          DataController.Summary.DefaultGroupSummaryItems = <>
+          DataController.Summary.FooterSummaryItems = <
+            item
+              Kind = skSum
+              Column = v2MxQty
+            end
+            item
+              Kind = skSum
+              Column = v2Column1
+            end
+            item
+              Kind = skSum
+              Column = v2Column2
+            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_TradeManage.SHuangSe
+          Styles.IncSearch = DataLink_TradeManage.SHuangSe
+          Styles.Selection = DataLink_TradeManage.SHuangSe
+          object v2ComeDate: TcxGridDBColumn
+            Caption = #21040#36135#26085#26399
+            DataBinding.FieldName = 'ComeDate'
+            PropertiesClassName = 'TcxDateEditProperties'
+            HeaderAlignmentHorz = taCenter
+            Styles.Header = DataLink_TradeManage.Default
+            Width = 70
+          end
+          object v2Column3: TcxGridDBColumn
+            Caption = #23384#25918#22320#28857
+            DataBinding.FieldName = 'RKPlace'
+            PropertiesClassName = 'TcxButtonEditProperties'
+            Properties.Buttons = <
+              item
+                Default = True
+                Kind = bkEllipsis
+              end>
+            Properties.ReadOnly = True
+            Properties.OnButtonClick = v2Column3PropertiesButtonClick
+            HeaderAlignmentHorz = taCenter
+            Styles.Header = DataLink_TradeManage.Default
+            Width = 65
+          end
+          object v2BatchNo: TcxGridDBColumn
+            Caption = #25209#21495
+            DataBinding.FieldName = 'BatchNo'
+            HeaderAlignmentHorz = taCenter
+            Styles.Header = DataLink_TradeManage.Default
+            Width = 61
+          end
+          object v2Qty1: TcxGridDBColumn
+            Caption = #21305#25968
+            DataBinding.FieldName = 'Qty1'
+            Visible = False
+            HeaderAlignmentHorz = taCenter
+            Hidden = True
+            Styles.Header = DataLink_TradeManage.Default
+            Width = 44
+          end
+          object v2MxQty: TcxGridDBColumn
+            Caption = #25968#37327
+            DataBinding.FieldName = 'MxQty'
+            HeaderAlignmentHorz = taCenter
+            Styles.Header = DataLink_TradeManage.Default
+            Width = 48
+          end
+          object v2MxNote: TcxGridDBColumn
+            Caption = #22791#27880
+            DataBinding.FieldName = 'MxNote'
+            HeaderAlignmentHorz = taCenter
+            Styles.Header = DataLink_TradeManage.Default
+            Width = 72
+          end
+          object v2Column1: TcxGridDBColumn
+            Tag = 2
+            Caption = #24211#23384#21305#25968
+            DataBinding.FieldName = 'KCPS'
+            Visible = False
+            HeaderAlignmentHorz = taCenter
+            Hidden = True
+            Options.Focusing = False
+            Styles.Header = DataLink_TradeManage.Default
+            Width = 67
+          end
+          object v2Column2: TcxGridDBColumn
+            Tag = 2
+            Caption = #24211#23384#25968#37327
+            DataBinding.FieldName = 'KCSL'
+            HeaderAlignmentHorz = taCenter
+            Options.Focusing = False
+            Styles.Header = DataLink_TradeManage.Default
+            Width = 68
+          end
+        end
+        object cxGrid2Level1: TcxGridLevel
+          GridView = Tv2
+        end
+      end
+    end
+    object cxSplitter1: TcxSplitter
+      Left = 815
+      Top = 0
+      Width = 8
+      Height = 545
+      HotZoneClassName = 'TcxMediaPlayer9Style'
+      AlignSplitter = salRight
+      Control = Panel2
+      Visible = False
+    end
+  end
+  object cxTabControl1: TcxTabControl
+    Left = 0
+    Top = 116
+    Width = 1184
+    Height = 22
+    Align = alTop
+    Font.Charset = GB2312_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -12
+    Font.Name = #23435#20307
+    Font.Style = []
+    ParentFont = False
+    Style = 9
+    TabIndex = 0
+    TabOrder = 3
+    Tabs.Strings = (
+      #26410#23436#25104
+      #23436#25104
+      #20840#37096)
+    OnChange = cxTabControl1Change
+    ClientRectBottom = 22
+    ClientRectRight = 1184
+    ClientRectTop = 19
+  end
+  object cxGridPopupMenu1: TcxGridPopupMenu
+    Grid = cxGrid1
+    PopupMenus = <>
+    Left = 1140
+    Top = 52
+  end
+  object ADOQueryCmd: TADOQuery
+    Connection = DataLink_TradeManage.ADOLink
+    Parameters = <>
+    Left = 1092
+    Top = 16
+  end
+  object ADOQueryMain: TADOQuery
+    Connection = DataLink_TradeManage.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 1120
+    Top = 20
+  end
+  object ADOQueryTemp: TADOQuery
+    Connection = DataLink_TradeManage.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 1032
+    Top = 52
+  end
+  object DataSource1: TDataSource
+    DataSet = Order_Main
+    Left = 1080
+    Top = 76
+  end
+  object Order_Main: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 1104
+    Top = 64
+  end
+  object ClientDataSet3: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 1112
+    Top = 240
+  end
+  object DataSource2: TDataSource
+    DataSet = ClientDataSet2
+    Left = 880
+    Top = 176
+  end
+  object DataSource3: TDataSource
+    DataSet = ClientDataSet3
+    Left = 1112
+    Top = 216
+  end
+  object ClientDataSet2: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 920
+    Top = 224
+  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 = 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 = 680
+    Top = 32
+  end
+end

打卷检验管理/U_ClothContractListDH.dfm

@@ -0,0 +1,700 @@
+object frmClothContractListDH: TfrmClothContractListDH
+  Left = 229
+  Top = 110
+  Width = 1100
+  Height = 553
+  Caption = #22383#24067#21040#36135
+  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 = 1092
+    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_TradeManage.ThreeImgList
+    List = True
+    ParentColor = False
+    ParentFont = False
+    ShowCaptions = True
+    TabOrder = 0
+    object TBRafresh: TToolButton
+      Left = 0
+      Top = 0
+      AutoSize = True
+      Caption = #21047#26032
+      ImageIndex = 2
+      OnClick = TBRafreshClick
+    end
+    object TBFind: TToolButton
+      Left = 63
+      Top = 0
+      AutoSize = True
+      Caption = #36807#28388
+      ImageIndex = 59
+      OnClick = TBFindClick
+    end
+    object TWC: TToolButton
+      Left = 126
+      Top = 0
+      AutoSize = True
+      Caption = #23436#25104
+      ImageIndex = 41
+      Visible = False
+      OnClick = TWCClick
+    end
+    object TNOWC: TToolButton
+      Left = 189
+      Top = 0
+      AutoSize = True
+      Caption = #25764#38144#23436#25104
+      ImageIndex = 86
+      Visible = False
+      OnClick = TNOWCClick
+    end
+    object TBClose: TToolButton
+      Left = 276
+      Top = 0
+      AutoSize = True
+      Caption = #20851#38381
+      ImageIndex = 55
+      OnClick = TBCloseClick
+    end
+    object ToolButton2: TToolButton
+      Left = 339
+      Top = 0
+      AutoSize = True
+      Caption = #22686#34892
+      ImageIndex = 103
+      Visible = False
+      OnClick = ToolButton2Click
+    end
+    object ToolButton3: TToolButton
+      Left = 402
+      Top = 0
+      AutoSize = True
+      Caption = #21024#34892
+      ImageIndex = 107
+      Visible = False
+      OnClick = ToolButton3Click
+    end
+    object ToolButton4: TToolButton
+      Left = 465
+      Top = 0
+      AutoSize = True
+      Caption = #21040#22383#30830#23450
+      ImageIndex = 113
+      Visible = False
+      OnClick = ToolButton4Click
+    end
+    object ToolButton5: TToolButton
+      Left = 552
+      Top = 0
+      Caption = #22383#24067#39046#26009#30830#23450
+      ImageIndex = 114
+      Visible = False
+      OnClick = ToolButton5Click
+    end
+  end
+  object Panel1: TPanel
+    Left = 0
+    Top = 32
+    Width = 1092
+    Height = 54
+    Align = alTop
+    BevelInner = bvRaised
+    BevelOuter = bvLowered
+    Color = clSkyBlue
+    TabOrder = 1
+    object Label1: TLabel
+      Left = 23
+      Top = 22
+      Width = 52
+      Height = 12
+      Caption = #30331#35760#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 = 444
+      Top = 22
+      Width = 52
+      Height = 12
+      Caption = #20135#21697#21517#31216
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label4: TLabel
+      Left = 612
+      Top = 22
+      Width = 26
+      Height = 12
+      Caption = #35268#26684
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label6: TLabel
+      Left = 752
+      Top = 22
+      Width = 65
+      Height = 12
+      Caption = #23458#25143#21512#21516#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 = 18
+      Width = 85
+      Height = 20
+      Date = 40675.464742650460000000
+      Format = 'yyyy-MM-dd'
+      Time = 40675.464742650460000000
+      ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
+      TabOrder = 0
+    end
+    object EndDate: TDateTimePicker
+      Left = 179
+      Top = 18
+      Width = 86
+      Height = 20
+      Date = 40675.464761099540000000
+      Format = 'yyyy-MM-dd'
+      Time = 40675.464761099540000000
+      ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
+      TabOrder = 1
+    end
+    object ConNoM: TEdit
+      Tag = 2
+      Left = 337
+      Top = 18
+      Width = 81
+      Height = 20
+      ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
+      TabOrder = 2
+      OnChange = ConNoMChange
+      OnKeyPress = ConNoMKeyPress
+    end
+    object C_CodeNameM: TEdit
+      Tag = 2
+      Left = 497
+      Top = 18
+      Width = 83
+      Height = 20
+      ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
+      TabOrder = 3
+      OnChange = ConNoMChange
+    end
+    object C_Spec: TEdit
+      Tag = 2
+      Left = 640
+      Top = 18
+      Width = 83
+      Height = 20
+      ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
+      TabOrder = 4
+      OnChange = ConNoMChange
+    end
+    object sdefstr6: TEdit
+      Tag = 2
+      Left = 820
+      Top = 18
+      Width = 83
+      Height = 20
+      ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
+      TabOrder = 5
+      OnChange = ConNoMChange
+    end
+  end
+  object cxGrid1: TcxGrid
+    Left = 0
+    Top = 86
+    Width = 1092
+    Height = 194
+    Align = alClient
+    Font.Charset = GB2312_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -12
+    Font.Name = #23435#20307
+    Font.Style = []
+    ParentFont = False
+    TabOrder = 2
+    object Tv1: TcxGridDBTableView
+      OnMouseDown = Tv1MouseDown
+      NavigatorButtons.ConfirmDelete = False
+      OnCellClick = Tv1CellClick
+      OnFocusedRecordChanged = Tv1FocusedRecordChanged
+      DataController.DataSource = DataSource1
+      DataController.Summary.DefaultGroupSummaryItems = <>
+      DataController.Summary.FooterSummaryItems = <
+        item
+          Kind = skSum
+          Column = v1PRTOrderQty
+        end
+        item
+          Kind = skSum
+        end
+        item
+          Kind = skSum
+        end
+        item
+          Kind = skSum
+        end
+        item
+          Kind = skSum
+          Column = v1Column1
+        end>
+      DataController.Summary.SummaryGroups = <>
+      OptionsCustomize.ColumnFiltering = False
+      OptionsData.Editing = False
+      OptionsSelection.CellSelect = False
+      OptionsView.Footer = True
+      OptionsView.GroupByBox = False
+      Styles.Inactive = DataLink_TradeManage.SHuangSe
+      Styles.IncSearch = DataLink_TradeManage.SHuangSe
+      Styles.Selection = DataLink_TradeManage.SHuangSe
+      Styles.Header = DataLink_TradeManage.Default
+      object v1OrderNo: TcxGridDBColumn
+        Caption = #21512#21516#32534#21495
+        DataBinding.FieldName = 'ConNo'
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_TradeManage.Default
+        Width = 74
+      end
+      object v1Column2: TcxGridDBColumn
+        Caption = #20135#21697#21517#31216
+        DataBinding.FieldName = 'C_CodeName'
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_TradeManage.Default
+        Width = 93
+      end
+      object v1DeliveryDate: TcxGridDBColumn
+        Caption = #20132#36135#26085#26399
+        DataBinding.FieldName = 'DeliveryDate'
+        PropertiesClassName = 'TcxDateEditProperties'
+        Properties.SaveTime = False
+        Properties.ShowTime = False
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_TradeManage.Default
+        Width = 85
+      end
+      object v1Column5: TcxGridDBColumn
+        Caption = #31614#35746#26085#26399
+        DataBinding.FieldName = 'QDTime'
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_TradeManage.Default
+        Width = 81
+      end
+      object v1FactoryNo1Name: TcxGridDBColumn
+        Caption = #20379#26041
+        DataBinding.FieldName = 'FactoryNoName'
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_TradeManage.Default
+        Width = 85
+      end
+      object v1PRTSpec: TcxGridDBColumn
+        Caption = #35268#26684
+        DataBinding.FieldName = 'C_Spec'
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_TradeManage.Default
+        Width = 71
+      end
+      object v1Qty1: TcxGridDBColumn
+        Caption = #21305#25968
+        DataBinding.FieldName = 'Qty1'
+        Visible = False
+        HeaderAlignmentHorz = taCenter
+        Hidden = True
+        Styles.Header = DataLink_TradeManage.Default
+        Width = 46
+      end
+      object v1Column1: TcxGridDBColumn
+        Caption = #21305#25968
+        DataBinding.FieldName = 'Qty1'
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_TradeManage.Default
+        Width = 67
+      end
+      object v1PRTOrderQty: TcxGridDBColumn
+        Caption = #25968#37327
+        DataBinding.FieldName = 'C_Qty'
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_TradeManage.Default
+        Width = 67
+      end
+      object v1OrderUnit: TcxGridDBColumn
+        Caption = #21333#20301
+        DataBinding.FieldName = 'C_Unit'
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_TradeManage.Default
+        Width = 58
+      end
+      object v1Column3: TcxGridDBColumn
+        Caption = #35746#21333#25968#37327
+        DataBinding.FieldName = 'Sdefstr1'
+        HeaderAlignmentHorz = taCenter
+        Width = 67
+      end
+      object v1DHQty: TcxGridDBColumn
+        Caption = #21040#36135#21305#25968
+        DataBinding.FieldName = 'DHQty'
+        HeaderAlignmentHorz = taCenter
+        Width = 65
+      end
+      object v1MxQty: TcxGridDBColumn
+        Caption = #21040#36135#25968#37327
+        DataBinding.FieldName = 'MxQty'
+        HeaderAlignmentHorz = taCenter
+        Width = 65
+      end
+      object v1Column6: TcxGridDBColumn
+        Caption = #35745#21010#32553#29575'(%)'
+        DataBinding.FieldName = 'Qty2'
+        HeaderAlignmentHorz = taCenter
+        Width = 91
+      end
+      object v1Column4: TcxGridDBColumn
+        Caption = #22791#27880
+        DataBinding.FieldName = 'C_Note'
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_TradeManage.Default
+        Width = 80
+      end
+      object v1Column7: TcxGridDBColumn
+        Caption = #25351#31034#21333#21495
+        DataBinding.FieldName = 'sdefstr5'
+        HeaderAlignmentHorz = taCenter
+        Width = 80
+      end
+      object v1Column8: TcxGridDBColumn
+        Caption = #23458#25143#21512#21516#21495
+        DataBinding.FieldName = 'sdefstr6'
+        HeaderAlignmentHorz = taCenter
+        Width = 80
+      end
+    end
+    object cxGrid1Level1: TcxGridLevel
+      GridView = Tv1
+    end
+  end
+  object cxSplitter1: TcxSplitter
+    Left = 0
+    Top = 511
+    Width = 1092
+    Height = 8
+    HotZoneClassName = 'TcxMediaPlayer9Style'
+    AlignSplitter = salBottom
+  end
+  object Panel2: TPanel
+    Left = 0
+    Top = 280
+    Width = 1092
+    Height = 231
+    Align = alBottom
+    BevelInner = bvRaised
+    BevelOuter = bvLowered
+    TabOrder = 4
+    object cxGrid2: TcxGrid
+      Left = 2
+      Top = 34
+      Width = 1088
+      Height = 195
+      Align = alClient
+      TabOrder = 0
+      object Tv2: TcxGridDBTableView
+        OnMouseDown = Tv2MouseDown
+        NavigatorButtons.ConfirmDelete = False
+        OnCellClick = Tv2CellClick
+        DataController.DataSource = DataSource2
+        DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
+        DataController.Summary.DefaultGroupSummaryItems = <>
+        DataController.Summary.FooterSummaryItems = <
+          item
+            Kind = skSum
+            Column = v2MxQty
+          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_TradeManage.SHuangSe
+        Styles.IncSearch = DataLink_TradeManage.SHuangSe
+        Styles.Selection = DataLink_TradeManage.SHuangSe
+        object v2ComeDate: TcxGridDBColumn
+          Tag = 2
+          Caption = #21040#36135#26085#26399
+          DataBinding.FieldName = 'ComeDate'
+          PropertiesClassName = 'TcxDateEditProperties'
+          HeaderAlignmentHorz = taCenter
+          Styles.Header = DataLink_TradeManage.Default
+          Width = 117
+        end
+        object v2Column3: TcxGridDBColumn
+          Tag = 2
+          Caption = #23384#25918#22320#28857
+          DataBinding.FieldName = 'RKPlace'
+          PropertiesClassName = 'TcxButtonEditProperties'
+          Properties.Buttons = <
+            item
+              Default = True
+              Kind = bkEllipsis
+            end>
+          Properties.ReadOnly = True
+          Properties.OnButtonClick = v2Column3PropertiesButtonClick
+          HeaderAlignmentHorz = taCenter
+          Styles.Header = DataLink_TradeManage.Default
+          Width = 122
+        end
+        object v2Column1: TcxGridDBColumn
+          Tag = 2
+          Caption = #21305#25968#37327
+          DataBinding.FieldName = 'Qty1'
+          HeaderAlignmentHorz = taCenter
+          Styles.Header = DataLink_TradeManage.Default
+          Width = 72
+        end
+        object v2MxQty: TcxGridDBColumn
+          Tag = 2
+          Caption = #25968#37327
+          DataBinding.FieldName = 'MxQty'
+          HeaderAlignmentHorz = taCenter
+          Styles.Header = DataLink_TradeManage.Default
+          Width = 90
+        end
+        object v2Column2: TcxGridDBColumn
+          Tag = 2
+          Caption = #25968#37327#21333#20301
+          DataBinding.FieldName = 'MXUnit'
+          HeaderAlignmentHorz = taCenter
+          Options.Focusing = False
+          Styles.Header = DataLink_TradeManage.Default
+          Width = 63
+        end
+        object v2MxNote: TcxGridDBColumn
+          Tag = 2
+          Caption = #22791#27880
+          DataBinding.FieldName = 'MxNote'
+          HeaderAlignmentHorz = taCenter
+          Styles.Header = DataLink_TradeManage.Default
+          Width = 145
+        end
+      end
+      object cxGrid2Level1: TcxGridLevel
+        GridView = Tv2
+      end
+    end
+    object ToolBar2: TToolBar
+      Left = 2
+      Top = 2
+      Width = 1088
+      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_TradeManage.ThreeImgList
+      List = True
+      ParentColor = False
+      ParentFont = False
+      ShowCaptions = True
+      TabOrder = 1
+      object ToolButton8: TToolButton
+        Left = 0
+        Top = 0
+        AutoSize = True
+        Caption = #22686#34892
+        ImageIndex = 103
+        OnClick = ToolButton2Click
+      end
+      object ToolButton9: TToolButton
+        Left = 63
+        Top = 0
+        AutoSize = True
+        Caption = #21024#34892
+        ImageIndex = 107
+        OnClick = ToolButton3Click
+      end
+      object ToolButton10: TToolButton
+        Left = 126
+        Top = 0
+        AutoSize = True
+        Caption = #21040#22383#30830#23450
+        ImageIndex = 113
+        OnClick = ToolButton4Click
+      end
+    end
+  end
+  object cxGridPopupMenu1: TcxGridPopupMenu
+    Grid = cxGrid1
+    PopupMenus = <>
+    Left = 664
+    Top = 256
+  end
+  object ADOQueryCmd: TADOQuery
+    Connection = DataLink_TradeManage.ADOLink
+    Parameters = <>
+    Left = 936
+  end
+  object ADOQueryMain: TADOQuery
+    Connection = DataLink_TradeManage.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 1000
+  end
+  object ADOQueryTemp: TADOQuery
+    Connection = DataLink_TradeManage.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 ClientDataSet3: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 988
+    Top = 208
+  end
+  object DataSource2: TDataSource
+    DataSet = ClientDataSet2
+    Left = 880
+    Top = 176
+  end
+  object DataSource3: TDataSource
+    DataSet = ClientDataSet3
+    Left = 1112
+    Top = 216
+  end
+  object ClientDataSet2: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 920
+    Top = 224
+  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 = 352
+    Top = 192
+    ReportData = {}
+  end
+  object RMDBMain: TRMDBDataSet
+    Visible = True
+    DataSet = Order_Main
+    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 cxGridPopupMenu2: TcxGridPopupMenu
+    Grid = cxGrid2
+    PopupMenus = <>
+    Left = 440
+    Top = 520
+  end
+end

打卷检验管理/U_ClothContractListDHSX.dfm

@@ -0,0 +1,598 @@
+object frmClothContractListDHSX: TfrmClothContractListDHSX
+  Left = 248
+  Top = 60
+  Width = 1068
+  Height = 619
+  Caption = #32433#32447#21040#36135
+  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 = 1060
+    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_TradeManage.ThreeImgList
+    List = True
+    ParentColor = False
+    ParentFont = False
+    ShowCaptions = True
+    TabOrder = 0
+    object TBRafresh: TToolButton
+      Left = 0
+      Top = 0
+      AutoSize = True
+      Caption = #21047#26032
+      ImageIndex = 2
+      OnClick = TBRafreshClick
+    end
+    object TBFind: TToolButton
+      Left = 63
+      Top = 0
+      AutoSize = True
+      Caption = #36807#28388
+      ImageIndex = 59
+      OnClick = TBFindClick
+    end
+    object TBClose: TToolButton
+      Left = 126
+      Top = 0
+      AutoSize = True
+      Caption = #20851#38381
+      ImageIndex = 55
+      OnClick = TBCloseClick
+    end
+    object ToolButton2: TToolButton
+      Left = 189
+      Top = 0
+      AutoSize = True
+      Caption = #22686#34892
+      ImageIndex = 103
+      Visible = False
+      OnClick = ToolButton2Click
+    end
+    object ToolButton3: TToolButton
+      Left = 252
+      Top = 0
+      AutoSize = True
+      Caption = #21024#34892
+      ImageIndex = 107
+      Visible = False
+      OnClick = ToolButton3Click
+    end
+    object ToolButton4: TToolButton
+      Left = 315
+      Top = 0
+      AutoSize = True
+      Caption = #21040#22383#30830#23450
+      ImageIndex = 113
+      Visible = False
+      OnClick = ToolButton4Click
+    end
+    object ToolButton5: TToolButton
+      Left = 402
+      Top = 0
+      Caption = #22383#24067#39046#26009#30830#23450
+      ImageIndex = 114
+      Visible = False
+      OnClick = ToolButton5Click
+    end
+  end
+  object Panel1: TPanel
+    Left = 0
+    Top = 32
+    Width = 1060
+    Height = 54
+    Align = alTop
+    BevelInner = bvRaised
+    BevelOuter = bvLowered
+    Color = clSkyBlue
+    TabOrder = 1
+    object Label1: TLabel
+      Left = 23
+      Top = 22
+      Width = 52
+      Height = 12
+      Caption = #30331#35760#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 = 444
+      Top = 22
+      Width = 52
+      Height = 12
+      Caption = #20135#21697#21517#31216
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label4: TLabel
+      Left = 612
+      Top = 22
+      Width = 26
+      Height = 12
+      Caption = #35268#26684
+      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
+      ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
+      TabOrder = 0
+    end
+    object EndDate: TDateTimePicker
+      Left = 179
+      Top = 18
+      Width = 86
+      Height = 20
+      Date = 40675.464761099540000000
+      Format = 'yyyy-MM-dd'
+      Time = 40675.464761099540000000
+      ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
+      TabOrder = 1
+    end
+    object ConNoM: TEdit
+      Tag = 2
+      Left = 337
+      Top = 18
+      Width = 81
+      Height = 20
+      ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
+      TabOrder = 2
+      OnChange = ConNoMChange
+      OnKeyPress = ConNoMKeyPress
+    end
+    object C_CodeNameM: TEdit
+      Tag = 2
+      Left = 497
+      Top = 18
+      Width = 83
+      Height = 20
+      ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
+      TabOrder = 3
+      OnChange = ConNoMChange
+    end
+    object C_Spec: TEdit
+      Tag = 2
+      Left = 640
+      Top = 18
+      Width = 83
+      Height = 20
+      ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
+      TabOrder = 4
+      OnChange = ConNoMChange
+    end
+  end
+  object cxGrid1: TcxGrid
+    Left = 0
+    Top = 86
+    Width = 1060
+    Height = 204
+    Align = alClient
+    TabOrder = 2
+    object Tv1: TcxGridDBTableView
+      OnMouseDown = Tv1MouseDown
+      NavigatorButtons.ConfirmDelete = False
+      OnCellClick = Tv1CellClick
+      OnFocusedRecordChanged = Tv1FocusedRecordChanged
+      DataController.DataSource = DataSource1
+      DataController.Summary.DefaultGroupSummaryItems = <>
+      DataController.Summary.FooterSummaryItems = <
+        item
+          Kind = skSum
+          Column = v1PRTOrderQty
+        end
+        item
+          Kind = skSum
+        end
+        item
+          Kind = skSum
+        end
+        item
+          Kind = skSum
+        end>
+      DataController.Summary.SummaryGroups = <>
+      OptionsCustomize.ColumnFiltering = False
+      OptionsData.Editing = False
+      OptionsSelection.CellSelect = False
+      OptionsView.Footer = True
+      OptionsView.GroupByBox = False
+      Styles.Inactive = DataLink_TradeManage.SHuangSe
+      Styles.IncSearch = DataLink_TradeManage.SHuangSe
+      Styles.Selection = DataLink_TradeManage.SHuangSe
+      object v1OrderNo: TcxGridDBColumn
+        Caption = #21512#21516#32534#21495
+        DataBinding.FieldName = 'ConNo'
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_TradeManage.Default
+        Width = 74
+      end
+      object v1Column2: TcxGridDBColumn
+        Caption = #20135#21697#21517#31216
+        DataBinding.FieldName = 'C_CodeName'
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_TradeManage.Default
+        Width = 93
+      end
+      object v1DeliveryDate: TcxGridDBColumn
+        Caption = #20132#36135#26085#26399
+        DataBinding.FieldName = 'DeliveryDate'
+        PropertiesClassName = 'TcxDateEditProperties'
+        Properties.SaveTime = False
+        Properties.ShowTime = False
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_TradeManage.Default
+        Width = 85
+      end
+      object v1Column5: TcxGridDBColumn
+        Caption = #31614#35746#26085#26399
+        DataBinding.FieldName = 'QDTime'
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_TradeManage.Default
+        Width = 81
+      end
+      object v1FactoryNo1Name: TcxGridDBColumn
+        Caption = #20379#26041
+        DataBinding.FieldName = 'FactoryNoName'
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_TradeManage.Default
+        Width = 85
+      end
+      object v1PRTSpec: TcxGridDBColumn
+        Caption = #35268#26684
+        DataBinding.FieldName = 'C_Spec'
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_TradeManage.Default
+        Width = 71
+      end
+      object v1Qty1: TcxGridDBColumn
+        Caption = #21305#25968
+        DataBinding.FieldName = 'Qty1'
+        Visible = False
+        HeaderAlignmentHorz = taCenter
+        Hidden = True
+        Styles.Header = DataLink_TradeManage.Default
+        Width = 46
+      end
+      object v1PRTOrderQty: TcxGridDBColumn
+        Caption = #25968#37327
+        DataBinding.FieldName = 'C_Qty'
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_TradeManage.Default
+        Width = 67
+      end
+      object v1OrderUnit: TcxGridDBColumn
+        Caption = #21333#20301
+        DataBinding.FieldName = 'C_Unit'
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_TradeManage.Default
+        Width = 58
+      end
+      object v1Column4: TcxGridDBColumn
+        Caption = #22791#27880
+        DataBinding.FieldName = 'C_Note'
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_TradeManage.Default
+        Width = 80
+      end
+    end
+    object cxGrid1Level1: TcxGridLevel
+      GridView = Tv1
+    end
+  end
+  object cxSplitter1: TcxSplitter
+    Left = 0
+    Top = 577
+    Width = 1060
+    Height = 8
+    HotZoneClassName = 'TcxMediaPlayer9Style'
+    AlignSplitter = salBottom
+  end
+  object Panel2: TPanel
+    Left = 0
+    Top = 290
+    Width = 1060
+    Height = 287
+    Align = alBottom
+    BevelInner = bvRaised
+    BevelOuter = bvLowered
+    TabOrder = 4
+    object cxGrid2: TcxGrid
+      Left = 2
+      Top = 34
+      Width = 1056
+      Height = 251
+      Align = alClient
+      TabOrder = 0
+      object Tv2: TcxGridDBTableView
+        OnMouseDown = Tv2MouseDown
+        NavigatorButtons.ConfirmDelete = False
+        OnCellClick = Tv2CellClick
+        DataController.DataSource = DataSource2
+        DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
+        DataController.Summary.DefaultGroupSummaryItems = <>
+        DataController.Summary.FooterSummaryItems = <
+          item
+            Kind = skSum
+            Column = v2MxQty
+          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_TradeManage.SHuangSe
+        Styles.IncSearch = DataLink_TradeManage.SHuangSe
+        Styles.Selection = DataLink_TradeManage.SHuangSe
+        object v2ComeDate: TcxGridDBColumn
+          Tag = 2
+          Caption = #21040#36135#26085#26399
+          DataBinding.FieldName = 'ComeDate'
+          PropertiesClassName = 'TcxDateEditProperties'
+          HeaderAlignmentHorz = taCenter
+          Styles.Header = DataLink_TradeManage.Default
+          Width = 117
+        end
+        object v2Column3: TcxGridDBColumn
+          Tag = 2
+          Caption = #21152#24037#21378
+          DataBinding.FieldName = 'RKPlace'
+          PropertiesClassName = 'TcxButtonEditProperties'
+          Properties.Buttons = <
+            item
+              Default = True
+              Kind = bkEllipsis
+            end>
+          Properties.ReadOnly = True
+          Properties.OnButtonClick = v2Column3PropertiesButtonClick
+          HeaderAlignmentHorz = taCenter
+          Styles.Header = DataLink_TradeManage.Default
+          Width = 122
+        end
+        object v2MxQty: TcxGridDBColumn
+          Tag = 2
+          Caption = #25968#37327
+          DataBinding.FieldName = 'MxQty'
+          HeaderAlignmentHorz = taCenter
+          Styles.Header = DataLink_TradeManage.Default
+          Width = 90
+        end
+        object v2Column2: TcxGridDBColumn
+          Tag = 2
+          Caption = #25968#37327#21333#20301
+          DataBinding.FieldName = 'MXUnit'
+          HeaderAlignmentHorz = taCenter
+          Options.Focusing = False
+          Styles.Header = DataLink_TradeManage.Default
+          Width = 63
+        end
+        object v2MxNote: TcxGridDBColumn
+          Tag = 2
+          Caption = #22791#27880
+          DataBinding.FieldName = 'MxNote'
+          HeaderAlignmentHorz = taCenter
+          Styles.Header = DataLink_TradeManage.Default
+          Width = 145
+        end
+      end
+      object cxGrid2Level1: TcxGridLevel
+        GridView = Tv2
+      end
+    end
+    object ToolBar2: TToolBar
+      Left = 2
+      Top = 2
+      Width = 1056
+      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_TradeManage.ThreeImgList
+      List = True
+      ParentColor = False
+      ParentFont = False
+      ShowCaptions = True
+      TabOrder = 1
+      object ToolButton8: TToolButton
+        Left = 0
+        Top = 0
+        AutoSize = True
+        Caption = #22686#34892
+        ImageIndex = 103
+        OnClick = ToolButton2Click
+      end
+      object ToolButton9: TToolButton
+        Left = 63
+        Top = 0
+        AutoSize = True
+        Caption = #21024#34892
+        ImageIndex = 107
+        OnClick = ToolButton3Click
+      end
+      object ToolButton10: TToolButton
+        Left = 126
+        Top = 0
+        AutoSize = True
+        Caption = #21040#36135#30830#23450
+        ImageIndex = 113
+        OnClick = ToolButton4Click
+      end
+    end
+  end
+  object cxGridPopupMenu1: TcxGridPopupMenu
+    Grid = cxGrid1
+    PopupMenus = <>
+    Left = 664
+    Top = 256
+  end
+  object ADOQueryCmd: TADOQuery
+    Connection = DataLink_TradeManage.ADOLink
+    Parameters = <>
+    Left = 936
+  end
+  object ADOQueryMain: TADOQuery
+    Connection = DataLink_TradeManage.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 1000
+  end
+  object ADOQueryTemp: TADOQuery
+    Connection = DataLink_TradeManage.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 ClientDataSet3: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 1112
+    Top = 240
+  end
+  object DataSource2: TDataSource
+    DataSet = ClientDataSet2
+    Left = 880
+    Top = 176
+  end
+  object DataSource3: TDataSource
+    DataSet = ClientDataSet3
+    Left = 1112
+    Top = 216
+  end
+  object ClientDataSet2: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 920
+    Top = 224
+  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 = 352
+    Top = 192
+    ReportData = {}
+  end
+  object RMDBMain: TRMDBDataSet
+    Visible = True
+    DataSet = Order_Main
+    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 cxGridPopupMenu2: TcxGridPopupMenu
+    Grid = cxGrid2
+    PopupMenus = <>
+    Left = 440
+    Top = 520
+  end
+end

打卷检验管理/U_ClothContractListDHSXQJG.dfm

@@ -0,0 +1,599 @@
+object frmClothContractListDHSXQJG: TfrmClothContractListDHSXQJG
+  Left = 74
+  Top = 0
+  Width = 1155
+  Height = 754
+  Caption = #32433#32447#21069#21152#24037
+  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 = 1147
+    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_TradeManage.ThreeImgList
+    List = True
+    ParentColor = False
+    ParentFont = False
+    ShowCaptions = True
+    TabOrder = 0
+    object TBRafresh: TToolButton
+      Left = 0
+      Top = 0
+      AutoSize = True
+      Caption = #21047#26032
+      ImageIndex = 2
+      OnClick = TBRafreshClick
+    end
+    object TBFind: TToolButton
+      Left = 63
+      Top = 0
+      AutoSize = True
+      Caption = #36807#28388
+      ImageIndex = 59
+      OnClick = TBFindClick
+    end
+    object TBClose: TToolButton
+      Left = 126
+      Top = 0
+      AutoSize = True
+      Caption = #20851#38381
+      ImageIndex = 55
+      OnClick = TBCloseClick
+    end
+    object ToolButton2: TToolButton
+      Left = 189
+      Top = 0
+      AutoSize = True
+      Caption = #22686#34892
+      ImageIndex = 103
+      Visible = False
+      OnClick = ToolButton2Click
+    end
+    object ToolButton3: TToolButton
+      Left = 252
+      Top = 0
+      AutoSize = True
+      Caption = #21024#34892
+      ImageIndex = 107
+      Visible = False
+      OnClick = ToolButton3Click
+    end
+    object ToolButton4: TToolButton
+      Left = 315
+      Top = 0
+      AutoSize = True
+      Caption = #21040#22383#30830#23450
+      ImageIndex = 113
+      Visible = False
+      OnClick = ToolButton4Click
+    end
+    object ToolButton5: TToolButton
+      Left = 402
+      Top = 0
+      Caption = #22383#24067#39046#26009#30830#23450
+      ImageIndex = 114
+      Visible = False
+      OnClick = ToolButton5Click
+    end
+  end
+  object Panel1: TPanel
+    Left = 0
+    Top = 32
+    Width = 1147
+    Height = 54
+    Align = alTop
+    BevelInner = bvRaised
+    BevelOuter = bvLowered
+    Color = clSkyBlue
+    TabOrder = 1
+    object Label1: TLabel
+      Left = 23
+      Top = 22
+      Width = 52
+      Height = 12
+      Caption = #30331#35760#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 = 444
+      Top = 22
+      Width = 52
+      Height = 12
+      Caption = #20135#21697#21517#31216
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label4: TLabel
+      Left = 612
+      Top = 22
+      Width = 26
+      Height = 12
+      Caption = #35268#26684
+      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
+      ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
+      TabOrder = 0
+    end
+    object EndDate: TDateTimePicker
+      Left = 179
+      Top = 18
+      Width = 86
+      Height = 20
+      Date = 40675.464761099540000000
+      Format = 'yyyy-MM-dd'
+      Time = 40675.464761099540000000
+      ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
+      TabOrder = 1
+    end
+    object ConNo: TEdit
+      Tag = 2
+      Left = 337
+      Top = 18
+      Width = 81
+      Height = 20
+      ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
+      TabOrder = 2
+      OnChange = ConNoChange
+      OnKeyPress = ConNoKeyPress
+    end
+    object C_CodeNameM: TEdit
+      Tag = 2
+      Left = 497
+      Top = 18
+      Width = 83
+      Height = 20
+      ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
+      TabOrder = 3
+      OnChange = ConNoChange
+    end
+    object C_Spec: TEdit
+      Tag = 2
+      Left = 640
+      Top = 18
+      Width = 83
+      Height = 20
+      ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
+      TabOrder = 4
+      OnChange = ConNoChange
+    end
+  end
+  object cxSplitter1: TcxSplitter
+    Left = 0
+    Top = 712
+    Width = 1147
+    Height = 8
+    HotZoneClassName = 'TcxMediaPlayer9Style'
+    AlignSplitter = salBottom
+  end
+  object Panel2: TPanel
+    Left = 0
+    Top = 425
+    Width = 1147
+    Height = 287
+    Align = alBottom
+    BevelInner = bvRaised
+    BevelOuter = bvLowered
+    TabOrder = 3
+    object cxGrid2: TcxGrid
+      Left = 2
+      Top = 34
+      Width = 1143
+      Height = 251
+      Align = alClient
+      TabOrder = 0
+      object Tv2: TcxGridDBTableView
+        OnMouseDown = Tv2MouseDown
+        NavigatorButtons.ConfirmDelete = False
+        OnCellClick = Tv2CellClick
+        DataController.DataSource = DataSource2
+        DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
+        DataController.Summary.DefaultGroupSummaryItems = <>
+        DataController.Summary.FooterSummaryItems = <
+          item
+            Kind = skSum
+            Column = v2MxQty
+          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_TradeManage.SHuangSe
+        Styles.IncSearch = DataLink_TradeManage.SHuangSe
+        Styles.Selection = DataLink_TradeManage.SHuangSe
+        object v2ComeDate: TcxGridDBColumn
+          Tag = 2
+          Caption = #20986#24211#26085#26399
+          DataBinding.FieldName = 'ComeDate'
+          PropertiesClassName = 'TcxDateEditProperties'
+          HeaderAlignmentHorz = taCenter
+          Styles.Header = DataLink_TradeManage.Default
+          Width = 117
+        end
+        object v2Column3: TcxGridDBColumn
+          Tag = 2
+          Caption = #21518#21152#24037#21378
+          DataBinding.FieldName = 'RKPlace'
+          PropertiesClassName = 'TcxButtonEditProperties'
+          Properties.Buttons = <
+            item
+              Default = True
+              Kind = bkEllipsis
+            end>
+          Properties.ReadOnly = True
+          Properties.OnButtonClick = v2Column3PropertiesButtonClick
+          HeaderAlignmentHorz = taCenter
+          Styles.Header = DataLink_TradeManage.Default
+          Width = 115
+        end
+        object v2MxQty: TcxGridDBColumn
+          Tag = 2
+          Caption = #25968#37327
+          DataBinding.FieldName = 'MxQty'
+          HeaderAlignmentHorz = taCenter
+          Styles.Header = DataLink_TradeManage.Default
+          Width = 90
+        end
+        object v2Column2: TcxGridDBColumn
+          Tag = 2
+          Caption = #25968#37327#21333#20301
+          DataBinding.FieldName = 'MXUnit'
+          HeaderAlignmentHorz = taCenter
+          Options.Focusing = False
+          Styles.Header = DataLink_TradeManage.Default
+          Width = 60
+        end
+        object v2Column1: TcxGridDBColumn
+          Caption = #26579#32433#21333#20215
+          DataBinding.FieldName = 'MXPrice'
+          HeaderAlignmentHorz = taCenter
+          Styles.Header = DataLink_TradeManage.Default
+          Width = 76
+        end
+        object v2MxNote: TcxGridDBColumn
+          Tag = 2
+          Caption = #22791#27880
+          DataBinding.FieldName = 'MxNote'
+          HeaderAlignmentHorz = taCenter
+          Styles.Header = DataLink_TradeManage.Default
+          Width = 145
+        end
+      end
+      object cxGrid2Level1: TcxGridLevel
+        GridView = Tv2
+      end
+    end
+    object ToolBar2: TToolBar
+      Left = 2
+      Top = 2
+      Width = 1143
+      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_TradeManage.ThreeImgList
+      List = True
+      ParentColor = False
+      ParentFont = False
+      ShowCaptions = True
+      TabOrder = 1
+      object ToolButton8: TToolButton
+        Left = 0
+        Top = 0
+        AutoSize = True
+        Caption = #22686#34892
+        ImageIndex = 103
+        OnClick = ToolButton2Click
+      end
+      object ToolButton9: TToolButton
+        Left = 63
+        Top = 0
+        AutoSize = True
+        Caption = #21024#34892
+        ImageIndex = 107
+        OnClick = ToolButton3Click
+      end
+      object ToolButton10: TToolButton
+        Left = 126
+        Top = 0
+        AutoSize = True
+        Caption = #20445#23384
+        ImageIndex = 113
+        OnClick = ToolButton4Click
+      end
+    end
+  end
+  object cxGrid1: TcxGrid
+    Left = 0
+    Top = 86
+    Width = 1147
+    Height = 339
+    Align = alClient
+    TabOrder = 4
+    object Tv1: TcxGridDBTableView
+      NavigatorButtons.ConfirmDelete = False
+      OnCellClick = Tv1CellClick
+      DataController.DataSource = DataSource1
+      DataController.Summary.DefaultGroupSummaryItems = <>
+      DataController.Summary.FooterSummaryItems = <
+        item
+          Kind = skSum
+        end
+        item
+          Kind = skSum
+        end
+        item
+          Kind = skSum
+        end
+        item
+          Kind = skSum
+        end
+        item
+          Kind = skSum
+          Column = v1Column3
+        end
+        item
+          Kind = skSum
+        end
+        item
+          Kind = skSum
+          Column = v1Column8
+        end>
+      DataController.Summary.SummaryGroups = <>
+      OptionsCustomize.ColumnFiltering = False
+      OptionsData.Editing = False
+      OptionsSelection.CellSelect = False
+      OptionsView.Footer = True
+      OptionsView.GroupByBox = False
+      Styles.Inactive = DataLink_TradeManage.SHuangSe
+      Styles.IncSearch = DataLink_TradeManage.SHuangSe
+      Styles.Selection = DataLink_TradeManage.SHuangSe
+      Styles.Header = DataLink_TradeManage.Default
+      object v1OrderNo: TcxGridDBColumn
+        Caption = #21512#21516#32534#21495
+        DataBinding.FieldName = 'ConNo'
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_TradeManage.Default
+        Width = 114
+      end
+      object v1Column2: TcxGridDBColumn
+        Caption = #20135#21697#21517#31216
+        DataBinding.FieldName = 'C_CodeName'
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_TradeManage.Default
+        Width = 112
+      end
+      object v1PRTSpec: TcxGridDBColumn
+        Caption = #35268#26684
+        DataBinding.FieldName = 'C_Spec'
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_TradeManage.Default
+        Width = 106
+      end
+      object v1FactoryNo1Name: TcxGridDBColumn
+        Caption = #21407#26448#26009#21378
+        DataBinding.FieldName = 'FactoryNoName'
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_TradeManage.Default
+        Width = 79
+      end
+      object v1Column5: TcxGridDBColumn
+        Caption = #21069#21152#24037#21378
+        DataBinding.FieldName = 'FirstName'
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_TradeManage.Default
+        Width = 84
+      end
+      object v1OrderUnit: TcxGridDBColumn
+        Caption = #21333#20301
+        DataBinding.FieldName = 'DHUnit'
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_TradeManage.Default
+        Width = 64
+      end
+      object v1Column3: TcxGridDBColumn
+        Caption = #21040#36135#25968#37327
+        DataBinding.FieldName = 'DHQty'
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_TradeManage.Default
+        Width = 68
+      end
+      object v1Column8: TcxGridDBColumn
+        Caption = #32433#32447#25968#37327
+        DataBinding.FieldName = 'ClothQty'
+        HeaderAlignmentHorz = taCenter
+        Width = 60
+      end
+      object v1Column4: TcxGridDBColumn
+        Caption = #22791#27880
+        DataBinding.FieldName = 'C_Note'
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_TradeManage.Default
+        Width = 68
+      end
+    end
+    object cxGrid1Level1: TcxGridLevel
+      GridView = Tv1
+    end
+  end
+  object cxGridPopupMenu1: TcxGridPopupMenu
+    PopupMenus = <>
+    Left = 664
+    Top = 256
+  end
+  object ADOQueryCmd: TADOQuery
+    Connection = DataLink_TradeManage.ADOLink
+    Parameters = <>
+    Left = 936
+  end
+  object ADOQueryMain: TADOQuery
+    Connection = DataLink_TradeManage.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 1000
+  end
+  object ADOQueryTemp: TADOQuery
+    Connection = DataLink_TradeManage.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 ClientDataSet3: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 1112
+    Top = 240
+  end
+  object DataSource2: TDataSource
+    DataSet = ClientDataSet2
+    Left = 880
+    Top = 176
+  end
+  object DataSource3: TDataSource
+    DataSet = ClientDataSet3
+    Left = 1112
+    Top = 216
+  end
+  object ClientDataSet2: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 920
+    Top = 224
+  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 = 352
+    Top = 192
+    ReportData = {}
+  end
+  object RMDBMain: TRMDBDataSet
+    Visible = True
+    DataSet = Order_Main
+    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 cxGridPopupMenu2: TcxGridPopupMenu
+    Grid = cxGrid2
+    PopupMenus = <>
+    Left = 440
+    Top = 520
+  end
+end

打卷检验管理/U_ClothContractListLL.dfm

@@ -0,0 +1,771 @@
+object frmClothContractListLL: TfrmClothContractListLL
+  Left = 138
+  Top = 19
+  Width = 1189
+  Height = 705
+  Caption = #22383#24067#39046#26009
+  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 = 1181
+    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_TradeManage.ThreeImgList
+    List = True
+    ParentColor = False
+    ParentFont = False
+    ShowCaptions = True
+    TabOrder = 0
+    object TBRafresh: TToolButton
+      Left = 0
+      Top = 0
+      AutoSize = True
+      Caption = #21047#26032
+      ImageIndex = 2
+      OnClick = TBRafreshClick
+    end
+    object TBFind: TToolButton
+      Left = 63
+      Top = 0
+      AutoSize = True
+      Caption = #36807#28388
+      ImageIndex = 59
+      OnClick = TBFindClick
+    end
+    object TBClose: TToolButton
+      Left = 126
+      Top = 0
+      AutoSize = True
+      Caption = #20851#38381
+      ImageIndex = 55
+      OnClick = TBCloseClick
+    end
+    object ToolButton2: TToolButton
+      Left = 189
+      Top = 0
+      AutoSize = True
+      Caption = #22686#34892
+      ImageIndex = 103
+      Visible = False
+      OnClick = ToolButton2Click
+    end
+    object ToolButton3: TToolButton
+      Left = 252
+      Top = 0
+      AutoSize = True
+      Caption = #21024#34892
+      ImageIndex = 107
+      Visible = False
+      OnClick = ToolButton3Click
+    end
+    object ToolButton4: TToolButton
+      Left = 315
+      Top = 0
+      AutoSize = True
+      Caption = #21040#22383#30830#23450
+      ImageIndex = 113
+      Visible = False
+    end
+    object ToolButton5: TToolButton
+      Left = 402
+      Top = 0
+      Caption = #22383#24067#39046#26009#30830#23450
+      ImageIndex = 114
+      Visible = False
+      OnClick = ToolButton5Click
+    end
+  end
+  object Panel1: TPanel
+    Left = 0
+    Top = 32
+    Width = 1181
+    Height = 54
+    Align = alTop
+    BevelInner = bvRaised
+    BevelOuter = bvLowered
+    Color = clSkyBlue
+    TabOrder = 1
+    object Label1: TLabel
+      Left = 23
+      Top = 22
+      Width = 52
+      Height = 12
+      Caption = #30331#35760#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 = 444
+      Top = 22
+      Width = 52
+      Height = 12
+      Caption = #20135#21697#21517#31216
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label4: TLabel
+      Left = 612
+      Top = 22
+      Width = 26
+      Height = 12
+      Caption = #35268#26684
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label6: TLabel
+      Left = 748
+      Top = 22
+      Width = 39
+      Height = 12
+      Caption = #22383#24067#21378
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label7: TLabel
+      Left = 892
+      Top = 22
+      Width = 26
+      Height = 12
+      Caption = #26579#21378
+      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
+      ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
+      TabOrder = 0
+    end
+    object EndDate: TDateTimePicker
+      Left = 179
+      Top = 18
+      Width = 86
+      Height = 20
+      Date = 40675.464761099540000000
+      Format = 'yyyy-MM-dd'
+      Time = 40675.464761099540000000
+      ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
+      TabOrder = 1
+    end
+    object ConNo: TEdit
+      Tag = 2
+      Left = 337
+      Top = 18
+      Width = 81
+      Height = 20
+      ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
+      TabOrder = 2
+      OnChange = ConNoChange
+      OnKeyPress = ConNoKeyPress
+    end
+    object C_CodeName: TEdit
+      Tag = 2
+      Left = 497
+      Top = 18
+      Width = 83
+      Height = 20
+      ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
+      TabOrder = 3
+      OnChange = ConNoChange
+    end
+    object C_Spec: TEdit
+      Tag = 2
+      Left = 640
+      Top = 18
+      Width = 83
+      Height = 20
+      ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
+      TabOrder = 4
+      OnChange = ConNoChange
+    end
+    object FactoryNoName: TEdit
+      Tag = 2
+      Left = 792
+      Top = 18
+      Width = 83
+      Height = 20
+      ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
+      TabOrder = 5
+      OnChange = ConNoChange
+    end
+    object FirstName: TEdit
+      Tag = 2
+      Left = 920
+      Top = 18
+      Width = 83
+      Height = 20
+      ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
+      TabOrder = 6
+      OnChange = ConNoChange
+    end
+  end
+  object Panel2: TPanel
+    Left = 0
+    Top = 370
+    Width = 1181
+    Height = 301
+    Align = alBottom
+    BevelInner = bvRaised
+    BevelOuter = bvLowered
+    TabOrder = 2
+    object cxGrid3: TcxGrid
+      Left = 2
+      Top = 34
+      Width = 1177
+      Height = 265
+      Align = alClient
+      TabOrder = 0
+      object Tv3: TcxGridDBTableView
+        NavigatorButtons.ConfirmDelete = False
+        DataController.DataSource = DataSource3
+        DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
+        DataController.Summary.DefaultGroupSummaryItems = <>
+        DataController.Summary.FooterSummaryItems = <
+          item
+            Kind = skSum
+            Column = v3Column2
+          end
+          item
+            Kind = skSum
+            Column = v3Column3
+          end
+          item
+            Kind = skSum
+            Column = v3TPPS
+          end
+          item
+            Kind = skSum
+          end
+          item
+            Kind = skSum
+            Column = v3Column4
+          end
+          item
+            Kind = skAverage
+            Column = v3Column5
+          end>
+        DataController.Summary.SummaryGroups = <>
+        OptionsBehavior.GoToNextCellOnEnter = True
+        OptionsBehavior.FocusCellOnCycle = True
+        OptionsCustomize.ColumnFiltering = False
+        OptionsView.Footer = True
+        OptionsView.GroupByBox = False
+        Styles.Header = DataLink_TradeManage.Default
+        object cxGridDBColumn1: TcxGridDBColumn
+          Caption = #35746#21333#32534#21495
+          DataBinding.FieldName = 'OrderNo'
+          PropertiesClassName = 'TcxButtonEditProperties'
+          Properties.Buttons = <
+            item
+              Default = True
+              Kind = bkEllipsis
+            end>
+          Properties.ReadOnly = True
+          HeaderAlignmentHorz = taCenter
+          Styles.Header = DataLink_TradeManage.Default
+          Width = 98
+        end
+        object cxGridDBPRTColor: TcxGridDBColumn
+          Caption = #39068#33394
+          DataBinding.FieldName = 'PRTColor'
+          HeaderAlignmentHorz = taCenter
+          Options.Focusing = False
+          Styles.Header = DataLink_TradeManage.Default
+          Width = 66
+        end
+        object v3Column12: TcxGridDBColumn
+          Caption = #33394#21495
+          DataBinding.FieldName = 'SOrddefstr1'
+          HeaderAlignmentHorz = taCenter
+          Options.Focusing = False
+          Width = 63
+        end
+        object v3Column16: TcxGridDBColumn
+          Caption = #33457#22411#33457#21495
+          DataBinding.FieldName = 'PRTHX'
+          HeaderAlignmentHorz = taRightJustify
+          Options.Editing = False
+          Options.Focusing = False
+          Width = 67
+        end
+        object v3Column13: TcxGridDBColumn
+          Caption = #20844#26020#25968
+          DataBinding.FieldName = 'PRTOrderKgQty'
+          HeaderAlignmentHorz = taCenter
+          Options.Focusing = False
+          Width = 56
+        end
+        object v3Column14: TcxGridDBColumn
+          Caption = #35746#21333#25968#37327
+          DataBinding.FieldName = 'PRTOrderQty'
+          HeaderAlignmentHorz = taCenter
+          Options.Focusing = False
+          Width = 60
+        end
+        object v3Column15: TcxGridDBColumn
+          Caption = #35746#21333#21333#20301
+          DataBinding.FieldName = 'OrderUnit'
+          HeaderAlignmentHorz = taCenter
+          Options.Focusing = False
+          Width = 62
+        end
+        object v3Column6: TcxGridDBColumn
+          Caption = #39046#26009#26085#26399
+          DataBinding.FieldName = 'TPDate'
+          PropertiesClassName = 'TcxDateEditProperties'
+          Properties.SaveTime = False
+          Properties.ShowTime = False
+          HeaderAlignmentHorz = taCenter
+          Width = 95
+        end
+        object v3Column3: TcxGridDBColumn
+          Caption = #25237#22383#21305#25968
+          DataBinding.FieldName = 'Qty1'
+          Visible = False
+          HeaderAlignmentHorz = taCenter
+          Styles.Header = DataLink_TradeManage.Default
+          Width = 63
+        end
+        object v3TPPS: TcxGridDBColumn
+          Caption = #21305#25968#37327
+          DataBinding.FieldName = 'TPPS'
+          PropertiesClassName = 'TcxTextEditProperties'
+          HeaderAlignmentHorz = taCenter
+          Width = 61
+        end
+        object v3Column2: TcxGridDBColumn
+          Caption = #25968#37327'('#35745#21010')'
+          DataBinding.FieldName = 'TPQty'
+          PropertiesClassName = 'TcxTextEditProperties'
+          Properties.OnEditValueChanged = v3Column2PropertiesEditValueChanged
+          HeaderAlignmentHorz = taCenter
+          Styles.Header = DataLink_TradeManage.Default
+          Width = 97
+        end
+        object v3Column5: TcxGridDBColumn
+          Caption = #35745#21010#32553#29575'(%)'
+          DataBinding.FieldName = 'Qty3'
+          PropertiesClassName = 'TcxTextEditProperties'
+          Properties.OnEditValueChanged = v3Column5PropertiesEditValueChanged
+          HeaderAlignmentHorz = taCenter
+          Width = 85
+        end
+        object v3Column4: TcxGridDBColumn
+          Caption = #25968#37327#20844#24046
+          DataBinding.FieldName = 'Qty2'
+          PropertiesClassName = 'TcxTextEditProperties'
+          Properties.OnEditValueChanged = v3Column2PropertiesEditValueChanged
+          HeaderAlignmentHorz = taCenter
+          Width = 85
+        end
+        object v3Column1: TcxGridDBColumn
+          Caption = #25968#37327#21333#20301
+          DataBinding.FieldName = 'TPUnit'
+          PropertiesClassName = 'TcxComboBoxProperties'
+          Properties.DropDownListStyle = lsFixedList
+          Properties.ImmediatePost = True
+          Properties.Items.Strings = (
+            'M'
+            'Kg')
+          HeaderAlignmentHorz = taCenter
+          Options.Editing = False
+          Width = 68
+        end
+        object v3Column7: TcxGridDBColumn
+          Caption = #25237#22383#20154
+          DataBinding.FieldName = 'TPPerson'
+          HeaderAlignmentHorz = taCenter
+          Width = 72
+        end
+        object v3Column11: TcxGridDBColumn
+          Caption = #32568#36153
+          DataBinding.FieldName = 'GangFee'
+          Visible = False
+          HeaderAlignmentHorz = taCenter
+          Width = 68
+        end
+        object v3Column8: TcxGridDBColumn
+          Caption = #22791#27880
+          DataBinding.FieldName = 'TPNote'
+          HeaderAlignmentHorz = taCenter
+          Width = 105
+        end
+      end
+      object cxGridLevel1: TcxGridLevel
+        GridView = Tv3
+      end
+    end
+    object ToolBar2: TToolBar
+      Left = 2
+      Top = 2
+      Width = 1177
+      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_TradeManage.ThreeImgList
+      List = True
+      ParentColor = False
+      ParentFont = False
+      ShowCaptions = True
+      TabOrder = 1
+      object ToolButton8: TToolButton
+        Left = 0
+        Top = 0
+        AutoSize = True
+        Caption = #22686#34892
+        ImageIndex = 103
+        OnClick = ToolButton2Click
+      end
+      object ToolButton9: TToolButton
+        Left = 63
+        Top = 0
+        AutoSize = True
+        Caption = #21024#34892
+        ImageIndex = 107
+        OnClick = ToolButton3Click
+      end
+      object ToolButton11: TToolButton
+        Left = 126
+        Top = 0
+        Caption = #22383#24067#39046#26009#30830#23450
+        ImageIndex = 114
+        OnClick = ToolButton5Click
+      end
+      object ToolButton1: TToolButton
+        Left = 233
+        Top = 0
+        AutoSize = True
+        Caption = #19968#38190#26367#25442
+        ImageIndex = 54
+        OnClick = ToolButton1Click
+      end
+    end
+  end
+  object cxSplitter1: TcxSplitter
+    Left = 0
+    Top = 362
+    Width = 1181
+    Height = 8
+    HotZoneClassName = 'TcxMediaPlayer9Style'
+    AlignSplitter = salBottom
+    Control = Panel2
+  end
+  object cxGrid1: TcxGrid
+    Left = 0
+    Top = 86
+    Width = 1181
+    Height = 276
+    Align = alClient
+    TabOrder = 4
+    object Tv1: TcxGridDBTableView
+      NavigatorButtons.ConfirmDelete = False
+      OnFocusedRecordChanged = Tv1FocusedRecordChanged
+      DataController.DataSource = DataSource1
+      DataController.Summary.DefaultGroupSummaryItems = <>
+      DataController.Summary.FooterSummaryItems = <
+        item
+          Kind = skSum
+        end
+        item
+          Kind = skSum
+        end
+        item
+          Kind = skSum
+        end
+        item
+          Kind = skSum
+          Column = v1Column6
+        end
+        item
+          Kind = skSum
+          Column = v1Column3
+        end
+        item
+          Kind = skSum
+          Column = v1Column7
+        end
+        item
+          Kind = skSum
+          Column = v1Column8
+        end>
+      DataController.Summary.SummaryGroups = <>
+      OptionsCustomize.ColumnFiltering = False
+      OptionsData.Editing = False
+      OptionsSelection.CellSelect = False
+      OptionsView.Footer = True
+      OptionsView.GroupByBox = False
+      Styles.Inactive = DataLink_TradeManage.SHuangSe
+      Styles.IncSearch = DataLink_TradeManage.SHuangSe
+      Styles.Selection = DataLink_TradeManage.SHuangSe
+      Styles.Header = DataLink_TradeManage.Default
+      object v1OrderNo: TcxGridDBColumn
+        Caption = #21512#21516#32534#21495
+        DataBinding.FieldName = 'ConNo'
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_TradeManage.Default
+        Width = 114
+      end
+      object v1Column2: TcxGridDBColumn
+        Caption = #20135#21697#21517#31216
+        DataBinding.FieldName = 'C_CodeName'
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_TradeManage.Default
+        Width = 112
+      end
+      object v1FactoryNo1Name: TcxGridDBColumn
+        Caption = #22383#24067#21378
+        DataBinding.FieldName = 'FactoryNoName'
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_TradeManage.Default
+        Width = 79
+      end
+      object v1Column5: TcxGridDBColumn
+        Caption = #26579#21378
+        DataBinding.FieldName = 'FirstName'
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_TradeManage.Default
+        Width = 84
+      end
+      object v1PRTSpec: TcxGridDBColumn
+        Caption = #35268#26684
+        DataBinding.FieldName = 'C_Spec'
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_TradeManage.Default
+        Width = 99
+      end
+      object v1PRTMF: TcxGridDBColumn
+        Caption = #38376#24133'(cm)'
+        DataBinding.FieldName = 'MFQty'
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_TradeManage.Default
+        Width = 63
+      end
+      object v1PRTKZ: TcxGridDBColumn
+        Caption = #20811#37325'(g/'#13217')'
+        DataBinding.FieldName = 'KZQty'
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_TradeManage.Default
+        Width = 72
+      end
+      object v1OrderUnit: TcxGridDBColumn
+        Caption = #21333#20301
+        DataBinding.FieldName = 'DHUnit'
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_TradeManage.Default
+        Width = 64
+      end
+      object v1Column6: TcxGridDBColumn
+        Caption = #21040#36135#21305#25968
+        DataBinding.FieldName = 'DHPS'
+        HeaderAlignmentHorz = taCenter
+        Width = 62
+      end
+      object v1Column3: TcxGridDBColumn
+        Caption = #21040#36135#25968#37327
+        DataBinding.FieldName = 'DHQty'
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_TradeManage.Default
+        Width = 68
+      end
+      object v1Column7: TcxGridDBColumn
+        Caption = #30333#22383#21305#25968
+        DataBinding.FieldName = 'ClothPS'
+        HeaderAlignmentHorz = taCenter
+        Width = 64
+      end
+      object v1Column8: TcxGridDBColumn
+        Caption = #30333#22383#25968#37327
+        DataBinding.FieldName = 'ClothQty'
+        HeaderAlignmentHorz = taCenter
+        Width = 58
+      end
+      object v1Column4: TcxGridDBColumn
+        Caption = #22791#27880
+        DataBinding.FieldName = 'C_Note'
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_TradeManage.Default
+        Width = 68
+      end
+    end
+    object cxGrid1Level1: TcxGridLevel
+      GridView = Tv1
+    end
+  end
+  object cxGridPopupMenu1: TcxGridPopupMenu
+    Grid = cxGrid1
+    PopupMenus = <>
+    Left = 752
+    Top = 216
+  end
+  object ADOQueryCmd: TADOQuery
+    Connection = DataLink_TradeManage.ADOLink
+    Parameters = <>
+    Left = 936
+  end
+  object ADOQueryMain: TADOQuery
+    Connection = DataLink_TradeManage.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 1000
+  end
+  object ADOQueryTemp: TADOQuery
+    Connection = DataLink_TradeManage.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 1040
+    Top = 8
+  end
+  object DataSource1: TDataSource
+    DataSet = Order_Main
+    Left = 1088
+    Top = 54
+  end
+  object Order_Main: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 1096
+    Top = 8
+  end
+  object ClientDataSet3: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 955
+    Top = 293
+  end
+  object DataSource2: TDataSource
+    DataSet = ClientDataSet2
+    Left = 880
+    Top = 176
+  end
+  object DataSource3: TDataSource
+    DataSet = ClientDataSet3
+    Left = 1112
+    Top = 216
+  end
+  object ClientDataSet2: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 920
+    Top = 224
+  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 = 352
+    Top = 192
+    ReportData = {}
+  end
+  object RMDBMain: TRMDBDataSet
+    Visible = True
+    DataSet = Order_Main
+    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 cxGridPopupMenu2: TcxGridPopupMenu
+    Grid = cxGrid3
+    PopupMenus = <>
+    Left = 968
+    Top = 480
+  end
+end

打卷检验管理/U_ClothContractListLLSX.dfm

@@ -0,0 +1,719 @@
+object frmClothContractListLLSX: TfrmClothContractListLLSX
+  Left = 25
+  Top = 12
+  Width = 1280
+  Height = 705
+  Caption = #32433#32447#32455#25104#21697#20986#24211
+  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 = 1272
+    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_TradeManage.ThreeImgList
+    List = True
+    ParentColor = False
+    ParentFont = False
+    ShowCaptions = True
+    TabOrder = 0
+    object TBRafresh: TToolButton
+      Left = 0
+      Top = 0
+      AutoSize = True
+      Caption = #21047#26032
+      ImageIndex = 2
+      OnClick = TBRafreshClick
+    end
+    object TBFind: TToolButton
+      Left = 63
+      Top = 0
+      AutoSize = True
+      Caption = #36807#28388
+      ImageIndex = 59
+      OnClick = TBFindClick
+    end
+    object TBClose: TToolButton
+      Left = 126
+      Top = 0
+      AutoSize = True
+      Caption = #20851#38381
+      ImageIndex = 55
+      OnClick = TBCloseClick
+    end
+    object ToolButton2: TToolButton
+      Left = 189
+      Top = 0
+      AutoSize = True
+      Caption = #22686#34892
+      ImageIndex = 103
+      Visible = False
+    end
+    object ToolButton3: TToolButton
+      Left = 252
+      Top = 0
+      AutoSize = True
+      Caption = #21024#34892
+      ImageIndex = 107
+      Visible = False
+      OnClick = ToolButton3Click
+    end
+    object ToolButton4: TToolButton
+      Left = 315
+      Top = 0
+      AutoSize = True
+      Caption = #21040#22383#30830#23450
+      ImageIndex = 113
+      Visible = False
+    end
+    object ToolButton5: TToolButton
+      Left = 402
+      Top = 0
+      Caption = #22383#24067#39046#26009#30830#23450
+      ImageIndex = 114
+      Visible = False
+      OnClick = ToolButton5Click
+    end
+  end
+  object Panel1: TPanel
+    Left = 0
+    Top = 32
+    Width = 1272
+    Height = 54
+    Align = alTop
+    BevelInner = bvRaised
+    BevelOuter = bvLowered
+    Color = clSkyBlue
+    TabOrder = 1
+    object Label1: TLabel
+      Left = 23
+      Top = 22
+      Width = 52
+      Height = 12
+      Caption = #30331#35760#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 = 444
+      Top = 22
+      Width = 52
+      Height = 12
+      Caption = #20135#21697#21517#31216
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label4: TLabel
+      Left = 612
+      Top = 22
+      Width = 26
+      Height = 12
+      Caption = #35268#26684
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label6: TLabel
+      Left = 748
+      Top = 22
+      Width = 52
+      Height = 12
+      Caption = #21407#26448#26009#21378
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label7: TLabel
+      Left = 892
+      Top = 22
+      Width = 39
+      Height = 12
+      Caption = #22383#24067#21378
+      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
+      ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
+      TabOrder = 0
+    end
+    object EndDate: TDateTimePicker
+      Left = 179
+      Top = 18
+      Width = 86
+      Height = 20
+      Date = 40675.464761099540000000
+      Format = 'yyyy-MM-dd'
+      Time = 40675.464761099540000000
+      ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
+      TabOrder = 1
+    end
+    object ConNo: TEdit
+      Tag = 2
+      Left = 337
+      Top = 18
+      Width = 81
+      Height = 20
+      ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
+      TabOrder = 2
+      OnChange = ConNoChange
+      OnKeyPress = ConNoKeyPress
+    end
+    object C_CodeName: TEdit
+      Tag = 2
+      Left = 497
+      Top = 18
+      Width = 83
+      Height = 20
+      ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
+      TabOrder = 3
+      OnChange = ConNoChange
+    end
+    object C_Spec: TEdit
+      Tag = 2
+      Left = 640
+      Top = 18
+      Width = 83
+      Height = 20
+      ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
+      TabOrder = 4
+      OnChange = ConNoChange
+    end
+    object FactoryNoName: TEdit
+      Tag = 2
+      Left = 800
+      Top = 18
+      Width = 83
+      Height = 20
+      ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
+      TabOrder = 5
+      OnChange = ConNoChange
+    end
+    object FirstName: TEdit
+      Tag = 2
+      Left = 932
+      Top = 18
+      Width = 83
+      Height = 20
+      ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
+      TabOrder = 6
+      OnChange = ConNoChange
+    end
+  end
+  object Panel2: TPanel
+    Left = 0
+    Top = 370
+    Width = 1272
+    Height = 301
+    Align = alBottom
+    BevelInner = bvRaised
+    BevelOuter = bvLowered
+    TabOrder = 2
+    object cxGrid3: TcxGrid
+      Left = 2
+      Top = 34
+      Width = 1268
+      Height = 265
+      Align = alClient
+      TabOrder = 0
+      object Tv3: TcxGridDBTableView
+        NavigatorButtons.ConfirmDelete = False
+        DataController.DataSource = DataSource3
+        DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
+        DataController.Summary.DefaultGroupSummaryItems = <>
+        DataController.Summary.FooterSummaryItems = <
+          item
+            Kind = skSum
+            Column = v3Column65
+          end
+          item
+            Kind = skSum
+            Column = v3Column3
+          end
+          item
+            Kind = skSum
+            Column = v3Column9
+          end
+          item
+            Kind = skSum
+          end
+          item
+            Kind = skSum
+            Column = v3Column4
+          end
+          item
+            Kind = skAverage
+            Column = v3Column5
+          end>
+        DataController.Summary.SummaryGroups = <>
+        OptionsBehavior.GoToNextCellOnEnter = True
+        OptionsBehavior.FocusCellOnCycle = True
+        OptionsCustomize.ColumnFiltering = False
+        OptionsView.Footer = True
+        OptionsView.GroupByBox = False
+        Styles.Header = DataLink_TradeManage.Default
+        object v3Column7: TcxGridDBColumn
+          Caption = #22383#24067#21517#31216
+          DataBinding.FieldName = 'PBName'
+          PropertiesClassName = 'TcxButtonEditProperties'
+          Properties.Buttons = <
+            item
+              Default = True
+              Kind = bkEllipsis
+            end>
+          Properties.ReadOnly = True
+          Properties.OnButtonClick = v3Column7PropertiesButtonClick
+          HeaderAlignmentHorz = taCenter
+          Width = 92
+        end
+        object v3Column11: TcxGridDBColumn
+          Caption = #22383#24067#35268#26684
+          DataBinding.FieldName = 'PBSpec'
+          HeaderAlignmentHorz = taCenter
+          Width = 80
+        end
+        object v3Column12: TcxGridDBColumn
+          Caption = #22383#24067#38376#24133'(cm)'
+          DataBinding.FieldName = 'PBMF'
+          HeaderAlignmentHorz = taCenter
+          Width = 94
+        end
+        object v3Column13: TcxGridDBColumn
+          Caption = #22383#24067#20811#37325'(g/'#13217')'
+          DataBinding.FieldName = 'PBKZ'
+          HeaderAlignmentHorz = taCenter
+          Width = 113
+        end
+        object v3Column14: TcxGridDBColumn
+          Caption = #26579#21378
+          DataBinding.FieldName = 'ToName'
+          PropertiesClassName = 'TcxButtonEditProperties'
+          Properties.Buttons = <
+            item
+              Default = True
+              Kind = bkEllipsis
+            end>
+          Properties.ReadOnly = True
+          Properties.OnButtonClick = v3Column14PropertiesButtonClick
+          HeaderAlignmentHorz = taCenter
+          Width = 88
+        end
+        object v3Column6: TcxGridDBColumn
+          Caption = #20986#24211#26085#26399
+          DataBinding.FieldName = 'TPDate'
+          PropertiesClassName = 'TcxDateEditProperties'
+          Properties.SaveTime = False
+          Properties.ShowTime = False
+          HeaderAlignmentHorz = taCenter
+          Width = 91
+        end
+        object v3Column3: TcxGridDBColumn
+          Caption = #25237#22383#21305#25968
+          DataBinding.FieldName = 'Qty1'
+          Visible = False
+          HeaderAlignmentHorz = taCenter
+          Styles.Header = DataLink_TradeManage.Default
+          Width = 63
+        end
+        object v3Column9: TcxGridDBColumn
+          Caption = #20986#24211#21305#25968
+          DataBinding.FieldName = 'SXPS'
+          HeaderAlignmentHorz = taCenter
+          Width = 63
+        end
+        object v3Column4: TcxGridDBColumn
+          Caption = #20986#24211#25968#37327
+          DataBinding.FieldName = 'SXQty'
+          PropertiesClassName = 'TcxTextEditProperties'
+          Properties.OnEditValueChanged = v3Column2PropertiesEditValueChanged
+          HeaderAlignmentHorz = taCenter
+          Width = 85
+        end
+        object v3Column1: TcxGridDBColumn
+          Caption = #25968#37327#21333#20301
+          DataBinding.FieldName = 'SXUnit'
+          PropertiesClassName = 'TcxComboBoxProperties'
+          Properties.DropDownListStyle = lsFixedList
+          Properties.ImmediatePost = True
+          Properties.Items.Strings = (
+            'M'
+            'Kg')
+          HeaderAlignmentHorz = taCenter
+          Width = 65
+        end
+        object v3Column5: TcxGridDBColumn
+          Caption = #25240#31639#31995#25968
+          DataBinding.FieldName = 'ZSXS'
+          PropertiesClassName = 'TcxTextEditProperties'
+          Properties.OnEditValueChanged = v3Column2PropertiesEditValueChanged
+          HeaderAlignmentHorz = taCenter
+          Width = 85
+        end
+        object v3Column65: TcxGridDBColumn
+          Caption = #32433#32447#25968#37327
+          DataBinding.FieldName = 'TPQty'
+          PropertiesClassName = 'TcxTextEditProperties'
+          HeaderAlignmentHorz = taCenter
+          Styles.Header = DataLink_TradeManage.Default
+          Width = 63
+        end
+        object v3Column10: TcxGridDBColumn
+          Caption = #21152#24037#21333#20215
+          DataBinding.FieldName = 'JGPrice'
+          HeaderAlignmentHorz = taCenter
+          Width = 63
+        end
+        object v3Column8: TcxGridDBColumn
+          Caption = #22791#27880
+          DataBinding.FieldName = 'TPNote'
+          Width = 105
+        end
+      end
+      object cxGridLevel1: TcxGridLevel
+        GridView = Tv3
+      end
+    end
+    object ToolBar2: TToolBar
+      Left = 2
+      Top = 2
+      Width = 1268
+      AutoSize = True
+      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_TradeManage.ThreeImgList
+      List = True
+      ParentColor = False
+      ParentFont = False
+      ShowCaptions = True
+      TabOrder = 1
+      object ToolButton8: TToolButton
+        Left = 0
+        Top = 0
+        AutoSize = True
+        Caption = #22686#34892
+        ImageIndex = 103
+        OnClick = ToolButton8Click
+      end
+      object ToolButton9: TToolButton
+        Left = 63
+        Top = 0
+        AutoSize = True
+        Caption = #21024#34892
+        ImageIndex = 107
+        OnClick = ToolButton3Click
+      end
+      object ToolButton11: TToolButton
+        Left = 126
+        Top = 0
+        Caption = #32455#25104#21697#20986#24211#30830#23450
+        ImageIndex = 114
+        OnClick = ToolButton5Click
+      end
+      object ToolButton1: TToolButton
+        Left = 245
+        Top = 0
+        AutoSize = True
+        Caption = #19968#38190#26367#25442
+        ImageIndex = 54
+        OnClick = ToolButton1Click
+      end
+    end
+  end
+  object cxSplitter1: TcxSplitter
+    Left = 0
+    Top = 362
+    Width = 1272
+    Height = 8
+    HotZoneClassName = 'TcxMediaPlayer9Style'
+    AlignSplitter = salBottom
+    Control = Panel2
+  end
+  object cxGrid1: TcxGrid
+    Left = 0
+    Top = 86
+    Width = 1272
+    Height = 276
+    Align = alClient
+    TabOrder = 4
+    object Tv1: TcxGridDBTableView
+      NavigatorButtons.ConfirmDelete = False
+      OnCellClick = Tv1CellClick
+      DataController.DataSource = DataSource1
+      DataController.Summary.DefaultGroupSummaryItems = <>
+      DataController.Summary.FooterSummaryItems = <
+        item
+          Kind = skSum
+        end
+        item
+          Kind = skSum
+        end
+        item
+          Kind = skSum
+        end
+        item
+          Kind = skSum
+        end
+        item
+          Kind = skSum
+          Column = v1Column3
+        end
+        item
+          Kind = skSum
+        end
+        item
+          Kind = skSum
+          Column = v1Column8
+        end>
+      DataController.Summary.SummaryGroups = <>
+      OptionsCustomize.ColumnFiltering = False
+      OptionsData.Editing = False
+      OptionsSelection.CellSelect = False
+      OptionsView.Footer = True
+      OptionsView.GroupByBox = False
+      Styles.Inactive = DataLink_TradeManage.SHuangSe
+      Styles.IncSearch = DataLink_TradeManage.SHuangSe
+      Styles.Selection = DataLink_TradeManage.SHuangSe
+      Styles.Header = DataLink_TradeManage.Default
+      object v1OrderNo: TcxGridDBColumn
+        Caption = #21512#21516#32534#21495
+        DataBinding.FieldName = 'ConNo'
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_TradeManage.Default
+        Width = 114
+      end
+      object v1Column2: TcxGridDBColumn
+        Caption = #20135#21697#21517#31216
+        DataBinding.FieldName = 'C_CodeName'
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_TradeManage.Default
+        Width = 112
+      end
+      object v1PRTSpec: TcxGridDBColumn
+        Caption = #35268#26684
+        DataBinding.FieldName = 'C_Spec'
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_TradeManage.Default
+        Width = 106
+      end
+      object v1FactoryNo1Name: TcxGridDBColumn
+        Caption = #21407#26448#26009#21378
+        DataBinding.FieldName = 'FactoryNoName'
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_TradeManage.Default
+        Width = 79
+      end
+      object v1Column5: TcxGridDBColumn
+        Caption = #22383#24067#21378
+        DataBinding.FieldName = 'FirstName'
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_TradeManage.Default
+        Width = 84
+      end
+      object v1OrderUnit: TcxGridDBColumn
+        Caption = #21333#20301
+        DataBinding.FieldName = 'DHUnit'
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_TradeManage.Default
+        Width = 64
+      end
+      object v1Column3: TcxGridDBColumn
+        Caption = #21040#36135#25968#37327
+        DataBinding.FieldName = 'DHQty'
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_TradeManage.Default
+        Width = 68
+      end
+      object v1Column8: TcxGridDBColumn
+        Caption = #32433#32447#25968#37327
+        DataBinding.FieldName = 'ClothQty'
+        HeaderAlignmentHorz = taCenter
+        Width = 60
+      end
+      object v1Column4: TcxGridDBColumn
+        Caption = #22791#27880
+        DataBinding.FieldName = 'C_Note'
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_TradeManage.Default
+        Width = 68
+      end
+    end
+    object cxGrid1Level1: TcxGridLevel
+      GridView = Tv1
+    end
+  end
+  object cxGridPopupMenu1: TcxGridPopupMenu
+    Grid = cxGrid1
+    PopupMenus = <>
+    Left = 752
+    Top = 216
+  end
+  object ADOQueryCmd: TADOQuery
+    Connection = DataLink_TradeManage.ADOLink
+    Parameters = <>
+    Left = 936
+  end
+  object ADOQueryMain: TADOQuery
+    Connection = DataLink_TradeManage.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 1000
+  end
+  object ADOQueryTemp: TADOQuery
+    Connection = DataLink_TradeManage.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 ClientDataSet3: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 1112
+    Top = 240
+  end
+  object DataSource2: TDataSource
+    DataSet = ClientDataSet2
+    Left = 880
+    Top = 176
+  end
+  object DataSource3: TDataSource
+    DataSet = ClientDataSet3
+    Left = 1112
+    Top = 216
+  end
+  object ClientDataSet2: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 920
+    Top = 224
+  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 = 352
+    Top = 192
+    ReportData = {}
+  end
+  object RMDBMain: TRMDBDataSet
+    Visible = True
+    DataSet = Order_Main
+    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 cxGridPopupMenu2: TcxGridPopupMenu
+    Grid = cxGrid3
+    PopupMenus = <>
+    Left = 1128
+    Top = 472
+  end
+end

打卷检验管理/U_ClothContractListLLSXQJG.dfm

@@ -0,0 +1,712 @@
+object frmClothContractListLLSXQJG: TfrmClothContractListLLSXQJG
+  Left = 37
+  Top = 2
+  Width = 1280
+  Height = 705
+  Caption = #32433#32447#21069#21152#24037#20986#24211
+  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 = 1272
+    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_TradeManage.ThreeImgList
+    List = True
+    ParentColor = False
+    ParentFont = False
+    ShowCaptions = True
+    TabOrder = 0
+    object TBRafresh: TToolButton
+      Left = 0
+      Top = 0
+      AutoSize = True
+      Caption = #21047#26032
+      ImageIndex = 2
+      OnClick = TBRafreshClick
+    end
+    object TBFind: TToolButton
+      Left = 63
+      Top = 0
+      AutoSize = True
+      Caption = #36807#28388
+      ImageIndex = 59
+      OnClick = TBFindClick
+    end
+    object TBClose: TToolButton
+      Left = 126
+      Top = 0
+      AutoSize = True
+      Caption = #20851#38381
+      ImageIndex = 55
+      OnClick = TBCloseClick
+    end
+    object ToolButton2: TToolButton
+      Left = 189
+      Top = 0
+      AutoSize = True
+      Caption = #22686#34892
+      ImageIndex = 103
+      Visible = False
+    end
+    object ToolButton3: TToolButton
+      Left = 252
+      Top = 0
+      AutoSize = True
+      Caption = #21024#34892
+      ImageIndex = 107
+      Visible = False
+      OnClick = ToolButton3Click
+    end
+    object ToolButton4: TToolButton
+      Left = 315
+      Top = 0
+      AutoSize = True
+      Caption = #21040#22383#30830#23450
+      ImageIndex = 113
+      Visible = False
+    end
+    object ToolButton5: TToolButton
+      Left = 402
+      Top = 0
+      Caption = #22383#24067#39046#26009#30830#23450
+      ImageIndex = 114
+      Visible = False
+      OnClick = ToolButton5Click
+    end
+  end
+  object Panel1: TPanel
+    Left = 0
+    Top = 32
+    Width = 1272
+    Height = 54
+    Align = alTop
+    BevelInner = bvRaised
+    BevelOuter = bvLowered
+    Color = clSkyBlue
+    TabOrder = 1
+    object Label1: TLabel
+      Left = 23
+      Top = 22
+      Width = 52
+      Height = 12
+      Caption = #30331#35760#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 = 444
+      Top = 22
+      Width = 52
+      Height = 12
+      Caption = #20135#21697#21517#31216
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label4: TLabel
+      Left = 612
+      Top = 22
+      Width = 26
+      Height = 12
+      Caption = #35268#26684
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label6: TLabel
+      Left = 748
+      Top = 22
+      Width = 52
+      Height = 12
+      Caption = #21407#26448#26009#21378
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label7: TLabel
+      Left = 892
+      Top = 22
+      Width = 39
+      Height = 12
+      Caption = #22383#24067#21378
+      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 = ConNoKeyPress
+    end
+    object C_CodeName: TEdit
+      Tag = 2
+      Left = 497
+      Top = 18
+      Width = 83
+      Height = 20
+      TabOrder = 3
+      OnChange = ConNoChange
+    end
+    object C_Spec: TEdit
+      Tag = 2
+      Left = 640
+      Top = 18
+      Width = 83
+      Height = 20
+      TabOrder = 4
+      OnChange = ConNoChange
+    end
+    object FactoryNoName: TEdit
+      Tag = 2
+      Left = 800
+      Top = 18
+      Width = 83
+      Height = 20
+      TabOrder = 5
+      OnChange = ConNoChange
+    end
+    object FirstName: TEdit
+      Tag = 2
+      Left = 932
+      Top = 18
+      Width = 83
+      Height = 20
+      TabOrder = 6
+      OnChange = ConNoChange
+    end
+  end
+  object Panel2: TPanel
+    Left = 0
+    Top = 367
+    Width = 1272
+    Height = 301
+    Align = alBottom
+    BevelInner = bvRaised
+    BevelOuter = bvLowered
+    TabOrder = 2
+    object cxGrid3: TcxGrid
+      Left = 2
+      Top = 34
+      Width = 1268
+      Height = 265
+      Align = alClient
+      TabOrder = 0
+      object Tv3: TcxGridDBTableView
+        NavigatorButtons.ConfirmDelete = False
+        DataController.DataSource = DataSource3
+        DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
+        DataController.Summary.DefaultGroupSummaryItems = <>
+        DataController.Summary.FooterSummaryItems = <
+          item
+            Kind = skSum
+            Column = v3Column65
+          end
+          item
+            Kind = skSum
+            Column = v3Column3
+          end
+          item
+            Kind = skSum
+            Column = v3Column9
+          end
+          item
+            Kind = skSum
+          end
+          item
+            Kind = skSum
+            Column = v3Column4
+          end
+          item
+            Kind = skAverage
+            Column = v3Column5
+          end>
+        DataController.Summary.SummaryGroups = <>
+        OptionsBehavior.GoToNextCellOnEnter = True
+        OptionsBehavior.FocusCellOnCycle = True
+        OptionsCustomize.ColumnFiltering = False
+        OptionsView.Footer = True
+        OptionsView.GroupByBox = False
+        Styles.Header = DataLink_TradeManage.Default
+        object v3Column7: TcxGridDBColumn
+          Caption = #22383#24067#21517#31216
+          DataBinding.FieldName = 'PBName'
+          PropertiesClassName = 'TcxButtonEditProperties'
+          Properties.Buttons = <
+            item
+              Default = True
+              Kind = bkEllipsis
+            end>
+          Properties.ReadOnly = True
+          Properties.OnButtonClick = v3Column7PropertiesButtonClick
+          HeaderAlignmentHorz = taCenter
+          Width = 92
+        end
+        object v3Column11: TcxGridDBColumn
+          Caption = #22383#24067#35268#26684
+          DataBinding.FieldName = 'PBSpec'
+          HeaderAlignmentHorz = taCenter
+          Width = 80
+        end
+        object v3Column12: TcxGridDBColumn
+          Caption = #22383#24067#38376#24133'(cm)'
+          DataBinding.FieldName = 'PBMF'
+          HeaderAlignmentHorz = taCenter
+          Width = 94
+        end
+        object v3Column13: TcxGridDBColumn
+          Caption = #22383#24067#20811#37325'(g/'#13217')'
+          DataBinding.FieldName = 'PBKZ'
+          HeaderAlignmentHorz = taCenter
+          Width = 113
+        end
+        object v3Column14: TcxGridDBColumn
+          Caption = #26579#21378
+          DataBinding.FieldName = 'ToName'
+          PropertiesClassName = 'TcxButtonEditProperties'
+          Properties.Buttons = <
+            item
+              Default = True
+              Kind = bkEllipsis
+            end>
+          Properties.ReadOnly = True
+          Properties.OnButtonClick = v3Column14PropertiesButtonClick
+          HeaderAlignmentHorz = taCenter
+          Width = 88
+        end
+        object v3Column6: TcxGridDBColumn
+          Caption = #20986#24211#26085#26399
+          DataBinding.FieldName = 'TPDate'
+          PropertiesClassName = 'TcxDateEditProperties'
+          Properties.SaveTime = False
+          Properties.ShowTime = False
+          HeaderAlignmentHorz = taCenter
+          Width = 91
+        end
+        object v3Column3: TcxGridDBColumn
+          Caption = #25237#22383#21305#25968
+          DataBinding.FieldName = 'Qty1'
+          Visible = False
+          HeaderAlignmentHorz = taCenter
+          Styles.Header = DataLink_TradeManage.Default
+          Width = 63
+        end
+        object v3Column9: TcxGridDBColumn
+          Caption = #20986#24211#21305#25968
+          DataBinding.FieldName = 'SXPS'
+          HeaderAlignmentHorz = taCenter
+          Width = 63
+        end
+        object v3Column4: TcxGridDBColumn
+          Caption = #20986#24211#25968#37327
+          DataBinding.FieldName = 'SXQty'
+          PropertiesClassName = 'TcxTextEditProperties'
+          Properties.OnEditValueChanged = v3Column2PropertiesEditValueChanged
+          HeaderAlignmentHorz = taCenter
+          Width = 85
+        end
+        object v3Column1: TcxGridDBColumn
+          Caption = #25968#37327#21333#20301
+          DataBinding.FieldName = 'SXUnit'
+          PropertiesClassName = 'TcxComboBoxProperties'
+          Properties.DropDownListStyle = lsFixedList
+          Properties.ImmediatePost = True
+          Properties.Items.Strings = (
+            'M'
+            'Kg')
+          HeaderAlignmentHorz = taCenter
+          Width = 65
+        end
+        object v3Column5: TcxGridDBColumn
+          Caption = #25240#31639#31995#25968
+          DataBinding.FieldName = 'ZSXS'
+          PropertiesClassName = 'TcxTextEditProperties'
+          Properties.OnEditValueChanged = v3Column2PropertiesEditValueChanged
+          HeaderAlignmentHorz = taCenter
+          Width = 85
+        end
+        object v3Column65: TcxGridDBColumn
+          Caption = #32433#32447#25968#37327
+          DataBinding.FieldName = 'TPQty'
+          PropertiesClassName = 'TcxTextEditProperties'
+          HeaderAlignmentHorz = taCenter
+          Styles.Header = DataLink_TradeManage.Default
+          Width = 63
+        end
+        object v3Column10: TcxGridDBColumn
+          Caption = #21152#24037#21333#20215
+          DataBinding.FieldName = 'JGPrice'
+          HeaderAlignmentHorz = taCenter
+          Width = 63
+        end
+        object v3Column8: TcxGridDBColumn
+          Caption = #22791#27880
+          DataBinding.FieldName = 'TPNote'
+          Width = 105
+        end
+      end
+      object cxGridLevel1: TcxGridLevel
+        GridView = Tv3
+      end
+    end
+    object ToolBar2: TToolBar
+      Left = 2
+      Top = 2
+      Width = 1268
+      AutoSize = True
+      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_TradeManage.ThreeImgList
+      List = True
+      ParentColor = False
+      ParentFont = False
+      ShowCaptions = True
+      TabOrder = 1
+      object ToolButton8: TToolButton
+        Left = 0
+        Top = 0
+        AutoSize = True
+        Caption = #22686#34892
+        ImageIndex = 103
+        OnClick = ToolButton8Click
+      end
+      object ToolButton9: TToolButton
+        Left = 63
+        Top = 0
+        AutoSize = True
+        Caption = #21024#34892
+        ImageIndex = 107
+        OnClick = ToolButton3Click
+      end
+      object ToolButton11: TToolButton
+        Left = 126
+        Top = 0
+        Caption = #32455#25104#21697#20986#24211#30830#23450
+        ImageIndex = 114
+        OnClick = ToolButton5Click
+      end
+      object ToolButton1: TToolButton
+        Left = 245
+        Top = 0
+        AutoSize = True
+        Caption = #19968#38190#26367#25442
+        ImageIndex = 54
+        OnClick = ToolButton1Click
+      end
+    end
+  end
+  object cxSplitter1: TcxSplitter
+    Left = 0
+    Top = 359
+    Width = 1272
+    Height = 8
+    HotZoneClassName = 'TcxMediaPlayer9Style'
+    AlignSplitter = salBottom
+    Control = Panel2
+  end
+  object cxGrid1: TcxGrid
+    Left = 0
+    Top = 86
+    Width = 1272
+    Height = 273
+    Align = alClient
+    TabOrder = 4
+    object Tv1: TcxGridDBTableView
+      NavigatorButtons.ConfirmDelete = False
+      OnCellClick = Tv1CellClick
+      DataController.DataSource = DataSource1
+      DataController.Summary.DefaultGroupSummaryItems = <>
+      DataController.Summary.FooterSummaryItems = <
+        item
+          Kind = skSum
+        end
+        item
+          Kind = skSum
+        end
+        item
+          Kind = skSum
+        end
+        item
+          Kind = skSum
+        end
+        item
+          Kind = skSum
+          Column = v1Column3
+        end
+        item
+          Kind = skSum
+        end
+        item
+          Kind = skSum
+          Column = v1Column8
+        end>
+      DataController.Summary.SummaryGroups = <>
+      OptionsCustomize.ColumnFiltering = False
+      OptionsData.Editing = False
+      OptionsSelection.CellSelect = False
+      OptionsView.Footer = True
+      OptionsView.GroupByBox = False
+      Styles.Inactive = DataLink_TradeManage.SHuangSe
+      Styles.IncSearch = DataLink_TradeManage.SHuangSe
+      Styles.Selection = DataLink_TradeManage.SHuangSe
+      Styles.Header = DataLink_TradeManage.Default
+      object v1OrderNo: TcxGridDBColumn
+        Caption = #21512#21516#32534#21495
+        DataBinding.FieldName = 'ConNo'
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_TradeManage.Default
+        Width = 114
+      end
+      object v1Column2: TcxGridDBColumn
+        Caption = #20135#21697#21517#31216
+        DataBinding.FieldName = 'C_CodeName'
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_TradeManage.Default
+        Width = 112
+      end
+      object v1PRTSpec: TcxGridDBColumn
+        Caption = #35268#26684
+        DataBinding.FieldName = 'C_Spec'
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_TradeManage.Default
+        Width = 106
+      end
+      object v1FactoryNo1Name: TcxGridDBColumn
+        Caption = #21407#26448#26009#21378
+        DataBinding.FieldName = 'FactoryNoName'
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_TradeManage.Default
+        Width = 79
+      end
+      object v1Column5: TcxGridDBColumn
+        Caption = #22383#24067#21378
+        DataBinding.FieldName = 'FirstName'
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_TradeManage.Default
+        Width = 84
+      end
+      object v1OrderUnit: TcxGridDBColumn
+        Caption = #21333#20301
+        DataBinding.FieldName = 'DHUnit'
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_TradeManage.Default
+        Width = 64
+      end
+      object v1Column3: TcxGridDBColumn
+        Caption = #21040#36135#25968#37327
+        DataBinding.FieldName = 'DHQty'
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_TradeManage.Default
+        Width = 68
+      end
+      object v1Column8: TcxGridDBColumn
+        Caption = #32433#32447#25968#37327
+        DataBinding.FieldName = 'ClothQty'
+        HeaderAlignmentHorz = taCenter
+        Width = 60
+      end
+      object v1Column4: TcxGridDBColumn
+        Caption = #22791#27880
+        DataBinding.FieldName = 'C_Note'
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_TradeManage.Default
+        Width = 68
+      end
+    end
+    object cxGrid1Level1: TcxGridLevel
+      GridView = Tv1
+    end
+  end
+  object cxGridPopupMenu1: TcxGridPopupMenu
+    Grid = cxGrid1
+    PopupMenus = <>
+    Left = 752
+    Top = 216
+  end
+  object ADOQueryCmd: TADOQuery
+    Connection = DataLink_TradeManage.ADOLink
+    Parameters = <>
+    Left = 936
+  end
+  object ADOQueryMain: TADOQuery
+    Connection = DataLink_TradeManage.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 1000
+  end
+  object ADOQueryTemp: TADOQuery
+    Connection = DataLink_TradeManage.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 ClientDataSet3: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 1112
+    Top = 240
+  end
+  object DataSource2: TDataSource
+    DataSet = ClientDataSet2
+    Left = 880
+    Top = 176
+  end
+  object DataSource3: TDataSource
+    DataSet = ClientDataSet3
+    Left = 1112
+    Top = 216
+  end
+  object ClientDataSet2: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 920
+    Top = 224
+  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 = 352
+    Top = 192
+    ReportData = {}
+  end
+  object RMDBMain: TRMDBDataSet
+    Visible = True
+    DataSet = Order_Main
+    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 cxGridPopupMenu2: TcxGridPopupMenu
+    Grid = cxGrid3
+    PopupMenus = <>
+    Left = 1128
+    Top = 472
+  end
+end

打卷检验管理/U_ClothContractListSX.dfm

@@ -0,0 +1,436 @@
+object frmClothContractListSX: TfrmClothContractListSX
+  Left = -41
+  Top = 54
+  Width = 1280
+  Height = 705
+  Caption = #32433#32447#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 = 1272
+    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_TradeManage.ThreeImgList
+    List = True
+    ParentColor = False
+    ParentFont = False
+    ShowCaptions = True
+    TabOrder = 0
+    object TBRafresh: TToolButton
+      Left = 0
+      Top = 0
+      AutoSize = True
+      Caption = #21047#26032
+      ImageIndex = 2
+      OnClick = TBRafreshClick
+    end
+    object TBFind: TToolButton
+      Left = 63
+      Top = 0
+      AutoSize = True
+      Caption = #36807#28388
+      ImageIndex = 59
+      OnClick = TBFindClick
+    end
+    object TBAdd: TToolButton
+      Left = 126
+      Top = 0
+      AutoSize = True
+      Caption = #26032#22686
+      ImageIndex = 3
+      OnClick = TBAddClick
+    end
+    object TBEdit: TToolButton
+      Left = 189
+      Top = 0
+      AutoSize = True
+      Caption = #20462#25913
+      ImageIndex = 54
+      OnClick = TBEditClick
+    end
+    object TBDel: TToolButton
+      Left = 252
+      Top = 0
+      AutoSize = True
+      Caption = #21024#38500
+      ImageIndex = 17
+      OnClick = TBDelClick
+    end
+    object TBExport: TToolButton
+      Left = 315
+      Top = 0
+      AutoSize = True
+      Caption = #23548#20986
+      ImageIndex = 75
+      OnClick = TBExportClick
+    end
+    object TBPrint: TToolButton
+      Left = 378
+      Top = 0
+      AutoSize = True
+      Caption = #25171#21360
+      ImageIndex = 12
+      OnClick = TBPrintClick
+    end
+    object TBClose: TToolButton
+      Left = 441
+      Top = 0
+      AutoSize = True
+      Caption = #20851#38381
+      ImageIndex = 55
+      OnClick = TBCloseClick
+    end
+  end
+  object Panel1: TPanel
+    Left = 0
+    Top = 32
+    Width = 1272
+    Height = 54
+    Align = alTop
+    BevelInner = bvRaised
+    BevelOuter = bvLowered
+    Color = clSkyBlue
+    TabOrder = 1
+    object Label1: TLabel
+      Left = 23
+      Top = 22
+      Width = 52
+      Height = 12
+      Caption = #30331#35760#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 = 444
+      Top = 22
+      Width = 52
+      Height = 12
+      Caption = #20135#21697#21517#31216
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label4: TLabel
+      Left = 612
+      Top = 22
+      Width = 26
+      Height = 12
+      Caption = #35268#26684
+      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 ConNoM: TEdit
+      Tag = 2
+      Left = 337
+      Top = 18
+      Width = 81
+      Height = 20
+      TabOrder = 2
+      OnChange = ConNoMChange
+      OnKeyPress = conPress
+    end
+    object C_CodeNameM: TEdit
+      Tag = 2
+      Left = 497
+      Top = 18
+      Width = 83
+      Height = 20
+      TabOrder = 3
+      OnChange = ConNoMChange
+    end
+    object C_Spec: TEdit
+      Tag = 2
+      Left = 640
+      Top = 18
+      Width = 83
+      Height = 20
+      TabOrder = 4
+      OnChange = ConNoMChange
+    end
+  end
+  object cxGrid1: TcxGrid
+    Left = 64
+    Top = 112
+    Width = 929
+    Height = 377
+    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 = v1Column1
+        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_TradeManage.SHuangSe
+      Styles.IncSearch = DataLink_TradeManage.SHuangSe
+      Styles.Selection = DataLink_TradeManage.SHuangSe
+      object v1OrderNo: TcxGridDBColumn
+        Caption = #21512#21516#32534#21495
+        DataBinding.FieldName = 'ConNo'
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_TradeManage.Default
+        Width = 65
+      end
+      object v1Column2: TcxGridDBColumn
+        Caption = #20135#21697#21517#31216
+        DataBinding.FieldName = 'C_CodeName'
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_TradeManage.Default
+        Width = 58
+      end
+      object v1DeliveryDate: TcxGridDBColumn
+        Caption = #20132#36135#26085#26399
+        DataBinding.FieldName = 'DeliveryDate'
+        PropertiesClassName = 'TcxDateEditProperties'
+        Properties.SaveTime = False
+        Properties.ShowTime = False
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_TradeManage.Default
+        Width = 63
+      end
+      object v1Column5: TcxGridDBColumn
+        Caption = #31614#35746#26085#26399
+        DataBinding.FieldName = 'QDTime'
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_TradeManage.Default
+        Width = 70
+      end
+      object v1FactoryNo1Name: TcxGridDBColumn
+        Caption = #20379#26041
+        DataBinding.FieldName = 'FactoryNoName'
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_TradeManage.Default
+        Width = 60
+      end
+      object v1PRTSpec: TcxGridDBColumn
+        Caption = #35268#26684
+        DataBinding.FieldName = 'C_Spec'
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_TradeManage.Default
+        Width = 66
+      end
+      object v1Qty1: TcxGridDBColumn
+        Caption = #21305#25968
+        DataBinding.FieldName = 'Qty1'
+        Visible = False
+        HeaderAlignmentHorz = taCenter
+        Hidden = True
+        Styles.Header = DataLink_TradeManage.Default
+        Width = 46
+      end
+      object v1PRTOrderQty: TcxGridDBColumn
+        Caption = #25968#37327
+        DataBinding.FieldName = 'C_Qty'
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_TradeManage.Default
+        Width = 58
+      end
+      object v1OrderUnit: TcxGridDBColumn
+        Caption = #21333#20301
+        DataBinding.FieldName = 'C_Unit'
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_TradeManage.Default
+        Width = 47
+      end
+      object v1Column1: TcxGridDBColumn
+        Caption = #21333#20215
+        DataBinding.FieldName = 'Price'
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_TradeManage.Default
+        Width = 57
+      end
+      object v1PRTUnit: TcxGridDBColumn
+        Caption = #24065#31181
+        DataBinding.FieldName = 'PriceUnit'
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_TradeManage.Default
+        Width = 61
+      end
+      object v1PRTQty: TcxGridDBColumn
+        Caption = #24635#20215
+        DataBinding.FieldName = 'Money'
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_TradeManage.Default
+        Width = 58
+      end
+      object v1Column4: TcxGridDBColumn
+        Caption = #22791#27880
+        DataBinding.FieldName = 'C_Note'
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_TradeManage.Default
+        Width = 68
+      end
+    end
+    object cxGrid1Level1: TcxGridLevel
+      GridView = Tv1
+    end
+  end
+  object cxGridPopupMenu1: TcxGridPopupMenu
+    PopupMenus = <>
+    Left = 1128
+  end
+  object ADOQueryCmd: TADOQuery
+    Connection = DataLink_TradeManage.ADOLink
+    Parameters = <>
+    Left = 936
+  end
+  object ADOQueryMain: TADOQuery
+    Connection = DataLink_TradeManage.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 1000
+  end
+  object ADOQueryTemp: TADOQuery
+    Connection = DataLink_TradeManage.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, 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 = 880
+    Top = 56
+  end
+end

打卷检验管理/U_ClothContractListSX.pas

@@ -0,0 +1,375 @@
+unit U_ClothContractListSX;
+
+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;
+
+type
+  TfrmClothContractListSX = 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;
+    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;
+    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 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 ConNoMChange(Sender: TObject);
+    procedure FormShow(Sender: TObject);
+    procedure conPress(Sender: TObject; var Key: Char);
+  private
+    FInt,PFInt:Integer;
+    procedure InitGrid();
+    procedure InitForm();
+    function  DelData():Boolean;
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+var
+  frmClothContractListSX: TfrmClothContractListSX;
+
+implementation
+uses
+  U_DataLink,U_ClothContractInPutSX,U_Fun,U_ProductOrderList,U_ZDYHelp;
+
+{$R *.dfm}
+
+procedure TfrmClothContractListSX.FormDestroy(Sender: TObject);
+begin
+  frmClothContractListSX:=nil;
+end;
+
+procedure TfrmClothContractListSX.FormClose(Sender: TObject;
+  var Action: TCloseAction);
+begin
+  Action:=caFree;
+end;
+
+procedure TfrmClothContractListSX.FormCreate(Sender: TObject);
+begin
+  //BegDate.DateTime:=SGetServerDateTime(ADOQueryTemp)-7;
+  //EndDate.DateTime:=SGetServerDateTime(ADOQueryTemp);
+end;
+
+procedure TfrmClothContractListSX.TBCloseClick(Sender: TObject);
+begin
+  Close;
+  WriteCxGrid('坯布合同订单列表SX',Tv1,'指示单管理');
+end;
+
+procedure TfrmClothContractListSX.InitGrid();
+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;
+
+procedure TfrmClothContractListSX.InitForm();
+begin
+  ReadCxGrid('坯布合同订单列表SX',Tv1,'指示单管理');
+  if Trim(DParameters1)='1' then
+  begin
+    TBPrint.Visible:=False;
+    v1Column1.Visible:=False;
+    v1Column1.Hidden:=True;
+    v1PRTUnit.Visible:=False;
+    v1PRTUnit.Hidden:=True;
+    v1PRTQty.Visible:=False;
+    v1PRTQty.Hidden:=True;
+  end else
+  begin
+    v1Column1.Visible:=True;
+    v1Column1.Hidden:=False;
+    v1PRTUnit.Visible:=True;
+    v1PRTUnit.Hidden:=False;
+    v1PRTQty.Visible:=True;
+    v1PRTQty.Hidden:=False;
+    TBPrint.Visible:=True;
+  end;
+  BegDate.DateTime:=SGetServerDate10(ADOQueryTemp)-7;
+  EndDate.DateTime:=SGetServerDate10(ADOQueryTemp);
+  InitGrid();
+end;
+
+procedure TfrmClothContractListSX.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 TfrmClothContractListSX.TBEditClick(Sender: TObject);
+begin
+  if Order_Main.IsEmpty then Exit;
+  try
+    frmClothContractInPutSX:=TfrmClothContractInPutSX.Create(Application);
+    with frmClothContractInPutSX do
+    begin
+      PState:=1;
+      FMainId:=Trim(Self.Order_Main.fieldbyname('MainId').AsString);
+      FConNo:=Trim(Self.Order_Main.fieldbyname('ConNoM').AsString);
+      if ShowModal=1 then
+      begin
+
+      end;
+    end;
+  finally
+    frmClothContractInPutSX.Free;
+  end;
+end;
+
+procedure TfrmClothContractListSX.TBDelClick(Sender: TObject);
+begin
+  if Order_Main.IsEmpty then Exit;
+  with ADOQueryTemp do
+  begin
+    Close;
+    sql.Clear;
+    sql.Add('select * from ContractSX_Sub_MX B inner join Contract_Sub C on B.SubId=C.SubId ');
+    sql.Add(' where C.Mainid='''+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
+    //TBRafresh.Click;
+    //TBFind.Click;
+    Order_Main.Delete;
+  end;
+end;
+
+function TfrmClothContractListSX.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 TfrmClothContractListSX.TBExportClick(Sender: TObject);
+begin
+  if ADOQueryMain.IsEmpty then Exit;
+  TcxGridToExcel('坯布合同订单列表',cxGrid1);
+end;
+
+procedure TfrmClothContractListSX.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);
+  //SDofilter(ADOQueryMain,' ConNoM='''+Trim(Order_Main.fieldbyname('ConNoM').AsString)+'''');
+  //SCreateCDS20(ADOQueryMain,Order_Main);
+  //SInitCDSData20(ADOQueryMain,Order_Main);
+  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 TfrmClothContractListSX.TBRafreshClick(Sender: TObject);
+begin
+  InitGrid();
+end;
+
+procedure TfrmClothContractListSX.TBAddClick(Sender: TObject);
+begin
+  try
+    frmClothContractInPutSX:=TfrmClothContractInPutSX.Create(Application);
+    with frmClothContractInPutSX do
+    begin
+      PState:=0;
+      FMainId:='';
+      if ShowModal=1 then
+      begin
+
+      end;
+    end;
+  finally
+    frmClothContractInPutSX.Free;
+  end;
+end;
+
+procedure TfrmClothContractListSX.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 TfrmClothContractListSX.FormShow(Sender: TObject);
+begin
+  InitForm();
+end;
+
+procedure TfrmClothContractListSX.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;
+        sql.Add('exec ClothContractSX_QryList :MainId,:WSql');
+        Parameters.ParamByName('WSql').Value:=' and OM.conNo like '''+'%'+Trim(ConNoM.Text)+'%'+'''';
+        Open;
+      end;
+      SCreateCDS20(ADOQueryMain,Order_Main);
+      SInitCDSData20(ADOQueryMain,Order_Main);
+    finally
+      ADOQueryMain.EnableControls;
+    end;
+  end;
+end;
+
+end.

打卷检验管理/U_ClothContractListWJG.dfm

@@ -0,0 +1,827 @@
+object frmClothContractListWJG: TfrmClothContractListWJG
+  Left = 107
+  Top = 19
+  Width = 1189
+  Height = 705
+  Caption = #22806#21152#24037
+  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 Label2: TLabel
+    Left = 243
+    Top = 70
+    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 ToolBar1: TToolBar
+    Left = 0
+    Top = 0
+    Width = 1181
+    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_TradeManage.ThreeImgList
+    List = True
+    ParentColor = False
+    ParentFont = False
+    ShowCaptions = True
+    TabOrder = 0
+    object TBRafresh: TToolButton
+      Left = 0
+      Top = 0
+      AutoSize = True
+      Caption = #21047#26032
+      ImageIndex = 2
+      OnClick = TBRafreshClick
+    end
+    object TBFind: TToolButton
+      Left = 63
+      Top = 0
+      AutoSize = True
+      Caption = #36807#28388
+      ImageIndex = 59
+      OnClick = TBFindClick
+    end
+    object TBClose: TToolButton
+      Left = 126
+      Top = 0
+      AutoSize = True
+      Caption = #20851#38381
+      ImageIndex = 55
+      OnClick = TBCloseClick
+    end
+    object ToolButton2: TToolButton
+      Left = 189
+      Top = 0
+      AutoSize = True
+      Caption = #22686#34892
+      ImageIndex = 103
+      Visible = False
+      OnClick = ToolButton2Click
+    end
+    object ToolButton3: TToolButton
+      Left = 252
+      Top = 0
+      AutoSize = True
+      Caption = #21024#34892
+      ImageIndex = 107
+      Visible = False
+      OnClick = ToolButton3Click
+    end
+    object ToolButton4: TToolButton
+      Left = 315
+      Top = 0
+      AutoSize = True
+      Caption = #21040#22383#30830#23450
+      ImageIndex = 113
+      Visible = False
+    end
+    object ToolButton5: TToolButton
+      Left = 402
+      Top = 0
+      Caption = #22383#24067#39046#26009#30830#23450
+      ImageIndex = 114
+      Visible = False
+      OnClick = ToolButton5Click
+    end
+  end
+  object Panel1: TPanel
+    Left = 0
+    Top = 32
+    Width = 1181
+    Height = 61
+    Align = alTop
+    BevelInner = bvRaised
+    BevelOuter = bvLowered
+    Color = clSkyBlue
+    TabOrder = 1
+    object Label1: TLabel
+      Left = 23
+      Top = 14
+      Width = 52
+      Height = 12
+      Caption = #30331#35760#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 = 243
+      Top = 14
+      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 = 452
+      Top = 13
+      Width = 52
+      Height = 12
+      Caption = #20135#21697#21517#31216
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label4: TLabel
+      Left = 452
+      Top = 38
+      Width = 54
+      Height = 12
+      Caption = #35268'    '#26684
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label6: TLabel
+      Left = 692
+      Top = 14
+      Width = 39
+      Height = 12
+      Caption = #22383#24067#21378
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label7: TLabel
+      Left = 692
+      Top = 38
+      Width = 40
+      Height = 12
+      Caption = #26579'  '#21378
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label8: TLabel
+      Left = 243
+      Top = 38
+      Width = 21
+      Height = 12
+      Caption = 'PO#'
+      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 = 10
+      Width = 85
+      Height = 20
+      Date = 40675.464742650460000000
+      Format = 'yyyy-MM-dd'
+      Time = 40675.464742650460000000
+      ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
+      TabOrder = 0
+    end
+    object EndDate: TDateTimePicker
+      Left = 75
+      Top = 34
+      Width = 86
+      Height = 20
+      Date = 40675.464761099540000000
+      Format = 'yyyy-MM-dd'
+      Time = 40675.464761099540000000
+      ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
+      TabOrder = 1
+    end
+    object ConNo: TEdit
+      Tag = 2
+      Left = 297
+      Top = 10
+      Width = 100
+      Height = 20
+      ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
+      TabOrder = 2
+      OnChange = ConNoChange
+      OnKeyPress = ConNoKeyPress
+    end
+    object C_CodeName: TEdit
+      Tag = 2
+      Left = 509
+      Top = 10
+      Width = 100
+      Height = 20
+      ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
+      TabOrder = 3
+      OnChange = ConNoChange
+    end
+    object C_Spec: TEdit
+      Tag = 2
+      Left = 508
+      Top = 34
+      Width = 100
+      Height = 20
+      ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
+      TabOrder = 4
+      OnChange = ConNoChange
+    end
+    object FactoryNoName: TEdit
+      Tag = 2
+      Left = 736
+      Top = 10
+      Width = 100
+      Height = 20
+      ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
+      TabOrder = 5
+      OnChange = ConNoChange
+    end
+    object FirstName: TEdit
+      Tag = 2
+      Left = 736
+      Top = 34
+      Width = 100
+      Height = 20
+      ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
+      TabOrder = 6
+      OnChange = ConNoChange
+    end
+    object khconNO: TEdit
+      Tag = 2
+      Left = 297
+      Top = 33
+      Width = 100
+      Height = 20
+      ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
+      TabOrder = 7
+      OnChange = ConNoChange
+    end
+  end
+  object Panel2: TPanel
+    Left = 0
+    Top = 370
+    Width = 1181
+    Height = 301
+    Align = alBottom
+    BevelInner = bvRaised
+    BevelOuter = bvLowered
+    TabOrder = 2
+    object cxGrid3: TcxGrid
+      Left = 2
+      Top = 34
+      Width = 1177
+      Height = 265
+      Align = alClient
+      TabOrder = 0
+      object Tv3: TcxGridDBTableView
+        NavigatorButtons.ConfirmDelete = False
+        DataController.DataSource = DataSource3
+        DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
+        DataController.Summary.DefaultGroupSummaryItems = <>
+        DataController.Summary.FooterSummaryItems = <
+          item
+            Kind = skSum
+            Column = v3Column2
+          end
+          item
+            Kind = skSum
+            Column = v3Column3
+          end>
+        DataController.Summary.SummaryGroups = <>
+        OptionsBehavior.FocusCellOnTab = True
+        OptionsBehavior.GoToNextCellOnEnter = True
+        OptionsBehavior.FocusCellOnCycle = True
+        OptionsCustomize.ColumnFiltering = False
+        OptionsView.Footer = True
+        OptionsView.GroupByBox = False
+        Styles.Header = DataLink_TradeManage.Default
+        object cxGridDBColumn1: TcxGridDBColumn
+          Caption = #35746#21333#32534#21495
+          DataBinding.FieldName = 'OrderNo'
+          PropertiesClassName = 'TcxButtonEditProperties'
+          Properties.Buttons = <
+            item
+              Default = True
+              Kind = bkEllipsis
+            end>
+          Properties.ReadOnly = True
+          HeaderAlignmentHorz = taCenter
+          Styles.Header = DataLink_TradeManage.Default
+          Width = 98
+        end
+        object cxGridDBPRTColor: TcxGridDBColumn
+          Caption = #39068#33394
+          DataBinding.FieldName = 'PRTColor'
+          HeaderAlignmentHorz = taCenter
+          Options.Focusing = False
+          Styles.Header = DataLink_TradeManage.Default
+          Width = 72
+        end
+        object v3Column15: TcxGridDBColumn
+          Caption = #26412#21378#32568#21495
+          DataBinding.FieldName = 'BCgangNO'
+          HeaderAlignmentHorz = taCenter
+          Width = 60
+        end
+        object v3Column16: TcxGridDBColumn
+          Caption = #26579#21378#32568#21495
+          DataBinding.FieldName = 'RCGangNO'
+          HeaderAlignmentHorz = taCenter
+          Width = 60
+        end
+        object v3Column13: TcxGridDBColumn
+          Caption = #33394#21495
+          DataBinding.FieldName = 'SOrddefstr1'
+          HeaderAlignmentHorz = taCenter
+          Options.Focusing = False
+          Width = 57
+        end
+        object v3Column14: TcxGridDBColumn
+          Caption = #33457#22411#33457#21495
+          DataBinding.FieldName = 'PRTHX'
+          HeaderAlignmentHorz = taCenter
+          Options.Focusing = False
+          Width = 63
+        end
+        object v3Column6: TcxGridDBColumn
+          Caption = #39046#26009#26085#26399
+          DataBinding.FieldName = 'TPDate'
+          PropertiesClassName = 'TcxDateEditProperties'
+          Properties.SaveTime = False
+          Properties.ShowTime = False
+          HeaderAlignmentHorz = taCenter
+          Width = 81
+        end
+        object v3Column10: TcxGridDBColumn
+          Caption = #21152#24037#21378
+          DataBinding.FieldName = 'ToName'
+          PropertiesClassName = 'TcxButtonEditProperties'
+          Properties.Buttons = <
+            item
+              Default = True
+              Kind = bkEllipsis
+            end>
+          Properties.ReadOnly = True
+          Properties.OnButtonClick = v3Column10PropertiesButtonClick
+          HeaderAlignmentHorz = taCenter
+          Width = 58
+        end
+        object v3Column3: TcxGridDBColumn
+          Caption = #25237#22383#21305#25968
+          DataBinding.FieldName = 'Qty1'
+          Visible = False
+          HeaderAlignmentHorz = taCenter
+          Styles.Header = DataLink_TradeManage.Default
+          Width = 63
+        end
+        object v3Column9: TcxGridDBColumn
+          Caption = #21305#25968#37327
+          DataBinding.FieldName = 'TPPS'
+          HeaderAlignmentHorz = taCenter
+          Width = 61
+        end
+        object v3Column2: TcxGridDBColumn
+          Caption = #25968#37327'('#35745#21010')'
+          DataBinding.FieldName = 'TPQty'
+          PropertiesClassName = 'TcxTextEditProperties'
+          Properties.OnEditValueChanged = v3Column2PropertiesEditValueChanged
+          HeaderAlignmentHorz = taCenter
+          Styles.Header = DataLink_TradeManage.Default
+          Width = 97
+        end
+        object v3Column4: TcxGridDBColumn
+          Caption = #25968#37327#20844#24046
+          DataBinding.FieldName = 'Qty2'
+          PropertiesClassName = 'TcxTextEditProperties'
+          Properties.OnEditValueChanged = v3Column2PropertiesEditValueChanged
+          HeaderAlignmentHorz = taCenter
+          Width = 85
+        end
+        object v3Column5: TcxGridDBColumn
+          Caption = #35745#21010#32553#29575'(%)'
+          DataBinding.FieldName = 'Qty3'
+          PropertiesClassName = 'TcxTextEditProperties'
+          Properties.OnEditValueChanged = v3Column5PropertiesEditValueChanged
+          HeaderAlignmentHorz = taCenter
+          Width = 85
+        end
+        object v3Column1: TcxGridDBColumn
+          Caption = #25968#37327#21333#20301
+          DataBinding.FieldName = 'TPUnit'
+          PropertiesClassName = 'TcxComboBoxProperties'
+          Properties.DropDownListStyle = lsFixedList
+          Properties.Items.Strings = (
+            'M'
+            'Kg')
+          HeaderAlignmentHorz = taCenter
+          Options.Focusing = False
+          Width = 68
+        end
+        object v3Column7: TcxGridDBColumn
+          Caption = #39046#26009#20154
+          DataBinding.FieldName = 'TPPerson'
+          HeaderAlignmentHorz = taCenter
+          Width = 75
+        end
+        object v3Column11: TcxGridDBColumn
+          Caption = #19978#36947#21152#24037#21333#20215
+          DataBinding.FieldName = 'JGPrice'
+          HeaderAlignmentHorz = taCenter
+          Width = 84
+        end
+        object v3Column12: TcxGridDBColumn
+          Caption = #22806#21152#24037#31867#22411
+          DataBinding.FieldName = 'HJGType'
+          PropertiesClassName = 'TcxComboBoxProperties'
+          Properties.DropDownListStyle = lsFixedList
+          Properties.Items.Strings = (
+            ''
+            #22238#20179#21518#21152#24037)
+          HeaderAlignmentHorz = taCenter
+          Width = 94
+        end
+        object v3Column8: TcxGridDBColumn
+          Caption = #22791#27880
+          DataBinding.FieldName = 'TPNote'
+          Width = 105
+        end
+      end
+      object cxGridLevel1: TcxGridLevel
+        GridView = Tv3
+      end
+    end
+    object ToolBar2: TToolBar
+      Left = 2
+      Top = 2
+      Width = 1177
+      AutoSize = True
+      ButtonHeight = 30
+      ButtonWidth = 95
+      Caption = 'ToolBar1'
+      Color = clSkyBlue
+      Flat = True
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = []
+      Images = DataLink_TradeManage.ThreeImgList
+      List = True
+      ParentColor = False
+      ParentFont = False
+      ShowCaptions = True
+      TabOrder = 1
+      object ToolButton8: TToolButton
+        Left = 0
+        Top = 0
+        AutoSize = True
+        Caption = #22686#34892
+        ImageIndex = 103
+        OnClick = ToolButton2Click
+      end
+      object ToolButton9: TToolButton
+        Left = 63
+        Top = 0
+        AutoSize = True
+        Caption = #21024#34892
+        ImageIndex = 107
+        OnClick = ToolButton3Click
+      end
+      object ToolButton11: TToolButton
+        Left = 126
+        Top = 0
+        Caption = #21518#21152#24037#30830#23450
+        ImageIndex = 114
+        OnClick = ToolButton5Click
+      end
+    end
+  end
+  object cxSplitter1: TcxSplitter
+    Left = 0
+    Top = 362
+    Width = 1181
+    Height = 8
+    HotZoneClassName = 'TcxMediaPlayer9Style'
+    AlignSplitter = salBottom
+    Control = Panel2
+  end
+  object cxGrid1: TcxGrid
+    Left = 0
+    Top = 93
+    Width = 1181
+    Height = 269
+    Align = alClient
+    TabOrder = 4
+    object Tv1: TcxGridDBTableView
+      NavigatorButtons.ConfirmDelete = False
+      OnCellClick = Tv1CellClick
+      DataController.DataSource = DataSource1
+      DataController.Summary.DefaultGroupSummaryItems = <>
+      DataController.Summary.FooterSummaryItems = <
+        item
+          Kind = skSum
+        end
+        item
+          Kind = skSum
+        end
+        item
+          Kind = skSum
+        end
+        item
+          Kind = skSum
+          Column = v1Column9
+        end
+        item
+          Kind = skSum
+          Column = v1Column10
+        end
+        item
+          Kind = skSum
+          Column = v1Column12
+        end
+        item
+          Kind = skSum
+          Column = v1Column13
+        end
+        item
+          Kind = skSum
+          Column = v1Column11
+        end
+        item
+          Kind = skSum
+          Column = v1Column1
+        end>
+      DataController.Summary.SummaryGroups = <>
+      OptionsCustomize.ColumnFiltering = False
+      OptionsData.Editing = False
+      OptionsSelection.CellSelect = False
+      OptionsView.Footer = True
+      OptionsView.GroupByBox = False
+      Styles.Inactive = DataLink_TradeManage.SHuangSe
+      Styles.IncSearch = DataLink_TradeManage.SHuangSe
+      Styles.Selection = DataLink_TradeManage.SHuangSe
+      Styles.Header = DataLink_TradeManage.Default
+      object v1Column3: TcxGridDBColumn
+        Caption = #35746#21333#21495
+        DataBinding.FieldName = 'OrderNo'
+        HeaderAlignmentHorz = taCenter
+        Width = 82
+      end
+      object v1Column4: TcxGridDBColumn
+        Caption = #39068#33394
+        DataBinding.FieldName = 'PRTColor'
+        HeaderAlignmentHorz = taCenter
+        Width = 69
+      end
+      object v1OrderNo: TcxGridDBColumn
+        Caption = #21512#21516#32534#21495
+        DataBinding.FieldName = 'ConNo'
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_TradeManage.Default
+        Width = 114
+      end
+      object v1Column7: TcxGridDBColumn
+        Caption = 'PO#'
+        DataBinding.FieldName = 'khconNO'
+        HeaderAlignmentHorz = taCenter
+        Width = 88
+      end
+      object v1Column2: TcxGridDBColumn
+        Caption = #20135#21697#21517#31216
+        DataBinding.FieldName = 'C_CodeName'
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_TradeManage.Default
+        Width = 112
+      end
+      object v1FactoryNo1Name: TcxGridDBColumn
+        Caption = #22383#24067#21378
+        DataBinding.FieldName = 'FactoryNoName'
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_TradeManage.Default
+        Width = 79
+      end
+      object v1Column5: TcxGridDBColumn
+        Caption = #26579#21378
+        DataBinding.FieldName = 'FirstName'
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_TradeManage.Default
+        Width = 84
+      end
+      object v1PRTSpec: TcxGridDBColumn
+        Caption = #35268#26684
+        DataBinding.FieldName = 'C_Spec'
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_TradeManage.Default
+        Width = 106
+      end
+      object v1PRTMF: TcxGridDBColumn
+        Caption = #38376#24133'(cm)'
+        DataBinding.FieldName = 'MFQty'
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_TradeManage.Default
+        Width = 63
+      end
+      object v1PRTKZ: TcxGridDBColumn
+        Caption = #20811#37325'(g/'#13217')'
+        DataBinding.FieldName = 'KZQty'
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_TradeManage.Default
+        Width = 72
+      end
+      object v1OrderUnit: TcxGridDBColumn
+        Caption = #21333#20301
+        DataBinding.FieldName = 'TPUnit'
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_TradeManage.Default
+        Width = 64
+      end
+      object v1Column6: TcxGridDBColumn
+        Caption = #24207#27425
+        DataBinding.FieldName = 'LLIdx'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 61
+      end
+      object v1Column9: TcxGridDBColumn
+        Caption = #21322#25104#21697#21305#25968
+        DataBinding.FieldName = 'TPPS'
+        HeaderAlignmentHorz = taCenter
+        Width = 73
+      end
+      object v1Column10: TcxGridDBColumn
+        Caption = #21322#25104#21697#25968#37327
+        DataBinding.FieldName = 'BCPQty'
+        HeaderAlignmentHorz = taCenter
+        Width = 72
+      end
+      object v1Column12: TcxGridDBColumn
+        Caption = #20986#24211#21305#25968
+        DataBinding.FieldName = 'HCPS'
+        HeaderAlignmentHorz = taCenter
+        Width = 60
+      end
+      object v1Column13: TcxGridDBColumn
+        Caption = #20986#24211#25968#37327
+        DataBinding.FieldName = 'HCQty'
+        HeaderAlignmentHorz = taCenter
+        Width = 59
+      end
+      object v1Column11: TcxGridDBColumn
+        Caption = #24211#23384#21305#25968
+        DataBinding.FieldName = 'KCPS'
+        HeaderAlignmentHorz = taCenter
+        Width = 60
+      end
+      object v1Column1: TcxGridDBColumn
+        Caption = #24211#23384#25968#37327
+        DataBinding.FieldName = 'KCQty'
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_TradeManage.Default
+        Width = 65
+      end
+    end
+    object cxGrid1Level1: TcxGridLevel
+      GridView = Tv1
+    end
+  end
+  object cxGridPopupMenu1: TcxGridPopupMenu
+    Grid = cxGrid1
+    PopupMenus = <>
+    Left = 752
+    Top = 216
+  end
+  object ADOQueryCmd: TADOQuery
+    Connection = DataLink_TradeManage.ADOLink
+    Parameters = <>
+    Left = 936
+  end
+  object ADOQueryMain: TADOQuery
+    Connection = DataLink_TradeManage.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 1000
+  end
+  object ADOQueryTemp: TADOQuery
+    Connection = DataLink_TradeManage.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 ClientDataSet3: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 1112
+    Top = 240
+  end
+  object DataSource2: TDataSource
+    DataSet = ClientDataSet2
+    Left = 880
+    Top = 176
+  end
+  object DataSource3: TDataSource
+    DataSet = ClientDataSet3
+    Left = 1112
+    Top = 216
+  end
+  object ClientDataSet2: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 920
+    Top = 224
+  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 = 352
+    Top = 192
+    ReportData = {}
+  end
+  object RMDBMain: TRMDBDataSet
+    Visible = True
+    DataSet = Order_Main
+    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 cxGridPopupMenu2: TcxGridPopupMenu
+    Grid = cxGrid3
+    PopupMenus = <>
+    Left = 1168
+    Top = 464
+  end
+end

打卷检验管理/U_ClothHCList.dfm

@@ -0,0 +1,484 @@
+object frmClothHCList: TfrmClothHCList
+  Left = 377
+  Top = 240
+  Width = 1179
+  Height = 705
+  Caption = #26816#39564#25351#31034#21333#26597#35810
+  Color = clBtnFace
+  Font.Charset = GB2312_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -12
+  Font.Name = #23435#20307
+  Font.Style = []
+  OldCreateOrder = False
+  WindowState = wsMaximized
+  OnClose = FormClose
+  OnDestroy = FormDestroy
+  OnShow = FormShow
+  PixelsPerInch = 96
+  TextHeight = 12
+  object ToolBar1: TToolBar
+    Left = 0
+    Top = 0
+    Width = 1163
+    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_TradeManage.ThreeImgList
+    List = True
+    ParentColor = False
+    ParentFont = False
+    ShowCaptions = True
+    TabOrder = 0
+    object TBRafresh: TToolButton
+      Left = 0
+      Top = 0
+      AutoSize = True
+      Caption = #21047#26032
+      ImageIndex = 2
+      OnClick = TBRafreshClick
+    end
+    object TBFind: TToolButton
+      Left = 63
+      Top = 0
+      AutoSize = True
+      Caption = #36807#28388
+      ImageIndex = 59
+      OnClick = TBFindClick
+    end
+    object TBClose: TToolButton
+      Left = 126
+      Top = 0
+      AutoSize = True
+      Caption = #20851#38381
+      ImageIndex = 55
+      OnClick = TBCloseClick
+    end
+  end
+  object Panel1: TPanel
+    Left = 0
+    Top = 32
+    Width = 1163
+    Height = 73
+    Align = alTop
+    BevelInner = bvRaised
+    BevelOuter = bvLowered
+    Color = clSkyBlue
+    TabOrder = 1
+    object Label1: TLabel
+      Left = 23
+      Top = 22
+      Width = 52
+      Height = 12
+      Caption = #21046#21333#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 = 190
+      Top = 23
+      Width = 53
+      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 Label6: TLabel
+      Left = 577
+      Top = 46
+      Width = 54
+      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 = 384
+      Top = 22
+      Width = 53
+      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 Label2: TLabel
+      Left = 384
+      Top = 46
+      Width = 52
+      Height = 12
+      Caption = #20135#21697#21517#31216
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label10: TLabel
+      Left = 577
+      Top = 22
+      Width = 52
+      Height = 12
+      Caption = #22411#21495#35268#26684
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label4: TLabel
+      Left = 190
+      Top = 46
+      Width = 52
+      Height = 12
+      Caption = #35746#21333#26465#30721
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label5: TLabel
+      Left = 749
+      Top = 22
+      Width = 52
+      Height = 12
+      Caption = #33457#22411#33457#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 = 18
+      Width = 90
+      Height = 20
+      Date = 40675.464742650460000000
+      Format = 'yyyy-MM-dd'
+      Time = 40675.464742650460000000
+      ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
+      TabOrder = 0
+    end
+    object EndDate: TDateTimePicker
+      Left = 76
+      Top = 42
+      Width = 90
+      Height = 20
+      Date = 40675.464761099540000000
+      Format = 'yyyy-MM-dd'
+      Time = 40675.464761099540000000
+      ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
+      TabOrder = 1
+    end
+    object OrderNoM: TEdit
+      Tag = 2
+      Left = 246
+      Top = 18
+      Width = 98
+      Height = 20
+      ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
+      TabOrder = 2
+      OnChange = OrderNoMChange
+      OnKeyPress = OrderNoMKeyPress
+    end
+    object PRTColor: TEdit
+      Tag = 2
+      Left = 634
+      Top = 42
+      Width = 85
+      Height = 20
+      ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
+      TabOrder = 3
+      OnChange = OrderNoMChange
+    end
+    object SubID: TEdit
+      Tag = 2
+      Left = 246
+      Top = 42
+      Width = 98
+      Height = 20
+      ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
+      TabOrder = 4
+      OnChange = OrderNoMChange
+    end
+    object conNo: TEdit
+      Tag = 2
+      Left = 440
+      Top = 18
+      Width = 86
+      Height = 20
+      ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
+      TabOrder = 5
+      OnChange = OrderNoMChange
+    end
+    object prtCodeName: TEdit
+      Tag = 2
+      Left = 440
+      Top = 42
+      Width = 86
+      Height = 20
+      ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
+      TabOrder = 6
+      OnChange = OrderNoMChange
+    end
+    object prtspec: TEdit
+      Tag = 2
+      Left = 633
+      Top = 18
+      Width = 85
+      Height = 20
+      ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
+      TabOrder = 7
+      OnChange = OrderNoMChange
+    end
+    object Button1: TButton
+      Left = 908
+      Top = 20
+      Width = 137
+      Height = 45
+      Caption = #30830#23450#36873#25321
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -16
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+      TabOrder = 8
+      OnClick = Button1Click
+    end
+    object PRTHX: TEdit
+      Tag = 2
+      Left = 805
+      Top = 18
+      Width = 85
+      Height = 20
+      ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
+      TabOrder = 9
+      OnChange = OrderNoMChange
+    end
+  end
+  object cxGrid2: TcxGrid
+    Left = 0
+    Top = 105
+    Width = 1163
+    Height = 561
+    Align = alClient
+    TabOrder = 2
+    object TV2: TcxGridDBTableView
+      OnDblClick = TV2DblClick
+      Navigator.Buttons.CustomButtons = <>
+      DataController.DataSource = DataSource1
+      DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
+      DataController.Summary.DefaultGroupSummaryItems = <
+        item
+          Format = '0'
+          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
+        end
+        item
+          Kind = skSum
+        end
+        item
+          Kind = skSum
+        end
+        item
+          Kind = skSum
+        end>
+      DataController.Summary.SummaryGroups = <>
+      OptionsBehavior.GoToNextCellOnEnter = True
+      OptionsCustomize.ColumnFiltering = False
+      OptionsData.Editing = False
+      OptionsSelection.CellSelect = False
+      OptionsView.Footer = True
+      OptionsView.GroupByBox = False
+      Styles.Inactive = DataLink_TradeManage.SHuangSe
+      Styles.IncSearch = DataLink_TradeManage.SHuangSe
+      Styles.Selection = DataLink_TradeManage.SHuangSe
+      Styles.Header = DataLink_TradeManage.Default
+      object V2filltime: TcxGridDBColumn
+        Caption = #21046#21333#26102#38388
+        DataBinding.FieldName = 'filltime'
+        PropertiesClassName = 'TcxDateEditProperties'
+        Properties.SaveTime = False
+        Properties.ShowTime = False
+        HeaderAlignmentHorz = taCenter
+        Width = 96
+      end
+      object V2Subid: TcxGridDBColumn
+        Caption = #35746#21333#26465#30721
+        DataBinding.FieldName = 'Subid'
+        HeaderAlignmentHorz = taCenter
+        Width = 58
+      end
+      object V2Column10: TcxGridDBColumn
+        Caption = #35746#21333#21495
+        DataBinding.FieldName = 'OrderNoM'
+        HeaderAlignmentHorz = taCenter
+        Width = 72
+      end
+      object V2CustomerNoName: TcxGridDBColumn
+        Caption = #23458#25143
+        DataBinding.FieldName = 'CustomerNoName'
+        HeaderAlignmentHorz = taCenter
+        Width = 118
+      end
+      object V2KHOrderNo: TcxGridDBColumn
+        Caption = #23458#25143#35746#21333#21495
+        DataBinding.FieldName = 'KHOrderNo'
+        HeaderAlignmentHorz = taCenter
+        Width = 70
+      end
+      object V2Column14: TcxGridDBColumn
+        Caption = #21512#21516#21495
+        DataBinding.FieldName = 'conNo'
+        HeaderAlignmentHorz = taCenter
+        Width = 70
+      end
+      object V2Column15: TcxGridDBColumn
+        Caption = #20135#21697#21517#31216
+        DataBinding.FieldName = 'prtCodeName'
+        HeaderAlignmentHorz = taCenter
+        Width = 80
+      end
+      object V2Column16: TcxGridDBColumn
+        Caption = #22411#21495#35268#26684
+        DataBinding.FieldName = 'prtspec'
+        HeaderAlignmentHorz = taCenter
+        Width = 80
+      end
+      object V2Column13: TcxGridDBColumn
+        Caption = #39068#33394
+        DataBinding.FieldName = 'PRTColor'
+        HeaderAlignmentHorz = taCenter
+        Width = 77
+      end
+      object TV2Column1: TcxGridDBColumn
+        Caption = #32568#21495
+        DataBinding.FieldName = 'PRTganghao'
+        HeaderAlignmentHorz = taCenter
+        Width = 60
+      end
+      object V2Column1: TcxGridDBColumn
+        Caption = #33394#21495
+        DataBinding.FieldName = 'SOrddefstr1'
+        HeaderAlignmentHorz = taCenter
+        Width = 73
+      end
+      object V2Column2: TcxGridDBColumn
+        Caption = #33457#22411#33457#21495
+        DataBinding.FieldName = 'PRTHX'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 60
+      end
+      object V2MPRTNiuDu: TcxGridDBColumn
+        Caption = #25968#37327#35201#27714
+        DataBinding.FieldName = 'MPRTNiuDu'
+        HeaderAlignmentHorz = taCenter
+        Width = 65
+      end
+      object V2MPRTBZNote: TcxGridDBColumn
+        Caption = #21253#35013#35201#27714
+        DataBinding.FieldName = 'MPRTBZNote'
+        HeaderAlignmentHorz = taCenter
+        Width = 65
+      end
+      object V2PRTOrderQty: TcxGridDBColumn
+        Caption = #25968#37327
+        DataBinding.FieldName = 'PRTOrderQty'
+        HeaderAlignmentHorz = taCenter
+        Width = 65
+      end
+      object V2OrderUnit: TcxGridDBColumn
+        Caption = #25968#37327#21333#20301
+        DataBinding.FieldName = 'OrderUnit'
+        HeaderAlignmentHorz = taCenter
+        Width = 65
+      end
+    end
+    object cxGridLevel1: TcxGridLevel
+      GridView = TV2
+    end
+  end
+  object cxGridPopupMenu1: TcxGridPopupMenu
+    Grid = cxGrid2
+    PopupMenus = <>
+    Left = 448
+    Top = 168
+  end
+  object ADOQueryCmd: TADOQuery
+    Connection = DataLink_TradeManage.ADOLink
+    Parameters = <>
+    Left = 800
+    Top = 12
+  end
+  object ADOQueryMain: TADOQuery
+    Connection = DataLink_TradeManage.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 944
+    Top = 24
+  end
+  object ADOQueryTemp: TADOQuery
+    Connection = DataLink_TradeManage.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 720
+    Top = 216
+  end
+  object DataSource1: TDataSource
+    DataSet = Order_Main
+    Left = 824
+    Top = 184
+  end
+  object Order_Main: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 840
+    Top = 192
+  end
+end

打卷检验管理/U_ClothHCList.pas

@@ -0,0 +1,218 @@
+unit U_ClothHCList;
+
+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, cxDropDownEdit, cxCheckBox, cxLookAndFeels,
+  cxLookAndFeelPainters, cxNavigator;
+
+type
+  TfrmClothHCList = class(TForm)
+    ToolBar1: TToolBar;
+    TBRafresh: TToolButton;
+    TBFind: TToolButton;
+    TBClose: TToolButton;
+    Panel1: TPanel;
+    BegDate: TDateTimePicker;
+    EndDate: TDateTimePicker;
+    Label1: TLabel;
+    cxGridPopupMenu1: TcxGridPopupMenu;
+    ADOQueryCmd: TADOQuery;
+    ADOQueryMain: TADOQuery;
+    ADOQueryTemp: TADOQuery;
+    DataSource1: TDataSource;
+    Label3: TLabel;
+    OrderNoM: TEdit;
+    Order_Main: TClientDataSet;
+    Label6: TLabel;
+    PRTColor: TEdit;
+    cxGrid2: TcxGrid;
+    TV2: TcxGridDBTableView;
+    V2filltime: TcxGridDBColumn;
+    cxGridLevel1: TcxGridLevel;
+    V2Column10: TcxGridDBColumn;
+    V2Column13: TcxGridDBColumn;
+    V2Subid: TcxGridDBColumn;
+    V2KHOrderNo: TcxGridDBColumn;
+    V2Column14: TcxGridDBColumn;
+    SubID: TEdit;
+    conNo: TEdit;
+    Label9: TLabel;
+    V2Column15: TcxGridDBColumn;
+    V2Column16: TcxGridDBColumn;
+    prtCodeName: TEdit;
+    Label2: TLabel;
+    prtspec: TEdit;
+    Label10: TLabel;
+    V2CustomerNoName: TcxGridDBColumn;
+    V2MPRTNiuDu: TcxGridDBColumn;
+    V2MPRTBZNote: TcxGridDBColumn;
+    V2PRTOrderQty: TcxGridDBColumn;
+    Label4: TLabel;
+    V2OrderUnit: TcxGridDBColumn;
+    Button1: TButton;
+    V2Column1: TcxGridDBColumn;
+    V2Column2: TcxGridDBColumn;
+    PRTHX: TEdit;
+    Label5: TLabel;
+    TV2Column1: TcxGridDBColumn;
+    procedure FormDestroy(Sender: TObject);
+    procedure FormClose(Sender: TObject; var Action: TCloseAction);
+    procedure TBCloseClick(Sender: TObject);
+    procedure TBFindClick(Sender: TObject);
+    procedure TBRafreshClick(Sender: TObject);
+    procedure OrderNoMChange(Sender: TObject);
+    procedure FormShow(Sender: TObject);
+    procedure OrderNoMKeyPress(Sender: TObject; var Key: Char);
+    procedure TV2DblClick(Sender: TObject);
+    procedure Button1Click(Sender: TObject);
+  private
+    FInt,PFInt:Integer;
+    procedure InitGrid();
+    procedure InitForm();
+    procedure InitGridWSQL(FWSQL:String);
+    { Private declarations }
+  public
+    fType:string;
+    { Public declarations }
+  end;
+
+var
+  frmClothHCList: TfrmClothHCList;
+
+implementation
+uses
+  U_DataLink,U_ClothContractInPut,U_Fun,U_ProductOrderList,U_ZDYHelp,U_ProductOrderNewList_JD;
+
+{$R *.dfm}
+
+procedure TfrmClothHCList.FormDestroy(Sender: TObject);
+begin
+  frmClothHCList:=nil;
+end;
+
+procedure TfrmClothHCList.FormClose(Sender: TObject;
+  var Action: TCloseAction);
+begin
+  Action:=caFree;
+end;
+
+procedure TfrmClothHCList.TBCloseClick(Sender: TObject);
+begin
+  Close;
+  WriteCxGrid(self.Caption+tv2.Name,Tv2,'ָʾµ¥¹ÜÀí');
+end;
+
+procedure TfrmClothHCList.InitGrid();
+begin
+  try
+    //ADOQueryMain.DisableControls;
+    with ADOQueryMain do                        
+    begin
+
+      Close;
+      Filtered:=False;
+      sql.Clear;
+      sql.Add('exec P_View_HC :begdate,:enddate,:WSQL');
+      Parameters.ParamByName('begdate').Value:=FormatDateTime('yyyy-MM-dd',BegDate.Date);
+      Parameters.ParamByName('enddate').Value:=FormatDateTime('yyyy-MM-dd',EndDate.Date+1);
+      Parameters.ParamByName('WSQL').Value:='';
+      Open;
+    end;
+    SCreateCDS20(ADOQueryMain,Order_Main);
+    SInitCDSData20(ADOQueryMain,Order_Main);
+  finally
+    //ADOQueryMain.EnableControls;
+  end;
+end;
+
+procedure TfrmClothHCList.InitGridWSQL(FWSQL:String);
+begin
+  try
+    ADOQueryMain.DisableControls;
+    with ADOQueryMain do
+    begin
+      Filtered:=False;
+      Close;
+      sql.Clear;
+      sql.Add('exec P_View_HC :begdate,:enddate,:WSQL');
+      Parameters.ParamByName('begdate').Value:='2014-01-01';
+      Parameters.ParamByName('enddate').Value:='2050-01-01';
+      Parameters.ParamByName('WSQL').Value:=FWSQL;
+      Open;
+    end;
+    SCreateCDS20(ADOQueryMain,Order_Main);
+    SInitCDSData20(ADOQueryMain,Order_Main);
+  finally
+    ADOQueryMain.EnableControls;
+  end;
+end;
+
+procedure TfrmClothHCList.InitForm();
+begin
+  ReadCxGrid(self.Caption+tv2.Name,Tv2,'ָʾµ¥¹ÜÀí');
+  EndDate.DateTime:=SGetServerDateTime(ADOQueryTemp);
+  BegDate.DateTime:=EndDate.DateTime;
+  //InitGrid();
+end;
+
+procedure TfrmClothHCList.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 TfrmClothHCList.TBRafreshClick(Sender: TObject);
+begin
+  InitGrid();
+end;
+
+procedure TfrmClothHCList.OrderNoMChange(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 TfrmClothHCList.FormShow(Sender: TObject);
+begin
+  InitForm();
+  TBRafresh.Click;
+end;
+
+procedure TfrmClothHCList.OrderNoMKeyPress(Sender: TObject;
+  var Key: Char);
+var
+  fsj:String;
+begin
+  if Key=#13 then
+  begin
+    if Length(Trim(OrderNoM.Text))<4 then Exit;
+    fsj:=' and B.OrderNo like '''+'%'+Trim(OrderNoM.Text)+'%'+'''';
+    InitGridWSQL(fsj);
+  end;
+end;
+
+procedure TfrmClothHCList.TV2DblClick(Sender: TObject);
+begin
+  if fType='10' then frmClothHCList.ModalResult:=1;
+end;
+
+procedure TfrmClothHCList.Button1Click(Sender: TObject);
+begin
+  if fType='10' then frmClothHCList.ModalResult:=1;
+end;
+
+end.

打卷检验管理/U_ClothPDInfoList.dfm

@@ -0,0 +1,366 @@
+object frmClothPDInfoList: TfrmClothPDInfoList
+  Left = 123
+  Top = 23
+  Width = 1162
+  Height = 705
+  Caption = #24453#26816#20179#24211#24211#23384
+  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 = 1154
+    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_TradeManage.ThreeImgList
+    List = True
+    ParentColor = False
+    ParentFont = False
+    ShowCaptions = True
+    TabOrder = 0
+    object TBRafresh: TToolButton
+      Left = 0
+      Top = 0
+      AutoSize = True
+      Caption = #21047#26032
+      ImageIndex = 2
+      OnClick = TBRafreshClick
+    end
+    object TBFind: TToolButton
+      Left = 63
+      Top = 0
+      AutoSize = True
+      Caption = #36807#28388
+      ImageIndex = 59
+      OnClick = TBFindClick
+    end
+    object TBExport: TToolButton
+      Left = 126
+      Top = 0
+      AutoSize = True
+      Caption = #23548#20986
+      ImageIndex = 75
+      OnClick = TBExportClick
+    end
+    object TBClose: TToolButton
+      Left = 189
+      Top = 0
+      AutoSize = True
+      Caption = #20851#38381
+      ImageIndex = 55
+      OnClick = TBCloseClick
+    end
+  end
+  object Panel1: TPanel
+    Left = 0
+    Top = 32
+    Width = 1154
+    Height = 54
+    Align = alTop
+    BevelInner = bvRaised
+    BevelOuter = bvLowered
+    Color = clSkyBlue
+    TabOrder = 1
+    object Label3: TLabel
+      Left = 33
+      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 = 194
+      Top = 22
+      Width = 52
+      Height = 12
+      Caption = #20135#21697#21517#31216
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label4: TLabel
+      Left = 362
+      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 OrderNo: TEdit
+      Tag = 2
+      Left = 87
+      Top = 18
+      Width = 81
+      Height = 20
+      ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
+      TabOrder = 0
+      OnChange = OrderNoChange
+    end
+    object MPRTCodeName: TEdit
+      Tag = 2
+      Left = 247
+      Top = 18
+      Width = 83
+      Height = 20
+      ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
+      TabOrder = 1
+      OnChange = OrderNoChange
+    end
+    object C_Spec: TEdit
+      Tag = 2
+      Left = 416
+      Top = 18
+      Width = 113
+      Height = 20
+      ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
+      TabOrder = 2
+      OnChange = OrderNoChange
+    end
+  end
+  object cxGrid1: TcxGrid
+    Left = 0
+    Top = 86
+    Width = 1154
+    Height = 585
+    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
+        end
+        item
+          Kind = skSum
+        end
+        item
+          Kind = skSum
+          Column = v1Column11
+        end
+        item
+          Kind = skSum
+          Column = v1Column4
+        end
+        item
+          Kind = skSum
+          Column = v1Column5
+        end
+        item
+          Kind = skSum
+          Column = v1Column7
+        end
+        item
+          Kind = skSum
+          Column = v1Column10
+        end
+        item
+          Kind = skSum
+          Column = v1JY_PS
+        end
+        item
+          Kind = skSum
+          Column = v1JY_Qty
+        end>
+      DataController.Summary.SummaryGroups = <>
+      OptionsCustomize.ColumnFiltering = False
+      OptionsData.Editing = False
+      OptionsSelection.CellSelect = False
+      OptionsView.Footer = True
+      OptionsView.GroupByBox = False
+      Styles.Inactive = DataLink_TradeManage.SHuangSe
+      Styles.IncSearch = DataLink_TradeManage.SHuangSe
+      Styles.Selection = DataLink_TradeManage.SHuangSe
+      Styles.Header = DataLink_TradeManage.Default
+      object v1OrderNo: TcxGridDBColumn
+        Caption = #35746#21333#21495
+        DataBinding.FieldName = 'OrderNo'
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_TradeManage.Default
+        Width = 68
+      end
+      object v1Column2: TcxGridDBColumn
+        Caption = #20135#21697#21517#31216
+        DataBinding.FieldName = 'MPRTCodeName'
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_TradeManage.Default
+        Width = 85
+      end
+      object v1Column1: TcxGridDBColumn
+        Caption = #20135#21697#32534#21495
+        DataBinding.FieldName = 'MPRTCode'
+        HeaderAlignmentHorz = taCenter
+        Width = 74
+      end
+      object v1PRTSpec: TcxGridDBColumn
+        Caption = #35268#26684
+        DataBinding.FieldName = 'MPRTSpec'
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_TradeManage.Default
+        Width = 69
+      end
+      object v1PRTMF: TcxGridDBColumn
+        Caption = #38376#24133
+        DataBinding.FieldName = 'MPRTMF'
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_TradeManage.Default
+        Width = 61
+      end
+      object v1PRTKZ: TcxGridDBColumn
+        Caption = #20811#37325
+        DataBinding.FieldName = 'MPRTKZ'
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_TradeManage.Default
+        Width = 83
+      end
+      object v1Column8: TcxGridDBColumn
+        Caption = #39068#33394
+        DataBinding.FieldName = 'PRTColor'
+        HeaderAlignmentHorz = taCenter
+        Width = 69
+      end
+      object v1Column9: TcxGridDBColumn
+        Caption = #33457#22411
+        DataBinding.FieldName = 'PRTHX'
+        HeaderAlignmentHorz = taCenter
+        Width = 65
+      end
+      object v1Column11: TcxGridDBColumn
+        Caption = #22238#20179#21305#25968
+        DataBinding.FieldName = 'HCPS'
+        HeaderAlignmentHorz = taCenter
+        Width = 62
+      end
+      object v1PRTOrderQty: TcxGridDBColumn
+        Caption = #22238#20179#25968#37327
+        DataBinding.FieldName = 'HCQty'
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_TradeManage.Default
+        Width = 58
+      end
+      object v1Column4: TcxGridDBColumn
+        Caption = #22238#20462#21305#25968
+        DataBinding.FieldName = 'HXPS'
+        Width = 62
+      end
+      object v1Column5: TcxGridDBColumn
+        Caption = #22238#20462#25968#37327
+        DataBinding.FieldName = 'HXQty'
+        Width = 58
+      end
+      object v1Column7: TcxGridDBColumn
+        Caption = #24211#23384#21305#25968
+        DataBinding.FieldName = 'KCPS'
+        HeaderAlignmentHorz = taCenter
+        Width = 69
+      end
+      object v1Column10: TcxGridDBColumn
+        Caption = #24211#23384#25968#37327
+        DataBinding.FieldName = 'KCQty'
+        HeaderAlignmentHorz = taCenter
+        Width = 64
+      end
+      object v1OrderUnit: TcxGridDBColumn
+        Caption = #25968#37327#21333#20301
+        DataBinding.FieldName = 'AOrddefstr2'
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_TradeManage.Default
+        Width = 59
+      end
+      object v1JY_PS: TcxGridDBColumn
+        Caption = #26816#39564#21305#25968
+        DataBinding.FieldName = 'JY_PS'
+        HeaderAlignmentHorz = taCenter
+        Styles.Content = DataLink_TradeManage.FoneRed
+        Styles.Footer = DataLink_TradeManage.FoneRed
+        Styles.Header = DataLink_TradeManage.FoneRed
+        Width = 65
+      end
+      object v1JY_Qty: TcxGridDBColumn
+        Caption = #26816#39564#25968#37327
+        DataBinding.FieldName = 'JY_Qty'
+        HeaderAlignmentHorz = taCenter
+        Styles.Content = DataLink_TradeManage.FoneRed
+        Styles.Footer = DataLink_TradeManage.FoneRed
+        Styles.Header = DataLink_TradeManage.FoneRed
+        Width = 65
+      end
+    end
+    object cxGrid1Level1: TcxGridLevel
+      GridView = Tv1
+    end
+  end
+  object cxGridPopupMenu1: TcxGridPopupMenu
+    Grid = cxGrid1
+    PopupMenus = <>
+    Left = 656
+    Top = 288
+  end
+  object ADOQueryCmd: TADOQuery
+    Connection = DataLink_TradeManage.ADOLink
+    Parameters = <>
+    Left = 936
+  end
+  object ADOQueryMain: TADOQuery
+    Connection = DataLink_TradeManage.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 1000
+  end
+  object ADOQueryTemp: TADOQuery
+    Connection = DataLink_TradeManage.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 1040
+    Top = 8
+  end
+  object DataSource1: TDataSource
+    DataSet = Order_Main
+    Left = 688
+    Top = 288
+  end
+  object Order_Main: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 624
+    Top = 288
+  end
+end

打卷检验管理/U_ClothPDInfoList.pas

@@ -0,0 +1,169 @@
+unit U_ClothPDInfoList;
+
+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;
+
+type
+  TfrmClothPDInfoList = class(TForm)
+    ToolBar1: TToolBar;
+    TBRafresh: TToolButton;
+    TBFind: TToolButton;
+    TBClose: TToolButton;
+    Panel1: TPanel;
+    cxGridPopupMenu1: TcxGridPopupMenu;
+    ADOQueryCmd: TADOQuery;
+    ADOQueryMain: TADOQuery;
+    ADOQueryTemp: TADOQuery;
+    DataSource1: TDataSource;
+    Label3: TLabel;
+    OrderNo: TEdit;
+    Label5: TLabel;
+    MPRTCodeName: TEdit;
+    TBExport: TToolButton;
+    Order_Main: TClientDataSet;
+    Label4: TLabel;
+    C_Spec: TEdit;
+    cxGrid1: TcxGrid;
+    Tv1: TcxGridDBTableView;
+    v1OrderNo: TcxGridDBColumn;
+    v1Column2: TcxGridDBColumn;
+    v1PRTSpec: TcxGridDBColumn;
+    v1PRTMF: TcxGridDBColumn;
+    v1PRTKZ: TcxGridDBColumn;
+    v1PRTOrderQty: TcxGridDBColumn;
+    v1OrderUnit: TcxGridDBColumn;
+    cxGrid1Level1: TcxGridLevel;
+    v1Column8: TcxGridDBColumn;
+    v1Column9: TcxGridDBColumn;
+    v1Column11: TcxGridDBColumn;
+    v1Column1: TcxGridDBColumn;
+    v1Column4: TcxGridDBColumn;
+    v1Column5: TcxGridDBColumn;
+    v1Column7: TcxGridDBColumn;
+    v1Column10: TcxGridDBColumn;
+    v1JY_PS: TcxGridDBColumn;
+    v1JY_Qty: TcxGridDBColumn;
+    procedure FormDestroy(Sender: TObject);
+    procedure FormClose(Sender: TObject; var Action: TCloseAction);
+    procedure TBCloseClick(Sender: TObject);
+    procedure TBFindClick(Sender: TObject);
+    procedure TBExportClick(Sender: TObject);
+    procedure TBRafreshClick(Sender: TObject);
+    procedure OrderNoChange(Sender: TObject);
+    procedure FormShow(Sender: TObject);
+    procedure Tv2MouseDown(Sender: TObject; Button: TMouseButton;
+      Shift: TShiftState; X, Y: Integer);
+  private
+    FInt,PFInt:Integer;
+    procedure InitGrid();
+    procedure InitForm();
+    function  DelData():Boolean;
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+var
+  frmClothPDInfoList: TfrmClothPDInfoList;
+
+implementation
+uses
+  U_DataLink,U_ClothContractInPut,U_Fun,U_ProductOrderList,U_ZDYHelp;
+
+{$R *.dfm}
+
+procedure TfrmClothPDInfoList.FormDestroy(Sender: TObject);
+begin
+  frmClothPDInfoList:=nil;
+end;
+
+procedure TfrmClothPDInfoList.FormClose(Sender: TObject;
+  var Action: TCloseAction);
+begin
+  Action:=caFree;
+end;
+
+procedure TfrmClothPDInfoList.TBCloseClick(Sender: TObject);
+begin
+  Close;
+  WriteCxGrid('待检布库存1',Tv1,'指示单管理');
+end;
+
+procedure TfrmClothPDInfoList.InitGrid();
+begin
+  try
+    ADOQueryMain.DisableControls;
+    with ADOQueryMain do
+    begin
+      filtered:=False;
+      Close;
+      sql.Clear;
+      sql.Add('exec p_view_DJBKC ');
+      Open;
+    end;
+    SCreateCDS20(ADOQueryMain,Order_Main);
+    SInitCDSData20(ADOQueryMain,Order_Main);
+  finally
+    ADOQueryMain.EnableControls;
+  end;
+end;
+
+procedure TfrmClothPDInfoList.InitForm();
+begin
+  ReadCxGrid('待检布库存1',Tv1,'指示单管理');
+  InitGrid();
+end;
+
+procedure TfrmClothPDInfoList.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 TfrmClothPDInfoList.DelData():Boolean;
+begin
+  
+end;
+
+procedure TfrmClothPDInfoList.TBExportClick(Sender: TObject);
+begin
+  if ADOQueryMain.IsEmpty then Exit;
+  TcxGridToExcel('待检布库存',cxGrid1);
+end;
+
+procedure TfrmClothPDInfoList.TBRafreshClick(Sender: TObject);
+begin
+  InitGrid();
+end;
+
+procedure TfrmClothPDInfoList.OrderNoChange(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 TfrmClothPDInfoList.FormShow(Sender: TObject);
+begin
+  InitForm();
+end;
+
+procedure TfrmClothPDInfoList.Tv2MouseDown(Sender: TObject;
+  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
+begin
+  FInt:=2;
+end;
+
+end.

打卷检验管理/U_ClothSCListZDSel.dfm

@@ -0,0 +1,804 @@
+object frmClothSCListZDSel: TfrmClothSCListZDSel
+  Left = 48
+  Top = 50
+  Width = 1280
+  Height = 705
+  Caption = #22383#24067#36716#21333
+  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 = 1272
+    AutoSize = True
+    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_TradeManagePB.ThreeImgList
+    List = True
+    ParentColor = False
+    ParentFont = False
+    ShowCaptions = True
+    TabOrder = 0
+    object TBRafresh: TToolButton
+      Left = 0
+      Top = 0
+      AutoSize = True
+      Caption = #21047#26032
+      ImageIndex = 2
+      OnClick = TBRafreshClick
+    end
+    object TBFind: TToolButton
+      Left = 63
+      Top = 0
+      AutoSize = True
+      Caption = #36807#28388
+      ImageIndex = 59
+      OnClick = TBFindClick
+    end
+    object ToolButton1: TToolButton
+      Left = 126
+      Top = 0
+      AutoSize = True
+      Caption = #36873#25321
+      ImageIndex = 41
+      OnClick = ToolButton1Click
+    end
+    object TBAdd: TToolButton
+      Left = 189
+      Top = 0
+      AutoSize = True
+      Caption = #26032#22686
+      ImageIndex = 3
+      Visible = False
+      OnClick = TBAddClick
+    end
+    object TBEdit: TToolButton
+      Left = 252
+      Top = 0
+      AutoSize = True
+      Caption = #20462#25913
+      ImageIndex = 54
+      Visible = False
+      OnClick = TBEditClick
+    end
+    object TBDel: TToolButton
+      Left = 315
+      Top = 0
+      AutoSize = True
+      Caption = #21024#38500
+      ImageIndex = 17
+      Visible = False
+      OnClick = TBDelClick
+    end
+    object TBExport: TToolButton
+      Left = 378
+      Top = 0
+      AutoSize = True
+      Caption = #23548#20986
+      ImageIndex = 75
+      Visible = False
+      OnClick = TBExportClick
+    end
+    object TBPrint: TToolButton
+      Left = 441
+      Top = 0
+      AutoSize = True
+      Caption = #29983#20135#35745#21010#21333#25171#21360
+      ImageIndex = 12
+      Visible = False
+      OnClick = TBPrintClick
+    end
+    object TBClose: TToolButton
+      Left = 564
+      Top = 0
+      AutoSize = True
+      Caption = #20851#38381
+      ImageIndex = 55
+      OnClick = TBCloseClick
+    end
+  end
+  object Panel1: TPanel
+    Left = 0
+    Top = 32
+    Width = 1272
+    Height = 73
+    Align = alTop
+    BevelInner = bvRaised
+    BevelOuter = bvLowered
+    Color = clSkyBlue
+    TabOrder = 1
+    object Label1: TLabel
+      Left = 23
+      Top = 22
+      Width = 52
+      Height = 12
+      Caption = #30331#35760#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 = 179
+      Top = 22
+      Width = 52
+      Height = 12
+      Caption = #29983#20135#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 = 326
+      Top = 22
+      Width = 26
+      Height = 12
+      Caption = #21697#21517
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label4: TLabel
+      Left = 452
+      Top = 22
+      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 Label6: TLabel
+      Left = 745
+      Top = 21
+      Width = 26
+      Height = 12
+      Caption = #21305#25968
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clRed
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+      Visible = False
+    end
+    object Label7: TLabel
+      Left = 819
+      Top = 21
+      Width = 26
+      Height = 12
+      Caption = #21592#24037
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clRed
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+      Visible = False
+    end
+    object Label8: TLabel
+      Left = 919
+      Top = 21
+      Width = 26
+      Height = 12
+      Caption = #36710#21495
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clRed
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+      Visible = False
+    end
+    object Label9: TLabel
+      Left = 1005
+      Top = 21
+      Width = 26
+      Height = 12
+      Caption = #36716#25968
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clRed
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+      Visible = False
+    end
+    object Label2: TLabel
+      Left = 179
+      Top = 46
+      Width = 47
+      Height = 12
+      Caption = #26465'   '#30721
+      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 = 75
+      Top = 42
+      Width = 86
+      Height = 20
+      Date = 40675.464761099540000000
+      Format = 'yyyy-MM-dd'
+      Time = 40675.464761099540000000
+      TabOrder = 1
+    end
+    object ConNoM: TEdit
+      Tag = 2
+      Left = 233
+      Top = 18
+      Width = 81
+      Height = 20
+      TabOrder = 2
+      OnChange = ConNoMChange
+      OnKeyPress = conPress
+    end
+    object C_CodeNameM: TEdit
+      Tag = 2
+      Left = 354
+      Top = 18
+      Width = 83
+      Height = 20
+      TabOrder = 3
+      OnChange = ConNoMChange
+    end
+    object C_Color: TEdit
+      Tag = 2
+      Left = 480
+      Top = 18
+      Width = 56
+      Height = 20
+      TabOrder = 4
+      OnChange = ConNoMChange
+    end
+    object Button1: TButton
+      Left = 1162
+      Top = 16
+      Width = 43
+      Height = 21
+      Caption = #20316#24223
+      TabOrder = 5
+      Visible = False
+      OnClick = Button1Click
+    end
+    object Button2: TButton
+      Left = 1103
+      Top = 16
+      Width = 44
+      Height = 21
+      Caption = #20445#23384
+      TabOrder = 6
+      Visible = False
+      OnClick = Button2Click
+    end
+    object PS: TEdit
+      Left = 773
+      Top = 17
+      Width = 35
+      Height = 20
+      TabOrder = 7
+      Visible = False
+    end
+    object SCPerson: TBtnEditA
+      Left = 846
+      Top = 17
+      Width = 65
+      Height = 20
+      Hint = 'SCPerson/'#25377#36710#24037
+      ReadOnly = True
+      TabOrder = 8
+      Visible = False
+      OnBtnClick = SCPersonBtnClick
+    end
+    object CarNo: TBtnEditA
+      Left = 946
+      Top = 17
+      Width = 48
+      Height = 20
+      Hint = 'CarNo/'#36710#21495
+      ReadOnly = True
+      TabOrder = 9
+      Visible = False
+      OnBtnClick = SCPersonBtnClick
+    end
+    object ZhuanQty: TEdit
+      Left = 1033
+      Top = 17
+      Width = 51
+      Height = 20
+      TabOrder = 10
+      Visible = False
+    end
+    object MainIdTM: TEdit
+      Tag = 2
+      Left = 233
+      Top = 42
+      Width = 81
+      Height = 20
+      TabOrder = 11
+      OnKeyPress = MainIdTMKeyPress
+    end
+  end
+  object cxGrid1: TcxGrid
+    Left = 0
+    Top = 105
+    Width = 690
+    Height = 563
+    Align = alClient
+    TabOrder = 2
+    object Tv1: TcxGridDBTableView
+      NavigatorButtons.ConfirmDelete = False
+      OnFocusedRecordChanged = Tv1FocusedRecordChanged
+      DataController.DataSource = DataSource1
+      DataController.Summary.DefaultGroupSummaryItems = <>
+      DataController.Summary.FooterSummaryItems = <
+        item
+          Kind = skSum
+          Column = v1PRTOrderQty
+        end
+        item
+          Kind = skSum
+        end
+        item
+          Kind = skSum
+        end
+        item
+          Kind = skSum
+          Column = v1Column6
+        end
+        item
+          Kind = skSum
+          Column = v1Column10
+        end
+        item
+          Kind = skSum
+          Column = v1Column11
+        end
+        item
+          Kind = skSum
+          Column = v1Column12
+        end>
+      DataController.Summary.SummaryGroups = <>
+      OptionsCustomize.ColumnFiltering = False
+      OptionsSelection.CellSelect = False
+      OptionsView.Footer = True
+      OptionsView.GroupByBox = False
+      Styles.Inactive = DataLink_TradeManagePB.SHuangSe
+      Styles.IncSearch = DataLink_TradeManagePB.SHuangSe
+      Styles.Selection = DataLink_TradeManagePB.SHuangSe
+      object v1OrderNo: TcxGridDBColumn
+        Caption = #29983#20135#21333#21495
+        DataBinding.FieldName = 'ConNo'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Styles.Header = DataLink_TradeManagePB.Default
+        Width = 65
+      end
+      object v1Column2: TcxGridDBColumn
+        Caption = #21697#21517
+        DataBinding.FieldName = 'C_CodeName'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Styles.Header = DataLink_TradeManagePB.Default
+        Width = 63
+      end
+      object v1Column3: TcxGridDBColumn
+        Caption = #39068#33394
+        DataBinding.FieldName = 'C_Color'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Styles.Header = DataLink_TradeManagePB.Default
+        Width = 56
+      end
+      object v1Column8: TcxGridDBColumn
+        Caption = #33410#25968
+        DataBinding.FieldName = 'ConDefStr1'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Styles.Header = DataLink_TradeManagePB.Default
+        Width = 68
+      end
+      object v1Column9: TcxGridDBColumn
+        Caption = #36710#22411
+        DataBinding.FieldName = 'ConDefStr2'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Styles.Header = DataLink_TradeManagePB.Default
+        Width = 53
+      end
+      object v1Column1: TcxGridDBColumn
+        Caption = #36716#25968
+        DataBinding.FieldName = 'ZhuanStr'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Styles.Header = DataLink_TradeManagePB.Default
+        Width = 53
+      end
+      object v1Column5: TcxGridDBColumn
+        Caption = #19979#21333#26085#26399
+        DataBinding.FieldName = 'QDTime'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Styles.Header = DataLink_TradeManagePB.Default
+        Width = 63
+      end
+      object v1Qty1: TcxGridDBColumn
+        Caption = #21305#25968
+        DataBinding.FieldName = 'Qty1'
+        Visible = False
+        HeaderAlignmentHorz = taCenter
+        Hidden = True
+        Styles.Header = DataLink_TradeManagePB.Default
+        Width = 46
+      end
+      object v1Column6: TcxGridDBColumn
+        Caption = #21305#25968
+        DataBinding.FieldName = 'Qty1'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Styles.Header = DataLink_TradeManagePB.Default
+        Width = 46
+      end
+      object v1Column10: TcxGridDBColumn
+        Caption = #24050#23433#25490#21305#25968
+        DataBinding.FieldName = 'APPS'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Styles.Header = DataLink_TradeManagePB.Default
+        Width = 78
+      end
+      object v1Column11: TcxGridDBColumn
+        Caption = #20837#24211#21305#25968
+        DataBinding.FieldName = 'RKPS'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Styles.Header = DataLink_TradeManagePB.Default
+        Width = 63
+      end
+      object v1Column12: TcxGridDBColumn
+        Caption = #20986#24211#21305#25968
+        DataBinding.FieldName = 'CKPS'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Styles.Header = DataLink_TradeManagePB.Default
+        Width = 60
+      end
+      object v1Column7: TcxGridDBColumn
+        Caption = #27599#21305#37325#37327'(KG)'
+        DataBinding.FieldName = 'Qty2'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Styles.Header = DataLink_TradeManagePB.Default
+        Width = 83
+      end
+      object v1PRTOrderQty: TcxGridDBColumn
+        Caption = #24635#37325#37327'(KG)'
+        DataBinding.FieldName = 'C_Qty'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Styles.Header = DataLink_TradeManagePB.Default
+        Width = 73
+      end
+      object v1Column4: TcxGridDBColumn
+        Caption = #22791#27880
+        DataBinding.FieldName = 'C_Note'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Styles.Header = DataLink_TradeManagePB.Default
+        Width = 61
+      end
+    end
+    object cxGrid1Level1: TcxGridLevel
+      GridView = Tv1
+    end
+  end
+  object cxSplitter1: TcxSplitter
+    Left = 690
+    Top = 105
+    Width = 8
+    Height = 563
+    HotZoneClassName = 'TcxMediaPlayer9Style'
+    AlignSplitter = salRight
+    Control = Panel2
+    Visible = False
+  end
+  object Panel2: TPanel
+    Left = 698
+    Top = 105
+    Width = 574
+    Height = 563
+    Align = alRight
+    BevelInner = bvRaised
+    BevelOuter = bvLowered
+    TabOrder = 4
+    Visible = False
+    object cxGrid2: TcxGrid
+      Left = 2
+      Top = 2
+      Width = 570
+      Height = 559
+      Align = alClient
+      TabOrder = 0
+      Visible = False
+      object Tv2: TcxGridDBTableView
+        NavigatorButtons.ConfirmDelete = False
+        DataController.DataSource = DSAnPai
+        DataController.Summary.DefaultGroupSummaryItems = <>
+        DataController.Summary.FooterSummaryItems = <
+          item
+            Kind = skSum
+          end
+          item
+            Kind = skSum
+          end
+          item
+            Kind = skSum
+          end
+          item
+            Kind = skCount
+            Column = cxGridDBColumn2
+          end>
+        DataController.Summary.SummaryGroups = <>
+        OptionsCustomize.ColumnFiltering = False
+        OptionsView.Footer = True
+        OptionsView.GroupByBox = False
+        Styles.Inactive = DataLink_TradeManagePB.SHuangSe
+        Styles.IncSearch = DataLink_TradeManagePB.SHuangSe
+        Styles.Selection = DataLink_TradeManagePB.SHuangSe
+        object v2Column2: TcxGridDBColumn
+          Caption = #36873#25321
+          DataBinding.FieldName = 'SSel'
+          PropertiesClassName = 'TcxCheckBoxProperties'
+          Properties.ImmediatePost = True
+          Properties.NullStyle = nssUnchecked
+          HeaderAlignmentHorz = taCenter
+          Styles.Header = DataLink_TradeManagePB.Default
+          Width = 42
+        end
+        object cxGridDBColumn1: TcxGridDBColumn
+          Caption = #21592#24037
+          DataBinding.FieldName = 'SCPerson'
+          HeaderAlignmentHorz = taCenter
+          Options.Focusing = False
+          Styles.Header = DataLink_TradeManagePB.Default
+          Width = 51
+        end
+        object cxGridDBColumn2: TcxGridDBColumn
+          Caption = #26465#30721
+          DataBinding.FieldName = 'APID'
+          HeaderAlignmentHorz = taCenter
+          Options.Focusing = False
+          Styles.Header = DataLink_TradeManagePB.Default
+          Width = 92
+        end
+        object cxGridDBColumn3: TcxGridDBColumn
+          Caption = #36710#21495
+          DataBinding.FieldName = 'CarNo'
+          HeaderAlignmentHorz = taCenter
+          Options.Editing = False
+          Options.Focusing = False
+          Styles.Header = DataLink_TradeManagePB.Default
+          Width = 43
+        end
+        object v2Column3: TcxGridDBColumn
+          Caption = #36716#25968
+          DataBinding.FieldName = 'ZhuanQty'
+          HeaderAlignmentHorz = taCenter
+          Options.Focusing = False
+          Styles.Header = DataLink_TradeManagePB.Default
+          Width = 46
+        end
+        object cxGridDBColumn6: TcxGridDBColumn
+          Caption = #23433#25490#26085#26399
+          DataBinding.FieldName = 'APDate'
+          PropertiesClassName = 'TcxDateEditProperties'
+          Properties.SaveTime = False
+          Properties.ShowTime = False
+          HeaderAlignmentHorz = taCenter
+          Options.Focusing = False
+          Styles.Header = DataLink_TradeManagePB.Default
+          Width = 77
+        end
+        object v2Column1: TcxGridDBColumn
+          Caption = #24050#26816#39564
+          DataBinding.FieldName = 'JYFlag'
+          PropertiesClassName = 'TcxCheckBoxProperties'
+          Properties.NullStyle = nssUnchecked
+          HeaderAlignmentHorz = taCenter
+          Options.Focusing = False
+          Styles.Header = DataLink_TradeManagePB.Default
+          Width = 46
+        end
+        object v2Column4: TcxGridDBColumn
+          Caption = #25171#21360#27425#25968
+          DataBinding.FieldName = 'PRTCount'
+          HeaderAlignmentHorz = taCenter
+          Options.Focusing = False
+          Styles.Header = DataLink_TradeManagePB.Default
+          Width = 58
+        end
+      end
+      object cxGridLevel1: TcxGridLevel
+        GridView = Tv2
+      end
+    end
+  end
+  object cxGridPopupMenu1: TcxGridPopupMenu
+    Grid = cxGrid1
+    PopupMenus = <>
+    Left = 536
+    Top = 272
+  end
+  object ADOQueryCmd: TADOQuery
+    Connection = DataLink_TradeManagePB.ADOLink
+    Parameters = <>
+    Left = 448
+    Top = 168
+  end
+  object ADOQueryMain: TADOQuery
+    Connection = DataLink_TradeManagePB.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 424
+    Top = 168
+  end
+  object ADOQueryTemp: TADOQuery
+    Connection = DataLink_TradeManagePB.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 488
+    Top = 168
+  end
+  object DataSource1: TDataSource
+    DataSet = Order_Main
+    Left = 368
+    Top = 160
+  end
+  object Order_Main: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 392
+    Top = 160
+  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 = RMDBMain
+    CompressLevel = rmzcFastest
+    CompressThread = False
+    LaterBuildEvents = True
+    OnlyOwnerDataSet = False
+    Left = 352
+    Top = 192
+    ReportData = {}
+  end
+  object RMDBMain: TRMDBDataSet
+    Visible = True
+    DataSet = CDS_PRT
+    Left = 288
+    Top = 160
+  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 = 336
+    Top = 160
+  end
+  object CDS_PRT: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 312
+    Top = 160
+  end
+  object RM2: 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 = RMDBPRT
+    CompressLevel = rmzcFastest
+    CompressThread = False
+    LaterBuildEvents = True
+    OnlyOwnerDataSet = False
+    Left = 624
+    Top = 264
+    ReportData = {}
+  end
+  object RMDBPRT: TRMDBDataSet
+    Visible = True
+    DataSet = ADOQueryPrint
+    Left = 528
+    Top = 168
+  end
+  object ADOQueryPrint: TADOQuery
+    Connection = DataLink_TradeManagePB.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 592
+    Top = 176
+  end
+  object DSAnPai: TDataSource
+    DataSet = CDS_AnPai
+    Left = 872
+    Top = 264
+  end
+  object CDS_AnPai: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 912
+    Top = 264
+  end
+  object cxGridPopupMenu2: TcxGridPopupMenu
+    Grid = cxGrid2
+    PopupMenus = <>
+    Left = 792
+    Top = 224
+  end
+end

打卷检验管理/U_ClothSCListZDSel.pas

@@ -0,0 +1,880 @@
+unit U_ClothSCListZDSel;
+
+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, cxCheckBox, BtnEdit;
+
+type
+  TfrmClothSCListZDSel = 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;
+    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_Color: TEdit;
+    RM1: TRMGridReport;
+    RMDBMain: TRMDBDataSet;
+    RMXLSExport1: TRMXLSExport;
+    CDS_PRT: TClientDataSet;
+    cxGrid1: TcxGrid;
+    Tv1: TcxGridDBTableView;
+    v1OrderNo: TcxGridDBColumn;
+    v1Column2: TcxGridDBColumn;
+    v1Column3: TcxGridDBColumn;
+    v1Column5: TcxGridDBColumn;
+    v1Qty1: TcxGridDBColumn;
+    v1PRTOrderQty: TcxGridDBColumn;
+    v1Column4: TcxGridDBColumn;
+    cxGrid1Level1: TcxGridLevel;
+    v1Column6: TcxGridDBColumn;
+    v1Column7: TcxGridDBColumn;
+    v1Column8: TcxGridDBColumn;
+    v1Column9: TcxGridDBColumn;
+    RM2: TRMGridReport;
+    RMDBPRT: TRMDBDataSet;
+    ADOQueryPrint: TADOQuery;
+    cxSplitter1: TcxSplitter;
+    DSAnPai: TDataSource;
+    CDS_AnPai: TClientDataSet;
+    cxGridPopupMenu2: TcxGridPopupMenu;
+    Panel2: TPanel;
+    cxGrid2: TcxGrid;
+    Tv2: TcxGridDBTableView;
+    cxGridDBColumn1: TcxGridDBColumn;
+    cxGridDBColumn2: TcxGridDBColumn;
+    cxGridDBColumn3: TcxGridDBColumn;
+    cxGridDBColumn6: TcxGridDBColumn;
+    v2Column1: TcxGridDBColumn;
+    cxGridLevel1: TcxGridLevel;
+    Button1: TButton;
+    Button2: TButton;
+    v2Column2: TcxGridDBColumn;
+    PS: TEdit;
+    Label6: TLabel;
+    Label7: TLabel;
+    Label8: TLabel;
+    SCPerson: TBtnEditA;
+    CarNo: TBtnEditA;
+    ZhuanQty: TEdit;
+    Label9: TLabel;
+    v2Column3: TcxGridDBColumn;
+    v2Column4: TcxGridDBColumn;
+    Label2: TLabel;
+    MainIdTM: TEdit;
+    v1Column1: TcxGridDBColumn;
+    v1Column10: TcxGridDBColumn;
+    v1Column11: TcxGridDBColumn;
+    v1Column12: TcxGridDBColumn;
+    ToolButton1: 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 ConNoMChange(Sender: TObject);
+    procedure FormShow(Sender: TObject);
+    procedure Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView;
+      APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord;
+      ANewItemRecordFocusingChanged: Boolean);
+    procedure Tv2MouseDown(Sender: TObject; Button: TMouseButton;
+      Shift: TShiftState; X, Y: Integer);
+    procedure Tv3MouseDown(Sender: TObject; Button: TMouseButton;
+      Shift: TShiftState; X, Y: Integer);
+    procedure Tv2CellClick(Sender: TcxCustomGridTableView;
+      ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
+      AShift: TShiftState; var AHandled: Boolean);
+    procedure conPress(Sender: TObject; var Key: Char);
+    procedure SCPersonBtnClick(Sender: TObject);
+    procedure Button2Click(Sender: TObject);
+    procedure Button1Click(Sender: TObject);
+    procedure MainIdTMKeyPress(Sender: TObject; var Key: Char);
+    procedure ToolButton1Click(Sender: TObject);
+  private
+    FInt,PFInt:Integer;
+    procedure InitGrid();
+    procedure InitForm();
+    function  DelData():Boolean;
+    function  SaveData():Boolean;
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+var
+  frmClothSCListZDSel: TfrmClothSCListZDSel;
+
+implementation
+uses
+  U_DataLink,U_ClothSCInPut,U_Fun,U_ZDYHelp;
+
+{$R *.dfm}
+
+procedure TfrmClothSCListZDSel.FormDestroy(Sender: TObject);
+begin
+  frmClothSCListZDSel:=nil;
+end;
+
+procedure TfrmClothSCListZDSel.FormClose(Sender: TObject;
+  var Action: TCloseAction);
+begin
+  Action:=caFree;
+end;
+
+procedure TfrmClothSCListZDSel.TBCloseClick(Sender: TObject);
+begin
+  Close;
+  WriteCxGrid('车间生产计划单',Tv1,'指示单管理');
+  WriteCxGrid('车间生产计划单AP',Tv2,'指示单管理');
+end;
+
+procedure TfrmClothSCListZDSel.InitGrid();
+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))+''''
+                                           +' and ConType=''生产'' ';
+      Open;
+    end;
+    SCreateCDS20(ADOQueryMain,Order_Main);
+    SInitCDSData20(ADOQueryMain,Order_Main);
+  finally
+    ADOQueryMain.EnableControls;
+  end;
+end;
+
+procedure TfrmClothSCListZDSel.InitForm();
+begin
+  ReadCxGrid('车间生产计划单',Tv1,'指示单管理');
+  ReadCxGrid('车间生产计划单AP',Tv2,'指示单管理');
+  BegDate.DateTime:=SGetServerDate10(ADOQueryTemp)-7;
+  EndDate.DateTime:=SGetServerDate10(ADOQueryTemp);
+  InitGrid();
+  {if Trim(DParameters1)='高权限' then
+  begin
+    TBPrintAgn.Visible:=True;
+  end;}
+end;
+
+procedure TfrmClothSCListZDSel.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 TfrmClothSCListZDSel.TBEditClick(Sender: TObject);
+begin
+  if Order_Main.IsEmpty then Exit;
+  try
+    frmClothSCInPut:=TfrmClothSCInPut.Create(Application);
+    with frmClothSCInPut do
+    begin
+      PState:=1;
+      FMainId:=Trim(Self.Order_Main.fieldbyname('MainId').AsString);
+      FConNo:=Trim(Self.Order_Main.fieldbyname('ConNoM').AsString);
+      if ShowModal=1 then
+      begin
+
+      end;
+    end;
+  finally
+    frmClothSCInPut.Free;
+  end;
+end;
+
+procedure TfrmClothSCListZDSel.TBDelClick(Sender: TObject);
+begin
+  if Order_Main.IsEmpty then Exit;
+  with ADOQueryTemp do
+  begin
+    Close;
+    sql.Clear;
+    sql.Add('select * from Contract_Sub_MX where SubId='''+Trim(Order_Main.fieldbyname('SubId').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
+    //TBRafresh.Click;
+    //TBFind.Click;
+    Order_Main.Delete;
+  end;
+end;
+
+function TfrmClothSCListZDSel.DelData():Boolean;
+begin
+end;
+
+procedure TfrmClothSCListZDSel.TBExportClick(Sender: TObject);
+begin
+  if ADOQueryMain.IsEmpty then Exit;
+  TcxGridToExcel('坯布合同订单列表',cxGrid1);
+end;
+
+procedure TfrmClothSCListZDSel.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 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);
+  //SDofilter(ADOQueryMain,' ConNoM='''+Trim(Order_Main.fieldbyname('ConNoM').AsString)+'''');
+  //SCreateCDS20(ADOQueryMain,Order_Main);
+  //SInitCDSData20(ADOQueryMain,Order_Main);
+  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;
+  //SDofilter(ADOQueryMain,'');
+  //SCreateCDS20(ADOQueryMain,Order_Main);
+  //SInitCDSData20(ADOQueryMain,Order_Main);
+  //Order_Main.Locate('ConNoM',FConNoM,[]);
+  //SelPrintData(TV4,ADOQueryMain,'合同查询报表');
+end;
+
+procedure TfrmClothSCListZDSel.TBRafreshClick(Sender: TObject);
+begin
+  InitGrid();
+end;
+
+procedure TfrmClothSCListZDSel.TBAddClick(Sender: TObject);
+begin
+  try
+    frmClothSCInPut:=TfrmClothSCInPut.Create(Application);
+    with frmClothSCInPut do
+    begin
+      PState:=0;
+      FMainId:='';
+      if ShowModal=1 then
+      begin
+
+      end;
+    end;
+  finally
+    frmClothSCInPut.Free;
+  end;
+end;
+
+procedure TfrmClothSCListZDSel.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 TfrmClothSCListZDSel.FormShow(Sender: TObject);
+begin
+  InitForm();
+end;
+
+procedure TfrmClothSCListZDSel.Tv1FocusedRecordChanged(
+  Sender: TcxCustomGridTableView; APrevFocusedRecord,
+  AFocusedRecord: TcxCustomGridRecord;
+  ANewItemRecordFocusingChanged: Boolean);
+begin
+  with ADOQueryTemp do
+  begin
+    Close;
+    sql.Clear;
+    SQL.Add('select A.*');
+    sql.Add('from JYCon_Sub_AnPai A');
+    sql.Add(' where A.SubId='''+Trim(Order_Main.fieldbyname('SubId').AsString)+'''');
+    Open;
+  end;
+  SCreateCDS20(ADOQueryTemp,CDS_AnPai);
+  SInitCDSData20(ADOQueryTemp,CDS_AnPai);
+end;
+
+procedure TfrmClothSCListZDSel.Tv2MouseDown(Sender: TObject;
+  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
+begin
+  FInt:=2;
+end;
+
+procedure TfrmClothSCListZDSel.Tv3MouseDown(Sender: TObject;
+  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
+begin
+  FInt:=3;
+end;
+
+procedure TfrmClothSCListZDSel.Tv2CellClick(
+  Sender: TcxCustomGridTableView;
+  ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
+  AShift: TShiftState; var AHandled: Boolean);
+begin
+  {with ADOQueryTemp do
+  begin
+    Close;
+    sql.Clear;
+    SQL.Add('select A.*,C.MPRTSpec,B.PRTColor,C.MPRTCodeName,C.OrderNo ,');
+    sql.Add('C_Unit=(select Top 1 C_Unit from Contract_Sub AA,Contract_Sub_Mx BB where AA.SubId=BB.SubId and BB.MXid=A.Mxid)');
+    SQL.Add(' from Contract_Sub_MxTo A inner join JYOrder_Sub B on A.OrdSubId=B.SubId ');
+    SQL.Add(' inner join JYOrder_Main C on C.MainId=B.MainId ');
+    sql.Add('where A.MxId='''+Trim(ClientDataSet2.fieldbyname('MxId').AsString)+'''');
+    Open;
+  end;
+  SCreateCDS20(ADOQueryTemp,ClientDataSet3);
+  SInitCDSData20(ADOQueryTemp,ClientDataSet3);   }
+end;
+
+procedure TfrmClothSCListZDSel.conPress(Sender: TObject;
+  var Key: Char);
+begin
+  if Key=#13 then
+  begin
+    if Length(Trim(ConNoM.Text))<4 then Exit;
+    try
+      ADOQueryMain.DisableControls;
+      with ADOQueryMain do
+      begin
+        Filtered:=False;
+        Close;
+        sql.Clear;
+        sql.Add('exec ClothContract_QryList :MainId,:WSql');
+        Parameters.ParamByName('WSql').Value:=' and OM.conNo like '''+'%'+Trim(ConNoM.Text)+'%'+''''
+                                              +' and ConType=''生产'' ';
+        Open;
+      end;
+      SCreateCDS20(ADOQueryMain,Order_Main);
+      SInitCDSData20(ADOQueryMain,Order_Main);
+    finally
+      ADOQueryMain.EnableControls;
+    end;
+  end;
+end;
+
+procedure TfrmClothSCListZDSel.SCPersonBtnClick(Sender: TObject);
+var
+  fsj:string;
+  FWZ:Integer;
+begin
+  fsj:=Trim(TEdit(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
+        TEdit(Sender).Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
+      end;
+    end;
+  finally
+    frmZDYHelp.Free;
+  end;
+end;
+
+procedure TfrmClothSCListZDSel.Button2Click(Sender: TObject);
+var
+  FFDS:Integer;
+begin
+  if Trim(PS.Text)='' then
+  begin
+    Application.MessageBox('匹数不能为空!','提示',0);
+    Exit;
+  end;
+  if TryStrToInt(Trim(PS.Text),FFDS)=False then
+  begin
+    Application.MessageBox('匹数非法','提示',0);
+    Exit;
+  end;
+  if Trim(SCPerson.Text)='' then
+  begin
+    Application.MessageBox('员工不能为空!','提示',0);
+    Exit;
+  end;
+  if Trim(CarNo.Text)='' then
+  begin
+    Application.MessageBox('车号不能为空!','提示',0);
+    Exit;
+  end;
+  if Trim(ZhuanQty.Text)='' then
+  begin
+    Application.MessageBox('转数不能为空!','提示',0);
+    Exit;
+  end;
+  if TryStrToInt(Trim(ZhuanQty.Text),FFDS)=False then
+  begin
+    Application.MessageBox('转数非法','提示',0);
+    Exit;
+  end;
+ { with ADOQueryTemp do
+  begin
+    Close;
+    sql.Clear;
+    sql.Add('select isnull(Count(*),0) APPS from JYCon_Sub_AnPai where SubId='''+Trim(Order_Main.fieldbyname('SubId').AsString)+'''');
+    Open;
+  end;
+  if (ADOQueryTemp.FieldByName('APPS').AsInteger+strtoint(PS.Text))>Order_Main.fieldbyname('Qty1').AsInteger then
+  begin
+    Application.MessageBox('安排匹数过多，不允许操作!','提示',0);
+    Exit;
+  end; }
+  if Application.MessageBox('确定要保存数据吗？','提示',32+4)<>IDYES then Exit;
+  SaveData();
+end;
+function TfrmClothSCListZDSel.SaveData():Boolean;
+var
+  maxno,fPrintFile,TaiQty,TaiQtyMax,TaiQtyMin:String;
+  i:Integer;
+  FDate:string;
+begin
+  FDate:=FormatDateTime('yyyy-MM-dd',SGetServerDate(ADOQueryTemp));
+  try
+    ADOQueryCmd.Connection.BeginTrans;
+    ///保存主表
+
+    for i:=1 to StrToInt(PS.Text) do
+    begin
+      if GetLSNo(ADOQueryCmd,maxno,'','JYCon_Sub_AnPai',4,1)=False then
+      begin
+        ADOQueryCmd.Connection.RollbackTrans;
+        Application.MessageBox('生成坯布安排流水号异常！','提示',0);
+        exit;
+      end;
+      with ADOQueryCmd do
+      begin
+        Close;
+        sql.Clear;
+        SQL.Add('select * from JYCon_Sub_AnPai where 1<>1');
+        Open;
+      end;
+      with ADOQueryCmd do
+      begin
+        Append;
+        FieldByName('MainId').Value:=Trim(Order_Main.fieldbyname('MainId').AsString);
+        FieldByName('SubId').Value:=Trim(Order_Main.fieldbyname('SubId').AsString);
+        FieldByName('APId').Value:=Trim(maxno);
+        FieldByName('SCPerson').Value:=Trim(SCPerson.Text);
+        FieldByName('CarNo').Value:=Trim(CarNo.Text);
+        FieldByName('ZhuanQty').Value:=Trim(ZhuanQty.Text);
+        FieldByName('PRTCount').Value:=1;
+        FieldByName('APDate').Value:=FDate;
+        FieldByName('Filler').Value:=Trim(DName);
+        Post;
+      end;
+      //更新加工单价
+      with ADOQueryCmd do
+      begin
+        Close;
+        SQL.Clear;
+        SQL.Add(' select Count(*) TaiQty from ');
+        sql.Add('(select distinct(CarNo) CarNo from [JYCon_Sub_AnPai] where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+'''');
+        sql.Add(' and SCPerson='''+Trim(SCPerson.Text)+'''');
+        SQL.Add(' and APDate='''+Trim(FDate)+''') AA');
+        //ShowMessage(sql.Text);
+        Open;
+      end;
+      TaiQty:=Trim(ADOQueryCmd.fieldbyname('TaiQty').AsString);
+      with ADOQueryTemp do
+      begin
+        Close;
+        sql.Clear;
+        sql.Add(' select isnull(Max(DEFFlt1),0) TaiQtyMax,isnull(Min(DEFFlt1),0) TaiQtyMin ');
+        sql.Add(' from [KH_Zdy_Attachment] where ZdyName='''+Trim(Order_Main.fieldbyname('C_CodeName').AsString)+'''');
+        Open;
+      end;
+      if ADOQueryTemp.FieldByName('TaiQtyMax').AsInteger=0 then
+      begin
+        ADOQueryCmd.Connection.RollbackTrans;
+        Application.MessageBox('坯布加工单价未定义!','提示',0);
+        Exit;
+      end else
+      begin
+        TaiQtyMax:=ADOQueryTemp.fieldbyname('TaiQtyMax').AsString;
+        TaiQtyMin:=ADOQueryTemp.fieldbyname('TaiQtyMin').AsString;
+      end;
+      with ADOQueryTemp do
+      begin
+        Close;
+        sql.Clear;
+        sql.Add('select Top 1 * from [KH_Zdy_Attachment] where ZdyName='''+Trim(Order_Main.fieldbyname('C_CodeName').AsString)+'''');
+        sql.Add(' and DEFFlt1='+TaiQty);
+        Open;
+      end;
+      if ADOQueryTemp.IsEmpty=False then
+      begin
+        with ADOQueryCmd do
+        begin
+          Close;
+          sql.Clear;
+          sql.Add('Update JYCon_Sub_AnPai Set JGPrice='+ADOQueryTemp.fieldbyname('DEFFlt3').AsString);
+          sql.Add(' where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+'''');
+          sql.Add(' and SCPerson='''+Trim(SCPerson.Text)+'''');
+          SQL.Add(' and APDate='''+Trim(FDate)+'''');
+          ExecSQL;
+        end;
+      end else
+      begin
+        if StrToInt(TaiQty)<StrToInt(TaiQtyMin) then
+        begin
+          with ADOQueryCmd do
+          begin
+            Close;
+            sql.Clear;
+            sql.Add('Update JYCon_Sub_AnPai Set JGPrice=');
+            sql.Add('(select Top 1 DEFFlt3 from KH_Zdy_Attachment where ZdyName='''+Trim(Order_Main.fieldbyname('C_CodeName').AsString)+'''');
+            sql.Add(' and DEFFlt1='+TaiQtyMin);
+            sql.Add(' )where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+'''');
+            sql.Add(' and SCPerson='''+Trim(SCPerson.Text)+'''');
+            SQL.Add(' and APDate='''+Trim(FDate)+'''');
+            ExecSQL;
+          end;
+        end else
+        if StrToInt(TaiQty)<StrToInt(TaiQtyMax) then
+        begin
+          with ADOQueryCmd do
+          begin
+            Close;
+            sql.Clear;
+            sql.Add('Update JYCon_Sub_AnPai Set JGPrice=');
+            sql.Add('(select Top 1 DEFFlt3 from KH_Zdy_Attachment where ZdyName='''+Trim(Order_Main.fieldbyname('C_CodeName').AsString)+'''');
+            sql.Add(' and DEFFlt1>'+TaiQty);
+            sql.Add(' )where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+'''');
+            sql.Add(' and SCPerson='''+Trim(SCPerson.Text)+'''');
+            SQL.Add(' and APDate='''+Trim(FDate)+'''');
+            ExecSQL;
+          end;
+        end else
+        begin
+          with ADOQueryCmd do
+          begin
+            Close;
+            sql.Clear;
+            sql.Add('Update JYCon_Sub_AnPai Set JGPrice=');
+            sql.Add('(select Top 1 DEFFlt3 from KH_Zdy_Attachment where ZdyName='''+Trim(Order_Main.fieldbyname('C_CodeName').AsString)+'''');
+            sql.Add(' and DEFFlt1='+TaiQtyMax);
+            sql.Add(' )where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+'''');
+            sql.Add(' and SCPerson='''+Trim(SCPerson.Text)+'''');
+            SQL.Add(' and APDate='''+Trim(FDate)+'''');
+            ExecSQL;
+          end;
+        end;
+      end;
+      //更新加工单价
+      with CDS_AnPai do
+      begin
+        Append;
+        FieldByName('MainId').Value:=Trim(Order_Main.fieldbyname('MainId').AsString);
+        FieldByName('SubId').Value:=Trim(Order_Main.fieldbyname('SubId').AsString);
+        FieldByName('APId').Value:=Trim(maxno);
+        FieldByName('SCPerson').Value:=Trim(SCPerson.Text);
+        FieldByName('CarNo').Value:=Trim(CarNo.Text);
+        FieldByName('ZhuanQty').Value:=Trim(ZhuanQty.Text);
+        FieldByName('APDate').Value:=FDate;
+        FieldByName('PRTCount').Value:=1;
+        Post;
+      end;
+      fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\坯布检验指示单标签.rmf';
+      if FileExists(fPrintFile) then
+      begin
+        with ADOQueryPrint do
+        begin
+          Close;
+          sql.Clear;
+          sql.Add('select B.ConNo ,A.C_CodeName,A.C_Color,A.ConDefStr1,A.ConDefStr2,A.ConDefStr3,A.ConDefStr4, ');
+          sql.Add(' AA.APID,AA.ZhuanQty,AA.SCPerson,AA.CarNo,A.ConDefStr5,A.KZQty ');
+          sql.Add(' from JYCon_Sub_AnPai AA');
+          sql.Add(' inner join Contract_Sub A on AA.SubId=A.SubId ');
+          sql.Add(' inner join Contract_Main B on A.MainId=B.MainId ');
+          sql.Add(' where AA.APId='''+Trim(CDS_AnPai.fieldbyname('APID').AsString)+'''');
+          Open;
+        end;
+        {CDS_AnPai.Edit;
+        CDS_AnPai.FieldByName('PRTFlag').Value:=1;
+        CDS_AnPai.FieldByName('PRTCount').Value:=2;
+        CDS_AnPai.Post;}
+       { with ADOQueryCmd do
+        begin
+          Close;
+          sql.Clear;
+          sql.Add('UPdate JYCon_Sub_AnPai Set PRTFlag=1,PRTCount=2 ');
+          sql.Add(' where APId='''+Trim(CDS_AnPai.fieldbyname('APID').AsString)+'''');
+          ExecSQL;
+        end; }
+        //RMVariables['begindate']:=begindate.DateTime;
+        //RMVariables['enddate']:=enddate.DateTime;
+        //RMVariables['printtime']:=Now;
+        //RMVariables['printer']:=Trim(gUserName);
+        {RM2.LoadFromFile(fPrintFile);
+        RM2.ShowReport;
+        with ADOQueryPrint do
+        begin
+          Close;
+          sql.Clear;
+          sql.Add('select B.ConNo ,A.C_CodeName,A.C_Color,A.ConDefStr1,A.ConDefStr2,A.ConDefStr3,A.ConDefStr4, ');
+          sql.Add(' AA.APID,AA.ZhuanQty,AA.SCPerson,AA.CarNo ');
+          sql.Add(' from JYCon_Sub_AnPai AA');
+          sql.Add(' inner join Contract_Sub A on AA.SubId=A.SubId ');
+          sql.Add(' inner join Contract_Main B on A.MainId=B.MainId ');
+          sql.Add(' where AA.APId='''+Trim(maxno)+'''');
+          Open;
+        end; }
+        //RMVariables['begindate']:=begindate.DateTime;
+        //RMVariables['enddate']:=enddate.DateTime;
+        //RMVariables['printtime']:=Now;
+        //RMVariables['printer']:=Trim(gUserName);
+        RM2.LoadFromFile(fPrintFile);
+        //RM2.ShowReport;
+        RM2.PrintReport;
+      end else
+      begin
+        Application.MessageBox(PChar('没有找'+ExtractFilePath(Application.ExeName)+'Report\坯布检验指示单标签.rmf'),'提示',0);
+        Exit;
+      end;
+    end;
+    ADOQueryCmd.Connection.CommitTrans;
+    Result:=True;
+  except
+    Result:=False;
+    ADOQueryCmd.Connection.RollbackTrans;
+    Application.MessageBox('保存失败！','提示',0);
+  end;
+end;
+
+procedure TfrmClothSCListZDSel.Button1Click(Sender: TObject);
+var
+  TaiQtyMax,TaiQtyMin,TaiQty:string;
+begin
+  if CDS_AnPai.Locate('SSel',True,[])=False then
+  begin
+    Application.MessageBox('没有选择数据!','提示',0);
+    Exit;
+  end;
+  if CDS_AnPai.Locate('SSel;JYFlag',VarArrayOf([True,True]),[]) then
+  begin
+    Application.MessageBox('已检验不能作废!','提示',0);
+    Exit;
+  end;
+  if Application.MessageBox('确定要作废数据吗？','提示',32+4)<>IDYES then Exit;
+  try
+    ADOQueryCmd.Connection.BeginTrans;
+    CDS_AnPai.DisableControls;
+    with CDS_AnPai do
+    begin
+      while CDS_AnPai.FieldByName('SSel').AsBoolean=True do
+      begin
+        with ADOQueryCmd do
+        begin
+          Close;
+          sql.Clear;
+          sql.Add('delete JYCon_Sub_AnPai  ');
+          sql.Add(' where APId='''+Trim(CDS_AnPai.fieldbyname('APID').AsString)+'''');
+          ExecSQL;
+        end;
+        //更新加工单价
+        with ADOQueryCmd do
+        begin
+          Close;
+          SQL.Clear;
+          SQL.Add(' select Count(*) TaiQty from ');
+          sql.Add('(select distinct(CarNo) CarNo from [JYCon_Sub_AnPai] where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+'''');
+          sql.Add(' and SCPerson='''+Trim(CDS_AnPai.fieldbyname('SCPerson').AsString)+'''');
+          SQL.Add(' and APDate='''+Trim(CDS_AnPai.fieldbyname('APDate').AsString)+''') AA');
+          //ShowMessage(sql.Text);
+          Open;
+        end;
+        TaiQty:=Trim(ADOQueryCmd.fieldbyname('TaiQty').AsString);
+        with ADOQueryTemp do
+        begin
+          Close;
+          sql.Clear;
+          sql.Add(' select isnull(Max(DEFFlt1),0) TaiQtyMax,isnull(Min(DEFFlt1),0) TaiQtyMin ');
+          sql.Add(' from [KH_Zdy_Attachment] where ZdyName='''+Trim(Order_Main.fieldbyname('C_CodeName').AsString)+'''');
+          Open;
+        end;
+        if ADOQueryTemp.FieldByName('TaiQtyMax').AsInteger=0 then
+        begin
+          ADOQueryCmd.Connection.RollbackTrans;
+          CDS_AnPai.EnableControls;
+          Application.MessageBox('坯布加工单价未定义!','提示',0);
+          Exit;
+        end else
+        begin
+          TaiQtyMax:=ADOQueryTemp.fieldbyname('TaiQtyMax').AsString;
+          TaiQtyMin:=ADOQueryTemp.fieldbyname('TaiQtyMin').AsString;
+        end;
+        with ADOQueryTemp do
+        begin
+          Close;
+          sql.Clear;
+          sql.Add('select Top 1 * from [KH_Zdy_Attachment] where ZdyName='''+Trim(Order_Main.fieldbyname('C_CodeName').AsString)+'''');
+          sql.Add(' and DEFFlt1='+TaiQty);
+          Open;
+        end;
+        if ADOQueryTemp.IsEmpty=False then
+        begin
+          with ADOQueryCmd do
+          begin
+            Close;
+            sql.Clear;
+            sql.Add('Update JYCon_Sub_AnPai Set JGPrice='+ADOQueryTemp.fieldbyname('DEFFlt3').AsString);
+            sql.Add(' where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+'''');
+            sql.Add(' and SCPerson='''+Trim(CDS_AnPai.fieldbyname('SCPerson').AsString)+'''');
+            SQL.Add(' and APDate='''+Trim(CDS_AnPai.fieldbyname('APDate').AsString)+'''');
+            ExecSQL;
+          end;
+        end else
+        begin
+          if StrToInt(TaiQty)<StrToInt(TaiQtyMin) then
+          begin
+            with ADOQueryCmd do
+            begin
+              Close;
+              sql.Clear;
+              sql.Add('Update JYCon_Sub_AnPai Set JGPrice=');
+              sql.Add('(select Top 1 DEFFlt3 from KH_Zdy_Attachment where ZdyName='''+Trim(Order_Main.fieldbyname('C_CodeName').AsString)+'''');
+              sql.Add(' and DEFFlt1='+TaiQtyMin);
+              sql.Add(' )where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+'''');
+              sql.Add(' and SCPerson='''+Trim(CDS_AnPai.fieldbyname('SCPerson').AsString)+'''');
+              SQL.Add(' and APDate='''+Trim(CDS_AnPai.fieldbyname('APDate').AsString)+'''');
+              ExecSQL;
+            end;
+          end else
+          if StrToInt(TaiQty)<StrToInt(TaiQtyMax) then
+          begin
+            with ADOQueryCmd do
+            begin
+              Close;
+              sql.Clear;
+              sql.Add('Update JYCon_Sub_AnPai Set JGPrice=');
+              sql.Add('(select Top 1 DEFFlt3 from KH_Zdy_Attachment where ZdyName='''+Trim(Order_Main.fieldbyname('C_CodeName').AsString)+'''');
+              sql.Add(' and DEFFlt1>'+TaiQty);
+              sql.Add(' )where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+'''');
+              sql.Add(' and SCPerson='''+Trim(CDS_AnPai.fieldbyname('SCPerson').AsString)+'''');
+              SQL.Add(' and APDate='''+Trim(CDS_AnPai.fieldbyname('APDate').AsString)+'''');
+              ExecSQL;
+            end;
+          end else
+          begin
+            with ADOQueryCmd do
+            begin
+              Close;
+              sql.Clear;
+              sql.Add('Update JYCon_Sub_AnPai Set JGPrice=');
+              sql.Add('(select Top 1 DEFFlt3 from KH_Zdy_Attachment where ZdyName='''+Trim(Order_Main.fieldbyname('C_CodeName').AsString)+'''');
+              sql.Add(' and DEFFlt1='+TaiQtyMax);
+              sql.Add(' )where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+'''');
+              sql.Add(' and SCPerson='''+Trim(CDS_AnPai.fieldbyname('SCPerson').AsString)+'''');
+              SQL.Add(' and APDate='''+Trim(CDS_AnPai.fieldbyname('APDate').AsString)+'''');
+              ExecSQL;
+            end;
+          end;
+        end;
+        //更新加工单价
+        CDS_AnPai.Delete;
+      end;
+    end;
+    CDS_AnPai.EnableControls;
+
+    ADOQueryCmd.Connection.CommitTrans;
+  except
+    ADOQueryCmd.Connection.RollbackTrans;
+    CDS_AnPai.EnableControls;
+    Application.MessageBox('作废失败!','提示',0);
+    Exit;
+  end;
+end;
+
+procedure TfrmClothSCListZDSel.MainIdTMKeyPress(Sender: TObject;
+  var Key: Char);
+begin
+  if Key=#13 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 substring(OM.MainId,3,10)='''+Trim(MainIdTM.Text)+'''';
+        Open;
+      end;
+      SCreateCDS20(ADOQueryMain,Order_Main);
+      SInitCDSData20(ADOQueryMain,Order_Main);
+    finally
+      ADOQueryMain.EnableControls;
+    end;
+    MainIdTM.Text:='';
+  end;
+end;
+
+procedure TfrmClothSCListZDSel.ToolButton1Click(Sender: TObject);
+begin
+  ModalResult:=1;
+end;
+
+end.

打卷检验管理/U_ContractList.dfm

@@ -0,0 +1,874 @@
+object frmContractList: TfrmContractList
+  Left = 71
+  Top = 64
+  Width = 1253
+  Height = 637
+  Caption = #35746#21333#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 = 1237
+    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_TradeManage.ThreeImgList
+    List = True
+    ParentColor = False
+    ParentFont = False
+    ShowCaptions = True
+    TabOrder = 0
+    object TBRafresh: TToolButton
+      Left = 0
+      Top = 0
+      AutoSize = True
+      Caption = #21047#26032
+      ImageIndex = 2
+      OnClick = TBRafreshClick
+    end
+    object TBFind: TToolButton
+      Left = 63
+      Top = 0
+      AutoSize = True
+      Caption = #36807#28388
+      ImageIndex = 59
+      OnClick = TBFindClick
+    end
+    object ToolButton4: TToolButton
+      Left = 126
+      Top = 0
+      Caption = #20135#21697#31867#21035#23450#20041
+      ImageIndex = 58
+      Visible = False
+      OnClick = ToolButton4Click
+    end
+    object TBAdd: TToolButton
+      Left = 233
+      Top = 0
+      AutoSize = True
+      Caption = #26032#22686
+      ImageIndex = 3
+      OnClick = TBAddClick
+    end
+    object TBEdit: TToolButton
+      Left = 296
+      Top = 0
+      AutoSize = True
+      Caption = #20462#25913
+      ImageIndex = 54
+      OnClick = TBEditClick
+    end
+    object ToolButton2: TToolButton
+      Left = 359
+      Top = 0
+      AutoSize = True
+      Caption = #22797#21046
+      ImageIndex = 57
+      OnClick = ToolButton2Click
+    end
+    object ComboBox1: TComboBox
+      Left = 422
+      Top = 3
+      Width = 145
+      Height = 24
+      DropDownCount = 10
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -16
+      Font.Name = #23435#20307
+      Font.Style = []
+      ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
+      ItemHeight = 16
+      ParentFont = False
+      TabOrder = 0
+      Visible = False
+    end
+    object ToolButton1: TToolButton
+      Left = 567
+      Top = 0
+      AutoSize = True
+      Caption = #26597#30475
+      ImageIndex = 58
+      OnClick = ToolButton1Click
+    end
+    object TBDel: TToolButton
+      Left = 630
+      Top = 0
+      AutoSize = True
+      Caption = #21024#38500
+      ImageIndex = 17
+      OnClick = TBDelClick
+    end
+    object Tchk: TToolButton
+      Left = 693
+      Top = 0
+      AutoSize = True
+      Caption = #23457#26680
+      ImageIndex = 41
+      OnClick = TchkClick
+    end
+    object Tnochk: TToolButton
+      Left = 756
+      Top = 0
+      AutoSize = True
+      Caption = #25764#38144#23457#26680
+      ImageIndex = 86
+      Visible = False
+      OnClick = TnochkClick
+    end
+    object TQX: TToolButton
+      Left = 843
+      Top = 0
+      AutoSize = True
+      Caption = #21512#21516#21462#28040
+      ImageIndex = 41
+      OnClick = TQXClick
+    end
+    object TNOQX: TToolButton
+      Left = 930
+      Top = 0
+      AutoSize = True
+      Caption = #25764#38144#21512#21516#21462#28040
+      ImageIndex = 86
+      OnClick = TNOQXClick
+    end
+    object TBExport: TToolButton
+      Left = 1041
+      Top = 0
+      AutoSize = True
+      Caption = #23548#20986
+      ImageIndex = 75
+      OnClick = TBExportClick
+    end
+    object TBPrint: TToolButton
+      Left = 1104
+      Top = 0
+      AutoSize = True
+      Caption = #25171#21360
+      ImageIndex = 12
+      OnClick = TBPrintClick
+    end
+    object TBClose: TToolButton
+      Left = 1167
+      Top = 0
+      AutoSize = True
+      Caption = #20851#38381
+      ImageIndex = 55
+      OnClick = TBCloseClick
+    end
+  end
+  object cxGrid1: TcxGrid
+    Left = 0
+    Top = 103
+    Width = 1237
+    Height = 276
+    Align = alTop
+    TabOrder = 1
+    object Tv1: TcxGridDBTableView
+      NavigatorButtons.ConfirmDelete = False
+      OnCellDblClick = Tv1CellDblClick
+      OnFocusedRecordChanged = Tv1FocusedRecordChanged
+      DataController.DataSource = DataSource1
+      DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
+      DataController.Summary.DefaultGroupSummaryItems = <>
+      DataController.Summary.FooterSummaryItems = <
+        item
+          Kind = skSum
+          Column = v1PRTOrderQty
+        end>
+      DataController.Summary.SummaryGroups = <>
+      OptionsCustomize.ColumnFiltering = False
+      OptionsData.Editing = False
+      OptionsView.Footer = True
+      OptionsView.GroupByBox = False
+      OptionsView.Indicator = True
+      Styles.Inactive = DataLink_TradeManage.SHuangSe
+      Styles.IncSearch = DataLink_TradeManage.SHuangSe
+      Styles.Selection = DataLink_TradeManage.SHuangSe
+      Styles.OnGetContentStyle = Tv1StylesGetContentStyle
+      Styles.Header = DataLink_TradeManage.Default
+      object v1Column4: TcxGridDBColumn
+        Caption = #36873#25321
+        DataBinding.FieldName = 'SSel'
+        PropertiesClassName = 'TcxCheckBoxProperties'
+        Properties.NullStyle = nssUnchecked
+        Visible = False
+        HeaderAlignmentHorz = taCenter
+        Width = 49
+      end
+      object v1ConNo: TcxGridDBColumn
+        Caption = #21512#21516#21495
+        DataBinding.FieldName = 'ConNo'
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_TradeManage.Default
+        Width = 73
+      end
+      object v1Column3: TcxGridDBColumn
+        Caption = 'PO#'
+        DataBinding.FieldName = 'KHConNO'
+        HeaderAlignmentHorz = taCenter
+        Width = 80
+      end
+      object v1Column1: TcxGridDBColumn
+        Caption = #20844#21496#21488#22836
+        DataBinding.FieldName = 'SYRName'
+        HeaderAlignmentHorz = taCenter
+        Width = 119
+      end
+      object v1OrdPerson1: TcxGridDBColumn
+        Caption = #19994#21153#21592
+        DataBinding.FieldName = 'ConPerson1'
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_TradeManage.Default
+        Width = 83
+      end
+      object v1CustomerNoName: TcxGridDBColumn
+        Caption = #23458#25143
+        DataBinding.FieldName = 'CustomerNoName'
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_TradeManage.Default
+        Width = 102
+      end
+      object v1OrdDate: TcxGridDBColumn
+        Caption = #21046#21333#26085#26399
+        DataBinding.FieldName = 'OrdDate'
+        PropertiesClassName = 'TcxDateEditProperties'
+        Properties.ShowTime = False
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_TradeManage.Default
+        Width = 120
+      end
+      object v1DeliveryDate: TcxGridDBColumn
+        Caption = #20132#36135#26085#26399
+        DataBinding.FieldName = 'DlyDate'
+        PropertiesClassName = 'TcxDateEditProperties'
+        Properties.ShowTime = False
+        OnCustomDrawCell = v1DeliveryDateCustomDrawCell
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_TradeManage.Default
+        Width = 97
+      end
+      object v1MPRTSpec: TcxGridDBColumn
+        Caption = #20132#26399#35828#26126
+        DataBinding.FieldName = 'DlyNote'
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_TradeManage.Default
+        Width = 100
+      end
+      object v1OrdDefStr1: TcxGridDBColumn
+        Caption = #20215#26684#26415#35821
+        DataBinding.FieldName = 'PriceNote'
+        HeaderAlignmentHorz = taCenter
+        Width = 93
+      end
+      object v1PRTOrderQty: TcxGridDBColumn
+        Caption = #25968#37327
+        DataBinding.FieldName = 'PRTOrderQty'
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_TradeManage.Default
+        Width = 72
+      end
+      object v1Column2: TcxGridDBColumn
+        Caption = #25968#37327#21333#20301
+        DataBinding.FieldName = 'OrderUnit'
+        HeaderAlignmentHorz = taCenter
+        Width = 60
+      end
+      object V1ISCG: TcxGridDBColumn
+        Caption = #22383#24067#26159#21542#24050#37319#36141
+        DataBinding.FieldName = 'ISCG'
+        HeaderAlignmentHorz = taCenter
+        Width = 96
+      end
+    end
+    object cxGrid1Level1: TcxGridLevel
+      GridView = Tv1
+    end
+  end
+  object Panel1: TPanel
+    Left = 0
+    Top = 32
+    Width = 1237
+    Height = 49
+    Align = alTop
+    BevelInner = bvRaised
+    BevelOuter = bvLowered
+    Color = clSkyBlue
+    TabOrder = 2
+    object Label1: TLabel
+      Left = 23
+      Top = 15
+      Width = 52
+      Height = 12
+      Caption = #21046#21333#26085#26399
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label4: TLabel
+      Left = 295
+      Top = 15
+      Width = 40
+      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 Label5: TLabel
+      Left = 658
+      Top = 15
+      Width = 53
+      Height = 12
+      Caption = #19994' '#21153' '#21592
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label8: TLabel
+      Left = 458
+      Top = 87
+      Width = 52
+      Height = 12
+      Caption = #33521#25991#21517#31216
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label9: TLabel
+      Left = 471
+      Top = 15
+      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 Label12: TLabel
+      Left = 335
+      Top = 83
+      Width = 26
+      Height = 12
+      Caption = #20811#37325
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label13: TLabel
+      Left = 335
+      Top = 107
+      Width = 26
+      Height = 12
+      Caption = #38376#24133
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label2: TLabel
+      Left = 164
+      Top = 16
+      Width = 6
+      Height = 12
+      Caption = '-'
+    end
+    object Label3: TLabel
+      Left = 846
+      Top = 15
+      Width = 21
+      Height = 12
+      Caption = 'PO#'
+      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 = 11
+      Width = 85
+      Height = 20
+      Date = 40675.464742650460000000
+      Format = 'yyyy-MM-dd'
+      Time = 40675.464742650460000000
+      ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
+      TabOrder = 0
+    end
+    object EndDate: TDateTimePicker
+      Left = 172
+      Top = 11
+      Width = 86
+      Height = 20
+      Date = 40675.464761099540000000
+      Format = 'yyyy-MM-dd'
+      Time = 40675.464761099540000000
+      ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
+      TabOrder = 1
+    end
+    object CustomerNoName: TEdit
+      Tag = 2
+      Left = 343
+      Top = 11
+      Width = 100
+      Height = 20
+      ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
+      TabOrder = 2
+      OnChange = CustomerNoNameChange
+      OnKeyPress = ConNoKeyPress
+    end
+    object ConPerson1: TEdit
+      Tag = 2
+      Left = 719
+      Top = 11
+      Width = 100
+      Height = 20
+      ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
+      TabOrder = 3
+      OnChange = CustomerNoNameChange
+      OnKeyPress = ConNoKeyPress
+    end
+    object MPRTCodeName: TEdit
+      Tag = 2
+      Left = 511
+      Top = 83
+      Width = 76
+      Height = 20
+      ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
+      TabOrder = 4
+      OnChange = CustomerNoNameChange
+    end
+    object ConNo: TEdit
+      Tag = 2
+      Left = 516
+      Top = 11
+      Width = 100
+      Height = 20
+      ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
+      TabOrder = 5
+      OnChange = CustomerNoNameChange
+      OnKeyPress = ConNoKeyPress
+    end
+    object MPRTKZ: TEdit
+      Tag = 2
+      Left = 364
+      Top = 79
+      Width = 56
+      Height = 20
+      ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
+      TabOrder = 6
+      OnChange = CustomerNoNameChange
+    end
+    object MPRTMF: TEdit
+      Tag = 2
+      Left = 364
+      Top = 103
+      Width = 56
+      Height = 20
+      ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
+      TabOrder = 7
+      OnChange = CustomerNoNameChange
+    end
+    object KHConNO: TEdit
+      Tag = 2
+      Left = 875
+      Top = 11
+      Width = 100
+      Height = 20
+      ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
+      TabOrder = 8
+      OnChange = CustomerNoNameChange
+      OnKeyPress = ConNoKeyPress
+    end
+  end
+  object cxTabControl1: TcxTabControl
+    Left = 0
+    Top = 81
+    Width = 1237
+    Height = 22
+    Align = alTop
+    Font.Charset = GB2312_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -12
+    Font.Name = #23435#20307
+    Font.Style = []
+    ParentFont = False
+    Style = 9
+    TabIndex = 0
+    TabOrder = 3
+    Tabs.Strings = (
+      #26410#23457#26680
+      #24050#23457#26680
+      #24050#21462#28040
+      #20840#37096)
+    OnChange = cxTabControl1Change
+    ClientRectBottom = 22
+    ClientRectRight = 1237
+    ClientRectTop = 19
+  end
+  object cxSplitter1: TcxSplitter
+    Left = 0
+    Top = 388
+    Width = 1237
+    Height = 8
+    HotZoneClassName = 'TcxMediaPlayer9Style'
+    AlignSplitter = salBottom
+    Control = cxGrid2
+  end
+  object cxGrid2: TcxGrid
+    Left = 0
+    Top = 396
+    Width = 1237
+    Height = 203
+    Align = alBottom
+    TabOrder = 5
+    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 = cxGridDBColumn3
+        end
+        item
+          Format = '0'
+          Position = spFooter
+          Column = v1PRTPrice
+        end
+        item
+          Format = '0'
+          Position = spFooter
+          Column = cxGridDBColumn4
+        end
+        item
+          Format = '0'
+          Position = spFooter
+          Column = cxGridDBColumn5
+        end>
+      DataController.Summary.FooterSummaryItems = <
+        item
+          Kind = skSum
+          Column = cxGridDBColumn3
+        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.GroupByBox = False
+      OptionsView.Indicator = True
+      Styles.Inactive = DataLink_TradeManage.SHuangSe
+      Styles.IncSearch = DataLink_TradeManage.SHuangSe
+      Styles.Selection = DataLink_TradeManage.SHuangSe
+      Styles.Header = DataLink_TradeManage.Default
+      object v1Column5: TcxGridDBColumn
+        Caption = #33521#25991#21697#21517
+        DataBinding.FieldName = 'PrtCodeName'
+        PropertiesClassName = 'TcxButtonEditProperties'
+        Properties.Buttons = <
+          item
+            Default = True
+            Kind = bkEllipsis
+          end>
+        HeaderAlignmentHorz = taCenter
+        Width = 92
+      end
+      object v1Column6: TcxGridDBColumn
+        Caption = #35268#26684#25104#20221
+        DataBinding.FieldName = 'PRTspec'
+        HeaderAlignmentHorz = taCenter
+        Width = 60
+      end
+      object v1PRTColor: TcxGridDBColumn
+        Caption = #39068#33394
+        DataBinding.FieldName = 'PRTColor'
+        PropertiesClassName = 'TcxButtonEditProperties'
+        Properties.Buttons = <
+          item
+            Default = True
+            Kind = bkEllipsis
+          end>
+        Properties.ReadOnly = False
+        HeaderAlignmentHorz = taCenter
+        Options.Sorting = False
+        Styles.Header = DataLink_TradeManage.handBlack
+        Width = 90
+      end
+      object cxGridDBColumn1: TcxGridDBColumn
+        Caption = #39068#33394#33521#25991
+        DataBinding.FieldName = 'SOrdDefStr4'
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_TradeManage.Default
+        Width = 72
+      end
+      object cxGridDBColumn2: TcxGridDBColumn
+        Caption = #33457#22411#33457#21495
+        DataBinding.FieldName = 'PRTHX'
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_TradeManage.FonePurple
+        Width = 59
+      end
+      object v1Column7: TcxGridDBColumn
+        Caption = #38376#24133
+        DataBinding.FieldName = 'PRTMF'
+        PropertiesClassName = 'TcxButtonEditProperties'
+        Properties.Buttons = <
+          item
+            Default = True
+            Kind = bkEllipsis
+          end>
+        HeaderAlignmentHorz = taCenter
+      end
+      object v1Column8: TcxGridDBColumn
+        Caption = #20811#37325
+        DataBinding.FieldName = 'PRTKZ'
+        PropertiesClassName = 'TcxButtonEditProperties'
+        Properties.Buttons = <
+          item
+            Default = True
+            Kind = bkEllipsis
+          end>
+        HeaderAlignmentHorz = taCenter
+      end
+      object cxGridDBColumn3: TcxGridDBColumn
+        Caption = #25968#37327
+        DataBinding.FieldName = 'PRTOrderQty'
+        PropertiesClassName = 'TcxTextEditProperties'
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_TradeManage.Default
+        Width = 66
+      end
+      object v1OrderUnit: TcxGridDBColumn
+        Caption = #25968#37327#21333#20301
+        DataBinding.FieldName = 'OrderUnit'
+        PropertiesClassName = 'TcxButtonEditProperties'
+        Properties.Buttons = <
+          item
+            Default = True
+            Kind = bkEllipsis
+          end>
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_TradeManage.Default
+        Width = 66
+      end
+      object v1PRTPrice: TcxGridDBColumn
+        Caption = #21333#20215
+        DataBinding.FieldName = 'PRTPrice'
+        PropertiesClassName = 'TcxTextEditProperties'
+        HeaderAlignmentHorz = taCenter
+        Options.Sorting = False
+        Styles.Header = DataLink_TradeManage.handBlack
+        Width = 64
+      end
+      object v1PriceUnit: TcxGridDBColumn
+        Caption = #24065#31181
+        DataBinding.FieldName = 'PriceUnit'
+        PropertiesClassName = 'TcxButtonEditProperties'
+        Properties.Buttons = <
+          item
+            Default = True
+            Kind = bkEllipsis
+          end>
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_TradeManage.Default
+        Width = 87
+      end
+      object cxGridDBColumn4: TcxGridDBColumn
+        Caption = #20844#26020#25968#37327
+        DataBinding.FieldName = 'KgQty'
+        Visible = False
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Styles.Header = DataLink_TradeManage.Default
+        Width = 86
+      end
+      object cxGridDBColumn5: TcxGridDBColumn
+        Caption = #20844#26020#21333#20215
+        DataBinding.FieldName = 'KgPrice'
+        Visible = False
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Styles.Header = DataLink_TradeManage.Default
+        Width = 69
+      end
+    end
+    object cxGridLevel1: TcxGridLevel
+      GridView = TV2
+    end
+  end
+  object cxGridPopupMenu1: TcxGridPopupMenu
+    Grid = cxGrid1
+    PopupMenus = <>
+    Left = 544
+    Top = 176
+  end
+  object ADOQueryCmd: TADOQuery
+    Connection = DataLink_TradeManage.ADOLink
+    Parameters = <>
+    Left = 688
+    Top = 224
+  end
+  object ADOQueryMain: TADOQuery
+    Connection = DataLink_TradeManage.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 552
+    Top = 216
+  end
+  object ADOQueryTemp: TADOQuery
+    Connection = DataLink_TradeManage.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 316
+    Top = 232
+  end
+  object DataSource1: TDataSource
+    DataSet = Order_Main
+    Left = 440
+    Top = 184
+  end
+  object Order_Main: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 464
+    Top = 208
+  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 = RMDBDataSet1
+    CompressLevel = rmzcFastest
+    CompressThread = False
+    LaterBuildEvents = True
+    OnlyOwnerDataSet = False
+    Left = 336
+    Top = 200
+    ReportData = {}
+  end
+  object RMDBDataSet1: TRMDBDataSet
+    Visible = True
+    DataSet = CDS_Print
+    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 = 576
+    Top = 248
+  end
+  object PopupMenu1: TPopupMenu
+    Left = 288
+    Top = 184
+    object N2: TMenuItem
+      Caption = #26377#20379#24212#21830
+      OnClick = N2Click
+    end
+  end
+  object ADOQueryPrint: TADOQuery
+    Connection = DataLink_TradeManage.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 360
+    Top = 240
+  end
+  object CDS_Print: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 344
+    Top = 288
+  end
+  object PopupMenu2: TPopupMenu
+    Left = 648
+    Top = 168
+    object N11: TMenuItem
+      Caption = #26684#24335'1'
+    end
+    object N21: TMenuItem
+      Caption = #26684#24335'2'
+    end
+    object N31: TMenuItem
+      Caption = #26684#24335'3'
+    end
+  end
+  object ADOQuerySub: TADOQuery
+    Connection = DataLink_TradeManage.ADOLink
+    Parameters = <>
+    Left = 556
+    Top = 416
+  end
+  object DataSource2: TDataSource
+    DataSet = ADOQuerySub
+    Left = 488
+    Top = 440
+  end
+end

打卷检验管理/U_ContractList.pas

@@ -0,0 +1,935 @@
+unit U_ContractList;
+
+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;
+
+type
+  TfrmContractList = 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;
+    v1DeliveryDate: TcxGridDBColumn;
+    v1OrdPerson1: TcxGridDBColumn;
+    v1ConNo: TcxGridDBColumn;
+    v1MPRTSpec: TcxGridDBColumn;
+    Order_Main: TClientDataSet;
+    RM1: TRMGridReport;
+    RMDBDataSet1: TRMDBDataSet;
+    RMXLSExport1: TRMXLSExport;
+    v1CustomerNoName: TcxGridDBColumn;
+    v1PRTOrderQty: TcxGridDBColumn;
+    PopupMenu1: TPopupMenu;
+    N2: TMenuItem;
+    ToolButton1: TToolButton;
+    v1OrdDefStr1: TcxGridDBColumn;
+    v1Column1: TcxGridDBColumn;
+    ToolButton2: TToolButton;
+    ADOQueryPrint: TADOQuery;
+    CDS_Print: TClientDataSet;
+    v1Column4: TcxGridDBColumn;
+    PopupMenu2: TPopupMenu;
+    N11: TMenuItem;
+    N21: TMenuItem;
+    N31: TMenuItem;
+    Panel1: TPanel;
+    Label1: TLabel;
+    Label4: TLabel;
+    Label5: TLabel;
+    Label8: TLabel;
+    Label9: TLabel;
+    Label12: TLabel;
+    Label13: TLabel;
+    BegDate: TDateTimePicker;
+    EndDate: TDateTimePicker;
+    CustomerNoName: TEdit;
+    ConPerson1: TEdit;
+    MPRTCodeName: TEdit;
+    ConNo: TEdit;
+    MPRTKZ: TEdit;
+    MPRTMF: TEdit;
+    v1Column2: TcxGridDBColumn;
+    ComboBox1: TComboBox;
+    ToolButton4: TToolButton;
+    Label2: TLabel;
+    v1Column3: TcxGridDBColumn;
+    cxTabControl1: TcxTabControl;
+    Tchk: TToolButton;
+    Tnochk: TToolButton;
+    cxSplitter1: TcxSplitter;
+    cxGrid2: TcxGrid;
+    TV2: TcxGridDBTableView;
+    v1Column5: TcxGridDBColumn;
+    v1Column6: TcxGridDBColumn;
+    v1PRTColor: TcxGridDBColumn;
+    cxGridDBColumn1: TcxGridDBColumn;
+    cxGridDBColumn2: TcxGridDBColumn;
+    v1Column7: TcxGridDBColumn;
+    v1Column8: TcxGridDBColumn;
+    cxGridDBColumn3: TcxGridDBColumn;
+    v1OrderUnit: TcxGridDBColumn;
+    v1PRTPrice: TcxGridDBColumn;
+    v1PriceUnit: TcxGridDBColumn;
+    cxGridDBColumn4: TcxGridDBColumn;
+    cxGridDBColumn5: TcxGridDBColumn;
+    cxGridLevel1: TcxGridLevel;
+    ADOQuerySub: TADOQuery;
+    DataSource2: TDataSource;
+    V1ISCG: TcxGridDBColumn;
+    KHConNO: TEdit;
+    Label3: TLabel;
+    TQX: TToolButton;
+    TNOQX: TToolButton;
+    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 Tv1CellDblClick(Sender: TcxCustomGridTableView;
+      ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
+      AShift: TShiftState; var AHandled: Boolean);
+    procedure TBTPClick(Sender: TObject);
+    procedure CheckBox1Click(Sender: TObject);
+    procedure CheckBox2Click(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 N1Click(Sender: TObject);
+    procedure N2Click(Sender: TObject);
+    procedure ToolButton1Click(Sender: TObject);
+    procedure ToolButton2Click(Sender: TObject);
+    procedure CustomerNoNameChange(Sender: TObject);
+    procedure ConNoKeyPress(Sender: TObject; var Key: Char);
+    procedure ToolButton4Click(Sender: TObject);
+    procedure cxTabControl1Change(Sender: TObject);
+    procedure TchkClick(Sender: TObject);
+    procedure TnochkClick(Sender: TObject);
+    procedure Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView;
+      APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord;
+      ANewItemRecordFocusingChanged: Boolean);
+    procedure TQXClick(Sender: TObject);
+    procedure TNOQXClick(Sender: TObject);
+  private
+    DQdate:TDateTime;
+    fuserName:string;
+    procedure InitGrid();
+    procedure InitForm();
+    function  DelData():Boolean;
+    procedure InitGridFH();
+    procedure SetStatus();
+    procedure InitSub();
+    { Private declarations }
+  public
+    FFInt,FCloth:Integer;
+
+    { Public declarations }
+  end;
+
+var
+  frmContractList: TfrmContractList;
+
+implementation
+uses
+  U_DataLink,U_ConInPut,U_Fun,U_ZDYHelp;
+
+{$R *.dfm}
+procedure TfrmContractList.InitSub();
+begin
+  ADOQuerySub.Close;
+  IF Order_Main.IsEmpty then exit;
+  with ADOQuerySub do
+  begin
+    close;
+    sql.Clear;
+    sql.Add('select * from JYOrderCon_sub ');
+    sql.Add('where mainID ='+quotedstr((Order_Main.fieldbyname('mainID').AsString)));
+    open;
+  end;
+end;
+procedure TfrmContractList.SetStatus();
+begin
+
+  tchk.Visible:=false;
+  tnochk.Visible:=false;
+  tbedit.Visible:=false;
+  tbdel.Visible:=false;
+  Tqx.Visible:=false;
+  TNoqx.Visible:=false;
+  if Trim(DParameters1)<>'高权限'  then
+  begin
+    case cxTabControl1.TabIndex of
+    0:begin
+       IF trim(DCode)<>'A2' then
+       begin
+         tbedit.Visible:=true;
+         tbdel.Visible:=true;
+       end;
+        Tqx.Visible:=true;
+      end;
+    1:begin
+        Tqx.Visible:=true;
+      end;
+    2:begin
+        TNoqx.Visible:=true;
+      end;
+    3:begin
+      end;
+    end;
+  end
+  else
+  begin
+    case cxTabControl1.TabIndex of
+    0:begin
+       tchk.Visible:=true;
+       tbedit.Visible:=true;
+       tbdel.Visible:=true;
+       Tqx.Visible:=true;
+      end;
+    1:begin
+       tnochk.Visible:=true;
+       Tqx.Visible:=true;
+      end;
+    2:begin
+        TNoqx.Visible:=true;
+      end;
+    3:begin
+      //  TNoqx.Visible:=true;
+      end;
+    end;
+  end;
+  
+end;
+
+procedure TfrmContractList.FormDestroy(Sender: TObject);
+begin
+  frmContractList:=nil;
+end;
+
+procedure TfrmContractList.FormClose(Sender: TObject;
+  var Action: TCloseAction);
+begin
+  Action:=caFree;
+end;
+
+procedure TfrmContractList.FormCreate(Sender: TObject);
+begin
+  cxgrid1.Align:=alClient;
+  //BegDate.DateTime:=SGetServerDateTime(ADOQueryTemp)-7;
+  //EndDate.DateTime:=SGetServerDateTime(ADOQueryTemp);
+  DQdate:=SGetServerDate(ADOQueryTemp);
+end;
+
+procedure TfrmContractList.TBCloseClick(Sender: TObject);
+begin
+  Close;
+  if FCloth<>1 then
+    WriteCxGrid('订单合同列表',Tv1,'生产指示单管理')
+  else
+    WriteCxGrid('订单合同列表选择',Tv1,'生产指示单管理');
+end;
+
+procedure TfrmContractList.InitGrid();
+begin
+  try
+    ADOQueryMain.DisableControls;
+    with ADOQueryMain do
+    begin
+      Filtered:=False;
+      Close;
+      sql.Clear;
+      sql.Add('select A.*,A.ConNo ConNoM ');
+      SQL.Add(',PRTOrderQty=(select Sum(PRTOrderQty) from JYOrderCon_Sub B where B.MainId=A.MainId)');
+      SQL.Add(',ConMoney=(select Sum(PRTOrderQty*PRTPrice) from JYOrderCon_Sub B where B.MainId=A.MainId)');
+      SQL.Add(',OrderUnit=(select top 1 OrderUnit from JYOrderCon_Sub B where B.MainId=A.MainId)');
+      SQL.Add(',PriceUnit=(select top 1 PriceUnit from JYOrderCon_Sub B where B.MainId=A.MainId)');
+      SQL.Add(',PRTPrice=(select top 1 PRTPrice from JYOrderCon_Sub B where B.MainId=A.MainId)');
+      SQL.Add(',case when isnull((select top 1 X.conNO from Contract_Main X where X.conNo=A.conNO) ,'''')='''' then ''否'' else ''是'' end as IScg  ');
+      sql.Add(' from JYOrderCon_Main A  ');
+  //    sql.Add(' left join Contract_Main B on B.conNO=A.conNo ');
+      SQL.Add('where  A.fILLtIME>='''+FormatDateTime('yyyy-MM-dd',BegDate.DateTime)+'''');
+      SQL.Add('and  A.fILLtIME<'''+FormatDateTime('yyyy-MM-dd',enddate.DateTime+1)+'''');
+      sql.Add(' and A.MPRTType=''外销'' ');
+      if Trim(DParameters1)<>'高权限'  then
+      begin
+        sql.Add('and A.Filler='''+Trim(fuserName)+'''');
+      end;
+      IF cxTabControl1.TabIndex<3 then
+      begin
+        sql.Add(' and  isnull(A.status,''0'')='''+inttostr(cxTabControl1.TabIndex)+'''');
+      end;
+      Open;
+    end;
+    SCreateCDS20(ADOQueryMain,Order_Main);
+    SInitCDSData20(ADOQueryMain,Order_Main);
+  finally
+    ADOQueryMain.EnableControls;
+  end;
+end;
+procedure TfrmContractList.InitGridFH();
+begin
+  try
+    ADOQueryMain.DisableControls;
+    with ADOQueryMain do
+    begin
+      Filtered:=False;
+      Close;
+      sql.Clear;
+      sql.Add('exec Order_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;
+
+procedure TfrmContractList.InitForm();
+begin
+  
+  if FCloth<>1 then
+    ReadCxGrid('订单合同列表',Tv1,'生产指示单管理')
+  else
+    ReadCxGrid('订单合同列表选择',Tv1,'生产指示单管理');
+
+  if FCloth=1 then
+  begin
+    v1Column4.Visible:=True;
+ //   v1PRTPrice.Visible:=False;
+   // v1PRTPrice.Hidden:=True;
+  end else
+  begin
+    v1Column4.Visible:=False;
+  //  v1PRTPrice.Visible:=True;
+  //  v1PRTPrice.Hidden:=False;
+  end;
+  BegDate.DateTime:=SGetServerDate10(ADOQueryTemp)-15;
+  EndDate.DateTime:=SGetServerDate10(ADOQueryTemp);
+  InitGrid();
+  with ADOQueryTemp do
+  begin
+    Close;
+    sql.Clear;
+    sql.Add('select Top 10* from JYOrderCon_Main Order by FillTime desc');
+    Open;
+  end;
+  ComboBox1.Clear;
+  with ADOQueryTemp do
+  begin
+    First;
+    while not Eof do
+    begin
+      ComboBox1.Items.Add(Trim(ADOQueryTemp.fieldbyname('ConNO').AsString));
+      Next;
+    end;
+  end;
+end;
+
+procedure TfrmContractList.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 TfrmContractList.TBEditClick(Sender: TObject);
+begin
+  if Order_Main.IsEmpty then Exit;
+  if Trim(Order_Main.fieldbyname('Filler').AsString)<>Trim(DName) then
+  begin
+    Application.MessageBox('不能操作他人的数据!','提示',0);
+    Exit;
+  end;
+  try
+    frmConInPut:=TfrmConInPut.Create(Application);
+    with frmConInPut do
+    begin
+      PState:=1;
+      FMainId:=Trim(Self.Order_Main.fieldbyname('MainId').AsString);
+      if ShowModal=1 then
+      begin
+
+      end;
+    end;
+  finally
+    frmConInPut.Free;
+  end;
+end;
+
+procedure TfrmContractList.TBDelClick(Sender: TObject);
+begin
+  if Order_Main.IsEmpty then Exit;
+  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 TfrmContractList.DelData():Boolean;
+begin
+  try
+    Result:=false;
+    ADOQueryCmd.Connection.BeginTrans;
+
+    with ADOQueryCmd do
+    begin
+      Close;
+      sql.Clear;
+      sql.Add('delete JYOrderCon_Sub where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+'''');
+      sql.Add('delete JYOrderCon_Main where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+'''');
+      sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( ');
+      sql.Add(' '+quotedstr(trim(DName)));
+      sql.Add(',getdate() ');
+      sql.Add(','+quotedstr(trim(self.Caption)));
+      sql.Add(','+quotedstr(trim('外销合同删除')));
+      sql.Add(','+quotedstr(trim('合同号：'+trim(Order_Main.FieldByName('conNo').AsString))));
+      sql.Add(','+quotedstr(trim('成功')));
+      sql.Add(')');
+      ExecSQL;
+    end;
+
+    ADOQueryCmd.Connection.CommitTrans;
+    Result:=True;
+  except
+    ADOQueryCmd.Connection.RollbackTrans;
+    Result:=False;
+    Application.MessageBox('数据删除异常！','提示',0);
+  end;
+end;
+
+procedure TfrmContractList.TBExportClick(Sender: TObject);
+begin
+  if ADOQueryMain.IsEmpty then Exit;
+  SelExportData(Tv1,ADOQueryMain,'生产指示单列表');
+end;
+
+procedure TfrmContractList.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(',Case when substring(PriceNote,1,3)=''FOB'' then '' ''+A.FromPlace else '' ''+A.ToPlace end as PriceNote10 ');
+    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 TfrmContractList.TBRafreshClick(Sender: TObject);
+begin
+  if FFInt=1 then
+  begin
+    InitGridFH();
+  end else
+    InitGrid();
+  with ADOQueryTemp do
+  begin
+    Close;
+    sql.Clear;
+    sql.Add('select Top 10* from JYOrderCon_Main Order by FillTime desc ');
+    Open;
+  end;
+  ComboBox1.Clear;
+  with ADOQueryTemp do
+  begin
+    First;
+    while not Eof do
+    begin
+      ComboBox1.Items.Add(Trim(ADOQueryTemp.fieldbyname('ConNO').AsString));
+      Next;
+    end;
+  end;
+end;
+
+procedure TfrmContractList.TBAddClick(Sender: TObject);
+var
+  maxno:string;
+begin
+  try
+    frmConInPut:=TfrmConInPut.Create(Application);
+    with frmConInPut do
+    begin
+      PState:=0;
+      FMainId:='';
+      if ShowModal=1 then
+      begin
+
+      end;
+    end;
+  finally
+    frmConInPut.Free;
+  end;
+end;
+
+procedure TfrmContractList.FormShow(Sender: TObject);
+begin
+  fuserName:=DCode;
+  if (trim(DCode)='A1') or (trim(DCode)='A2') then
+  begin
+    fuserName:='A';
+  end;
+  InitForm();
+  SetStatus();
+end;
+
+procedure TfrmContractList.Tv1CellDblClick(
+  Sender: TcxCustomGridTableView;
+  ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
+  AShift: TShiftState; var AHandled: Boolean);
+begin
+  if ToolButton1.Visible=False then Exit;
+  ToolButton1.Click;
+end;
+
+procedure TfrmContractList.TBTPClick(Sender: TObject);
+ var
+   FQty,FQty1,FMxQty,FPQty,FMxQtyS,FPQtyS:String;
+begin
+end;
+
+procedure TfrmContractList.CheckBox1Click(Sender: TObject);
+begin
+  InitGrid();
+end;
+
+procedure TfrmContractList.CheckBox2Click(Sender: TObject);
+begin
+  TBRafresh.Click;
+end;
+
+procedure TfrmContractList.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 TfrmContractList.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 TfrmContractList.N1Click(Sender: TObject);
+var
+   fPrintFile:string;
+   Porderno:string;
+begin
+  if Order_Main.IsEmpty then Exit;
+  fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\生产指示单10.rmf' ;
+  SDofilter(ADOQueryMain,' OrderNoM='''+Trim(Order_Main.fieldbyname('OrderNoM').AsString)+'''');
+  SCreateCDS20(ADOQueryMain,Order_Main);
+  SInitCDSData20(ADOQueryMain,Order_Main);
+  Porderno:=Trim(Order_Main.fieldbyname('OrderNoM').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\生产指示单10.rmf'),'提示',0);
+  end;
+  SDofilter(ADOQueryMain,'');
+  SCreateCDS20(ADOQueryMain,Order_Main);
+  SInitCDSData20(ADOQueryMain,Order_Main);
+  Order_Main.Locate('ordernoM',Porderno,[]);
+end;
+
+procedure TfrmContractList.N2Click(Sender: TObject);
+var
+   fPrintFile:string;
+   Porderno:string;
+begin
+  if Order_Main.IsEmpty then Exit;
+  fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\生产指示单.rmf' ;
+  SDofilter(ADOQueryMain,' OrderNoM='''+Trim(Order_Main.fieldbyname('OrderNoM').AsString)+'''');
+  SCreateCDS20(ADOQueryMain,Order_Main);
+  SInitCDSData20(ADOQueryMain,Order_Main);
+  Porderno:=Trim(Order_Main.fieldbyname('OrderNoM').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;
+  SDofilter(ADOQueryMain,'');
+  SCreateCDS20(ADOQueryMain,Order_Main);
+  SInitCDSData20(ADOQueryMain,Order_Main);
+  Order_Main.Locate('ordernoM',Porderno,[]);
+end;
+
+procedure TfrmContractList.ToolButton1Click(Sender: TObject);
+begin
+  if Order_Main.IsEmpty then Exit;
+  try
+    frmConInPut:=TfrmConInPut.Create(Application);
+    with frmConInPut do
+    begin
+      PState:=1;
+      FMainId:=Trim(Self.Order_Main.fieldbyname('MainId').AsString);
+      ToolBar2.Visible:=False;
+      TBSave.Visible:=False;
+      ScrollBox1.Enabled:=False;
+      Tv1.OptionsSelection.CellSelect:=False;
+      if ShowModal=1 then
+      begin
+
+      end;
+    end;
+  finally
+    frmConInPut.Free;
+  end;
+end;
+
+procedure TfrmContractList.ToolButton2Click(Sender: TObject);
+begin
+  if Order_Main.IsEmpty then Exit;
+  try
+    frmConInPut:=TfrmConInPut.Create(Application);
+    with frmConInPut do
+    begin
+      PState:=1;
+      CopyInt:=99;
+      FMainId:=Trim(Self.Order_Main.fieldbyname('MainId').AsString);
+      if ShowModal=1 then
+      begin
+
+      end;
+    end;
+  finally
+    frmConInPut.Free;
+  end;
+end;
+
+procedure TfrmContractList.CustomerNoNameChange(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 TfrmContractList.ConNoKeyPress(Sender: TObject; var Key: Char);
+begin
+  if Key=#13 then
+  begin
+    if Length(Tedit(Sender).Text)<1 then Exit;
+    try
+      ADOQueryMain.DisableControls;
+      with ADOQueryMain do
+      begin
+        Filtered:=False;
+        Close;
+        SQL.Clear;
+        sql.Add('select A.*,A.ConNo ConNoM ');
+        SQL.Add(',PRTOrderQty=(select Sum(PRTOrderQty) from JYOrderCon_Sub B where B.MainId=A.MainId)');
+        SQL.Add(',ConMoney=(select Sum(PRTOrderQty*PRTPrice) from JYOrderCon_Sub B where B.MainId=A.MainId)');
+        SQL.Add(',OrderUnit=(select top 1 OrderUnit from JYOrderCon_Sub B where B.MainId=A.MainId)');
+        SQL.Add(',PriceUnit=(select top 1 PriceUnit from JYOrderCon_Sub B where B.MainId=A.MainId)');
+        SQL.Add(',PRTPrice=(select top 1 PRTPrice from JYOrderCon_Sub B where B.MainId=A.MainId)');
+        SQL.Add(',case when isnull((select top 1 X.conNO from Contract_Main X where X.conNo=A.conNO) ,'''')='''' then ''否'' else ''是'' end as IScg  ');
+        sql.Add(' from JYOrderCon_Main A  ');
+        SQL.Add('where  OrdDate>='''+'1899-01-01'+'''');
+        SQL.Add('and  OrdDate<'''+'2050-01-01'+'''');
+        sql.Add(' and MPRTType=''外销'' ');
+        if Trim(DParameters1)<>'高权限'  then
+        begin
+            sql.Add('and A.Filler='''+Trim(DName)+'''');
+        end;
+        sql.Add(' and '+Tedit(Sender).Name+' like '+quotedstr(trim('%'+trim(Tedit(Sender).Text)+'%')));
+      //  sql.Add(' and ConNo like '''+'%'+Trim(ConNoM.Text)+'%'+'''');
+        Open;
+      end;
+      SCreateCDS20(ADOQueryMain,Order_Main);
+      SInitCDSData20(ADOQueryMain,Order_Main);
+    finally
+      ADOQueryMain.EnableControls;
+    end;
+  end;
+end;
+
+procedure TfrmContractList.ToolButton4Click(Sender: TObject);
+begin
+  try
+    frmZDYHelp:=TfrmZDYHelp.Create(Application);
+    with frmZDYHelp do
+    begin
+      flag:='MPRTNameType';
+      flagname:='产品类别定义';
+      V1HelpType.Visible:=True;
+      V1HelpType.Caption:='缩写名';
+      fnote:=True;
+      V1Name.Caption:='中文';
+      V1Note.Caption:='英文';
+      if ShowModal=1 then
+      begin
+
+      end;
+    end;
+  finally
+    frmZDYHelp.Free;
+  end;
+end;
+
+procedure TfrmContractList.cxTabControl1Change(Sender: TObject);
+begin
+  SetStatus();
+  TBRafresh.Click;
+end;
+
+procedure TfrmContractList.TchkClick(Sender: TObject);
+begin
+ if Order_Main.IsEmpty then exit;
+  try
+    with ADOQueryCmd do
+    begin
+      close;
+      sql.Clear;
+      sql.Add('update  JYOrdercon_Main SET status=''1'' ');
+      sql.Add('where mainID='+quotedstr(trim(Order_Main.fieldbyname('mainID').AsString)));
+      sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( ');
+      sql.Add(' '+quotedstr(trim(DName)));
+      sql.Add(',getdate() ');
+      sql.Add(','+quotedstr(trim(self.Caption)));
+      sql.Add(','+quotedstr(trim('外销合同审核')));
+      sql.Add(','+quotedstr(trim('合同号：'+trim(Order_Main.FieldByName('conNo').AsString))));
+      sql.Add(','+quotedstr(trim('成功')));
+      sql.Add(')');
+      execsql;
+    end;
+    application.MessageBox('审核成功！','提示信息');
+    TBRafresh.Click;
+  except
+   application.MessageBox('审核失败！','提示信息',0);
+  end;
+end;
+
+procedure TfrmContractList.TnochkClick(Sender: TObject);
+begin
+ if Order_Main.IsEmpty then exit;
+  try
+    with ADOQueryCmd do
+    begin
+      close;
+      sql.Clear;
+      sql.Add('update  JYOrdercon_Main SET status=''0'' ');
+      sql.Add('where mainID='+quotedstr(trim(Order_Main.fieldbyname('mainID').AsString)));
+      sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( ');
+      sql.Add(' '+quotedstr(trim(DName)));
+      sql.Add(',getdate() ');
+      sql.Add(','+quotedstr(trim(self.Caption)));
+      sql.Add(','+quotedstr(trim('外销合同撤销审核')));
+      sql.Add(','+quotedstr(trim('合同号：'+trim(Order_Main.FieldByName('conNo').AsString))));
+      sql.Add(','+quotedstr(trim('成功')));
+      sql.Add(')');
+      execsql;
+    end;
+    application.MessageBox('撤销审核成功！','提示信息');
+    TBRafresh.Click;
+  except
+   application.MessageBox('撤销审核失败！','提示信息',0);
+  end;
+end;
+
+procedure TfrmContractList.Tv1FocusedRecordChanged(
+  Sender: TcxCustomGridTableView; APrevFocusedRecord,
+  AFocusedRecord: TcxCustomGridRecord;
+  ANewItemRecordFocusingChanged: Boolean);
+begin
+  InitSub();
+end;
+
+procedure TfrmContractList.TQXClick(Sender: TObject);
+begin
+ if Order_Main.IsEmpty then exit;
+  try
+    with ADOQueryCmd do
+    begin
+      close;
+      sql.Clear;
+      sql.Add('update  JYOrdercon_Main SET status=''2'' ');
+      sql.Add('where mainID='+quotedstr(trim(Order_Main.fieldbyname('mainID').AsString)));
+      sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( ');
+      sql.Add(' '+quotedstr(trim(DName)));
+      sql.Add(',getdate() ');
+      sql.Add(','+quotedstr(trim(self.Caption)));
+      sql.Add(','+quotedstr(trim('外销合同取消')));
+      sql.Add(','+quotedstr(trim('合同号：'+trim(Order_Main.FieldByName('conNo').AsString))));
+      sql.Add(','+quotedstr(trim('成功')));
+      sql.Add(')');
+      execsql;
+    end;
+    application.MessageBox('合同取消成功！','提示信息');
+    TBRafresh.Click;
+  except
+   application.MessageBox('合同取消失败！','提示信息',0);
+  end;
+end;
+
+procedure TfrmContractList.TNOQXClick(Sender: TObject);
+begin
+ if Order_Main.IsEmpty then exit;
+  try
+    with ADOQueryCmd do
+    begin
+      close;
+      sql.Clear;
+      sql.Add('update  JYOrdercon_Main SET status=''0'' ');
+      sql.Add('where mainID='+quotedstr(trim(Order_Main.fieldbyname('mainID').AsString)));
+      sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( ');
+      sql.Add(' '+quotedstr(trim(DName)));
+      sql.Add(',getdate() ');
+      sql.Add(','+quotedstr(trim(self.Caption)));
+      sql.Add(','+quotedstr(trim('外销合同撤销取消')));
+      sql.Add(','+quotedstr(trim('合同号：'+trim(Order_Main.FieldByName('conNo').AsString))));
+      sql.Add(','+quotedstr(trim('成功')));
+      sql.Add(')');
+      execsql;
+    end;
+    application.MessageBox('撤销合同取消成功！','提示信息');
+    TBRafresh.Click;
+  except
+   application.MessageBox('撤销合同取消失败！','提示信息',0);
+  end;
+end;
+
+end.

打卷检验管理/U_ContractListNX.dfm

@@ -0,0 +1,868 @@
+object frmContractListNX: TfrmContractListNX
+  Left = 5
+  Top = 97
+  Width = 1378
+  Height = 588
+  Caption = #35746#21333#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 = 1370
+    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_TradeManage.ThreeImgList
+    List = True
+    ParentColor = False
+    ParentFont = False
+    ShowCaptions = True
+    TabOrder = 0
+    object TBRafresh: TToolButton
+      Left = 0
+      Top = 0
+      AutoSize = True
+      Caption = #21047#26032
+      ImageIndex = 2
+      OnClick = TBRafreshClick
+    end
+    object TBFind: TToolButton
+      Left = 63
+      Top = 0
+      AutoSize = True
+      Caption = #36807#28388
+      ImageIndex = 59
+      OnClick = TBFindClick
+    end
+    object ToolButton3: TToolButton
+      Left = 126
+      Top = 0
+      AutoSize = True
+      Caption = #36873#25321
+      ImageIndex = 106
+      Visible = False
+      OnClick = ToolButton3Click
+    end
+    object ToolButton4: TToolButton
+      Left = 189
+      Top = 0
+      Caption = #20135#21697#31867#21035#23450#20041
+      ImageIndex = 58
+      Visible = False
+      OnClick = ToolButton4Click
+    end
+    object TBAdd: TToolButton
+      Left = 296
+      Top = 0
+      AutoSize = True
+      Caption = #26032#22686
+      ImageIndex = 3
+      OnClick = TBAddClick
+    end
+    object TBEdit: TToolButton
+      Left = 359
+      Top = 0
+      AutoSize = True
+      Caption = #20462#25913
+      ImageIndex = 54
+      OnClick = TBEditClick
+    end
+    object ComboBox1: TComboBox
+      Left = 422
+      Top = 3
+      Width = 145
+      Height = 24
+      DropDownCount = 10
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -16
+      Font.Name = #23435#20307
+      Font.Style = []
+      ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
+      ItemHeight = 16
+      ParentFont = False
+      TabOrder = 0
+      Visible = False
+    end
+    object ToolButton2: TToolButton
+      Left = 567
+      Top = 0
+      AutoSize = True
+      Caption = #22797#21046
+      ImageIndex = 57
+      OnClick = ToolButton2Click
+    end
+    object ToolButton1: TToolButton
+      Left = 630
+      Top = 0
+      AutoSize = True
+      Caption = #26597#30475
+      ImageIndex = 58
+      OnClick = ToolButton1Click
+    end
+    object TBDel: TToolButton
+      Left = 693
+      Top = 0
+      AutoSize = True
+      Caption = #21024#38500
+      ImageIndex = 17
+      OnClick = TBDelClick
+    end
+    object tchk: TToolButton
+      Left = 756
+      Top = 0
+      AutoSize = True
+      Caption = #23457#26680
+      ImageIndex = 41
+      OnClick = tchkClick
+    end
+    object Tnochk: TToolButton
+      Left = 819
+      Top = 0
+      AutoSize = True
+      Caption = #25764#38144#23457#26680
+      ImageIndex = 86
+      Visible = False
+      OnClick = TnochkClick
+    end
+    object Tqx: TToolButton
+      Left = 906
+      Top = 0
+      AutoSize = True
+      Caption = #21512#21516#21462#28040
+      ImageIndex = 41
+      OnClick = TqxClick
+    end
+    object Tnoqx: TToolButton
+      Left = 993
+      Top = 0
+      AutoSize = True
+      Caption = #25764#38144#21512#21516#21462#28040
+      ImageIndex = 86
+      OnClick = TnoqxClick
+    end
+    object TBExport: TToolButton
+      Left = 1104
+      Top = 0
+      AutoSize = True
+      Caption = #23548#20986
+      ImageIndex = 75
+      OnClick = TBExportClick
+    end
+    object TBPrint: TToolButton
+      Left = 1167
+      Top = 0
+      AutoSize = True
+      Caption = #25171#21360
+      ImageIndex = 12
+      OnClick = TBPrintClick
+    end
+    object TBClose: TToolButton
+      Left = 1230
+      Top = 0
+      AutoSize = True
+      Caption = #20851#38381
+      ImageIndex = 55
+      OnClick = TBCloseClick
+    end
+  end
+  object cxGrid1: TcxGrid
+    Left = 0
+    Top = 132
+    Width = 1249
+    Height = 169
+    TabOrder = 1
+    object Tv1: TcxGridDBTableView
+      NavigatorButtons.ConfirmDelete = False
+      OnCellDblClick = Tv1CellDblClick
+      OnFocusedRecordChanged = Tv1FocusedRecordChanged
+      DataController.DataSource = DataSource1
+      DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
+      DataController.Summary.DefaultGroupSummaryItems = <>
+      DataController.Summary.FooterSummaryItems = <>
+      DataController.Summary.SummaryGroups = <>
+      OptionsCustomize.ColumnFiltering = False
+      OptionsView.Footer = True
+      OptionsView.GroupByBox = False
+      OptionsView.Indicator = True
+      Styles.Inactive = DataLink_TradeManage.SHuangSe
+      Styles.IncSearch = DataLink_TradeManage.SHuangSe
+      Styles.Selection = DataLink_TradeManage.SHuangSe
+      Styles.OnGetContentStyle = Tv1StylesGetContentStyle
+      Styles.Header = DataLink_TradeManage.Default
+      object v1Column4: TcxGridDBColumn
+        Caption = #36873#25321
+        DataBinding.FieldName = 'SSel'
+        PropertiesClassName = 'TcxCheckBoxProperties'
+        Properties.NullStyle = nssUnchecked
+        Visible = False
+        HeaderAlignmentHorz = taCenter
+        Width = 49
+      end
+      object v1ConNo: TcxGridDBColumn
+        Caption = #21512#21516#21495
+        DataBinding.FieldName = 'ConNo'
+        HeaderAlignmentHorz = taCenter
+        Options.Focusing = False
+        Styles.Header = DataLink_TradeManage.Default
+        Width = 73
+      end
+      object v1Column8: TcxGridDBColumn
+        Caption = #23458#25143#21512#21516#21495
+        DataBinding.FieldName = 'KHConNo'
+        HeaderAlignmentHorz = taRightJustify
+        Width = 80
+      end
+      object v1Column1: TcxGridDBColumn
+        Caption = #20379#26041
+        DataBinding.FieldName = 'SYRName'
+        HeaderAlignmentHorz = taCenter
+        Options.Focusing = False
+        Width = 94
+      end
+      object v1OrdPerson1: TcxGridDBColumn
+        Caption = #19994#21153#21592
+        DataBinding.FieldName = 'ConPerson1'
+        HeaderAlignmentHorz = taCenter
+        Options.Focusing = False
+        Styles.Header = DataLink_TradeManage.Default
+        Width = 91
+      end
+      object v1CustomerNoName: TcxGridDBColumn
+        Caption = #38656#26041
+        DataBinding.FieldName = 'CustomerNoName'
+        HeaderAlignmentHorz = taCenter
+        Options.Focusing = False
+        Styles.Header = DataLink_TradeManage.Default
+        Width = 94
+      end
+      object v1OrdDate: TcxGridDBColumn
+        Caption = #31614#35746#26085#26399
+        DataBinding.FieldName = 'OrdDate'
+        PropertiesClassName = 'TcxDateEditProperties'
+        Properties.ShowTime = False
+        HeaderAlignmentHorz = taCenter
+        Options.Focusing = False
+        Styles.Header = DataLink_TradeManage.Default
+        Width = 80
+      end
+      object v1DeliveryDate: TcxGridDBColumn
+        Caption = #20132#36135#26085#26399
+        DataBinding.FieldName = 'DlyDate'
+        PropertiesClassName = 'TcxDateEditProperties'
+        Properties.ShowTime = False
+        OnCustomDrawCell = v1DeliveryDateCustomDrawCell
+        HeaderAlignmentHorz = taCenter
+        Options.Focusing = False
+        Styles.Header = DataLink_TradeManage.Default
+        Width = 80
+      end
+      object v1PRTPrice: TcxGridDBColumn
+        Caption = #21333#20215
+        DataBinding.FieldName = 'PRTPrice'
+        HeaderAlignmentHorz = taCenter
+        Options.Focusing = False
+        Styles.Header = DataLink_TradeManage.Default
+        Width = 67
+      end
+      object v1PRTColor: TcxGridDBColumn
+        Caption = #24065#31181
+        DataBinding.FieldName = 'PriceUnit'
+        HeaderAlignmentHorz = taCenter
+        Options.Focusing = False
+        Styles.Header = DataLink_TradeManage.Default
+        Width = 59
+      end
+      object v1PRTOrderQty: TcxGridDBColumn
+        Caption = #25968#37327
+        DataBinding.FieldName = 'PRTOrderQty'
+        HeaderAlignmentHorz = taCenter
+        Options.Focusing = False
+        Styles.Header = DataLink_TradeManage.Default
+        Width = 67
+      end
+      object v1Column2: TcxGridDBColumn
+        Caption = #25968#37327#21333#20301
+        DataBinding.FieldName = 'OrderUnit'
+        HeaderAlignmentHorz = taCenter
+        Options.Focusing = False
+        Width = 83
+      end
+      object v1MPRTCF: TcxGridDBColumn
+        Caption = #25968#37327#35828#26126
+        DataBinding.FieldName = 'QtyNote'
+        HeaderAlignmentHorz = taCenter
+        Options.Focusing = False
+        Styles.Header = DataLink_TradeManage.Default
+        Width = 125
+      end
+      object v1Column9: TcxGridDBColumn
+        Caption = #22383#24067#26159#21542#24050#37319#36141
+        DataBinding.FieldName = 'ISCG'
+        HeaderAlignmentHorz = taCenter
+        Width = 100
+      end
+    end
+    object cxGrid1Level1: TcxGridLevel
+      GridView = Tv1
+    end
+  end
+  object Panel1: TPanel
+    Left = 0
+    Top = 32
+    Width = 1370
+    Height = 43
+    Align = alTop
+    BevelInner = bvRaised
+    BevelOuter = bvLowered
+    Color = clSkyBlue
+    TabOrder = 2
+    object Label1: TLabel
+      Left = 23
+      Top = 15
+      Width = 52
+      Height = 12
+      Caption = #21046#21333#26085#26399
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label4: TLabel
+      Left = 291
+      Top = 15
+      Width = 40
+      Height = 12
+      Caption = #38656'  '#26041
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label5: TLabel
+      Left = 454
+      Top = 15
+      Width = 53
+      Height = 12
+      Caption = #19994' '#21153' '#21592
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label8: TLabel
+      Left = 430
+      Top = 99
+      Width = 52
+      Height = 12
+      Caption = #20135#21697#21517#31216
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label9: TLabel
+      Left = 623
+      Top = 15
+      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 Label12: TLabel
+      Left = 303
+      Top = 99
+      Width = 26
+      Height = 12
+      Caption = #20811#37325
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label13: TLabel
+      Left = 303
+      Top = 123
+      Width = 26
+      Height = 12
+      Caption = #38376#24133
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label2: TLabel
+      Left = 160
+      Top = 16
+      Width = 6
+      Height = 12
+      Caption = '-'
+    end
+    object Label3: TLabel
+      Left = 774
+      Top = 15
+      Width = 21
+      Height = 12
+      Caption = 'PO#'
+      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 = 11
+      Width = 85
+      Height = 20
+      Date = 40675.464742650460000000
+      Format = 'yyyy-MM-dd'
+      Time = 40675.464742650460000000
+      ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
+      TabOrder = 0
+    end
+    object EndDate: TDateTimePicker
+      Left = 168
+      Top = 11
+      Width = 86
+      Height = 20
+      Date = 40675.464761099540000000
+      Format = 'yyyy-MM-dd'
+      Time = 40675.464761099540000000
+      ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
+      TabOrder = 1
+    end
+    object CustomerNoName: TEdit
+      Tag = 2
+      Left = 331
+      Top = 11
+      Width = 78
+      Height = 20
+      ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
+      TabOrder = 2
+      OnChange = CustomerNoNameChange
+      OnKeyPress = ConNoKeyPress
+    end
+    object ConPerson1: TEdit
+      Tag = 2
+      Left = 507
+      Top = 11
+      Width = 76
+      Height = 20
+      ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
+      TabOrder = 3
+      OnChange = CustomerNoNameChange
+      OnKeyPress = ConNoKeyPress
+    end
+    object MPRTCodeName: TEdit
+      Tag = 2
+      Left = 483
+      Top = 95
+      Width = 76
+      Height = 20
+      ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
+      TabOrder = 4
+      OnChange = CustomerNoNameChange
+    end
+    object ConNo: TEdit
+      Tag = 2
+      Left = 664
+      Top = 11
+      Width = 77
+      Height = 20
+      ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
+      TabOrder = 5
+      OnChange = CustomerNoNameChange
+      OnKeyPress = ConNoKeyPress
+    end
+    object MPRTKZ: TEdit
+      Tag = 2
+      Left = 332
+      Top = 95
+      Width = 56
+      Height = 20
+      ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
+      TabOrder = 6
+      OnChange = CustomerNoNameChange
+    end
+    object MPRTMF: TEdit
+      Tag = 2
+      Left = 332
+      Top = 119
+      Width = 56
+      Height = 20
+      ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
+      TabOrder = 7
+      OnChange = CustomerNoNameChange
+    end
+    object KHConNO: TEdit
+      Tag = 2
+      Left = 803
+      Top = 11
+      Width = 80
+      Height = 20
+      ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
+      TabOrder = 8
+      OnChange = CustomerNoNameChange
+      OnKeyPress = ConNoKeyPress
+    end
+  end
+  object cxTabControl1: TcxTabControl
+    Left = 0
+    Top = 75
+    Width = 1370
+    Height = 22
+    Align = alTop
+    Style = 9
+    TabIndex = 0
+    TabOrder = 3
+    Tabs.Strings = (
+      #26410#23457#26680
+      #24050#23457#26680
+      #24050#21462#28040
+      #20840#37096)
+    OnChange = cxTabControl1Change
+    ClientRectBottom = 22
+    ClientRectRight = 1370
+    ClientRectTop = 19
+  end
+  object cxGrid2: TcxGrid
+    Left = 0
+    Top = 366
+    Width = 1370
+    Height = 188
+    Align = alBottom
+    TabOrder = 4
+    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 = cxGridDBColumn4
+        end
+        item
+          Format = '0'
+          Position = spFooter
+          Column = cxGridDBColumn5
+        end>
+      DataController.Summary.FooterSummaryItems = <
+        item
+          Kind = skSum
+          Column = cxGridDBColumn4
+        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.GroupByBox = False
+      OptionsView.Indicator = True
+      Styles.Inactive = DataLink_TradeManage.SHuangSe
+      Styles.IncSearch = DataLink_TradeManage.SHuangSe
+      Styles.Selection = DataLink_TradeManage.SHuangSe
+      Styles.Header = DataLink_TradeManage.Default
+      object cxGridDBColumn1: TcxGridDBColumn
+        Caption = #20135#21697#21517#31216
+        DataBinding.FieldName = 'PrtCodeName'
+        PropertiesClassName = 'TcxButtonEditProperties'
+        Properties.Buttons = <
+          item
+            Default = True
+            Kind = bkEllipsis
+          end>
+        HeaderAlignmentHorz = taCenter
+        Width = 126
+      end
+      object v1Column5: TcxGridDBColumn
+        Caption = #35268#26684#22411#21495
+        DataBinding.FieldName = 'prtspec'
+        HeaderAlignmentHorz = taCenter
+        Width = 70
+      end
+      object cxGridDBColumn2: TcxGridDBColumn
+        Caption = #39068#33394
+        DataBinding.FieldName = 'PRTColor'
+        PropertiesClassName = 'TcxButtonEditProperties'
+        Properties.Buttons = <
+          item
+            Default = True
+            Kind = bkEllipsis
+          end>
+        Properties.ReadOnly = False
+        HeaderAlignmentHorz = taCenter
+        Options.Sorting = False
+        Styles.Header = DataLink_TradeManage.handBlack
+        Width = 90
+      end
+      object cxGridDBColumn3: TcxGridDBColumn
+        Caption = #39068#33394#33521#25991
+        DataBinding.FieldName = 'SOrdDefStr4'
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_TradeManage.Default
+        Width = 72
+      end
+      object v1Column6: TcxGridDBColumn
+        Caption = #38376#24133
+        DataBinding.FieldName = 'prtmf'
+        PropertiesClassName = 'TcxButtonEditProperties'
+        Properties.Buttons = <
+          item
+            Default = True
+            Kind = bkEllipsis
+          end>
+        HeaderAlignmentHorz = taCenter
+        Width = 70
+      end
+      object v1Column7: TcxGridDBColumn
+        Caption = #20811#37325
+        DataBinding.FieldName = 'prtkz'
+        PropertiesClassName = 'TcxButtonEditProperties'
+        Properties.Buttons = <
+          item
+            Default = True
+            Kind = bkEllipsis
+          end>
+        HeaderAlignmentHorz = taCenter
+        Width = 70
+      end
+      object v1Column3: TcxGridDBColumn
+        Caption = #33457#22411#33457#21495
+        DataBinding.FieldName = 'PRTHX'
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_TradeManage.FonePurple
+        Width = 59
+      end
+      object cxGridDBColumn4: TcxGridDBColumn
+        Caption = #25968#37327
+        DataBinding.FieldName = 'PRTOrderQty'
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_TradeManage.Default
+        Width = 67
+      end
+      object v1OrderUnit: TcxGridDBColumn
+        Caption = #25968#37327#21333#20301
+        DataBinding.FieldName = 'OrderUnit'
+        PropertiesClassName = 'TcxButtonEditProperties'
+        Properties.Buttons = <
+          item
+            Default = True
+            Kind = bkEllipsis
+          end>
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_TradeManage.Default
+        Width = 66
+      end
+      object cxGridDBColumn5: TcxGridDBColumn
+        Caption = #21333#20215
+        DataBinding.FieldName = 'PRTPrice'
+        HeaderAlignmentHorz = taCenter
+        Options.Sorting = False
+        Styles.Header = DataLink_TradeManage.handBlack
+        Width = 68
+      end
+      object v1PriceUnit: TcxGridDBColumn
+        Caption = #24065#31181
+        DataBinding.FieldName = 'PriceUnit'
+        PropertiesClassName = 'TcxButtonEditProperties'
+        Properties.Buttons = <
+          item
+            Default = True
+            Kind = bkEllipsis
+          end>
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_TradeManage.Default
+        Width = 66
+      end
+      object cxGridDBColumn6: TcxGridDBColumn
+        Caption = #22791#27880
+        DataBinding.FieldName = 'SOrdDefNote1'
+        HeaderAlignmentHorz = taCenter
+        Width = 113
+      end
+    end
+    object cxGridLevel1: TcxGridLevel
+      GridView = TV2
+    end
+  end
+  object cxSplitter1: TcxSplitter
+    Left = 0
+    Top = 358
+    Width = 1370
+    Height = 8
+    HotZoneClassName = 'TcxMediaPlayer9Style'
+    AlignSplitter = salBottom
+    Control = cxGrid2
+  end
+  object cxGridPopupMenu1: TcxGridPopupMenu
+    Grid = cxGrid1
+    PopupMenus = <>
+    Left = 544
+    Top = 176
+  end
+  object ADOQueryCmd: TADOQuery
+    Connection = DataLink_TradeManage.ADOLink
+    Parameters = <>
+    Left = 688
+    Top = 224
+  end
+  object ADOQueryMain: TADOQuery
+    Connection = DataLink_TradeManage.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 552
+    Top = 216
+  end
+  object ADOQueryTemp: TADOQuery
+    Connection = DataLink_TradeManage.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 312
+    Top = 248
+  end
+  object DataSource1: TDataSource
+    DataSet = Order_Main
+    Left = 440
+    Top = 184
+  end
+  object Order_Main: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 464
+    Top = 208
+  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 = RMDBDataSet1
+    CompressLevel = rmzcFastest
+    CompressThread = False
+    LaterBuildEvents = True
+    OnlyOwnerDataSet = False
+    Left = 336
+    Top = 200
+    ReportData = {}
+  end
+  object RMDBDataSet1: 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 = 576
+    Top = 248
+  end
+  object PopupMenu1: TPopupMenu
+    Left = 288
+    Top = 184
+    object N2: TMenuItem
+      Caption = #26377#20379#24212#21830
+      OnClick = N2Click
+    end
+  end
+  object ADOQueryPrint: TADOQuery
+    Connection = DataLink_TradeManage.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 360
+    Top = 240
+  end
+  object CDS_Print: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 344
+    Top = 288
+  end
+  object PopupMenu2: TPopupMenu
+    Left = 648
+    Top = 168
+    object N11: TMenuItem
+      Caption = #26684#24335'1'
+    end
+    object N21: TMenuItem
+      Caption = #26684#24335'2'
+    end
+    object N31: TMenuItem
+      Caption = #26684#24335'3'
+    end
+  end
+  object ADOQuerySub: TADOQuery
+    Connection = DataLink_TradeManage.ADOLink
+    Parameters = <>
+    Left = 556
+    Top = 416
+  end
+  object DataSource2: TDataSource
+    DataSet = ADOQuerySub
+    Left = 488
+    Top = 440
+  end
+end

打卷检验管理/U_ContractListNX.pas

@@ -0,0 +1,925 @@
+unit U_ContractListNX;
+
+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;
+
+type
+  TfrmContractListNX = 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;
+    v1DeliveryDate: TcxGridDBColumn;
+    v1OrdPerson1: TcxGridDBColumn;
+    v1ConNo: TcxGridDBColumn;
+    v1PRTColor: TcxGridDBColumn;
+    v1MPRTCF: TcxGridDBColumn;
+    Order_Main: TClientDataSet;
+    RM1: TRMGridReport;
+    RMDBDataSet1: TRMDBDataSet;
+    RMXLSExport1: TRMXLSExport;
+    v1CustomerNoName: TcxGridDBColumn;
+    v1PRTOrderQty: TcxGridDBColumn;
+    PopupMenu1: TPopupMenu;
+    N2: TMenuItem;
+    v1PRTPrice: TcxGridDBColumn;
+    ToolButton1: TToolButton;
+    v1Column1: TcxGridDBColumn;
+    ToolButton2: TToolButton;
+    ADOQueryPrint: TADOQuery;
+    CDS_Print: TClientDataSet;
+    ToolButton3: TToolButton;
+    v1Column4: TcxGridDBColumn;
+    PopupMenu2: TPopupMenu;
+    N11: TMenuItem;
+    N21: TMenuItem;
+    N31: TMenuItem;
+    Panel1: TPanel;
+    Label1: TLabel;
+    Label4: TLabel;
+    Label5: TLabel;
+    Label8: TLabel;
+    Label9: TLabel;
+    Label12: TLabel;
+    Label13: TLabel;
+    BegDate: TDateTimePicker;
+    EndDate: TDateTimePicker;
+    CustomerNoName: TEdit;
+    ConPerson1: TEdit;
+    MPRTCodeName: TEdit;
+    ConNo: TEdit;
+    MPRTKZ: TEdit;
+    MPRTMF: TEdit;
+    v1Column2: TcxGridDBColumn;
+    ComboBox1: TComboBox;
+    ToolButton4: TToolButton;
+    cxTabControl1: TcxTabControl;
+    tchk: TToolButton;
+    Tnochk: TToolButton;
+    cxGrid2: TcxGrid;
+    TV2: TcxGridDBTableView;
+    cxGridDBColumn1: TcxGridDBColumn;
+    v1Column5: TcxGridDBColumn;
+    cxGridDBColumn2: TcxGridDBColumn;
+    cxGridDBColumn3: TcxGridDBColumn;
+    v1Column6: TcxGridDBColumn;
+    v1Column7: TcxGridDBColumn;
+    v1Column3: TcxGridDBColumn;
+    cxGridDBColumn4: TcxGridDBColumn;
+    v1OrderUnit: TcxGridDBColumn;
+    cxGridDBColumn5: TcxGridDBColumn;
+    v1PriceUnit: TcxGridDBColumn;
+    cxGridDBColumn6: TcxGridDBColumn;
+    cxGridLevel1: TcxGridLevel;
+    cxSplitter1: TcxSplitter;
+    ADOQuerySub: TADOQuery;
+    DataSource2: TDataSource;
+    v1Column8: TcxGridDBColumn;
+    v1Column9: TcxGridDBColumn;
+    Label2: TLabel;
+    KHConNO: TEdit;
+    Label3: TLabel;
+    Tqx: TToolButton;
+    Tnoqx: TToolButton;
+    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 Tv1CellDblClick(Sender: TcxCustomGridTableView;
+      ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
+      AShift: TShiftState; var AHandled: Boolean);
+    procedure TBTPClick(Sender: TObject);
+    procedure CheckBox1Click(Sender: TObject);
+    procedure CheckBox2Click(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 N1Click(Sender: TObject);
+    procedure N2Click(Sender: TObject);
+    procedure ToolButton1Click(Sender: TObject);
+    procedure ToolButton2Click(Sender: TObject);
+    procedure ToolButton3Click(Sender: TObject);
+    procedure CustomerNoNameChange(Sender: TObject);
+    procedure ConNoKeyPress(Sender: TObject; var Key: Char);
+    procedure ToolButton4Click(Sender: TObject);
+    procedure tchkClick(Sender: TObject);
+    procedure TnochkClick(Sender: TObject);
+    procedure cxTabControl1Change(Sender: TObject);
+    procedure Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView;
+      APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord;
+      ANewItemRecordFocusingChanged: Boolean);
+    procedure TqxClick(Sender: TObject);
+    procedure TnoqxClick(Sender: TObject);
+  private
+    DQdate:TDateTime;
+        fuserName:string;
+    procedure InitGrid();
+    procedure InitForm();
+    function  DelData():Boolean;
+    procedure InitGridFH();
+    procedure SetStatus();
+    procedure InitSub();
+    { Private declarations }
+  public
+    FFInt,FCloth:Integer;
+
+    { Public declarations }
+  end;
+
+var
+  frmContractListNX: TfrmContractListNX;
+
+implementation
+uses
+  U_DataLink,U_ConInPutNX,U_Fun,U_ZDYHelp;
+
+{$R *.dfm}
+procedure TfrmContractListNX.InitSub();
+begin
+  ADOQuerySub.Close;
+  IF Order_Main.IsEmpty then exit;
+  with ADOQuerySub do
+  begin
+    close;
+    sql.Clear;
+    sql.Add('select * from JYOrderCon_sub ');
+    sql.Add('where mainID ='+quotedstr((Order_Main.fieldbyname('mainID').AsString)));
+    open;
+  end;
+end;
+procedure TfrmContractListNX.SetStatus();
+begin
+  tchk.Visible:=false;
+  tnochk.Visible:=false;
+  tbedit.Visible:=false;
+  tbdel.Visible:=false;
+  Tqx.Visible:=false;
+  TNoqx.Visible:=false;
+  if Trim(DParameters1)<>'高权限'  then
+  begin
+    case cxTabControl1.TabIndex of
+    0:begin
+       IF trim(DCode)<>'A2' then
+       begin
+         tbedit.Visible:=true;
+         tbdel.Visible:=true;
+       end;
+       Tqx.Visible:=true;
+      end;
+    1:begin
+        Tqx.Visible:=true;
+      end;
+    2:begin
+        TNoqx.Visible:=true;
+      end;
+    3:begin
+      end;
+    end;
+  end
+  else
+  begin
+    case cxTabControl1.TabIndex of
+    0:begin
+
+       tchk.Visible:=true;
+       tbedit.Visible:=true;
+       tbdel.Visible:=true;
+       Tqx.Visible:=true;
+      end;
+    1:begin
+       tnochk.Visible:=true;
+       Tqx.Visible:=true;
+      end;
+    2:begin
+        TNOqx.Visible:=true;
+      end;
+    3:begin
+      end;
+    end;
+  end;
+end;
+
+
+procedure TfrmContractListNX.FormDestroy(Sender: TObject);
+begin
+  frmContractListNX:=nil;
+end;
+
+procedure TfrmContractListNX.FormClose(Sender: TObject;
+  var Action: TCloseAction);
+begin
+  Action:=caFree;
+end;
+
+procedure TfrmContractListNX.FormCreate(Sender: TObject);
+begin
+  cxgrid1.Align:=alClient;
+  DQdate:=SGetServerDate(ADOQueryTemp);
+end;
+
+procedure TfrmContractListNX.TBCloseClick(Sender: TObject);
+begin
+  Close;
+  WriteCxGrid('订单合同列表内销',Tv1,'生产指示单管理');
+end;
+
+procedure TfrmContractListNX.InitGrid();
+begin
+  try
+    ADOQueryMain.DisableControls;
+    with ADOQueryMain do
+    begin
+      Filtered:=False;
+      Close;
+      sql.Clear;
+      sql.Add('select A.*,A.ConNo ConNoM ');
+      SQL.Add(',PRTOrderQty=(select Sum(PRTOrderQty) from JYOrderCon_Sub B where B.MainId=A.MainId)');
+      SQL.Add(',ConMoney=(select Sum(PRTOrderQty*PRTPrice) from JYOrderCon_Sub B where B.MainId=A.MainId)');
+      SQL.Add(',OrderUnit=(select top 1 OrderUnit from JYOrderCon_Sub B where B.MainId=A.MainId)');
+      SQL.Add(',PriceUnit=(select top 1 PriceUnit from JYOrderCon_Sub B where B.MainId=A.MainId)');
+      SQL.Add(',PRTPrice=(select top 1 PRTPrice from JYOrderCon_Sub B where B.MainId=A.MainId)');
+      SQL.Add(',case when isnull((select top 1 X.conNO from Contract_Main X where X.conNo=A.conNO) ,'''')='''' then ''否'' else ''是'' end as IScg  ');
+      sql.Add(' from JYOrderCon_Main A  ');
+      SQL.Add('where  A.fILLtIME>='''+FormatDateTime('yyyy-MM-dd',BegDate.DateTime)+'''');
+      SQL.Add('and  A.fILLtIME<'''+FormatDateTime('yyyy-MM-dd',enddate.DateTime+1)+'''');
+      sql.Add(' and A.MPRTType=''内销'' ');
+      if Trim(DParameters1)<>'高权限'  then
+      begin
+          sql.Add('and A.Filler='''+Trim(fuserName)+'''');
+      end;
+      IF cxTabControl1.TabIndex<3 then
+      begin
+        sql.Add(' and  isnull(A.status,''0'')='''+inttostr(cxTabControl1.TabIndex)+'''');
+      end;
+      Open;
+    end;
+    SCreateCDS20(ADOQueryMain,Order_Main);
+    SInitCDSData20(ADOQueryMain,Order_Main);
+  finally
+    ADOQueryMain.EnableControls;
+  end;
+end;
+
+procedure TfrmContractListNX.InitGridFH();
+begin
+  try
+    ADOQueryMain.DisableControls;
+    with ADOQueryMain do
+    begin
+      Filtered:=False;
+      Close;
+      sql.Clear;
+      sql.Add('exec Order_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;
+
+procedure TfrmContractListNX.InitForm();
+begin
+  ReadCxGrid('订单合同列表内销',Tv1,'生产指示单管理');
+
+  if FCloth=1 then
+  begin
+    v1Column4.Visible:=True;
+    v1PRTPrice.Visible:=False;
+    v1PRTPrice.Hidden:=True;
+  end
+  else
+  begin
+    v1Column4.Visible:=False;
+    v1PRTPrice.Visible:=True;
+    v1PRTPrice.Hidden:=False;
+  end;
+  BegDate.DateTime:=SGetServerDate10(ADOQueryTemp)-15;
+  EndDate.DateTime:=SGetServerDate10(ADOQueryTemp);
+  InitGrid();
+  with ADOQueryTemp do
+  begin
+    Close;
+    sql.Clear;
+    sql.Add('select Top 10* from JYOrderCon_Main Order by FillTime desc');
+    Open;
+  end;
+  ComboBox1.Clear;
+  with ADOQueryTemp do
+  begin
+    First;
+    while not Eof do
+    begin
+      ComboBox1.Items.Add(Trim(ADOQueryTemp.fieldbyname('ConNO').AsString));
+      Next;
+    end;
+  end;
+end;
+
+procedure TfrmContractListNX.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 TfrmContractListNX.TBEditClick(Sender: TObject);
+begin
+  if Order_Main.IsEmpty then Exit;
+  if Trim(Order_Main.fieldbyname('Filler').AsString)<>Trim(DName) then
+  begin
+    Application.MessageBox('不能操作他人的数据!','提示',0);
+    Exit;
+  end;
+  try
+    frmConInPutNX:=TfrmConInPutNX.Create(Application);
+    with frmConInPutNX do
+    begin
+      PState:=1;
+      FMainId:=Trim(Self.Order_Main.fieldbyname('MainId').AsString);
+      if ShowModal=1 then
+      begin
+
+      end;
+    end;
+  finally
+    frmConInPutNX.Free;
+  end;
+end;
+
+procedure TfrmContractListNX.TBDelClick(Sender: TObject);
+begin
+  if Order_Main.IsEmpty then Exit;
+  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 TfrmContractListNX.DelData():Boolean;
+begin
+  try
+    Result:=false;
+    ADOQueryCmd.Connection.BeginTrans;
+    with ADOQueryCmd do
+    begin
+      Close;
+      sql.Clear;
+      sql.Add('delete JYOrderCon_Sub where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+'''');
+      ExecSQL;
+    end;
+    with ADOQueryCmd do
+    begin
+      Close;
+      sql.Clear;
+      sql.Add('delete JYOrderCon_Main where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+'''');
+      ExecSQL;
+    end;
+
+    ADOQueryCmd.Connection.CommitTrans;
+    Result:=True;
+  except
+    ADOQueryCmd.Connection.RollbackTrans;
+    Result:=False;
+    Application.MessageBox('数据删除异常！','提示',0);
+  end;
+end;
+
+procedure TfrmContractListNX.TBExportClick(Sender: TObject);
+begin
+  if ADOQueryMain.IsEmpty then Exit;
+  SelExportData(Tv1,ADOQueryMain,'生产指示单列表');
+end;
+
+procedure TfrmContractListNX.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 TfrmContractListNX.TBRafreshClick(Sender: TObject);
+begin
+  InitGrid();
+  with ADOQueryTemp do
+  begin
+    Close;
+    sql.Clear;
+    sql.Add('select Top 10* from JYOrderCon_Main Order by FillTime desc ');
+    Open;
+  end;
+  ComboBox1.Clear;
+  with ADOQueryTemp do
+  begin
+    First;
+    while not Eof do
+    begin
+      ComboBox1.Items.Add(Trim(ADOQueryTemp.fieldbyname('ConNO').AsString));
+      Next;
+    end;
+  end;
+end;
+
+procedure TfrmContractListNX.TBAddClick(Sender: TObject);
+var
+  maxno:string;
+begin
+  try
+    frmConInPutNX:=TfrmConInPutNX.Create(Application);
+    with frmConInPutNX do
+    begin
+      PState:=0;
+      FMainId:='';
+      if ShowModal=1 then
+      begin
+
+      end;
+    end;
+  finally
+    frmConInPutNX.Free;
+  end;
+end;
+
+procedure TfrmContractListNX.FormShow(Sender: TObject);
+begin
+  fuserName:=DCode;
+  if (trim(DCode)='A1') or (trim(DCode)='A2') then
+  begin
+    fuserName:='A';
+  end;
+  InitForm();
+  SetStatus();
+end;
+
+procedure TfrmContractListNX.Tv1CellDblClick(
+  Sender: TcxCustomGridTableView;
+  ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
+  AShift: TShiftState; var AHandled: Boolean);
+begin
+  if ToolButton1.Visible=False then Exit;
+  ToolButton1.Click;
+end;
+
+procedure TfrmContractListNX.TBTPClick(Sender: TObject);
+ var
+   FQty,FQty1,FMxQty,FPQty,FMxQtyS,FPQtyS:String;
+begin
+end;
+
+procedure TfrmContractListNX.CheckBox1Click(Sender: TObject);
+begin
+  InitGrid();
+end;
+
+procedure TfrmContractListNX.CheckBox2Click(Sender: TObject);
+begin
+  TBRafresh.Click;
+end;
+
+procedure TfrmContractListNX.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 TfrmContractListNX.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 TfrmContractListNX.N1Click(Sender: TObject);
+var
+   fPrintFile:string;
+   Porderno:string;
+begin
+  if Order_Main.IsEmpty then Exit;
+  fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\生产指示单10.rmf' ;
+  SDofilter(ADOQueryMain,' OrderNoM='''+Trim(Order_Main.fieldbyname('OrderNoM').AsString)+'''');
+  SCreateCDS20(ADOQueryMain,Order_Main);
+  SInitCDSData20(ADOQueryMain,Order_Main);
+  Porderno:=Trim(Order_Main.fieldbyname('OrderNoM').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\生产指示单10.rmf'),'提示',0);
+  end;
+  SDofilter(ADOQueryMain,'');
+  SCreateCDS20(ADOQueryMain,Order_Main);
+  SInitCDSData20(ADOQueryMain,Order_Main);
+  Order_Main.Locate('ordernoM',Porderno,[]);
+end;
+
+procedure TfrmContractListNX.N2Click(Sender: TObject);
+var
+   fPrintFile:string;
+   Porderno:string;
+begin
+  if Order_Main.IsEmpty then Exit;
+  fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\生产指示单.rmf' ;
+  SDofilter(ADOQueryMain,' OrderNoM='''+Trim(Order_Main.fieldbyname('OrderNoM').AsString)+'''');
+  SCreateCDS20(ADOQueryMain,Order_Main);
+  SInitCDSData20(ADOQueryMain,Order_Main);
+  Porderno:=Trim(Order_Main.fieldbyname('OrderNoM').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;
+  SDofilter(ADOQueryMain,'');
+  SCreateCDS20(ADOQueryMain,Order_Main);
+  SInitCDSData20(ADOQueryMain,Order_Main);
+  Order_Main.Locate('ordernoM',Porderno,[]);
+end;
+
+procedure TfrmContractListNX.ToolButton1Click(Sender: TObject);
+begin
+  if Order_Main.IsEmpty then Exit;
+  try
+    frmConInPutNX:=TfrmConInPutNX.Create(Application);
+    with frmConInPutNX do
+    begin
+      PState:=1;
+      FMainId:=Trim(Self.Order_Main.fieldbyname('MainId').AsString);
+      ToolBar2.Visible:=False;
+      TBSave.Visible:=False;
+      ScrollBox1.Enabled:=False;
+      Tv1.OptionsSelection.CellSelect:=False;
+      if ShowModal=1 then
+      begin
+
+      end;
+    end;
+  finally
+    frmConInPutNX.Free;
+  end;
+end;
+
+procedure TfrmContractListNX.ToolButton2Click(Sender: TObject);
+begin
+  if Order_Main.IsEmpty then Exit;
+  try
+    frmConInPutNX:=TfrmConInPutNX.Create(Application);
+    with frmConInPutNX do
+    begin
+      PState:=1;
+      CopyInt:=99;
+      FMainId:=Trim(Self.Order_Main.fieldbyname('MainId').AsString);
+      if ShowModal=1 then
+      begin
+
+      end;
+    end;
+  finally
+    frmConInPutNX.Free;
+  end;
+end;
+
+procedure TfrmContractListNX.ToolButton3Click(Sender: TObject);
+begin
+  ModalResult:=1;
+end;
+
+procedure TfrmContractListNX.CustomerNoNameChange(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 TfrmContractListNX.ConNoKeyPress(Sender: TObject; var Key: Char);
+begin
+  if Key=#13 then
+  begin
+    if Length(Tedit(Sender).Text)<1 then Exit;
+    try
+      ADOQueryMain.DisableControls;
+      with ADOQueryMain do
+      begin
+        Filtered:=False;
+        Close;
+        SQL.Clear;
+        sql.Add('select A.*,A.ConNo ConNoM ');
+        SQL.Add(',PRTOrderQty=(select Sum(PRTOrderQty) from JYOrderCon_Sub B where B.MainId=A.MainId)');
+        SQL.Add(',ConMoney=(select Sum(PRTOrderQty*PRTPrice) from JYOrderCon_Sub B where B.MainId=A.MainId)');
+        SQL.Add(',OrderUnit=(select top 1 OrderUnit from JYOrderCon_Sub B where B.MainId=A.MainId)');
+        SQL.Add(',PriceUnit=(select top 1 PriceUnit from JYOrderCon_Sub B where B.MainId=A.MainId)');
+        SQL.Add(',PRTPrice=(select top 1 PRTPrice from JYOrderCon_Sub B where B.MainId=A.MainId)');
+        sql.Add(' from JYOrderCon_Main A  ');
+        SQL.Add('where  OrdDate>='''+'1899-01-01'+'''');
+        SQL.Add('and  OrdDate<'''+'2050-01-01'+'''');
+        sql.Add(' and MPRTType=''内销'' ');
+        if Trim(DParameters1)<>'高权限'  then
+        begin
+            sql.Add('and A.Filler='''+Trim(DName)+'''');
+        end;
+     //   sql.Add(' and ConNo like '''+'%'+Trim(ConNoM.Text)+'%'+'''');
+        sql.Add(' and '+Tedit(Sender).Name+' like '+quotedstr(trim('%'+trim(Tedit(Sender).Text)+'%')));
+        Open;
+      end;
+      SCreateCDS20(ADOQueryMain,Order_Main);
+      SInitCDSData20(ADOQueryMain,Order_Main);
+    finally
+      ADOQueryMain.EnableControls;
+    end;
+  end;
+end;
+
+procedure TfrmContractListNX.ToolButton4Click(Sender: TObject);
+begin
+  try
+    frmZDYHelp:=TfrmZDYHelp.Create(Application);
+    with frmZDYHelp do
+    begin
+      flag:='MPRTNameType';
+      flagname:='产品类别定义';
+      V1HelpType.Visible:=True;
+      V1HelpType.Caption:='缩写名';
+      fnote:=True;
+      V1Name.Caption:='中文';
+      V1Note.Caption:='英文';
+      if ShowModal=1 then
+      begin
+
+      end;
+    end;
+  finally
+    frmZDYHelp.Free;
+  end;
+end;
+
+procedure TfrmContractListNX.tchkClick(Sender: TObject);
+begin
+ if Order_Main.IsEmpty then exit;
+  try
+    with ADOQueryCmd do
+    begin
+      close;
+      sql.Clear;
+      sql.Add('update  JYOrdercon_Main SET status=''1'' ');
+      sql.Add('where mainID='+quotedstr(trim(Order_Main.fieldbyname('mainID').AsString)));
+      sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( ');
+      sql.Add(' '+quotedstr(trim(DName)));
+      sql.Add(',getdate() ');
+      sql.Add(','+quotedstr(trim(self.Caption)));
+      sql.Add(','+quotedstr(trim('内销合同审核')));
+      sql.Add(','+quotedstr(trim('合同号：'+trim(Order_Main.FieldByName('conNo').AsString))));
+      sql.Add(','+quotedstr(trim('成功')));
+      sql.Add(')');
+      execsql;
+    end;
+    application.MessageBox('审核成功！','提示信息');
+    TBRafresh.Click;
+  except
+   application.MessageBox('审核失败！','提示信息',0);
+  end;
+end;
+
+procedure TfrmContractListNX.TnochkClick(Sender: TObject);
+begin
+  if Order_Main.IsEmpty then exit;
+  try
+    with ADOQueryCmd do
+    begin
+      close;
+      sql.Clear;
+      sql.Add('update  JYOrdercon_Main SET status=''0'' ');
+      sql.Add('where mainID='+quotedstr(trim(Order_Main.fieldbyname('mainID').AsString)));
+      sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( ');
+      sql.Add(' '+quotedstr(trim(DName)));
+      sql.Add(',getdate() ');
+      sql.Add(','+quotedstr(trim(self.Caption)));
+      sql.Add(','+quotedstr(trim('内销合同撤销审核')));
+      sql.Add(','+quotedstr(trim('合同号：'+trim(Order_Main.FieldByName('conNo').AsString))));
+      sql.Add(','+quotedstr(trim('成功')));
+      sql.Add(')');
+      execsql;
+    end;
+    application.MessageBox('撤销审核成功！','提示信息');
+    TBRafresh.Click;
+  except
+   application.MessageBox('撤销审核失败！','提示信息',0);
+  end;
+end;
+
+procedure TfrmContractListNX.cxTabControl1Change(Sender: TObject);
+begin
+  SetStatus();
+  TBRafresh.Click;
+
+end;
+
+procedure TfrmContractListNX.Tv1FocusedRecordChanged(
+  Sender: TcxCustomGridTableView; APrevFocusedRecord,
+  AFocusedRecord: TcxCustomGridRecord;
+  ANewItemRecordFocusingChanged: Boolean);
+begin
+  InitSub();
+end;
+
+procedure TfrmContractListNX.TqxClick(Sender: TObject);
+begin
+ if Order_Main.IsEmpty then exit;
+  try
+    with ADOQueryCmd do
+    begin
+      close;
+      sql.Clear;
+      sql.Add('update  JYOrdercon_Main SET status=''2'' ');
+      sql.Add('where mainID='+quotedstr(trim(Order_Main.fieldbyname('mainID').AsString)));
+      sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( ');
+      sql.Add(' '+quotedstr(trim(DName)));
+      sql.Add(',getdate() ');
+      sql.Add(','+quotedstr(trim(self.Caption)));
+      sql.Add(','+quotedstr(trim('内销合同取消')));
+      sql.Add(','+quotedstr(trim('合同号：'+trim(Order_Main.FieldByName('conNo').AsString))));
+      sql.Add(','+quotedstr(trim('成功')));
+      sql.Add(')');
+      execsql;
+    end;
+    application.MessageBox('合同取消成功！','提示信息');
+    TBRafresh.Click;
+  except
+   application.MessageBox('合同取消失败！','提示信息',0);
+  end;
+end;
+
+procedure TfrmContractListNX.TnoqxClick(Sender: TObject);
+begin
+  if Order_Main.IsEmpty then exit;
+  try
+    with ADOQueryCmd do
+    begin
+      close;
+      sql.Clear;
+      sql.Add('update  JYOrdercon_Main SET status=''0'' ');
+      sql.Add('where mainID='+quotedstr(trim(Order_Main.fieldbyname('mainID').AsString)));
+      sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( ');
+      sql.Add(' '+quotedstr(trim(DName)));
+      sql.Add(',getdate() ');
+      sql.Add(','+quotedstr(trim(self.Caption)));
+      sql.Add(','+quotedstr(trim('内销合同撤销取消')));
+      sql.Add(','+quotedstr(trim('合同号：'+trim(Order_Main.FieldByName('conNo').AsString))));
+      sql.Add(','+quotedstr(trim('成功')));
+      sql.Add(')');
+      execsql;
+    end;
+    application.MessageBox('撤销合同取消成功！','提示信息');
+    TBRafresh.Click;
+  except
+   application.MessageBox('撤销合同取消失败！','提示信息',0);
+  end;
+end;
+
+end.

打卷检验管理/U_CpCkSaoMNew.dfm

@@ -0,0 +1,460 @@
+object frmCpCkSaoMNew: TfrmCpCkSaoMNew
+  Left = 31
+  Top = 61
+  Width = 1199
+  Height = 652
+  Caption = #25104#21697#20986#24211#25195#25551
+  Color = clBtnFace
+  Font.Charset = ANSI_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -16
+  Font.Name = #23435#20307
+  Font.Style = [fsBold]
+  OldCreateOrder = False
+  OnClose = FormClose
+  OnDestroy = FormDestroy
+  OnShow = FormShow
+  PixelsPerInch = 96
+  TextHeight = 16
+  object cxGrid2: TcxGrid
+    Left = 0
+    Top = 169
+    Width = 593
+    Height = 446
+    Align = alLeft
+    TabOrder = 0
+    object Tv1: TcxGridDBTableView
+      NavigatorButtons.ConfirmDelete = False
+      DataController.DataSource = DataSource1
+      DataController.Summary.DefaultGroupSummaryItems = <>
+      DataController.Summary.FooterSummaryItems = <
+        item
+          Kind = skSum
+          Column = v2Column5
+        end
+        item
+          Kind = skSum
+          Column = v2Column6
+        end
+        item
+          Kind = skSum
+        end
+        item
+          Kind = skSum
+        end
+        item
+          Kind = skSum
+        end
+        item
+          Kind = skSum
+        end
+        item
+          Format = #21367#25968#37327#65306'#'
+          Kind = skCount
+          Column = v1Column1
+        end>
+      DataController.Summary.SummaryGroups = <>
+      OptionsCustomize.ColumnFiltering = False
+      OptionsSelection.CellSelect = False
+      OptionsView.Footer = True
+      OptionsView.GroupByBox = False
+      object v1Column1: TcxGridDBColumn
+        Caption = #35746#21333#21495
+        DataBinding.FieldName = 'orderNo'
+        HeaderAlignmentHorz = taCenter
+        Width = 129
+      end
+      object v1Column5: TcxGridDBColumn
+        Caption = #26465#30721
+        DataBinding.FieldName = 'MJId'
+        HeaderAlignmentHorz = taCenter
+        Width = 144
+      end
+      object v2Column5: TcxGridDBColumn
+        Caption = #20844#26020#25968
+        DataBinding.FieldName = 'KgQty'
+        HeaderAlignmentHorz = taCenter
+        Options.Focusing = False
+        Width = 121
+      end
+      object v2Column6: TcxGridDBColumn
+        Caption = #38271#24230
+        DataBinding.FieldName = 'Qty'
+        HeaderAlignmentHorz = taCenter
+        Options.Focusing = False
+        Width = 87
+      end
+      object v1Column2: TcxGridDBColumn
+        Caption = #38271#24230#21333#20301
+        DataBinding.FieldName = 'QtyUnit'
+        HeaderAlignmentHorz = taCenter
+        Width = 86
+      end
+    end
+    object cxGrid2Level1: TcxGridLevel
+      GridView = Tv1
+    end
+  end
+  object Panel1: TPanel
+    Left = 0
+    Top = 0
+    Width = 1191
+    Height = 169
+    Align = alTop
+    BevelInner = bvRaised
+    BevelOuter = bvLowered
+    TabOrder = 1
+    object Label1: TLabel
+      Left = 110
+      Top = 134
+      Width = 68
+      Height = 16
+      Caption = #25195#25551#20837#21475
+    end
+    object BaoID: TEdit
+      Left = 178
+      Top = 131
+      Width = 167
+      Height = 24
+      TabOrder = 0
+      OnKeyPress = BaoIDKeyPress
+    end
+    object Button2: TButton
+      Left = 1006
+      Top = 132
+      Width = 75
+      Height = 23
+      Caption = #20851#38381
+      TabOrder = 1
+      OnClick = Button2Click
+    end
+    object Button3: TButton
+      Left = 21
+      Top = 132
+      Width = 75
+      Height = 23
+      Caption = #36873#21333
+      TabOrder = 2
+      OnClick = Button3Click
+    end
+    object Button1: TButton
+      Left = 598
+      Top = 132
+      Width = 107
+      Height = 23
+      Caption = #25764#38144#20986#24211
+      TabOrder = 3
+      OnClick = Button1Click
+    end
+    object cxGrid1: TcxGrid
+      Left = 2
+      Top = 2
+      Width = 1187
+      Height = 120
+      Align = alTop
+      TabOrder = 4
+      object Tv2: TcxGridDBTableView
+        NavigatorButtons.ConfirmDelete = False
+        OnCellDblClick = Tv2CellDblClick
+        DataController.DataSource = DataSource2
+        DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
+        DataController.Summary.DefaultGroupSummaryItems = <>
+        DataController.Summary.FooterSummaryItems = <
+          item
+            Kind = skSum
+          end>
+        DataController.Summary.SummaryGroups = <>
+        OptionsCustomize.ColumnFiltering = False
+        OptionsView.GroupByBox = False
+        Styles.Footer = DataLink_TradeManage.Default
+        object v1OrderNo: TcxGridDBColumn
+          Caption = #35746#21333#21495
+          DataBinding.FieldName = 'OrderNo'
+          HeaderAlignmentHorz = taCenter
+          Options.Focusing = False
+          Options.Sorting = False
+          Width = 78
+        end
+        object v2Column2: TcxGridDBColumn
+          Caption = #23458#25143
+          DataBinding.FieldName = 'CustomerNoName'
+          HeaderAlignmentHorz = taCenter
+          Options.Focusing = False
+          Width = 141
+        end
+        object cxGridDBColumn2: TcxGridDBColumn
+          Caption = #20013#25991#21517#31216
+          DataBinding.FieldName = 'MPRTCodeName'
+          HeaderAlignmentHorz = taCenter
+          Options.Focusing = False
+          Options.Sorting = False
+          Width = 119
+        end
+        object v1Column10: TcxGridDBColumn
+          Caption = #35746#21333#25968#37327
+          DataBinding.FieldName = 'PRTOrderQty'
+          HeaderAlignmentHorz = taCenter
+          Options.Focusing = False
+          Width = 83
+        end
+        object v1Column14: TcxGridDBColumn
+          Caption = #35746#21333#21333#20301
+          DataBinding.FieldName = 'OrderUnit'
+          HeaderAlignmentHorz = taCenter
+          Options.Focusing = False
+          Width = 75
+        end
+        object cxGridDBColumn3: TcxGridDBColumn
+          Caption = #39068#33394
+          DataBinding.FieldName = 'PRTColor'
+          HeaderAlignmentHorz = taCenter
+          Options.Focusing = False
+          Options.Sorting = False
+          Width = 80
+        end
+        object v1PRTMF: TcxGridDBColumn
+          Caption = #38376#24133
+          DataBinding.FieldName = 'MPRTMF'
+          HeaderAlignmentHorz = taCenter
+          Options.Focusing = False
+          Options.Sorting = False
+          Width = 80
+        end
+        object v1PRTKZ: TcxGridDBColumn
+          Caption = #20811#37325
+          DataBinding.FieldName = 'MPRTKZ'
+          HeaderAlignmentHorz = taCenter
+          Options.Focusing = False
+          Options.Sorting = False
+          Width = 93
+        end
+      end
+      object cxGrid1Level1: TcxGridLevel
+        GridView = Tv2
+      end
+    end
+  end
+  object cxGrid3: TcxGrid
+    Left = 593
+    Top = 169
+    Width = 584
+    Height = 446
+    Align = alLeft
+    TabOrder = 2
+    object Tv3: TcxGridDBTableView
+      NavigatorButtons.ConfirmDelete = False
+      DataController.DataSource = DS_MainSel
+      DataController.Summary.DefaultGroupSummaryItems = <>
+      DataController.Summary.FooterSummaryItems = <
+        item
+          Kind = skSum
+        end
+        item
+          Kind = skSum
+          Column = cxGridDBColumn6
+        end
+        item
+          Format = #21367#25968#37327#65306'#'
+          Kind = skCount
+          Column = cxGridDBColumn1
+        end>
+      DataController.Summary.SummaryGroups = <>
+      OptionsCustomize.ColumnFiltering = False
+      OptionsSelection.CellSelect = False
+      OptionsView.Footer = True
+      OptionsView.GroupByBox = False
+      object cxGridDBColumn1: TcxGridDBColumn
+        Caption = #35746#21333#21495
+        DataBinding.FieldName = 'orderNo'
+        HeaderAlignmentHorz = taCenter
+        Width = 157
+      end
+      object cxGridDBColumn4: TcxGridDBColumn
+        Caption = #26465#30721
+        DataBinding.FieldName = 'MJId'
+        HeaderAlignmentHorz = taCenter
+        Width = 144
+      end
+      object v3Column1: TcxGridDBColumn
+        Caption = #20844#26020#25968
+        DataBinding.FieldName = 'KgQty'
+        HeaderAlignmentHorz = taCenter
+        Width = 60
+      end
+      object cxGridDBColumn6: TcxGridDBColumn
+        Caption = #38271#24230
+        DataBinding.FieldName = 'Qty'
+        HeaderAlignmentHorz = taCenter
+        Options.Focusing = False
+        Width = 71
+      end
+      object v3Column2: TcxGridDBColumn
+        Caption = #38271#24230#21333#20301
+        DataBinding.FieldName = 'QtyUnit'
+        HeaderAlignmentHorz = taCenter
+        Width = 79
+      end
+    end
+    object cxGridLevel1: TcxGridLevel
+      GridView = Tv3
+    end
+  end
+  object MovePanel1: TMovePanel
+    Left = 8
+    Top = 208
+    Width = 561
+    Height = 305
+    BevelInner = bvLowered
+    Color = clSkyBlue
+    TabOrder = 3
+    Visible = False
+    object Label2: TLabel
+      Left = 64
+      Top = 48
+      Width = 147
+      Height = 48
+      Caption = #24050#20986#24211
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -48
+      Font.Name = #26999#20307'_GB2312'
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label3: TLabel
+      Left = 456
+      Top = 56
+      Width = 49
+      Height = 48
+      Caption = #21367
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -48
+      Font.Name = #26999#20307'_GB2312'
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Edit1: TEdit
+      Left = 216
+      Top = 24
+      Width = 241
+      Height = 105
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clRed
+      Font.Height = -96
+      Font.Name = #26999#20307'_GB2312'
+      Font.Style = [fsBold]
+      ParentFont = False
+      ReadOnly = True
+      TabOrder = 0
+      Text = '1234'
+    end
+    object Edit2: TEdit
+      Left = 73
+      Top = 143
+      Width = 386
+      Height = 72
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clRed
+      Font.Height = -64
+      Font.Name = #26999#20307'_GB2312'
+      Font.Style = [fsBold]
+      ParentFont = False
+      ReadOnly = True
+      TabOrder = 1
+      Text = '91209120001'
+    end
+    object Button4: TButton
+      Left = 216
+      Top = 248
+      Width = 75
+      Height = 41
+      Caption = #20851#38381
+      TabOrder = 2
+      OnClick = Button4Click
+    end
+  end
+  object cxGridPopupMenu1: TcxGridPopupMenu
+    Grid = cxGrid2
+    PopupMenus = <>
+    Left = 976
+    Top = 40
+  end
+  object CDS_Main: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 136
+    Top = 216
+  end
+  object DataSource1: TDataSource
+    DataSet = CDS_Main
+    Left = 96
+    Top = 216
+  end
+  object ADOQueryTemp: TADOQuery
+    Connection = DataLink_TradeManage.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 1072
+    Top = 8
+  end
+  object ADOQueryCmd: TADOQuery
+    Connection = DataLink_TradeManage.ADOLink
+    Parameters = <>
+    Left = 792
+    Top = 64
+  end
+  object ADOQueryMain: TADOQuery
+    Connection = DataLink_TradeManage.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 872
+    Top = 72
+  end
+  object CDS_Sub: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 320
+    Top = 48
+  end
+  object DataSource2: TDataSource
+    DataSet = CDS_Sub
+    Left = 288
+    Top = 48
+  end
+  object ADOQuerySub: TADOQuery
+    Connection = DataLink_TradeManage.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 680
+    Top = 64
+  end
+  object cxGridPopupMenu2: TcxGridPopupMenu
+    Grid = cxGrid2
+    PopupMenus = <>
+    Left = 56
+    Top = 200
+  end
+  object cxGridPopupMenu3: TcxGridPopupMenu
+    PopupMenus = <>
+    Left = 600
+    Top = 72
+  end
+  object DS_MainSel: TDataSource
+    DataSet = CDS_MainSel
+    Left = 616
+    Top = 336
+  end
+  object CDS_MainSel: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 648
+    Top = 336
+  end
+  object cxGridPopupMenu4: TcxGridPopupMenu
+    Grid = cxGrid3
+    PopupMenus = <>
+    Left = 832
+    Top = 312
+  end
+end

打卷检验管理/U_CpCkSaoMNew.pas

@@ -0,0 +1,450 @@
+unit U_CpCkSaoMNew;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData,
+  cxDataStorage, cxEdit, DB, cxDBData, StdCtrls, ExtCtrls, ADODB, DBClient,
+  cxGridCustomPopupMenu, cxGridPopupMenu, cxGridLevel,
+  cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxClasses,
+  cxControls, cxGridCustomView, cxGrid, MovePanel, cxCheckBox;
+
+type
+  TfrmCpCkSaoMNew = class(TForm)
+    cxGrid2: TcxGrid;
+    Tv1: TcxGridDBTableView;
+    v1Column1: TcxGridDBColumn;
+    v2Column5: TcxGridDBColumn;
+    v2Column6: TcxGridDBColumn;
+    cxGrid2Level1: TcxGridLevel;
+    cxGridPopupMenu1: TcxGridPopupMenu;
+    CDS_Main: TClientDataSet;
+    DataSource1: TDataSource;
+    ADOQueryTemp: TADOQuery;
+    ADOQueryCmd: TADOQuery;
+    ADOQueryMain: TADOQuery;
+    Panel1: TPanel;
+    BaoID: TEdit;
+    Label1: TLabel;
+    v1Column5: TcxGridDBColumn;
+    Button2: TButton;
+    Button3: TButton;
+    CDS_Sub: TClientDataSet;
+    DataSource2: TDataSource;
+    ADOQuerySub: TADOQuery;
+    cxGridPopupMenu2: TcxGridPopupMenu;
+    cxGridPopupMenu3: TcxGridPopupMenu;
+    cxGrid3: TcxGrid;
+    Tv3: TcxGridDBTableView;
+    cxGridDBColumn1: TcxGridDBColumn;
+    cxGridDBColumn4: TcxGridDBColumn;
+    cxGridDBColumn6: TcxGridDBColumn;
+    cxGridLevel1: TcxGridLevel;
+    DS_MainSel: TDataSource;
+    CDS_MainSel: TClientDataSet;
+    v3Column1: TcxGridDBColumn;
+    Button1: TButton;
+    cxGridPopupMenu4: TcxGridPopupMenu;
+    MovePanel1: TMovePanel;
+    Edit1: TEdit;
+    Edit2: TEdit;
+    Label2: TLabel;
+    Label3: TLabel;
+    Button4: TButton;
+    cxGrid1: TcxGrid;
+    Tv2: TcxGridDBTableView;
+    v1OrderNo: TcxGridDBColumn;
+    v2Column2: TcxGridDBColumn;
+    cxGridDBColumn2: TcxGridDBColumn;
+    v1Column10: TcxGridDBColumn;
+    v1Column14: TcxGridDBColumn;
+    cxGridDBColumn3: TcxGridDBColumn;
+    v1PRTMF: TcxGridDBColumn;
+    v1PRTKZ: TcxGridDBColumn;
+    cxGrid1Level1: TcxGridLevel;
+    v1Column2: TcxGridDBColumn;
+    v3Column2: TcxGridDBColumn;
+    procedure FormClose(Sender: TObject; var Action: TCloseAction);
+    procedure FormDestroy(Sender: TObject);
+    procedure FormShow(Sender: TObject);
+    procedure BaoIDKeyPress(Sender: TObject; var Key: Char);
+    procedure Button2Click(Sender: TObject);
+    procedure Button3Click(Sender: TObject);
+    procedure Button1Click(Sender: TObject);
+    procedure Tv2CellDblClick(Sender: TcxCustomGridTableView;
+      ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
+      AShift: TShiftState; var AHandled: Boolean);
+    procedure Button4Click(Sender: TObject);
+  private
+    { Private declarations }
+    procedure InitGrid();
+    procedure InitSubGrid();
+  public
+    { Public declarations }
+  end;
+
+var
+  frmCpCkSaoMNew: TfrmCpCkSaoMNew;
+
+implementation
+uses
+U_DataLink,U_Fun,U_OrderSel ;
+
+{$R *.dfm}
+
+procedure TfrmCpCkSaoMNew.FormClose(Sender: TObject;
+  var Action: TCloseAction);
+begin
+  Action:=caFree;
+end;
+
+procedure TfrmCpCkSaoMNew.FormDestroy(Sender: TObject);
+begin
+  frmCpCkSaoMNew:=nil;
+end;
+procedure TfrmCpCkSaoMNew.InitGrid();
+begin
+  try
+    ADOQueryMain.DisableControls;
+    with ADOQueryMain do
+    begin
+      Filtered:=False;
+      Close;
+      sql.Clear;
+      SQL.Add('select A.*,OrderNo=(select OrderNo from JYOrder_Main where MainId=A.MainId) from CK_BanCP_CR A');
+      sql.add('where 1<>1');
+      Open;
+    end;
+    SCreateCDS20(ADOQueryMain,CDS_Main);
+    SInitCDSData20(ADOQueryMain,CDS_Main);
+    with ADOQueryMain do
+    begin
+      Filtered:=False;
+      Close;
+      sql.Clear;
+      SQL.Add('select A.*,OrderNo=(select OrderNo from JYOrder_Main where MainId=A.MainId) from CK_BanCP_CR A');
+      sql.add('where 1<>1');
+      Open;
+    end;
+    SCreateCDS20(ADOQueryMain,CDS_MainSel);
+    SInitCDSData20(ADOQueryMain,CDS_MainSel);
+  finally
+    ADOQueryMain.EnableControls;
+  end;
+end;
+
+procedure TfrmCpCkSaoMNew.FormShow(Sender: TObject);
+begin
+  ReadCxGrid('订单选择',Tv2,'成品仓库');
+  ReadCxGrid('成品出库',Tv1,'成品仓库');
+  ReadCxGrid('成品出库Sels',Tv3,'成品仓库');
+  InitSubGrid();
+  InitGrid(); 
+end;
+
+procedure TfrmCpCkSaoMNew.BaoIDKeyPress(Sender: TObject; var Key: Char);
+var
+  maxno:String;
+begin
+  if Key=#13 then
+  begin
+    if CDS_Sub.IsEmpty then
+    begin
+      BaoID.Text:='';
+      Application.MessageBox('未选单不能扫描出库！','提示',0);
+      Exit;
+    end;
+    if CDS_Main.Locate('MJId',Trim(BaoID.Text),[])=False then
+    begin
+      BaoID.Text:='';
+      Application.MessageBox('此卷不包含在待出库的卷数据中！','提示',0);
+      Exit;
+    end;
+    CDS_Main.Locate('MJId',Trim(BaoID.Text),[]);
+    try
+      ADOQueryCmd.Connection.BeginTrans;
+      with CDS_Main do
+      begin
+        if GetLSNo(ADOQueryCmd,maxno,'CC','CK_BanCp_CR',4,1)=False then
+        begin
+          ADOQueryCmd.Connection.RollbackTrans;
+          Application.MessageBox('取出库最大号失败！','提示',0);
+          Exit;
+        end;
+        with ADOQueryCmd do
+        begin
+          Close;
+          sql.Clear;
+          sql.Add('select * from CK_BanCp_CR where 1<>1');
+          Open;
+        end;
+        with ADOQueryCmd do
+        begin
+          Append;
+          FieldByName('BCID').Value:=Trim(maxno);
+          FieldByName('CRID').Value:=CDS_Main.fieldbyname('CRID').Value;
+          FieldByName('CRTime').Value:=SGetServerDateTime(ADOQueryTemp);
+          FieldByName('KGQty').Value:=CDS_Main.fieldbyname('KGQty').Value;
+          FieldByName('Qty').Value:=CDS_Main.fieldbyname('Qty').Value;
+          FieldByName('QtyUnit').Value:=CDS_Main.fieldbyname('QtyUnit').Value;
+          FieldByName('MJID').Value:=CDS_Main.fieldbyname('MJID').Value;
+          FieldByName('MainID').Value:=CDS_Main.fieldbyname('MainID').Value;
+          FieldByName('SubID').Value:=CDS_Main.fieldbyname('SubID').Value;
+          FieldByName('APID').Value:=CDS_Main.fieldbyname('APID').Value;
+          FieldByName('CPType').Value:=CDS_Main.fieldbyname('CPType').Value;
+          FieldByName('Filler').Value:=Trim(DName);
+          FieldByName('CRFlag').Value:='出库';
+          FieldByName('CRType').Value:='正常出库';
+          //FieldByName('JZXNo').Value:=Trim(JZXNo.Text);
+          Post;
+        end;
+        with ADOQueryCmd do
+        begin
+          Close;
+          sql.Clear;
+          sql.Add('Update CK_BanCp_KC set KCKgQty=0,KCQty=0 where CRID='+CDS_Main.fieldbyname('CRID').AsString);
+          ExecSQL;
+        end;
+      end;
+      ADOQueryCmd.Connection.CommitTrans;
+      with CDS_MainSel do
+      begin
+        Append;
+        FieldByName('MainId').Value:=CDS_Main.fieldbyname('MainId').Value;
+        FieldByName('SubId').Value:=Self.CDS_Main.fieldbyname('SubId').Value;
+        FieldByName('OrderNo').Value:=Self.CDS_Main.fieldbyname('OrderNo').Value;
+        FieldByName('KGQty').Value:=Self.CDS_Main.fieldbyname('KGQty').Value;
+        FieldByName('Qty').Value:=Self.CDS_Main.fieldbyname('Qty').Value;
+        FieldByName('QtyUnit').Value:=Self.CDS_Main.fieldbyname('QtyUnit').Value;
+        FieldByName('MJId').Value:=Self.CDS_Main.fieldbyname('MJId').Value;
+        FieldByName('CRId').Value:=Self.CDS_Main.fieldbyname('CRId').Value;
+        FieldByName('APID').Value:=Self.CDS_Main.fieldbyname('APID').Value;
+        FieldByName('CPType').Value:=CDS_Main.fieldbyname('CPType').Value;
+        FieldByName('BCID').Value:=Trim(maxno);
+        //FieldByName('JZXNo').Value:=Trim(JZXNo.Text);
+        Post;
+      end;
+      CDS_Main.Delete;
+      MovePanel1.Visible:=True;
+      if CDS_MainSel.IsEmpty=False then
+        Edit1.Text:=IntToStr(Tv3.DataController.Summary.FooterSummaryValues[2])
+      else
+        Edit1.Text:='0';
+      Edit2.Text:=Trim(BaoID.Text);
+      BaoID.Text:='';
+      Exit;
+    except
+      BaoID.Text:='';
+      ADOQueryCmd.Connection.RollbackTrans;
+      Application.MessageBox('出库异常！','提示',0);
+    end;
+  end;
+end;
+
+procedure TfrmCpCkSaoMNew.Button2Click(Sender: TObject);
+begin
+  Close;
+  WriteCxGrid('订单选择',Tv2,'成品仓库');
+  WriteCxGrid('成品出库',Tv1,'成品仓库');
+  WriteCxGrid('成品出库Sels',Tv3,'成品仓库');
+end;
+
+procedure TfrmCpCkSaoMNew.Button3Click(Sender: TObject);
+begin
+  {if CDS_Main.IsEmpty=False then
+  begin
+    Application.MessageBox('已扫描不能更改单号！','提示',0);
+    Exit;
+  end;}
+  try
+    frmOrderSel:=TfrmOrderSel.Create(Application);
+    with frmOrderSel do
+    begin
+      if ShowModal=1 then
+      begin
+        CDS_OrderSel.DisableControls;
+        with CDS_OrderSel do
+        begin
+          First;
+          while not Eof do
+          begin
+            if FieldByName('SSel').Value=True then
+            begin
+              if Self.CDS_Sub.Locate('SubId',Trim(CDS_OrderSel.fieldbyname('SubId').AsString),[])=False then
+              begin
+                with Self.CDS_Sub do
+                begin
+                  Append;
+                  FieldByName('MainId').Value:=Trim(CDS_OrderSel.fieldbyname('MainId').AsString);
+                  FieldByName('SubId').Value:=Trim(CDS_OrderSel.fieldbyname('SubId').AsString);
+                  FieldByName('CustomerNo').Value:=Trim(CDS_OrderSel.fieldbyname('CustomerNo').AsString);
+                  FieldByName('OrderNo').Value:=Trim(CDS_OrderSel.fieldbyname('OrderNo').AsString);
+                  FieldByName('CustomerNoName').Value:=Trim(CDS_OrderSel.fieldbyname('CustomerNoName').AsString);
+                  FieldByName('MPRTCodeName').Value:=Trim(CDS_OrderSel.fieldbyname('MPRTCodeName').AsString);
+                  FieldByName('PRTOrderQty').Value:=Trim(CDS_OrderSel.fieldbyname('PRTOrderQty').AsString);
+                  FieldByName('OrderUnit').Value:=Trim(CDS_OrderSel.fieldbyname('OrderUnit').AsString);
+                  FieldByName('PRTColor').Value:=Trim(CDS_OrderSel.fieldbyname('PRTColor').AsString);
+                  FieldByName('MPRTMF').Value:=Trim(CDS_OrderSel.fieldbyname('MPRTMF').AsString);
+                  FieldByName('MPRTKZ').Value:=Trim(CDS_OrderSel.fieldbyname('MPRTKZ').AsString);
+                  Post;
+                end;
+              end;
+            end;
+            Next;
+          end;
+        end;
+        CDS_OrderSel.EnableControls;
+        CDS_Sub.DisableControls;
+        with CDS_Sub do
+        begin
+          First;
+          while not Eof do
+          begin
+            if Trim(Self.CDS_Sub.fieldbyname('SFlag').AsString)<>'2' then
+            begin
+              with Self.ADOQueryTemp do
+              begin
+                Close;
+                SQL.Clear;
+                sql.Add('select orderNo=(select OrderNo from JYOrder_Main where MainId=A.MainId), A.*,B.KCQty,B.KCKgQty ');
+                sql.Add(' from CK_BanCP_CR A inner join CK_BanCP_KC B on A.CRID=B.CRID');
+                sql.Add(' where B.KCqty>0 and A.CRType=''检验入库'' ');
+                SQL.Add(' and A.SubId='''+Trim(CDS_Sub.fieldbyname('SubId').AsString)+'''');
+                Open;
+              end;
+              with Self.ADOQueryTemp do
+              begin
+                First;
+                while not Eof do
+                begin
+                  with CDS_Main do
+                  begin
+                    Append;
+                    FieldByName('MainId').Value:=Self.ADOQueryTemp.fieldbyname('MainId').Value;
+                    FieldByName('SubId').Value:=Self.ADOQueryTemp.fieldbyname('SubId').Value;
+                    FieldByName('APId').Value:=Self.ADOQueryTemp.fieldbyname('APId').Value;
+                    FieldByName('OrderNo').Value:=Self.ADOQueryTemp.fieldbyname('OrderNo').Value;
+                    FieldByName('KgQty').Value:=Self.ADOQueryTemp.fieldbyname('KCKgQty').Value;
+                    FieldByName('Qty').Value:=Self.ADOQueryTemp.fieldbyname('KCQty').Value;
+                    FieldByName('QtyUnit').Value:=Self.ADOQueryTemp.fieldbyname('QtyUnit').Value;
+                    FieldByName('MJId').Value:=Self.ADOQueryTemp.fieldbyname('MJId').Value;
+                    FieldByName('CRId').Value:=Self.ADOQueryTemp.fieldbyname('CRId').Value;
+                    FieldByName('CPType').Value:=Self.ADOQueryTemp.fieldbyname('CPType').Value;
+                    Post;
+                  end;
+                  Next;
+                end;
+              end;
+            end;
+            CDS_Sub.Edit;
+            CDS_Sub.FieldByName('SFlag').Value:='2';
+            CDS_Sub.Post;
+            Next;
+          end;
+        end;
+        CDS_Sub.EnableControls;
+      end;
+    end;
+  finally
+    frmOrderSel.Free;
+  end;
+end;
+
+procedure TfrmCpCkSaoMNew.InitSubGrid();
+begin
+  try
+    ADOQuerySub.DisableControls;
+    with ADOQuerySub do
+    begin
+      Close;
+      sql.Clear;
+      sql.Add('select A.*,B.*');
+      sql.Add(' from JYOrder_Main A inner join JYOrder_Sub B on A.MainId=B.Mainid');
+      sql.Add(' where 1<>1  ');
+
+      Open;
+    end;
+    SCreateCDS20(ADOQuerySub,CDS_Sub);
+    SInitCDSData20(ADOQuerySub,CDS_Sub);
+  finally
+    ADOQuerySub.EnableControls;
+  end;
+end;
+
+
+procedure TfrmCpCkSaoMNew.Button1Click(Sender: TObject);
+begin
+  if CDS_MainSel.IsEmpty then Exit;
+  if Application.MessageBox('确定要执行此操作吗？','提示',32+4)<>IDYES then Exit;
+  try
+    ADOQueryCmd.Connection.BeginTrans;
+    with ADOQueryCmd do
+    begin
+      Close;
+      sql.Clear;
+      sql.Add('delete CK_BanCP_CR where BCID='''+Trim(CDS_MainSel.fieldbyname('BCID').AsString)+'''');
+      sql.Add('UPdate CK_BanCP_KC Set KCKgQty=(select KgQty from CK_BanCP_CR A where  A.CRID=CK_BanCP_KC.CRID and A.CRType=''检验入库'') ');
+      sql.Add(',KCQty=(select Qty from CK_BanCP_CR A where  A.CRID=CK_BanCP_KC.CRID and A.CRType=''检验入库'') ');
+      SQL.Add(' where CRID='+CDS_MainSel.fieldbyname('CRID').AsString);
+      ExecSQL;
+    end;
+    ADOQueryCmd.Connection.CommitTrans;
+    with CDS_Main do
+    begin
+      Append;
+      FieldByName('MainId').Value:=CDS_MainSel.fieldbyname('MainId').Value;
+      FieldByName('SubId').Value:=Self.CDS_MainSel.fieldbyname('SubId').Value;
+      FieldByName('OrderNo').Value:=Self.CDS_MainSel.fieldbyname('OrderNo').Value;
+      FieldByName('KgQty').Value:=Self.CDS_MainSel.fieldbyname('KgQty').Value;
+      FieldByName('Qty').Value:=Self.CDS_MainSel.fieldbyname('Qty').Value;
+      FieldByName('QtyUnit').Value:=Self.CDS_MainSel.fieldbyname('QtyUnit').Value;
+      FieldByName('MJId').Value:=Self.CDS_MainSel.fieldbyname('MJId').Value;
+      FieldByName('CRId').Value:=Self.CDS_MainSel.fieldbyname('CRId').Value;
+      FieldByName('APID').Value:=Self.CDS_MainSel.fieldbyname('APID').Value;
+      FieldByName('CPType').Value:=Self.CDS_MainSel.fieldbyname('CPType').Value;
+      Post;
+    end;
+    CDS_MainSel.Delete;
+    MovePanel1.Visible:=True;
+    if CDS_MainSel.IsEmpty=False then
+      Edit1.Text:=IntToStr(Tv3.DataController.Summary.FooterSummaryValues[2])
+    else
+      Edit1.Text:='0';
+    Edit2.Text:=Trim(CDS_Main.fieldbyname('MJId').AsString);
+  except
+    ADOQueryCmd.Connection.RollbackTrans;
+    Application.MessageBox('撤销成功！','提示',0);
+  end;
+end;
+
+procedure TfrmCpCkSaoMNew.Tv2CellDblClick(Sender: TcxCustomGridTableView;
+  ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
+  AShift: TShiftState; var AHandled: Boolean);
+begin
+  if CDS_MainSel.IsEmpty=False then Exit;
+  if CDS_Sub.IsEmpty then Exit;
+  if Application.MessageBox('确定要删除数据吗？','提示',32+4)<>IDYES then Exit;
+  CDS_Main.DisableControls;
+  with CDS_Main do
+  begin
+    First;
+    while not Eof do
+    begin
+      if Trim(CDS_Main.fieldbyname('SubId').AsString)=Trim(CDS_Sub.fieldbyname('SubId').AsString) then
+      begin
+        CDS_Main.Delete;
+      end else
+        Next;
+    end;
+  end;
+  CDS_Main.EnableControls;
+  CDS_Sub.Delete;
+end;
+
+procedure TfrmCpCkSaoMNew.Button4Click(Sender: TObject);
+begin
+  MovePanel1.Visible:=False;
+end;
+
+end.

打卷检验管理/U_CpCkSaoMNewSel.dfm

@@ -0,0 +1,696 @@
+object frmCpCkSaoMNewSel: TfrmCpCkSaoMNewSel
+  Left = 77
+  Top = 61
+  Width = 1199
+  Height = 616
+  Caption = #25104#21697#20986#24211#25195#25551
+  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 Panel1: TPanel
+    Left = 0
+    Top = 0
+    Width = 1183
+    Height = 182
+    Align = alTop
+    BevelInner = bvRaised
+    BevelOuter = bvLowered
+    TabOrder = 0
+    object Label4: TLabel
+      Left = 273
+      Top = 158
+      Width = 48
+      Height = 12
+      Caption = #20986#24211#26102#38388
+    end
+    object Label5: TLabel
+      Left = 468
+      Top = 134
+      Width = 48
+      Height = 12
+      Caption = #20986#24211#21333#21495
+    end
+    object Label6: TLabel
+      Left = 103
+      Top = 134
+      Width = 39
+      Height = 12
+      Caption = #21367#26465#30721
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clBlue
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label7: TLabel
+      Left = 103
+      Top = 159
+      Width = 39
+      Height = 12
+      Caption = #20837#24211#21333
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clBlue
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label8: TLabel
+      Left = 467
+      Top = 158
+      Width = 48
+      Height = 12
+      Caption = #20986#24211#22791#27880
+    end
+    object Label9: TLabel
+      Left = 272
+      Top = 135
+      Width = 53
+      Height = 12
+      Caption = #21253' '#26465' '#30721
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clBlue
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label12: TLabel
+      Left = 844
+      Top = 129
+      Width = 46
+      Height = 12
+      Caption = #21253#25968#65306'0'
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clRed
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label1: TLabel
+      Left = 836
+      Top = 158
+      Width = 24
+      Height = 12
+      Caption = #32568#21495
+    end
+    object BaoID: TEdit
+      Left = 143
+      Top = 130
+      Width = 101
+      Height = 20
+      TabOrder = 0
+      OnKeyPress = BaoIDKeyPress
+    end
+    object Button2: TButton
+      Left = 750
+      Top = 155
+      Width = 62
+      Height = 20
+      Caption = #20851#38381
+      TabOrder = 1
+      OnClick = Button2Click
+    end
+    object Button3: TButton
+      Left = 24
+      Top = 130
+      Width = 70
+      Height = 20
+      Caption = #36873#21333
+      TabOrder = 2
+      OnClick = Button3Click
+    end
+    object Button1: TButton
+      Left = 750
+      Top = 130
+      Width = 62
+      Height = 20
+      Caption = #25764#38144#20986#24211
+      TabOrder = 3
+      OnClick = Button1Click
+    end
+    object cxGrid1: TcxGrid
+      Left = 2
+      Top = 2
+      Width = 1179
+      Height = 120
+      Align = alTop
+      TabOrder = 4
+      object Tv2: TcxGridDBTableView
+        Navigator.Buttons.CustomButtons = <>
+        OnCellDblClick = Tv2CellDblClick
+        DataController.DataSource = DataSource2
+        DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
+        DataController.Summary.DefaultGroupSummaryItems = <>
+        DataController.Summary.FooterSummaryItems = <
+          item
+            Kind = skSum
+          end>
+        DataController.Summary.SummaryGroups = <>
+        OptionsCustomize.ColumnFiltering = False
+        OptionsData.Editing = False
+        OptionsView.GroupByBox = False
+        Styles.Footer = DataLink_TradeManage.Default
+        object v1OrderNo: TcxGridDBColumn
+          Caption = #35746#21333#21495
+          DataBinding.FieldName = 'OrderNo'
+          HeaderAlignmentHorz = taCenter
+          Options.Focusing = False
+          Options.Sorting = False
+          Width = 78
+        end
+        object v2Column2: TcxGridDBColumn
+          Caption = #23458#25143
+          DataBinding.FieldName = 'CustomerNoName'
+          HeaderAlignmentHorz = taCenter
+          Options.Focusing = False
+          Width = 112
+        end
+        object cxGridDBColumn2: TcxGridDBColumn
+          Caption = #20013#25991#21517#31216
+          DataBinding.FieldName = 'PRTCodeName'
+          HeaderAlignmentHorz = taCenter
+          Options.Focusing = False
+          Options.Sorting = False
+          Width = 119
+        end
+        object cxGridDBColumn3: TcxGridDBColumn
+          Caption = #39068#33394
+          DataBinding.FieldName = 'PRTColor'
+          HeaderAlignmentHorz = taCenter
+          Options.Focusing = False
+          Options.Sorting = False
+          Width = 80
+        end
+        object v2Column1: TcxGridDBColumn
+          Caption = #33394#21495
+          DataBinding.FieldName = 'SOrddefstr1'
+          HeaderAlignmentHorz = taCenter
+          Options.Editing = False
+          Width = 60
+        end
+        object v1Column10: TcxGridDBColumn
+          Caption = #35746#21333#25968#37327
+          DataBinding.FieldName = 'PRTOrderQty'
+          HeaderAlignmentHorz = taCenter
+          Options.Focusing = False
+          Width = 83
+        end
+        object v1Column14: TcxGridDBColumn
+          Caption = #35746#21333#21333#20301
+          DataBinding.FieldName = 'OrderUnit'
+          HeaderAlignmentHorz = taCenter
+          Options.Focusing = False
+          Width = 75
+        end
+        object v1PRTMF: TcxGridDBColumn
+          Caption = #38376#24133
+          DataBinding.FieldName = 'PRTMF'
+          HeaderAlignmentHorz = taCenter
+          Options.Focusing = False
+          Options.Sorting = False
+          Width = 80
+        end
+        object v1PRTKZ: TcxGridDBColumn
+          Caption = #20811#37325
+          DataBinding.FieldName = 'PRTKZ'
+          HeaderAlignmentHorz = taCenter
+          Options.Focusing = False
+          Options.Sorting = False
+          Width = 93
+        end
+      end
+      object cxGrid1Level1: TcxGridLevel
+        GridView = Tv2
+      end
+    end
+    object Button5: TButton
+      Left = 661
+      Top = 129
+      Width = 60
+      Height = 20
+      Caption = #20986#24211
+      TabOrder = 5
+      OnClick = Button5Click
+    end
+    object CRTime: TDateTimePicker
+      Left = 325
+      Top = 154
+      Width = 116
+      Height = 20
+      Date = 41337.663190821760000000
+      Time = 41337.663190821760000000
+      ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
+      TabOrder = 6
+    end
+    object CKOrdNo: TEdit
+      Left = 516
+      Top = 130
+      Width = 111
+      Height = 20
+      TabOrder = 7
+    end
+    object RKOrdID: TEdit
+      Left = 143
+      Top = 154
+      Width = 101
+      Height = 20
+      TabOrder = 8
+      OnKeyPress = RKOrdIDKeyPress
+    end
+    object CRNote: TEdit
+      Left = 516
+      Top = 154
+      Width = 206
+      Height = 20
+      TabOrder = 9
+    end
+    object mjid: TEdit
+      Left = 325
+      Top = 130
+      Width = 116
+      Height = 20
+      TabOrder = 10
+      OnKeyPress = mjidKeyPress
+    end
+    object gangno: TEdit
+      Left = 860
+      Top = 154
+      Width = 111
+      Height = 20
+      TabOrder = 11
+      OnChange = gangnoChange
+    end
+  end
+  object cxGrid2: TcxGrid
+    Left = 0
+    Top = 182
+    Width = 577
+    Height = 396
+    Align = alLeft
+    TabOrder = 1
+    object Tv1: TcxGridDBTableView
+      PopupMenu = PopupMenu1
+      Navigator.Buttons.CustomButtons = <>
+      DataController.DataSource = DataSource1
+      DataController.Summary.DefaultGroupSummaryItems = <>
+      DataController.Summary.FooterSummaryItems = <
+        item
+          Kind = skSum
+          Column = v2Column5
+        end
+        item
+          Kind = skSum
+          Column = v2Column6
+        end
+        item
+          Kind = skSum
+        end
+        item
+          Kind = skSum
+        end
+        item
+          Kind = skSum
+        end
+        item
+          Kind = skSum
+        end
+        item
+          Format = #21367#25968#37327#65306'#'
+          Kind = skCount
+          Column = v1Column1
+        end>
+      DataController.Summary.SummaryGroups = <>
+      OptionsCustomize.ColumnFiltering = False
+      OptionsView.Footer = True
+      OptionsView.GroupByBox = False
+      object v1Column6: TcxGridDBColumn
+        Caption = #36873#25321
+        DataBinding.FieldName = 'SSel'
+        PropertiesClassName = 'TcxCheckBoxProperties'
+        Properties.NullStyle = nssUnchecked
+        HeaderAlignmentHorz = taCenter
+        Options.Sorting = False
+        Width = 41
+      end
+      object v1Column1: TcxGridDBColumn
+        Caption = #35746#21333#21495
+        DataBinding.FieldName = 'orderNo'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 81
+      end
+      object v1Column3: TcxGridDBColumn
+        Caption = #39068#33394
+        DataBinding.FieldName = 'PRTColor'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 57
+      end
+      object v1Column5: TcxGridDBColumn
+        Caption = #21367#21495
+        DataBinding.FieldName = 'MJXH'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 40
+      end
+      object v1MJID: TcxGridDBColumn
+        Caption = #21367#26465#30721
+        DataBinding.FieldName = 'MJID'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 89
+      end
+      object v1Column9: TcxGridDBColumn
+        Caption = #21253#21495
+        DataBinding.FieldName = 'BaoNo'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 50
+      end
+      object v1BAOID: TcxGridDBColumn
+        Caption = #21253#26465#30721
+        DataBinding.FieldName = 'BAOID'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 100
+      end
+      object v2Column5: TcxGridDBColumn
+        Caption = #20844#26020#25968
+        DataBinding.FieldName = 'KgQty'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Options.Focusing = False
+        Width = 55
+      end
+      object v2Column6: TcxGridDBColumn
+        Caption = #38271#24230
+        DataBinding.FieldName = 'Qty'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Options.Focusing = False
+        Width = 52
+      end
+      object v1Column2: TcxGridDBColumn
+        Caption = #21333#20301
+        DataBinding.FieldName = 'QtyUnit'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 47
+      end
+      object v1Column7: TcxGridDBColumn
+        Caption = #31867#22411
+        DataBinding.FieldName = 'CPType'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 50
+      end
+      object v1Column8: TcxGridDBColumn
+        Caption = #20837#24211#21333#21495
+        DataBinding.FieldName = 'RKOrdId'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 86
+      end
+      object v1Column4: TcxGridDBColumn
+        Caption = #33394#21495
+        DataBinding.FieldName = 'SOrddefstr1'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 60
+      end
+      object v1Column11: TcxGridDBColumn
+        Caption = #32568#21495
+        DataBinding.FieldName = 'MJStr4'
+        HeaderAlignmentHorz = taCenter
+      end
+    end
+    object cxGrid2Level1: TcxGridLevel
+      GridView = Tv1
+    end
+  end
+  object cxGrid3: TcxGrid
+    Left = 577
+    Top = 182
+    Width = 606
+    Height = 396
+    Align = alClient
+    TabOrder = 2
+    object Tv3: TcxGridDBTableView
+      PopupMenu = PopupMenu2
+      Navigator.Buttons.CustomButtons = <>
+      DataController.DataSource = DS_MainSel
+      DataController.Summary.DefaultGroupSummaryItems = <>
+      DataController.Summary.FooterSummaryItems = <
+        item
+          Kind = skSum
+        end
+        item
+          Kind = skSum
+          Column = cxGridDBColumn6
+        end
+        item
+          Format = #21367#25968#37327#65306'#'
+          Kind = skCount
+          Column = cxGridDBColumn1
+        end>
+      DataController.Summary.SummaryGroups = <>
+      OptionsCustomize.ColumnFiltering = False
+      OptionsView.Footer = True
+      OptionsView.GroupByBox = False
+      object v3Column5: TcxGridDBColumn
+        Caption = #36873#25321
+        DataBinding.FieldName = 'SSel'
+        PropertiesClassName = 'TcxCheckBoxProperties'
+        Properties.NullStyle = nssUnchecked
+        HeaderAlignmentHorz = taCenter
+        Options.Sorting = False
+        Width = 44
+      end
+      object cxGridDBColumn1: TcxGridDBColumn
+        Caption = #35746#21333#21495
+        DataBinding.FieldName = 'orderNo'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 98
+      end
+      object v3Column3: TcxGridDBColumn
+        Caption = #39068#33394
+        DataBinding.FieldName = 'PRTColor'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 66
+      end
+      object cxGridDBColumn4: TcxGridDBColumn
+        Caption = #21367#21495
+        DataBinding.FieldName = 'MJXH'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 52
+      end
+      object v3MJID: TcxGridDBColumn
+        Caption = #21367#26465#30721
+        DataBinding.FieldName = 'MJID'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 65
+      end
+      object v3BaoNo: TcxGridDBColumn
+        Caption = #21253#21495
+        DataBinding.FieldName = 'BaoNo'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 55
+      end
+      object v3BAOID: TcxGridDBColumn
+        Caption = #21253#26465#30721
+        DataBinding.FieldName = 'BAOID'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 65
+      end
+      object v3Column1: TcxGridDBColumn
+        Caption = #20844#26020#25968
+        DataBinding.FieldName = 'KgQty'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 59
+      end
+      object cxGridDBColumn6: TcxGridDBColumn
+        Caption = #38271#24230
+        DataBinding.FieldName = 'Qty'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Options.Focusing = False
+        Width = 69
+      end
+      object v3Column2: TcxGridDBColumn
+        Caption = #21333#20301
+        DataBinding.FieldName = 'QtyUnit'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 57
+      end
+      object v3Column6: TcxGridDBColumn
+        Caption = #31867#22411
+        DataBinding.FieldName = 'CPType'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 59
+      end
+      object v3Column7: TcxGridDBColumn
+        Caption = #20837#24211#21333#21495
+        DataBinding.FieldName = 'RKOrdId'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 61
+      end
+      object v3Column4: TcxGridDBColumn
+        Caption = #33394#21495
+        DataBinding.FieldName = 'SOrddefstr1'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 50
+      end
+    end
+    object cxGridLevel1: TcxGridLevel
+      GridView = Tv3
+    end
+  end
+  object MovePanel2: TMovePanel
+    Left = 584
+    Top = 264
+    Width = 289
+    Height = 49
+    BevelInner = bvLowered
+    Caption = #27491#22312#25191#34892#25968#25454#25805#20316#65292#35831#31245#21518#12290#12290#12290
+    Color = clSkyBlue
+    Font.Charset = GB2312_CHARSET
+    Font.Color = clRed
+    Font.Height = -14
+    Font.Name = #23435#20307
+    Font.Style = [fsBold]
+    ParentFont = False
+    TabOrder = 3
+    Visible = False
+  end
+  object cxGridPopupMenu1: TcxGridPopupMenu
+    Grid = cxGrid1
+    PopupMenus = <>
+    Left = 976
+    Top = 40
+  end
+  object CDS_Main: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 136
+    Top = 216
+  end
+  object DataSource1: TDataSource
+    DataSet = CDS_Main
+    Left = 96
+    Top = 216
+  end
+  object ADOQueryTemp: TADOQuery
+    Connection = DataLink_TradeManage.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 1072
+    Top = 8
+  end
+  object ADOQueryCmd: TADOQuery
+    Connection = DataLink_TradeManage.ADOLink
+    Parameters = <>
+    Left = 792
+    Top = 64
+  end
+  object ADOQueryMain: TADOQuery
+    Connection = DataLink_TradeManage.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 872
+    Top = 72
+  end
+  object CDS_Sub: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 320
+    Top = 48
+  end
+  object DataSource2: TDataSource
+    DataSet = CDS_Sub
+    Left = 288
+    Top = 48
+  end
+  object ADOQuerySub: TADOQuery
+    Connection = DataLink_TradeManage.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 680
+    Top = 64
+  end
+  object cxGridPopupMenu2: TcxGridPopupMenu
+    Grid = cxGrid2
+    PopupMenus = <>
+    Left = 56
+    Top = 200
+  end
+  object DS_MainSel: TDataSource
+    DataSet = CDS_MainSel
+    Left = 616
+    Top = 336
+  end
+  object CDS_MainSel: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 648
+    Top = 336
+  end
+  object cxGridPopupMenu4: TcxGridPopupMenu
+    Grid = cxGrid3
+    PopupMenus = <>
+    Left = 832
+    Top = 312
+  end
+  object PopupMenu1: TPopupMenu
+    Left = 288
+    Top = 528
+    object N1: TMenuItem
+      Caption = #20840#36873
+      OnClick = N1Click
+    end
+    object N2: TMenuItem
+      Caption = #20840#24323
+      OnClick = N2Click
+    end
+  end
+  object PopupMenu2: TPopupMenu
+    Left = 936
+    Top = 480
+    object MenuItem1: TMenuItem
+      Caption = #20840#36873
+      OnClick = MenuItem1Click
+    end
+    object MenuItem2: TMenuItem
+      Caption = #20840#24323
+      OnClick = MenuItem2Click
+    end
+  end
+  object ADOQueryPrice: TADOQuery
+    Connection = DataLink_TradeManage.ADOLink
+    Parameters = <>
+    Left = 608
+    Top = 64
+  end
+end

打卷检验管理/U_CpRkSaoMNew.dfm

@@ -0,0 +1,952 @@
+object frmCpRkSaoMNew: TfrmCpRkSaoMNew
+  Left = -8
+  Top = -8
+  Width = 1382
+  Height = 754
+  Caption = #25104#21697#20837#24211#25195#25551
+  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 cxGrid2: TcxGrid
+    Left = 0
+    Top = 209
+    Width = 516
+    Height = 506
+    Align = alLeft
+    TabOrder = 0
+    object Tv1: TcxGridDBTableView
+      PopupMenu = PopupMenu1
+      Navigator.Buttons.CustomButtons = <>
+      DataController.DataSource = DataSource1
+      DataController.Summary.DefaultGroupSummaryItems = <>
+      DataController.Summary.FooterSummaryItems = <
+        item
+          Kind = skSum
+          Column = v2Column5
+        end
+        item
+          Kind = skSum
+          Column = v2Column6
+        end
+        item
+          Kind = skSum
+        end
+        item
+          Kind = skSum
+        end
+        item
+          Kind = skSum
+        end
+        item
+          Kind = skSum
+        end
+        item
+          Format = #21367#25968#37327#65306'#'
+          Kind = skCount
+          Column = v1Column1
+        end>
+      DataController.Summary.SummaryGroups = <>
+      OptionsCustomize.ColumnFiltering = False
+      OptionsView.Footer = True
+      OptionsView.GroupByBox = False
+      object v1Column6: TcxGridDBColumn
+        Caption = #36873#25321
+        DataBinding.FieldName = 'SSel'
+        PropertiesClassName = 'TcxCheckBoxProperties'
+        Properties.NullStyle = nssUnchecked
+        HeaderAlignmentHorz = taCenter
+        Options.Sorting = False
+        Width = 41
+      end
+      object v1Column1: TcxGridDBColumn
+        Caption = #35746#21333#21495
+        DataBinding.FieldName = 'orderNo'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 89
+      end
+      object v1Column3: TcxGridDBColumn
+        Caption = #39068#33394
+        DataBinding.FieldName = 'PRTColor'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 54
+      end
+      object v1Column5: TcxGridDBColumn
+        Caption = #21367#21495
+        DataBinding.FieldName = 'MJXH'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 43
+      end
+      object v1mjid: TcxGridDBColumn
+        Caption = #21367#26465#30721
+        DataBinding.FieldName = 'mjid'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 65
+      end
+      object v2Column5: TcxGridDBColumn
+        Caption = #20844#26020#25968
+        DataBinding.FieldName = 'KGQty'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Options.Focusing = False
+        Width = 67
+      end
+      object v2Column6: TcxGridDBColumn
+        Caption = #38271#24230
+        DataBinding.FieldName = 'Qty'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Options.Focusing = False
+        Width = 56
+      end
+      object v1BaoNo: TcxGridDBColumn
+        Caption = #21253#21495
+        DataBinding.FieldName = 'BaoNo'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 65
+      end
+      object v1baoID: TcxGridDBColumn
+        Caption = #21253#26465#30721
+        DataBinding.FieldName = 'baoID'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 101
+      end
+      object v1Column2: TcxGridDBColumn
+        Caption = #21333#20301
+        DataBinding.FieldName = 'QtyUnit'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 53
+      end
+      object v1Column7: TcxGridDBColumn
+        Caption = #31867#22411
+        DataBinding.FieldName = 'CPType'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 56
+      end
+      object v1Column4: TcxGridDBColumn
+        Caption = #33394#21495
+        DataBinding.FieldName = 'SOrddefstr1'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 50
+      end
+      object v1Column8: TcxGridDBColumn
+        Caption = #32568#21495
+        DataBinding.FieldName = 'AOrdDefStr1'
+        HeaderAlignmentHorz = taCenter
+        Width = 65
+      end
+    end
+    object cxGrid2Level1: TcxGridLevel
+      GridView = Tv1
+    end
+  end
+  object Panel1: TPanel
+    Left = 0
+    Top = 0
+    Width = 1366
+    Height = 209
+    Align = alTop
+    BevelInner = bvRaised
+    BevelOuter = bvLowered
+    TabOrder = 1
+    object Label1: TLabel
+      Left = 58
+      Top = 125
+      Width = 51
+      Height = 16
+      Caption = #21367#26465#30721
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clBlue
+      Font.Height = -16
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label4: TLabel
+      Left = 311
+      Top = 168
+      Width = 68
+      Height = 16
+      Caption = #20837#24211#26102#38388
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -16
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label5: TLabel
+      Left = 9
+      Top = 152
+      Width = 34
+      Height = 48
+      Caption = #20837#24211#13#10' '#21333#13#10#26465#30721
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clRed
+      Font.Height = -16
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label6: TLabel
+      Left = 559
+      Top = 125
+      Width = 34
+      Height = 16
+      Caption = #24211#20301
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clGreen
+      Font.Height = -16
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label7: TLabel
+      Left = 958
+      Top = 172
+      Width = 34
+      Height = 16
+      Caption = #21253#21495
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clBlue
+      Font.Height = -16
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+      Visible = False
+    end
+    object Label8: TLabel
+      Left = 1047
+      Top = 109
+      Width = 40
+      Height = 19
+      Caption = #25171#21253
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -19
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+      Visible = False
+    end
+    object Label9: TLabel
+      Left = 259
+      Top = 124
+      Width = 51
+      Height = 16
+      Caption = #21253#26465#30721
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clBlue
+      Font.Height = -16
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label12: TLabel
+      Left = 844
+      Top = 124
+      Width = 46
+      Height = 12
+      Caption = #21253#25968#65306'0'
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clRed
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label2: TLabel
+      Left = 703
+      Top = 179
+      Width = 34
+      Height = 16
+      Caption = #31867#22411
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -16
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label3: TLabel
+      Left = 703
+      Top = 155
+      Width = 34
+      Height = 16
+      Caption = #32568#21495
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -16
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object BaoID: TEdit
+      Left = 111
+      Top = 121
+      Width = 137
+      Height = 24
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -16
+      Font.Name = #23435#20307
+      Font.Style = []
+      ParentFont = False
+      TabOrder = 0
+      OnKeyPress = BaoIDKeyPress
+    end
+    object Button2: TButton
+      Left = 606
+      Top = 162
+      Width = 75
+      Height = 29
+      Caption = #20851#38381
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -16
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+      TabOrder = 1
+      OnClick = Button2Click
+    end
+    object Button3: TButton
+      Left = 7
+      Top = 116
+      Width = 42
+      Height = 29
+      Caption = #36873#21333
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -16
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+      TabOrder = 2
+      OnClick = Button3Click
+    end
+    object Button1: TButton
+      Left = 507
+      Top = 161
+      Width = 87
+      Height = 31
+      Caption = #25764#38144#20837#24211
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -16
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+      TabOrder = 3
+      OnClick = Button1Click
+    end
+    object cxGrid1: TcxGrid
+      Left = 2
+      Top = 2
+      Width = 1362
+      Height = 103
+      Align = alTop
+      TabOrder = 4
+      object Tv2: TcxGridDBTableView
+        Navigator.Buttons.CustomButtons = <>
+        OnCellDblClick = Tv2CellDblClick
+        DataController.DataSource = DataSource2
+        DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
+        DataController.Summary.DefaultGroupSummaryItems = <>
+        DataController.Summary.FooterSummaryItems = <
+          item
+            Kind = skSum
+          end>
+        DataController.Summary.SummaryGroups = <>
+        OptionsCustomize.ColumnFiltering = False
+        OptionsData.Editing = False
+        OptionsView.GroupByBox = False
+        Styles.Footer = DataLink_TradeManage.Default
+        object v1OrderNo: TcxGridDBColumn
+          Caption = #35746#21333#21495
+          DataBinding.FieldName = 'OrderNo'
+          HeaderAlignmentHorz = taCenter
+          Options.Focusing = False
+          Options.Sorting = False
+          Width = 78
+        end
+        object v2Column2: TcxGridDBColumn
+          Caption = #23458#25143
+          DataBinding.FieldName = 'CustomerNoName'
+          HeaderAlignmentHorz = taCenter
+          Options.Focusing = False
+          Width = 82
+        end
+        object cxGridDBColumn2: TcxGridDBColumn
+          Caption = #20013#25991#21517#31216
+          DataBinding.FieldName = 'PRTCodeName'
+          HeaderAlignmentHorz = taCenter
+          Options.Focusing = False
+          Options.Sorting = False
+          Width = 77
+        end
+        object cxGridDBColumn3: TcxGridDBColumn
+          Caption = #39068#33394
+          DataBinding.FieldName = 'PRTColor'
+          HeaderAlignmentHorz = taCenter
+          Options.Focusing = False
+          Options.Sorting = False
+          Width = 75
+        end
+        object v2Column1: TcxGridDBColumn
+          Caption = #33394#21495
+          DataBinding.FieldName = 'SOrddefstr1'
+          HeaderAlignmentHorz = taCenter
+          Options.Editing = False
+          Width = 60
+        end
+        object v1Column10: TcxGridDBColumn
+          Caption = #35746#21333#25968#37327
+          DataBinding.FieldName = 'PRTOrderQty'
+          HeaderAlignmentHorz = taCenter
+          Options.Focusing = False
+          Width = 64
+        end
+        object v1Column14: TcxGridDBColumn
+          Caption = #35746#21333#21333#20301
+          DataBinding.FieldName = 'OrderUnit'
+          HeaderAlignmentHorz = taCenter
+          Options.Focusing = False
+          Width = 75
+        end
+        object v1PRTMF: TcxGridDBColumn
+          Caption = #38376#24133
+          DataBinding.FieldName = 'PRTMF'
+          HeaderAlignmentHorz = taCenter
+          Options.Focusing = False
+          Options.Sorting = False
+          Width = 60
+        end
+        object v1PRTKZ: TcxGridDBColumn
+          Caption = #20811#37325
+          DataBinding.FieldName = 'PRTKZ'
+          HeaderAlignmentHorz = taCenter
+          Options.Focusing = False
+          Options.Sorting = False
+          Width = 66
+        end
+      end
+      object cxGrid1Level1: TcxGridLevel
+        GridView = Tv2
+      end
+    end
+    object Button5: TButton
+      Left = 464
+      Top = 118
+      Width = 82
+      Height = 31
+      Caption = #25163#24037#20837#24211
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -16
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+      TabOrder = 5
+      OnClick = Button5Click
+    end
+    object CRTime: TDateTimePicker
+      Left = 388
+      Top = 164
+      Width = 107
+      Height = 24
+      Date = 41337.663190821760000000
+      Time = 41337.663190821760000000
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -16
+      Font.Name = #23435#20307
+      Font.Style = []
+      ParentFont = False
+      TabOrder = 6
+    end
+    object Button6: TButton
+      Left = 247
+      Top = 156
+      Width = 43
+      Height = 40
+      Caption = #33719#21462
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -16
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+      TabOrder = 7
+      OnClick = Button6Click
+    end
+    object RKOrdID: TEdit
+      Left = 48
+      Top = 156
+      Width = 200
+      Height = 41
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clBlue
+      Font.Height = -32
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+      TabOrder = 8
+    end
+    object RKPlace: TBtnEditA
+      Left = 594
+      Top = 119
+      Width = 177
+      Height = 29
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -20
+      Font.Name = #23435#20307
+      Font.Style = []
+      ParentFont = False
+      TabOrder = 9
+      OnBtnClick = RKPlaceBtnClick
+    end
+    object BaoNo: TEdit
+      Left = 1121
+      Top = 154
+      Width = 175
+      Height = 44
+      BiDiMode = bdLeftToRight
+      Font.Charset = ANSI_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -32
+      Font.Name = 'Times New Roman'
+      Font.Style = [fsBold]
+      ParentBiDiMode = False
+      ParentFont = False
+      TabOrder = 10
+      Visible = False
+    end
+    object RKOrdPS: TEdit
+      Left = 962
+      Top = 125
+      Width = 91
+      Height = 43
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clRed
+      Font.Height = -35
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+      ReadOnly = True
+      TabOrder = 11
+      Visible = False
+    end
+    object Button7: TButton
+      Left = 994
+      Top = 158
+      Width = 41
+      Height = 40
+      Caption = #25171#21360
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -16
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+      TabOrder = 12
+      Visible = False
+      OnClick = Button7Click
+    end
+    object Button8: TButton
+      Left = 1022
+      Top = 134
+      Width = 96
+      Height = 40
+      Caption = #25171#21360#21253#26631#31614
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clBlue
+      Font.Height = -16
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+      TabOrder = 13
+      Visible = False
+      OnClick = Button8Click
+    end
+    object ComboBox1: TComboBox
+      Left = 1007
+      Top = 124
+      Width = 67
+      Height = 24
+      Style = csDropDownList
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -16
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
+      ItemHeight = 16
+      ParentFont = False
+      TabOrder = 14
+      Visible = False
+      Items.Strings = (
+        #27491#21697
+        #27425#21697
+        #30041#26679
+        '')
+    end
+    object Edit3: TEdit
+      Left = 1020
+      Top = 105
+      Width = 31
+      Height = 27
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -19
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
+      ParentFont = False
+      ReadOnly = True
+      TabOrder = 15
+      Text = #8730
+      Visible = False
+      OnClick = Edit3Click
+    end
+    object MJID: TEdit
+      Left = 311
+      Top = 121
+      Width = 135
+      Height = 24
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -16
+      Font.Name = #23435#20307
+      Font.Style = []
+      ParentFont = False
+      TabOrder = 16
+      OnKeyPress = MJIDKeyPress
+    end
+    object MJType: TComboBox
+      Tag = 2
+      Left = 744
+      Top = 179
+      Width = 97
+      Height = 20
+      ItemHeight = 12
+      TabOrder = 17
+      OnChange = MJTypeChange
+      Items.Strings = (
+        #27491#21697
+        #27425#21697)
+    end
+    object Edit1: TEdit
+      Left = 743
+      Top = 152
+      Width = 97
+      Height = 20
+      TabOrder = 18
+      OnChange = Edit1Change
+    end
+  end
+  object cxGrid3: TcxGrid
+    Left = 516
+    Top = 209
+    Width = 850
+    Height = 506
+    Align = alClient
+    TabOrder = 2
+    object Tv3: TcxGridDBTableView
+      PopupMenu = PopupMenu2
+      Navigator.Buttons.CustomButtons = <>
+      OnCellClick = Tv3CellClick
+      DataController.DataSource = DS_MainSel
+      DataController.Summary.DefaultGroupSummaryItems = <>
+      DataController.Summary.FooterSummaryItems = <
+        item
+          Kind = skSum
+        end
+        item
+          Kind = skSum
+          Column = cxGridDBColumn6
+        end
+        item
+          Format = #21367#25968#37327#65306'#'
+          Kind = skCount
+          Column = cxGridDBColumn1
+        end>
+      DataController.Summary.SummaryGroups = <>
+      OptionsCustomize.ColumnFiltering = False
+      OptionsView.Footer = True
+      OptionsView.GroupByBox = False
+      object v3Column5: TcxGridDBColumn
+        Caption = #36873#25321
+        DataBinding.FieldName = 'SSel'
+        PropertiesClassName = 'TcxCheckBoxProperties'
+        Properties.NullStyle = nssUnchecked
+        HeaderAlignmentHorz = taCenter
+        Options.Sorting = False
+        Width = 44
+      end
+      object cxGridDBColumn1: TcxGridDBColumn
+        Caption = #35746#21333#21495
+        DataBinding.FieldName = 'orderNo'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 98
+      end
+      object v3Column3: TcxGridDBColumn
+        Caption = #39068#33394
+        DataBinding.FieldName = 'PRTColor'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 66
+      end
+      object cxGridDBColumn4: TcxGridDBColumn
+        Caption = #21367#21495
+        DataBinding.FieldName = 'MJXH'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 52
+      end
+      object v3MJID: TcxGridDBColumn
+        Caption = #21367#26465#30721
+        DataBinding.FieldName = 'MJID'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 65
+      end
+      object v3BaoNo: TcxGridDBColumn
+        Caption = #21253#21495
+        DataBinding.FieldName = 'BaoNo'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 60
+      end
+      object v3Baoid: TcxGridDBColumn
+        Caption = #21253#26465#30721
+        DataBinding.FieldName = 'Baoid'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 90
+      end
+      object v3Column1: TcxGridDBColumn
+        Caption = #20844#26020#25968
+        DataBinding.FieldName = 'KgQty'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 59
+      end
+      object cxGridDBColumn6: TcxGridDBColumn
+        Caption = #38271#24230
+        DataBinding.FieldName = 'Qty'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Options.Focusing = False
+        Width = 69
+      end
+      object v3Column2: TcxGridDBColumn
+        Caption = #21333#20301
+        DataBinding.FieldName = 'QtyUnit'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 57
+      end
+      object v3Column6: TcxGridDBColumn
+        Caption = #31867#22411
+        DataBinding.FieldName = 'CPType'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 59
+      end
+      object v3Column7: TcxGridDBColumn
+        Caption = #20837#24211#21333#21495
+        DataBinding.FieldName = 'RKOrdID'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 82
+      end
+      object v3Column4: TcxGridDBColumn
+        Caption = #33394#21495
+        DataBinding.FieldName = 'SOrddefstr1'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 50
+      end
+    end
+    object cxGridLevel1: TcxGridLevel
+      GridView = Tv3
+    end
+  end
+  object MovePanel2: TMovePanel
+    Left = 536
+    Top = 272
+    Width = 289
+    Height = 49
+    BevelInner = bvLowered
+    Caption = #27491#22312#25191#34892#25968#25454#25805#20316#65292#35831#31245#21518#12290#12290#12290
+    Color = clSkyBlue
+    Font.Charset = GB2312_CHARSET
+    Font.Color = clRed
+    Font.Height = -14
+    Font.Name = #23435#20307
+    Font.Style = [fsBold]
+    ParentFont = False
+    TabOrder = 3
+    Visible = False
+  end
+  object cxGridPopupMenu1: TcxGridPopupMenu
+    Grid = cxGrid2
+    PopupMenus = <>
+    Left = 816
+    Top = 48
+  end
+  object CDS_Main: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 132
+    Top = 240
+  end
+  object DataSource1: TDataSource
+    DataSet = CDS_Main
+    Left = 84
+    Top = 248
+  end
+  object ADOQueryTemp: TADOQuery
+    Connection = DataLink_TradeManage.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 624
+    Top = 56
+  end
+  object ADOQueryCmd: TADOQuery
+    Connection = DataLink_TradeManage.ADOLink
+    Parameters = <>
+    Left = 664
+    Top = 40
+  end
+  object ADOQueryMain: TADOQuery
+    Connection = DataLink_TradeManage.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 728
+    Top = 48
+  end
+  object CDS_Sub: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 808
+    Top = 48
+  end
+  object DataSource2: TDataSource
+    DataSet = CDS_Sub
+    Left = 856
+    Top = 48
+  end
+  object ADOQuerySub: TADOQuery
+    Connection = DataLink_TradeManage.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 688
+    Top = 56
+  end
+  object cxGridPopupMenu2: TcxGridPopupMenu
+    Grid = cxGrid2
+    PopupMenus = <>
+    Left = 60
+    Top = 177
+  end
+  object cxGridPopupMenu3: TcxGridPopupMenu
+    PopupMenus = <>
+    Left = 776
+    Top = 48
+  end
+  object DS_MainSel: TDataSource
+    DataSet = CDS_MainSel
+    Left = 616
+    Top = 336
+  end
+  object CDS_MainSel: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 648
+    Top = 336
+  end
+  object cxGridPopupMenu4: TcxGridPopupMenu
+    Grid = cxGrid3
+    PopupMenus = <>
+    Left = 832
+    Top = 312
+  end
+  object PopupMenu1: TPopupMenu
+    Left = 344
+    Top = 544
+    object N1: TMenuItem
+      Caption = #20840#36873
+      OnClick = N1Click
+    end
+    object N2: TMenuItem
+      Caption = #20840#24323
+      OnClick = N2Click
+    end
+  end
+  object PopupMenu2: TPopupMenu
+    Left = 936
+    Top = 480
+    object MenuItem1: TMenuItem
+      Caption = #20840#36873
+      OnClick = MenuItem1Click
+    end
+    object MenuItem2: TMenuItem
+      Caption = #20840#24323
+      OnClick = MenuItem2Click
+    end
+  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 = 664
+    Top = 64
+    ReportData = {}
+  end
+  object ADOQueryPrt: TADOQuery
+    Connection = DataLink_TradeManage.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 952
+    Top = 72
+  end
+  object RMDB_Main: TRMDBDataSet
+    Visible = True
+    DataSet = ADOQueryPrt
+    Left = 776
+    Top = 384
+  end
+end