11

A00通用窗体/U_WBSpecSel.pas

@@ -12,22 +12,7 @@ uses
   cxLookAndFeelPainters, cxNavigator, dxDateRanges, dxBarBuiltInMenu,
   System.ImageList, U_BaseInput, cxButtonEdit, cxCheckBox, Vcl.Menus,
   dxScrollbarAnnotations, cxImageList, dxSkinsCore, dxSkinsDefaultPainters,
-      
+  dxSkinOffice2013White, dxSkinSharpPlus, dxSkinWXI;
-     
-     
-     
-     
-    
-    
-    
-   dxSkinOffice2013White, 
-    
-     
-    dxSkinSharpPlus, 
-     
-    
-    
-   dxSkinWXI, ;
 
 type
   TfrmWBSpecSel = class(TfrmBaseHelp)

A00通用窗体/U_YarnInfoSel.dfm

@@ -285,15 +285,6 @@ inherited frmYarnInfoSel: TfrmYarnInfoSel
         Options.Editing = False
         Width = 80
       end
-      object v1Column2: TcxGridDBColumn
-        Tag = 2
-        Caption = #39068#33394
-        DataBinding.FieldName = 'Y_Color'
-        DataBinding.IsNullValueType = True
-        HeaderAlignmentHorz = taCenter
-        Options.Editing = False
-        Width = 100
-      end
       object v1Column12: TcxGridDBColumn
         Tag = 2
         Caption = #22791#27880

A00通用窗体/U_YarnInfoSel.pas

@@ -12,23 +12,7 @@ uses
   cxLookAndFeelPainters, cxNavigator, dxDateRanges, dxBarBuiltInMenu,
   System.ImageList, U_BaseInput, cxButtonEdit, cxCheckBox, Vcl.Menus,
   dxScrollbarAnnotations, cxContainer, cxImageList, dxSkinsCore,
-  dxSkinsDefaultPainters,    
+  dxSkinsDefaultPainters, dxSkinOffice2013White, dxSkinSharpPlus, dxSkinWXI;
-     
-    
-     
-     
-    
-    
-    
-    
-  dxSkinOffice2013White,  
-    
-     
-   dxSkinSharpPlus,   
-     
-   
-     dxSkinWXI,
-  ;
 
 type
   TfrmYarnInfoSel = class(TfrmBaseHelp)
@@ -49,7 +33,6 @@ type
     ImageList1: TImageList;
     cxGrid1: TcxGrid;
     Tv1: TcxGridDBTableView;
-    v1Column2: TcxGridDBColumn;
     v1Column18: TcxGridDBColumn;
     v1Column15: TcxGridDBColumn;
     v1SPName: TcxGridDBColumn;

A00通用组件/FrameDateTimeSel.pas

@@ -6,41 +6,10 @@ uses
   Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
   System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, cxGraphics,
   cxControls, cxLookAndFeels, cxLookAndFeelPainters, cxContainer, cxEdit,
-  Vcl.ComCtrls, dxCore, cxDateUtils,  
+  Vcl.ComCtrls, dxCore, cxDateUtils, cxTextEdit, cxMaskEdit, cxDropDownEdit,
-   cxTextEdit, cxMaskEdit, cxDropDownEdit, cxCalendar, Vcl.StdCtrls,
+  cxCalendar, Vcl.StdCtrls, Vcl.Menus, cxButtons, Vcl.ExtCtrls, DateUtils,
-  Vcl.Menus, cxButtons, Vcl.ExtCtrls, DateUtils,  
+  cxSpinEdit, cxTimeEdit, dxSkinsCore, dxSkinOffice2013White, dxSkinSharpPlus,
-      
+  dxSkinsDefaultPainters, dxSkinWXI;
-     
-     
-     
-    
-    
-    
-    
-    
-    
-     
-      
-     
-   
-    
-   cxSpinEdit, cxTimeEdit, dxSkinsCore,   
-      
-    
-     
-     
-    
-    
-    
-    
-  dxSkinOffice2013White,  
-    
-     
-   dxSkinSharpPlus,   
-    
-  dxSkinsDefaultPainters,  
-    
-   dxSkinWXI, ;
 
 type
   TfrmFrameDateTimeSel = class(TFrame)

E02梭织经轴仓库/U_TatWBPlanCard.dfm

@@ -195,8 +195,6 @@ inherited frmTatWBPlanCard: TfrmTatWBPlanCard
     Align = alLeft
     PopupMenu = PopupMenu1
     TabOrder = 2
-    ExplicitLeft = -6
-    ExplicitTop = 119
     object TV1: TcxGridDBTableView
       Navigator.Buttons.CustomButtons = <>
       ScrollbarAnnotations.CustomAnnotations = <>

