调整

坯布仓库/U_Bpkclist.dfm

@@ -190,6 +190,19 @@ object frmBpkclist: TfrmBpkclist
       Font.Style = [fsBold]
       ParentFont = False
     end
+    object Label9: TLabel
+      Left = 615
+      Top = 40
+      Width = 26
+      Height = 12
+      Caption = #39068#33394
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
     object BegDate: TDateTimePicker
       Left = 76
       Top = 11
@@ -290,6 +303,15 @@ object frmBpkclist: TfrmBpkclist
       TabOrder = 8
       OnChange = P_CodeNameChange
     end
+    object P_Color: TEdit
+      Tag = 2
+      Left = 647
+      Top = 36
+      Width = 100
+      Height = 20
+      TabOrder = 9
+      OnChange = P_CodeNameChange
+    end
   end
   object cxGrid1: TcxGrid
     Left = 0
@@ -484,6 +506,12 @@ object frmBpkclist: TfrmBpkclist
         HeaderAlignmentHorz = taCenter
         Width = 100
       end
+      object Tv1Column2: TcxGridDBColumn
+        Caption = #24211#20301
+        DataBinding.FieldName = 'KuWei'
+        HeaderAlignmentHorz = taCenter
+        Width = 60
+      end
     end
     object cxGrid1Level1: TcxGridLevel
       GridView = Tv1

坯布仓库/U_Bpkclist.pas

@@ -77,6 +77,9 @@ type
     Label8: TLabel;
     v1Column4: TcxGridDBColumn;
     Tv1Column1: TcxGridDBColumn;
+    Label9: TLabel;
+    P_Color: TEdit;
+    Tv1Column2: TcxGridDBColumn;
     procedure FormClose(Sender: TObject; var Action: TCloseAction);
     procedure FormDestroy(Sender: TObject);
     procedure P_CodeNameChange(Sender: TObject);

基础资料维护(BaseInfo.dll)/U_MLXXList.dfm

@@ -121,13 +121,27 @@ object frmMLXXList: TfrmMLXXList
       Caption = #36741#26009#32534#21495
     end
     object Label2: TLabel
-      Left = 369
+      Left = 777
       Top = 13
       Width = 24
       Height = 12
       Caption = #31867#22411
       Visible = False
     end
+    object Label4: TLabel
+      Left = 535
+      Top = 13
+      Width = 30
+      Height = 12
+      Caption = #33394#21495' '
+    end
+    object Label5: TLabel
+      Left = 366
+      Top = 13
+      Width = 24
+      Height = 12
+      Caption = #39068#33394
+    end
     object MLName: TEdit
       Tag = 2
       Left = 256
@@ -148,7 +162,7 @@ object frmMLXXList: TfrmMLXXList
     end
     object DEFstr5: TComboBox
       Tag = 1
-      Left = 398
+      Left = 806
       Top = 8
       Width = 81
       Height = 20
@@ -162,6 +176,24 @@ object frmMLXXList: TfrmMLXXList
         #25104#21697
         '')
     end
+    object MLSH: TEdit
+      Tag = 2
+      Left = 560
+      Top = 8
+      Width = 89
+      Height = 20
+      TabOrder = 3
+      OnChange = MLNameChange
+    end
+    object Color: TEdit
+      Tag = 2
+      Left = 393
+      Top = 9
+      Width = 92
+      Height = 20
+      TabOrder = 4
+      OnChange = MLNameChange
+    end
   end
   object cxGrid2: TcxGrid
     Left = 0

基础资料维护(BaseInfo.dll)/U_MLXXList.pas

@@ -85,6 +85,10 @@ type
     Tv2Column6: TcxGridDBColumn;
     Tv2Column7: TcxGridDBColumn;
     Tv2Column8: TcxGridDBColumn;
+    Label4: TLabel;
+    Label5: TLabel;
+    MLSH: TEdit;
+    Color: TEdit;
     procedure FormDestroy(Sender: TObject);
     procedure FormClose(Sender: TObject; var Action: TCloseAction);
     procedure TBCloseClick(Sender: TObject);

基础资料维护(BaseInfo.dll)/U_MLXXListSel.dfm

@@ -134,13 +134,27 @@ object frmMLXXListSel: TfrmMLXXListSel
       Caption = #36741#26009#32534#21495
     end
     object Label2: TLabel
-      Left = 369
+      Left = 953
       Top = 13
       Width = 24
       Height = 12
       Caption = #31867#22411
       Visible = False
     end
