3-4

2026-03-04 17:58:53 +08:00 · 2026-03-04 17:58:53 +08:00 · cc2ffd2e83
commit cc2ffd2e83
parent 860e4df725
4 changed files with 81 additions and 48 deletions
--- a/项目代码/wenshangkm/G01贸易生产计划/U_TradePlanMgeList.dfm
+++ b/项目代码/wenshangkm/G01贸易生产计划/U_TradePlanMgeList.dfm
@ -7,6 +7,7 @@ inherited frmTradePlanMgeList: TfrmTradePlanMgeList
  Font.Height = -16
  FormStyle = fsMDIChild
  Visible = True
+  ExplicitLeft = -439
  ExplicitWidth = 1306
  ExplicitHeight = 751
  PixelsPerInch = 96
@ -231,10 +232,11 @@ inherited frmTradePlanMgeList: TfrmTradePlanMgeList
    LayoutLookAndFeel = DataLink_TradePlan.dxLayoutSkinLookAndFeel1
    OptionsItem.SizableHorz = True
    OptionsItem.SizableVert = True
+    ExplicitTop = 70
    object custName: TcxTextEdit
      Tag = 2
-      Left = 671
-      Top = 11
+      Left = 429
+      Top = -12
      Properties.OnChange = TfilterClick
      Style.HotTrack = False
      Style.TransparentBorder = False
@ -243,8 +245,8 @@ inherited frmTradePlanMgeList: TfrmTradePlanMgeList
    end
    object ConNo: TcxTextEdit
      Tag = 2
-      Left = 820
-      Top = 11
+      Left = 578
+      Top = -12
      Properties.OnChange = TfilterClick
      Style.HotTrack = False
      Style.TransparentBorder = False
@ -253,32 +255,8 @@ inherited frmTradePlanMgeList: TfrmTradePlanMgeList
    end
    object BuyConNo: TcxTextEdit
      Tag = 2
-      Left = 10000
-      Top = 9975
-      ParentFont = False
-      Properties.OnChange = TfilterClick
-      Style.BorderColor = clWindowFrame
-      Style.BorderStyle = ebs3D
-      Style.HotTrack = False
-      Style.TransparentBorder = False
-      TabOrder = 8
-      Visible = False
-      Width = 121
-    end
-    object OrderNo: TcxTextEdit
-      Tag = 2
-      Left = 481
-      Top = 11
-      Properties.OnChange = OrderNoPropertiesChange
-      Style.HotTrack = False
-      Style.TransparentBorder = False
-      TabOrder = 3
-      Width = 109
-    end
-    object ywy: TcxTextEdit
-      Tag = 99
-      Left = 10000
-      Top = 9975
+      Left = 9830
+      Top = 10000
      ParentFont = False
      Properties.OnChange = TfilterClick
      Style.BorderColor = clWindowFrame
@ -289,10 +267,34 @@ inherited frmTradePlanMgeList: TfrmTradePlanMgeList
      Visible = False
      Width = 121
    end
+    object OrderNo: TcxTextEdit
+      Tag = 2
+      Left = 239
+      Top = -12
+      Properties.OnChange = OrderNoPropertiesChange
+      Style.HotTrack = False
+      Style.TransparentBorder = False
+      TabOrder = 3
+      Width = 109
+    end
+    object ywy: TcxTextEdit
+      Tag = 99
+      Left = 9758
+      Top = 9952
+      ParentFont = False
+      Properties.OnChange = TfilterClick
+      Style.BorderColor = clWindowFrame
+      Style.BorderStyle = ebs3D
+      Style.HotTrack = False
+      Style.TransparentBorder = False
+      TabOrder = 10
+      Visible = False
+      Width = 121
+    end
    object C_Name: TcxTextEdit
      Tag = 2
-      Left = 1006
-      Top = 11
+      Left = 764
+      Top = -12
      ParentFont = False
      Properties.OnChange = TfilterClick
      Style.Font.Charset = ANSI_CHARSET
@ -307,8 +309,8 @@ inherited frmTradePlanMgeList: TfrmTradePlanMgeList
      Width = 121
    end
    object endDate: TcxDateEdit
