1

A02基础产品管理/U_ClothInfo.pas

@@ -16,7 +16,8 @@ uses
   dxBarBuiltInMenu, cxPC, Math, RM_BarCode, dxDateRanges,
   IdExplicitTLSClientServerBase, U_BaseList, cxContainer, dxDBBarCode, dxBarCode,
   Vcl.Clipbrd, cxTextEdit, BtnEdit, StrUtils, Vcl.Buttons,
-  dxScrollbarAnnotations, cxProgressBar, dxSkinsCore, dxSkinsDefaultPainters;
+  dxScrollbarAnnotations, cxProgressBar, dxSkinsCore, dxSkinsDefaultPainters,
+  dxSkinWXI;
 
 type
   FdDy = record
@@ -178,7 +179,7 @@ type
     CurrentPage, RecordsNumber: Integer;
     CTID: string;
     PState: Integer;
-    FCTID, FTopID, FJurisdiction, FCTType, canshu3, CTID1, CTID2: string;
+    FCTID, FTopID, FJurisdiction, FCTType, canshu3, canshu4, CTID1, CTID2, FCTType1: string;
     procedure SetStatus();
     procedure setpage();
     procedure InitTree();
@@ -290,29 +291,84 @@ begin
   end;
 end;
 
+//procedure TfrmClothInfo.InitTree();
+//
+//begin
+//  try
+//    cxDBTreeList1.BeginUpdate;
+//    CDS_Tree.DisableControls;
+//    with ADOQueryTree do
+//
+//    begin
+//      Close;
+//      SQL.Clear;
+//      SQL.Add('SELECT * FROM F_BS_CloType('''' )');  // 传递空参数获取所有分类
+//
+//
+//      // 添加过滤条件
+//      SQL.Add('WHERE CTType = ' + QuotedStr(FCTType));
+//
+//      if canshu4 = '二次加工' then
+//      begin
+//        SQL.Add(' and CTID=' + quotedstr('CT2412300005'));
+//      end
+//      else
+//      begin
+//        SQL.Add(' and CTID <>' + quotedstr('CT2412300005'));
+//
+//      end;
+//
+//
+//      SQL.Add('order by  CTName');
+//      Open;
+//    end;
+//
+//    SCreateCDS(ADOQueryTree, CDS_Tree);
+//    SInitCDSData(ADOQueryTree, CDS_Tree);
+//
+//  finally
+//    CDS_Tree.EnableControls;
+//    cxDBTreeList1.EndUpdate;
+//
+//    cxDBTreeList1.Items[0].Expand(false);
+//  end;
+//
+
+//end;
+
 procedure TfrmClothInfo.InitTree();
+
 begin
   try
     cxDBTreeList1.BeginUpdate;
     CDS_Tree.DisableControls;
+
     with ADOQueryTree do
     begin
-      Close;
       SQL.Clear;
-      SQL.Add('select * from BS_Cloth_Type where CTType=' + quotedstr(FCTType));
+
-      SQL.Add('order by  CTName');
+     if canshu4= '二次加工'  then
+     begin
+           SQL.Add('SELECT * FROM dbo.F_BS_CloType(''CT2505100001'') A ORDER BY CTName ');
+     end
+     else
+     begin
+            SQL.Add('SELECT * FROM dbo.F_BS_CloType(''CT2412300003'') A ORDER BY CTName ');
+     end;
+
       Open;
     end;
+
     SCreateCDS(ADOQueryTree, CDS_Tree);
     SInitCDSData(ADOQueryTree, CDS_Tree);
 
   finally
     CDS_Tree.EnableControls;
     cxDBTreeList1.EndUpdate;
-    cxDBTreeList1.Items[0].Expand(false);
-  end;
 
-  Self.cds_tree.Locate('CTName', '³ÉÆ·', []);
+      cxDBTreeList1.Items[0].Expand(False);
+  end;
+    Self.cds_tree.Locate('CTName', '产品档案', []);
 end;
 
 procedure TfrmClothInfo.InitGrid();
@@ -370,6 +426,7 @@ begin
   FJurisdiction := Trim(Self.fParameters1);
   FCTType := Trim(self.fParameters2);
   canshu3 := Trim(self.fParameters3);
+  canshu4 := Trim(self.fParameters4);
 end;
 
 procedure TfrmClothInfo.TBCloseClick(Sender: TObject);

A02基础产品管理/U_ClothInfoImport.dfm

@@ -4,7 +4,6 @@ inherited frmClothInfoImport: TfrmClothInfoImport
   Caption = #26679#21697#23548#20837
   ClientHeight = 562
   ClientWidth = 1484
-  Color = clBtnFace
   Font.Charset = ANSI_CHARSET
   Font.Height = -16
   Font.Name = #24494#36719#38597#40657
@@ -23,11 +22,9 @@ inherited frmClothInfoImport: TfrmClothInfoImport
     ButtonHeight = 30
     ButtonWidth = 99
     Caption = 'ToolBar1'
-    Color = clBtnFace
     DisabledImages = DataLink_ClothInfo.cxImageList_bar
     Images = DataLink_ClothInfo.cxImageList_bar
     List = True
-    ParentColor = True
     ShowCaptions = True
     TabOrder = 0
     object TBRafresh: TToolButton
@@ -108,7 +105,6 @@ inherited frmClothInfoImport: TfrmClothInfoImport
         DataBinding.FieldName = 'C_Code'
         DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
-        Styles.Header = DataLink_ClothInfo.Default
         Width = 116
       end
       object Tv1Column19: TcxGridDBColumn
@@ -137,7 +133,6 @@ inherited frmClothInfoImport: TfrmClothInfoImport
         DataBinding.FieldName = 'C_Width'
         DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
-        Styles.Header = DataLink_ClothInfo.Default
         Width = 97
       end
       object v1Column1: TcxGridDBColumn
@@ -292,7 +287,7 @@ inherited frmClothInfoImport: TfrmClothInfoImport
     Left = 249
     Top = 161
   end
-  inherited cxImageList_bar: TImageList
+  inherited ImageList_new32: TImageList
     Left = 528
     Top = 144
   end

A02基础产品管理/U_ClothInfoImport.pas