+    object Label4: TLabel
+      Left = 399
+      Top = 13
+      Width = 24
+      Height = 12
+      Caption = #39068#33394
+    end
+    object Label5: TLabel
+      Left = 555
+      Top = 13
+      Width = 30
+      Height = 12
+      Caption = #33394#21495' '
+    end
     object MLName: TEdit
       Tag = 2
       Left = 253
@@ -161,7 +175,7 @@ object frmMLXXListSel: TfrmMLXXListSel
     end
     object Typpe: TComboBox
       Tag = 1
-      Left = 398
+      Left = 982
       Top = 8
       Width = 81
       Height = 20
@@ -175,6 +189,24 @@ object frmMLXXListSel: TfrmMLXXListSel
         #25104#21697
         '')
     end
+    object Color: TEdit
+      Tag = 2
+      Left = 428
+      Top = 8
+      Width = 89
+      Height = 20
+      TabOrder = 3
+      OnChange = MLNameChange
+    end
+    object MLSH: TEdit
+      Tag = 2
+      Left = 580
+      Top = 8
+      Width = 89
+      Height = 20
+      TabOrder = 4
+      OnChange = MLNameChange
+    end
   end
   object cxGrid2: TcxGrid
     Left = 0

基础资料维护(BaseInfo.dll)/U_MLXXListSel.pas

@@ -87,6 +87,10 @@ type
     cxGridLevel1: TcxGridLevel;
     Tv2Column8: TcxGridDBColumn;
     Tv2Column9: TcxGridDBColumn;
+    Label4: TLabel;
+    Color: TEdit;
+    Label5: TLabel;
+    MLSH: TEdit;
     procedure FormDestroy(Sender: TObject);
     procedure FormClose(Sender: TObject; var Action: TCloseAction);
     procedure TBCloseClick(Sender: TObject);

基础资料维护(BaseInfo.dll)/U_ZdyAttachCP10.dfm

@@ -139,16 +139,8 @@ object frmZdyAttachCP10: TfrmZdyAttachCP10
       ImageIndex = 51
       OnClick = ToolButton11Click
     end
-    object TBClose: TToolButton
-      Left = 387
-      Top = 30
-      AutoSize = True
-      Caption = #20851#38381
-      ImageIndex = 55
-      OnClick = TBCloseClick
-    end
     object ToolButton8: TToolButton
-      Left = 450
+      Left = 387
       Top = 30
       AutoSize = True
       Caption = #23610#30721#32452
@@ -156,13 +148,21 @@ object frmZdyAttachCP10: TfrmZdyAttachCP10
       OnClick = ToolButton8Click
     end
     object ToolButton9: TToolButton
-      Left = 525
+      Left = 462
       Top = 30
       AutoSize = True
       Caption = #39068#33394#31649#29702
       ImageIndex = 49
       OnClick = ToolButton9Click
     end
+    object TBClose: TToolButton
+      Left = 549
+      Top = 30
+      AutoSize = True
+      Caption = #20851#38381
+      ImageIndex = 55
+      OnClick = TBCloseClick
+    end
   end
   object Panel1: TPanel
     Left = 0

应收应付/U_YSYGGJList.dfm

@@ -221,6 +221,13 @@ object frmYSYGGJList: TfrmYSYGGJList
       Height = 12
       Caption = #20135#21697#32534#21495
     end
+    object Label6: TLabel
+      Left = 736
+      Top = 12
+      Width = 36
+      Height = 12
+      Caption = #35746#21333#21495
+    end
     object BegDate: TDateTimePicker
       Left = 73
       Top = 9
@@ -337,6 +344,15 @@ object frmYSYGGJList: TfrmYSYGGJList
       TabOrder = 11
       OnChange = MPRTCodeNameChange
     end
+    object OrderNo: TEdit
+      Tag = 2
+      Left = 775
+      Top = 8
+      Width = 109
+      Height = 20
+      TabOrder = 12
+      OnChange = MPRTCodeNameChange
+    end
   end
   object cxGrid2: TcxGrid
     Left = 0

应收应付/U_YSYGGJList.pas

@@ -103,6 +103,8 @@ type
     CheckBox5: TCheckBox;
     Button9: TButton;
     Tv1Column6: TcxGridDBColumn;
+    Label6: TLabel;
+    OrderNo: TEdit;
     procedure FormDestroy(Sender: TObject);
     procedure FormClose(Sender: TObject; var Action: TCloseAction);
     procedure FormCreate(Sender: TObject);