E02梭织经轴仓库/U_TatWBPlanInPut.dfm

@@ -3,12 +3,13 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut
   Top = 14
   Caption = #27974#32433#35745#21010#24405#20837
   ClientHeight = 616
-  ClientWidth = 952
+  ClientWidth = 1429
   Color = clWhite
   Font.Charset = GB2312_CHARSET
   Font.Name = #23435#20307
   Position = poScreenCenter
-  ExplicitWidth = 968
+  ExplicitTop = -30
+  ExplicitWidth = 1445
   ExplicitHeight = 655
   PixelsPerInch = 96
   TextHeight = 12
@@ -16,7 +17,7 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut
     Tag = 1
     Left = 0
     Top = 0
-    Width = 952
+    Width = 1429
     Height = 38
     AutoSize = True
     ButtonHeight = 38
@@ -35,6 +36,7 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut
     ParentFont = False
     ShowCaptions = True
     TabOrder = 0
+    ExplicitWidth = 1124
     object TBSave: TToolButton
       Left = 0
       Top = 0
@@ -62,16 +64,15 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut
   object Panel2: TPanel [1]
     Left = 0
     Top = 353
-    Width = 952
+    Width = 1429
     Height = 263
     Align = alClient
     TabOrder = 1
-    ExplicitTop = 192
+    ExplicitWidth = 1124
-    ExplicitHeight = 349
     object cxPageControl1: TcxPageControl
       Left = 1
       Top = 42
-      Width = 950
+      Width = 1427
       Height = 220
       Align = alClient
       Color = clWhite
@@ -87,122 +88,20 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut
       Visible = False
       Properties.CustomButtons.Buttons = <>
       Properties.Style = 6
-      ExplicitHeight = 306
+      ExplicitWidth = 1122
       ClientRectBottom = 220
-      ClientRectRight = 950
+      ClientRectRight = 1427
       ClientRectTop = 0
     end
-    object cxGrid2: TcxGrid
-      Left = 1
-      Top = 42
-      Width = 950
-      Height = 220
-      Align = alClient
-      Font.Charset = GB2312_CHARSET
-      Font.Color = clWindowText
-      Font.Height = -12
-      Font.Name = #23435#20307
-      Font.Style = []
-      ParentFont = False
-      TabOrder = 1
-      ExplicitHeight = 306
-      object Tv2: TcxGridDBTableView
-        Navigator.Buttons.CustomButtons = <>
-        ScrollbarAnnotations.CustomAnnotations = <>
-        DataController.DataSource = DS_1
-        DataController.Filter.AutoDataSetFilter = True
-        DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
-        DataController.Summary.DefaultGroupSummaryItems = <
-          item
-            Format = 'C_Code'
-          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>
-        DataController.Summary.SummaryGroups = <>
-        OptionsBehavior.FocusCellOnTab = True
-        OptionsBehavior.GoToNextCellOnEnter = True
-        OptionsBehavior.FocusCellOnCycle = True
-        OptionsCustomize.ColumnFiltering = False
-        OptionsView.Footer = True
-        OptionsView.GroupByBox = False
-        object v2Column10: TcxGridDBColumn
-          Caption = #21407#26009#20195#21495
-          DataBinding.FieldName = 'Y_Code'
-          DataBinding.IsNullValueType = True
-          HeaderAlignmentHorz = taCenter
-          Width = 131
-        end
-        object cxGridDBColumn1: TcxGridDBColumn
-          Caption = #21407#26009#21517#31216
-          DataBinding.FieldName = 'Y_Name'
-          DataBinding.IsNullValueType = True
-          PropertiesClassName = 'TcxButtonEditProperties'
-          Properties.Buttons = <
-            item
-              Default = True
-              Kind = bkEllipsis
-            end>
-          Properties.ReadOnly = True
-          HeaderAlignmentHorz = taCenter
-          Options.Moving = False
-          Options.Sorting = False
-          Width = 138
-        end
-        object v2Column2: TcxGridDBColumn
-          Caption = #32433#32447#21697#29260
-          DataBinding.FieldName = 'Brand'
-          DataBinding.IsNullValueType = True
-          HeaderAlignmentHorz = taCenter
-          Options.Moving = False
-          Options.Sorting = False
-          Width = 111
-        end
-        object v2Column6: TcxGridDBColumn
-          Caption = #39068#33394
-          DataBinding.FieldName = 'Y_Color'
-          DataBinding.IsNullValueType = True
-          HeaderAlignmentHorz = taCenter
-          Width = 99
-        end
-        object Tv2Column2: TcxGridDBColumn
-          Caption = #37197#27604
-          DataBinding.FieldName = 'Y_Ratio'
-          DataBinding.IsNullValueType = True
-          HeaderAlignmentHorz = taCenter
-          Width = 69
-        end
-      end
-      object cxGridLevel1: TcxGridLevel
-        GridView = Tv2
-      end
-    end
     object Panel5: TPanel
       Left = 1
       Top = 1
