梭织坯布仓库

E04梭织坯布仓库/TatClothStk.dproj.local

@@ -26,7 +26,7 @@
     <Transaction>1899/12/30 00:00:00.000.316,=D:\Dp10Repo\项目代码\路尚\A02基础产品管理\U_TatClothInfoInput.pas</Transaction>
     <Transaction>1899/12/30 00:00:00.000.376,=D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\U_KnitDRtInPut.pas</Transaction>
     <Transaction>1899/12/30 00:00:00.000.408,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E03梭织坯布检验\U_DCGCL.dfm=D:\Dp10RepoV1\项目代码\D10szJinCheng\E04梭织坯布仓库\U_TatClothStkList.dfm</Transaction>
-    <Transaction>1899/12/30 00:00:00.000.390,=D:\Dp10Repo\项目代码\路尚\A00通用窗体\U_ProductInfoSel.pas</Transaction>
+    <Transaction>1899/12/30 00:00:00.000.280,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRSel.pas</Transaction>
     <Transaction>1899/12/30 00:00:00.000.338,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_WBSpecSel.pas</Transaction>
     <Transaction>1899/12/30 00:00:00.000.999,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothStkList.pas</Transaction>
     <Transaction>1899/12/30 00:00:00.000.390,D:\Dp10Repo\项目代码\RTBasics\H05涂层成品仓库\U_CoatDRtInPut.dfm=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRtInPut.dfm</Transaction>
@@ -34,7 +34,7 @@
     <Transaction>1899/12/30 00:00:00.000.538,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_KnitDRtInPut.pas=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRtInPut.pas</Transaction>
     <Transaction>1899/12/30 00:00:00.000.471,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.dfm=D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeDRList.dfm</Transaction>
     <Transaction>1899/12/30 00:00:00.000.627,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas</Transaction>
-    <Transaction>1899/12/30 00:00:00.000.280,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRSel.pas</Transaction>
+    <Transaction>1899/12/30 00:00:00.000.390,=D:\Dp10Repo\项目代码\路尚\A00通用窗体\U_ProductInfoSel.pas</Transaction>
     <Transaction>1899/12/30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas</Transaction>
     <Transaction>1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm</Transaction>
     <Transaction>1899/12/30 00:00:00.000.057,=D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\U_KnitDRList.pas</Transaction>
@@ -82,12 +82,12 @@
     <Transaction>1899/12/30 00:00:00.000.132,=D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\U_KnitPlanSel.pas</Transaction>
     <Transaction>1899/12/30 00:00:00.000.663,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_KnitDRList.dfm=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.dfm</Transaction>
     <Transaction>1899/12/30 00:00:00.000.378,D:\Dp10Repo\项目代码\RTBasics\H05涂层成品仓库\U_CoatDRList.pas=</Transaction>
-    <Transaction>1899/12/30 00:00:00.000.202,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E04梭织坯布仓库\U_TatClothStkSel.pas</Transaction>
     <Transaction>1899/12/30 00:00:00.000.410,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E04梭织坯布仓库\U_TatClothStkSel.pas=</Transaction>
-    <Transaction>1899/12/30 00:00:00.000.139,=D:\Dp10Repo\项目代码\路尚\A02基础产品管理\U_ClothInfoTechnicsSel.pas</Transaction>
-    <Transaction>1899/12/30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas</Transaction>
-    <Transaction>1899/12/30 00:00:00.000.822,D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\KnitClothStk.dproj</Transaction>
     <Transaction>1899/12/30 00:00:00.000.435,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E04梭织坯布仓库\U_TatClothStkSel.pas</Transaction>
+    <Transaction>1899/12/30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas</Transaction>
+    <Transaction>1899/12/30 00:00:00.000.139,=D:\Dp10Repo\项目代码\路尚\A02基础产品管理\U_ClothInfoTechnicsSel.pas</Transaction>
+    <Transaction>1899/12/30 00:00:00.000.822,D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\KnitClothStk.dproj</Transaction>
+    <Transaction>1899/12/30 00:00:00.000.202,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E04梭织坯布仓库\U_TatClothStkSel.pas</Transaction>
     <Transaction>1899/12/30 00:00:00.000.993,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E04梭织坯布仓库\U_TatClothStkSel.pas</Transaction>
     <Transaction>1899/12/30 00:00:00.000.720,D:\Dp10Repo\项目代码\RTBasics\H05涂层成品仓库\U_CoatDRList.pas=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.pas</Transaction>
     <Transaction>1899/12/30 00:00:00.000.590,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E04梭织坯布仓库\U_TatClothStkSel.pas=</Transaction>