@@ -15,7 +15,8 @@ uses
   cxTextEdit, cxDropDownEdit, cxPC, U_BaseHelp, cxLookAndFeels,
   cxLookAndFeelPainters,   cxNavigator,
   dxDateRanges, dxBarBuiltInMenu, ComObj, U_BaseList, System.ImageList,
-  Vcl.ImgList,  dxScrollbarAnnotations;
+  Vcl.ImgList,  dxScrollbarAnnotations, dxSkinsCore, dxSkinsDefaultPainters,
+  dxSkinWXI;
 
 type
   TfrmClothInfoImport = class(TfrmBaseHelp)

A02基础产品管理/U_ClothInfoInput.dfm

@@ -95,7 +95,7 @@ object frmClothInfoInput: TfrmClothInfoInput
       Left = 0
       Top = 0
       Width = 749
-      Height = 529
+      Height = 327
       Align = alTop
       TabOrder = 1
       object Label1: TLabel
@@ -142,17 +142,17 @@ object frmClothInfoInput: TfrmClothInfoInput
         Visible = False
       end
       object Label6: TLabel
-        Left = 422
+        Left = 454
         Top = 95
         Width = 32
         Height = 21
         Caption = #35268#26684
       end
       object Label9: TLabel
-        Left = 37
+        Left = 66
-        Top = 299
+        Top = 274
         Width = 32
-        Height = 21
+        Height = 22
         Caption = #22791#27880
       end
       object Label11: TLabel
@@ -172,7 +172,7 @@ object frmClothInfoInput: TfrmClothInfoInput
         Visible = False
       end
       object Label16: TLabel
-        Left = 422
+        Left = 454
         Top = 173
         Width = 32
         Height = 21
@@ -185,13 +185,6 @@ object frmClothInfoInput: TfrmClothInfoInput
         Height = 21
         Caption = #20379#24212#21830#20195#21495
       end
-      object Label19: TLabel
-        Left = 422
-        Top = 249
-        Width = 48
-        Height = 21
-        Caption = #20379#24212#21830
-      end
       object Label21: TLabel
         Left = 301
         Top = 598
@@ -208,19 +201,12 @@ object frmClothInfoInput: TfrmClothInfoInput
         Caption = #26579#33394#26041#24335
       end
       object Label2: TLabel
-        Left = 37
+        Left = 34
-        Top = 211
+        Top = 175
         Width = 64
         Height = 21
         Caption = #26631#20934#25253#20215
       end
-      object Label8: TLabel
-        Left = 37
-        Top = 173
-        Width = 64
-        Height = 21
-        Caption = #37197#36135#31995#25968
-      end
       object Label13: TLabel
         Left = 422
         Top = 135
@@ -236,29 +222,15 @@ object frmClothInfoInput: TfrmClothInfoInput
         Caption = '%'
       end
       object Label20: TLabel
-        Left = 37
+        Left = 69
         Top = 135
         Width = 32
         Height = 21
         Caption = #24211#20301
       end
-      object Label17: TLabel
-        Left = 37
-        Top = 347
-        Width = 32
-        Height = 21
-        Caption = #20027#24067
-      end
-      object Label24: TLabel
-        Left = 34
-        Top = 385
-        Width = 41
-        Height = 21
-        Caption = #27425#24067'1'
-      end
       object Label25: TLabel
-        Left = 37
+        Left = 34
-        Top = 249
+        Top = 213
         Width = 64
         Height = 21
         Caption = #35745#20215#21333#20301
@@ -271,62 +243,6 @@ object frmClothInfoInput: TfrmClothInfoInput
         Caption = #32433#32447#24418#24577
         Visible = False
       end
-      object Label26: TLabel
-        Left = 32
-        Top = 421
-        Width = 41
-        Height = 21
-        Caption = #27425#24067'2'
-      end
-      object Label27: TLabel
-        Left = 34
-        Top = 457
-        Width = 41
-        Height = 21
-        Caption = #27425#24067'3'
-      end
-      object Label28: TLabel
-        Left = 34
-        Top = 492
-        Width = 41
-        Height = 21
-        Caption = #27425#24067'4'
-      end
-      object Label29: TLabel
-        Left = 419
-        Top = 385
-        Width = 73
-        Height = 21
-        Caption = #21152#24037#26041#24335'1'
-      end
-      object Label30: TLabel
-        Left = 419
-        Top = 421
-        Width = 73
-        Height = 21
-        Caption = #21152#24037#26041#24335'2'
-      end
-      object Label31: TLabel
-        Left = 419
-        Top = 457
-        Width = 73
-        Height = 21
-        Caption = #21152#24037#26041#24335'3'
-      end
-      object Label32: TLabel
-        Left = 419
-        Top = 492
-        Width = 73
-        Height = 21
-        Caption = #21152#24037#26041#24335'4'
-      end
-      object Label33: TLabel
-        Left = 419
-        Top = 348
-        Width = 64
-        Height = 21
-        Caption = #21152#24037#26041#24335
-      end
       object C_Code: TcxTextEdit
         Tag = 2
         Left = 119
@@ -396,22 +312,6 @@ object frmClothInfoInput: TfrmClothInfoInput
         OnDblClick = C_GramWeightDblClick
         Width = 234
       end
-      object C_FromName: TcxButtonEdit
-        Tag = 7
-        Left = 119
-        Top = 344
-        Properties.Buttons = <
-          item
-            Default = True
-            Kind = bkEllipsis
-          end>
-        Properties.ReadOnly = False
-        Properties.OnButtonClick = C_FromNamePropertiesButtonClick
-        Style.ButtonStyle = btsDefault
-        TabOrder = 5
-        OnDblClick = C_GramWeightDblClick
-        Width = 234
-      end
       object C_Width: TcxButtonEdit
         Tag = 2
         Left = 510
@@ -425,7 +325,7 @@ object frmClothInfoInput: TfrmClothInfoInput
         Properties.ReadOnly = False
         Properties.OnButtonClick = C_WidthPropertiesButtonClick
         Style.ButtonStyle = btsDefault
-        TabOrder = 6
+        TabOrder = 5
         OnDblClick = C_GramWeightDblClick
         Width = 234
       end
@@ -442,23 +342,23 @@ object frmClothInfoInput: TfrmClothInfoInput
         Properties.ReadOnly = False
         Properties.OnButtonClick = C_WidthPropertiesButtonClick
         Style.ButtonStyle = btsDefault
