diff --git a/坯布仓库/U_BpRk.pas b/坯布仓库/U_BpRk.pas
index a5fbc61..c23b7d2 100644
--- a/坯布仓库/U_BpRk.pas
+++ b/坯布仓库/U_BpRk.pas
@@ -1,6 +1,6 @@
 unit U_BpRk;
 
-interface
+interface                       
 
 uses
   Windows, Messages, SysUtils, StrUtils, Variants, Classes, Graphics, Controls,
diff --git a/坯布仓库/U_Bpkclist.dfm b/坯布仓库/U_Bpkclist.dfm
index e45096c..7f299d8 100644
--- a/坯布仓库/U_Bpkclist.dfm
+++ b/坯布仓库/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
diff --git a/坯布仓库/U_Bpkclist.pas b/坯布仓库/U_Bpkclist.pas
index 906c7e7..0af70c3 100644
--- a/坯布仓库/U_Bpkclist.pas
+++ b/坯布仓库/U_Bpkclist.pas
@@ -1,7 +1,7 @@
 unit U_Bpkclist;
 
 interface
-
+                                              
 uses
   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
   Dialogs, ComCtrls, ToolWin, StdCtrls, ExtCtrls, cxStyles, cxCustomData,
@@ -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);
diff --git a/基础资料维护(BaseInfo.dll)/U_GetDllForm.pas b/基础资料维护(BaseInfo.dll)/U_GetDllForm.pas
index c8f85c0..0503974 100644
--- a/基础资料维护(BaseInfo.dll)/U_GetDllForm.pas
+++ b/基础资料维护(BaseInfo.dll)/U_GetDllForm.pas
@@ -66,7 +66,7 @@ begin
 //  dtbase := 'rtjydata12';
 //  user := 'sa';
 //  pswd := 'rightsoft';
-  server := '139.224.12.182,7781';
+  server := '139.224.12.182,7781';              
   dtbase := 'aidengdata';
   user := 'aidengsa';
   pswd := 'rightsoft@3203';
diff --git a/基础资料维护(BaseInfo.dll)/U_MLXXList.dfm b/基础资料维护(BaseInfo.dll)/U_MLXXList.dfm
index 1988418..cd133ef 100644
--- a/基础资料维护(BaseInfo.dll)/U_MLXXList.dfm
+++ b/基础资料维护(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
diff --git a/基础资料维护(BaseInfo.dll)/U_MLXXList.pas b/基础资料维护(BaseInfo.dll)/U_MLXXList.pas
index 28b5457..bd6b627 100644
--- a/基础资料维护(BaseInfo.dll)/U_MLXXList.pas
+++ b/基础资料维护(BaseInfo.dll)/U_MLXXList.pas
@@ -34,7 +34,7 @@ type
     FDdys: string[32]; //�ͻ����׽���
     FdDysName: string[32]; //�ͻ����׽���                  
   end;        
-
+                                                    
   TfrmMLXXList = class(TForm)
     ToolBar1: TToolBar;
     TBRafresh: TToolButton;
@@ -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);
diff --git a/基础资料维护(BaseInfo.dll)/U_MLXXListSel.dfm b/基础资料维护(BaseInfo.dll)/U_MLXXListSel.dfm
index 0f24a95..6689f14 100644
--- a/基础资料维护(BaseInfo.dll)/U_MLXXListSel.dfm
+++ b/基础资料维护(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
diff --git a/基础资料维护(BaseInfo.dll)/U_MLXXListSel.pas b/基础资料维护(BaseInfo.dll)/U_MLXXListSel.pas
index 138062f..c222287 100644
--- a/基础资料维护(BaseInfo.dll)/U_MLXXListSel.pas
+++ b/基础资料维护(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);
diff --git a/基础资料维护(BaseInfo.dll)/U_ZdyAttInputCP_CB.pas b/基础资料维护(BaseInfo.dll)/U_ZdyAttInputCP_CB.pas
index 5eda454..ef8a02a 100644
--- a/基础资料维护(BaseInfo.dll)/U_ZdyAttInputCP_CB.pas
+++ b/基础资料维护(BaseInfo.dll)/U_ZdyAttInputCP_CB.pas
@@ -1446,7 +1446,7 @@ begin
   begin
     if showmodal = 1 then
     begin
-      with CDS_HZ do
+      with CDS_HZ do                    
       begin                                   
         DisableControls;
 //        First;
diff --git a/基础资料维护(BaseInfo.dll)/U_ZdyAttachCP10.dfm b/基础资料维护(BaseInfo.dll)/U_ZdyAttachCP10.dfm
index 87e3159..0984286 100644
--- a/基础资料维护(BaseInfo.dll)/U_ZdyAttachCP10.dfm
+++ b/基础资料维护(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
diff --git a/基础资料维护(BaseInfo.dll)/U_ZdyAttachCP10.pas b/基础资料维护(BaseInfo.dll)/U_ZdyAttachCP10.pas
index c59670f..66902e4 100644
--- a/基础资料维护(BaseInfo.dll)/U_ZdyAttachCP10.pas
+++ b/基础资料维护(BaseInfo.dll)/U_ZdyAttachCP10.pas
@@ -35,7 +35,7 @@ type
   end;
 
   TfrmZdyAttachCP10 = class(TForm)
-    ToolBar1: TToolBar;
+    ToolBar1: TToolBar;                          
     TBRafresh: TToolButton;
     TBDel: TToolButton;
     TBClose: TToolButton;
@@ -545,7 +545,7 @@ begin
       end;
     end;
   finally
-    frmZdyAttInputCP_CB.Free;
+    frmZdyAttInputCP_CB.Free;              
   end;
 end;
 
diff --git a/应收应付/U_YSYGGJList.dfm b/应收应付/U_YSYGGJList.dfm
index b93ba96..f49f650 100644
--- a/应收应付/U_YSYGGJList.dfm
+++ b/应收应付/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
diff --git a/应收应付/U_YSYGGJList.pas b/应收应付/U_YSYGGJList.pas
index 9769b38..610e96d 100644
--- a/应收应付/U_YSYGGJList.pas
+++ b/应收应付/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);
@@ -257,8 +259,8 @@ begin
   try
     frmZDYHelp := TfrmZDYHelp.Create(Application);
     with frmZDYHelp do
-    begin
-      flag := 'SOrdDefStr10';
+    begin                            
+      flag := 'SOrdDefStr10';                  
       flagname := '����ŵص�';
       if ShowModal = 1 then
       begin