E04梭织坯布仓库/U_GetDllForm.pas

@@ -1,4 +1,4 @@
-unit U_GetDllForm;
+unit U_GetDllForm;
 
 interface
 
@@ -20,12 +20,12 @@ uses
   U_TatClothInList_ZDDY,U_TatClothStkSummary;
 
        /////////////////////////////////////////////////////////////////
-      //         功能说明:取Dll中得窗体                              //
+      //         功能说明:取Dll中得窗体                              //
-     //        参数说明：App>>调用应用程序；                        //
+     //        参数说明：App>>调用应用程序；                        //
-    //                 FormH>>调用窗口句柄 ；                      //
+    //                 FormH>>调用窗口句柄 ；                      //
-   //                 FormID>>窗口号;                             //
+   //                 FormID>>窗口号;                             //
-  //                 Language>>语言种类;                         //
+  //                 Language>>语言种类;                         //
- //                 WinStyle>>窗口类型；                        //
+ //                 WinStyle>>窗口类型；                        //
 /////////////////////////////////////////////////////////////////
 
 function GetDllForm(App: Tapplication; FormH: hwnd; FormID: integer; Language: integer; WinStyle: integer; GCode: Pchar; GName: Pchar; DataBase: Pchar; Title: PChar; Parameters1: PChar; Parameters2: PChar; Parameters3: PChar; Parameters4: PChar; Parameters5: PChar; Parameters6: PChar; Parameters7: PChar; Parameters8: PChar; Parameters9: PChar; Parameters10: PChar; DataBaseStr: PChar): hwnd;
@@ -33,7 +33,7 @@ var
   i: Integer;
   bFound: Boolean;
   mnewHandle: hwnd;
-  mstyle: TFormStyle;     // 0:子窗口; 1：普通窗口
+  mstyle: TFormStyle;     // 0:子窗口; 1：普通窗口
   mstate: TWindowState;
   mborderstyle: TFormBorderStyle;
 begin
@@ -63,7 +63,7 @@ begin
   DCurHandle := 0;
 
 
-//赋值链接字符串
+//赋值链接字符串
   SetLength(server, 255);
   SetLength(dtbase, 255);
   SetLength(user, 255);
@@ -76,7 +76,10 @@ begin
     user := 'kaixiyasa';
     pswd := 'rightsoft,.KXY@YN';
     DConString := 'Provider=SQLOLEDB.1;Password=' + pswd + ';Persist Security Info=True;User ID=' + user + ';Initial Catalog=' + dtbase + ';Data Source=' + server;
-    Parameters1 := '管理';
+    Parameters1 := '管理';
+
+    DNAME := '范黄氏玉簪PHẠM HOÀNG THỊ NGỌC TRÂM';
+    DCODE := 'DSVP01';
   end
   else
   begin
@@ -93,7 +96,7 @@ begin
   else
     WriteINIFile;
   GetsysParam('', '');
-   // 定义窗口类型 、状态
+   // 定义窗口类型 、状态
   if WinStyle = 0 then
   begin
     mstyle := fsMDIChild;
@@ -122,10 +125,10 @@ begin
     end;
   end;
   /////////////////////
-  //调用子模块窗口
+  //调用子模块窗口
   case FormID of
 
-    111:  //坯布扫描入库
+    111:  //坯布扫描入库
       begin
         with TfrmTatClothInEdit.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do       //
         begin
@@ -137,7 +140,7 @@ begin
         end;
       end;
 
-    121:  //坯布入库管理
+    121:  //坯布入库管理
       begin
         with TfrmTatClothInList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do       //
         begin
@@ -149,7 +152,7 @@ begin
         end;
       end;
 
-    122:  //自动打印入库码单
+    122:  //自动打印入库码单
       begin
         with TfrmTatClothInList_ZDDY.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do       //
         begin
@@ -161,7 +164,7 @@ begin
         end;
       end;
 
-    211:  //坯布发货申请
+    211:  //坯布发货申请
       begin
         with TfrmTatDRList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do       //
         begin
@@ -173,7 +176,7 @@ begin
         end;
       end;
 
-    221:  //坯布申请出库
+    221:  //坯布申请出库
       begin
         with TfrmTatClothDROutEdit.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do       //
         begin
@@ -185,7 +188,7 @@ begin
         end;
       end;
 
-    311:  //坯布扫描出库
+    311:  //坯布扫描出库
       begin
         with TfrmTatClothOutEdit.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do       //
         begin