-      Width = 950
+      Width = 1427
       Height = 41
       Align = alTop
-      TabOrder = 2
+      TabOrder = 1
+      ExplicitLeft = 2
+      ExplicitTop = 6
       object Panel6: TPanel
         Left = 1
         Top = 1
@@ -268,11 +167,204 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut
         end
       end
     end
+    object cxGrid1: TcxGrid
+      Left = 1
+      Top = 42
+      Width = 1427
+      Height = 220
+      Align = alClient
+      TabOrder = 2
+      ExplicitWidth = 1122
+      object Tv1: TcxGridDBTableView
+        Navigator.Buttons.CustomButtons = <>
+        ScrollbarAnnotations.CustomAnnotations = <>
+        DataController.DataSource = DS_1
+        DataController.Summary.DefaultGroupSummaryItems = <>
+        DataController.Summary.FooterSummaryItems = <
+          item
+            Kind = skCount
+          end
+          item
+            Kind = skSum
+          end
+          item
+            Kind = skSum
+          end
+          item
+            Kind = skSum
+          end
+          item
+            Kind = skSum
+          end>
+        DataController.Summary.SummaryGroups = <>
+        OptionsCustomize.ColumnFiltering = False
+        OptionsView.GroupByBox = False
+        object v1Column18: TcxGridDBColumn
+          Caption = #37319#36141#21152#24037#21512#21516#21495
+          DataBinding.FieldName = 'ConNo'
+          DataBinding.IsNullValueType = True
+          PropertiesClassName = 'TcxButtonEditProperties'
+          Properties.Buttons = <
+            item
+              Default = True
+              Kind = bkEllipsis
+            end>
+          Properties.ReadOnly = True
+          Visible = False
+          HeaderAlignmentHorz = taCenter
+          VisibleForCustomization = False
+          Width = 106
+        end
+        object v1Column15: TcxGridDBColumn
+          Caption = #21697#29260
+          DataBinding.FieldName = 'SXPinPai'
+          DataBinding.IsNullValueType = True
+          PropertiesClassName = 'TcxButtonEditProperties'
+          Properties.Buttons = <
+            item
+              Default = True
+              Kind = bkEllipsis
+            end>
+          Visible = False
+          HeaderAlignmentHorz = taCenter
+          VisibleForCustomization = False
+          Width = 103
+        end
+        object Tv1Column2: TcxGridDBColumn
+          Caption = #32534#21495
+          DataBinding.FieldName = 'Y_Code'
+          DataBinding.IsNullValueType = True
+          PropertiesClassName = 'TcxButtonEditProperties'
+          Properties.Buttons = <
+            item
+              Default = True
+              Kind = bkEllipsis
+            end>
+          Properties.ReadOnly = True
+          HeaderAlignmentHorz = taCenter
+          Width = 94
+        end
+        object v1SPName: TcxGridDBColumn
+          Caption = #21697#21517
+          DataBinding.FieldName = 'Y_Name'
+          DataBinding.IsNullValueType = True
+          PropertiesClassName = 'TcxButtonEditProperties'
+          Properties.Buttons = <
+            item
+              Default = True
+              Kind = bkEllipsis
+            end>
+          Properties.ReadOnly = False
+          HeaderAlignmentHorz = taCenter
+          Width = 101
+        end
+        object v1SPSpec: TcxGridDBColumn
+          Caption = #35268#26684
+          DataBinding.FieldName = 'Y_Spec'
+          DataBinding.IsNullValueType = True
+          HeaderAlignmentHorz = taCenter
+          HeaderGlyphAlignmentHorz = taCenter
+          Options.Editing = False
+          Width = 116
+        end
+        object v1Column1: TcxGridDBColumn
+          Caption = #25209#21495
+          DataBinding.FieldName = 'BatchNo'
+          DataBinding.IsNullValueType = True
+          Visible = False
+          HeaderAlignmentHorz = taCenter
+          VisibleForCustomization = False
+          Width = 92
+        end
+        object v1Column10: TcxGridDBColumn
+          Caption = #36816#36153
+          DataBinding.FieldName = 'YunFei'
+          DataBinding.IsNullValueType = True
+          Visible = False
+          HeaderAlignmentHorz = taCenter
+          VisibleForCustomization = False
+          Width = 68
+        end
+        object Tv1Column1: TcxGridDBColumn
+          Caption = #39068#33394
+          DataBinding.FieldName = 'Y_Color'
+          DataBinding.IsNullValueType = True
+          HeaderAlignmentHorz = taCenter
+          Width = 70
+        end
+        object Tv1Column7: TcxGridDBColumn
+          Caption = #20998#29305'(Dtex)'
+          DataBinding.FieldName = 'Denier'
+          DataBinding.IsNullValueType = True
+          PropertiesClassName = 'TcxTextEditProperties'
+          Properties.OnEditValueChanged = Tv1Column7PropertiesEditValueChanged
+          HeaderAlignmentHorz = taCenter
+          Width = 100
+        end
+        object Tv1Column8: TcxGridDBColumn
+          Caption = #25903#25968
+          DataBinding.FieldName = 'ZS'
+          DataBinding.IsNullValueType = True
+          HeaderAlignmentHorz = taCenter
+          Width = 100
+        end
+        object v1Column3: TcxGridDBColumn
+          Caption = #26681#25968
+          DataBinding.FieldName = 'YarnQty'
+          DataBinding.IsNullValueType = True
+          PropertiesClassName = 'TcxTextEditProperties'
+          Properties.OnEditValueChanged = Tv1Column7PropertiesEditValueChanged
+          HeaderAlignmentHorz = taCenter
+          Width = 72
+        end
+        object Tv1Column4: TcxGridDBColumn
+          Caption = #24490#29615#26681#25968
+          DataBinding.FieldName = 'CycleYarnQty'
+          DataBinding.IsNullValueType = True
+          PropertiesClassName = 'TcxTextEditProperties'
+          Properties.OnEditValueChanged = Tv1Column7PropertiesEditValueChanged
+          GroupSummaryAlignment = taCenter
+          HeaderAlignmentHorz = taCenter
+          Width = 102
+        end
+        object Tv1Column9: TcxGridDBColumn
+          Caption = #31859#29992#37327
+          DataBinding.FieldName = 'MeterQty'
+          DataBinding.IsNullValueType = True
+          HeaderAlignmentHorz = taCenter
+          Width = 70
+        end
+        object Tv1Column6: TcxGridDBColumn
+          Caption = #32442#27861
+          DataBinding.FieldName = 'FF'
+          DataBinding.IsNullValueType = True
+          HeaderAlignmentHorz = taCenter
+          Width = 80
+        end
+        object Tv1Column5: TcxGridDBColumn
+          Caption = #25467#24230
+          DataBinding.FieldName = 'ND'
+          DataBinding.IsNullValueType = True
+          HeaderAlignmentHorz = taCenter
+          Width = 80
+        end
+        object v1Column12: TcxGridDBColumn
+          Caption = #22791#27880
+          DataBinding.FieldName = 'Note'
+          DataBinding.IsNullValueType = True
+          HeaderAlignmentHorz = taCenter
+          Width = 118
+        end
+      end
+      object cxGrid1Level1: TcxGridLevel
+        GridView = Tv1
+      end
+    end
   end
   object ScrollBox1: TScrollBox [2]
     Left = 0
     Top = 38