-      Left = 284
-      Top = 11
+      Left = 42
+      Top = -12
      Properties.ImmediatePost = True
      Style.HotTrack = False
      Style.TransparentBorder = False
@ -316,8 +318,8 @@ inherited frmTradePlanMgeList: TfrmTradePlanMgeList
      Width = 132
    end
    object begdate: TcxDateEdit
-      Left = 110
-      Top = 11
+      Left = -132
+      Top = -12
      AutoSize = False
      Properties.ImmediatePost = True
      Style.HotTrack = False
@ -328,19 +330,19 @@ inherited frmTradePlanMgeList: TfrmTradePlanMgeList
    end
    object FtyPCId: TcxTextEdit
      Tag = 2
-      Left = 10000
-      Top = 9975
+      Left = 9758
+      Top = 9952
      Properties.OnChange = TfilterClick
      Style.HotTrack = False
      Style.TransparentBorder = False
-      TabOrder = 10
+      TabOrder = 11
      Visible = False
      Width = 105
    end
    object batchNo: TcxTextEdit
      Tag = 2
-      Left = 1208
-      Top = 11
+      Left = 966
+      Top = -12
      Properties.OnChange = TfilterClick
      Style.HotTrack = False
      Style.TransparentBorder = False
@ -348,8 +350,8 @@ inherited frmTradePlanMgeList: TfrmTradePlanMgeList
      Width = 121
    end
    object TimeType: TComboBox
-      Left = 16
-      Top = 11
+      Left = -226
+      Top = -12
      Width = 85
      Height = 29
      TabOrder = 0
@ -358,6 +360,16 @@ inherited frmTradePlanMgeList: TfrmTradePlanMgeList
        #21046#21333#26085#26399
        #23436#25104#26085#26399)
    end
+    object C_color: TcxTextEdit
+      Tag = 2
+      Left = 1136
+      Top = -12
+      Properties.OnChange = TfilterClick
+      Style.HotTrack = False
+      Style.TransparentBorder = False
+      TabOrder = 8
+      Width = 121
+    end
    object dxLayoutControl_queryGroup_Root: TdxLayoutGroup
      AlignHorz = ahParentManaged
      AlignVert = avParentManaged
@ -366,7 +378,7 @@ inherited frmTradePlanMgeList: TfrmTradePlanMgeList
      SizeOptions.SizableHorz = True
      SizeOptions.SizableVert = True
      Hidden = True
-      ItemIndex = 7
+      ItemIndex = 8
      LayoutDirection = ldHorizontal
      Padding.Bottom = -5
      Padding.Top = -5
@ -476,6 +488,15 @@ inherited frmTradePlanMgeList: TfrmTradePlanMgeList
      ControlOptions.ShowBorder = False
      Index = 0
    end
+    object dxLayoutItem_C_Color: TdxLayoutItem
+      Parent = dxLayoutControl_queryGroup_Root
+      CaptionOptions.Text = #39068#33394
+      Control = C_color
+      ControlOptions.OriginalHeight = 27
+      ControlOptions.OriginalWidth = 121
+      ControlOptions.ShowBorder = False
+      Index = 8
+    end
  end
  object cxPageControl1: TcxPageControl [2]
    Left = 8
@ -594,6 +615,13 @@ inherited frmTradePlanMgeList: TfrmTradePlanMgeList
            Options.Editing = False
            Width = 98
          end
+          object Tv1C_Color: TcxGridDBColumn
+            Caption = #39068#33394
+            DataBinding.FieldName = 'C_Color'
+            DataBinding.IsNullValueType = True
+            HeaderAlignmentHorz = taCenter
+            Width = 80
+          end
          object v1custName: TcxGridDBColumn
            Caption = #23458#25143
            DataBinding.FieldName = 'custName'
--- a/项目代码/wenshangkm/G01贸易生产计划/U_TradePlanMgeList.pas
+++ b/项目代码/wenshangkm/G01贸易生产计划/U_TradePlanMgeList.pas
@ -231,6 +231,9 @@ type
    btn1: TToolButton;
    dxLayoutItem3: TdxLayoutItem;
    TimeType: TComboBox;