@@ -197,7 +200,7 @@ begin
         end;
       end;
 
-    321:  //坯布出库列表
+    321:  //坯布出库列表
       begin
         with TfrmTatClothOutList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do       //
         begin
@@ -209,7 +212,7 @@ begin
         end;
       end;
 
-    411:  //坯布库存列表
+    411:  //坯布库存列表
       begin
         with TfrmTatClothStkList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do       //
         begin
@@ -221,7 +224,7 @@ begin
         end;
       end;
 
-    444:  //坯布库存汇总列表
+    444:  //坯布库存汇总列表
       begin
         with TfrmTatClothStkSummary.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do       //
         begin
@@ -253,7 +256,7 @@ begin
   result := true;
   //////////////////////////////
 //  shortDateFormat := 'yyyy-MM-dd';
-  //服务器日期
+  //服务器日期
   with DataLink_TatClothStk.AdoDataLink do
   begin
     close;
@@ -266,7 +269,7 @@ begin
 end;
 
 //===========================================================
-  //建立数据库连接池
+  //建立数据库连接池
 //===========================================================
 
 function ConnData(): Boolean;
@@ -275,8 +278,8 @@ var
 begin
   try
     IniFile := TIniFile.Create(ExtractFilePath(Application.ExeName) + 'SYSTEMSET.INI');
-    PicSvr := IniFile.ReadString('SERVER', '服务器地址', '127.0.0.1');
+    PicSvr := IniFile.ReadString('SERVER', '服务器地址', '127.0.0.1');
-    UserDataFlag := IniFile.ReadString('SERVER', '服务器地址类型', '-1');
+    UserDataFlag := IniFile.ReadString('SERVER', '服务器地址类型', '-1');
   finally
     IniFile.Free;
   end;
@@ -296,7 +299,7 @@ begin
     Result := true;
   except
     Result := false;
-    application.MessageBox('数据库连接失败！', '错误', mb_Ok + MB_ICONERROR);
+    application.MessageBox('数据库连接失败！', '错误', mb_Ok + MB_ICONERROR);
   end;
 
 end;

E04梭织坯布仓库/U_TatClothOutEdit.pas

@@ -28,7 +28,7 @@ uses
    
      
    dxScrollbarAnnotations, cxContainer, cxProgressBar, dxSkinsCore,
-  dxSkinsDefaultPainters;
+  dxSkinsDefaultPainters, dxSkinWXI;
 
 type
   TfrmTatClothOutEdit = class(TfrmBaseList)

E04梭织坯布仓库/U_TatClothStkList.dfm

@@ -82,7 +82,7 @@ inherited frmTatClothStkList: TfrmTatClothStkList
     Height = 570
     Align = alClient
     TabOrder = 3
-    Properties.ActivePage = cxTabSheet1
+    Properties.ActivePage = cxTabSheet2
     Properties.CustomButtons.Buttons = <>
     Properties.Style = 5
     OnChange = cxPageControl1Change
@@ -267,7 +267,6 @@ inherited frmTatClothStkList: TfrmTatClothStkList
           Left = 16
           Top = 6
           Caption = #26597#35810#26085#26399
-          State = cbsChecked
           TabOrder = 11
         end
       end
@@ -763,7 +762,6 @@ inherited frmTatClothStkList: TfrmTatClothStkList
           Left = 8
           Top = 7
           Caption = #26597#35810#26085#26399
-          State = cbsChecked
           TabOrder = 12
         end
         object BegDate: TcxDateEdit

E04梭织坯布仓库/U_TatClothStkScanSel.dfm

@@ -101,9 +101,6 @@ inherited frmTatClothStkScanSel: TfrmTatClothStkScanSel
       Caption = '  '#20135#21697#27719#24635#20449#24687'  '
       ImageIndex = 0
       TabVisible = False
-      ExplicitTop = 0
-      ExplicitWidth = 0
-      ExplicitHeight = 0
       object Pnl_F2: TPanel
         Left = 0
         Top = 0
@@ -419,9 +416,6 @@ inherited frmTatClothStkScanSel: TfrmTatClothStkScanSel
     object cxTabSheet2: TcxTabSheet
       Caption = '  '#20135#21697#26126#32454#20449#24687'  '
       ImageIndex = 1
-      ExplicitTop = 0
-      ExplicitWidth = 0
-      ExplicitHeight = 570
       object Panel6: TPanel
         Left = 0
         Top = 102
