3-4

项目代码/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
+      Left = 429
-      Top = 11
+      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
+      Left = 578
-      Top = 11
+      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
+      Left = 9830
-      Top = 9975
+      Top = 10000
-      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
       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
+      Left = 764
-      Top = 11
+      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
+      Left = 42
-      Top = 11
+      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
+      Left = -132
-      Top = 11
+      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
+      Left = 9758
-      Top = 9975
+      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
+      Left = 966
-      Top = 11
+      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
+      Left = -226
-      Top = 11
+      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'

项目代码/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();

项目代码/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>