-        TabOrder = 7
+        TabOrder = 6
         OnDblClick = C_GramWeightDblClick
         Width = 234
       end
       object CINote: TcxMemo
         Tag = 2
-        Left = 119
+        Left = 116
-        Top = 281
+        Top = 256
-        TabOrder = 8
+        TabOrder = 7
-        Height = 57
+        Height = 58
         Width = 622
       end
       object GC_Name: TcxTextEdit
         Tag = 2
         Left = 438
         Top = 598
-        TabOrder = 9
+        TabOrder = 8
         Visible = False
         OnKeyPress = CYColorKeyPress
         Width = 234
@@ -476,7 +376,7 @@ object frmClothInfoInput: TfrmClothInfoInput
         Properties.ReadOnly = False
         Properties.OnButtonClick = C_WidthPropertiesButtonClick
         Style.ButtonStyle = btsDefault
-        TabOrder = 10
+        TabOrder = 9
         Visible = False
         OnDblClick = C_GramWeightDblClick
         Width = 234
@@ -485,7 +385,7 @@ object frmClothInfoInput: TfrmClothInfoInput
         Tag = 2
         Left = 510
         Top = 169
-        TabOrder = 11
+        TabOrder = 10
         OnKeyPress = CYColorKeyPress
         Width = 234
       end
@@ -493,24 +393,16 @@ object frmClothInfoInput: TfrmClothInfoInput
         Tag = 2
         Left = 73
         Top = 618
-        TabOrder = 12
+        TabOrder = 11
         Visible = False
         OnKeyPress = CYColorKeyPress
         Width = 234
       end
-      object FtyName: TcxTextEdit
-        Tag = 2
-        Left = 510
-        Top = 245
-        TabOrder = 13
-        OnKeyPress = CYColorKeyPress
-        Width = 234
-      end
       object C_EName: TcxTextEdit
         Tag = 2
         Left = 483
         Top = 598
-        TabOrder = 14
+        TabOrder = 12
         Visible = False
         OnKeyPress = CYColorKeyPress
         Width = 234
@@ -519,26 +411,19 @@ object frmClothInfoInput: TfrmClothInfoInput
         Tag = 2
         Left = 510
         Top = 207
-        TabOrder = 15
+        TabOrder = 13
         OnKeyPress = CYColorKeyPress
         Width = 234
       end
       object CostPrice: TcxCurrencyEdit
         Tag = 2
         Left = 119
-        Top = 207
+        Top = 170
         EditValue = 0.000000000000000000
         Properties.AssignedValues.DisplayFormat = True
         Properties.OnEditValueChanged = CostPricePropertiesEditValueChanged
-        TabOrder = 16
+        TabOrder = 14
-        Width = 234
+        OnClick = CostPriceClick
-      end
-      object distributionCoefficient: TcxCurrencyEdit
-        Tag = 2
-        Left = 119
-        Top = 169
-        Properties.AssignedValues.DisplayFormat = True
-        TabOrder = 17
         Width = 234
       end
       object quota: TcxCurrencyEdit
@@ -547,23 +432,7 @@ object frmClothInfoInput: TfrmClothInfoInput
         Top = 131
         EditValue = 10.000000000000000000
         Properties.AssignedValues.DisplayFormat = True
-        TabOrder = 18
+        TabOrder = 15
-        Width = 234
-      end
-      object C_FromName2: TcxButtonEdit
-        Tag = 7
-        Left = 119
-        Top = 382
-        Properties.Buttons = <
-          item
-            Default = True
-            Kind = bkEllipsis
-          end>
-        Properties.ReadOnly = False
-        Properties.OnButtonClick = C_FromName2PropertiesButtonClick
-        Style.ButtonStyle = btsDefault
-        TabOrder = 19
-        OnDblClick = C_GramWeightDblClick
         Width = 234
       end
       object StkPosition: TcxMRUEdit
@@ -573,177 +442,47 @@ object frmClothInfoInput: TfrmClothInfoInput
         Properties.ImmediatePost = True
         Properties.ReadOnly = False
         Properties.OnButtonClick = StkPositionPropertiesButtonClick
-        TabOrder = 20
+        TabOrder = 16
         Width = 234
       end
       object qtyunit: TcxMRUEdit
         Left = 119
-        Top = 245
+        Top = 209
         Hint = 'qtyunit/'#25968#37327#21333#20301
         Properties.ImmediatePost = True
         Properties.ReadOnly = False
         Properties.OnButtonClick = StkPositionPropertiesButtonClick
-        TabOrder = 21
+        TabOrder = 17
         Width = 234
       end
       object C_YarnSpec: TcxTextEdit
         Tag = 2
         Left = 356
         Top = 654
-        TabOrder = 22
+        TabOrder = 18
         Visible = False
         OnKeyPress = CYColorKeyPress
         Width = 234
       end