-    Width = 952
+    Width = 1429
     Height = 315
     Align = alTop
     BevelInner = bvNone
@@ -286,6 +378,8 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut
     ParentCtl3D = False
     ParentFont = False
     TabOrder = 2
+    OnDblClick = gynoDblClick
+    ExplicitLeft = 1
     ExplicitTop = 41
     object Label3: TLabel
       Left = 639
@@ -547,6 +641,7 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut
       ParentFont = False
       TabOrder = 1
       Zoom = 100
+      OnDblClick = gynoDblClick
       OnKeyPress = ConNoKeyPress
     end
     object WB_Spec: TEdit
@@ -555,6 +650,7 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut
       Width = 120
       Height = 18
       TabOrder = 0
+      OnDblClick = gynoDblClick
       OnKeyPress = ConNoKeyPress
     end
     object CustName: TBtnEditC
@@ -564,6 +660,7 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut
       Height = 20
       ReadOnly = True
       TabOrder = 2
+      OnDblClick = gynoDblClick
       OnBtnUpClick = CustNameBtnUpClick
       OnBtnDnClick = CustNameBtnDnClick
     end
@@ -574,6 +671,8 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut
       Height = 20
       ReadOnly = True
       TabOrder = 3
+      OnDblClick = gynoDblClick
+      OnBtnUpClick = WB_CodeBtnUpClick
       OnBtnDnClick = CustNameBtnDnClick
     end
     object WB_YarnTotalLen: TEdit
@@ -582,6 +681,7 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut
       Width = 120
       Height = 18
       TabOrder = 4
