111

A00通用窗体/U_LabelPrint.pas

@@ -9,27 +9,11 @@ uses
   cxGridTableView, cxGridDBTableView, cxGridLevel, cxClasses, cxControls,
   cxGridCustomView, cxGrid, DBClient, ADODB, ImgList, StdCtrls, ExtCtrls,
   cxTextEdit, cxGridCustomPopupMenu, cxGridPopupMenu, cxLookAndFeels,
-  cxLookAndFeelPainters,   cxNavigator,
+  cxLookAndFeelPainters, cxNavigator, dxDateRanges, dxBarBuiltInMenu,
-  dxDateRanges, dxBarBuiltInMenu, System.ImageList, U_BaseInput, RM_Common,
+  System.ImageList, U_BaseInput, RM_Common, RM_Class, RM_GridReport, RM_Dataset,
-  RM_Class, RM_GridReport, RM_Dataset, Vcl.Buttons, RM_E_llPDF, RM_BarCode,
+  Vcl.Buttons, RM_E_llPDF, RM_BarCode, RM_e_Graphic, RM_e_Jpeg, RM_e_Xls,
-  RM_e_Graphic, RM_e_Jpeg, RM_e_Xls, cxContainer, cxMaskEdit, cxDropDownEdit,
+  cxContainer, cxMaskEdit, cxDropDownEdit, cxMRUEdit, RM_RichEdit, dxSkinsCore,
-  cxMRUEdit,    
+  dxSkinsDefaultPainters;
-     
-    
-     
-     
-    
-    
-    
-    
-    
-    
-     
-      
-     
-   
-     
-   RM_RichEdit;
 
 type
   TfrmLabelPrint = class(TfrmBaseHelp)

A02基础产品管理/ClothInfo.dproj.local

@@ -6,32 +6,32 @@
     <Transaction>1899-12-30 00:00:00.000.208,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用方法\AES\JDAESExtend.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.290,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_TatClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.993,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ReportImgSet.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.873,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm</Transaction>
     <Transaction>1899-12-30 00:00:00.000.893,D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_ReceivableEdit.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B01基础合同管理\U_ReceivableEdit_XT.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.558,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_ReceivableEdit.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.305,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_KnitClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm</Transaction>
     <Transaction>1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.536,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.096,D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_TatClothInfo_CB.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_TatClothInfo.dfm</Transaction>
     <Transaction>1899-12-30 00:00:00.000.431,D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo_Tat.dfm=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo.dfm</Transaction>
     <Transaction>1899-12-30 00:00:00.000.472,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.003,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_InputBoxSingleNumber.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.034,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用方法\uSZHN_JSON.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.816,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnInfoInPut.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.431,D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo_Tat.pas=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.921,=D:\Dp10RepoV1\public10\ThreeFun\Form\U_SysLogHelp.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.034,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用方法\uSZHN_JSON.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.003,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_InputBoxSingleNumber.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.346,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.226,D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_WBSpecInPut2.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_WBSpecInPut.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.441,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A02基础产品管理\U_ClothInfo.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.337,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.980,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用方法\uFomat_JSON.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.873,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.418,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A02基础产品管理\U_ClothInfoInput.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.993,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ReportImgSet.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=</Transaction>
@@ -46,9 +46,9 @@
     <Transaction>1899-12-30 00:00:00.000.944,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用方法\U_HttpFun.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.629,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_WBSpecSel.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.272,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_YarnInList_Sel.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.504,=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothType.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.833,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用组件\FrameDateTimeSel.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.504,=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothType.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.217,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.754,D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_TatClothInfo.pas=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo_Tat.pas</Transaction>
@@ -58,19 +58,19 @@
     <Transaction>1899-12-30 00:00:00.000.290,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_TatClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.754,D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_TatClothInfo.dfm=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo_Tat.dfm</Transaction>
     <Transaction>1899-12-30 00:00:00.000.684,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用组件\FrameDateSel.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.518,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.129,=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfoImport.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.806,D:\Dp10Repo\项目代码\RTBasics\A00通用模板\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\ClothInfo.dproj</Transaction>
     <Transaction>1899-12-30 00:00:00.000.243,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用方法\AES\untAES.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.187,D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas=</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</Transaction>
     <Transaction>1899-12-30 00:00:00.000.305,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_KnitClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.187,D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas=</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.518,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.503,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas</Transaction>
   </Transactions>
@@ -121,7 +121,6 @@
     <File Path="..\A00通用窗体\U_CompanySel.dfm"/>
     <File Path="..\A00通用窗体\U_EmployeeSel.pas"/>
     <File Path="..\A00通用窗体\U_EmployeeSel.dfm"/>
-    <File Path="..\A00通用窗体\U_FactoryInput2.pas"/>
     <File Path="..\A00通用窗体\U_InputBoxSingleNumber.pas"/>
     <File Path="..\A00通用窗体\U_InputBoxSingleNumber.dfm"/>
     <File Path="..\A00通用窗体\U_KnitClothInfoSel.pas"/>

A02基础产品管理/ProjectGroup1.groupproj.local

@@ -2,6 +2,6 @@
 <BorlandProject>
 	<Transactions/>
 	<Default.Personality>
-		<Projects ActiveProject="D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\ClothInfo.dproj"/>
+		<Projects ActiveProject="D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A02基础产品管理\ClothInfo.dproj"/>
 	</Default.Personality>
 </BorlandProject>

A02基础产品管理/U_TatClothInfo.dfm

@@ -724,6 +724,7 @@ inherited frmTatClothInfo: TfrmTatClothInfo
       Height = 367
       Align = alBottom
       TabOrder = 2
+      Visible = False
       Properties.ActivePage = cxTabSheet1
       Properties.CustomButtons.Buttons = <>
       Properties.Style = 9
@@ -773,6 +774,8 @@ inherited frmTatClothInfo: TfrmTatClothInfo
             Height = 337
             Align = alClient
             TabOrder = 1
+            ExplicitLeft = 4
+            ExplicitTop = 0
             object TV2: TcxGridDBTableView
               Navigator.Buttons.CustomButtons = <>
               ScrollbarAnnotations.CustomAnnotations = <>
@@ -1162,7 +1165,6 @@ inherited frmTatClothInfo: TfrmTatClothInfo
           ImeName = #20013#25991'('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
           ParentFont = False
           TabOrder = 0
-          ExplicitHeight = 25
         end
       end
       object cxTabSheet5: TcxTabSheet

A02基础产品管理/U_TatClothInfoInput.dfm

@@ -3,14 +3,14 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput
   Top = 231
   Anchors = []
   Caption = #26797#32455#20135#21697#20449#24687#24405#20837
-  ClientHeight = 801
+  ClientHeight = 737
   ClientWidth = 1442
   Color = clWhite
   Font.Height = -16
   OldCreateOrder = True
   Position = poScreenCenter
   ExplicitWidth = 1458
-  ExplicitHeight = 840
+  ExplicitHeight = 776
   PixelsPerInch = 96
   TextHeight = 21
   object ToolBar1: TToolBar [0]
@@ -444,23 +444,28 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput
     Left = 0
     Top = 393
     Width = 1442
-    Height = 408
+    Height = 344
     Align = alClient
     TabOrder = 2
+    Visible = False
     Properties.ActivePage = cxTabSheet1
     Properties.CustomButtons.Buttons = <>
     Properties.Style = 9
-    ClientRectBottom = 408
+    ExplicitHeight = 2
+    ClientRectBottom = 344
     ClientRectRight = 1442
     ClientRectTop = 28
     object cxTabSheet1: TcxTabSheet
       Caption = #32463#19997#32452#21512
       ImageIndex = 0
+      ExplicitTop = 0
+      ExplicitWidth = 0
+      ExplicitHeight = 0
       object GroupBox1: TGroupBox
         Left = 931
         Top = 0
         Width = 511
-        Height = 380
+        Height = 316
         Align = alClient
         Caption = #32463#25490#21015
         Font.Charset = GB2312_CHARSET
@@ -470,28 +475,31 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput
         Font.Style = [fsBold]
         ParentFont = False
         TabOrder = 0
+        ExplicitHeight = 0
         object Y_Note_PLJ: TMemo
           Tag = 2
           Left = 2
           Top = 31
           Width = 507
-          Height = 347
+          Height = 283
           Align = alClient
           TabOrder = 0
+          ExplicitHeight = 19
         end
       end
       object Panel1: TPanel
         Left = 0
         Top = 0
         Width = 931
-        Height = 380
+        Height = 316
         Align = alLeft
         TabOrder = 1
+        ExplicitHeight = 0
         object cxPageControl2: TcxPageControl
           Left = 1
           Top = 1
           Width = 929
-          Height = 378
+          Height = 314
           Align = alClient
           Color = clWhite
           Font.Charset = GB2312_CHARSET
@@ -506,7 +514,8 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput
           Visible = False
           Properties.CustomButtons.Buttons = <>
           Properties.Style = 6
-          ClientRectBottom = 378
+          ExplicitHeight = 6
+          ClientRectBottom = 314
           ClientRectRight = 929
           ClientRectTop = 0
         end
@@ -514,10 +523,11 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput
           Left = 1
           Top = 1
           Width = 929
-          Height = 378
+          Height = 314
           Align = alClient
           PopupMenu = PM_1
           TabOrder = 1
+          ExplicitHeight = 6
           object TV1: TcxGridDBTableView
             Navigator.Buttons.CustomButtons = <>
             ScrollbarAnnotations.CustomAnnotations = <>
@@ -692,7 +702,7 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput
         Left = 961
         Top = 0
         Width = 481
-        Height = 380
+        Height = 316
         Align = alClient
         Caption = #32428#25490#21015
         Font.Charset = GB2312_CHARSET
@@ -707,7 +717,7 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput
           Left = 2
           Top = 31
           Width = 477
-          Height = 347
+          Height = 283
           Align = alClient
           TabOrder = 0
         end
@@ -716,14 +726,14 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput
         Left = 0
         Top = 0
         Width = 961
-        Height = 380
+        Height = 316
         Align = alLeft
         TabOrder = 1
         object cxPageControl1: TcxPageControl
           Left = 1
           Top = 1
           Width = 959
-          Height = 378
+          Height = 314
           Align = alClient
           Color = clWhite
           Font.Charset = GB2312_CHARSET
@@ -738,7 +748,7 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput
           Visible = False
           Properties.CustomButtons.Buttons = <>
           Properties.Style = 6
-          ClientRectBottom = 378
+          ClientRectBottom = 314
           ClientRectRight = 959
           ClientRectTop = 0
         end
@@ -746,7 +756,7 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput
           Left = 1
           Top = 1
           Width = 959
-          Height = 378
+          Height = 314
           Align = alClient
           PopupMenu = PM_2
           TabOrder = 1
@@ -994,12 +1004,10 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput
         Left = 0
         Top = 32
         Width = 1442
-        Height = 348
+        Height = 284
         Align = alClient
         ImeName = #20013#25991'('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
         TabOrder = 1
-        ExplicitTop = 0
-        ExplicitHeight = 380
       end
     end
     object cxTabSheet4: TcxTabSheet
@@ -1010,7 +1018,7 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput
         Left = 0
         Top = 0
         Width = 1442
-        Height = 380
+        Height = 316
         Align = alClient
         ImeName = #20013#25991'('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
         TabOrder = 0
@@ -1024,7 +1032,7 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput
         Left = 0
         Top = 0
         Width = 1442
-        Height = 380
+        Height = 316
         Align = alClient
         ImeName = #20013#25991'('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
         TabOrder = 0
@@ -1042,8 +1050,8 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput
     Top = 318
   end
   inherited ImageList_new32: TImageList
-    Left = 409
+    Left = 404
-    Top = 514
+    Top = 547
   end
   inherited cxImageList_bar: TcxImageList
     FormatVersion = 1
@@ -1072,8 +1080,8 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput
   end
   object DS_1: TDataSource
     DataSet = CDS_1
-    Left = 256
+    Left = 255
-    Top = 602
+    Top = 609
   end
   object CDS_2: TClientDataSet
     Aggregates = <>
@@ -1095,8 +1103,8 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput
     DrawingStyle = dsTransparent
     Height = 32
     Width = 32