-      object C_FromName3: TcxButtonEdit
-        Tag = 7
-        Left = 119
-        Top = 417
-        Properties.Buttons = <
-          item
-            Default = True
-            Kind = bkEllipsis
-          end>
-        Properties.ReadOnly = False
-        Properties.OnButtonClick = C_FromName3PropertiesButtonClick
-        Style.ButtonStyle = btsDefault
-        TabOrder = 23
-        OnDblClick = C_GramWeightDblClick
-        Width = 234
-      end
-      object C_FromName4: TcxButtonEdit
-        Tag = 7
-        Left = 119
-        Top = 452
-        Properties.Buttons = <
-          item
-            Default = True
-            Kind = bkEllipsis
-          end>
-        Properties.ReadOnly = False
-        Properties.OnButtonClick = C_FromName4PropertiesButtonClick
-        Style.ButtonStyle = btsDefault
-        TabOrder = 24
-        OnDblClick = C_GramWeightDblClick
-        Width = 234
-      end
-      object C_FromName5: TcxButtonEdit
-        Tag = 7
-        Left = 119
-        Top = 488
-        Properties.Buttons = <
-          item
-            Default = True
-            Kind = bkEllipsis
-          end>
-        Properties.ReadOnly = False
-        Properties.OnButtonClick = C_FromName5PropertiesButtonClick
-        Style.ButtonStyle = btsDefault
-        TabOrder = 25
-        OnDblClick = C_GramWeightDblClick
-        Width = 234
-      end
-      object Process2: TcxButtonEdit
-        Tag = 7
-        Left = 498
-        Top = 383
-        Hint = 'Process2/'#21152#24037#26041#24335'1'
-        Properties.Buttons = <
-          item
-            Default = True
-            Kind = bkEllipsis
-          end>
-        Properties.ReadOnly = False
-        Properties.OnButtonClick = Process2PropertiesButtonClick
-        Style.ButtonStyle = btsDefault
-        TabOrder = 26
-        OnDblClick = C_GramWeightDblClick
-        Width = 234
-      end
-      object Process3: TcxButtonEdit
-        Tag = 7
-        Left = 498
-        Top = 418
-        Hint = 'Process3/'#21152#24037#26041#24335'2'
-        Properties.Buttons = <
-          item
-            Default = True
-            Kind = bkEllipsis
-          end>
-        Properties.ReadOnly = False
-        Properties.OnButtonClick = Process3PropertiesButtonClick
-        Style.ButtonStyle = btsDefault
-        TabOrder = 27
-        OnDblClick = C_GramWeightDblClick
-        Width = 234
-      end
-      object Process4: TcxButtonEdit
-        Tag = 7
-        Left = 498
-        Top = 453
-        Hint = 'Process4/'#21152#24037#26041#24335'3'
-        Properties.Buttons = <
-          item
-            Default = True
-            Kind = bkEllipsis
-          end>
-        Properties.ReadOnly = False
-        Properties.OnButtonClick = Process4PropertiesButtonClick
-        Style.ButtonStyle = btsDefault
-        TabOrder = 28
-        OnDblClick = C_GramWeightDblClick
-        Width = 234
-      end
-      object Process5: TcxButtonEdit
-        Tag = 7
-        Left = 498
-        Top = 488
-        Hint = 'Process5/'#21152#24037#26041#24335'4'
-        Properties.Buttons = <
-          item
-            Default = True
-            Kind = bkEllipsis
-          end>
-        Properties.ReadOnly = False
-        Properties.OnButtonClick = Process5PropertiesButtonClick
-        Style.ButtonStyle = btsDefault
-        TabOrder = 29
-        OnDblClick = C_GramWeightDblClick
-        Width = 234
-      end
-      object Process: TcxButtonEdit
-        Tag = 7
-        Left = 498
-        Top = 344
-        Hint = 'Process/'#21152#24037#26041#24335
-        Properties.Buttons = <
-          item
-            Default = True
-            Kind = bkEllipsis
-          end>
-        Properties.ReadOnly = False
-        Properties.OnButtonClick = ProcessPropertiesButtonClick
-        Style.ButtonStyle = btsDefault
-        TabOrder = 30
-        OnDblClick = C_GramWeightDblClick
-        Width = 234
-      end
     end
     object Panel3: TPanel
       Left = 0
-      Top = 529
+      Top = 327
       Width = 749
-      Height = 239
+      Height = 441
       Align = alClient
       TabOrder = 2
+      ExplicitTop = 345
+      ExplicitHeight = 423
       object Panel4: TPanel
         Left = 1
-        Top = 1
+        Top = 185
         Width = 395
-        Height = 237
+        Height = 255
         Align = alLeft
         Caption = 'Panel4'
         TabOrder = 0
+        ExplicitHeight = 237
         object ToolBar3: TToolBar
           Left = 1
           Top = 1
@@ -779,9 +518,10 @@ object frmClothInfoInput: TfrmClothInfoInput
           Left = 1
           Top = 31
           Width = 393
-          Height = 205
+          Height = 223
           Align = alClient
           TabOrder = 1
+          ExplicitHeight = 205
           object TV2: TcxGridDBTableView
             Navigator.Buttons.CustomButtons = <>
             ScrollbarAnnotations.CustomAnnotations = <>
@@ -831,12 +571,13 @@ object frmClothInfoInput: TfrmClothInfoInput
       end
       object Panel5: TPanel
         Left = 396
-        Top = 1
+        Top = 185
         Width = 352
-        Height = 237
+        Height = 255
         Align = alClient
         Caption = 'Panel5'
         TabOrder = 1
+        ExplicitHeight = 237
         object ToolBar4: TToolBar
           Left = 1
           Top = 1
@@ -872,9 +613,10 @@ object frmClothInfoInput: TfrmClothInfoInput
           Left = 1
           Top = 31
           Width = 350
-          Height = 205
+          Height = 223
           Align = alClient
           TabOrder = 1
+          ExplicitHeight = 205
           object TV3: TcxGridDBTableView
             Navigator.Buttons.CustomButtons = <>
             ScrollbarAnnotations.CustomAnnotations = <>
@@ -922,6 +664,251 @@ object frmClothInfoInput: TfrmClothInfoInput
           end
         end
       end