+      OnDblClick = gynoDblClick
       OnKeyPress = ConNoKeyPress
     end
     object WB_Qty: TEdit
@@ -590,6 +690,7 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut
       Width = 120
       Height = 18
       TabOrder = 5
+      OnDblClick = gynoDblClick
       OnKeyPress = ConNoKeyPress
     end
     object WB_YarnLen: TEdit
@@ -598,6 +699,7 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut
       Width = 120
       Height = 18
       TabOrder = 6
+      OnDblClick = gynoDblClick
       OnKeyPress = ConNoKeyPress
     end
     object WB_Qty_YJJZZS: TEdit
@@ -614,6 +716,7 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut
       Width = 120
       Height = 18
       TabOrder = 8
+      OnDblClick = gynoDblClick
       OnKeyPress = ConNoKeyPress
     end
     object WB_Qty_YJMJZMS: TEdit
@@ -622,14 +725,16 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut
       Width = 120
       Height = 18
       TabOrder = 9
+      OnDblClick = gynoDblClick
       OnKeyPress = ConNoKeyPress
     end
-    object TWPNo: TEdit
+    object TWPId: TEdit
       Left = 90
       Top = 5
       Width = 120
       Height = 18
       TabOrder = 10
+      OnDblClick = gynoDblClick
       OnKeyPress = ConNoKeyPress
     end
     object WB_Name: TEdit
@@ -638,6 +743,7 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut
       Width = 120
       Height = 18
       TabOrder = 11
+      OnDblClick = gynoDblClick
       OnKeyPress = ConNoKeyPress
     end
     object WB_YarnQty: TEdit
@@ -654,6 +760,7 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut
       Width = 120
       Height = 18
       TabOrder = 13
+      OnDblClick = gynoDblClick
       OnKeyPress = ConNoKeyPress
     end
     object gkbh: TBtnEditC
@@ -663,6 +770,8 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut
       Height = 20
       ReadOnly = True
       TabOrder = 14
+      OnDblClick = gynoDblClick
+      OnBtnUpClick = gkbhBtnUpClick
       OnBtnDnClick = CustNameBtnDnClick
     end
     object WB_ReedNo: TEdit
@@ -671,6 +780,7 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut
       Width = 120
       Height = 18
       TabOrder = 15
+      OnDblClick = gynoDblClick
       OnKeyPress = ConNoKeyPress
     end
     object WB_ReedNote: TEdit
@@ -687,6 +797,7 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut
       Width = 120
       Height = 18
       TabOrder = 17
+      OnDblClick = gynoDblClick
       OnKeyPress = ConNoKeyPress
     end
     object gyno: TBtnEditC
@@ -696,6 +807,8 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut
       Height = 20
       ReadOnly = True
       TabOrder = 18
+      OnDblClick = gynoDblClick
+      OnBtnUpClick = gynoBtnUpClick
       OnBtnDnClick = CustNameBtnDnClick
     end
   end
@@ -708,8 +821,8 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut
     Top = 193
   end
   inherited ImageList_new32: TImageList
-    Left = 1272
+    Left = 1120
-    Top = 200
+    Top = 256
   end
   inherited cxImageList_bar: TcxImageList
     FormatVersion = 1
@@ -721,14 +834,14 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut
     Connection = DataLink_WarpBeamStk.ADOLink
     LockType = ltReadOnly
     Parameters = <>
-    Left = 1090
+    Left = 930
     Top = 89
   end
   object ADOQueryCmd: TADOQuery
     Connection = DataLink_WarpBeamStk.ADOLink
     Parameters = <>
-    Left = 1410
+    Left = 1298
-    Top = 225
+    Top = 137
   end
   object CDS_1: TClientDataSet
     Aggregates = <>
@@ -738,7 +851,7 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut
   end
   object DS_1: TDataSource
     DataSet = CDS_1
-    Left = 436
+    Left = 476
-    Top = 393
+    Top = 401
   end
 end

E02梭织经轴仓库/U_TatWBPlanInPut.pas

@@ -25,14 +25,6 @@ type
     ToolButton8: TToolButton;
     Panel2: TPanel;
     cxPageControl1: TcxPageControl;
-    cxGrid2: TcxGrid;
-    Tv2: TcxGridDBTableView;
-    v2Column10: TcxGridDBColumn;
-    cxGridDBColumn1: TcxGridDBColumn;
-    v2Column2: TcxGridDBColumn;
-    v2Column6: TcxGridDBColumn;
-    Tv2Column2: TcxGridDBColumn;
-    cxGridLevel1: TcxGridLevel;
     Panel5: TPanel;
     Panel6: TPanel;
     Label21: TLabel;