+    Tv1C_Color: TcxGridDBColumn;
+    C_color: TcxTextEdit;
+    dxLayoutItem_C_Color: TdxLayoutItem;
    procedure TBCloseClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
@ -500,7 +503,6 @@ begin
 //  mdesignCode := fDllFileName +'|'+self.name+ '|' + intTostr(fformId) + '|' + 'cxgrid1';
 // addQryContionByLay(ADOQueryBaseTemp,fformId,'cxgrid1',dxLayoutControl_query,7);
 //application.ProcessMessages;
-
 end;

 procedure TfrmTradePlanMgeList.TBAddClick(Sender: TObject);
@ -1776,6 +1778,9 @@ begin
    Application.MessageBox('Êý¾ÝÉ¾³ýÒì³££¡', 'ÌáÊ¾', 0);
  end;
 end;
+
+
+
 ////////////////////////////////////////////////

 procedure TfrmTradePlanMgeList.threadLoadform();
--- a/项目代码/wenshangkm/G01贸易生产计划/djdPackPlan.dproj.local
+++ b/项目代码/wenshangkm/G01贸易生产计划/djdPackPlan.dproj.local
@ -73,12 +73,12 @@
 	<Transactions>
    <Transaction>1899/12/30 00:00:00.000.939,D:\Dp10RepoV1\项目代码\djdPack\G01贸易生产计划\U_SysLogOrderzsd.pas=</Transaction>
    <Transaction>1899/12/30 00:00:00.000.368,D:\Dp10RepoV1\项目代码\djdPack\G01贸易生产计划\U_OrderInPut.pas=</Transaction>
-    <Transaction>1899/12/30 00:00:00.000.578,D:\Dp10RepoV1\项目代码\djdPack\G01贸易生产计划\U_MJSJFX.pas=</Transaction>
    <Transaction>1899/12/30 00:00:00.000.296,D:\Dp10RepoV1\项目代码\djdPack\G01贸易生产计划\U_TradePlanList.pas=</Transaction>
-    <Transaction>1899/12/30 00:00:00.000.651,=D:\Dp10RepoV1\项目代码\djdPack\G01贸易生产计划\Unit2.pas</Transaction>
    <Transaction>1899/12/30 00:00:00.000.054,D:\Dp10RepoV1\项目代码\djdPack\G01贸易生产计划\U_ProductOrderNewList.pas=</Transaction>
+    <Transaction>1899/12/30 00:00:00.000.245,D:\Dp10RepoV1\项目代码\djdPack\G01贸易生产计划\Unit2.pas=D:\Dp10RepoV1\项目代码\djdPack\G01贸易生产计划\U_UptPlanDataToRoll.pas</Transaction>
+    <Transaction>1899/12/30 00:00:00.000.578,D:\Dp10RepoV1\项目代码\djdPack\G01贸易生产计划\U_MJSJFX.pas=</Transaction>
    <Transaction>1899/12/30 00:00:00.000.245,D:\Dp10RepoV1\项目代码\djdPack\G01贸易生产计划\Unit2.dfm=D:\Dp10RepoV1\项目代码\djdPack\G01贸易生产计划\U_UptPlanDataToRoll.dfm</Transaction>
    <Transaction>1899/12/30 00:00:00.000.720,=D:\Dp10RepoV1\项目代码\D10DJkaimengwenshang\项目代码\wenshangkm\A00通用窗体\U_MdPrint.pas</Transaction>
-    <Transaction>1899/12/30 00:00:00.000.245,D:\Dp10RepoV1\项目代码\djdPack\G01贸易生产计划\Unit2.pas=D:\Dp10RepoV1\项目代码\djdPack\G01贸易生产计划\U_UptPlanDataToRoll.pas</Transaction>
+    <Transaction>1899/12/30 00:00:00.000.651,=D:\Dp10RepoV1\项目代码\djdPack\G01贸易生产计划\Unit2.pas</Transaction>
  </Transactions>
 </BorlandProject>
--- a/项目代码/wenshangkm/G01贸易生产计划/djdPackPlan.identcache
+++ b/项目代码/wenshangkm/G01贸易生产计划/djdPackPlan.identcache