+      object Panel6: TPanel
+        Left = 1
+        Top = 1
+        Width = 747
+        Height = 184
+        Align = alTop
+        TabOrder = 2
+        ExplicitLeft = -2
+        ExplicitTop = -1
+        object lbl1: TLabel
+          Left = 61
+          Top = 3
+          Width = 32
+          Height = 21
+          Caption = #20027#24067
+        end
+        object lbl2: TLabel
+          Left = 52
+          Top = 41
+          Width = 41
+          Height = 21
+          Caption = #27425#24067'1'
+        end
+        object lbl3: TLabel
+          Left = 52
+          Top = 79
+          Width = 41
+          Height = 21
+          Caption = #27425#24067'2'
+        end
+        object lbl4: TLabel
+          Left = 52
+          Top = 118
+          Width = 41
+          Height = 21
+          Caption = #27425#24067'3'
+        end
+        object lbl5: TLabel
+          Left = 52
+          Top = 156
+          Width = 41
+          Height = 21
+          Caption = #27425#24067'4'
+        end
+        object lbl6: TLabel
+          Left = 419
+          Top = 41
+          Width = 73
+          Height = 21
+          Caption = #21152#24037#26041#24335'1'
+        end
+        object lbl7: TLabel
+          Left = 419
+          Top = 79
+          Width = 73
+          Height = 21
+          Caption = #21152#24037#26041#24335'2'
+        end
+        object lbl8: TLabel
+          Left = 419
+          Top = 118
+          Width = 73
+          Height = 21
+          Caption = #21152#24037#26041#24335'3'
+        end
+        object lbl9: TLabel
+          Left = 419
+          Top = 156
+          Width = 73
+          Height = 21
+          Caption = #21152#24037#26041#24335'4'
+        end
+        object lbl10: TLabel
+          Left = 428
+          Top = 3
+          Width = 64
+          Height = 21
+          Caption = #21152#24037#26041#24335
+        end
+        object C_FromName: TcxButtonEdit
+          Tag = 7
+          Left = 115
+          Top = -2
+          Properties.Buttons = <
+            item
+              Default = True
+              Kind = bkEllipsis
+            end>
+          Properties.ReadOnly = False
+          Properties.OnButtonClick = C_FromNamePropertiesButtonClick
+          Style.ButtonStyle = btsDefault
+          TabOrder = 0
+          OnDblClick = C_GramWeightDblClick
+          Width = 234
+        end
+        object C_FromName2: TcxButtonEdit
+          Tag = 7
+          Left = 115
+          Top = 36
+          Properties.Buttons = <
+            item
+              Default = True
+              Kind = bkEllipsis
+            end>
+          Properties.ReadOnly = False
+          Properties.OnButtonClick = C_FromName2PropertiesButtonClick
+          Style.ButtonStyle = btsDefault
+          TabOrder = 1
+          OnDblClick = C_GramWeightDblClick
+          Width = 234
+        end
+        object C_FromName3: TcxButtonEdit
+          Tag = 7
+          Left = 115
+          Top = 74
+          Properties.Buttons = <
+            item
+              Default = True
+              Kind = bkEllipsis
+            end>
+          Properties.ReadOnly = False
+          Properties.OnButtonClick = C_FromName3PropertiesButtonClick
+          Style.ButtonStyle = btsDefault
+          TabOrder = 2
+          OnDblClick = C_GramWeightDblClick
+          Width = 234
+        end
+        object C_FromName4: TcxButtonEdit
+          Tag = 7
+          Left = 115
+          Top = 113
+          Properties.Buttons = <
+            item
+              Default = True
+              Kind = bkEllipsis
+            end>
+          Properties.ReadOnly = False
+          Properties.OnButtonClick = C_FromName4PropertiesButtonClick
+          Style.ButtonStyle = btsDefault
+          TabOrder = 3
+          OnDblClick = C_GramWeightDblClick
+          Width = 234
+        end
+        object C_FromName5: TcxButtonEdit
+          Tag = 7
+          Left = 115
+          Top = 151
+          Properties.Buttons = <
+            item
+              Default = True
+              Kind = bkEllipsis
+            end>
+          Properties.ReadOnly = False
+          Properties.OnButtonClick = C_FromName5PropertiesButtonClick
+          Style.ButtonStyle = btsDefault
+          TabOrder = 4
+          OnDblClick = C_GramWeightDblClick
+          Width = 234
+        end
+        object Process2: TcxButtonEdit
+          Tag = 7
+          Left = 509
+          Top = 36
+          Hint = 'Process2/'#21152#24037#26041#24335'1'
+          Properties.Buttons = <
+            item
+              Default = True
+              Kind = bkEllipsis
+            end>
+          Properties.ReadOnly = False
+          Properties.OnButtonClick = Process2PropertiesButtonClick
+          Style.ButtonStyle = btsDefault
+          TabOrder = 5
+          OnDblClick = C_GramWeightDblClick
+          Width = 234
+        end
+        object Process3: TcxButtonEdit
+          Tag = 7
+          Left = 509
+          Top = 74
+          Hint = 'Process3/'#21152#24037#26041#24335'2'
+          Properties.Buttons = <
+            item
+              Default = True
+              Kind = bkEllipsis
+            end>
+          Properties.ReadOnly = False
+          Properties.OnButtonClick = Process3PropertiesButtonClick
+          Style.ButtonStyle = btsDefault
+          TabOrder = 6
+          OnDblClick = C_GramWeightDblClick
+          Width = 234
+        end
+        object Process4: TcxButtonEdit
+          Tag = 7
+          Left = 509
+          Top = 112
+          Hint = 'Process4/'#21152#24037#26041#24335'3'
+          Properties.Buttons = <
+            item
+              Default = True
+              Kind = bkEllipsis
+            end>
+          Properties.ReadOnly = False
+          Properties.OnButtonClick = Process4PropertiesButtonClick
+          Style.ButtonStyle = btsDefault
+          TabOrder = 7
+          OnDblClick = C_GramWeightDblClick
+          Width = 234
+        end
+        object Process5: TcxButtonEdit
+          Tag = 7
+          Left = 509
+          Top = 151
+          Hint = 'Process5/'#21152#24037#26041#24335'4'
+          Properties.Buttons = <
+            item
+              Default = True
+              Kind = bkEllipsis
+            end>
+          Properties.ReadOnly = False
+          Properties.OnButtonClick = Process5PropertiesButtonClick
+          Style.ButtonStyle = btsDefault
+          TabOrder = 8
+          OnDblClick = C_GramWeightDblClick
+          Width = 234
+        end
+        object Process: TcxButtonEdit
+          Tag = 7
+          Left = 510
+          Top = -2
+          Hint = 'Process/'#21152#24037#26041#24335
+          Properties.Buttons = <
+            item
+              Default = True
+              Kind = bkEllipsis
+            end>
+          Properties.ReadOnly = False
+          Properties.OnButtonClick = ProcessPropertiesButtonClick
+          Style.ButtonStyle = btsDefault
+          TabOrder = 9
+          OnDblClick = C_GramWeightDblClick
+          Width = 234
+        end
+      end
     end
   end
   object Panel1: TPanel

A02基础产品管理/U_ClothInfoInput.pas

@@ -12,7 +12,7 @@ uses
   cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxDateRanges,
   dxBarBuiltInMenu, cxCheckBox, cxDropDownEdit, cxContainer, cxMaskEdit,
   dxScrollbarAnnotations, cxMemo, dxSkinsCore, dxSkinsDefaultPainters, cxMRUEdit,
-  ComObj;
+  ComObj, dxSkinWXI;
 
 type
   TfrmClothInfoInput = class(TForm)
@@ -55,23 +55,18 @@ type
     Label10: TLabel;
     Label16: TLabel;
     Label18: TLabel;
-    Label19: TLabel;
     Label21: TLabel;
     Label23: TLabel;
     Label2: TLabel;