@@ -63,7 +55,7 @@ type
     WB_Qty_YJMJZGS: TEdit;
     WB_Qty_YJMJZMS: TEdit;
     Label13: TLabel;
-    TWPNo: TEdit;
+    TWPId: TEdit;
     Label15: TLabel;
     Label17: TLabel;
     WB_Name: TEdit;
@@ -80,6 +72,25 @@ type
     Label24: TLabel;
     WB_YarnDensity: TEdit;
     gyno: TBtnEditC;
+    cxGrid1: TcxGrid;
+    Tv1: TcxGridDBTableView;
+    v1Column18: TcxGridDBColumn;
+    v1Column15: TcxGridDBColumn;
+    Tv1Column2: TcxGridDBColumn;
+    v1SPName: TcxGridDBColumn;
+    v1SPSpec: TcxGridDBColumn;
+    v1Column1: TcxGridDBColumn;
+    v1Column10: TcxGridDBColumn;
+    Tv1Column1: TcxGridDBColumn;
+    Tv1Column7: TcxGridDBColumn;
+    Tv1Column8: TcxGridDBColumn;
+    v1Column3: TcxGridDBColumn;
+    Tv1Column4: TcxGridDBColumn;
+    Tv1Column9: TcxGridDBColumn;
+    Tv1Column6: TcxGridDBColumn;
+    Tv1Column5: TcxGridDBColumn;
+    v1Column12: TcxGridDBColumn;
+    cxGrid1Level1: TcxGridLevel;
     procedure TBCloseClick(Sender: TObject);
     procedure FormShow(Sender: TObject);
     procedure TBSaveClick(Sender: TObject);
@@ -91,10 +102,15 @@ type
 
     procedure ToolButton3Click(Sender: TObject);
     procedure ToolButton4Click(Sender: TObject);
+    procedure gynoBtnUpClick(Sender: TObject);
+    procedure WB_CodeBtnUpClick(Sender: TObject);
+    procedure gkbhBtnUpClick(Sender: TObject);
+    procedure gynoDblClick(Sender: TObject);
+    procedure Tv1Column7PropertiesEditValueChanged(Sender: TObject);
   private
     procedure InitData();
     function SaveData(): Boolean;
-
+    procedure JSJS();
     { Private declarations }
   public
     PState, FCopyInt: Integer;
@@ -109,7 +125,8 @@ var
 implementation
 
 uses
-  U_DataLink, U_ZDYHelp, U_RTFun, U_CompanySel, U_YarnInfoSel;
+  U_DataLink, U_ZDYHelp, U_RTFun, U_CompanySel, U_YarnInfoSel, U_TatPlanSel2,
+  U_WBSpecSel, U_GKManageSel;
 
 {$R *.dfm}
 
@@ -160,6 +177,74 @@ begin
   InitData();
 end;
 