@@ -737,7 +731,6 @@ inherited frmTatClothStkScanSel: TfrmTatClothStkScanSel
           Left = 8
           Top = 7
           Caption = #26597#35810#26085#26399
-          State = cbsChecked
           TabOrder = 12
         end
         object BegDate: TcxDateEdit
@@ -764,7 +757,6 @@ inherited frmTatClothStkScanSel: TfrmTatClothStkScanSel
         BorderStyle = cxcbsNone
         PopupMenu = PM_1
         TabOrder = 2
-        ExplicitHeight = 435
         object Tv1: TcxGridDBTableView
           Navigator.Buttons.CustomButtons = <>
           ScrollbarAnnotations.CustomAnnotations = <>
@@ -776,15 +768,12 @@ inherited frmTatClothStkScanSel: TfrmTatClothStkScanSel
           DataController.Summary.FooterSummaryItems = <
             item
               Kind = skSum
-              Column = v1Column8
             end
             item
               Kind = skSum
-              Column = v1Column27
             end
             item
               Kind = skSum
-              Column = v1Column28
             end
             item
               Kind = skSum
@@ -792,7 +781,6 @@ inherited frmTatClothStkScanSel: TfrmTatClothStkScanSel
             end
             item
               Kind = skSum
-              Column = Tv1Column10
             end
             item
               Kind = skCount
@@ -890,9 +878,33 @@ inherited frmTatClothStkScanSel: TfrmTatClothStkScanSel
             Options.Editing = False
             Width = 66
           end
-          object Tv1Column6: TcxGridDBColumn
+          object Tv1PCID: TcxGridDBColumn
-            Caption = #25209#21495
+            Caption = #24067#31080#26465#30721
-            DataBinding.FieldName = 'BatchNO'
+            DataBinding.FieldName = 'PCID'
+            DataBinding.IsNullValueType = True
+            HeaderAlignmentHorz = taCenter
+            Options.Editing = False
+            Width = 80
+          end
+          object v1Column6: TcxGridDBColumn
+            Caption = #21367#26465#30721
+            DataBinding.FieldName = 'CIID'
+            DataBinding.IsNullValueType = True
+            HeaderAlignmentHorz = taCenter
+            Options.Editing = False
+            Width = 66
+          end
+          object v1Column12: TcxGridDBColumn
+            Caption = #31561#32423
+            DataBinding.FieldName = 'Grade'
+            DataBinding.IsNullValueType = True
+            HeaderAlignmentHorz = taCenter
+            Options.Editing = False
+            Width = 66
+          end
+          object Tv1PacketNo: TcxGridDBColumn
+            Caption = #21253#21495
+            DataBinding.FieldName = 'PacketNo'
             DataBinding.IsNullValueType = True
             HeaderAlignmentHorz = taCenter
             Width = 66
@@ -905,30 +917,6 @@ inherited frmTatClothStkScanSel: TfrmTatClothStkScanSel
             Options.Editing = False
             Width = 66
           end
-          object v1Column8: TcxGridDBColumn
-            Caption = #27611#37325
-            DataBinding.FieldName = 'GrossWeight'
-            DataBinding.IsNullValueType = True
-            HeaderAlignmentHorz = taCenter
-            Options.Editing = False
-            Width = 66
-          end
-          object v1Column27: TcxGridDBColumn
-            Caption = #30382#37325
-            DataBinding.FieldName = 'Tare'
-            DataBinding.IsNullValueType = True
-            HeaderAlignmentHorz = taCenter
-            Options.Editing = False
-            Width = 66
-          end
-          object v1Column28: TcxGridDBColumn
-            Caption = #20928#37325
-            DataBinding.FieldName = 'NetWeight'
-            DataBinding.IsNullValueType = True
-            HeaderAlignmentHorz = taCenter
-            Options.Editing = False
-            Width = 66
-          end
           object v1Column10: TcxGridDBColumn
             Caption = #31859#25968
             DataBinding.FieldName = 'Meter'
@@ -937,22 +925,6 @@ inherited frmTatClothStkScanSel: TfrmTatClothStkScanSel
             Options.Editing = False
             Width = 66
           end