-    Label8: TLabel;
     Label13: TLabel;
     Label14: TLabel;
     Label20: TLabel;
-    Label17: TLabel;
-    Label24: TLabel;
     Label25: TLabel;
     C_Code: TcxTextEdit;
     C_Name: TcxTextEdit;
     C_GramWeight: TcxButtonEdit;
     C_Composition: TcxButtonEdit;
     C_Spec: TcxButtonEdit;
-    C_FromName: TcxButtonEdit;
     C_Width: TcxButtonEdit;
     C_Pattern: TcxButtonEdit;
     CINote: TcxMemo;
@@ -79,13 +74,10 @@ type
     C_EComposition: TcxButtonEdit;
     CraftCode: TcxTextEdit;
     FtyNo: TcxTextEdit;
-    FtyName: TcxTextEdit;
     C_EName: TcxTextEdit;
     DyeingMethod: TcxTextEdit;
     CostPrice: TcxCurrencyEdit;
-    distributionCoefficient: TcxCurrencyEdit;
     quota: TcxCurrencyEdit;
-    C_FromName2: TcxButtonEdit;
     StkPosition: TcxMRUEdit;
     qtyunit: TcxMRUEdit;
     Label12: TLabel;
@@ -125,21 +117,26 @@ type
     OpenDialog1: TOpenDialog;
     CDS_LM: TClientDataSet;
     ToolButton12: TToolButton;
-    Label26: TLabel;
+    Panel6: TPanel;
+    lbl1: TLabel;
+    lbl2: TLabel;
+    lbl3: TLabel;
+    lbl4: TLabel;
+    lbl5: TLabel;
+    lbl6: TLabel;
+    lbl7: TLabel;
+    lbl8: TLabel;
+    lbl9: TLabel;
+    lbl10: TLabel;
+    C_FromName: TcxButtonEdit;
+    C_FromName2: TcxButtonEdit;
     C_FromName3: TcxButtonEdit;
-    Label27: TLabel;
     C_FromName4: TcxButtonEdit;
-    Label28: TLabel;
     C_FromName5: TcxButtonEdit;
-    Label29: TLabel;
     Process2: TcxButtonEdit;
-    Label30: TLabel;
     Process3: TcxButtonEdit;
-    Label31: TLabel;
     Process4: TcxButtonEdit;
-    Label32: TLabel;
     Process5: TcxButtonEdit;
-    Label33: TLabel;
     Process: TcxButtonEdit;
     procedure FormShow(Sender: TObject);
     procedure TBCloseClick(Sender: TObject);
@@ -175,6 +172,8 @@ type
     procedure Process5PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
     procedure C_FromName4PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
     procedure C_FromName5PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
+    procedure CostPriceClick(Sender: TObject);
+
   private
     canshu1: string;
     Fint: Integer;
@@ -530,7 +529,17 @@ begin
     Open;
   end;
 
+//  SCSHData(ADOQueryTemp, panel2, 2);
+//  SCSHData(ADOQueryTemp, panel6, 2);
+  if FCTID = 'CT2412300005' then
+      begin
         SCSHData(ADOQueryTemp, panel2, 2);
+        SCSHData(ADOQueryTemp, panel6, 2);
+      end
+      else
+      begin
+       SCSHData(ADOQueryTemp, panel2, 2);
+      end;
   StkPosition.Text := ADOQueryTemp.FieldByName('StkPosition').AsString;
   qtyunit.Text := ADOQueryTemp.FieldByName('qtyunit').AsString;
 //  SCSHData(ADOQueryTemp, ScrollBox1, 0);
@@ -746,6 +755,7 @@ begin
     C_Name.Enabled := True;
     C_FromName.Enabled := False;
     C_FromName2.Enabled := False;
+    Panel6.Visible:=False;
   end;
   with ADOQueryTemp do
   begin
@@ -880,7 +890,16 @@ begin
 
       if trim(C_Code.Text) = '' then
         C_Code.Text := Trim(MaxBCIID);
+
+      if FCTID = 'CT2412300005' then
+      begin
         RTSetsavedata(ADOQueryCmd, 'BS_Cloth_Info', panel2, 2);
+        RTSetsavedata(ADOQueryCmd, 'BS_Cloth_Info', panel6, 2) ;
+      end
+      else
+      begin
+        RTSetsavedata(ADOQueryCmd, 'BS_Cloth_Info', panel2, 2);
+      end;
       Post;
     end;
     with ADOQueryTemp do
@@ -1283,7 +1302,7 @@ begin
   begin
     if GetLSNo(ADOQueryCmd, MC_Code, 'C', 'BS_Cloth_Info', 4, 0) = False then
     begin
-      Application.MessageBox('取最成品编号失败!', '提示', 0);
+      Application.MessageBox('取最大成品编号失败!', '提示', 0);
       Exit;
     end;
     C_Code.Text := MC_Code;
@@ -1445,6 +1464,13 @@ begin
 //  Panel6.Visible := False;
 end;
 
+
+
+procedure TfrmClothInfoInput.CostPriceClick(Sender: TObject);
+begin
+    CostPrice.text:='';
+end;
+
 procedure TfrmClothInfoInput.CostPricePropertiesEditValueChanged(Sender: TObject);
 var
   mvalue, FFieldName: string;

T02贸易汇总仓库/U_TradeClothTotalInList.dfm

@@ -8,8 +8,8 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList
   Font.Height = -16
   FormStyle = fsMDIChild
   Visible = True
-  ExplicitWidth = 1303
+  ExplicitWidth = 1311
-  ExplicitHeight = 637
+  ExplicitHeight = 645
   PixelsPerInch = 96
   TextHeight = 21
   object ToolBar1: TToolBar [0]
@@ -28,7 +28,6 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList
     ParentColor = False
     ShowCaptions = True
     TabOrder = 2
-    ExplicitWidth = 1041
     object TBRafresh: TToolButton
       Left = 0
       Top = 0
@@ -131,7 +130,6 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList
     ParentBackground = False
     ParentColor = True
     TabOrder = 3
-    ExplicitWidth = 1041
     object Label3: TLabel
       Left = 254
       Top = 47
@@ -268,7 +266,7 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList
       TabOrder = 6
       ExplicitLeft = 2
       ExplicitTop = 2