+procedure TfrmTatWBPlanInPut.gkbhBtnUpClick(Sender: TObject);
+begin
+  try
+    frmGKManageSel := tfrmGKManageSel.Create(Application);
+    with frmGKManageSel do
+    begin
+
+      if ShowModal = 1 then
+      begin
+        SELF.GKBH.Text := CDS_HZ.FieldByName('GKBH').AsString;
+        SELF.WB_ReedNo.Text := CDS_HZ.FieldByName('GKKH').AsString;
+      end;
+    end;
+  finally
+    frmGKManageSel.Free;
+  end;
+end;
+
+procedure TfrmTatWBPlanInPut.gynoBtnUpClick(Sender: TObject);
+begin
+  inherited;
+  try
+    frmTatPlanSel2 := TfrmTatPlanSel2.Create(Application);
+    with frmTatPlanSel2 do
+    begin
+      FISSJ := '否';
+      if ShowModal = 1 then
+      begin
+        Self.GYNo.Text := CDS_1.FieldByName('OrderNo').asstring;
+//        Self.GYNo.Properties.LookupItems.Text := CDS_1.FieldByName('Subid').asstring;
+        Self.CustName.Text := CDS_1.FieldByName('CustName').asstring;
+
+        Self.WB_Code.Text := CDS_1.FieldByName('WB_Code').asstring;
+
+        with ADOQueryTemp do
+        begin
+          close;
+          sql.Clear;
+          sql.Add(' select A.* ');
+          sql.Add(' from Tat_WB_Spec A');
+          sql.Add(' where WB_Code=''' + trim(WB_Code.Text) + ''' ');
+          Open;
+        end;
+
+        Self.WB_Code.Text := Trim(ADOQueryTemp.fieldbyname('WB_Code').AsString);
+        Self.WB_Name.Text := Trim(ADOQueryTemp.fieldbyname('WB_Name').AsString);
+        Self.WB_Spec.Text := Trim(ADOQueryTemp.fieldbyname('WB_Spec').AsString);
+        Self.WB_YarnQty.Text := ADOQueryTemp.fieldbyname('WB_YarnQty').asstring;
+        Self.WB_Width.Text := Trim(ADOQueryTemp.fieldbyname('WB_Width').AsString);
+        Self.WB_ReedNo.Text := Trim(ADOQueryTemp.fieldbyname('WB_ReedNo').AsString);
+        Self.WB_ReedNote.Text := Trim(ADOQueryTemp.fieldbyname('WB_ReedNote').AsString);
+
+        Self.WB_YarnDensity.Text := Trim(ADOQueryTemp.fieldbyname('WB_YarnDensity').AsString);
+        Self.OrdNote.Text := Trim(ADOQueryTemp.fieldbyname('Note').AsString);
+
+      end;
+    end;
+  finally
+    frmTatPlanSel2.Free;
+  end;
+end;
+
+procedure TfrmTatWBPlanInPut.gynoDblClick(Sender: TObject);
+begin
+  inherited;
+  TcxButtonEdit(Sender).Text := '';
+end;
+
 function TfrmTatWBPlanInPut.SaveData(): Boolean;
 var
   maxno, maxsubno, maxpbno, maxpzno, maxsjno: string;
@@ -243,7 +328,7 @@ begin
           FieldByName('YRType').Value := '´óÖá¾­Ë¿';
           FieldByName('TWPId').Value := Trim(maxno);
           FieldByName('YRId').Value := Trim(maxpbno);
-          RTSetsavedataCDS(ADOQueryCmd, Tv2, CDS_1, 'Tat_WB_Plan_Yarn', 0);
+          RTSetsavedataCDS(ADOQueryCmd, Tv1, CDS_1, 'Tat_WB_Plan_Yarn', 0);
           Post;
         end;
         CDS_1.Edit;
@@ -298,13 +383,16 @@ begin
         with self.CDS_1 do
         begin
           Append;
-          FieldByName('Brand').Value := frmYarnInfoSel.CDS_1.fieldbyname('Brand').Value;
           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('Denier').Value := frmYarnInfoSel.CDS_1.fieldbyname('Denier').Value;
-          FieldByName('Y_Ratio').Value := 0;
+
+          FieldByName('ZS').Value := frmYarnInfoSel.CDS_1.fieldbyname('ZS').Value;
+          FieldByName('FF').Value := frmYarnInfoSel.CDS_1.fieldbyname('FF').Value;
+          FieldByName('ND').Value := frmYarnInfoSel.CDS_1.fieldbyname('ND').Value;
+          FieldByName('NOTE').Value := frmYarnInfoSel.CDS_1.fieldbyname('NOTE').Value;
           Post;
         end;
 
@@ -334,6 +422,96 @@ begin
   CDS_1.Delete;
 end;
 
+procedure TfrmTatWBPlanInPut.Tv1Column7PropertiesEditValueChanged(
+  Sender: TObject);
+var
+  mvalue, FFieldName: string;
+  GS, ZGS, MF, DS, WM, TW, SUNHAO: 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;
+
+//    if FieldByName('SH').Value = null then
+//    begin
+//      SUNHAO := 0; //损耗
+//    end
+//    else
+//    begin
+//      SUNHAO := FieldByName('SH').Value; //损耗
+//    end;
+
+    if FieldByName('Denier').Value = null then
+    begin
+      DS := 0;     //D数
+    end
+    else
+    begin
+      DS := FieldByName('Denier').Value;     //D数
+    end;
+
+    TW := strtofloatdef(WB_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;
+end;
+
+procedure TfrmTatWBPlanInPut.WB_CodeBtnUpClick(Sender: TObject);
+begin
+  try
+    frmWBSpecSel := TfrmWBSpecSel.Create(Application);
+    with frmWBSpecSel do
+    begin
+
+      if ShowModal = 1 then
+      begin
+        Self.WB_Code.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('WB_Code').AsString);
+        Self.WB_Name.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('WB_Name').AsString);
+        Self.WB_YarnQty.Text := frmWBSpecSel.CDS_1.fieldbyname('WB_YarnQty').value;
+        Self.WB_Width.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('WB_Width').AsString);
+        Self.WB_ReedNo.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('WB_ReedNo').AsString);
+        Self.WB_ReedNote.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('WB_ReedNote').AsString);
+        Self.WB_YarnDensity.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('WB_YarnDensity').AsString);
+        Self.gkbh.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('gkbh').AsString);
+        Self.OrdNote.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('Note').AsString);
+      end;
+    end;
+  finally
+    frmWBSpecSel.Free;
+  end;
+end;
+
 procedure TfrmTatWBPlanInPut.C_CodeKeyPress(Sender: TObject; var Key: Char);
 begin
   if Key = #13 then
@@ -369,12 +547,79 @@ begin
 
 end;
 
+
+procedure TfrmTatWBPlanInPut.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(WB_Width.text, 0);    //筘幅
+
+        TW := strtofloatdef(WB_YarnQty.text, 0);    //头纹
+
+        if FieldByName('TestDenier').Value = null then
+        begin
+          DS := 0;     //D数
+        end
+        else
+        begin
+          DS := FieldByName('TestDenier').Value;     //D数
+        end;
+
+        WM := strtofloatdef(WB_YarnDensity.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 TfrmTatWBPlanInPut.ConNoKeyPress(Sender: TObject; var Key: Char);
 begin
   if Key = #13 then
   begin
     Key := #0;
     SelectNext(ActiveControl as TWinControl, True, True);
+
   end;
 end;
 

E02梭织经轴仓库/U_WBSpecInPut.dfm

@@ -2,21 +2,20 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut
   Left = 88
   Top = 141
   Caption = #25972#32463#24037#33402#24405#20837
-  ClientHeight = 863
+  ClientHeight = 845
   ClientWidth = 1115
   Color = clWhite
   Font.Height = -16
   Position = poMainFormCenter
-  ExplicitTop = -5
   ExplicitWidth = 1131
-  ExplicitHeight = 902
+  ExplicitHeight = 884
   PixelsPerInch = 96
   TextHeight = 21
   object cxGrid1: TcxGrid [0]
     Left = 0
     Top = 455
     Width = 1115
-    Height = 408
+    Height = 390
     Align = alClient
     TabOrder = 0
     ExplicitTop = 461

E02梭织经轴仓库/U_WBSpecList.dfm

@@ -540,6 +540,8 @@ inherited frmWBSpecList: TfrmWBSpecList
       Align = alTop
       ParentFont = False
       TabOrder = 1
+      ExplicitLeft = 6
+      ExplicitTop = 6
       Height = 239
       Width = 594
     end

E02梭织经轴仓库/WarpBeamStk.dproj.local

@@ -125,19 +125,19 @@
     <File Path="U_WBTypeSel.dfm"/>
   </ProjectSortOrder>
 	<Transactions>
-    <Transaction>1899-12-30 00:00:00.000.535,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_JT.pas</Transaction>
+    <Transaction>1899/12/30 00:00:00.000.535,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_JT.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.717,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A02基础产品管理\U_TatClothInfoInput.pas=</Transaction>
+    <Transaction>1899/12/30 00:00:00.000.717,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A02基础产品管理\U_TatClothInfoInput.pas=</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.444,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_WBSpecInPut.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_WBSpecInPut.pas</Transaction>
+    <Transaction>1899/12/30 00:00:00.000.444,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_WBSpecInPut.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_WBSpecInPut.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.444,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_WBSpecInPut.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_WBSpecInPut.dfm</Transaction>
+    <Transaction>1899/12/30 00:00:00.000.444,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_WBSpecInPut.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_WBSpecInPut.dfm</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.584,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_CZ.pas</Transaction>
+    <Transaction>1899/12/30 00:00:00.000.584,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_CZ.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.318,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_XB.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_JT.pas</Transaction>
+    <Transaction>1899/12/30 00:00:00.000.318,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_XB.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_JT.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.556,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_SZ.pas</Transaction>
+    <Transaction>1899/12/30 00:00:00.000.556,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_SZ.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.585,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_XZ.pas</Transaction>
+    <Transaction>1899/12/30 00:00:00.000.585,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_XZ.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.318,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_XB.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_JT.dfm</Transaction>
+    <Transaction>1899/12/30 00:00:00.000.318,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_XB.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_JT.dfm</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.922,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction>
+    <Transaction>1899/12/30 00:00:00.000.922,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.423,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatPlanSel.dfm=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatPlanSel2.dfm</Transaction>
+    <Transaction>1899/12/30 00:00:00.000.423,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatPlanSel.dfm=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatPlanSel2.dfm</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.158,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatGYSel.pas</Transaction>
+    <Transaction>1899/12/30 00:00:00.000.158,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatGYSel.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.423,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatPlanSel.pas=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatPlanSel2.pas</Transaction>
+    <Transaction>1899/12/30 00:00:00.000.423,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatPlanSel.pas=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatPlanSel2.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.512,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatPlanSel.pas</Transaction>
+    <Transaction>1899/12/30 00:00:00.000.512,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatPlanSel.pas</Transaction>
   </Transactions>
 </BorlandProject>