-    Left = 486
+    Left = 489
-    Top = 520
+    Top = 557
     Bitmap = {
       494C010119002400040020002000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
       000000000000360000002800000080000000E0000000010020000000000000C0
@@ -4815,14 +4823,14 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput
   object GPM_1: TcxGridPopupMenu
     Grid = cxGrid1
     PopupMenus = <>
-    Left = 192
+    Left = 198
-    Top = 622
+    Top = 608
   end
   object GPM_2: TcxGridPopupMenu
     Grid = cxGrid2
     PopupMenus = <>
-    Left = 500
+    Left = 324
-    Top = 653
+    Top = 608
   end
   object GPM_4: TcxGridPopupMenu
     PopupMenus = <>
@@ -4844,16 +4852,16 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput
     Top = 326
   end
   object PM_1: TPopupMenu
-    Left = 223
+    Left = 269
-    Top = 477
+    Top = 546
     object N1: TMenuItem
       Caption = #28165#31354
       OnClick = N1Click
     end
   end
   object PM_2: TPopupMenu
-    Left = 299
+    Left = 322
-    Top = 474
+    Top = 549
     object MenuItem1: TMenuItem
       Caption = #28165#31354
       OnClick = MenuItem1Click

A02基础产品管理/U_TatClothInfoInput.pas

@@ -373,128 +373,128 @@ procedure TfrmTatClothInfoInput.JSJS();
 var
   GS, ZGS, MF, DS, WM, TW: double;
 begin
-  if CDS_1.IsEmpty then
+//  if CDS_1.IsEmpty then
-    exit;
+//    exit;
-  with CDS_1 do
+//  with CDS_1 do
-  begin
+//  begin
-    DisableControls;
+//    DisableControls;
-    first;
+//    first;
-    while not eof do
+//    while not eof do
-    begin
+//    begin
-
+//
-      with CDS_1 do
+//      with CDS_1 do
-      begin
+//      begin
-
+//
-        if FieldByName('YarnQty').Value = null then
+//        if FieldByName('YarnQty').Value = null then
-        begin
+//        begin
-          GS := 0;   //根数
+//          GS := 0;   //根数
-        end
+//        end
-        else
+//        else
-        begin
+//        begin
-          GS := FieldByName('YarnQty').Value;   //根数
+//          GS := FieldByName('YarnQty').Value;   //根数
-        end;
+//        end;
-
+//
-        if FieldByName('CycleYarnQty').Value = null then
+//        if FieldByName('CycleYarnQty').Value = null then
-        begin
+//        begin
-          ZGS := 0; //循环根数
+//          ZGS := 0; //循环根数
-        end
+//        end
-        else
+//        else
-        begin
+//        begin
-          ZGS := FieldByName('CycleYarnQty').Value; //循环根数
+//          ZGS := FieldByName('CycleYarnQty').Value; //循环根数
-        end;
+//        end;
-
+//
-        MF := strtofloatdef(C_ReedWidth.text, 0);    //筘幅
+//        MF := strtofloatdef(C_ReedWidth.text, 0);    //筘幅
-
+//
-        TW := strtofloatdef(C_YarnQty.text, 0);    //头纹
+//        TW := strtofloatdef(C_YarnQty.text, 0);    //头纹
-
+//
-        if FieldByName('TestDenier').Value = null then
+//        if FieldByName('TestDenier').Value = null then
-        begin
+//        begin
-          DS := 0;     //D数
+//          DS := 0;     //D数
-        end
+//        end
-        else
+//        else
-        begin
+//        begin
-          DS := FieldByName('TestDenier').Value;     //D数
+//          DS := FieldByName('TestDenier').Value;     //D数
-        end;
+//        end;
-
+//
-        WM := strtofloatdef(C_FinishLatitudeDensity.text, 0); //纬密
+//        WM := strtofloatdef(C_FinishLatitudeDensity.text, 0); //纬密
-      end;
+//      end;
-      if ZGS <> 0 then
+//      if ZGS <> 0 then
-      begin
+//      begin
-        with CDS_1 do
+//        with CDS_1 do
-        begin
+//        begin
-          Edit;
+//          Edit;
-          FieldByName('MeterQty').Value := roundfloat(GS / ZGS * TW * DS / 9000, 2);
+//          FieldByName('MeterQty').Value := roundfloat(GS / ZGS * TW * DS / 9000, 2);
-          Post;
+//          Post;
-        end;
+//        end;
-      end;
+//      end;
-      next;
+//      next;
-    end;
+//    end;
-    First;
+//    First;
-    EnableControls;
+//    EnableControls;
-  end;
+//  end;
 end;
 
 procedure TfrmTatClothInfoInput.JSWS();
 var
   GS, ZGS, MF, DS, WM: double;
 begin
-  if CDS_2.IsEmpty then
+//  if CDS_2.IsEmpty then
-    exit;
+//    exit;
-  with CDS_2 do
+//  with CDS_2 do
-  begin
+//  begin
-    DisableControls;
+//    DisableControls;
-    first;
+//    first;
-    while not eof do
+//    while not eof do
-    begin
+//    begin
-
+//
-      with CDS_2 do
+//      with CDS_2 do
-      begin
+//      begin
-
+//
-        if FieldByName('YarnQty').Value = null then
+//        if FieldByName('YarnQty').Value = null then
-        begin
+//        begin
-          GS := 0;   //根数
+//          GS := 0;   //根数
-        end
+//        end
-        else
+//        else
-        begin
+//        begin
-          GS := FieldByName('YarnQty').Value;   //根数
+//          GS := FieldByName('YarnQty').Value;   //根数
-        end;
+//        end;
-
+//
-        if FieldByName('CycleYarnQty').Value = null then
+//        if FieldByName('CycleYarnQty').Value = null then
-        begin
+//        begin
-          ZGS := 0; //循环根数
+//          ZGS := 0; //循环根数
-        end
+//        end
-        else
+//        else
-        begin
+//        begin
-          ZGS := FieldByName('CycleYarnQty').Value; //循环根数
+//          ZGS := FieldByName('CycleYarnQty').Value; //循环根数
-        end;
+//        end;
-
+//
-        MF := strtofloatdef(C_ReedWidth.text, 0) + 15;    //筘幅
+//        MF := strtofloatdef(C_ReedWidth.text, 0) + 15;    //筘幅
-
+//
-        if FieldByName('TestDenier').Value = null then
+//        if FieldByName('TestDenier').Value = null then
-        begin
+//        begin
-          DS := 0;     //D数
+//          DS := 0;     //D数
-        end
+//        end
-        else
+//        else
-        begin
+//        begin
-          DS := FieldByName('TestDenier').Value;     //D数
+//          DS := FieldByName('TestDenier').Value;     //D数
-        end;
+//        end;
-
+//
-        WM := strtofloatdef(C_FinishLatitudeDensity.text, 0); //纬密
+//        WM := strtofloatdef(C_FinishLatitudeDensity.text, 0); //纬密
-      end;
+//      end;
-      if ZGS <> 0 then
+//      if ZGS <> 0 then
-      begin
+//      begin
-        with CDS_2 do
+//        with CDS_2 do
-        begin
+//        begin
-          Edit;
+//          Edit;
-          FieldByName('MeterQty').Value := roundfloat(GS / ZGS * MF * DS * WM / 9000, 2);
+//          FieldByName('MeterQty').Value := roundfloat(GS / ZGS * MF * DS * WM / 9000, 2);
-          Post;
+//          Post;
-        end;
+//        end;
-      end;
+//      end;
-      next;
+//      next;
-    end;
+//    end;
-    First;
+//    First;
-    EnableControls;
+//    EnableControls;
-  end;
+//  end;
 end;
 
 procedure TfrmTatClothInfoInput.MenuItem1Click(Sender: TObject);
@@ -551,27 +551,27 @@ procedure TfrmTatClothInfoInput.JSKZ();
 var
   SumJS, SumWS: double;
 begin
-  C_GramWeight.SetFocus;
+//  C_GramWeight.SetFocus;
-
+//
-  if Tv1.DataController.Summary.FooterSummaryValues[0] <> null then
+//  if Tv1.DataController.Summary.FooterSummaryValues[0] <> null then
-  begin
+//  begin
-    SumJS := Tv1.DataController.Summary.FooterSummaryValues[0];
+//    SumJS := Tv1.DataController.Summary.FooterSummaryValues[0];
-  end
+//  end
-  else
+//  else
-  begin
+//  begin
-    SumJS := 0;
+//    SumJS := 0;
-  end;
+//  end;
-
+//
-  if Tv2.DataController.Summary.FooterSummaryValues[0] <> null then
+//  if Tv2.DataController.Summary.FooterSummaryValues[0] <> null then
-  begin
+//  begin
-    SumWS := Tv2.DataController.Summary.FooterSummaryValues[0];
+//    SumWS := Tv2.DataController.Summary.FooterSummaryValues[0];
-  end
+//  end
-  else
+//  else
-  begin
+//  begin
-    SumWS := 0;
+//    SumWS := 0;
-  end;
+//  end;
-
+//
-  C_GramWeight.text := floattostr(roundfloat((SumJS + SumWS) / 3, 2));
+//  C_GramWeight.text := floattostr(roundfloat((SumJS + SumWS) / 3, 2));
 end;
 
 procedure TfrmTatClothInfoInput.FormShow(Sender: TObject);

A05基础资料管理/BaseInfo.dpr

@@ -32,9 +32,11 @@ uses
   FrameDateSel in '..\A00通用组件\FrameDateSel.pas' {frmFrameDateSel: TFrame},
   U_EmployeeSel in '..\A00通用窗体\U_EmployeeSel.pas' {frmEmployeeSel},
   uSZHN_JSON in '..\..\..\public10\ThreeFun\Fun\uSZHN_JSON.pas',
-  U_GKManage in 'U_GKManage.pas' {frmGKManage},
   U_GKInput in 'U_GKInput.pas' {frmGKInput},
-  U_CompanySel in '..\A00通用窗体\U_CompanySel.pas' {frmCompanySel};
+  U_CompanySel in '..\A00通用窗体\U_CompanySel.pas' {frmCompanySel},
+  U_GKDRList in 'U_GKDRList.pas' {frmGKDRList},
+  U_GKDRtInPut in 'U_GKDRtInPut.pas' {frmGKDRtInPut},
+  U_GKManage_Sel in 'U_GKManage_Sel.pas' {frmGKManage_Sel};
 
 {$R *.res}
 

A05基础资料管理/BaseInfo.dproj

@@ -202,10 +202,6 @@
             <FormType>dfm</FormType>
         </DCCReference>
         <DCCReference Include="..\..\..\public10\ThreeFun\Fun\uSZHN_JSON.pas"/>
-        <DCCReference Include="U_GKManage.pas">
-            <Form>frmGKManage</Form>
-            <FormType>dfm</FormType>
-        </DCCReference>
         <DCCReference Include="U_GKInput.pas">
             <Form>frmGKInput</Form>
             <FormType>dfm</FormType>
@@ -214,6 +210,18 @@
             <Form>frmCompanySel</Form>
             <FormType>dfm</FormType>
         </DCCReference>
+        <DCCReference Include="U_GKDRList.pas">
+            <Form>frmGKDRList</Form>
+            <FormType>dfm</FormType>
+        </DCCReference>
+        <DCCReference Include="U_GKDRtInPut.pas">
+            <Form>frmGKDRtInPut</Form>
+            <FormType>dfm</FormType>
+        </DCCReference>
+        <DCCReference Include="U_GKManage_Sel.pas">
+            <Form>frmGKManage_Sel</Form>
+            <FormType>dfm</FormType>
+        </DCCReference>
         <BuildConfiguration Include="Debug">
             <Key>Cfg_2</Key>
             <CfgParent>Base</CfgParent>

A05基础资料管理/BaseInfo.dproj.local

@@ -1,26 +1,32 @@
 <?xml version="1.0" encoding="utf-8"?>
 <BorlandProject>
 	<Transactions>
-    <Transaction>1899-12-30 00:00:00.000.657,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.446,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.272,=D:\Dp10RepoV1\项目代码\D10szJinCheng\A00通用窗体\U_EmployeeSel.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.185,D:\Dp10RepoV1\项目代码\花蝴蝶\A05基础资料管理\U_PositionInPut.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\A05基础资料管理\U_MachineInPut.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.446,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.657,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.500,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKInput.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.440,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_HLManage.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_MachineManage.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.251,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_HLManage.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKManage.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.260,D:\Dp10Repo\项目代码\RTBasics\A05基础资料管理\U_PositionList.pas=D:\Dp10Repo\项目代码\RTBasics\A05基础资料管理\U_KuWeiManage.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.467,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.440,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_MachineManage.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_HLManage.dfm</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.888,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_CompanySel.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.185,D:\Dp10RepoV1\项目代码\花蝴蝶\A05基础资料管理\U_MachineInPut.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\A05基础资料管理\U_PositionInPut.dfm</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.872,D:\Dp10Repo\项目代码\RTBasics\A05基础资料管理\U_LbaelMapList.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.dfm</Transaction>
     <Transaction>1899-12-30 00:00:00.000.824,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.185,D:\Dp10RepoV1\项目代码\花蝴蝶\A05基础资料管理\U_PositionInPut.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\A05基础资料管理\U_MachineInPut.dfm</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.440,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_HLManage.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_MachineManage.dfm</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.440,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_MachineManage.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_HLManage.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.251,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_HLManage.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKManage.dfm</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.013,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.260,D:\Dp10Repo\项目代码\RTBasics\A05基础资料管理\U_PositionList.dfm=D:\Dp10Repo\项目代码\RTBasics\A05基础资料管理\U_KuWeiManage.dfm</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.144,=D:\Dp10RepoV1\项目代码\花蝴蝶\A05基础资料管理\U_MachineInPut.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.409,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.872,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas=D:\Dp10Repo\项目代码\RTBasics\A05基础资料管理\U_LbaelMapList.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.185,D:\Dp10RepoV1\项目代码\花蝴蝶\A05基础资料管理\U_MachineInPut.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\A05基础资料管理\U_PositionInPut.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.872,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.dfm=D:\Dp10Repo\项目代码\RTBasics\A05基础资料管理\U_LbaelMapList.dfm</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.144,=D:\Dp10RepoV1\项目代码\花蝴蝶\A05基础资料管理\U_MachineInPut.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.260,D:\Dp10Repo\项目代码\RTBasics\A05基础资料管理\U_KuWeiManage.dfm=D:\Dp10Repo\项目代码\RTBasics\A05基础资料管理\U_PositionList.dfm</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.013,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.260,D:\Dp10Repo\项目代码\RTBasics\A05基础资料管理\U_KuWeiManage.pas=D:\Dp10Repo\项目代码\RTBasics\A05基础资料管理\U_PositionList.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.872,D:\Dp10Repo\项目代码\RTBasics\A05基础资料管理\U_LbaelMapList.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.293,=D:\Dp10RepoV1\项目代码\D10szJinCheng\A00通用组件\FrameDateSel.pas</Transaction>
-    <Transaction>2025-03-01 08:11:52.251,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKManage.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_HLManage.dfm</Transaction>
+    <Transaction>2025-03-04 23:03:41.987,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKManage_CX.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKManage.pas</Transaction>
-    <Transaction>2025-03-01 08:11:52.251,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKManage.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_HLManage.pas</Transaction>
+    <Transaction>2025-03-04 23:03:41.987,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKManage_CX.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKManage.dfm</Transaction>
-    <Transaction>2025-03-01 08:22:04.500,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKInput.pas</Transaction>
+    <Transaction>2025-03-04 23:12:55.116,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKDRList.pas</Transaction>
-    <Transaction>2025-03-01 08:31:18.888,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_CompanySel.pas</Transaction>
+    <Transaction>2025-03-04 23:15:05.471,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKDRtInPut.pas</Transaction>
+    <Transaction>2025-03-04 23:30:55.369,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKManage_Sel.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKManage_CX.pas</Transaction>
+    <Transaction>2025-03-04 23:30:55.369,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKManage_Sel.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKManage_CX.dfm</Transaction>
   </Transactions>
 </BorlandProject>

A05基础资料管理/U_GKDRList.dfm

@@ -0,0 +1,623 @@
+inherited frmGKDRList: TfrmGKDRList
+  Left = 220
+  Top = 16
+  BorderStyle = bsNone
+  Caption = #38050#31576#25253#24223#30003#35831
+  ClientHeight = 594
+  ClientWidth = 1453
+  FormStyle = fsMDIChild
+  Position = poScreenCenter
+  Visible = True
+  ExplicitWidth = 1469
+  ExplicitHeight = 633
+  PixelsPerInch = 96
+  TextHeight = 17
+  object ToolBar1: TToolBar [0]
+    Tag = 1
+    Left = 0
+    Top = 0
+    Width = 1453
+    Height = 38
+    AutoSize = True
+    ButtonHeight = 38
+    ButtonWidth = 91
+    Caption = 'ToolBar1'
+    Color = clSkyBlue
+    DisabledImages = DataLink_BaseInfo.ImageList_new32
+    Font.Charset = GB2312_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -12
+    Font.Name = #23435#20307
+    Font.Style = []
+    Images = DataLink_BaseInfo.ImageList_new32
+    List = True
+    ParentColor = False
+    ParentFont = False
+    ShowCaptions = True
+    TabOrder = 4
+    object TBRafresh: TToolButton
+      Left = 0
+      Top = 0
+      AutoSize = True
+      Caption = #21047#26032
+      ImageIndex = 1
+      OnClick = TBRafreshClick
+    end
+    object TBFind: TToolButton
+      Left = 71
+      Top = 0
+      AutoSize = True
+      Caption = #36807#28388
+      ImageIndex = 0
+      OnClick = TBFindClick
+    end
+    object TBAdd: TToolButton
+      Left = 142
+      Top = 0
+      AutoSize = True
+      Caption = #26032#22686
+      ImageIndex = 9
+      OnClick = TBAddClick
+    end
+    object ToolButton1: TToolButton
+      Left = 213
+      Top = 0
+      AutoSize = True
+      Caption = #26597#30475
+      ImageIndex = 4
+      OnClick = ToolButton1Click
+    end
+    object TBDel: TToolButton
+      Left = 284
+      Top = 0
+      AutoSize = True
+      Caption = #21024#38500
+      ImageIndex = 5
+      OnClick = TBDelClick
+    end
+    object TBEdit: TToolButton
+      Left = 355
+      Top = 0
+      AutoSize = True
+      Caption = #20462#25913
+      ImageIndex = 3
+      OnClick = TBEditClick
+    end
+    object TBPrint: TToolButton
+      Left = 426
+      Top = 0
+      AutoSize = True
+      Caption = #25171#21360
+      ImageIndex = 21
+      Visible = False
+      OnClick = TBPrintClick
+    end
+    object tchk: TToolButton
+      Left = 497
+      Top = 0
+      AutoSize = True
+      Caption = #23457#26680
+      ImageIndex = 12
+      OnClick = tchkClick
+    end
+    object Tnochk: TToolButton
+      Left = 568
+      Top = 0
+      AutoSize = True
+      Caption = #25764#38144#23457#26680
+      ImageIndex = 11
+      OnClick = TnochkClick
+    end
+    object btnWC: TToolButton
+      Left = 663
+      Top = 0
+      AutoSize = True
+      Caption = #23436#25104
+      ImageIndex = 12
+      Visible = False
+      OnClick = btnWCClick
+    end
+    object btnWCCX: TToolButton
+      Left = 734
+      Top = 0
+      AutoSize = True
+      Caption = #25764#38144#23436#25104
+      ImageIndex = 11
+      Visible = False
+      OnClick = btnWCCXClick
+    end
+    object TBExport: TToolButton
+      Left = 829
+      Top = 0
+      AutoSize = True
+      Caption = #23548#20986
+      ImageIndex = 20
+      OnClick = TBExportClick
+    end
+    object ToolButton6: TToolButton
+      Left = 900
+      Top = 0
+      AutoSize = True
+      Caption = #20445#23384#26684#24335
+      ImageIndex = 16
+      OnClick = ToolButton6Click
+    end
+    object TBClose: TToolButton
+      Left = 995
+      Top = 0
+      AutoSize = True
+      Caption = #20851#38381
+      ImageIndex = 7
+      OnClick = TBCloseClick
+    end
+  end
+  object cxGrid1: TcxGrid [1]
+    Left = 0
+    Top = 127
+    Width = 1453
+    Height = 176
+    Align = alClient
+    TabOrder = 3
+    ExplicitHeight = 276
+    object Tv1: TcxGridDBTableView
+      Navigator.Buttons.CustomButtons = <>
+      ScrollbarAnnotations.CustomAnnotations = <>
+      OnFocusedRecordChanged = Tv1FocusedRecordChanged
+      DataController.DataSource = DataSource1
+      DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
+      DataController.Summary.DefaultGroupSummaryItems = <
+        item
+          Kind = skSum
+          Position = spFooter
+        end
+        item
+          Kind = skSum
+          Position = spFooter
+        end
+        item
+          Kind = skSum
+          Position = spFooter
+        end
+        item
+          Kind = skSum
+          Position = spFooter
+        end
+        item
+          Kind = skSum
+          Position = spFooter
+        end
+        item
+          Kind = skSum
+          Position = spFooter
+        end
+        item
+          Kind = skSum
+          Position = spFooter
+        end
+        item
+          Kind = skSum
+          Position = spFooter
+        end
+        item
+          Kind = skSum
+          Position = spFooter
+        end
+        item
+          Kind = skSum
+          Position = spFooter
+        end
+        item
+          Kind = skSum
+          Position = spFooter
+        end>
+      DataController.Summary.FooterSummaryItems = <>
+      DataController.Summary.SummaryGroups = <>
+      OptionsCustomize.ColumnFiltering = False
+      OptionsView.Footer = True
+      OptionsView.GroupByBox = False
+      OptionsView.GroupFooters = gfAlwaysVisible
+      OptionsView.IndicatorWidth = 30
+      object v1Column4: TcxGridDBColumn
+        Caption = #36873#25321
+        DataBinding.FieldName = 'SSel'
+        DataBinding.IsNullValueType = True
+        PropertiesClassName = 'TcxCheckBoxProperties'
+        Properties.ImmediatePost = True
+        Properties.MultiLine = True
+        Properties.NullStyle = nssUnchecked
+        HeaderAlignmentHorz = taCenter
+        Width = 49
+      end
+      object v1Column8: TcxGridDBColumn
+        Caption = #25253#24223#21333#21495
+        DataBinding.FieldName = 'DRMID'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 93
+      end
+      object v1OrdDate: TcxGridDBColumn
+        Caption = #30003#35831#26085#26399
+        DataBinding.FieldName = 'Filltime'
+        DataBinding.IsNullValueType = True
+        PropertiesClassName = 'TcxDateEditProperties'
+        Properties.ShowTime = False
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Options.Focusing = False
+        Width = 85
+      end
+      object v1Column1: TcxGridDBColumn
+        Caption = #30003#35831#20154
+        DataBinding.FieldName = 'Filler'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 66
+      end
+      object v1Column13: TcxGridDBColumn
+        Caption = #23457#26680#20154
+        DataBinding.FieldName = 'Chker'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 65
+      end
+      object v1Column17: TcxGridDBColumn
+        Caption = #23457#26680#26085#26399
+        DataBinding.FieldName = 'ChkTime'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 66
+      end
+      object v1Column7: TcxGridDBColumn
+        Caption = #25253#24223#21407#22240
+        DataBinding.FieldName = 'Note'
+        DataBinding.IsNullValueType = True
+        PropertiesClassName = 'TcxTextEditProperties'
+        Properties.OnEditValueChanged = v1Column7PropertiesEditValueChanged
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 70
+      end
+    end
+    object cxGrid1Level1: TcxGridLevel
+      GridView = Tv1
+    end
+  end
+  object Panel1: TPanel [2]
+    Left = 0
+    Top = 38
+    Width = 1453
+    Height = 58
+    Align = alTop
+    BevelInner = bvRaised
+    BevelOuter = bvLowered
+    Color = clWhite
+    ParentBackground = False
+    TabOrder = 5
+    object Label4: TLabel
+      Left = 701
+      Top = 15
+      Width = 48
+      Height = 17
+      Caption = #25253#24223#21407#22240
+    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 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 = 309
+      Top = 15
+      Width = 5
+      Height = 17
+      Caption = '-'
+    end
+    object Label1: TLabel
+      Left = 494
+      Top = 15
+      Width = 48
+      Height = 17
+      Caption = #25253#24223#21333#21495
+    end
+    object BegDate: TDateTimePicker
+      Left = 159
+      Top = 13
+      Width = 120
+      Height = 20
+      Date = 40675.000000000000000000
+      Format = 'yyyy-MM-dd'
+      Time = 0.464742650459811600
+      TabOrder = 0
+    end
+    object EndDate: TDateTimePicker
+      Left = 344
+      Top = 13
+      Width = 120
+      Height = 20
+      Date = 40675.000000000000000000
+      Format = 'yyyy-MM-dd'
+      Time = 0.464761099538009100
+      TabOrder = 1
+    end
+    object Note: TEdit
+      Tag = 2
+      Left = 779
+      Top = 11
+      Width = 115
+      Height = 25
+      TabOrder = 2
+      OnChange = NoteChange
+    end
+    object MPRTCodeName: TEdit
+      Tag = 2
+      Left = 483
+      Top = 95
+      Width = 76
+      Height = 25
+      TabOrder = 4
+      OnChange = NoteChange
+    end
+    object MPRTKZ: TEdit
+      Tag = 2
+      Left = 332
+      Top = 95
+      Width = 56
+      Height = 25
+      TabOrder = 3
+      OnChange = NoteChange
+    end
+    object MPRTMF: TEdit
+      Tag = 2
+      Left = 332
+      Top = 119
+      Width = 56
+      Height = 25
+      TabOrder = 5
+      OnChange = NoteChange
+    end
+    object CheckBox1: TCheckBox
+      Left = 9
+      Top = 15
+      Width = 120
+      Height = 17
+      Caption = #30331#35760#26085#26399
+      Checked = True
+      State = cbChecked
+      TabOrder = 6
+    end
+    object DRMID: TEdit
+      Tag = 2
+      Left = 572
+      Top = 11
+      Width = 99
+      Height = 25
+      TabOrder = 7
+      OnChange = NoteChange
+    end
+  end
+  object cxTabControl1: TcxTabControl [3]
+    Left = 0
+    Top = 96
+    Width = 1453
+    Height = 31
+    Align = alTop
+    TabOrder = 2
+    Properties.CustomButtons.Buttons = <>
+    Properties.Style = 9
+    Properties.TabIndex = 0
+    Properties.Tabs.Strings = (
+      #26410#23457#26680
+      #24050#23457#26680
+      #20840#37096)
+    OnChange = cxTabControl1Change
+    ClientRectBottom = 31
+    ClientRectRight = 1453
+    ClientRectTop = 24
+  end
+  object cxSplitter1: TcxSplitter [4]
+    Left = 0
+    Top = 586
+    Width = 1453
+    Height = 8
+    HotZoneClassName = 'TcxMediaPlayer9Style'
+    AlignSplitter = salBottom
+  end
+  inherited cxProgressBar2: TcxProgressBar
+    Left = 284
+    Top = 204
+    ExplicitLeft = 284
+    ExplicitTop = 204
+    ExplicitHeight = 25
+  end
+  object cxGrid2: TcxGrid [7]
+    Left = 0
+    Top = 303
+    Width = 1453
+    Height = 283
+    Align = alBottom
+    TabOrder = 7
+    object Tv2: TcxGridDBTableView
+      Navigator.Buttons.CustomButtons = <>
+      ScrollbarAnnotations.CustomAnnotations = <>
+      DataController.DataSource = DS_2
+      DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
+      DataController.Summary.DefaultGroupSummaryItems = <
+        item
+          Format = '0'
+          Position = spFooter
+        end
+        item
+          Format = '0'
+          Position = spFooter
+        end
+        item
+          Format = '0'
+          Position = spFooter
+        end>
+      DataController.Summary.FooterSummaryItems = <
+        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
+      object Tv1Column1: TcxGridDBColumn
+        Caption = #38050#25187#24207#21495
+        DataBinding.FieldName = 'GKNo'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 120
+      end
+      object Tv1Column2: TcxGridDBColumn
+        Caption = #38050#25187#31576#21495
+        DataBinding.FieldName = 'GKKH'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 120
+      end
+      object Tv1Column3: TcxGridDBColumn
+        Caption = #38050#25187#40831#25968
+        DataBinding.FieldName = 'GKCS'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 120
+      end
+      object Tv1Column4: TcxGridDBColumn
+        Caption = #38050#25187#32534#21495
+        DataBinding.FieldName = 'GKBH'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 120
+      end
+      object Tv1Column5: TcxGridDBColumn
+        Caption = #38050#25187#35268#26684
+        DataBinding.FieldName = 'GKSpec'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 120
+      end
+    end
+    object cxGridLevel1: TcxGridLevel
+      GridView = Tv2
+    end
+  end
+  inherited ADOQueryBaseCmd: TADOQuery
+    Connection = DataLink_BaseInfo.ADOLink
+    Left = 73
+    Top = 224
+  end
+  inherited ADOQueryBaseTemp: TADOQuery
+    Connection = DataLink_BaseInfo.ADOLink
+    Left = 73
+    Top = 161
+  end
+  object cxGridPopupMenu1: TcxGridPopupMenu
+    Grid = cxGrid1
+    PopupMenus = <>
+    Left = 753
+    Top = 313
+  end
+  object ADOQueryCmd: TADOQuery
+    Connection = DataLink_BaseInfo.ADOLink
+    Parameters = <>
+    Left = 440
+    Top = 156
+  end
+  object ADOQueryMain: TADOQuery
+    Connection = DataLink_BaseInfo.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 560
+    Top = 160
+  end
+  object ADOQueryTemp: TADOQuery
+    Connection = DataLink_BaseInfo.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 688
+    Top = 152
+  end
+  object DataSource1: TDataSource
+    DataSet = Order_Main
+    Left = 968
+    Top = 184
+  end
+  object Order_Main: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 936
+    Top = 184
+  end
+  object DS_2: TDataSource
+    DataSet = ClientDataSet2
+    Left = 352
+    Top = 600
+  end
+  object ClientDataSet2: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 272
+    Top = 592
+  end
+  object GPM_2: TcxGridPopupMenu
+    PopupMenus = <>
+    Left = 408
+    Top = 600
+  end
+  object cxGridPopupMenu2: TcxGridPopupMenu
+    Grid = cxGrid2
+    PopupMenus = <>
+    Left = 870
+    Top = 332
+  end
+end

A05基础资料管理/U_GKDRList.pas

@@ -0,0 +1,683 @@
+unit U_GKDRList;
+
+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,
+  cxDropDownEdit, cxTextEdit, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator,
+  dxBarBuiltInMenu, U_BaseList, dxDateRanges, dxScrollbarAnnotations,
+  cxContainer, cxProgressBar, dxSkinsCore, dxSkinsDefaultPainters;
+
+type
+  TfrmGKDRList = class(TfrmBaseList)
+    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;
+    Order_Main: TClientDataSet;
+    ToolButton1: TToolButton;
+    v1Column4: TcxGridDBColumn;
+    Panel1: TPanel;
+    Label4: TLabel;
+    Label8: TLabel;
+    Label12: TLabel;
+    Label13: TLabel;
+    BegDate: TDateTimePicker;
+    EndDate: TDateTimePicker;
+    Note: TEdit;
+    MPRTCodeName: TEdit;
+    MPRTKZ: TEdit;
+    MPRTMF: TEdit;
+    cxTabControl1: TcxTabControl;
+    tchk: TToolButton;
+    Tnochk: TToolButton;
+    cxSplitter1: TcxSplitter;
+    DS_2: TDataSource;
+    v1Column8: TcxGridDBColumn;
+    Label2: TLabel;
+    ClientDataSet2: TClientDataSet;
+    GPM_2: TcxGridPopupMenu;
+    v1Column13: TcxGridDBColumn;
+    v1Column17: TcxGridDBColumn;
+    v1Column1: TcxGridDBColumn;
+    v1Column7: TcxGridDBColumn;
+    btnWC: TToolButton;
+    btnWCCX: TToolButton;
+    CheckBox1: TCheckBox;
+    ToolButton6: TToolButton;
+    Label1: TLabel;
+    cxGrid2: TcxGrid;
+    Tv2: TcxGridDBTableView;
+    Tv1Column1: TcxGridDBColumn;
+    Tv1Column2: TcxGridDBColumn;
+    Tv1Column3: TcxGridDBColumn;
+    Tv1Column4: TcxGridDBColumn;
+    Tv1Column5: TcxGridDBColumn;
+    cxGridLevel1: TcxGridLevel;
+    cxGridPopupMenu2: TcxGridPopupMenu;
+    //RMllPDFExport1: TRMllPDFExport;
+    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 FormShow(Sender: TObject);
+    procedure CheckBox1Click(Sender: TObject);
+    procedure CheckBox2Click(Sender: TObject);
+    procedure ToolButton1Click(Sender: TObject);
+    procedure NoteChange(Sender: TObject);
+    procedure tchkClick(Sender: TObject);
+    procedure TnochkClick(Sender: TObject);
+    procedure cxTabControl1Change(Sender: TObject);
+    procedure btnWCClick(Sender: TObject);
+    procedure Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean);
+    procedure btnWCCXClick(Sender: TObject);
+    procedure v1Column7PropertiesEditValueChanged(Sender: TObject);
+    procedure Tv1Column9PropertiesEditValueChanged(Sender: TObject);
+    procedure ToolButton6Click(Sender: TObject);
+  private
+    procedure InitGrid();
+    procedure InitSubGrid();
+    procedure InitForm();
+    procedure SetStatus();
+    function DelData(): Boolean;
+    { Private declarations }
+  public
+    FFInt: Integer;
+    canshu1, canshu2: string;
+    { Public declarations }
+  end;
+
+//var
+  //frmContractListNX: TfrmContractListNX;
+
+implementation
+
+uses
+  U_DataLink, U_GKDRtInPut, U_RTFun, U_ZDYHelp, U_LabelPrint;
+
+{$R *.dfm}
+
+procedure TfrmGKDRList.SetStatus();
+begin
+  tchk.Enabled := False;
+  Tnochk.Enabled := False;
+  btnWC.Enabled := False;
+  btnWCCX.Enabled := False;
+  if canshu1 = '管理' then
+  begin
+    case cxTabControl1.TabIndex of
+      0:
+        begin
+          tchk.Enabled := true;
+        end;
+      1:
+        begin
+          Tnochk.Enabled := true;
+
+        end;
+      2:
+        begin
+
+        end;
+    end;
+  end
+  else
+  begin
+  end;
+end;
+
+procedure TfrmGKDRList.FormDestroy(Sender: TObject);
+begin
+  inherited;
+  //frmFHSQList:=nil;
+
+end;
+
+procedure TfrmGKDRList.FormClose(Sender: TObject; var Action: TCloseAction);
+begin
+  inherited;
+  Action := caFree;
+end;
+
+procedure TfrmGKDRList.TBCloseClick(Sender: TObject);
+begin
+  Close;
+end;
+
+procedure TfrmGKDRList.InitGrid();
+begin
+  try
+    ADOQueryMain.DisableControls;
+    with ADOQueryMain do
+    begin
+      Filtered := False;
+      Close;
+      sql.Clear;
+      Sql.Add(' select A.*  ');
+      sql.Add(' from Tat_Cloth_DR_Main A where 1=1 and LX=''钢扣''  ');
+      if CheckBox1.Checked then
+      begin
+        sql.Add(' and Filltime>=''' + FormatDateTime('yyyy-MM-dd', begdate.DateTime) + ''' ');
+        sql.Add(' and Filltime<''' + FormatDateTime('yyyy-MM-dd', Enddate.DateTime + 1) + ''' ');
+      end;
+      case cxTabControl1.TabIndex of
+        0:
+          begin
+            SQL.Add(' and isnull(A.status,''0'')=''0'' ');
+          end;
+        1:
+          begin
+            SQL.Add(' and isnull(A.status,''0'')=''9'' ');
+          end;
+        2:
+          begin
+            SQL.Add(' and isnull(A.status,''0'')=''10'' ');
+          end;
+      end;
+
+//      if Trim(canshu1) <> '管理' then
+//      begin
+//        sql.Add(' and isnull(A.Filler,'''')=''' + Trim(DName) + '''');
+//      end;
+      sql.Add(' order by  Filltime desc ');
+//      ShowMessage(sql.Text);
+      Open;
+    end;
+    SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
+    SCreateCDS(ADOQueryMain, Order_Main);
+    SInitCDSData(ADOQueryMain, Order_Main);
+  finally
+    ADOQueryMain.EnableControls;
+    TV1.DataController.Filter.Clear;
+    TV2.DataController.Filter.Clear;
+  end;
+end;
+
+procedure TfrmGKDRList.InitForm();
+begin
+
+  ReadCxGrid(trim(self.Caption) + 'Tv1', Tv1, '发货管理');
+  ReadCxGrid(trim(self.Caption) + 'Tv2', Tv2, '发货管理');
+
+  EndDate.DateTime := SGetServerDate(ADOQueryTemp);
+  BegDate.DateTime := EndDate.DateTime - 60;
+  InitGrid();
+
+end;
+
+procedure TfrmGKDRList.TBFindClick(Sender: TObject);
+begin
+  if ADOQueryMain.Active = False then
+    Exit;
+  SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
+  SCreateCDS(ADOQueryMain, Order_Main);
+  SInitCDSData(ADOQueryMain, Order_Main);
+end;
+
+procedure TfrmGKDRList.TBEditClick(Sender: TObject);
+begin
+  if Order_Main.IsEmpty then
+    Exit;
+//  if cxTabControl1.TabIndex <> 0 then
+//    Exit;
+
+  try
+    frmGKDRtInPut := TfrmGKDRtInPut.Create(Application);
+    with frmGKDRtInPut do
+    begin
+      PState := 1;
+      FDRMID := Trim(Self.Order_Main.fieldbyname('DRMID').AsString);
+      if ShowModal = 1 then
+      begin
+        InitGrid();
+      end;
+    end;
+  finally
+    frmGKDRtInPut.Free;
+  end;
+end;
+
+procedure TfrmGKDRList.TBDelClick(Sender: TObject);
+begin
+  if Order_Main.IsEmpty then
+    Exit;
+  if cxTabControl1.TabIndex <> 0 then
+    Exit;
+
+  if Application.MessageBox('确定要删除数据吗？', '提示', 32 + 4) <> IDYES then
+    Exit;
+  if DelData() then
+  begin
+    Order_Main.Delete;
+    InitSubGrid();
+  end;
+end;
+
+function TfrmGKDRList.DelData(): Boolean;
+begin
+  try
+    with Order_Main do
+    begin
+      DisableControls;
+      First;
+      while not eof do
+      begin
+        if fieldbyname('SSel').AsBoolean then
+        begin
+          Result := false;
+          ADOQueryCmd.Connection.BeginTrans;
+          with ADOQueryCmd do
+          begin
+            Close;
+            sql.Clear;
+            sql.Add('delete Tat_Cloth_DR_Sub where DRMID=''' + Trim(Order_Main.fieldbyname('DRMID').AsString) + '''');
+            ExecSQL;
+          end;
+          with ADOQueryCmd do
+          begin
+            Close;
+            sql.Clear;
+            sql.Add('delete Tat_Cloth_DR_Main where DRMID=''' + Trim(Order_Main.fieldbyname('DRMID').AsString) + '''');
+            ExecSQL;
+          end;
+        end;
+        next;
+      end;
+      First;
+      EnableControls;
+    end;
+    ADOQueryCmd.Connection.CommitTrans;
+    Result := True;
+  except
+    ADOQueryCmd.Connection.RollbackTrans;
+    Result := False;
+    Application.MessageBox('数据删除异常！', '提示', 0);
+  end;
+end;
+
+procedure TfrmGKDRList.TBExportClick(Sender: TObject);
+begin
+  if ADOQueryMain.IsEmpty then
+    Exit;
+//  SelExportData(Tv1, ADOQueryMain, '发货申请列表');
+end;
+
+procedure TfrmGKDRList.TBPrintClick(Sender: TObject);
+begin
+  if Order_Main.IsEmpty then
+    Exit;
+
+  try
+    frmLabelPrint := TfrmLabelPrint.Create(Application);
+    with frmLabelPrint do
+    begin
+      FLMType := 'TradeClothDR1';
+      FFiltration1 := Trim(self.Order_Main.fieldbyname('DRMID').AsString);
+      if ShowModal = 1 then
+      begin
+
+      end;
+    end;
+  finally
+    frmLabelPrint.Free;
+  end;
+end;
+
+procedure TfrmGKDRList.TBRafreshClick(Sender: TObject);
+begin
+  InitGrid();
+end;
+
+procedure TfrmGKDRList.TBAddClick(Sender: TObject);
+var
+  maxno: string;
+begin
+  try
+    frmGKDRtInPut := TfrmGKDRtInPut.Create(Application);
+    with frmGKDRtInPut do
+    begin
+      PState := 0;
+      FDRMID := '';
+      if ShowModal = 1 then
+      begin
+        InitGrid();
+      end;
+    end;
+  finally
+    frmGKDRtInPut.Free;
+  end;
+end;
+
+procedure TfrmGKDRList.FormShow(Sender: TObject);
+begin
+  inherited;
+  canshu1 := self.fParameters1;
+  InitForm();
+  SetStatus();
+end;
+
+procedure TfrmGKDRList.CheckBox1Click(Sender: TObject);
+begin
+  InitGrid();
+end;
+
+procedure TfrmGKDRList.CheckBox2Click(Sender: TObject);
+begin
+  TBRafresh.Click;
+end;
+
+procedure TfrmGKDRList.ToolButton1Click(Sender: TObject);
+begin
+  if Order_Main.IsEmpty then
+    Exit;
+  try
+    frmGKDRtInPut := TfrmGKDRtInPut.Create(Application);
+    with frmGKDRtInPut do
+    begin
+      PState := 1;
+      FDRMID := Trim(Self.Order_Main.fieldbyname('DRMID').AsString);
+      ToolBar2.Visible := False;
+      TBSave.Visible := False;
+      ScrollBox1.Enabled := False;
+      Tv1.OptionsSelection.CellSelect := False;
+      if ShowModal = 1 then
+      begin
+
+      end;
+    end;
+  finally
+    frmGKDRtInPut.Free;
+  end;
+end;
+
+procedure TfrmGKDRList.NoteChange(Sender: TObject);
+begin
+  if ADOQueryMain.Active = False then
+    Exit;
+  SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
+  SCreateCDS(ADOQueryMain, Order_Main);
+  SInitCDSData(ADOQueryMain, Order_Main);
+end;
+
+procedure TfrmGKDRList.tchkClick(Sender: TObject);
+begin
+  if Order_Main.IsEmpty then
+    exit;
+  if cxTabControl1.TabIndex <> 0 then
+    exit;
+  try
+    with Order_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 Tat_Cloth_DR_Main SET Chker=''' + Trim(DName) + ''',ChkTime=getdate(),Status=''9'' ');
+            sql.Add('where DRMID=' + quotedstr(trim(Order_Main.fieldbyname('DRMID').AsString)));
+            execsql;
+          end;
+        end;
+        next;
+      end;
+      First;
+      EnableControls;
+    end;
+
+    Order_Main.Delete;
+    InitSubGrid();
+    application.MessageBox('审核成功！', '提示信息');
+  except
+    application.MessageBox('审核失败！', '提示信息', 0);
+  end;
+end;
+
+procedure TfrmGKDRList.InitSubGrid();
+begin
+
+  with ADOQueryTemp do
+  begin
+    Close;
+    sql.Clear;
+    sql.Add('select A.* ');
+    sql.Add('from Tat_Cloth_DR_Sub A   where A.DRMID=''' + Trim(Order_Main.fieldbyname('DRMID').AsString) + '''');
+    Open;
+  end;
+  SCreateCDS(ADOQueryTemp, ClientDataSet2);
+  SInitCDSData(ADOQueryTemp, ClientDataSet2);
+end;
+
+procedure TfrmGKDRList.TnochkClick(Sender: TObject);
+begin
+  if Order_Main.IsEmpty then
+    exit;
+  if cxTabControl1.TabIndex <> 1 then
+    exit;
+  try
+    with Order_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  Tat_Cloth_DR_Main SET Chker=Null,ChkTime=Null,status=''0'' ');
+            sql.Add('where DRMID=' + quotedstr(trim(Order_Main.fieldbyname('DRMID').AsString)));
+            execsql;
+          end;
+        end;
+        next;
+      end;
+      First;
+      EnableControls;
+    end;
+    Order_Main.Delete;
+    application.MessageBox('撤销成功！', '提示信息');
+  except
+    application.MessageBox('撤销失败！', '提示信息', 0);
+  end;
+end;
+
+procedure TfrmGKDRList.cxTabControl1Change(Sender: TObject);
+begin
+  TBRafresh.Click;
+  SetStatus();
+end;
+
+procedure TfrmGKDRList.btnWCCXClick(Sender: TObject);
+begin
+  if Order_Main.IsEmpty then
+    exit;
+  try
+    with Order_Main do
+    begin
+      DisableControls;
+      First;
+      while not eof do
+      begin
+        if fieldbyname('SSel').AsBoolean then
+        begin
+          with ADOQueryTemp do
+          begin
+            Close;
+            sql.Clear;
+            sql.Add('exec P_Fin_Judge_All @DataID=' + quotedstr(trim(Order_Main.fieldbyname('DRMID').AsString)));
+            Open;
+          end;
+          if ADOQueryTemp.FieldByName('intReturn').AsInteger = -1 then
+          begin
+            Application.MessageBox(PChar(ADOQueryTemp.fieldbyname('ShowMsg').AsString), '提示', 0);
+            exit;
+          end;
+
+          with ADOQueryCmd do
+          begin
+            close;
+            sql.Clear;
+            sql.Add('update  Tat_Cloth_DR_Main SET status=''9'' ,Comper=null,Comptime=null ');
+            sql.Add('where DRMID=' + quotedstr(trim(Order_Main.fieldbyname('DRMID').AsString)));
+            execsql;
+          end;
+        end;
+        next;
+      end;
+      First;
+      EnableControls;
+    end;
+    InitGrid();
+    InitSubGrid();
+    application.MessageBox('操作成功！', '提示信息');
+  except
+    application.MessageBox('操作失败！', '提示信息', 0);
+  end;
+end;
+
+procedure TfrmGKDRList.ToolButton6Click(Sender: TObject);
+begin
+  WriteCxGrid(trim(self.Caption) + 'Tv1', Tv1, '发货管理');
+  WriteCxGrid(trim(self.Caption) + 'Tv2', Tv2, '发货管理');
+end;
+
+procedure TfrmGKDRList.btnWCClick(Sender: TObject);
+begin
+  if Order_Main.IsEmpty then
+    exit;
+  try
+    with Order_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  Tat_Cloth_DR_Main SET status=''10'' ,Comper=''' + Trim(DName) + ''',Comptime=getdate() ');
+            sql.Add('where DRMID=' + quotedstr(trim(Order_Main.fieldbyname('DRMID').AsString)));
+            execsql;
+          end;
+        end;
+        next;
+      end;
+      First;
+      EnableControls;
+    end;
+    InitGrid();
+    InitSubGrid();
+    application.MessageBox('操作成功！', '提示信息');
+  except
+    application.MessageBox('操作失败！', '提示信息', 0);
+  end;
+end;
+
+procedure TfrmGKDRList.Tv1Column9PropertiesEditValueChanged(Sender: TObject);
+var
+  mvalue, FFieldName: string;
+begin
+  mvalue := TcxTextEdit(Sender).EditingText;
+  FFieldName := Trim(Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName);
+
+  if mvalue = '' then
+  begin
+    with ADOQueryCmd do
+    begin
+      Close;
+      SQL.Clear;
+      sql.Add('update Tat_Cloth_DR_Main set  ' + FFieldName + '=' + 'NULL');
+      sql.Add('where  DRMID=' + quotedstr(Trim(Order_Main.fieldbyname('DRMID').AsString)));
+      ExecSQL;
+    end;
+  end
+  else
+  begin
+    with Order_Main do
+    begin
+      Edit;
+      FieldByName(FFieldName).Value := mvalue;
+      Post;
+    end;
+
+    with ADOQueryCmd do
+    begin
+      Close;
+      SQL.Clear;
+      sql.Add('update Tat_Cloth_DR_Main set  ' + FFieldName + '=' + quotedstr(Trim(mvalue)));
+      sql.Add('where  DRMID=' + quotedstr(Trim(Order_Main.fieldbyname('DRMID').AsString)));
+      ExecSQL;
+    end;
+  end;
+
+  tv1.Controller.EditingController.ShowEdit();
+end;
+
+procedure TfrmGKDRList.Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean);
+begin
+  InitSubGrid();
+end;
+
+procedure TfrmGKDRList.v1Column7PropertiesEditValueChanged(Sender: TObject);
+var
+  mvalue, FFieldName: string;
+begin
+  mvalue := TcxTextEdit(Sender).EditingText;
+  FFieldName := Trim(Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName);
+  with Order_Main do
+  begin
+    Edit;
+    FieldByName(FFieldName).Value := mvalue;
+    Post;
+
+  end;
+
+  with ADOQueryCmd do
+  begin
+    Close;
+    SQL.Clear;
+    sql.Add('update Tat_Cloth_DR_Main set  ' + FFieldName + '=' + quotedstr(Trim(mvalue)));
+    sql.Add('where  DRMID=' + quotedstr(Trim(Order_Main.fieldbyname('DRMID').AsString)));
+    ExecSQL;
+  end;
+  tv1.Controller.EditingController.ShowEdit();
+end;
+
+end.
+

A05基础资料管理/U_GKDRtInPut.dfm

@@ -0,0 +1,330 @@
+object frmGKDRtInPut: TfrmGKDRtInPut
+  Left = 302
+  Top = 139
+  Caption = #25253#24223#24405#20837
+  ClientHeight = 644
+  ClientWidth = 1252
+  Color = clWhite
+  Font.Charset = GB2312_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -12
+  Font.Name = #23435#20307
+  Font.Style = []
+  OldCreateOrder = True
+  Position = poScreenCenter
+  OnShow = FormShow
+  PixelsPerInch = 96
+  TextHeight = 12
+  object ToolBar1: TToolBar
+    Tag = 1
+    Left = 0
+    Top = 0
+    Width = 1252
+    Height = 38
+    AutoSize = True
+    ButtonHeight = 38
+    ButtonWidth = 91
+    Caption = 'ToolBar1'
+    Color = clWhite
+    DisabledImages = DataLink_BaseInfo.ImageList_new32
+    EdgeInner = esNone
+    EdgeOuter = esNone
+    Font.Charset = GB2312_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -12
+    Font.Name = #23435#20307
+    Font.Style = []
+    Images = DataLink_BaseInfo.ImageList_new32
+    List = True
+    ParentColor = False
+    ParentFont = False
+    ShowCaptions = True
+    TabOrder = 0
+    object TBSave: TToolButton
+      Left = 0
+      Top = 0
+      AutoSize = True
+      Caption = #20445#23384
+      ImageIndex = 16
+      OnClick = TBSaveClick
+    end
+    object ToolButton4: TToolButton
+      Left = 71
+      Top = 0
+      AutoSize = True
+      Caption = #20445#23384#26684#24335
+      ImageIndex = 16
+      OnClick = ToolButton4Click
+    end
+    object TBClose: TToolButton
+      Left = 166
+      Top = 0
+      AutoSize = True
+      Caption = #20851#38381
+      ImageIndex = 7
+      OnClick = TBCloseClick
+    end
+  end
+  object ScrollBox1: TScrollBox
+    Left = 0
+    Top = 38
+    Width = 1252
+    Height = 75
+    Align = alTop
+    BevelInner = bvNone
+    BevelOuter = bvNone
+    Color = clWhite
+    Ctl3D = False
+    ParentColor = False
+    ParentCtl3D = False
+    TabOrder = 1
+    ExplicitTop = 32
+    object Label1: TLabel
+      Left = 244
+      Top = 13
+      Width = 52
+      Height = 12
+      Caption = #30003#35831#20154#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 = 31
+      Top = 42
+      Width = 65
+      Height = 12
+      Caption = #25253#24223#21407#22240#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 = 31
+      Top = 13
+      Width = 65
+      Height = 12
+      Caption = #25253#24223#26085#26399#65306
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clBlack
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Note: TEdit
+      Tag = 1
+      Left = 96
+      Top = 39
+      Width = 346
+      Height = 18
+      TabOrder = 0
+    end
+    object DlyDate: TDateTimePicker
+      Tag = 1
+      Left = 96
+      Top = 9
+      Width = 132
+      Height = 20
+      Date = 40675.000000000000000000
+      Format = 'yyyy-MM-dd'
+      Time = 0.464761099538009100
+      TabOrder = 1
+    end
+    object Filler: TEdit
+      Tag = 1
+      Left = 302
+      Top = 10
+      Width = 140
+      Height = 18
+      TabOrder = 2
+    end
+  end
+  object ToolBar2: TToolBar
+    Tag = 1
+    Left = 0
+    Top = 113
+    Width = 1252
+    Height = 38
+    AutoSize = True
+    ButtonHeight = 38
+    ButtonWidth = 91
+    Caption = 'ToolBar1'
+    Color = clBtnFace
+    DisabledImages = DataLink_BaseInfo.ImageList_new32
+    EdgeInner = esNone
+    EdgeOuter = esNone
+    Font.Charset = GB2312_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -12
+    Font.Name = #23435#20307
+    Font.Style = []
+    Images = DataLink_BaseInfo.ImageList_new32
+    List = True
+    ParentColor = False
+    ParentFont = False
+    ShowCaptions = True
+    TabOrder = 2
+    object ToolButton3: TToolButton
+      Left = 0
+      Top = 0
+      AutoSize = True
+      Caption = #38050#31576#36873#25321
+      ImageIndex = 12
+      OnClick = ToolButton3Click
+    end
+    object ToolButton1: TToolButton
+      Left = 95
+      Top = 0
+      AutoSize = True
+      Caption = #22686#34892
+      ImageIndex = 2
+      Visible = False
+      OnClick = ToolButton1Click
+    end
+    object ToolButton2: TToolButton
+      Left = 166
+      Top = 0
+      AutoSize = True
+      Caption = #21024#34892
+      ImageIndex = 6
+      OnClick = ToolButton2Click
+    end
+  end
+  object cxGrid1: TcxGrid
+    Left = 0
+    Top = 151
+    Width = 1252
+    Height = 493
+    Align = alClient
+    TabOrder = 3
+    ExplicitTop = 150
+    object Tv1: TcxGridDBTableView
+      Navigator.Buttons.CustomButtons = <>
+      ScrollbarAnnotations.CustomAnnotations = <>
+      DataController.DataSource = DataSource1
+      DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
+      DataController.Summary.DefaultGroupSummaryItems = <
+        item
+          Format = '0'
+          Position = spFooter
+        end
+        item
+          Format = '0'
+          Position = spFooter
+        end
+        item
+          Format = '0'
+          Position = spFooter
+        end>
+      DataController.Summary.FooterSummaryItems = <
+        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
+      object Tv1Column1: TcxGridDBColumn
+        Caption = #38050#25187#24207#21495
+        DataBinding.FieldName = 'GKNo'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 120
+      end
+      object Tv1Column2: TcxGridDBColumn
+        Caption = #38050#25187#31576#21495
+        DataBinding.FieldName = 'GKKH'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 120
+      end
+      object Tv1Column3: TcxGridDBColumn
+        Caption = #38050#25187#40831#25968
+        DataBinding.FieldName = 'GKCS'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 120
+      end
+      object Tv1Column4: TcxGridDBColumn
+        Caption = #38050#25187#32534#21495
+        DataBinding.FieldName = 'GKBH'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 120
+      end
+      object Tv1Column5: TcxGridDBColumn
+        Caption = #38050#25187#35268#26684
+        DataBinding.FieldName = 'GKSpec'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 120
+      end
+    end
+    object cxGrid1Level1: TcxGridLevel
+      GridView = Tv1
+    end
+  end
+  object ADOTemp: TADOQuery
+    Connection = DataLink_BaseInfo.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 256
+    Top = 281
+  end
+  object ADOCmd: TADOQuery
+    Connection = DataLink_BaseInfo.ADOLink
+    Parameters = <>
+    Left = 328
+    Top = 281
+  end
+  object DataSource1: TDataSource
+    DataSet = Order_Sub
+    Left = 684
+    Top = 276
+  end
+  object Order_Sub: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 596
+    Top = 284
+  end
+  object ADOQuery1: TADOQuery
+    Connection = DataLink_BaseInfo.ADOLink
+    Parameters = <>
+    Left = 188
+    Top = 281
+  end
+  object cxGridPopupMenu2: TcxGridPopupMenu
+    Grid = cxGrid1
+    PopupMenus = <>
+    Left = 456
+    Top = 276
+  end
+  object cxStyleRepository1: TcxStyleRepository
+    Left = 200
+    Top = 432
+    PixelsPerInch = 96
+    object dazi1: TcxStyle
+      AssignedValues = [svColor]
+      Color = clRed
+    end
+  end
+end

A05基础资料管理/U_GKDRtInPut.pas

@@ -0,0 +1,390 @@
+unit U_GKDRtInPut;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage,
+  cxEdit, DB, cxDBData, cxGridLevel, cxGridCustomTableView, cxGridTableView,
+  cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid, cxMemo,
+  cxRichEdit, ComCtrls, cxContainer, cxTextEdit, cxMaskEdit, cxButtonEdit,
+  StdCtrls, ToolWin, DBClient, ADODB, ExtCtrls, BtnEdit, cxCalendar, StrUtils,
+  cxDropDownEdit, cxGridCustomPopupMenu, cxGridPopupMenu, cxLookAndFeels,
+  cxLookAndFeelPainters, cxNavigator, dxDateRanges, dxBarBuiltInMenu, U_BaseList,
+  dxScrollbarAnnotations, dxSkinsCore, dxSkinsDefaultPainters;
+
+type
+  TfrmGKDRtInPut = class(Tform)
+    ToolBar1: TToolBar;
+    TBSave: TToolButton;
+    TBClose: TToolButton;
+    ScrollBox1: TScrollBox;
+    ToolBar2: TToolBar;
+    ToolButton1: TToolButton;
+    ToolButton2: TToolButton;
+    cxGrid1: TcxGrid;
+    Tv1: TcxGridDBTableView;
+    cxGrid1Level1: TcxGridLevel;
+    ADOTemp: TADOQuery;
+    ADOCmd: TADOQuery;
+    DataSource1: TDataSource;
+    Order_Sub: TClientDataSet;
+    ADOQuery1: TADOQuery;
+    cxGridPopupMenu2: TcxGridPopupMenu;
+    Label1: TLabel;
+    Note: TEdit;
+    Label12: TLabel;
+    cxStyleRepository1: TcxStyleRepository;
+    dazi1: TcxStyle;
+    Label2: TLabel;
+    DlyDate: TDateTimePicker;
+    ToolButton3: TToolButton;
+    ToolButton4: TToolButton;
+    Filler: TEdit;
+    Tv1Column1: TcxGridDBColumn;
+    Tv1Column2: TcxGridDBColumn;
+    Tv1Column3: TcxGridDBColumn;
+    Tv1Column4: TcxGridDBColumn;
+    Tv1Column5: TcxGridDBColumn;
+    procedure TBCloseClick(Sender: TObject);
+    procedure FormShow(Sender: TObject);
+    procedure TBSaveClick(Sender: TObject);
+    procedure ToolButton1Click(Sender: TObject);
+    procedure ToolButton2Click(Sender: TObject);
+    procedure JSQtyUnitChange(Sender: TObject);
+    procedure ToolButton3Click(Sender: TObject);
+    procedure ToolButton4Click(Sender: TObject);
+  private
+    fuserName: string;
+    procedure InitData();
+    function SaveData(): Boolean;
+    { Private declarations }
+  public
+    PState, CopyInt: Integer;
+    FDRMID: string;
+    { Public declarations }
+  end;
+
+var
+  frmGKDRtInPut: TfrmGKDRtInPut;
+  newh: hwnd;
+
+implementation
+
+uses
+  U_DataLink, U_ZDYHelp, U_RTFun, U_GKManage_Sel;
+
+{$R *.dfm}
+
+procedure TfrmGKDRtInPut.TBCloseClick(Sender: TObject);
+begin
+  Close;
+
+end;
+
+procedure TfrmGKDRtInPut.InitData();
+var
+  fsj: string;
+begin
+  if PState = 0 then
+  begin
+    DlyDate.DateTime := strtodatetime(Trim(FormatDateTime('yyyy-MM-dd', Now)));
+
+  end;
+  with ADOQuery1 do
+  begin
+    Close;
+    SQL.Clear;
+    sql.Add(' select A.*  ');
+    sql.Add(' from Tat_Cloth_DR_Sub A');
+    if PState = 1 then
+    begin
+      sql.Add('where DRMID=''' + Trim(FDRMID) + '''');
+    end;
+    if PState = 0 then
+    begin
+      sql.Add(' where 1<>1');
+    end;
+    Open;
+  end;
+  SCreateCDS(ADOQuery1, Order_Sub);
+  SInitCDSData(ADOQuery1, Order_Sub);
+
+  with ADOQuery1 do
+  begin
+    Close;
+    sql.Clear;
+    sql.Add('select A.* ');
+    sql.Add(' from Tat_Cloth_DR_Main A');
+    sql.Add(' where DRMID=''' + Trim(FDRMID) + ''' ');
+    Open;
+  end;
+  SCSHData(ADOQuery1, ScrollBox1, 1);
+
+end;
+
+procedure TfrmGKDRtInPut.JSQtyUnitChange(Sender: TObject);
+begin
+  if not Order_Sub.IsEmpty then
+  begin
+
+    exit;
+  end;
+end;
+
+procedure TfrmGKDRtInPut.FormShow(Sender: TObject);
+var
+  fsj: string;
+begin
+
+  readCxGrid(trim(self.Caption), Tv1, '发货管理');
+
+  InitData();
+end;
+
+function TfrmGKDRtInPut.SaveData(): Boolean;
+var
+  MaxMid, MaxSid: string;
+begin
+  try
+    ADOCmd.Connection.BeginTrans;
+    /////////////////              保存主表                /////////////////
+    if Trim(FDRMID) = '' then
+    begin
+      if GetLSNo(ADOCmd, MaxMid, 'BF', 'Tat_Cloth_DR_Main', 4, 1) = False then
+        raise Exception.Create('取最大号失败！');
+    end
+    else
+    begin
+      MaxMid := Trim(FDRMID);
+    end;
+    with ADOCmd do
+    begin
+      Close;
+      sql.Clear;
+      SQL.Add('select * from Tat_Cloth_DR_Main where DRMID=''' + Trim(MaxMid) + '''');
+      Open;
+    end;
+    with ADOCmd do
+    begin
+      if Trim(FDRMID) = '' then
+      begin
+        Append;
+        FieldByName('FillID').Value := Trim(DCode);
+        FieldByName('Filler').Value := Trim(Filler.text);
+      end
+      else
+      begin
+        Edit;
+        FieldByName('EditID').Value := Trim(DCode);
+        FieldByName('Editer').Value := Trim(DName);
+        FieldByName('EditTime').Value := SGetServerDateTime(ADOTemp);
+      end;
+      RTSetsavedata(ADOCmd, 'Tat_Cloth_DR_Main', ScrollBox1, 1);
+      FieldByName('DRMID').Value := Trim(MaxMid);
+      FieldByName('Status').Value := '0';
+      FieldByName('LX').Value := '钢扣';
+      Post;
+    end;
+  /////////////////              保存主表                /////////////////
+  ///
+  /////////////////              保存子表                /////////////////
+    Order_Sub.DisableControls;
+    with Order_Sub do
+    begin
+      First;
+      while not Eof do
+      begin
+        if Trim(Order_Sub.fieldbyname('DRSID').AsString) = '' then
+        begin
+          if GetLSNo(ADOCmd, MaxSid, 'TDS', 'Tat_Cloth_DR_Sub', 4, 1) = False then
+            raise Exception.Create('取子流水号失败！');
+        end
+        else
+        begin
+          MaxSid := Trim(Order_Sub.fieldbyname('DRSID').AsString);
+        end;
+
+        with ADOCmd do
+        begin
+          Close;
+          SQL.Clear;
+          sql.Add('select * from Tat_Cloth_DR_Sub ');
+          sql.Add(' where DRMID=''' + Trim(MaxMid) + '''');
+          sql.Add(' and DRSID=''' + Trim(MaxSid) + '''');
+          Open;
+          if ADOCmd.IsEmpty then
+          begin
+            Append;
+          end
+          else
+          begin
+            Edit;
+          end;
+          RTSetSaveDataCDS(ADOCmd, Tv1, Order_Sub, 'Tat_Cloth_DR_Sub', 0);
+          FieldByName('DRMID').Value := Trim(MaxMid);
+          FieldByName('DRSID').Value := Trim(MaxSid);
+          FieldByName('MainId').Value := Order_Sub.fieldbyname('MainId').Value;
+          FieldByName('SubId').Value := Order_Sub.fieldbyname('SubId').Value;
+          FieldByName('ConMId').Value := Order_Sub.fieldbyname('ConMId').Value;
+          FieldByName('ConSId').Value := Order_Sub.fieldbyname('ConSId').Value;
+          Post;
+        end;
+        Order_Sub.Edit;
+        Order_Sub.FieldByName('DRSID').Value := Trim(MaxSid);
+        Next;
+      end;
+    end;
+    Order_Sub.EnableControls;
+   /////////////////              保存子表                /////////////////
+    FDRMID := Trim(MaxMid);
+    ADOCmd.Connection.CommitTrans;
+    Result := True;
+  except
+    ADOCmd.Connection.RollbackTrans;
+    application.MessageBox(PChar(Exception(ExceptObject).Message), '提示信息', 0);
+    Result := False;
+  end;
+end;
+
+procedure TfrmGKDRtInPut.TBSaveClick(Sender: TObject);
+var
+  Freal: Double;
+begin
+  ToolBar1.SetFocus;
+
+  if Trim(Filler.Text) = '' then
+  begin
+    Application.MessageBox('申请人不能为空！', '提示', 0);
+    Exit;
+  end;
+
+  if SaveData() then
+  begin
+    Application.MessageBox('保存成功！', '提示', 0);
+    ModalResult := 1;
+  end;
+end;
+
+procedure TfrmGKDRtInPut.ToolButton1Click(Sender: TObject);
+var
+  FQtyUnit, FFSubid: string;
+begin
+ {
+  try
+    frmTradePlanSel := TfrmTradePlanSel.Create(Application);
+    with frmTradePlanSel do
+    begin
+      if ShowModal = 1 then
+      begin
+        while CDS_1.locate('SSel', true, []) do
+        begin
+//          Self.CustomerNoName.Text := Trim(frmTradePlanSel.Order_Main.fieldbyname('CustomerNoName').AsString);
+//          FQtyUnit := Trim(frmTradePlanSel.Order_Main.fieldbyname('orderUnit').AsString);
+//          if Self.Order_Sub.Locate('Subid', Trim(frmTradePlanSel.Order_Main.fieldbyname('Subid').AsString), []) = False then
+          begin
+            with Self.Order_Sub do
+            begin
+              Append;
+              FieldByName('SCConNo').Value := Trim(frmTradePlanSel.CDS_1.fieldbyname('Orderno').AsString);
+              FieldByName('SSConMainId').Value := frmTradePlanSel.CDS_1.fieldbyname('ConMainId').Value;
+              FieldByName('SSConSubId').Value := frmTradePlanSel.CDS_1.fieldbyname('ConSubId').Value;
+              FieldByName('MainId').Value := frmTradePlanSel.CDS_1.fieldbyname('MainId').Value;
+              FieldByName('SubId').Value := frmTradePlanSel.CDS_1.fieldbyname('SubId').Value;
+              FieldByName('PRTColor').Value := Trim(frmTradePlanSel.CDS_1.fieldbyname('P_Color').AsString);
+              FieldByName('SPrtCode').Value := Trim(frmTradePlanSel.CDS_1.fieldbyname('P_Code').AsString);
+              FieldByName('SPrtCodeName').Value := Trim(frmTradePlanSel.CDS_1.fieldbyname('P_CodeName').AsString);
+              FieldByName('PRTHX').Value := Trim(frmTradePlanSel.CDS_1.fieldbyname('P_HX').AsString);
+//              FieldByName('orderUnit').Value := JSQtyUnit.Text;
+//              if Trim(JSQtyUnit.Text) = 'Kg' then
+//              begin
+//                FieldByName('sqqty').Value := frmTradePlanSel.Order_Main.fieldbyname('JYGW').Value;
+//              end
+//              else if Trim(JSQtyUnit.Text) = 'M' then
+//              begin
+//                FieldByName('sqqty').Value := frmTradePlanSel.Order_Main.fieldbyname('JYLen').Value;
+//              end
+//              else if Trim(JSQtyUnit.Text) = 'Y' then
+//              begin
+//                FieldByName('sqqty').Value := frmTradePlanSel.Order_Main.fieldbyname('JYYLen').Value;
+//              end;
+
+            end;
+          end;
+          CDS_1.Delete;
+        end;
+      end;
+    end;
+  finally
+    frmTradePlanSel.Free;
+  end;   }
+end;
+
+procedure TfrmGKDRtInPut.ToolButton2Click(Sender: TObject);
+begin
+  if Order_Sub.IsEmpty then
+    Exit;
+  if Trim(Order_Sub.fieldbyname('DRSID').AsString) <> '' then
+  begin
+    with ADOTemp do
+    begin
+      Close;
+      sql.Clear;
+      sql.Add('select * from Tat_Cloth_DR_Sub where DRSID=''' + Trim(Order_Sub.fieldbyname('DRSID').AsString) + '''');
+      sql.add(' and isnull(DlyPiece,0)>0');
+      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 Tat_Cloth_DR_Sub where DRSID=''' + Trim(Order_Sub.fieldbyname('DRSID').AsString) + '''');
+      ExecSQL;
+    end;
+  end;
+  Order_Sub.Delete;
+end;
+
+procedure TfrmGKDRtInPut.ToolButton3Click(Sender: TObject);
+begin
+  try
+    frmGKManage_Sel := TfrmGKManage_Sel.Create(Application);
+    with frmGKManage_Sel do
+    begin
+      if ShowModal = 1 then
+      begin
+        while CDS_HZ.locate('SSel', true, []) do
+        begin
+          with Self.Order_Sub do
+          begin
+            Append;
+            FieldByName('GKNo').Value := frmGKManage_Sel.CDS_HZ.fieldbyname('GKNo').Value;
+            FieldByName('GKKH').Value := frmGKManage_Sel.CDS_HZ.fieldbyname('GKKH').Value;
+            FieldByName('GKCS').Value := frmGKManage_Sel.CDS_HZ.fieldbyname('GKCS').Value;
+            FieldByName('GKBH').Value := frmGKManage_Sel.CDS_HZ.fieldbyname('GKBH').Value;
+            FieldByName('GKSpec').Value := frmGKManage_Sel.CDS_HZ.fieldbyname('GKSpec').Value;
+          end;
+          CDS_HZ.Edit;
+          CDS_HZ.fieldbyname('SSel').value := false;
+        end;
+      end;
+    end;
+  finally
+    frmGKManage_Sel.Free;
+  end;
+end;
+
+procedure TfrmGKDRtInPut.ToolButton4Click(Sender: TObject);
+begin
+  WriteCxGrid(trim(self.Caption), Tv1, '发货管理')
+end;
+
+end.
+

A05基础资料管理/U_GKInput.dfm

@@ -2,7 +2,7 @@ inherited frmGKInput: TfrmGKInput
   Left = 261
   Top = 149
   Caption = #38050#25187#24405#20837
-  ClientHeight = 385
+  ClientHeight = 494
   ClientWidth = 863
   Color = clWhite
   Font.Charset = GB2312_CHARSET
@@ -11,7 +11,7 @@ inherited frmGKInput: TfrmGKInput
   Position = poScreenCenter
   OnClose = FormClose
   ExplicitWidth = 879
-  ExplicitHeight = 424
+  ExplicitHeight = 533
   PixelsPerInch = 96
   TextHeight = 21
   object ToolBar1: TToolBar [0]
@@ -52,7 +52,7 @@ inherited frmGKInput: TfrmGKInput
     Left = 0
     Top = 30
     Width = 863
-    Height = 355
+    Height = 464
     Align = alClient
     BevelInner = bvNone
     BevelOuter = bvNone
@@ -86,7 +86,7 @@ inherited frmGKInput: TfrmGKInput
     end
     object Label7: TLabel
       Left = 10
-      Top = 221
+      Top = 292
       Width = 57
       Height = 21
       Caption = #22791'     '#27880
@@ -99,7 +99,7 @@ inherited frmGKInput: TfrmGKInput
       Caption = #38050#25187#31576#21495
     end
     object Label1: TLabel
-      Left = 320
+      Left = 319
       Top = 48
       Width = 64
       Height = 21
@@ -107,32 +107,60 @@ inherited frmGKInput: TfrmGKInput
     end
     object Label4: TLabel
       Left = 10
-      Top = 132
+      Top = 127
       Width = 62
       Height = 21
       Caption = #20215'      '#26684
     end
     object Label5: TLabel
       Left = 319
-      Top = 132
+      Top = 127
       Width = 64
       Height = 21
       Caption = #24403#21069#36136#37327
     end
     object Label26: TLabel
       Left = 10
-      Top = 169
+      Top = 249
       Width = 58
       Height = 21
       Caption = #20379' '#24212' '#21830
     end
     object Label8: TLabel
       Left = 319
-      Top = 170
+      Top = 250
       Width = 64
       Height = 21
       Caption = #20837#24211#26085#26399
     end
+    object lbl2: TLabel
+      Left = 10
+      Top = 173
+      Width = 59
+      Height = 21
+      Caption = 'A'#38754#29366#24577
+    end
+    object Label9: TLabel
+      Left = 319
+      Top = 173
+      Width = 58
+      Height = 21
+      Caption = 'B'#38754#29366#24577
+    end
+    object Label10: TLabel
+      Left = 10
+      Top = 212
+      Width = 59
+      Height = 21
+      Caption = 'C'#38754#29366#24577
+    end
+    object Label11: TLabel
+      Left = 319
+      Top = 212
+      Width = 60
+      Height = 21
+      Caption = 'D'#38754#29366#24577
+    end
     object GKCS: TcxTextEdit
       Tag = 2
       Left = 79
@@ -152,7 +180,7 @@ inherited frmGKInput: TfrmGKInput
       Left = 79
       Top = 82
       TabOrder = 2
-      Width = 510
+      Width = 200
     end
     object GKKH: TcxTextEdit
       Tag = 2
@@ -164,7 +192,7 @@ inherited frmGKInput: TfrmGKInput
     object Note: TcxMemo
       Tag = 2
       Left = 79
-      Top = 221
+      Top = 292
       TabOrder = 4
       Height = 77
       Width = 518
@@ -179,21 +207,21 @@ inherited frmGKInput: TfrmGKInput
     object Price: TcxTextEdit
       Tag = 2
       Left = 79
-      Top = 129
+      Top = 124
       TabOrder = 6
       Width = 200
     end
     object DQZL: TcxTextEdit
       Tag = 2
       Left = 389
-      Top = 129
+      Top = 124
       TabOrder = 7
       Width = 200
     end
     object GKGYS: TcxButtonEdit
       Tag = 2
       Left = 79
-      Top = 166
+      Top = 246
       Properties.Buttons = <
         item
           Default = True
@@ -208,11 +236,59 @@ inherited frmGKInput: TfrmGKInput
     object IODate: TcxDateEdit
       Tag = 2
       Left = 389
-      Top = 166
+      Top = 246
       Properties.ShowTime = False
       TabOrder = 9
       Width = 200
     end
+    object AM: TcxComboBox
+      Tag = 2
+      Left = 79
+      Top = 169
+      Properties.Items.Strings = (
+        #27491#24120
+        #24453#22788#29702
+        #31105#29992)
+      TabOrder = 10
+      Text = #27491#24120
+      Width = 200
+    end
+    object BM: TcxComboBox
+      Tag = 2
+      Left = 389
+      Top = 169
+      Properties.Items.Strings = (
+        #27491#24120
+        #24453#22788#29702
+        #31105#29992)
+      TabOrder = 11
+      Text = #27491#24120
+      Width = 200
+    end
+    object CM: TcxComboBox
+      Tag = 2
+      Left = 79
+      Top = 208
+      Properties.Items.Strings = (
+        #27491#24120
+        #24453#22788#29702
+        #31105#29992)
+      TabOrder = 12
+      Text = #27491#24120
+      Width = 200
+    end
+    object DM: TcxComboBox
+      Tag = 2
+      Left = 389
+      Top = 208
+      Properties.Items.Strings = (
+        #27491#24120
+        #24453#22788#29702
+        #31105#29992)
+      TabOrder = 13
+      Text = #27491#24120
+      Width = 200
+    end
   end
   inherited ADOQueryBaseCmd: TADOQuery
     Connection = DataLink_BaseInfo.ADOLink

A05基础资料管理/U_GKInput.pas

@@ -47,6 +47,14 @@ type
     GKGYS: TcxButtonEdit;
     Label8: TLabel;
     IODate: TcxDateEdit;
+    lbl2: TLabel;
+    AM: TcxComboBox;
+    Label9: TLabel;
+    BM: TcxComboBox;
+    Label10: TLabel;
+    CM: TcxComboBox;
+    Label11: TLabel;
+    DM: TcxComboBox;
     procedure FormDestroy(Sender: TObject);
     procedure FormClose(Sender: TObject; var Action: TCloseAction);
     procedure TBCloseClick(Sender: TObject);
@@ -229,6 +237,7 @@ begin
   if SaveData() then
   begin
     Application.MessageBox('保存成功!', '提示', 0);
+    ModalResult := 1;
   end;
 end;
 

A05基础资料管理/U_GKManage.dfm

@@ -100,8 +100,7 @@ inherited frmGKManage: TfrmGKManage
     Align = alClient
     PopupMenu = PopupMenu1
     TabOrder = 2
-    ExplicitTop = 119
+    ExplicitTop = 126
-    ExplicitWidth = 1107
     object Tv2: TcxGridDBTableView
       Navigator.Buttons.CustomButtons = <>
       Navigator.Buttons.Delete.Enabled = False
@@ -210,6 +209,38 @@ inherited frmGKManage: TfrmGKManage
         Options.Editing = False
         Width = 100
       end
+      object Tv2Column11: TcxGridDBColumn
+        Caption = 'A'#38754#29366#24577
+        DataBinding.FieldName = 'AM'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 100
+      end
+      object Tv2Column12: TcxGridDBColumn
+        Caption = 'B'#38754#29366#24577
+        DataBinding.FieldName = 'BM'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 100
+      end
+      object Tv2Column13: TcxGridDBColumn
+        Caption = 'C'#38754#29366#24577
+        DataBinding.FieldName = 'CM'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 100
+      end
+      object Tv2Column14: TcxGridDBColumn
+        Caption = 'D'#38754#29366#24577
+        DataBinding.FieldName = 'DM'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 100
+      end
       object Tv2Column10: TcxGridDBColumn
         Caption = #22791#27880
         DataBinding.FieldName = 'Note'
@@ -234,7 +265,6 @@ inherited frmGKManage: TfrmGKManage
     Color = clWhite
     ParentBackground = False
     TabOrder = 4
-    ExplicitTop = 24
     object Label1: TLabel
       Left = 42
       Top = 35

A05基础资料管理/U_GKManage.pas

@@ -53,6 +53,10 @@ type
     Tv2Column8: TcxGridDBColumn;
     Tv2Column9: TcxGridDBColumn;
     Tv2Column10: TcxGridDBColumn;
+    Tv2Column11: TcxGridDBColumn;
+    Tv2Column12: TcxGridDBColumn;
+    Tv2Column13: TcxGridDBColumn;
+    Tv2Column14: TcxGridDBColumn;
     procedure FormDestroy(Sender: TObject);
     procedure FormClose(Sender: TObject; var Action: TCloseAction);
     procedure TBCloseClick(Sender: TObject);

A05基础资料管理/U_GKManage_CX.dfm

@@ -0,0 +1,375 @@
+inherited frmGKManage_CX: TfrmGKManage_CX
+  Left = 297
+  Top = 109
+  Caption = #38050#31576#26597#35810
+  ClientHeight = 523
+  ClientWidth = 1461
+  Font.Height = -16
+  KeyPreview = True
+  ExplicitWidth = 1477
+  ExplicitHeight = 562
+  PixelsPerInch = 96
+  TextHeight = 21
+  object ToolBar1: TToolBar [0]
+    Tag = 1
+    Left = 0
+    Top = 0
+    Width = 1461
+    Height = 30
+    AutoSize = True
+    ButtonHeight = 30
+    ButtonWidth = 67
+    Caption = 'ToolBar1'
+    Color = clSkyBlue
+    DisabledImages = DataLink_BaseInfo.cxImageList_bar
+    Images = DataLink_BaseInfo.cxImageList_bar
+    List = True
+    ParentColor = False
+    ShowCaptions = True
+    TabOrder = 3
+    object TBRafresh: TToolButton
+      Left = 0
+      Top = 0
+      AutoSize = True
+      Caption = #21047#26032
+      ImageIndex = 1
+      OnClick = TBRafreshClick
+    end
+    object ToolButton2: TToolButton
+      Left = 71
+      Top = 0
+      AutoSize = True
+      Caption = #36807#28388
+      ImageIndex = 0
+      Visible = False
+    end
+    object ToolButton4: TToolButton
+      Left = 142
+      Top = 0
+      AutoSize = True
+      Caption = #26032#22686
+      ImageIndex = 9
+      Visible = False
+      OnClick = ToolButton4Click
+    end
+    object ToolButton5: TToolButton
+      Left = 213
+      Top = 0
+      AutoSize = True
+      Caption = #21024#38500
+      ImageIndex = 6
+      Visible = False
+      OnClick = ToolButton5Click
+    end
+    object ToolButton6: TToolButton
+      Left = 284
+      Top = 0
+      AutoSize = True
+      Caption = #20462#25913
+      ImageIndex = 3
+      Visible = False
+      OnClick = ToolButton6Click
+    end
+    object ToolButton3: TToolButton
+      Left = 355
+      Top = 0
+      AutoSize = True
+      Caption = #25171#21360
+      ImageIndex = 21
+      Visible = False
+    end
+    object ToolButton1: TToolButton
+      Left = 426
+      Top = 0
+      AutoSize = True
+      Caption = #23548#20986
+      ImageIndex = 20
+      OnClick = ToolButton1Click
+    end
+    object TBClose: TToolButton
+      Left = 497
+      Top = 0
+      AutoSize = True
+      Caption = #20851#38381
+      ImageIndex = 7
+      OnClick = TBCloseClick
+    end
+  end
+  object cxGrid2: TcxGrid [1]
+    Left = 0
+    Top = 120
+    Width = 1461
+    Height = 403
+    Align = alClient
+    PopupMenu = PopupMenu1
+    TabOrder = 2
+    ExplicitLeft = 399
+    ExplicitTop = 80
+    object Tv2: TcxGridDBTableView
+      Navigator.Buttons.CustomButtons = <>
+      Navigator.Buttons.Delete.Enabled = False
+      Navigator.Buttons.Delete.Visible = False
+      ScrollbarAnnotations.CustomAnnotations = <>
+      DataController.DataSource = DS_HZ
+      DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
+      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
+        end
+        item
+          Kind = skSum
+        end
+        item
+          Kind = skCount
+        end>
+      DataController.Summary.SummaryGroups = <>
+      OptionsCustomize.ColumnFiltering = False
+      OptionsData.Deleting = False
+      OptionsData.DeletingConfirmation = False
+      OptionsView.Footer = True
+      OptionsView.GroupByBox = False
+      object Tv2Column1: TcxGridDBColumn
+        Caption = #38050#25187#24207#21495
+        DataBinding.FieldName = 'GKNo'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 100
+      end
+      object Tv2Column2: TcxGridDBColumn
+        Caption = #38050#25187#31576#21495
+        DataBinding.FieldName = 'GKKH'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 100
+      end
+      object Tv2Column3: TcxGridDBColumn
+        Caption = #38050#25187#40831#25968
+        DataBinding.FieldName = 'GKCS'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 100
+      end
+      object Tv2Column4: TcxGridDBColumn
+        Caption = #38050#25187#32534#21495
+        DataBinding.FieldName = 'GKBH'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 100
+      end
+      object Tv2Column5: TcxGridDBColumn
+        Caption = #38050#25187#35268#26684
+        DataBinding.FieldName = 'GKSPec'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 100
+      end
+      object Tv2Column8: TcxGridDBColumn
+        Caption = #20215#26684
+        DataBinding.FieldName = 'Price'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 100
+      end
+      object Tv2Column9: TcxGridDBColumn
+        Caption = #24403#21069#36136#37327
+        DataBinding.FieldName = 'DQZL'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 100
+      end
+      object Tv2Column6: TcxGridDBColumn
+        Caption = #38050#25187#20379#24212#21830
+        DataBinding.FieldName = 'GKGYS'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 100
+      end
+      object Tv2Column7: TcxGridDBColumn
+        Caption = #20837#24211#26085#26399
+        DataBinding.FieldName = 'IODate'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 100
+      end
+      object Tv2Column11: TcxGridDBColumn
+        Caption = 'A'#38754#29366#24577
+        DataBinding.FieldName = 'AM'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 100
+      end
+      object Tv2Column12: TcxGridDBColumn
+        Caption = 'B'#38754#29366#24577
+        DataBinding.FieldName = 'BM'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 100
+      end
+      object Tv2Column13: TcxGridDBColumn
+        Caption = 'C'#38754#29366#24577
+        DataBinding.FieldName = 'CM'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 100
+      end
+      object Tv2Column14: TcxGridDBColumn
+        Caption = 'D'#38754#29366#24577
+        DataBinding.FieldName = 'DM'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 100
+      end
+      object Tv2Column10: TcxGridDBColumn
+        Caption = #22791#27880
+        DataBinding.FieldName = 'Note'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 100
+      end
+      object Tv2Column15: TcxGridDBColumn
+        Caption = #20351#29992#26102#38388
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 100
+      end
+      object Tv2Column16: TcxGridDBColumn
+        Caption = #31359#31576#38754
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 100
+      end
+    end
+    object cxGridLevel1: TcxGridLevel
+      GridView = Tv2
+    end
+  end
+  object Panel1: TPanel [2]
+    Left = 0
+    Top = 30
+    Width = 1461
+    Height = 90
+    Align = alTop
+    BevelInner = bvRaised
+    BevelOuter = bvLowered
+    Color = clWhite
+    ParentBackground = False
+    TabOrder = 4
+    object Label1: TLabel
+      Left = 42
+      Top = 35
+      Width = 64
+      Height = 21
+      Caption = #38050#25187#24207#21495
+    end
+    object GKNo: TcxTextEdit
+      Tag = 2
+      Left = 112
+      Top = 31
+      ParentColor = True
+      Properties.OnChange = MCNOPropertiesChange
+      TabOrder = 0
+      Width = 158
+    end
+  end
+  inherited loadProcess: TPanel
+    Left = 316
+    Top = 411
+    ExplicitLeft = 316
+    ExplicitTop = 411
+  end
+  inherited cxProgressBar2: TcxProgressBar
+    Left = 316
+    Top = 356
+    ExplicitLeft = 316
+    ExplicitTop = 356
+    ExplicitHeight = 29
+  end
+  inherited ADOQueryBaseCmd: TADOQuery
+    Connection = DataLink_BaseInfo.ADOLink
+    Left = 113
+    Top = 256
+  end
+  inherited ADOQueryBaseTemp: TADOQuery
+    Connection = DataLink_BaseInfo.ADOLink
+    Left = 137
+    Top = 169
+  end
+  object ADOQueryTemp: TADOQuery
+    Connection = DataLink_BaseInfo.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 459
+    Top = 169
+  end
+  object ADOQueryCmd: TADOQuery
+    Connection = DataLink_BaseInfo.ADOLink
+    Parameters = <>
+    Left = 357
+    Top = 153
+  end
+  object ADOQueryMain: TADOQuery
+    Connection = DataLink_BaseInfo.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 253
+    Top = 161
+  end
+  object GPM_1: TcxGridPopupMenu
+    Grid = cxGrid2
+    PopupMenus = <>
+    Left = 520
+    Top = 264
+  end
+  object DS_HZ: TDataSource
+    DataSet = CDS_HZ
+    Left = 283
+    Top = 259
+  end
+  object CDS_HZ: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 429
+    Top = 271
+  end
+  object PopupMenu1: TPopupMenu
+    Left = 355
+    Top = 250
+    object N1: TMenuItem
+      Caption = #20840#36873
+      OnClick = N1Click
+    end
+    object N2: TMenuItem
+      Caption = #20840#24323
+      OnClick = N2Click
+    end
+  end
+end

A05基础资料管理/U_GKManage_CX.pas

@@ -0,0 +1,361 @@
+unit U_GKManage_CX;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, cxGraphics, cxCustomData, cxStyles, cxTL, cxMaskEdit, DB, ADODB,
+  cxInplaceContainer, cxDBTL, cxControls, cxTLData, ComCtrls, ToolWin, StdCtrls,
+  cxFilter, cxData, cxDataStorage, cxEdit, cxDBData, DBClient,
+  cxGridCustomTableView, cxGridTableView, cxGridDBTableView, ExtCtrls,
+  cxSplitter, cxGridLevel, cxClasses, cxGridCustomView, cxGrid,
+  cxGridCustomPopupMenu, cxGridPopupMenu, RM_Dataset, RM_System, RM_Common,
+  RM_Class, RM_GridReport, IdBaseComponent, IdComponent, IdTCPConnection,
+  IdTCPClient, IdFTP, ShellAPI, IniFiles, cxCheckBox, cxCalendar, cxButtonEdit,
+  cxTextEdit, cxPC, cxCheckComboBox, cxDropDownEdit, Menus, RM_e_Xls,
+  cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxDateRanges,
+  dxBarBuiltInMenu, U_BaseList, RM_BarCode, dxScrollbarAnnotations, cxContainer,
+  cxProgressBar, dxSkinsCore, dxSkinsDefaultPainters;
+
+type
+  TfrmGKManage_CX = class(TfrmBaseList)
+    ToolBar1: TToolBar;
+    TBRafresh: TToolButton;
+    TBClose: TToolButton;
+    ADOQueryTemp: TADOQuery;
+    ADOQueryCmd: TADOQuery;
+    ToolButton2: TToolButton;
+    ADOQueryMain: TADOQuery;
+    ToolButton1: TToolButton;
+    cxGrid2: TcxGrid;
+    Tv2: TcxGridDBTableView;
+    cxGridLevel1: TcxGridLevel;
+    GPM_1: TcxGridPopupMenu;
+    DS_HZ: TDataSource;
+    CDS_HZ: TClientDataSet;
+    PopupMenu1: TPopupMenu;
+    N1: TMenuItem;
+    N2: TMenuItem;
+    Panel1: TPanel;
+    Label1: TLabel;
+    ToolButton3: TToolButton;
+    ToolButton4: TToolButton;
+    ToolButton5: TToolButton;
+    ToolButton6: TToolButton;
+    GKNo: TcxTextEdit;
+    Tv2Column1: TcxGridDBColumn;
+    Tv2Column2: TcxGridDBColumn;
+    Tv2Column3: TcxGridDBColumn;
+    Tv2Column4: TcxGridDBColumn;
+    Tv2Column5: TcxGridDBColumn;
+    Tv2Column6: TcxGridDBColumn;
+    Tv2Column7: TcxGridDBColumn;
+    Tv2Column8: TcxGridDBColumn;
+    Tv2Column9: TcxGridDBColumn;
+    Tv2Column10: TcxGridDBColumn;
+    Tv2Column11: TcxGridDBColumn;
+    Tv2Column12: TcxGridDBColumn;
+    Tv2Column13: TcxGridDBColumn;
+    Tv2Column14: TcxGridDBColumn;
+    Tv2Column15: TcxGridDBColumn;
+    Tv2Column16: TcxGridDBColumn;
+    procedure FormDestroy(Sender: TObject);
+    procedure FormClose(Sender: TObject; var Action: TCloseAction);
+    procedure TBCloseClick(Sender: TObject);
+    procedure FormShow(Sender: TObject);
+    procedure TBRafreshClick(Sender: TObject);
+    procedure ToolButton1Click(Sender: TObject);
+    procedure cxTabControl1Change(Sender: TObject);
+    procedure N1Click(Sender: TObject);
+    procedure N2Click(Sender: TObject);
+    procedure CustomerChange(Sender: TObject);
+    procedure FormCreate(Sender: TObject);
+    procedure MCNOPropertiesChange(Sender: TObject);
+    procedure ToolButton4Click(Sender: TObject);
+    procedure v2Column12PropertiesEditValueChanged(Sender: TObject);
+    procedure cxgrdbclmnTv2Column3PropertiesEditValueChanged(Sender: TObject);
+    procedure v2Column8PropertiesEditValueChanged(Sender: TObject);
+    procedure ToolButton5Click(Sender: TObject);
+    procedure ToolButton6Click(Sender: TObject);
+  private
+    { Private declarations }
+    procedure InitGrid();
+  public
+    fFlag: integer;
+    { Public declarations }
+    RKFlag, FCYID, fmanage: string;
+  end;
+
+var
+  frmGKManage_CX: TfrmGKManage_CX;
+
+implementation
+
+uses
+  U_DataLink, U_RTFun, U_ZDYHelp, U_LabelPrint, U_MachineInPut, U_EmployeeSel,
+  U_GKInput;
+
+{$R *.dfm}
+
+procedure TfrmGKManage_CX.InitGrid();
+begin
+  GKNO.SetFocus;
+  try
+    ADOQueryMain.DisableControls;
+    with ADOQueryMain do
+    begin
+      Close;
+      SQL.Clear;
+      sql.Add(' select A.* from  BS_GK A  ');
+
+//      showmessage(Sql.text);
+      Open;
+    end;
+    SCreateCDS(ADOQueryMain, CDS_HZ);
+    SInitCDSData(ADOQueryMain, CDS_HZ);
+  finally
+    ADOQueryMain.EnableControls;
+    ToolButton2.Click;
+  end;
+end;
+
+procedure TfrmGKManage_CX.MCNOPropertiesChange(Sender: TObject);
+var
+  sql: string;
+begin
+  if ADOQueryMain.Active then
+  begin
+    sql := SGetFilters(Panel1, 1, 2);
+    SDofilter(ADOQueryMain, sql);
+    SCreateCDS(ADOQueryMain, CDS_HZ);
+    SInitCDSData(ADOQueryMain, CDS_HZ);
+  end;
+end;
+
+procedure TfrmGKManage_CX.FormDestroy(Sender: TObject);
+begin
+  inherited;
+  frmGKManage_CX := nil;
+end;
+
+procedure TfrmGKManage_CX.FormClose(Sender: TObject; var Action: TCloseAction);
+begin
+  inherited;
+  Action := caFree;
+end;
+
+procedure TfrmGKManage_CX.TBCloseClick(Sender: TObject);
+begin
+  WriteCxGrid(Trim(Self.Caption), Tv2, '汇率管理');
+  Close;
+end;
+
+procedure TfrmGKManage_CX.FormShow(Sender: TObject);
+begin
+  inherited;
+  ReadCxGrid(Trim(Self.Caption), Tv2, '汇率管理');
+  InitGrid();
+end;
+
+procedure TfrmGKManage_CX.TBRafreshClick(Sender: TObject);
+begin
+  InitGrid();
+end;
+
+procedure TfrmGKManage_CX.ToolButton1Click(Sender: TObject);
+begin
+  if ADOQueryMain.IsEmpty then
+    Exit;
+
+  TcxGridToExcel(self.Caption, cxgrid2);
+end;
+
+procedure TfrmGKManage_CX.ToolButton4Click(Sender: TObject);
+begin
+  try
+    frmGKInput := TfrmGKInput.Create(Application);
+    with frmGKInput do
+    begin
+      FGKID := '';
+      if ShowModal = 1 then
+      begin
+        InitGrid();
+      end;
+    end;
+  finally
+    frmGKInput.Free;
+  end;
+end;
+
+procedure TfrmGKManage_CX.ToolButton5Click(Sender: TObject);
+begin
+  if CDS_HZ.IsEmpty then
+    Exit;
+
+  if Application.MessageBox('确定要删除数据吗？', '提示', 32 + 4) <> IDYES then
+    Exit;
+
+  with ADOQueryCmd do
+  begin
+    Close;
+    sql.Clear;
+    sql.Add('delete BS_GK where GKID=' + QuotedStr(CDS_HZ.FieldByName('GKID').AsString));
+    ExecSQL;
+  end;
+
+  InitGrid();
+end;
+
+procedure TfrmGKManage_CX.ToolButton6Click(Sender: TObject);
+begin
+  if CDS_HZ.IsEmpty then
+    exit;
+  try
+    frmGKInput := TfrmGKInput.Create(Application);
+    with frmGKInput do
+    begin
+      FGKID := Trim(Self.CDS_HZ.fieldbyname('GKID').AsString);
+      if ShowModal = 1 then
+      begin
+
+      end;
+    end;
+  finally
+    frmGKInput.Free;
+  end;
+end;
+
+procedure TfrmGKManage_CX.v2Column12PropertiesEditValueChanged(Sender: TObject);
+var
+  mvalue, FFieldName: string;
+begin
+  mvalue := TcxTextEdit(Sender).EditingText;
+  FFieldName := Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName);
+
+  try
+    ADOQueryCmd.Connection.BeginTrans;
+    with CDS_HZ do
+    begin
+      Edit;
+      FieldByName(FFieldName).Value := Trim(mvalue);
+      Post;
+    end;
+
+    with ADOQueryCmd do
+    begin
+      Close;
+      sql.Clear;
+      sql.Add(' UPdate BS_HL ');
+      sql.Add(' Set Begdate = ''' + mvalue + '''');
+      sql.Add(' where HLID=' + quotedstr(CDS_HZ.fieldbyname('HLID').AsString));
+      ExecSQL;
+    end;
+    ADOQueryCmd.Connection.CommitTrans;
+    tv2.Controller.EditingController.ShowEdit();
+  except
+    tv2.Controller.EditingController.ShowEdit();
+    ADOQueryCmd.Connection.RollbackTrans;
+    Application.MessageBox('保存失败！', '提示', 0);
+  end
+end;
+
+procedure TfrmGKManage_CX.v2Column8PropertiesEditValueChanged(Sender: TObject);
+var
+  mvalue, FFieldName: string;
+begin
+  mvalue := TcxTextEdit(Sender).EditingText;
+  FFieldName := Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName);
+
+  try
+    ADOQueryCmd.Connection.BeginTrans;
+    with CDS_HZ do
+    begin
+      Edit;
+      FieldByName(FFieldName).Value := Trim(mvalue);
+      Post;
+    end;
+
+    with ADOQueryCmd do
+    begin
+      Close;
+      sql.Clear;
+      sql.Add(' UPdate BS_HL ');
+      sql.Add(' Set HL = ' + mvalue + '');
+      sql.Add(' where HLID=' + quotedstr(CDS_HZ.fieldbyname('HLID').AsString));
+      ExecSQL;
+    end;
+    ADOQueryCmd.Connection.CommitTrans;
+    tv2.Controller.EditingController.ShowEdit();
+  except
+    tv2.Controller.EditingController.ShowEdit();
+    ADOQueryCmd.Connection.RollbackTrans;
+    Application.MessageBox('保存失败！', '提示', 0);
+  end
+end;
+
+procedure TfrmGKManage_CX.cxgrdbclmnTv2Column3PropertiesEditValueChanged(Sender: TObject);
+var
+  mvalue, FFieldName: string;
+begin
+  mvalue := TcxTextEdit(Sender).EditingText;
+  FFieldName := Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName);
+
+  try
+    ADOQueryCmd.Connection.BeginTrans;
+    with CDS_HZ do
+    begin
+      Edit;
+      FieldByName(FFieldName).Value := Trim(mvalue);
+      Post;
+    end;
+
+    with ADOQueryCmd do
+    begin
+      Close;
+      sql.Clear;
+      sql.Add(' UPdate BS_HL ');
+      sql.Add(' Set EndDate = ''' + mvalue + '''');
+      sql.Add(' where HLID=' + quotedstr(CDS_HZ.fieldbyname('HLID').AsString));
+      ExecSQL;
+    end;
+    ADOQueryCmd.Connection.CommitTrans;
+    tv2.Controller.EditingController.ShowEdit();
+  except
+    tv2.Controller.EditingController.ShowEdit();
+    ADOQueryCmd.Connection.RollbackTrans;
+    Application.MessageBox('保存失败！', '提示', 0);
+  end
+end;
+
+procedure TfrmGKManage_CX.cxTabControl1Change(Sender: TObject);
+begin
+  InitGrid;
+end;
+
+procedure TfrmGKManage_CX.N1Click(Sender: TObject);
+begin
+  if CDS_HZ.IsEmpty then
+    exit;
+  SelOKNo(CDS_HZ, True);
+end;
+
+procedure TfrmGKManage_CX.N2Click(Sender: TObject);
+begin
+  if CDS_HZ.IsEmpty then
+    exit;
+  SelOKNo(CDS_HZ, False);
+end;
+
+procedure TfrmGKManage_CX.CustomerChange(Sender: TObject);
+begin
+  ToolButton2.Click;
+end;
+
+procedure TfrmGKManage_CX.FormCreate(Sender: TObject);
+begin
+  inherited;
+  fmanage := Trim(DParameters1);
+end;
+
+end.
+

A05基础资料管理/U_GKManage_Sel.dfm

@@ -0,0 +1,376 @@
+inherited frmGKManage_Sel: TfrmGKManage_Sel
+  Left = 297
+  Top = 109
+  Caption = #38050#31576#36873#25321
+  ClientHeight = 523
+  ClientWidth = 1461
+  Font.Height = -16
+  KeyPreview = True
+  ExplicitWidth = 1477
+  ExplicitHeight = 562
+  PixelsPerInch = 96
+  TextHeight = 19
+  object ToolBar1: TToolBar [0]
+    Tag = 1
+    Left = 0
+    Top = 0
+    Width = 1461
+    Height = 30
+    AutoSize = True
+    ButtonHeight = 30
+    ButtonWidth = 59
+    Caption = 'ToolBar1'
+    Color = clSkyBlue
+    DisabledImages = DataLink_BaseInfo.cxImageList_bar
+    Images = DataLink_BaseInfo.cxImageList_bar
+    List = True
+    ParentColor = False
+    ShowCaptions = True
+    TabOrder = 0
+    object ToolButton7: TToolButton
+      Left = 0
+      Top = 0
+      AutoSize = True
+      Caption = #36873#25321
+      ImageIndex = 12
+      OnClick = ToolButton7Click
+    end
+    object TBRafresh: TToolButton
+      Left = 63
+      Top = 0
+      AutoSize = True
+      Caption = #21047#26032
+      ImageIndex = 1
+      OnClick = TBRafreshClick
+    end
+    object ToolButton2: TToolButton
+      Left = 126
+      Top = 0
+      AutoSize = True
+      Caption = #36807#28388
+      ImageIndex = 0
+      Visible = False
+    end
+    object ToolButton4: TToolButton
+      Left = 189
+      Top = 0
+      AutoSize = True
+      Caption = #26032#22686
+      ImageIndex = 9
+      Visible = False
+      OnClick = ToolButton4Click
+    end
+    object ToolButton5: TToolButton
+      Left = 252
+      Top = 0
+      AutoSize = True
+      Caption = #21024#38500
+      ImageIndex = 6
+      Visible = False
+      OnClick = ToolButton5Click
+    end
+    object ToolButton6: TToolButton
+      Left = 315
+      Top = 0
+      AutoSize = True
+      Caption = #20462#25913
+      ImageIndex = 3
+      Visible = False
+      OnClick = ToolButton6Click
+    end
+    object ToolButton3: TToolButton
+      Left = 378
+      Top = 0
+      AutoSize = True
+      Caption = #25171#21360
+      ImageIndex = 21
+      Visible = False
+    end
+    object ToolButton1: TToolButton
+      Left = 441
+      Top = 0
+      AutoSize = True
+      Caption = #23548#20986
+      ImageIndex = 20
+      OnClick = ToolButton1Click
+    end
+    object TBClose: TToolButton
+      Left = 504
+      Top = 0
+      AutoSize = True
+      Caption = #20851#38381
+      ImageIndex = 7
+      OnClick = TBCloseClick
+    end
+  end
+  object cxGrid2: TcxGrid [1]
+    Left = 0
+    Top = 120
+    Width = 1461
+    Height = 403
+    Align = alClient
+    PopupMenu = PopupMenu1
+    TabOrder = 2
+    object Tv2: TcxGridDBTableView
+      Navigator.Buttons.CustomButtons = <>
+      Navigator.Buttons.Delete.Enabled = False
+      Navigator.Buttons.Delete.Visible = False
+      ScrollbarAnnotations.CustomAnnotations = <>
+      DataController.DataSource = DS_HZ
+      DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
+      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
+        end
+        item
+          Kind = skSum
+        end
+        item
+          Kind = skCount
+        end>
+      DataController.Summary.SummaryGroups = <>
+      OptionsCustomize.ColumnFiltering = False
+      OptionsData.Deleting = False
+      OptionsData.DeletingConfirmation = False
+      OptionsView.Footer = True
+      OptionsView.GroupByBox = False
+      object Tv2Column17: TcxGridDBColumn
+        Caption = #36873#25321
+        DataBinding.FieldName = 'Ssel'
+        DataBinding.IsNullValueType = True
+        PropertiesClassName = 'TcxCheckBoxProperties'
+        HeaderAlignmentHorz = taCenter
+        Width = 50
+      end
+      object Tv2Column1: TcxGridDBColumn
+        Caption = #38050#25187#24207#21495
+        DataBinding.FieldName = 'GKNo'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 100
+      end
+      object Tv2Column2: TcxGridDBColumn
+        Caption = #38050#25187#31576#21495
+        DataBinding.FieldName = 'GKKH'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 100
+      end
+      object Tv2Column3: TcxGridDBColumn
+        Caption = #38050#25187#40831#25968
+        DataBinding.FieldName = 'GKCS'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 100
+      end
+      object Tv2Column4: TcxGridDBColumn
+        Caption = #38050#25187#32534#21495
+        DataBinding.FieldName = 'GKBH'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 100
+      end
+      object Tv2Column5: TcxGridDBColumn
+        Caption = #38050#25187#35268#26684
+        DataBinding.FieldName = 'GKSPec'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 100
+      end
+      object Tv2Column8: TcxGridDBColumn
+        Caption = #20215#26684
+        DataBinding.FieldName = 'Price'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 100
+      end
+      object Tv2Column9: TcxGridDBColumn
+        Caption = #24403#21069#36136#37327
+        DataBinding.FieldName = 'DQZL'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 100
+      end
+      object Tv2Column6: TcxGridDBColumn
+        Caption = #38050#25187#20379#24212#21830
+        DataBinding.FieldName = 'GKGYS'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 100
+      end
+      object Tv2Column7: TcxGridDBColumn
+        Caption = #20837#24211#26085#26399
+        DataBinding.FieldName = 'IODate'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 100
+      end
+      object Tv2Column11: TcxGridDBColumn
+        Caption = 'A'#38754#29366#24577
+        DataBinding.FieldName = 'AM'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 100
+      end
+      object Tv2Column12: TcxGridDBColumn
+        Caption = 'B'#38754#29366#24577
+        DataBinding.FieldName = 'BM'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 100
+      end
+      object Tv2Column13: TcxGridDBColumn
+        Caption = 'C'#38754#29366#24577
+        DataBinding.FieldName = 'CM'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 100
+      end
+      object Tv2Column14: TcxGridDBColumn
+        Caption = 'D'#38754#29366#24577
+        DataBinding.FieldName = 'DM'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 100
+      end
+      object Tv2Column10: TcxGridDBColumn
+        Caption = #22791#27880
+        DataBinding.FieldName = 'Note'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 100
+      end
+      object Tv2Column15: TcxGridDBColumn
+        Caption = #20351#29992#26102#38388
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 100
+      end
+      object Tv2Column16: TcxGridDBColumn
+        Caption = #31359#31576#38754
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 100
+      end
+    end
+    object cxGridLevel1: TcxGridLevel
+      GridView = Tv2
+    end
+  end
+  object Panel1: TPanel [2]
+    Left = 0
+    Top = 30
+    Width = 1461
+    Height = 90
+    Align = alTop
+    BevelInner = bvRaised
+    BevelOuter = bvLowered
+    Color = clWhite
+    ParentBackground = False
+    TabOrder = 1
+    object Label1: TLabel
+      Left = 42
+      Top = 35
+      Width = 64
+      Height = 19
+      Caption = #38050#25187#24207#21495
+    end
+    object GKNo: TcxTextEdit
+      Tag = 2
+      Left = 112
+      Top = 31
+      ParentColor = True
+      Properties.OnChange = MCNOPropertiesChange
+      TabOrder = 0
+      Width = 158
+    end
+  end
+  inherited ADOQueryBaseCmd: TADOQuery
+    Connection = DataLink_BaseInfo.ADOLink
+    Left = 113
+    Top = 256
+  end
+  inherited ADOQueryBaseTemp: TADOQuery
+    Connection = DataLink_BaseInfo.ADOLink
+    Left = 137
+    Top = 169
+  end
+  object ADOQueryTemp: TADOQuery
+    Connection = DataLink_BaseInfo.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 459
+    Top = 169
+  end
+  object ADOQueryCmd: TADOQuery
+    Connection = DataLink_BaseInfo.ADOLink
+    Parameters = <>
+    Left = 357
+    Top = 153
+  end
+  object ADOQueryMain: TADOQuery
+    Connection = DataLink_BaseInfo.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 253
+    Top = 161
+  end
+  object GPM_1: TcxGridPopupMenu
+    Grid = cxGrid2
+    PopupMenus = <>
+    Left = 520
+    Top = 264
+  end
+  object DS_HZ: TDataSource
+    DataSet = CDS_HZ
+    Left = 283
+    Top = 259
+  end
+  object CDS_HZ: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 429
+    Top = 271
+  end
+  object PopupMenu1: TPopupMenu
+    Left = 355
+    Top = 250
+    object N1: TMenuItem
+      Caption = #20840#36873
+      OnClick = N1Click
+    end
+    object N2: TMenuItem
+      Caption = #20840#24323
+      OnClick = N2Click
+    end
+  end
+end

A05基础资料管理/U_GKManage_Sel.pas

@@ -0,0 +1,371 @@
+unit U_GKManage_Sel;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, cxGraphics, cxCustomData, cxStyles, cxTL, cxMaskEdit, DB, ADODB,
+  cxInplaceContainer, cxDBTL, cxControls, cxTLData, ComCtrls, ToolWin, StdCtrls,
+  cxFilter, cxData, cxDataStorage, cxEdit, cxDBData, DBClient,
+  cxGridCustomTableView, cxGridTableView, cxGridDBTableView, ExtCtrls,
+  cxSplitter, cxGridLevel, cxClasses, cxGridCustomView, cxGrid,
+  cxGridCustomPopupMenu, cxGridPopupMenu, RM_Dataset, RM_System, RM_Common,
+  RM_Class, RM_GridReport, IdBaseComponent, IdComponent, IdTCPConnection,
+  IdTCPClient, IdFTP, ShellAPI, IniFiles, cxCheckBox, cxCalendar, cxButtonEdit,
+  cxTextEdit, cxPC, cxCheckComboBox, cxDropDownEdit, Menus, RM_e_Xls,
+  cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxDateRanges,
+  dxBarBuiltInMenu, U_BaseHelp, RM_BarCode, dxScrollbarAnnotations, cxContainer,
+  cxProgressBar, dxSkinsCore, dxSkinsDefaultPainters, U_BaseList,
+  System.ImageList, Vcl.ImgList;
+
+type
+  TfrmGKManage_Sel = class(TfrmBaseHelp)
+    ToolBar1: TToolBar;
+    TBRafresh: TToolButton;
+    TBClose: TToolButton;
+    ADOQueryTemp: TADOQuery;
+    ADOQueryCmd: TADOQuery;
+    ToolButton2: TToolButton;
+    ADOQueryMain: TADOQuery;
+    ToolButton1: TToolButton;
+    cxGrid2: TcxGrid;
+    Tv2: TcxGridDBTableView;
+    cxGridLevel1: TcxGridLevel;
+    GPM_1: TcxGridPopupMenu;
+    DS_HZ: TDataSource;
+    CDS_HZ: TClientDataSet;
+    PopupMenu1: TPopupMenu;
+    N1: TMenuItem;
+    N2: TMenuItem;
+    Panel1: TPanel;
+    Label1: TLabel;
+    ToolButton3: TToolButton;
+    ToolButton4: TToolButton;
+    ToolButton5: TToolButton;
+    ToolButton6: TToolButton;
+    GKNo: TcxTextEdit;
+    Tv2Column1: TcxGridDBColumn;
+    Tv2Column2: TcxGridDBColumn;
+    Tv2Column3: TcxGridDBColumn;
+    Tv2Column4: TcxGridDBColumn;
+    Tv2Column5: TcxGridDBColumn;
+    Tv2Column6: TcxGridDBColumn;
+    Tv2Column7: TcxGridDBColumn;
+    Tv2Column8: TcxGridDBColumn;
+    Tv2Column9: TcxGridDBColumn;
+    Tv2Column10: TcxGridDBColumn;
+    Tv2Column11: TcxGridDBColumn;
+    Tv2Column12: TcxGridDBColumn;
+    Tv2Column13: TcxGridDBColumn;
+    Tv2Column14: TcxGridDBColumn;
+    Tv2Column15: TcxGridDBColumn;
+    Tv2Column16: TcxGridDBColumn;
+    ToolButton7: TToolButton;
+    Tv2Column17: TcxGridDBColumn;
+    procedure FormDestroy(Sender: TObject);
+    procedure FormClose(Sender: TObject; var Action: TCloseAction);
+    procedure TBCloseClick(Sender: TObject);
+    procedure FormShow(Sender: TObject);
+    procedure TBRafreshClick(Sender: TObject);
+    procedure ToolButton1Click(Sender: TObject);
+    procedure cxTabControl1Change(Sender: TObject);
+    procedure N1Click(Sender: TObject);
+    procedure N2Click(Sender: TObject);
+    procedure CustomerChange(Sender: TObject);
+    procedure FormCreate(Sender: TObject);
+    procedure MCNOPropertiesChange(Sender: TObject);
+    procedure ToolButton4Click(Sender: TObject);
+    procedure v2Column12PropertiesEditValueChanged(Sender: TObject);
+    procedure cxgrdbclmnTv2Column3PropertiesEditValueChanged(Sender: TObject);
+    procedure v2Column8PropertiesEditValueChanged(Sender: TObject);
+    procedure ToolButton5Click(Sender: TObject);
+    procedure ToolButton6Click(Sender: TObject);
+    procedure ToolButton7Click(Sender: TObject);
+  private
+    { Private declarations }
+    procedure InitGrid();
+  public
+    fFlag: integer;
+    { Public declarations }
+    RKFlag, FCYID, fmanage: string;
+  end;
+
+var
+  frmGKManage_Sel: TfrmGKManage_Sel;
+
+implementation
+
+uses
+  U_DataLink, U_RTFun, U_ZDYHelp, U_LabelPrint, U_MachineInPut, U_EmployeeSel,
+  U_GKInput;
+
+{$R *.dfm}
+
+procedure TfrmGKManage_Sel.InitGrid();
+begin
+  GKNO.SetFocus;
+  try
+    ADOQueryMain.DisableControls;
+    with ADOQueryMain do
+    begin
+      Close;
+      SQL.Clear;
+      sql.Add(' select A.* from  BS_GK A  ');
+
+//      showmessage(Sql.text);
+      Open;
+    end;
+    SCreateCDS(ADOQueryMain, CDS_HZ);
+    SInitCDSData(ADOQueryMain, CDS_HZ);
+  finally
+    ADOQueryMain.EnableControls;
+    ToolButton2.Click;
+  end;
+end;
+
+procedure TfrmGKManage_Sel.MCNOPropertiesChange(Sender: TObject);
+var
+  sql: string;
+begin
+  if ADOQueryMain.Active then
+  begin
+    sql := SGetFilters(Panel1, 1, 2);
+    SDofilter(ADOQueryMain, sql);
+    SCreateCDS(ADOQueryMain, CDS_HZ);
+    SInitCDSData(ADOQueryMain, CDS_HZ);
+  end;
+end;
+
+procedure TfrmGKManage_Sel.FormDestroy(Sender: TObject);
+begin
+  inherited;
+  frmGKManage_Sel := nil;
+end;
+
+procedure TfrmGKManage_Sel.FormClose(Sender: TObject; var Action: TCloseAction);
+begin
+  inherited;
+  Action := caFree;
+end;
+
+procedure TfrmGKManage_Sel.TBCloseClick(Sender: TObject);
+begin
+  WriteCxGrid(Trim(Self.Caption), Tv2, '汇率管理');
+  Close;
+end;
+
+procedure TfrmGKManage_Sel.FormShow(Sender: TObject);
+begin
+  inherited;
+  ReadCxGrid(Trim(Self.Caption), Tv2, '汇率管理');
+  InitGrid();
+end;
+
+procedure TfrmGKManage_Sel.TBRafreshClick(Sender: TObject);
+begin
+  InitGrid();
+end;
+
+procedure TfrmGKManage_Sel.ToolButton1Click(Sender: TObject);
+begin
+  if ADOQueryMain.IsEmpty then
+    Exit;
+
+  TcxGridToExcel(self.Caption, cxgrid2);
+end;
+
+procedure TfrmGKManage_Sel.ToolButton4Click(Sender: TObject);
+begin
+  try
+    frmGKInput := TfrmGKInput.Create(Application);
+    with frmGKInput do
+    begin
+      FGKID := '';
+      if ShowModal = 1 then
+      begin
+        InitGrid();
+      end;
+    end;
+  finally
+    frmGKInput.Free;
+  end;
+end;
+
+procedure TfrmGKManage_Sel.ToolButton5Click(Sender: TObject);
+begin
+  if CDS_HZ.IsEmpty then
+    Exit;
+
+  if Application.MessageBox('确定要删除数据吗？', '提示', 32 + 4) <> IDYES then
+    Exit;
+
+  with ADOQueryCmd do
+  begin
+    Close;
+    sql.Clear;
+    sql.Add('delete BS_GK where GKID=' + QuotedStr(CDS_HZ.FieldByName('GKID').AsString));
+    ExecSQL;
+  end;
+
+  InitGrid();
+end;
+
+procedure TfrmGKManage_Sel.ToolButton6Click(Sender: TObject);
+begin
+  if CDS_HZ.IsEmpty then
+    exit;
+  try
+    frmGKInput := TfrmGKInput.Create(Application);
+    with frmGKInput do
+    begin
+      FGKID := Trim(Self.CDS_HZ.fieldbyname('GKID').AsString);
+      if ShowModal = 1 then
+      begin
+
+      end;
+    end;
+  finally
+    frmGKInput.Free;
+  end;
+end;
+
+procedure TfrmGKManage_Sel.ToolButton7Click(Sender: TObject);
+begin
+  GKNo.SetFocus;
+  ModalResult := 1;
+end;
+
+procedure TfrmGKManage_Sel.v2Column12PropertiesEditValueChanged(Sender: TObject);
+var
+  mvalue, FFieldName: string;
+begin
+  mvalue := TcxTextEdit(Sender).EditingText;
+  FFieldName := Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName);
+
+  try
+    ADOQueryCmd.Connection.BeginTrans;
+    with CDS_HZ do
+    begin
+      Edit;
+      FieldByName(FFieldName).Value := Trim(mvalue);
+      Post;
+    end;
+
+    with ADOQueryCmd do
+    begin
+      Close;
+      sql.Clear;
+      sql.Add(' UPdate BS_HL ');
+      sql.Add(' Set Begdate = ''' + mvalue + '''');
+      sql.Add(' where HLID=' + quotedstr(CDS_HZ.fieldbyname('HLID').AsString));
+      ExecSQL;
+    end;
+    ADOQueryCmd.Connection.CommitTrans;
+    tv2.Controller.EditingController.ShowEdit();
+  except
+    tv2.Controller.EditingController.ShowEdit();
+    ADOQueryCmd.Connection.RollbackTrans;
+    Application.MessageBox('保存失败！', '提示', 0);
+  end
+end;
+
+procedure TfrmGKManage_Sel.v2Column8PropertiesEditValueChanged(Sender: TObject);
+var
+  mvalue, FFieldName: string;
+begin
+  mvalue := TcxTextEdit(Sender).EditingText;
+  FFieldName := Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName);
+
+  try
+    ADOQueryCmd.Connection.BeginTrans;
+    with CDS_HZ do
+    begin
+      Edit;
+      FieldByName(FFieldName).Value := Trim(mvalue);
+      Post;
+    end;
+
+    with ADOQueryCmd do
+    begin
+      Close;
+      sql.Clear;
+      sql.Add(' UPdate BS_HL ');
+      sql.Add(' Set HL = ' + mvalue + '');
+      sql.Add(' where HLID=' + quotedstr(CDS_HZ.fieldbyname('HLID').AsString));
+      ExecSQL;
+    end;
+    ADOQueryCmd.Connection.CommitTrans;
+    tv2.Controller.EditingController.ShowEdit();
+  except
+    tv2.Controller.EditingController.ShowEdit();
+    ADOQueryCmd.Connection.RollbackTrans;
+    Application.MessageBox('保存失败！', '提示', 0);
+  end
+end;
+
+procedure TfrmGKManage_Sel.cxgrdbclmnTv2Column3PropertiesEditValueChanged(Sender: TObject);
+var
+  mvalue, FFieldName: string;
+begin
+  mvalue := TcxTextEdit(Sender).EditingText;
+  FFieldName := Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName);
+
+  try
+    ADOQueryCmd.Connection.BeginTrans;
+    with CDS_HZ do
+    begin
+      Edit;
+      FieldByName(FFieldName).Value := Trim(mvalue);
+      Post;
+    end;
+
+    with ADOQueryCmd do
+    begin
+      Close;
+      sql.Clear;
+      sql.Add(' UPdate BS_HL ');
+      sql.Add(' Set EndDate = ''' + mvalue + '''');
+      sql.Add(' where HLID=' + quotedstr(CDS_HZ.fieldbyname('HLID').AsString));
+      ExecSQL;
+    end;
+    ADOQueryCmd.Connection.CommitTrans;
+    tv2.Controller.EditingController.ShowEdit();
+  except
+    tv2.Controller.EditingController.ShowEdit();
+    ADOQueryCmd.Connection.RollbackTrans;
+    Application.MessageBox('保存失败！', '提示', 0);
+  end
+end;
+
+procedure TfrmGKManage_Sel.cxTabControl1Change(Sender: TObject);
+begin
+  InitGrid;
+end;
+
+procedure TfrmGKManage_Sel.N1Click(Sender: TObject);
+begin
+  if CDS_HZ.IsEmpty then
+    exit;
+  SelOKNo(CDS_HZ, True);
+end;
+
+procedure TfrmGKManage_Sel.N2Click(Sender: TObject);
+begin
+  if CDS_HZ.IsEmpty then
+    exit;
+  SelOKNo(CDS_HZ, False);
+end;
+
+procedure TfrmGKManage_Sel.CustomerChange(Sender: TObject);
+begin
+  ToolButton2.Click;
+end;
+
+procedure TfrmGKManage_Sel.FormCreate(Sender: TObject);
+begin
+  inherited;
+  fmanage := Trim(DParameters1);
+end;
+
+end.
+

A05基础资料管理/U_GetDllForm.pas

@@ -14,7 +14,7 @@ implementation
 
 uses
   U_DataLink, U_MachineManage, U_PositionList, U_WarpBeamManage, U_TrayManage,
-  U_HLManage, U_GKManage;
+  U_HLManage, U_GKManage, U_GKManage_CX, U_GKDRList;
 
        /////////////////////////////////////////////////////////////////
       //         功能说明:取Dll中得窗体                              //
@@ -72,7 +72,7 @@ begin
     user := 'rtsa';
     pswd := 'rightsoft@5740';
     DConString := 'Provider=SQLOLEDB.1;Password=' + pswd + ';Persist Security Info=True;User ID=' + user + ';Initial Catalog=' + dtbase + ';Data Source=' + server;
-//   DParameters1:='高权限';
+    DParameters1 := '管理';
   end
   else
   begin
@@ -163,6 +163,29 @@ begin
         end;
       end;
 
+    115:  //钢扣查询
+      begin
+        with TfrmGKManage_CX.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do
+        begin
+          fFormID := FormID;
+          FormStyle := mstyle;
+          WindowState := mstate;
+          BorderStyle := mborderstyle;
+          mnewHandle := Handle;
+        end;
+      end;
+
+    116:  //钢扣报废申请
+      begin
+        with TfrmGKDRList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do
+        begin
+          fFormID := FormID;
+          FormStyle := mstyle;
+          WindowState := mstate;
+          BorderStyle := mborderstyle;
+          mnewHandle := Handle;
+        end;
+      end;
 
      {
 

A05基础资料管理/U_HLManage.dfm

@@ -100,7 +100,6 @@ inherited frmHLManage: TfrmHLManage
     Align = alClient
     PopupMenu = PopupMenu1
     TabOrder = 2
-    ExplicitTop = 36
     object Tv2: TcxGridDBTableView
       Navigator.Buttons.CustomButtons = <>
       Navigator.Buttons.Delete.Enabled = False
@@ -165,6 +164,20 @@ inherited frmHLManage: TfrmHLManage
         HeaderAlignmentHorz = taCenter
         Width = 180
       end
+      object Tv2Column1: TcxGridDBColumn
+        Caption = #24065#31181
+        DataBinding.FieldName = 'BZ'
+        DataBinding.IsNullValueType = True
+        PropertiesClassName = 'TcxComboBoxProperties'
+        Properties.Items.Strings = (
+          'CNY'
+          'USD'
+          'EUR'
+          'VND')
+        Properties.OnEditValueChanged = Tv2Column1PropertiesEditValueChanged
+        HeaderAlignmentHorz = taCenter
+        Width = 120
+      end
     end
     object cxGridLevel1: TcxGridLevel
       GridView = Tv2

A05基础资料管理/U_HLManage.pas

@@ -46,6 +46,7 @@ type
     ToolButton6: TToolButton;
     MCNO: TcxTextEdit;
     cxgrdbclmnTv2Column3: TcxGridDBColumn;
+    Tv2Column1: TcxGridDBColumn;
     procedure FormDestroy(Sender: TObject);
     procedure FormClose(Sender: TObject; var Action: TCloseAction);
     procedure TBCloseClick(Sender: TObject);
@@ -63,6 +64,7 @@ type
     procedure cxgrdbclmnTv2Column3PropertiesEditValueChanged(Sender: TObject);
     procedure v2Column8PropertiesEditValueChanged(Sender: TObject);
     procedure ToolButton5Click(Sender: TObject);
+    procedure Tv2Column1PropertiesEditValueChanged(Sender: TObject);
   private
     { Private declarations }
     procedure InitGrid();
@@ -193,6 +195,40 @@ begin
   InitGrid();
 end;
 
+procedure TfrmHLManage.Tv2Column1PropertiesEditValueChanged(Sender: TObject);
+var
+  mvalue, FFieldName: string;
+begin
+  mvalue := TcxTextEdit(Sender).EditingText;
+  FFieldName := Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName);
+
+  try
+    ADOQueryCmd.Connection.BeginTrans;
+    with CDS_HZ do
+    begin
+      Edit;
+      FieldByName(FFieldName).Value := Trim(mvalue);
+      Post;
+    end;
+
+    with ADOQueryCmd do
+    begin
+      Close;
+      sql.Clear;
+      sql.Add(' UPdate BS_HL ');
+      sql.Add(' Set BZ = ''' + mvalue + '''');
+      sql.Add(' where HLID=' + quotedstr(CDS_HZ.fieldbyname('HLID').AsString));
+      ExecSQL;
+    end;
+    ADOQueryCmd.Connection.CommitTrans;
+    tv2.Controller.EditingController.ShowEdit();
+  except
+    tv2.Controller.EditingController.ShowEdit();
+    ADOQueryCmd.Connection.RollbackTrans;
+    Application.MessageBox('±£´æʧ°Ü£¡', 'Ìáʾ', 0);
+  end
+end;
+
 procedure TfrmHLManage.v2Column12PropertiesEditValueChanged(Sender: TObject);
 var
   mvalue, FFieldName: string;

E01梭织生产计划/TatPlan.dpr

@@ -29,8 +29,6 @@ uses
   U_WBSpecSel in '..\A00通用窗体\U_WBSpecSel.pas' {frmWBSpecSel},
   U_TatPlanSel in '..\E00梭织通用窗体\U_TatPlanSel.pas' {frmTatPlanSel},
   U_BaseDataLink in '..\..\..\public10\design\U_BaseDataLink.pas' {BaseDataLink: TDataModule},
-  U_TatPlanList in 'U_TatPlanList.pas' {frmTatPlanList},
-  U_TatPlanInPut in 'U_TatPlanInPut.pas' {frmTatPlanInPut},
   U_TradeSalesContractSel in '..\T00贸易通用窗体\U_TradeSalesContractSel.pas' {frmTradeSalesContractSel},
   U_TatPlanMachList in 'U_TatPlanMachList.pas' {frmTatPlanMachList},
   U_TatPlanMachInput in 'U_TatPlanMachInput.pas' {frmTatPlanMachInput},
@@ -42,7 +40,9 @@ uses
   U_YarnInfoInPut in '..\B02基础纱线仓库\U_YarnInfoInPut.pas' {frmYarnInfoInPut},
   U_WBSpecInPut in '..\A02基础产品管理\U_WBSpecInPut.pas' {frmWBSpecInPut},
   FrameDateSel in '..\A00通用组件\FrameDateSel.pas' {frmFrameDateSel: TFrame},
-  uSZHN_JSON in '..\..\..\public10\ThreeFun\Fun\uSZHN_JSON.pas';
+  uSZHN_JSON in '..\..\..\public10\ThreeFun\Fun\uSZHN_JSON.pas',
+  U_TatGYList in 'U_TatGYList.pas' {frmTatGYList},
+  U_TatGYInPut in 'U_TatGYInPut.pas' {frmTatGYInPut};
 
 {$R *.res}
 

E01梭织生产计划/TatPlan.dproj

@@ -207,14 +207,6 @@
             <FormType>dfm</FormType>
             <DesignClass>TDataModule</DesignClass>
         </DCCReference>
-        <DCCReference Include="U_TatPlanList.pas">
-            <Form>frmTatPlanList</Form>
-            <FormType>dfm</FormType>
-        </DCCReference>
-        <DCCReference Include="U_TatPlanInPut.pas">
-            <Form>frmTatPlanInPut</Form>
-            <FormType>dfm</FormType>
-        </DCCReference>
         <DCCReference Include="..\T00贸易通用窗体\U_TradeSalesContractSel.pas">
             <Form>frmTradeSalesContractSel</Form>
             <FormType>dfm</FormType>
@@ -246,6 +238,14 @@
             <DesignClass>TFrame</DesignClass>
         </DCCReference>
         <DCCReference Include="..\..\..\public10\ThreeFun\Fun\uSZHN_JSON.pas"/>
+        <DCCReference Include="U_TatGYList.pas">
+            <Form>frmTatGYList</Form>
+            <FormType>dfm</FormType>
+        </DCCReference>
+        <DCCReference Include="U_TatGYInPut.pas">
+            <Form>frmTatGYInPut</Form>
+            <FormType>dfm</FormType>
+        </DCCReference>
         <BuildConfiguration Include="Debug">
             <Key>Cfg_2</Key>
             <CfgParent>Base</CfgParent>

E01梭织生产计划/TatPlan.dproj.local

@@ -1,69 +1,73 @@
 <?xml version="1.0" encoding="utf-8"?>
 <BorlandProject>
 	<Transactions>
-    <Transaction>1899-12-30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.555,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.220,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.806,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\Unit1.pas=</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.736,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCardWJY.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_JHDTJ.dfm</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.555,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.220,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.577,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_FactoryInput2.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.383,D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanCard.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanCard1.dfm</Transaction>
     <Transaction>1899-12-30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.414,D:\Dp10Repo\项目代码\路尚\E02梭织经轴仓库\U_WBTatPlanSel.pas=D:\Dp10Repo\项目代码\路尚\E00梭织通用窗体\U_TatPlanSel.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.959,D:\Dp10Repo\项目代码\路尚\E02梭织经轴仓库\U_WBTatPlanSel.pas=</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.759,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCard1.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCardWJY.dfm</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.469,=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanMachInput.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.452,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\TatPlan.dproj</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.383,D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanCard1.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanCard.dfm</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.308,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnInfoInPut.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.460,=D:\Dp10Repo\项目代码\路尚\E00梭织通用窗体\U_TatPlanSel.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.709,=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_PlanWBList.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.812,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatWBCardInPut.pas=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_PlanWBList.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.258,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.628,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.552,=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatPlanCard.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.873,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.452,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\TatPlan.dproj=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\InformationBase.dproj</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.248,=D:\Dp10RepoV1\项目代码\花蝴蝶\T00贸易通用窗体\U_TradeSalesContractSel.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.812,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatWBCardInPut.dfm=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_PlanWBList.dfm</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.759,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCard1.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCardWJY.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.926,=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanList.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.354,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.416,D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatCardInPut1.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatCardInPut.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.556,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.414,D:\Dp10Repo\项目代码\路尚\E02梭织经轴仓库\U_WBTatPlanSel.dfm=D:\Dp10Repo\项目代码\路尚\E00梭织通用窗体\U_TatPlanSel.dfm</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.547,=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanMachList.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.306,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.203,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_WBSpecSel.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.297,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用组件\FrameDateSel.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.876,=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanInPut.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.125,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_TatClothInfoSel.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.467,=D:\Dp10Repo\项目代码\RTBasics\E00梭织通用窗体\U_TatPlanSel.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.736,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCardWJY.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_JHDTJ.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.469,=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanMachInput.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.561,=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatCardInPut.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.759,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCardWJY.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCard1.dfm</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.460,=D:\Dp10Repo\项目代码\路尚\E00梭织通用窗体\U_TatPlanSel.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.414,D:\Dp10Repo\项目代码\路尚\E00梭织通用窗体\U_TatPlanSel.pas=D:\Dp10Repo\项目代码\路尚\E02梭织经轴仓库\U_WBTatPlanSel.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.308,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnInfoInPut.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.258,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.628,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.812,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_PlanWBList.pas=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatWBCardInPut.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.709,=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_PlanWBList.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.383,D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanCard.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanCard1.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.873,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.552,=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatPlanCard.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.248,=D:\Dp10RepoV1\项目代码\花蝴蝶\T00贸易通用窗体\U_TradeSalesContractSel.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.354,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.926,=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanList.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.812,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_PlanWBList.dfm=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatWBCardInPut.dfm</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=</Transaction>
     <Transaction>1899-12-30 00:00:00.000.719,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_WBSpecInPut.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.383,D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanCard1.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanCard.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.203,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_WBSpecSel.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.736,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_JHDTJ.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCardWJY.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.414,D:\Dp10Repo\项目代码\路尚\E00梭织通用窗体\U_TatPlanSel.dfm=D:\Dp10Repo\项目代码\路尚\E02梭织经轴仓库\U_WBTatPlanSel.dfm</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.556,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.306,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.547,=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanMachList.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.876,=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanInPut.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.561,=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatCardInPut.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.759,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCardWJY.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCard1.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.125,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_TatClothInfoSel.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.297,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用组件\FrameDateSel.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.416,D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatCardInPut.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatCardInPut1.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.416,D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatCardInPut.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatCardInPut1.dfm</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.736,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_JHDTJ.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCardWJY.dfm</Transaction>
     <Transaction>1899-12-30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.416,D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatCardInPut1.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatCardInPut.dfm</Transaction>
+    <Transaction>2025-03-04 20:53:30.747,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatGYList.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatPlanList.dfm</Transaction>
+    <Transaction>2025-03-04 20:53:30.747,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatGYList.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatPlanList.pas</Transaction>
+    <Transaction>2025-03-04 20:56:26.957,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatGYInPut.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatPlanInPut.dfm</Transaction>
+    <Transaction>2025-03-04 20:56:26.957,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatGYInPut.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatPlanInPut.pas</Transaction>
   </Transactions>
 	<ProjectSortOrder AutoSort="0" SortType="0">
     <File Path="android-support-v4.dex.jar"/>
@@ -104,7 +108,6 @@
     <File Path="..\A00通用窗体\U_CompanySel.dfm"/>
     <File Path="..\A00通用窗体\U_EmployeeSel.pas"/>
     <File Path="..\A00通用窗体\U_EmployeeSel.dfm"/>
-    <File Path="..\A00通用窗体\U_FactoryInput2.pas"/>
     <File Path="..\A00通用窗体\U_LabelMapSet.pas"/>
     <File Path="..\A00通用窗体\U_LabelMapSet.dfm"/>
     <File Path="..\A00通用窗体\U_LabelPrint.pas"/>
@@ -160,15 +163,15 @@
     <File Path="U_iniParam.pas"/>
     <File Path="U_TatCardInPut1.pas"/>
     <File Path="U_TatCardInPut1.dfm"/>
-    <File Path="U_TatPlanInPut.pas"/>
-    <File Path="U_TatPlanInPut.dfm"/>
-    <File Path="U_TatPlanList.pas"/>
-    <File Path="U_TatPlanList.dfm"/>
     <File Path="U_TatPlanMachInput.pas"/>
     <File Path="U_TatPlanMachInput.dfm"/>
     <File Path="U_TatPlanMachList.pas"/>
     <File Path="U_TatPlanMachList.dfm"/>
     <File Path="U_JHDTJ.pas"/>
     <File Path="U_JHDTJ.dfm"/>
+    <File Path="U_TatGYList.pas"/>
+    <File Path="U_TatGYList.dfm"/>
+    <File Path="U_TatGYInPut.pas"/>
+    <File Path="U_TatGYInPut.dfm"/>
   </ProjectSortOrder>
 </BorlandProject>

E01梭织生产计划/U_GetDllForm.pas

@@ -16,7 +16,7 @@ implementation
 
 uses
   U_DataLink, U_iniParam, U_TatPlanList, U_TatPlanCard, U_TatPlanMachList,
-  U_TatPlanCard1, U_TatPlanCardWJY, U_JHDTJ;
+  U_TatPlanCard1, U_TatPlanCardWJY, U_JHDTJ, U_TatGYList;
 
 
 
@@ -127,6 +127,18 @@ begin
   //调用子模块窗口
   case FormID of
 
+    100:  //¹¤ÒÕµ¥
+      begin
+        with TfrmTatGYList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do       //
+        begin
+          fFormID := FormID;
+          FormStyle := mstyle;
+          WindowState := mstate;
+          BorderStyle := mborderstyle;
+          mnewHandle := Handle;
+        end;
+      end;
+
     111:  //坯布生产计划单
       begin
         with TfrmTatPlanList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do       //

E01梭织生产计划/U_TatGYList.dfm

@@ -0,0 +1,674 @@
+inherited frmTatGYList: TfrmTatGYList
+  Left = 249
+  Top = 194
+  Caption = #24037#33402#21333
+  ClientHeight = 579
+  ClientWidth = 1540
+  Font.Height = -16
+  Position = poScreenCenter
+  ExplicitWidth = 1556
+  ExplicitHeight = 618
+  PixelsPerInch = 96
+  TextHeight = 21
+  object ToolBar1: TToolBar [0]
+    Tag = 1
+    Left = 0
+    Top = 0
+    Width = 1540
+    Height = 30
+    AutoSize = True
+    ButtonHeight = 30
+    ButtonWidth = 83
+    Caption = 'ToolBar1'
+    Color = clSkyBlue
+    DisabledImages = DataLink_TatPlan.ImageList_new32
+    Font.Charset = GB2312_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -12
+    Font.Name = #23435#20307
+    Font.Style = []
+    Images = DataLink_TatPlan.cxImageList_bar
+    List = True
+    ParentColor = False
+    ParentFont = False
+    ShowCaptions = True
+    TabOrder = 5
+    object TBRafresh: TToolButton
+      Left = 0
+      Top = 0
+      AutoSize = True
+      Caption = #21047#26032
+      ImageIndex = 1
+      OnClick = TBRafreshClick
+    end
+    object TBFind: TToolButton
+      Left = 63
+      Top = 0
+      AutoSize = True
+      Caption = #36807#28388
+      ImageIndex = 0
+      OnClick = TBFindClick
+    end
+    object TBAdd: TToolButton
+      Left = 126
+      Top = 0
+      AutoSize = True
+      Caption = #26032#22686
+      ImageIndex = 9
+      OnClick = TBAddClick
+    end
+    object TBCopy: TToolButton
+      Left = 189
+      Top = 0
+      AutoSize = True
+      Caption = #22797#21046
+      ImageIndex = 13
+      OnClick = TBCopyClick
+    end
+    object TBEdit: TToolButton
+      Left = 252
+      Top = 0
+      AutoSize = True
+      Caption = #20462#25913
+      ImageIndex = 3
+      OnClick = TBEditClick
+    end
+    object TBPrint: TToolButton
+      Left = 315
+      Top = 0
+      AutoSize = True
+      Caption = #25171#21360
+      ImageIndex = 21
+      OnClick = TBPrintClick
+    end
+    object TBView: TToolButton
+      Left = 378
+      Top = 0
+      AutoSize = True
+      Caption = #26597#30475
+      ImageIndex = 4
+      OnClick = TBViewClick
+    end
+    object TBDel: TToolButton
+      Left = 441
+      Top = 0
+      AutoSize = True
+      Caption = #21024#38500
+      ImageIndex = 5
+      OnClick = TBDelClick
+    end
+    object btnChk: TToolButton
+      Left = 504
+      Top = 0
+      AutoSize = True
+      Caption = #23457#26680
+      ImageIndex = 20
+      OnClick = btnChkClick
+    end
+    object btnReChk: TToolButton
+      Left = 567
+      Top = 0
+      AutoSize = True
+      Caption = #25764#38144#23457#26680
+      ImageIndex = 11
+      OnClick = btnReChkClick
+    end
+    object TBEnd: TToolButton
+      Left = 654
+      Top = 0
+      AutoSize = True
+      Caption = #32467#26463
+      ImageIndex = 20
+      Visible = False
+      OnClick = TBEndClick
+    end
+    object TBNoEnd: TToolButton
+      Left = 717
+      Top = 0
+      AutoSize = True
+      Caption = #25764#38144#32467#26463
+      ImageIndex = 11
+      Visible = False
+      OnClick = TBNoEndClick
+    end
+    object TBExport: TToolButton
+      Left = 804
+      Top = 0
+      AutoSize = True
+      Caption = #23548#20986
+      ImageIndex = 20
+      OnClick = TBExportClick
+    end
+    object ToolButton1: TToolButton
+      Left = 867
+      Top = 0
+      AutoSize = True
+      Caption = #20445#23384#26684#24335
+      ImageIndex = 16
+      OnClick = ToolButton1Click
+    end
+    object TBClose: TToolButton
+      Left = 954
+      Top = 0
+      AutoSize = True
+      Caption = #20851#38381
+      ImageIndex = 7
+      OnClick = TBCloseClick
+    end
+  end
+  object Panel1: TPanel [1]
+    Left = 0
+    Top = 30
+    Width = 1540
+    Height = 82
+    Align = alTop
+    BevelInner = bvRaised
+    BevelOuter = bvLowered
+    Color = clWhite
+    ParentBackground = False
+    TabOrder = 6
+    object Label1: TLabel
+      Left = 18
+      Top = 14
+      Width = 64
+      Height = 21
+      Caption = #30331#35760#26085#26399
+    end
+    object Label2: TLabel
+      Left = 53
+      Top = 50
+      Width = 21
+      Height = 21
+      Caption = '---'
+    end
+    object Label3: TLabel
+      Left = 229
+      Top = 14
+      Width = 48
+      Height = 21
+      Caption = #21512#21516#21495
+    end
+    object Label5: TLabel
+      Left = 615
+      Top = 50
+      Width = 64
+      Height = 21
+      Caption = #22383#24067#21517#31216
+    end
+    object Label10: TLabel
+      Left = 615
+      Top = 14
+      Width = 64
+      Height = 21
+      Caption = #22383#24067#32534#21495
+    end
+    object Label7: TLabel
+      Left = 442
+      Top = 14
+      Width = 32
+      Height = 21
+      Caption = #23458#25143
+    end
+    object lbl1: TLabel
+      Left = 442
+      Top = 50
+      Width = 32
+      Height = 21
+      Caption = #31867#22411
+    end
+    object Label4: TLabel
+      Left = 230
+      Top = 50
+      Width = 64
+      Height = 21
+      Caption = #24037#33402#21333#21495
+    end
+    object ConNo: TcxTextEdit
+      Tag = 2
+      Left = 300
+      Top = 6
+      Properties.OnChange = ConNoPropertiesChange
+      TabOrder = 0
+      OnKeyPress = conPress
+      Width = 120
+    end
+    object C_Name: TcxTextEdit
+      Tag = 2
+      Left = 687
+      Top = 46
+      Properties.OnChange = ConNoPropertiesChange
+      TabOrder = 1
+      OnKeyPress = C_NameKeyPress
+      Width = 120
+    end
+    object C_Code: TcxTextEdit
+      Tag = 2
+      Left = 687
+      Top = 7
+      Properties.OnChange = ConNoPropertiesChange
+      TabOrder = 2
+      OnKeyPress = C_CodeKeyPress
+      Width = 120
+    end
+    object CustName: TcxTextEdit
+      Tag = 2
+      Left = 486
+      Top = 8
+      Properties.OnChange = ConNoPropertiesChange
+      TabOrder = 3
+      OnKeyPress = CustNameKeyPress
+      Width = 120
+    end
+    object OrderNo: TcxTextEdit
+      Tag = 2
+      Left = 300
+      Top = 46
+      Properties.OnChange = ConNoPropertiesChange
+      TabOrder = 4
+      OnKeyPress = conPress
+      Width = 120
+    end
+    object BegDate: TcxDateEdit
+      Left = 89
+      Top = 8
+      Properties.ShowTime = False
+      TabOrder = 5
+      Width = 120
+    end
+    object EndDate: TcxDateEdit
+      Left = 89
+      Top = 46
+      Properties.ShowTime = False
+      TabOrder = 6
+      Width = 120
+    end
+    object OrdType: TcxComboBox
+      Left = 489
+      Top = 46
+      Properties.Items.Strings = (
+        #22823#36135#21333
+        #35797#26679#21333)
+      Properties.OnChange = ConNoPropertiesChange
+      TabOrder = 7
+      Width = 120
+    end
+  end
+  object cxGrid1: TcxGrid [2]
+    Left = 0
+    Top = 140
+    Width = 1285
+    Height = 439
+    Align = alClient
+    TabOrder = 2
+    ExplicitHeight = 444
+    object Tv1: TcxGridDBTableView
+      Navigator.Buttons.CustomButtons = <>
+      ScrollbarAnnotations.CustomAnnotations = <>
+      OnFocusedRecordChanged = Tv1FocusedRecordChanged
+      DataController.DataSource = DS_1
+      DataController.Filter.AutoDataSetFilter = True
+      DataController.Summary.DefaultGroupSummaryItems = <
+        item
+          Kind = skSum
+          Position = spFooter
+        end
+        item
+          Kind = skSum
+        end
+        item
+          Kind = skSum
+        end
+        item
+          Kind = skSum
+        end
+        item
+          Kind = skSum
+        end
+        item
+          Kind = skSum
+        end
+        item
+          Kind = skSum
+          Position = spFooter
+        end
+        item
+          Kind = skSum
+          Position = spFooter
+        end
+        item
+          Kind = skSum
+          Position = spFooter
+        end
+        item
+          Kind = skSum
+          Position = spFooter
+        end>
+      DataController.Summary.FooterSummaryItems = <
+        item
+          Kind = skSum
+        end
+        item
+          Kind = skSum
+        end
+        item
+          Kind = skSum
+        end
+        item
+          Kind = skSum
+        end
+        item
+          Kind = skSum
+        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
+      object v1OrderNo: TcxGridDBColumn
+        Caption = #21512#21516#21495
+        DataBinding.FieldName = 'ConNo'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Width = 70
+      end
+      object Tv1Column2: TcxGridDBColumn
+        Caption = #24037#33402#21333#21495
+        DataBinding.FieldName = 'OrderNo'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Width = 91
+      end
+      object v1Column31: TcxGridDBColumn
+        Caption = #23458#25143
+        DataBinding.FieldName = 'CustName'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Width = 70
+      end
+      object v1Column5: TcxGridDBColumn
+        Caption = #19979#21333#26085#26399
+        DataBinding.FieldName = 'OrdDate'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Width = 109
+      end
+      object Tv1Column1: TcxGridDBColumn
+        Caption = #21152#24037#21333#20301
+        DataBinding.FieldName = 'FtyCoName'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Width = 102
+      end
+      object v1Column19: TcxGridDBColumn
+        Caption = #20132#36135#26085#26399
+        DataBinding.FieldName = 'DlyDate'
+        DataBinding.IsNullValueType = True
+        PropertiesClassName = 'TcxDateEditProperties'
+        Properties.SaveTime = False
+        Properties.ShowTime = False
+        HeaderAlignmentHorz = taCenter
+        Width = 102
+      end
+      object v1Column21: TcxGridDBColumn
+        Caption = #22383#24067#32534#21495
+        DataBinding.FieldName = 'C_Code'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Width = 100
+      end
+      object v1Column2: TcxGridDBColumn
+        Caption = #22383#24067#21517#31216
+        DataBinding.FieldName = 'C_Name'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Width = 87
+      end
+      object Tv1Column4: TcxGridDBColumn
+        Caption = #26426#22411
+        DataBinding.FieldName = 'LoomType'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 80
+      end
+      object v1PRTKZ: TcxGridDBColumn
+        Caption = #29702#35770#24179#26041#20811#37325
+        DataBinding.FieldName = 'C_GramWeight'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 131
+      end
+      object v1Column3: TcxGridDBColumn
+        Caption = #23454#27979#24179#26041#20811#37325
+        DataBinding.FieldName = 'C_TestGramWeight'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 112
+      end
+      object Tv1Column3: TcxGridDBColumn
+        Caption = #32428#23494
+        DataBinding.FieldName = 'C_FinishLatitudeDensity'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 88
+      end
+      object v1Column7: TcxGridDBColumn
+        Caption = #21305#38271
+        DataBinding.FieldName = 'OrdPieceLen'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Width = 60
+      end
+      object v1PRTMF: TcxGridDBColumn
+        Caption = #31576#24133
+        DataBinding.FieldName = 'C_ReedWidth'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 70
+      end
+      object Tv1Column8: TcxGridDBColumn
+        Caption = #31576#21495
+        DataBinding.FieldName = 'C_ReedNo'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 70
+      end
+      object Tv1Column5: TcxGridDBColumn
+        Caption = #24635#22836#32441
+        DataBinding.FieldName = 'C_YarnQty'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 70
+      end
+      object Tv1Column11: TcxGridDBColumn
+        Caption = #19978#26426#38376#24133
+        DataBinding.FieldName = 'C_Width'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 100
+      end
+      object Tv1Column12: TcxGridDBColumn
+        Caption = #25104#21697#38376#24133
+        DataBinding.FieldName = 'C_FinishWidth'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 100
+      end
+      object Tv1Column13: TcxGridDBColumn
+        Caption = #29256#26412#32534#21495
+        DataBinding.FieldName = 'BBNO'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 100
+      end
+      object Tv1Column15: TcxGridDBColumn
+        Caption = #39068#33394
+        DataBinding.FieldName = 'C_Color'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 80
+      end
+      object Tv1Column6: TcxGridDBColumn
+        Caption = #35268#26684
+        DataBinding.FieldName = 'C_Spec'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 100
+      end
+      object Tv1Column16: TcxGridDBColumn
+        Caption = #21046#21333#20154
+        DataBinding.FieldName = 'Filler'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 100
+      end
+      object v1Column4: TcxGridDBColumn
+        Caption = #22791#27880
+        DataBinding.FieldName = 'OrdNote'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 70
+      end
+    end
+    object cxGrid1Level1: TcxGridLevel
+      GridView = Tv1
+    end
+  end
+  object cxTabControl1: TcxTabControl [3]
+    Left = 0
+    Top = 112
+    Width = 1540
+    Height = 28
+    Align = alTop
+    Font.Charset = GB2312_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -21
+    Font.Name = #23435#20307
+    Font.Style = []
+    ParentFont = False
+    TabOrder = 3
+    Properties.CustomButtons.Buttons = <>
+    Properties.Style = 9
+    Properties.TabIndex = 0
+    Properties.Tabs.Strings = (
+      #26410#23457#26680
+      #24050#23457#26680
+      #20840#37096)
+    OnChange = cxTabControl1Change
+    ClientRectRight = 0
+    ClientRectTop = 0
+  end
+  object Picture4: TcxDBImage [4]
+    Left = 1285
+    Top = 140
+    Hint = 'FileName'
+    Align = alRight
+    DataBinding.DataField = 'FilesOther'
+    DataBinding.DataSource = DSImage
+    Properties.GraphicClassName = 'TdxSmartImage'
+    Properties.ReadOnly = True
+    Properties.ShowFocusRect = False
+    Style.BorderStyle = ebsSingle
+    TabOrder = 4
+    Visible = False
+    OnDblClick = Picture4DblClick
+    ExplicitHeight = 444
+    Height = 439
+    Width = 255
+  end
+  inherited loadProcess: TPanel
+    Left = 351
+    Top = 309
+    ExplicitLeft = 351
+    ExplicitTop = 309
+  end
+  inherited cxProgressBar2: TcxProgressBar
+    Left = 351
+    Top = 254
+    ExplicitLeft = 351
+    ExplicitTop = 254
+    ExplicitHeight = 29
+  end
+  inherited ADOQueryBaseCmd: TADOQuery
+    Connection = DataLink_TatPlan.ADOLink
+    Left = 225
+    Top = 216
+  end
+  inherited ADOQueryBaseTemp: TADOQuery
+    Connection = DataLink_TatPlan.ADOLink
+    Left = 89
+    Top = 217
+  end
+  object GPM_1: TcxGridPopupMenu
+    Grid = cxGrid1
+    PopupMenus = <>
+    Left = 544
+    Top = 320
+  end
+  object ADOQueryCmd: TADOQuery
+    Connection = DataLink_TatPlan.ADOLink
+    Parameters = <>
+    Left = 472
+    Top = 192
+  end
+  object ADOQueryMain: TADOQuery
+    Connection = DataLink_TatPlan.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 368
+    Top = 192
+  end
+  object ADOQueryTemp: TADOQuery
+    Connection = DataLink_TatPlan.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 576
+    Top = 192
+  end
+  object DS_1: TDataSource
+    DataSet = CDS_1
+    Left = 664
+    Top = 320
+  end
+  object CDS_1: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 600
+    Top = 320
+  end
+  object DSImage: TDataSource
+    DataSet = ADOQuery1
+    Left = 831
+    Top = 279
+  end
+  object ADOQuery1: TADOQuery
+    Connection = DataLink_TatPlan.ADOLink
+    EnableBCD = False
+    Parameters = <>
+    Left = 903
+    Top = 281
+  end
+end

E01梭织生产计划/U_TatGYList.pas

@@ -0,0 +1,797 @@
+unit U_TatGYList;
+
+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, cxLookAndFeels,
+  cxLookAndFeelPainters, cxNavigator, dxDateRanges, dxBarBuiltInMenu, U_BaseList,
+  cxPC, dxScrollbarAnnotations, cxContainer, dxCore, cxDateUtils, cxMaskEdit,
+  cxDropDownEdit, dxSkinsCore, dxSkinsDefaultPainters, cxProgressBar,
+  dxSkinBasic, dxSkinBlack, dxSkinBlue, dxSkinBlueprint, dxSkinCaramel,
+  dxSkinCoffee, dxSkinDarkroom, dxSkinDarkSide, dxSkinDevExpressDarkStyle,
+  dxSkinDevExpressStyle, dxSkinFoggy, dxSkinGlassOceans, dxSkinHighContrast,
+  dxSkiniMaginary, dxSkinLilian, dxSkinLiquidSky, dxSkinLondonLiquidSky,
+  dxSkinMcSkin, dxSkinMetropolis, dxSkinMetropolisDark, dxSkinMoneyTwins,
+  dxSkinOffice2007Black, dxSkinOffice2007Blue, dxSkinOffice2007Green,
+  dxSkinOffice2007Pink, dxSkinOffice2007Silver, dxSkinOffice2010Black,
+  dxSkinOffice2010Blue, dxSkinOffice2010Silver, dxSkinOffice2013DarkGray,
+  dxSkinOffice2013LightGray, dxSkinOffice2013White, dxSkinOffice2016Colorful,
+  dxSkinOffice2016Dark, dxSkinOffice2019Black, dxSkinOffice2019Colorful,
+  dxSkinOffice2019DarkGray, dxSkinOffice2019White, dxSkinPumpkin, dxSkinSeven,
+  dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus, dxSkinSilver,
+  dxSkinSpringtime, dxSkinStardust, dxSkinSummer2008, dxSkinTheAsphaltWorld,
+  dxSkinTheBezier, dxSkinValentine, dxSkinVisualStudio2013Blue,
+  dxSkinVisualStudio2013Dark, dxSkinVisualStudio2013Light, dxSkinVS2010,
+  dxSkinWhiteprint, dxSkinWXI, dxSkinXmas2008Blue, cxImage, cxDBEdit, IdFTP,
+  ShellAPI;
+
+type
+  TfrmTatGYList = class(TfrmBaseList)
+    ToolBar1: TToolBar;
+    TBRafresh: TToolButton;
+    TBFind: TToolButton;
+    TBAdd: TToolButton;
+    TBEdit: TToolButton;
+    TBDel: TToolButton;
+    TBPrint: TToolButton;
+    TBClose: TToolButton;
+    Panel1: TPanel;
+    Label1: TLabel;
+    Label2: TLabel;
+    GPM_1: TcxGridPopupMenu;
+    ADOQueryCmd: TADOQuery;
+    ADOQueryMain: TADOQuery;
+    ADOQueryTemp: TADOQuery;
+    DS_1: TDataSource;
+    Label3: TLabel;
+    ConNo: TcxTextEdit;
+    Label5: TLabel;
+    C_Name: TcxTextEdit;
+    TBExport: TToolButton;
+    CDS_1: TClientDataSet;
+    cxGrid1: TcxGrid;
+    Tv1: TcxGridDBTableView;
+    v1OrderNo: TcxGridDBColumn;
+    v1Column2: TcxGridDBColumn;
+    v1Column3: TcxGridDBColumn;
+    v1Column5: TcxGridDBColumn;
+    v1PRTMF: TcxGridDBColumn;
+    v1PRTKZ: TcxGridDBColumn;
+    v1Column4: TcxGridDBColumn;
+    cxGrid1Level1: TcxGridLevel;
+    v1Column7: TcxGridDBColumn;
+    TBCopy: TToolButton;
+    TBView: TToolButton;
+    v1Column19: TcxGridDBColumn;
+    v1Column21: TcxGridDBColumn;
+    Label10: TLabel;
+    C_Code: TcxTextEdit;
+    v1Column31: TcxGridDBColumn;
+    CustName: TcxTextEdit;
+    Label7: TLabel;
+    lbl1: TLabel;
+    cxTabControl1: TcxTabControl;
+    Tv1Column1: TcxGridDBColumn;
+    Label4: TLabel;
+    OrderNo: TcxTextEdit;
+    Tv1Column2: TcxGridDBColumn;
+    TBEnd: TToolButton;
+    TBNoEnd: TToolButton;
+    Tv1Column3: TcxGridDBColumn;
+    Tv1Column5: TcxGridDBColumn;
+    Tv1Column8: TcxGridDBColumn;
+    ToolButton1: TToolButton;
+    btnChk: TToolButton;
+    btnReChk: TToolButton;
+    BegDate: TcxDateEdit;
+    EndDate: TcxDateEdit;
+    OrdType: TcxComboBox;
+    Tv1Column4: TcxGridDBColumn;
+    Tv1Column11: TcxGridDBColumn;
+    Tv1Column12: TcxGridDBColumn;
+    Tv1Column13: TcxGridDBColumn;
+    Tv1Column15: TcxGridDBColumn;
+    DSImage: TDataSource;
+    ADOQuery1: TADOQuery;
+    Picture4: TcxDBImage;
+    Tv1Column16: TcxGridDBColumn;
+    Tv1Column6: TcxGridDBColumn;
+    procedure FormClose(Sender: TObject; var Action: TCloseAction);
+    procedure TBCloseClick(Sender: TObject);
+    procedure TBFindClick(Sender: TObject);
+    procedure TBEditClick(Sender: TObject);
+    procedure TBDelClick(Sender: TObject);
+    procedure TBExportClick(Sender: TObject);
+    procedure TBPrintClick(Sender: TObject);
+    procedure TBRafreshClick(Sender: TObject);
+    procedure TBAddClick(Sender: TObject);
+    procedure ConNoChange(Sender: TObject);
+    procedure FormShow(Sender: TObject);
+    procedure conPress(Sender: TObject; var Key: Char);
+    procedure TBViewClick(Sender: TObject);
+    procedure TBCopyClick(Sender: TObject);
+    procedure OrdTypeChange(Sender: TObject);
+    procedure C_CodeKeyPress(Sender: TObject; var Key: Char);
+    procedure BatchNoHZKeyPress(Sender: TObject; var Key: Char);
+    procedure CustNameKeyPress(Sender: TObject; var Key: Char);
+    procedure C_NameKeyPress(Sender: TObject; var Key: Char);
+    procedure cxTabControl1Change(Sender: TObject);
+    procedure TBEndClick(Sender: TObject);
+    procedure TBNoEndClick(Sender: TObject);
+    procedure ToolButton1Click(Sender: TObject);
+    procedure btnChkClick(Sender: TObject);
+    procedure btnReChkClick(Sender: TObject);
+    procedure Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean);
+    procedure Picture4DblClick(Sender: TObject);
+    procedure ConNoPropertiesChange(Sender: TObject);
+  private
+    FInt, PFInt: Integer;
+    procedure InitGrid();
+    procedure InitForm();
+    function DelData(): Boolean;
+    procedure InitButton();
+    { Private declarations }
+  public
+    canshu1, FCheJian: string;
+    { Public declarations }
+  end;
+
+implementation
+
+uses
+  U_DataLink, U_RTFun, U_ZDYHelp, U_LabelPrint, U_TatGYInPut, U_TatCardInPut;
+
+{$R *.dfm}
+
+procedure TfrmTatGYList.FormClose(Sender: TObject; var Action: TCloseAction);
+begin
+  inherited;
+  Action := caFree;
+end;
+
+procedure TfrmTatGYList.InitButton();
+begin
+
+  TBAdd.Enabled := False;
+  TBCopy.Enabled := False;
+  TBEdit.Enabled := False;
+  TBDel.Enabled := False;
+  TBEnd.Enabled := False;
+  TBNoEnd.Enabled := False;
+  btnChk.Enabled := False;
+  btnReChk.Enabled := False;
+  if Trim(canshu1) = '录入' then
+  begin
+    case cxTabControl1.TabIndex of
+      0:
+        begin
+          TBAdd.Enabled := true;
+          TBCopy.Enabled := true;
+          TBDel.Enabled := true;
+          TBEdit.Enabled := true;
+          btnChk.Enabled := true;
+
+        end;
+      1:
+        begin
+          TBAdd.Enabled := true;
+          TBCopy.Enabled := true;
+          TBEnd.Enabled := true;
+          TBEdit.Enabled := true;
+          btnReChk.Enabled := true;
+        end;
+      2:
+        begin
+          TBNoEnd.Enabled := true;
+        end;
+    end;
+  end;
+
+  if Trim(canshu1) = '管理' then
+  begin
+    case cxTabControl1.TabIndex of
+      0:
+        begin
+          TBAdd.Enabled := true;
+          TBCopy.Enabled := true;
+          TBDel.Enabled := true;
+          TBEdit.Enabled := true;
+          btnChk.Enabled := true;
+        end;
+      1:
+        begin
+          TBAdd.Enabled := true;
+          TBCopy.Enabled := true;
+          TBEnd.Enabled := true;
+          TBEdit.Enabled := true;
+          btnReChk.Enabled := true;
+        end;
+      2:
+        begin
+          TBNoEnd.Enabled := true;
+        end;
+    end;
+  end;
+
+end;
+
+procedure TfrmTatGYList.TBCloseClick(Sender: TObject);
+begin
+  Close;
+end;
+
+procedure TfrmTatGYList.InitGrid();
+begin
+  try
+    ADOQueryMain.DisableControls;
+    with ADOQueryMain do
+    begin
+      Filtered := False;
+      Close;
+      sql.Clear;
+      sql.Add('select A.*,B.*,FileName=(select FileName from TP_File X inner join Bs_Contract_Sub Y on X.FileName=Y.AttName where Y.ConSID = B.ConSID   )   ');
+      sql.Add(' from Tat_Plan_Main A inner join Tat_Plan_Sub B on A.Mainid=B.MainId');
+      sql.Add('where 1=1 ');
+      case cxTabControl1.TabIndex of
+        0:
+          begin
+            sql.Add('and isnull(Status,''0'') =''11'' ');
+          end;
+        1:
+          begin
+            sql.Add('and isnull(Status,''0'') =''22'' ');
+          end;
+        2:
+          begin
+            sql.Add('and isnull(Status,''0'') in(''11'',''22'') ');
+          end;
+      end;
+
+      sql.add('order by A.FILLTIME DESC');
+      Open;
+    end;
+    SCreateCDS(ADOQueryMain, CDS_1);
+    SInitCDSData(ADOQueryMain, CDS_1);
+  finally
+    ADOQueryMain.EnableControls;
+  end;
+end;
+
+procedure TfrmTatGYList.InitForm();
+begin
+
+  ReadCxGrid('坯布生产计划单', Tv1, '坯布生产管理');
+  BegDate.Date := SGetServerDate(ADOQueryTemp) - 30;
+  EndDate.Date := SGetServerDate(ADOQueryTemp);
+  InitButton();
+  InitGrid();
+end;
+
+procedure TfrmTatGYList.TBFindClick(Sender: TObject);
+begin
+  TBRafresh.Click;
+  if ADOQueryMain.Active = False then
+    Exit;
+  SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
+  SCreateCDS(ADOQueryMain, CDS_1);
+  SInitCDSData(ADOQueryMain, CDS_1);
+end;
+
+procedure TfrmTatGYList.TBNoEndClick(Sender: TObject);
+begin
+  if CDS_1.IsEmpty then
+    exit;
+  try
+    with ADOQueryCmd do
+    begin
+      close;
+      sql.Clear;
+      sql.Add('update  Tat_Plan_Main SET status=''0'',Comper=null,Comptime=null ');
+      sql.Add('where mainID=' + quotedstr(trim(CDS_1.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(CDS_1.FieldByName('OrderNo').AsString))));
+      sql.Add(',' + quotedstr(trim('成功')));
+      sql.Add(')');
+      execsql;
+    end;
+    application.MessageBox('撤销结束成功！', '提示信息');
+    TBRafresh.Click;
+  except
+    application.MessageBox('撤销结束失败！', '提示信息', 0);
+  end;
+end;
+
+procedure TfrmTatGYList.TBEditClick(Sender: TObject);
+begin
+  if CDS_1.IsEmpty then
+    Exit;
+  try
+    frmTatGYInPut := TfrmTatGYInPut.Create(Application);
+    with frmTatGYInPut do
+    begin
+      PState := 1;
+      FMainId := Trim(Self.CDS_1.fieldbyname('MainId').AsString);
+      FSubId := Trim(Self.CDS_1.fieldbyname('SubId').AsString);
+      if ShowModal = 1 then
+      begin
+        InitGrid();
+        Self.CDS_1.Locate('MainId', frmTatGYInPut.FMainId, []);
+      end;
+    end;
+  finally
+    frmTatGYInPut.Free;
+  end;
+end;
+
+procedure TfrmTatGYList.TBEndClick(Sender: TObject);
+begin
+  if CDS_1.IsEmpty then
+    exit;
+  try
+    with ADOQueryCmd do
+    begin
+      close;
+      sql.Clear;
+      sql.Add('update  Tat_Plan_Main SET status=''10'' ,Comper=''' + trim(DName) + ''',Comptime=getdate() ');
+      sql.Add('where mainID=' + quotedstr(trim(CDS_1.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(CDS_1.FieldByName('OrderNo').AsString))));
+      sql.Add(',' + quotedstr(trim('成功')));
+      sql.Add(')');
+      execsql;
+    end;
+    application.MessageBox('结束成功！', '提示信息');
+    TBRafresh.Click;
+  except
+    application.MessageBox('结束失败！', '提示信息', 0);
+  end;
+end;
+
+procedure TfrmTatGYList.TBDelClick(Sender: TObject);
+begin
+  if CDS_1.IsEmpty then
+    Exit;
+  with ADOQueryTemp do
+  begin
+    Close;
+    sql.Clear;
+    SQL.Add('select A.*');
+    sql.Add('from Tat_Plan_Card A');
+    sql.Add(' where  isnull(Status,''0'') <>''-1'' and A.SubId=''' + Trim(CDS_1.fieldbyname('SubId').AsString) + '''');
+    sql.Add(' and A.MainId=''' + Trim(CDS_1.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
+    CDS_1.Delete;
+  end;
+end;
+
+function TfrmTatGYList.DelData(): Boolean;
+begin
+  try
+    Result := false;
+    ADOQueryCmd.Connection.BeginTrans;
+    with ADOQueryCmd do
+    begin
+      Close;
+      sql.Clear;
+      sql.Add('delete Tat_Plan_Sub where SubId=''' + Trim(CDS_1.fieldbyname('SubId').AsString) + '''');
+      ExecSQL;
+    end;
+    with ADOQueryTemp do
+    begin
+      Close;
+      sql.Clear;
+      sql.Add('select * from Tat_Plan_Sub where MainId=''' + Trim(CDS_1.fieldbyname('MainId').AsString) + '''');
+      Open;
+    end;
+    if ADOQueryTemp.IsEmpty then
+    begin
+      with ADOQueryCmd do
+      begin
+        Close;
+        sql.Clear;
+        sql.Add('delete Tat_Plan_Main where MainId=''' + Trim(CDS_1.fieldbyname('MainId').AsString) + '''');
+        ExecSQL;
+      end;
+    end;
+    if Trim(CDS_1.fieldbyname('SubId').AsString) = '' then
+    begin
+      with ADOQueryCmd do
+      begin
+        Close;
+        sql.Clear;
+        sql.Add('delete Tat_Plan_Main where MainId=''' + Trim(CDS_1.fieldbyname('MainId').AsString) + '''');
+        ExecSQL;
+      end;
+    end;
+    ADOQueryCmd.Connection.CommitTrans;
+    Result := True;
+  except
+    ADOQueryCmd.Connection.RollbackTrans;
+    Result := False;
+    Application.MessageBox('数据删除异常！', '提示', 0);
+  end;
+end;
+
+procedure TfrmTatGYList.TBExportClick(Sender: TObject);
+begin
+  if ADOQueryMain.IsEmpty then
+    Exit;
+  TcxGridToExcel('坯布生产单', cxGrid1);
+end;
+
+procedure TfrmTatGYList.TBPrintClick(Sender: TObject);
+var
+  WSql: string;
+begin
+  if CDS_1.IsEmpty then
+    Exit;
+  WSql := Trim(CDS_1.fieldbyname('MainId').AsString);
+
+  try
+    frmLabelPrint := TfrmLabelPrint.Create(Application);
+    with frmLabelPrint do
+    begin
+      FLMType := 'TatPlanPrint2';
+      FFiltration1 := WSql;
+      FFiltration2 := WSql;
+      FFiltration3 := WSql;
+      if ShowModal = 1 then
+      begin
+//        Self.InitGrid();
+      end;
+    end;
+  finally
+    frmLabelPrint.Free;
+  end;
+
+end;
+
+procedure TfrmTatGYList.TBRafreshClick(Sender: TObject);
+begin
+  InitGrid();
+end;
+
+procedure TfrmTatGYList.TBAddClick(Sender: TObject);
+begin
+
+  try
+    frmTatGYInPut := TfrmTatGYInPut.Create(Application);
+    with frmTatGYInPut do
+    begin
+      PState := 0;
+      FMainId := '';
+      FSubId := '';
+      if ShowModal = 1 then
+      begin
+        InitGrid();
+      end;
+    end;
+  finally
+    frmTatGYInPut.Free;
+  end;
+end;
+
+procedure TfrmTatGYList.ConNoChange(Sender: TObject);
+begin
+  if ADOQueryMain.Active = False then
+    Exit;
+  SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
+  SCreateCDS(ADOQueryMain, CDS_1);
+  SInitCDSData(ADOQueryMain, CDS_1);
+end;
+
+procedure TfrmTatGYList.ConNoPropertiesChange(Sender: TObject);
+begin
+  TBRafresh.Click;
+  if ADOQueryMain.Active = False then
+    Exit;
+  SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
+  SCreateCDS(ADOQueryMain, CDS_1);
+  SInitCDSData(ADOQueryMain, CDS_1);
+end;
+
+procedure TfrmTatGYList.FormShow(Sender: TObject);
+begin
+  inherited;
+  canshu1 := DParameters1;
+  InitForm();
+
+end;
+
+procedure TfrmTatGYList.conPress(Sender: TObject; var Key: Char);
+begin
+  if Key = #13 then
+  begin
+    if Length(Trim(ConNo.Text)) < 4 then
+      Exit;
+    try
+      ADOQueryMain.DisableControls;
+      with ADOQueryMain do
+      begin
+        Filtered := False;
+        Close;
+        sql.Clear;
+        //sql.Add('exec Tat_Plan_QryList :MainId,:WSql');
+       // Parameters.ParamByName('WSql').Value:=' and OM.conNo like '''+'%'+Trim(ConNoM.Text)+'%'+''''
+                                             // +' and ConType=''生产'' ';
+        sql.Add('select * from Tat_Plan_Main A inner join Tat_Plan_Sub B on A.Mainid=B.MainId');
+        sql.Add(' where A.ConNo like ''' + '%' + Trim(ConNo.Text) + '%' + '''');
+
+        Open;
+      end;
+      SCreateCDS(ADOQueryMain, CDS_1);
+      SInitCDSData(ADOQueryMain, CDS_1);
+    finally
+      ADOQueryMain.EnableControls;
+    end;
+  end;
+end;
+
+procedure TfrmTatGYList.TBViewClick(Sender: TObject);
+begin
+  try
+    frmTatGYInPut := TfrmTatGYInPut.Create(Application);
+    with frmTatGYInPut do
+    begin
+      PState := 1;
+      FMainId := Trim(Self.CDS_1.fieldbyname('MainId').AsString);
+      FSubId := Trim(Self.CDS_1.fieldbyname('SubId').AsString);
+      FConNo := Trim(Self.CDS_1.fieldbyname('ConNo').AsString);
+      TBSave.Visible := False;
+      ScrollBox1.Enabled := False;
+      if ShowModal = 1 then
+      begin
+
+      end;
+    end;
+  finally
+    frmTatGYInPut.Free;
+  end;
+end;
+
+procedure TfrmTatGYList.ToolButton1Click(Sender: TObject);
+begin
+  WriteCxGrid('坯布生产计划单', Tv1, '坯布生产管理');
+end;
+
+procedure TfrmTatGYList.Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean);
+begin
+  with ADOQuery1 do
+  begin
+    close;
+    sql.Clear;
+    sql.Add(' select * from TP_File A    ');
+    sql.Add(' where TFType =''HX'' and A.FileName =' + quotedstr(trim(CDS_1.fieldbyname('FileName').AsString)));
+//    ShowMessage(sql.text);
+    open;
+  end;
+end;
+
+procedure TfrmTatGYList.btnChkClick(Sender: TObject);
+begin
+  if CDS_1.IsEmpty then
+    exit;
+  try
+    with ADOQueryCmd do
+    begin
+      close;
+      sql.Clear;
+      sql.Add('update  Tat_Plan_Main SET status=''22'',chker=''' + trim(DName) + ''',Chktime=getdate() ');
+      sql.Add('where mainID=' + quotedstr(trim(CDS_1.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(CDS_1.FieldByName('OrderNo').AsString))));
+      sql.Add(',' + quotedstr(trim('成功')));
+      sql.Add(')');
+      execsql;
+    end;
+    application.MessageBox('审核成功！', '提示信息');
+    TBRafresh.Click;
+  except
+    application.MessageBox('审核失败！', '提示信息', 0);
+  end;
+end;
+
+procedure TfrmTatGYList.btnReChkClick(Sender: TObject);
+begin
+  if CDS_1.IsEmpty then
+    exit;
+  if cxTabControl1.TabIndex <> 1 then
+  begin
+    Application.MessageBox('只能在已审核状态下进行该操作!', '提示', 0);
+    Exit;
+  end;
+  try
+    with ADOQueryCmd do
+    begin
+      close;
+      sql.Clear;
+      sql.Add('update  Tat_Plan_Main SET status=''11'',chker=null,Chktime=null ');
+      sql.Add('where mainID=' + quotedstr(trim(CDS_1.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(CDS_1.FieldByName('OrderNo').AsString))));
+      sql.Add(',' + quotedstr(trim('成功')));
+      sql.Add(')');
+      execsql;
+    end;
+    TBRafresh.Click;
+  except
+    application.MessageBox('计划单撤销开始失败！', '提示信息', 0);
+  end;
+end;
+
+procedure TfrmTatGYList.TBCopyClick(Sender: TObject);
+begin
+  if CDS_1.IsEmpty then
+    Exit;
+  try
+    frmTatGYInPut := TfrmTatGYInPut.Create(Application);
+    with frmTatGYInPut do
+    begin
+      PState := 1;
+      FCopyInt := 1;
+      FMainId := Trim(Self.CDS_1.fieldbyname('MainId').AsString);
+      FConNo := Trim(Self.CDS_1.fieldbyname('ConNo').AsString);
+      if ShowModal = 1 then
+      begin
+
+      end;
+    end;
+  finally
+    frmTatGYInPut.Free;
+  end;
+end;
+
+procedure TfrmTatGYList.OrdTypeChange(Sender: TObject);
+begin
+  TBRafresh.Click;
+end;
+
+procedure TfrmTatGYList.Picture4DblClick(Sender: TObject);
+var
+  IdFTP1: TIdFTP;
+  FPath, FFName: string;
+  FInt: integer;
+  mfileSize: Integer;
+  mCreationTime: TdateTime;
+  mWriteTime: TdateTime;
+begin
+  try
+    IdFTP1 := TIdFTP.Create(self);
+    IdFTP1.Host := PicSvr;
+    IdFTP1.Username := 'three';
+    IdFTP1.Password := '641010';
+    IdFTP1.Connect();
+  except
+    IdFTP1.Quit;
+    IdFTP1.Free;
+    Application.MessageBox('无法连接到文件服务器，请检查！', '提示', MB_ICONWARNING);
+    Exit;
+  end;
+  FPath := 'D:\Right1209\';
+  if not DirectoryExists(ExtractFileDir(FPath)) then
+    CreateDir(ExtractFileDir(FPath));
+  FFName := Trim(CDS_1.fieldbyname('FileName').AsString);
+  FFName := FPath + FFName;
+  if FileExists(FFName) then
+  begin
+    FInt := 1;
+    GetFileInfo(FFName, mfileSize, mCreationTime, mWriteTime);
+
+    with ADOQueryTemp do
+    begin
+      Close;
+      SQL.Clear;
+      SQL.Add('select TFID,WBID,TFDate,Files,Filler,FillTime,FileName from TP_File A     ');
+      SQL.Add(' where FileName=''' + Trim(CDS_1.fieldbyname('FileName').AsString) + '''');
+      SQL.Add(' and FileType=''HX'' ');
+      SQL.Add(' and TFDate>''' + FormatDateTime('yyyy-MM-dd hh:nn:ss', mWriteTime) + '''');
+//     ShowMessage(SQL.Text);
+      Open;
+    end;
+    if not ADOQueryTemp.IsEmpty then
+    begin
+      if FileExists(FFName) then
+        DeleteFile(FFName);
+      FInt := 0;
+    end;
+
+  end;
+  if FInt <> 1 then
+    IdFTP1.Get(UserDataFlag + 'HX\' + CDS_1.fieldbyname('FileName').AsString, pchar(FFName));
+
+  if IdFTP1.Connected then
+  begin
+    IdFTP1.Quit;
+    IdFTP1.Free;
+  end;
+  ShellExecute(Handle, 'open', PChar(FFName), '', '', SW_SHOWNORMAL);
+
+end;
+
+procedure TfrmTatGYList.C_CodeKeyPress(Sender: TObject; var Key: Char);
+begin
+  if Key = #13 then
+    TBRafresh.Click();
+  if ADOQueryMain.Active = False then
+    Exit;
+  SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
+  SCreateCDS(ADOQueryMain, CDS_1);
+  SInitCDSData(ADOQueryMain, CDS_1);
+end;
+
+procedure TfrmTatGYList.BatchNoHZKeyPress(Sender: TObject; var Key: Char);
+begin
+  if Key = #13 then
+    TBRafresh.Click();
+  if ADOQueryMain.Active = False then
+    Exit;
+  SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
+  SCreateCDS(ADOQueryMain, CDS_1);
+  SInitCDSData(ADOQueryMain, CDS_1);
+end;
+
+procedure TfrmTatGYList.CustNameKeyPress(Sender: TObject; var Key: Char);
+begin
+  if Key = #13 then
+    TBRafresh.Click();
+  if ADOQueryMain.Active = False then
+    Exit;
+  SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
+  SCreateCDS(ADOQueryMain, CDS_1);
+  SInitCDSData(ADOQueryMain, CDS_1);
+end;
+
+procedure TfrmTatGYList.cxTabControl1Change(Sender: TObject);
+begin
+  InitButton();
+  InitGrid();
+end;
+
+procedure TfrmTatGYList.C_NameKeyPress(Sender: TObject; var Key: Char);
+begin
+  if Key = #13 then
+    TBRafresh.Click();
+  if ADOQueryMain.Active = False then
+    Exit;
+  SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
+  SCreateCDS(ADOQueryMain, CDS_1);
+  SInitCDSData(ADOQueryMain, CDS_1);
+end;
+
+end.
+

E01梭织生产计划/U_TatPlanInPut.dfm

@@ -72,7 +72,6 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
     Ctl3D = False
     ParentCtl3D = False
     TabOrder = 1
-    ExplicitTop = 24
     object Label2: TLabel
       Left = 787
       Top = 9
@@ -289,7 +288,7 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
     object OrdPieceLen: TcxTextEdit
       Tag = 2
       Left = 618
-      Top = 110
+      Top = 112
       Properties.OnEditValueChanged = OrdPiecePropertiesEditValueChanged
       TabOrder = 2
       OnKeyPress = ConNoKeyPress
@@ -298,7 +297,7 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
     object OrdPiece: TcxTextEdit
       Tag = 2
       Left = 334
-      Top = 110
+      Top = 112
       Properties.OnEditValueChanged = OrdPiecePropertiesEditValueChanged
       TabOrder = 3
       OnKeyPress = ConNoKeyPress
@@ -307,7 +306,7 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
     object OrdQty: TcxTextEdit
       Tag = 2
       Left = 893
-      Top = 110
+      Top = 112
       TabOrder = 1
       OnKeyPress = ConNoKeyPress
       Width = 150
@@ -369,8 +368,9 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
     object C_FinishLatitudeDensity: TcxTextEdit
       Tag = 2
       Left = 83
-      Top = 114
+      Top = 112
       ParentColor = True
+      Properties.OnEditValueChanged = C_YarnQtyPropertiesEditValueChanged
       TabOrder = 9
       Width = 150
     end
@@ -403,6 +403,7 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
       Left = 83
       Top = 148
       ParentColor = True
+      Properties.OnEditValueChanged = C_YarnQtyPropertiesEditValueChanged
       TabOrder = 13
       Width = 150
     end
@@ -411,6 +412,7 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
       Left = 618
       Top = 148
       ParentColor = True
+      Properties.OnEditValueChanged = C_YarnQtyPropertiesEditValueChanged
       TabOrder = 14
       Width = 150
     end
@@ -598,7 +600,7 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
     Height = 445
     Align = alClient
     TabOrder = 2
-    Properties.ActivePage = cxTabSheet1
+    Properties.ActivePage = cxTabSheet2
     Properties.CustomButtons.Buttons = <>
     Properties.Style = 9
     ClientRectBottom = 445
@@ -674,6 +676,8 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
           Height = 415
           Align = alClient
           TabOrder = 1
+          ExplicitLeft = 2
+          ExplicitTop = 0
           object TV1: TcxGridDBTableView
             Navigator.Buttons.CustomButtons = <>
             ScrollbarAnnotations.CustomAnnotations = <>
@@ -684,7 +688,11 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
               item
                 Format = 'C_Code'
               end>
-            DataController.Summary.FooterSummaryItems = <>
+            DataController.Summary.FooterSummaryItems = <
+              item
+                Kind = skSum
+                Column = TV1Column8
+              end>
             DataController.Summary.SummaryGroups = <>
             OptionsBehavior.FocusCellOnTab = True
             OptionsBehavior.GoToNextCellOnEnter = True
@@ -711,6 +719,7 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
                   Kind = bkEllipsis
                 end>
               Properties.ReadOnly = True
+              Properties.OnButtonClick = cxGridDBColumn3PropertiesButtonClick
               HeaderAlignmentHorz = taCenter
               Width = 131
             end
@@ -731,6 +740,68 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
               Options.Sorting = False
               Width = 138
             end
+            object TV1Column6: TcxGridDBColumn
+              Caption = #29702#35770'D'#25968
+              DataBinding.FieldName = 'TestDenier'
+              DataBinding.IsNullValueType = True
+              PropertiesClassName = 'TcxTextEditProperties'
+              Properties.OnEditValueChanged = TV1Column1PropertiesEditValueChanged
+              HeaderAlignmentHorz = taCenter
+              Width = 80
+            end
+            object TV1Column1: TcxGridDBColumn
+              Caption = #26681#25968
+              DataBinding.FieldName = 'YarnQty'
+              DataBinding.IsNullValueType = True
+              PropertiesClassName = 'TcxTextEditProperties'
+              Properties.OnEditValueChanged = TV1Column1PropertiesEditValueChanged
+              HeaderAlignmentHorz = taCenter
+              Width = 60
+            end
+            object TV1Column2: TcxGridDBColumn
+              Caption = #24490#29615#26681#25968
+              DataBinding.FieldName = 'CycleYarnQty'
+              DataBinding.IsNullValueType = True
+              PropertiesClassName = 'TcxTextEditProperties'
+              Properties.OnEditValueChanged = TV1Column1PropertiesEditValueChanged
+              HeaderAlignmentHorz = taCenter
+              Width = 96
+            end
+            object TV1Column8: TcxGridDBColumn
+              Caption = #31859'/'#24212#29992#37327
+              DataBinding.FieldName = 'MeterQty'
+              DataBinding.IsNullValueType = True
+              HeaderAlignmentHorz = taCenter
+              Width = 114
+            end
+            object TV1Column10: TcxGridDBColumn
+              Caption = #35268#26684
+              DataBinding.FieldName = 'Y_Spec'
+              DataBinding.IsNullValueType = True
+              HeaderAlignmentHorz = taCenter
+              Width = 100
+            end
+            object TV1Column9: TcxGridDBColumn
+              Caption = #25104#20998
+              DataBinding.FieldName = 'Y_Composition'
+              DataBinding.IsNullValueType = True
+              HeaderAlignmentHorz = taCenter
+              Width = 80
+            end
+            object TV1Column13: TcxGridDBColumn
+              Caption = #30424#22836#21495
+              DataBinding.FieldName = 'PTNo'
+              DataBinding.IsNullValueType = True
+              HeaderAlignmentHorz = taCenter
+              Width = 100
+            end
+            object cxGridDBColumn8: TcxGridDBColumn
+              Caption = #39068#33394
+              DataBinding.FieldName = 'Y_Color'
+              DataBinding.IsNullValueType = True
+              HeaderAlignmentHorz = taCenter
+              Width = 99
+            end
             object cxGridDBColumn5: TcxGridDBColumn
               Caption = #32433#32447#21697#29260
               DataBinding.FieldName = 'Brand'
@@ -740,26 +811,19 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
               Options.Sorting = False
               Width = 111
             end
-            object cxGridDBColumn8: TcxGridDBColumn
+            object TV1Column11: TcxGridDBColumn
-              Caption = #39068#33394
+              Caption = #32442#27861
-              DataBinding.FieldName = 'Y_Color'
+              DataBinding.FieldName = 'FF'
               DataBinding.IsNullValueType = True
               HeaderAlignmentHorz = taCenter
-              Width = 99
+              Width = 80
             end
-            object TV1Column1: TcxGridDBColumn
+            object TV1Column12: TcxGridDBColumn
-              Caption = #26681#25968
+              Caption = #25467#24230
-              DataBinding.FieldName = 'YarnQty'
+              DataBinding.FieldName = 'ND'
               DataBinding.IsNullValueType = True
               HeaderAlignmentHorz = taCenter
-              Width = 60
+              Width = 80
-            end
-            object TV1Column2: TcxGridDBColumn
-              Caption = #24490#29615#26681#25968
-              DataBinding.FieldName = 'CycleYarnQty'
-              DataBinding.IsNullValueType = True
-              HeaderAlignmentHorz = taCenter
-              Width = 96
             end
             object TV1Column3: TcxGridDBColumn
               Caption = #28068
@@ -782,48 +846,6 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
               HeaderAlignmentHorz = taCenter
               Width = 80
             end
-            object TV1Column10: TcxGridDBColumn
-              Caption = #32442#27861
-              DataBinding.FieldName = 'SpinningMethod'
-              DataBinding.IsNullValueType = True
-              HeaderAlignmentHorz = taCenter
-              Width = 80
-            end
-            object TV1Column6: TcxGridDBColumn
-              Caption = #23454#27979'D'#25968
-              DataBinding.FieldName = 'TestDenier'
-              DataBinding.IsNullValueType = True
-              HeaderAlignmentHorz = taCenter
-              Width = 80
-            end
-            object TV1Column11: TcxGridDBColumn
-              Caption = #32442#27861
-              DataBinding.FieldName = 'FF'
-              DataBinding.IsNullValueType = True
-              HeaderAlignmentHorz = taCenter
-              Width = 80
-            end
-            object TV1Column12: TcxGridDBColumn
-              Caption = #25467#24230
-              DataBinding.FieldName = 'ND'
-              DataBinding.IsNullValueType = True
-              HeaderAlignmentHorz = taCenter
-              Width = 80
-            end
-            object TV1Column8: TcxGridDBColumn
-              Caption = #31859'/'#24212#29992#37327
-              DataBinding.FieldName = 'MeterQty'
-              DataBinding.IsNullValueType = True
-              HeaderAlignmentHorz = taCenter
-              Width = 114
-            end
-            object TV1Column9: TcxGridDBColumn
-              Caption = #25104#20998
-              DataBinding.FieldName = 'Y_Composition'
-              DataBinding.IsNullValueType = True
-              HeaderAlignmentHorz = taCenter
-              Width = 80
-            end
           end
           object cxGridLevel2: TcxGridLevel
             GridView = TV1
@@ -901,6 +923,8 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
           Height = 415
           Align = alClient
           TabOrder = 1
+          ExplicitLeft = -408
+          ExplicitTop = -28
           object Tv2: TcxGridDBTableView
             Navigator.Buttons.CustomButtons = <>
             ScrollbarAnnotations.CustomAnnotations = <>
@@ -911,7 +935,11 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
               item
                 Format = 'C_Code'
               end>
-            DataController.Summary.FooterSummaryItems = <>
+            DataController.Summary.FooterSummaryItems = <
+              item
+                Kind = skSum
+                Column = Tv2Column8
+              end>
             DataController.Summary.SummaryGroups = <>
             OptionsBehavior.FocusCellOnTab = True
             OptionsBehavior.GoToNextCellOnEnter = True
@@ -938,6 +966,7 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
                   Kind = bkEllipsis
                 end>
               Properties.ReadOnly = True
+              Properties.OnButtonClick = v2Column10PropertiesButtonClick
               HeaderAlignmentHorz = taCenter
               Width = 131
             end
@@ -958,6 +987,68 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
               Options.Sorting = False
               Width = 138
             end
+            object Tv2Column6: TcxGridDBColumn
+              Caption = #29702#35770'D'#25968
+              DataBinding.FieldName = 'TestDenier'
+              DataBinding.IsNullValueType = True
+              PropertiesClassName = 'TcxTextEditProperties'
+              Properties.OnEditValueChanged = TV1Column1PropertiesEditValueChanged
+              HeaderAlignmentHorz = taCenter
+              Width = 80
+            end
+            object Tv2Column1: TcxGridDBColumn
+              Caption = #26681#25968
+              DataBinding.FieldName = 'YarnQty'
+              DataBinding.IsNullValueType = True
+              PropertiesClassName = 'TcxTextEditProperties'
+              Properties.OnEditValueChanged = TV1Column1PropertiesEditValueChanged
+              HeaderAlignmentHorz = taCenter
+              Width = 80
+            end
+            object Tv2Column2: TcxGridDBColumn
+              Caption = #24490#29615#26681#25968
+              DataBinding.FieldName = 'CycleYarnQty'
+              DataBinding.IsNullValueType = True
+              PropertiesClassName = 'TcxTextEditProperties'
+              Properties.OnEditValueChanged = TV1Column1PropertiesEditValueChanged
+              HeaderAlignmentHorz = taCenter
+              Width = 80
+            end
+            object Tv2Column8: TcxGridDBColumn
+              Caption = #31859'/'#24212#29992#37327
+              DataBinding.FieldName = 'MeterQty'
+              DataBinding.IsNullValueType = True
+              HeaderAlignmentHorz = taCenter
+              Width = 120
+            end
+            object Tv2Column9: TcxGridDBColumn
+              Caption = #35268#26684
+              DataBinding.FieldName = 'Y_Spec'
+              DataBinding.IsNullValueType = True
+              HeaderAlignmentHorz = taCenter
+              Width = 80
+            end
+            object Tv2Column10: TcxGridDBColumn
+              Caption = #25104#20998
+              DataBinding.FieldName = 'Y_Composition'
+              DataBinding.IsNullValueType = True
+              HeaderAlignmentHorz = taCenter
+              Width = 100
+            end
+            object Tv2Column13: TcxGridDBColumn
+              Caption = #28504#36890#21495
+              DataBinding.FieldName = 'PTNo'
+              DataBinding.IsNullValueType = True
+              HeaderAlignmentHorz = taCenter
+              Width = 100
+            end
+            object v2Column6: TcxGridDBColumn
+              Caption = #39068#33394
+              DataBinding.FieldName = 'Y_Color'
+              DataBinding.IsNullValueType = True
+              HeaderAlignmentHorz = taCenter
+              Width = 99
+            end
             object v2Column2: TcxGridDBColumn
               Caption = #32433#32447#21697#29260
               DataBinding.FieldName = 'Brand'
@@ -967,23 +1058,16 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
               Options.Sorting = False
               Width = 111
             end
-            object v2Column6: TcxGridDBColumn
+            object Tv2Column12: TcxGridDBColumn
-              Caption = #39068#33394
+              Caption = #25467#24230
-              DataBinding.FieldName = 'Y_Color'
+              DataBinding.FieldName = 'ND'
-              DataBinding.IsNullValueType = True
-              HeaderAlignmentHorz = taCenter
-              Width = 99
-            end
-            object Tv2Column1: TcxGridDBColumn
-              Caption = #26681#25968
-              DataBinding.FieldName = 'YarnQty'
               DataBinding.IsNullValueType = True
               HeaderAlignmentHorz = taCenter
               Width = 80
             end
-            object Tv2Column2: TcxGridDBColumn
+            object Tv2Column11: TcxGridDBColumn
-              Caption = #24490#29615#26681#25968
+              Caption = #32442#27861
-              DataBinding.FieldName = 'CycleYarnQty'
+              DataBinding.FieldName = 'FF'
               DataBinding.IsNullValueType = True
               HeaderAlignmentHorz = taCenter
               Width = 80
@@ -1009,48 +1093,6 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
               HeaderAlignmentHorz = taCenter
               Width = 80
             end
-            object Tv2Column10: TcxGridDBColumn
-              Caption = #32442#27861
-              DataBinding.FieldName = 'SpinningMethod'
-              DataBinding.IsNullValueType = True
-              HeaderAlignmentHorz = taCenter
-              Width = 80
-            end
-            object Tv2Column6: TcxGridDBColumn
-              Caption = #23454#27979'D'#25968
-              DataBinding.FieldName = 'TestDenier'
-              DataBinding.IsNullValueType = True
-              HeaderAlignmentHorz = taCenter
-              Width = 80
-            end
-            object Tv2Column11: TcxGridDBColumn
-              Caption = #32442#27861
-              DataBinding.FieldName = 'FF'
-              DataBinding.IsNullValueType = True
-              HeaderAlignmentHorz = taCenter
-              Width = 80
-            end
-            object Tv2Column12: TcxGridDBColumn
-              Caption = #25467#24230
-              DataBinding.FieldName = 'ND'
-              DataBinding.IsNullValueType = True
-              HeaderAlignmentHorz = taCenter
-              Width = 80
-            end
-            object Tv2Column8: TcxGridDBColumn
-              Caption = #31859'/'#24212#29992#37327
-              DataBinding.FieldName = 'MeterQty'
-              DataBinding.IsNullValueType = True
-              HeaderAlignmentHorz = taCenter
-              Width = 80
-            end
-            object Tv2Column9: TcxGridDBColumn
-              Caption = #25104#20998
-              DataBinding.FieldName = 'Y_Composition'
-              DataBinding.IsNullValueType = True
-              HeaderAlignmentHorz = taCenter
-              Width = 80
-            end
           end
           object cxGridLevel1: TcxGridLevel
             GridView = Tv2
@@ -1162,7 +1204,6 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
         ImeName = #20013#25991'('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
         ParentFont = False
         TabOrder = 1
-        ExplicitTop = 8
       end
     end
     object cxTabSheet4: TcxTabSheet
@@ -1245,8 +1286,8 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
   end
   object DS_1: TDataSource
     DataSet = CDS_1
-    Left = 919
+    Left = 860
-    Top = 313
+    Top = 450
   end
   object CDS_1: TClientDataSet
     Aggregates = <>
@@ -1256,13 +1297,13 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
   end
   object DS_2: TDataSource
     DataSet = CDS_2
-    Left = 639
+    Left = 554
-    Top = 385
+    Top = 405
   end
   object DS_QZ: TDataSource
     DataSet = CDS_QZ
-    Left = 671
+    Left = 608
-    Top = 385
+    Top = 421
   end
   object CDS_QZ: TClientDataSet
     Aggregates = <>

E01梭织生产计划/U_TatPlanInPut.pas

@@ -133,7 +133,6 @@ type
     TV1Column3: TcxGridDBColumn;
     TV1Column4: TcxGridDBColumn;
     TV1Column5: TcxGridDBColumn;
-    TV1Column10: TcxGridDBColumn;
     TV1Column6: TcxGridDBColumn;
     TV1Column8: TcxGridDBColumn;
     TV1Column9: TcxGridDBColumn;
@@ -150,7 +149,6 @@ type
     Tv2Column3: TcxGridDBColumn;
     Tv2Column4: TcxGridDBColumn;
     Tv2Column5: TcxGridDBColumn;
-    Tv2Column10: TcxGridDBColumn;
     Tv2Column6: TcxGridDBColumn;
     Tv2Column8: TcxGridDBColumn;
     Tv2Column9: TcxGridDBColumn;
@@ -178,6 +176,10 @@ type
     Label23: TLabel;
     C_Color: TcxTextEdit;
     QZF: TMemo;
+    Tv2Column10: TcxGridDBColumn;
+    Tv2Column13: TcxGridDBColumn;
+    TV1Column10: TcxGridDBColumn;
+    TV1Column13: TcxGridDBColumn;
     procedure TBCloseClick(Sender: TObject);
     procedure FormShow(Sender: TObject);
     procedure TBSaveClick(Sender: TObject);
@@ -201,11 +203,20 @@ type
     procedure ConNoPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
     procedure ToolButton8Click(Sender: TObject);
     procedure OrdPiecePropertiesEditValueChanged(Sender: TObject);
+    procedure cxGridDBColumn3PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
+    procedure v2Column10PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
+    procedure TV1Column1PropertiesEditValueChanged(Sender: TObject);
+    procedure Tv2Column1PropertiesEditValueChanged(Sender: TObject);
+    procedure C_YarnQtyPropertiesEditValueChanged(Sender: TObject);
   private
     FXS, FGridFlag: Integer;
     procedure InitData();
     procedure Initexcel();
     procedure CALCYarnQty();
+
+    procedure JSJS(); //计算经丝
+    procedure JSWS(); //计算纬丝
+    procedure JSKZ(); //计算克重
     function SaveData(): Boolean;
     procedure InitClothYarn(MC_Code: string);
     { Private declarations }
@@ -251,46 +262,47 @@ begin
   Self.BBNO.Text := ADOQueryTemp.fieldbyname('BBNO').AsString;
   Self.C_Color.Text := ADOQueryTemp.fieldbyname('C_Color').AsString;
 
-  Self.QZF.Text := ADOQueryTemp.fieldbyname('QZF').AsString;
+//  Self.QZF.Text := ADOQueryTemp.fieldbyname('QZF').AsString;
-  Self.CZF.Text := ADOQueryTemp.fieldbyname('CZF').AsString;
+//  Self.CZF.Text := ADOQueryTemp.fieldbyname('CZF').AsString;
-  Self.CKF.Text := ADOQueryTemp.fieldbyname('CKF').AsString;
+//  Self.CKF.Text := ADOQueryTemp.fieldbyname('CKF').AsString;
-  Self.Y_Note_PLJ.Text := ADOQueryTemp.fieldbyname('Y_Note_PLJ').AsString;
+//  Self.Y_Note_PLJ.Text := ADOQueryTemp.fieldbyname('Y_Note_PLJ').AsString;
-  Self.Y_Note_PLW.Text := ADOQueryTemp.fieldbyname('Y_Note_PLW').AsString;
+//  Self.Y_Note_PLW.Text := ADOQueryTemp.fieldbyname('Y_Note_PLW').AsString;
-  with ADOQueryTemp do
+//
-  begin
+//  with ADOQueryTemp do
-    Close;
+//  begin
-    sql.Clear;
+//    Close;
-    sql.Add('select A.*,MainId=cast('''' as varchar(30)),SubId=cast('''' as varchar(30)) from BS_Cloth_Yarn A inner join Bs_Cloth_Info B on A.BCIID=B.BCIID');
+//    sql.Clear;
-    sql.Add(' where A.YRType=''经丝'' and B.C_Code=''' + Trim(MC_Code) + '''');
+//    sql.Add('select A.*,MainId=cast('''' as varchar(30)),SubId=cast('''' as varchar(30)) from BS_Cloth_Yarn A inner join Bs_Cloth_Info B on A.BCIID=B.BCIID');
-    Open;
+//    sql.Add(' where A.YRType=''经丝'' and B.C_Code=''' + Trim(MC_Code) + '''');
-  end;
+//    Open;
-  SCreateCDS(ADOQueryTemp, CDS_1);
+//  end;
-  SInitCDSData(ADOQueryTemp, CDS_1);
+//  SCreateCDS(ADOQueryTemp, CDS_1);
-  ClearCDSColumn(CDS_1, ['YRId', 'SubId', 'MainId']);
+//  SInitCDSData(ADOQueryTemp, CDS_1);
-
+//  ClearCDSColumn(CDS_1, ['YRId', 'SubId', 'MainId']);
-  with ADOQueryTemp do
+//
-  begin
+//  with ADOQueryTemp do
-    Close;
+//  begin
-    sql.Clear;
+//    Close;
-    sql.Add('select A.*,MainId=cast('''' as varchar(30)),SubId=cast('''' as varchar(30))   from BS_Cloth_Yarn A inner join Bs_Cloth_Info B on A.BCIID=B.BCIID');
+//    sql.Clear;
-    sql.Add(' where A.YRType=''纬丝'' and B.C_Code=''' + Trim(MC_Code) + '''');
+//    sql.Add('select A.*,MainId=cast('''' as varchar(30)),SubId=cast('''' as varchar(30))   from BS_Cloth_Yarn A inner join Bs_Cloth_Info B on A.BCIID=B.BCIID');
-    Open;
+//    sql.Add(' where A.YRType=''纬丝'' and B.C_Code=''' + Trim(MC_Code) + '''');
-  end;
+//    Open;
-  SCreateCDS(ADOQueryTemp, CDS_2);
+//  end;
-  SInitCDSData(ADOQueryTemp, CDS_2);
+//  SCreateCDS(ADOQueryTemp, CDS_2);
-  ClearCDSColumn(CDS_2, ['YRId', 'SubId', 'MainId']);
+//  SInitCDSData(ADOQueryTemp, CDS_2);
-
+//  ClearCDSColumn(CDS_2, ['YRId', 'SubId', 'MainId']);
-  with ADOQueryTemp do
+//
-  begin
+//  with ADOQueryTemp do
-    Close;
+//  begin
-    sql.Clear;
+//    Close;
-    sql.Add('select A.*,MainId=cast('''' as varchar(30)),SubId=cast('''' as varchar(30))   from BS_Cloth_QZ A inner join Bs_Cloth_Info B on A.BCIID=B.BCIID');
+//    sql.Clear;
-    sql.Add(' where B.C_Code=''' + Trim(MC_Code) + '''');
+//    sql.Add('select A.*,MainId=cast('''' as varchar(30)),SubId=cast('''' as varchar(30))   from BS_Cloth_QZ A inner join Bs_Cloth_Info B on A.BCIID=B.BCIID');
-    Open;
+//    sql.Add(' where B.C_Code=''' + Trim(MC_Code) + '''');
-  end;
+//    Open;
-  SCreateCDS(ADOQueryTemp, CDS_QZ);
+//  end;
-  SInitCDSData(ADOQueryTemp, CDS_QZ);
+//  SCreateCDS(ADOQueryTemp, CDS_QZ);
-  ClearCDSColumn(CDS_QZ, ['QZID', 'SubId', 'MainId']);
+//  SInitCDSData(ADOQueryTemp, CDS_QZ);
+//  ClearCDSColumn(CDS_QZ, ['QZID', 'SubId', 'MainId']);
 
 end;
 
@@ -400,7 +412,58 @@ begin
   SCreateCDS(ADOQueryTemp, CDS_QZ);
   SInitCDSData(ADOQueryTemp, CDS_QZ);
  /////////////////Ë¢ÐÂÆð×Û¹¤ÒÕµ¥ÐÅÏ¢/////////////////////////
- ///
+  if FMainId = '' then
+  begin
+    with CDS_1 do
+    begin
+      Append;
+      FieldByName('RowNo').Value := 'A';
+      Post;
+      Append;
+      FieldByName('RowNo').Value := 'B';
+      Post;
+      Append;
+      FieldByName('RowNo').Value := 'C';
+      Post;
+      Append;
+      FieldByName('RowNo').Value := 'D';
+      Post;
+      Append;
+      FieldByName('RowNo').Value := 'E';
+      Post;
+      Append;
+      FieldByName('RowNo').Value := 'F';
+      Post;
+      Append;
+      FieldByName('RowNo').Value := 'G';
+      Post;
+    end;
+    with CDS_2 do
+    begin
+      Append;
+      FieldByName('RowNo').Value := 'A';
+      Post;
+      Append;
+      FieldByName('RowNo').Value := 'B';
+      Post;
+      Append;
+      FieldByName('RowNo').Value := 'C';
+      Post;
+      Append;
+      FieldByName('RowNo').Value := 'D';
+      Post;
+      Append;
+      FieldByName('RowNo').Value := 'E';
+      Post;
+      Append;
+      FieldByName('RowNo').Value := 'F';
+      Post;
+      Append;
+      FieldByName('RowNo').Value := 'G';
+      Post;
+    end;
+
+  end;
 end;
 
 procedure TfrmTatPlanInPut.Initexcel();
@@ -445,8 +508,8 @@ end;
 procedure TfrmTatPlanInPut.FormShow(Sender: TObject);
 begin
 
-  ReadCxGrid('坯布生产计划单录入1', Tv1, '坯布生产管理');
+  ReadCxGrid('坯布生产计划单录入11', Tv1, '坯布生产管理');
-  ReadCxGrid('坯布生产计划单录入2', Tv2, '坯布生产管理');
+  ReadCxGrid('坯布生产计划单录入22', Tv2, '坯布生产管理');
   InitData();
 //  Initexcel();
 end;
@@ -825,8 +888,8 @@ end;
 
 procedure TfrmTatPlanInPut.ToolButton8Click(Sender: TObject);
 begin
-  WriteCxGrid('坯布生产计划单录入1', Tv1, '坯布生产管理');
+  WriteCxGrid('坯布生产计划单录入11', Tv1, '坯布生产管理');
-  WriteCxGrid('坯布生产计划单录入2', Tv2, '坯布生产管理');
+  WriteCxGrid('坯布生产计划单录入22', Tv2, '坯布生产管理');
 end;
 
 procedure TfrmTatPlanInPut.ToolButton9Click(Sender: TObject);
@@ -867,6 +930,124 @@ begin
   CDS_QZ.EnableControls;
 end;
 
+procedure TfrmTatPlanInPut.TV1Column1PropertiesEditValueChanged(Sender: TObject);
+var
+  mvalue, FFieldName: string;
+  GS, ZGS, MF, DS, WM, TW: double;
+begin
+
+  mvalue := TcxTextEdit(Sender).EditingText;
+  FFieldName := Trim(Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName);
+
+  with CDS_1 do
+  begin
+    Edit;
+    FieldByName(FFieldName).Value := mvalue;
+    Post;
+
+    if FieldByName('YarnQty').Value = null then
+    begin
+      GS := 0;   //根数
+    end
+    else
+    begin
+      GS := FieldByName('YarnQty').Value;   //根数
+    end;
+
+    if FieldByName('CycleYarnQty').Value = null then
+    begin
+      ZGS := 0; //循环根数
+    end
+    else
+    begin
+      ZGS := FieldByName('CycleYarnQty').Value; //循环根数
+    end;
+
+    MF := strtofloatdef(C_ReedWidth.text, 0);    //筘幅
+
+    if FieldByName('TestDenier').Value = null then
+    begin
+      DS := 0;     //D数
+    end
+    else
+    begin
+      DS := FieldByName('TestDenier').Value;     //D数
+    end;
+
+    WM := strtofloatdef(C_FinishLatitudeDensity.text, 0); //纬密
+
+    TW := strtofloatdef(C_YarnQty.text, 0); //头纹
+  end;
+  if ZGS <> 0 then
+  begin
+    with CDS_1 do
+    begin
+      Edit;
+      FieldByName('MeterQty').Value := roundfloat(GS / ZGS * TW * DS / 9000, 2);
+      Post;
+    end;
+  end;
+  JSKZ();
+end;
+
+procedure TfrmTatPlanInPut.Tv2Column1PropertiesEditValueChanged(Sender: TObject);
+var
+  mvalue, FFieldName: string;
+  GS, ZGS, MF, DS, WM: double;
+begin
+
+  mvalue := TcxTextEdit(Sender).EditingText;
+  FFieldName := Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName);
+
+  with CDS_2 do
+  begin
+    Edit;
+    FieldByName(FFieldName).Value := mvalue;
+    Post;
+
+    if FieldByName('YarnQty').Value = null then
+    begin
+      GS := 0;   //根数
+    end
+    else
+    begin
+      GS := FieldByName('YarnQty').Value;   //根数
+    end;
+
+    if FieldByName('CycleYarnQty').Value = null then
+    begin
+      ZGS := 0; //循环根数
+    end
+    else
+    begin
+      ZGS := FieldByName('CycleYarnQty').Value; //循环根数
+    end;
+
+    MF := strtofloatdef(C_ReedWidth.text, 0);    //筘幅
+
+    if FieldByName('TestDenier').Value = null then
+    begin
+      DS := 0;     //D数
+    end
+    else
+    begin
+      DS := FieldByName('TestDenier').Value;     //D数
+    end;
+
+    WM := strtofloatdef(C_FinishLatitudeDensity.text, 0); //纬密
+  end;
+  if ZGS <> 0 then
+  begin
+    with CDS_2 do
+    begin
+      Edit;
+      FieldByName('MeterQty').Value := roundfloat(GS / ZGS * MF * DS * WM / 9000, 2);
+      Post;
+    end;
+  end;
+  JSKZ();
+end;
+
 procedure TfrmTatPlanInPut.cxGridDBColumn1PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
 begin
   try
@@ -893,6 +1074,199 @@ begin
   end;
 end;
 
+procedure TfrmTatPlanInPut.cxGridDBColumn3PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
+begin
+  try
+    frmYarnInfoSel := TfrmYarnInfoSel.Create(Application);
+    with frmYarnInfoSel do
+    begin
+      if ShowModal = 1 then
+      begin
+        with self.CDS_1 do
+        begin
+          Edit;
+
+          FieldByName('Y_Code').Value := frmYarnInfoSel.CDS_1.fieldbyname('Y_Code').Value;
+          FieldByName('Y_Name').Value := frmYarnInfoSel.CDS_1.fieldbyname('Y_Name').Value;
+
+          FieldByName('Y_Spec').Value := frmYarnInfoSel.CDS_1.fieldbyname('Y_Spec').Value;
+          FieldByName('Y_Color').Value := frmYarnInfoSel.CDS_1.fieldbyname('Y_Color').Value;
+
+          FieldByName('FF').Value := frmYarnInfoSel.CDS_1.fieldbyname('FF').Value;
+          FieldByName('ND').Value := frmYarnInfoSel.CDS_1.fieldbyname('ND').Value;
+
+          FieldByName('Brand').Value := frmYarnInfoSel.CDS_1.fieldbyname('Brand').Value;
+          FieldByName('Y_Composition').Value := frmYarnInfoSel.CDS_1.fieldbyname('Y_Composition').Value;
+          FieldByName('TestDenier').Value := frmYarnInfoSel.CDS_1.fieldbyname('Denier').Value;
+
+          Post;
+        end;
+
+        JSJS();
+        JSWS();
+        JSKZ();
+      end;
+    end;
+  finally
+    frmYarnInfoSel.Free;
+  end;
+end;
+
+procedure TfrmTatPlanInPut.JSJS();
+var
+  GS, ZGS, MF, DS, WM, TW: double;
+begin
+  if CDS_1.IsEmpty then
+    exit;
+  with CDS_1 do
+  begin
+    DisableControls;
+    first;
+    while not eof do
+    begin
+
+      with CDS_1 do
+      begin
+
+        if FieldByName('YarnQty').Value = null then
+        begin
+          GS := 0;   //根数
+        end
+        else
+        begin
+          GS := FieldByName('YarnQty').Value;   //根数
+        end;
+
+        if FieldByName('CycleYarnQty').Value = null then
+        begin
+          ZGS := 0; //循环根数
+        end
+        else
+        begin
+          ZGS := FieldByName('CycleYarnQty').Value; //循环根数
+        end;
+
+        MF := strtofloatdef(C_ReedWidth.text, 0);    //筘幅
+
+        TW := strtofloatdef(C_YarnQty.text, 0);    //头纹
+
+        if FieldByName('TestDenier').Value = null then
+        begin
+          DS := 0;     //D数
+        end
+        else
+        begin
+          DS := FieldByName('TestDenier').Value;     //D数
+        end;
+
+        WM := strtofloatdef(C_FinishLatitudeDensity.text, 0); //纬密
+      end;
+      if ZGS <> 0 then
+      begin
+        with CDS_1 do
+        begin
+          Edit;
+          FieldByName('MeterQty').Value := roundfloat(GS / ZGS * TW * DS / 9000, 2);
+          Post;
+        end;
+      end;
+      next;
+    end;
+    First;
+    EnableControls;
+  end;
+end;
+
+procedure TfrmTatPlanInPut.JSWS();
+var
+  GS, ZGS, MF, DS, WM: double;
+begin
+  if CDS_2.IsEmpty then
+    exit;
+  with CDS_2 do
+  begin
+    DisableControls;
+    first;
+    while not eof do
+    begin
+
+      with CDS_2 do
+      begin
+
+        if FieldByName('YarnQty').Value = null then
+        begin
+          GS := 0;   //根数
+        end
+        else
+        begin
+          GS := FieldByName('YarnQty').Value;   //根数
+        end;
+
+        if FieldByName('CycleYarnQty').Value = null then
+        begin
+          ZGS := 0; //循环根数
+        end
+        else
+        begin
+          ZGS := FieldByName('CycleYarnQty').Value; //循环根数
+        end;
+
+        MF := strtofloatdef(C_ReedWidth.text, 0) + 15;    //筘幅
+
+        if FieldByName('TestDenier').Value = null then
+        begin
+          DS := 0;     //D数
+        end
+        else
+        begin
+          DS := FieldByName('TestDenier').Value;     //D数
+        end;
+
+        WM := strtofloatdef(C_FinishLatitudeDensity.text, 0); //纬密
+      end;
+      if ZGS <> 0 then
+      begin
+        with CDS_2 do
+        begin
+          Edit;
+          FieldByName('MeterQty').Value := roundfloat(GS / ZGS * MF * DS * WM / 9000, 2);
+          Post;
+        end;
+      end;
+      next;
+    end;
+    First;
+    EnableControls;
+  end;
+end;
+
+procedure TfrmTatPlanInPut.JSKZ();
+var
+  SumJS, SumWS: double;
+begin
+  C_GramWeight.SetFocus;
+
+  if Tv1.DataController.Summary.FooterSummaryValues[0] <> null then
+  begin
+    SumJS := Tv1.DataController.Summary.FooterSummaryValues[0];
+  end
+  else
+  begin
+    SumJS := 0;
+  end;
+
+  if Tv2.DataController.Summary.FooterSummaryValues[0] <> null then
+  begin
+    SumWS := Tv2.DataController.Summary.FooterSummaryValues[0];
+  end
+  else
+  begin
+    SumWS := 0;
+  end;
+
+  C_GramWeight.text := floattostr(roundfloat((SumJS + SumWS) / 3, 2));
+end;
+
 procedure TfrmTatPlanInPut.cxGridDBColumn4PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
 begin
   try
@@ -920,6 +1294,42 @@ begin
   end;
 end;
 
+procedure TfrmTatPlanInPut.v2Column10PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
+begin
+  try
+    frmYarnInfoSel := TfrmYarnInfoSel.Create(Application);
+    with frmYarnInfoSel do
+    begin
+      if ShowModal = 1 then
+      begin
+        with self.CDS_2 do
+        begin
+          Edit;
+          FieldByName('Y_Code').Value := frmYarnInfoSel.CDS_1.fieldbyname('Y_Code').Value;
+          FieldByName('Y_Name').Value := frmYarnInfoSel.CDS_1.fieldbyname('Y_Name').Value;
+
+          FieldByName('Y_Spec').Value := frmYarnInfoSel.CDS_1.fieldbyname('Y_Spec').Value;
+          FieldByName('Y_Color').Value := frmYarnInfoSel.CDS_1.fieldbyname('Y_Color').Value;
+
+          FieldByName('FF').Value := frmYarnInfoSel.CDS_1.fieldbyname('FF').Value;
+          FieldByName('ND').Value := frmYarnInfoSel.CDS_1.fieldbyname('ND').Value;
+
+          FieldByName('Brand').Value := frmYarnInfoSel.CDS_1.fieldbyname('Brand').Value;
+          FieldByName('Y_Composition').Value := frmYarnInfoSel.CDS_1.fieldbyname('Y_Composition').Value;
+          FieldByName('TestDenier').Value := frmYarnInfoSel.CDS_1.fieldbyname('Denier').Value;
+          Post;
+        end;
+
+        JSJS();
+        JSWS();
+        JSKZ();
+      end;
+    end;
+  finally
+    frmYarnInfoSel.Free;
+  end;
+end;
+
 procedure TfrmTatPlanInPut.v2Column11PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
 begin
   try
@@ -1020,6 +1430,13 @@ begin
   end;
 end;
 
+procedure TfrmTatPlanInPut.C_YarnQtyPropertiesEditValueChanged(Sender: TObject);
+begin
+  JSJS();
+  JSWS();
+  JSKZ();
+end;
+
 procedure TfrmTatPlanInPut.Edit1KeyPress(Sender: TObject; var Key: Char);
 var
   i, j: Integer;

E01梭织生产计划/U_TatPlanList.pas

@@ -255,6 +255,10 @@ begin
             sql.Add(' and A.FillTIme>=''' + Trim(FormatDateTime('yyyy-MM-dd', BegDate.Date)) + '''');
             sql.Add(' and A.FillTIme<''' + Trim(FormatDateTime('yyyy-MM-dd', EndDate.Date + 1)) + '''');
           end;
+        3:
+          begin
+            sql.Add('and isnull(Status,''0'') not in (''11'',''22'') ');
+          end;
       end;
 
       sql.add('order by A.FILLTIME DESC');

E02梭织经轴仓库/U_TatWBPlan.dfm

@@ -233,7 +233,6 @@ inherited frmTatWBPlan: TfrmTatWBPlan
     Height = 541
     Align = alLeft
     TabOrder = 2
-    ExplicitTop = 117
     object Tv1: TcxGridDBTableView
       Navigator.Buttons.CustomButtons = <>
       ScrollbarAnnotations.CustomAnnotations = <>

E02梭织经轴仓库/U_TatWBPlan.pas

@@ -12,7 +12,7 @@ uses
   RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, cxTextEdit, cxLookAndFeels,
   cxLookAndFeelPainters, cxNavigator, dxDateRanges, dxBarBuiltInMenu, U_BaseList,
   cxPC, cxCheckBox, dxScrollbarAnnotations, Vcl.Menus, cxContainer,
-  cxProgressBar;
+  cxProgressBar, dxSkinsCore, dxSkinsDefaultPainters;
 
 type
   TfrmTatWBPlan = class(TfrmBaseList)
@@ -439,7 +439,7 @@ begin
     Close;
     sql.Clear;
     SQL.Add('select A.*');
-    sql.Add('from Tat_Plan_Card A');
+    sql.Add('from Tat_WB_Plan A');
     sql.Add(' where A.TWPId=''' + Trim(CDS_1.fieldbyname('TWPId').AsString) + '''');
     Open;
   end;