-      ExplicitWidth = 1037
+      ExplicitWidth = 1291
       ExplicitHeight = 37
       inherited lbl2: TLabel
         Width = 16
@@ -351,14 +349,12 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList
     Properties.CustomButtons.Buttons = <>
     Properties.Style = 5
     OnChange = cxPageControl1Change
-    ExplicitWidth = 1041
     ClientRectBottom = 457
     ClientRectRight = 1295
     ClientRectTop = 32
     object cxTabSheet1: TcxTabSheet
       Caption = '  '#20135#21697#27719#24635'  '
       ImageIndex = 0
-      ExplicitWidth = 1041
       object cxGrid2: TcxGrid
         Left = 0
         Top = 0
@@ -367,7 +363,6 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList
         Align = alClient
         PopupMenu = PopupMenu1
         TabOrder = 0
-        ExplicitWidth = 1041
         object TV2: TcxGridDBTableView
           OnDblClick = TV2DblClick
           Navigator.Buttons.CustomButtons = <>
@@ -520,7 +515,6 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList
     object cxTabSheet2: TcxTabSheet
       Caption = #20135#21697#26126#32454
       ImageIndex = 1
-      ExplicitWidth = 1041
       object cxGrid1: TcxGrid
         Left = 0
         Top = 0
@@ -529,7 +523,6 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList
         Align = alClient
         PopupMenu = PopupMenu1
         TabOrder = 0
-        ExplicitWidth = 1041
         object Tv1: TcxGridDBTableView
           Navigator.Buttons.CustomButtons = <>
           ScrollbarAnnotations.CustomAnnotations = <>

T05贸易门市管理/U_GetDllForm.pas

@@ -138,30 +138,30 @@ begin
         end;
       end;
 
-    112:  //¼ôÑùµ¥
+//    112:  //¼ôÑùµ¥
-      begin
+//      begin
-        with TfrmTradeMarketList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do       //
+//        with TfrmTradeMarketList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do       //
-        begin
+//        begin
-          fFormID := FormID;
+//          fFormID := FormID;
-          FOrdType := '¼ôÑùµ¥';
+//          FOrdType := '¼ôÑùµ¥';
-          FormStyle := mstyle;
+//          FormStyle := mstyle;
-          WindowState := mstate;
+//          WindowState := mstate;
-          BorderStyle := mborderstyle;
+//          BorderStyle := mborderstyle;
-          mnewHandle := Handle;
+//          mnewHandle := Handle;
-        end;
+//        end;
-      end;
+//      end;
-
+//
-    121:  //Åä»õµ¥
+//    121:  //Åä»õµ¥
-      begin
+//      begin
-        with TfrmTradeDispatchedList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do       //
+//        with TfrmTradeDispatchedList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do       //
-        begin
+//        begin
-          fFormID := FormID;
+//          fFormID := FormID;
-          FormStyle := mstyle;
+//          FormStyle := mstyle;
-          WindowState := mstate;
+//          WindowState := mstate;
-          BorderStyle := mborderstyle;
+//          BorderStyle := mborderstyle;
-          mnewHandle := Handle;
+//          mnewHandle := Handle;
-        end;
+//        end;
-      end;
+//      end;
 
     10000:
       begin

T05贸易门市管理/U_TradeMarketInPut.dfm

@@ -3,12 +3,12 @@ inherited frmTradeMarketInPut: TfrmTradeMarketInPut
   Top = 4
   Caption = #35746#21333#24405#20837
   ClientHeight = 652
-  ClientWidth = 1360
+  ClientWidth = 1787
   Font.Charset = GB2312_CHARSET
   Font.Height = -16
   Position = poMainFormCenter
   WindowState = wsMaximized
-  ExplicitWidth = 1376
+  ExplicitWidth = 1803
   ExplicitHeight = 691
   PixelsPerInch = 96
   TextHeight = 21
@@ -16,7 +16,7 @@ inherited frmTradeMarketInPut: TfrmTradeMarketInPut
     Tag = 1
     Left = 0
     Top = 0
-    Width = 1360
+    Width = 1787
     Height = 30
     AutoSize = True
     ButtonHeight = 30
@@ -28,6 +28,7 @@ inherited frmTradeMarketInPut: TfrmTradeMarketInPut
     List = True
     ShowCaptions = True
     TabOrder = 0
+    ExplicitWidth = 1360
     object TBSave: TToolButton
       Left = 0
       Top = 0
@@ -57,7 +58,7 @@ inherited frmTradeMarketInPut: TfrmTradeMarketInPut
     Tag = 1
     Left = 0
     Top = 185
-    Width = 1360
+    Width = 1787
     Height = 24
     ButtonHeight = 30
     ButtonWidth = 67
@@ -68,7 +69,7 @@ inherited frmTradeMarketInPut: TfrmTradeMarketInPut
     List = True
     ShowCaptions = True
     TabOrder = 1
-    ExplicitTop = 225
+    ExplicitWidth = 1360
     object ToolButton1: TToolButton
       Left = 0
       Top = 0
@@ -89,30 +90,29 @@ inherited frmTradeMarketInPut: TfrmTradeMarketInPut
   object Panel2: TPanel [2]
     Left = 0
     Top = 209
-    Width = 1360
+    Width = 1787
     Height = 443
     Align = alClient
     Caption = 'Panel2'
     TabOrder = 2
-    ExplicitTop = 249
+    ExplicitWidth = 1360
-    ExplicitHeight = 403
     object Panel3: TPanel
       Left = 1
       Top = 1
-      Width = 1072
+      Width = 1499
       Height = 441
       Align = alClient
       Caption = 'Panel2'
       TabOrder = 0
-      ExplicitHeight = 401
+      ExplicitWidth = 1072
       object cxGrid1: TcxGrid
         Left = 1
         Top = 1
-        Width = 1070
+        Width = 1497
         Height = 439
         Align = alClient
         TabOrder = 0
-        ExplicitHeight = 399
+        ExplicitWidth = 1070
         object Tv1: TcxGridDBTableView
           OnMouseDown = Tv1MouseDown
           Navigator.Buttons.CustomButtons = <>
@@ -339,14 +339,14 @@ inherited frmTradeMarketInPut: TfrmTradeMarketInPut
       end
     end
     object Panel4: TPanel