-          object Tv1Column10: TcxGridDBColumn
-            Caption = #30721#25968
-            DataBinding.FieldName = 'Yardage'
-            DataBinding.IsNullValueType = True
-            HeaderAlignmentHorz = taCenter
-            Options.Editing = False
-            Width = 66
-          end
-          object v1Column12: TcxGridDBColumn
-            Caption = #21697#36136
-            DataBinding.FieldName = 'Grade'
-            DataBinding.IsNullValueType = True
-            HeaderAlignmentHorz = taCenter
-            Options.Editing = False
-            Width = 66
-          end
           object v1Column42: TcxGridDBColumn
             Caption = #24635#35760#24405#25968
             DataBinding.FieldName = 'TotalCount'
@@ -961,14 +933,6 @@ inherited frmTatClothStkScanSel: TfrmTatClothStkScanSel
             Options.Editing = False
             Width = 99
           end
-          object v1Column6: TcxGridDBColumn
-            Caption = #21367#26465#30721
-            DataBinding.FieldName = 'CIID'
-            DataBinding.IsNullValueType = True
-            HeaderAlignmentHorz = taCenter
-            Options.Editing = False
-            Width = 66
-          end
         end
         object cxGrid1Level1: TcxGridLevel
           GridView = Tv1

E04梭织坯布仓库/U_TatClothStkScanSel.pas

@@ -110,18 +110,14 @@ type
     v1Column13: TcxGridDBColumn;
     v1Column4: TcxGridDBColumn;
     v1Column23: TcxGridDBColumn;
-    v1Column8: TcxGridDBColumn;
-    v1Column27: TcxGridDBColumn;
-    v1Column28: TcxGridDBColumn;
     v1Column10: TcxGridDBColumn;
     Tv1Column11: TcxGridDBColumn;
-    Tv1Column10: TcxGridDBColumn;
     v1Column12: TcxGridDBColumn;
     v1Column42: TcxGridDBColumn;
     v1Column6: TcxGridDBColumn;
     v1Column3: TcxGridDBColumn;
     v1Column5: TcxGridDBColumn;
-    Tv1Column6: TcxGridDBColumn;
+    Tv1PacketNo: TcxGridDBColumn;
     cxGrid1Level1: TcxGridLevel;
     Label1: TLabel;
     BegDate2: TcxDateEdit;
@@ -134,6 +130,7 @@ type
     TV2Column1: TcxGridDBColumn;
     TV2SSel: TcxGridDBColumn;
     ToolButton1: TToolButton;
+    Tv1PCID: TcxGridDBColumn;
     procedure FormClose(Sender: TObject; var Action: TCloseAction);
     procedure FormCreate(Sender: TObject);
     procedure TBRafreshClick(Sender: TObject);

E04梭织坯布仓库/U_TatClothStkSel.dfm

@@ -94,7 +94,6 @@ inherited frmTatClothStkSel: TfrmTatClothStkSel
     Properties.CustomButtons.Buttons = <>
     Properties.Style = 5
     OnChange = cxPageControl1Change
-    ExplicitTop = 36
     ClientRectBottom = 570
     ClientRectRight = 1540
     ClientRectTop = 32
@@ -276,7 +275,6 @@ inherited frmTatClothStkSel: TfrmTatClothStkSel
           Left = 16
           Top = 6
           Caption = #26597#35810#26085#26399
-          State = cbsChecked
           TabOrder = 11
         end
       end
@@ -289,7 +287,6 @@ inherited frmTatClothStkSel: TfrmTatClothStkSel
         BorderStyle = cxcbsNone
         PopupMenu = PM_2
         TabOrder = 1
-        ExplicitTop = 72
         object TV2: TcxGridDBTableView
           Navigator.Buttons.CustomButtons = <>
           ScrollbarAnnotations.CustomAnnotations = <>
@@ -376,17 +373,9 @@ inherited frmTatClothStkSel: TfrmTatClothStkSel
             Options.Editing = False
             Width = 80
           end
-          object cxGridDBColumn18: TcxGridDBColumn
+          object Tv2PacketNoNum: TcxGridDBColumn
-            Caption = #25209#21495
+            Caption = #21253#25968
-            DataBinding.FieldName = 'BatchNo'
+            DataBinding.FieldName = 'PacketNoNum'
-            DataBinding.IsNullValueType = True
-            HeaderAlignmentHorz = taCenter
-            Options.Editing = False
-            Width = 66
-          end
-          object cxGridDBColumn14: TcxGridDBColumn
-            Caption = #21697#36136
-            DataBinding.FieldName = 'Grade'
             DataBinding.IsNullValueType = True
             HeaderAlignmentHorz = taCenter
             Options.Editing = False
@@ -408,6 +397,14 @@ inherited frmTatClothStkSel: TfrmTatClothStkSel
             Options.Editing = False
             Width = 66
           end