-      Left = 1073
+      Left = 1500
       Top = 1
       Width = 286
       Height = 441
       Align = alRight
       Caption = 'Panel4'
       TabOrder = 1
-      ExplicitHeight = 401
+      ExplicitLeft = 1073
       object Panel5: TPanel
         Left = 1
         Top = 1
@@ -384,7 +384,6 @@ inherited frmTradeMarketInPut: TfrmTradeMarketInPut
         Align = alClient
         Caption = #21452#20987#21024#38500#26126#32454#20449#24687
         TabOrder = 1
-        ExplicitHeight = 358
         object cxGrid2: TcxGrid
           Left = 2
           Top = 23
@@ -392,7 +391,6 @@ inherited frmTradeMarketInPut: TfrmTradeMarketInPut
           Height = 373
           Align = alClient
           TabOrder = 0
-          ExplicitHeight = 333
           object TvMX: TcxGridDBTableView
             Navigator.Buttons.CustomButtons = <>
             Navigator.Buttons.Delete.Enabled = False
@@ -455,7 +453,7 @@ inherited frmTradeMarketInPut: TfrmTradeMarketInPut
   object ScrollBox1: TScrollBox [3]
     Left = 0
     Top = 30
-    Width = 1360
+    Width = 1787
     Height = 155
     Align = alTop
     BevelInner = bvNone
@@ -465,6 +463,8 @@ inherited frmTradeMarketInPut: TfrmTradeMarketInPut
     ParentCtl3D = False
     TabOrder = 3
     OnClick = ScrollBox1Click
+    ExplicitLeft = -1
+    ExplicitTop = 24
     object Label3: TLabel
       Left = 730
       Top = 70
@@ -518,12 +518,11 @@ inherited frmTradeMarketInPut: TfrmTradeMarketInPut
       Visible = False
     end
     object Label37: TLabel
-      Left = 29
+      Left = 1077
-      Top = 247
+      Top = 21
-      Width = 80
+      Width = 64
       Height = 21
-      Caption = #35746#21333#31867#22411#65306
+      Caption = #35746#21333#31867#22411
-      Visible = False
     end
     object Label18: TLabel
       Left = 730
@@ -586,8 +585,8 @@ inherited frmTradeMarketInPut: TfrmTradeMarketInPut
     end
     object OrdType: TComboBox
       Tag = 2
-      Left = 122
+      Left = 1164
-      Top = 243
+      Top = 17
       Width = 200
       Height = 29
       Style = csDropDownList
@@ -597,9 +596,9 @@ inherited frmTradeMarketInPut: TfrmTradeMarketInPut
       ParentCtl3D = False
       TabOrder = 4
       Text = #27491#24120#21333
-      Visible = False
       Items.Strings = (
-        #27491#24120#21333)
+        #27491#24120#21333
+        #21098#26679#21333)
     end
     object OurCoName: TcxButtonEdit
       Tag = 2

T05贸易门市管理/U_TradeMarketInPut.pas

@@ -145,6 +145,7 @@ type
     procedure InitImage2();
     procedure LookImage(FileName: string);
     procedure InitMXGrid(MTMSId: string);
+    procedure AddLine();
     { Private declarations }
   public
     PState, CopyInt, PriceFlag: Integer;
@@ -169,6 +170,33 @@ uses
 
 {$R *.dfm}
 
+procedure TfrmTradeMarketInPut.AddLine();
+var
+  i: Integer;
+  maxno: string;
+begin
+
+  i := cds_1.RecordCount;
+  i := i + 1;
+  CopyAddRow(Tv1, cds_1);
+
+  if GetLSNo(ADOTemp, maxno, 'JS', 'Trade_Market_Sub', 4, 1) = False then
+  begin
+    ADOCmd.Connection.RollbackTrans;
+    Application.MessageBox('È¡×ÓÁ÷Ë®ºÅʧ°Ü£¡', 'Ìáʾ', 0);
+    Exit;
+  end;
+  with cds_1 do
+  begin
+    Edit;
+    FieldByName('SerialNo').Value := IntToStr(i);
+    FieldByName('TMSId').Value := Trim(maxno);
+    FieldByName('TMSPiece').Value := 0;
+    FieldByName('TMSQty').Value := 0;
+    Post;
+  end;
+end;
+
 procedure TfrmTradeMarketInPut.InitImage1();
 begin
 
@@ -348,11 +376,15 @@ begin
   TMMNo.Text := '';
   fFlileFlag := UserDataFlag + 'HX';
   InitData();
-  ordtype.Items.Clear;
+
-  ordtype.Items.Add(fordtype);
+  if CDS_1.IsEmpty then
-  ordtype.ItemIndex := 0;
+  begin
-  InitImage1();
+    AddLine();
-  InitImage2();
+    AddLine();
+    AddLine();
+    AddLine();
+    AddLine();
+  end;
 
   with ADO_PM do
   begin
@@ -525,6 +557,13 @@ var
 begin
 
   ToolBar1.SetFocus;
+  with cds_1 do
+  begin
+    while cds_1.Locate('C_Code', null, []) do
+    begin
+      cds_1.Delete
+    end;
+  end;
 
   if trim(CustName.Text) = '' then
   begin
@@ -573,31 +612,9 @@ begin
 end;
 
 procedure TfrmTradeMarketInPut.ToolButton1Click(Sender: TObject);
-var
-  i: Integer;
-  maxno: string;
 begin
 
-  i := cds_1.RecordCount;
+  AddLine();
-  i := i + 1;
-  CopyAddRow(Tv1, cds_1);
-
-  if GetLSNo(ADOTemp, maxno, 'JS', 'Trade_Market_Sub', 4, 1) = False then
-  begin
-    ADOCmd.Connection.RollbackTrans;
-    Application.MessageBox('È¡×ÓÁ÷Ë®ºÅʧ°Ü£¡', 'Ìáʾ', 0);
-    Exit;
-  end;
-  with cds_1 do
-  begin
-    Edit;
-    FieldByName('SerialNo').Value := IntToStr(i);
-    FieldByName('TMSId').Value := Trim(maxno);
-    FieldByName('TMSPiece').Value := 0;
-    FieldByName('TMSQty').Value := 0;
-//    FieldByName('TMSUnit').Value := 'M';
-    Post;
-  end;
 end;
 
 procedure TfrmTradeMarketInPut.ToolButton2Click(Sender: TObject);