+          object cxGridDBColumn14: TcxGridDBColumn
+            Caption = #31561#32423
+            DataBinding.FieldName = 'Grade'
+            DataBinding.IsNullValueType = True
+            HeaderAlignmentHorz = taCenter
+            Options.Editing = False
+            Width = 66
+          end
         end
         object cxGridLevel1: TcxGridLevel
           GridView = TV2
@@ -532,7 +529,6 @@ inherited frmTatClothStkSel: TfrmTatClothStkSel
         Color = clWhite
         ParentBackground = False
         TabOrder = 1
-        ExplicitTop = -1
         object Label3: TLabel
           Left = 236
           Top = 9

E04梭织坯布仓库/U_TatClothStkSel.pas

@@ -102,7 +102,7 @@ type
     cxGridDBColumn14: TcxGridDBColumn;
     cxGridDBColumn15: TcxGridDBColumn;
     cxGridDBColumn16: TcxGridDBColumn;
-    cxGridDBColumn18: TcxGridDBColumn;
+    Tv2PacketNoNum: TcxGridDBColumn;
     cxGridLevel1: TcxGridLevel;
     TV2Column3: TcxGridDBColumn;
     Label18: TLabel;
@@ -262,6 +262,7 @@ begin
           sql.Add(' select OrderNo,C_Code,C_Name,IOType,Grade,CustName,C_Width,C_GramWeight,BatchNo,C_Color');
           sql.Add(' ,COUNT(PieceNo) SumPieceNo,sum(GrossWeight) SumGrossWeight,sum(Tare) SumTare,sum(NetWeight) SumNetWeight');
           sql.Add(' ,Sum(Meter) SumMeter,Sum(Yardage) SumYardage,ConNo,ConMID,ConSID');
+          sql.Add(' ,(SELECT COUNT(DISTINCT PacketNo) FROM Tat_Cloth_Stock X inner join Tat_Cloth_io Y on X.stkID=Y.stkID and X.StkCycles=Y.IOCycles where X.OrderNo = A.OrderNo and  X.StkExists=1 and Y.IOFlag=''Èë¿â'' ' +  WSql+ ') as PacketNoNum');
           sql.Add(' from V_Tat_Cloth_Stk A where 1=1 ');
           sql.Add(WSql);
 //          sql.Add(' GROUP BY DATEDIFF(dd,IOTime, GETDATE()),  CONVERT(VARCHAR(10),IOTime,120),OrderNo,C_Code,C_Name,IOType,Grade,CustName,C_Width,C_GramWeight,BatchNo,C_Color,ConNo,ConMID,ConSID');

E04梭织坯布仓库/U_TatDRtInPut.dfm

@@ -41,7 +41,6 @@ object frmTatDRtInPut: TfrmTatDRtInPut
     ParentFont = False
     ShowCaptions = True
     TabOrder = 0
-    ExplicitTop = 4
     object TBSave: TToolButton
       Left = 0
       Top = 0
@@ -373,7 +372,6 @@ object frmTatDRtInPut: TfrmTatDRtInPut
     ParentFont = False
     ShowCaptions = True
     TabOrder = 2
-    ExplicitTop = 155
     object SelectStk: TToolButton
       Left = 0
       Top = 0
@@ -408,8 +406,6 @@ object frmTatDRtInPut: TfrmTatDRtInPut
     Hint = 'SHAddress/'#36865#36135#22320#22336
     Align = alClient
     TabOrder = 3
-    ExplicitLeft = 8
-    ExplicitTop = 191
     object Tv1: TcxGridDBTableView
       Navigator.Buttons.CustomButtons = <>
       ScrollbarAnnotations.CustomAnnotations = <>

E04梭织坯布仓库/U_TatDRtInPut.pas

@@ -11,7 +11,8 @@ uses
   StdCtrls, ToolWin, DBClient, ADODB, ExtCtrls, BtnEdit, cxCalendar, StrUtils,
   cxDropDownEdit, cxGridCustomPopupMenu, cxGridPopupMenu, cxLookAndFeels,
   cxLookAndFeelPainters, cxNavigator, dxDateRanges, dxBarBuiltInMenu, U_BaseList,
-  dxScrollbarAnnotations, dxSkinsCore, dxSkinsDefaultPainters, U_BaseInput;
+  dxScrollbarAnnotations, dxSkinsCore, dxSkinsDefaultPainters, U_BaseInput,
+  dxSkinWXI;
 
 type
   TfrmTatDRtInPut = class(TForm)