物料

B03基础物料仓库/ProductStk.dpr

@@ -27,7 +27,8 @@ uses
   U_ProductInfoSel in '..\A00通用窗体\U_ProductInfoSel.pas' {frmProductInfoSel},
   U_CompanySel in '..\A00通用窗体\U_CompanySel.pas' {frmCompanySel},
   U_LabelMapSet in '..\A00通用窗体\U_LabelMapSet.pas' {frmLabelMapSet},
-  U_LabelPrint in '..\A00通用窗体\U_LabelPrint.pas' {frmLabelPrint};
+  U_LabelPrint in '..\A00通用窗体\U_LabelPrint.pas' {frmLabelPrint},
+  uSZHN_JSON in '..\..\..\public10\ThreeFun\Fun\uSZHN_JSON.pas';
 
 {$R *.res}
 

B03基础物料仓库/ProductStk.dproj

@@ -124,7 +124,7 @@
     </PropertyGroup>
     <PropertyGroup Condition="'$(Cfg_2_Win32)'!=''">
         <VerInfo_Keys>CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=;ProgramID=com.embarcadero.$(MSBuildProjectName)</VerInfo_Keys>
-        <Debugger_HostApplication>D:\Dp10Repo\项目代码\恒溢水洗\B03基础物料仓库\testDll.exe</Debugger_HostApplication>
+        <Debugger_HostApplication>D:\Dp10Repo\项目代码\D10sxYilanbuyi\B03基础物料仓库\testDll.exe</Debugger_HostApplication>
     </PropertyGroup>
     <ItemGroup>
         <DelphiCompile Include="$(MainSource)">
@@ -193,6 +193,7 @@
             <Form>frmLabelPrint</Form>
             <FormType>dfm</FormType>
         </DCCReference>
+        <DCCReference Include="..\..\..\public10\ThreeFun\Fun\uSZHN_JSON.pas"/>
         <BuildConfiguration Include="Debug">
             <Key>Cfg_2</Key>
             <CfgParent>Base</CfgParent>

B03基础物料仓库/ProductStk.dproj.local

@@ -1,44 +1,45 @@
 <?xml version="1.0" encoding="utf-8"?>
 <BorlandProject>
 	<Transactions>
-    <Transaction>1899-12-30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.242,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.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.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.233,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProductInfoSel.dfm</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.840,=D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_BSPrtMachInList.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.943,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.659,D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_BSPrtDyeInList.pas=D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_BSPrtMachInList.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.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.242,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.526,D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_PrtDyeInfoInPut.pas=D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_ProductInfoInPut.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.840,=D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_BSPrtMachInList.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.659,D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_BSPrtMachInList.pas=D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_BSPrtDyeInList.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.233,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProductInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.486,D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\ProductStk.dproj=D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\InformationBase.dproj</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=</Transaction>
     <Transaction>1899-12-30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.923,D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\Unit1.pas=</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.486,D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\ProductStk.dproj</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.526,D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_ProductInfoInPut.dfm=D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_PrtDyeInfoInPut.dfm</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.233,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProductInfoSel.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.713,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.659,D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_BSPrtDyeInList.dfm=D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_BSPrtMachInList.dfm</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.233,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProductInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.526,D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_ProductInfoInPut.pas=D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_PrtDyeInfoInPut.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.713,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.526,D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_PrtDyeInfoInPut.dfm=D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_ProductInfoInPut.dfm</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.686,=D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_ProductInfoInPut.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.943,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.495,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.659,D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_BSPrtMachInList.dfm=D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_BSPrtDyeInList.dfm</Transaction>
+    <Transaction>2025-06-12 09:44:49.997,=D:\Dp10Repo\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction>
   </Transactions>
 	<ProjectSortOrder AutoSort="0" SortType="0">
     <File Path="android-support-v4.dex.jar"/>
@@ -69,7 +70,7 @@
     <File Path="fmx.dex.jar"/>
     <File Path="google-play-billing.dex.jar"/>
     <File Path="google-play-licensing.dex.jar"/>
-    <File Path="..\..\恒溢水洗"/>
+    <File Path="..\..\D10sxYilanbuyi"/>
     <File Path="..\A00通用窗体"/>
     <File Path="..\A00通用窗体\U_AttachmentUpload.pas"/>
     <File Path="..\A00通用窗体\U_AttachmentUpload.dfm"/>
@@ -104,6 +105,7 @@
     <File Path="..\..\..\public10\ThreeFun\Fun"/>
     <File Path="..\..\..\public10\ThreeFun\Fun\U_CompressionFun.pas"/>
     <File Path="..\..\..\public10\ThreeFun\Fun\U_RTFun.pas"/>
+    <File Path="..\..\..\public10\ThreeFun\Fun\uSZHN_JSON.pas"/>
     <File Path="U_DataLink.pas"/>
     <File Path="U_DataLink.dfm"/>
     <File Path="U_GetDllForm.pas"/>

B03基础物料仓库/U_GetDllForm.pas

@@ -72,15 +72,14 @@ begin
 
   if trim(DataBaseStr) = '' then
   begin
-    server := '121.40.233.100,7781';
+    server := '101.132.143.144,7781';
-    pswd := 'rightsoft@123';
+    dtbase := 'yilaibuyiData';
-
+    user := 'rtsa';
-    dtbase := 'hengyisxdata';
+    pswd := 'rightsoft@5740';
-    user := 'sa';
 
     DConString := 'Provider=SQLOLEDB.1;Password=' + pswd + ';Persist Security Info=True;User ID=' + user + ';Initial Catalog=' + dtbase + ';Data Source=' + server;
 //    Parameters1 := '管理';
-    Parameters2 := '机物料';
+    Parameters2 := 'Öú¼Á';
 //    Parameters2 := '染化料';
 //    Parameters2 := '母粒'
   end

B03基础物料仓库/U_PrtDyeInfoInPut.dfm

@@ -19,6 +19,7 @@ inherited frmPrtDyeInfoInPut: TfrmPrtDyeInfoInPut
     TabOrder = 0
     object Tv1: TcxGridDBTableView
       Navigator.Buttons.CustomButtons = <>
+      ScrollbarAnnotations.CustomAnnotations = <>
       DataController.DataSource = DataSource3
       DataController.Summary.DefaultGroupSummaryItems = <>
       DataController.Summary.FooterSummaryItems = <
@@ -48,12 +49,14 @@ inherited frmPrtDyeInfoInPut: TfrmPrtDyeInfoInPut
         Tag = 2
         Caption = #21697#29260
         DataBinding.FieldName = 'Brand'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Width = 100
       end
       object v1Column18: TcxGridDBColumn
         Caption = #37319#36141#21152#24037#21512#21516#21495
         DataBinding.FieldName = 'ConNo'
+        DataBinding.IsNullValueType = True
         PropertiesClassName = 'TcxButtonEditProperties'
         Properties.Buttons = <
           item
@@ -70,6 +73,7 @@ inherited frmPrtDyeInfoInPut: TfrmPrtDyeInfoInPut
         Tag = 2
         Caption = #21697#29260
         DataBinding.FieldName = 'SXPinPai'
+        DataBinding.IsNullValueType = True
         PropertiesClassName = 'TcxButtonEditProperties'
         Properties.Buttons = <
           item
@@ -85,6 +89,7 @@ inherited frmPrtDyeInfoInPut: TfrmPrtDyeInfoInPut
         Tag = 2
         Caption = #32534#21495
         DataBinding.FieldName = 'P_Code'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Width = 74
       end
@@ -92,6 +97,7 @@ inherited frmPrtDyeInfoInPut: TfrmPrtDyeInfoInPut
         Tag = 2
         Caption = #21697#21517
         DataBinding.FieldName = 'P_Name'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Width = 101
       end
@@ -99,6 +105,7 @@ inherited frmPrtDyeInfoInPut: TfrmPrtDyeInfoInPut
         Tag = 2
         Caption = #31867#22411
         DataBinding.FieldName = 'P_Type'
+        DataBinding.IsNullValueType = True
         PropertiesClassName = 'TcxButtonEditProperties'
         Properties.Buttons = <
           item
@@ -113,6 +120,7 @@ inherited frmPrtDyeInfoInPut: TfrmPrtDyeInfoInPut
         Tag = 2
         Caption = #35268#26684
         DataBinding.FieldName = 'P_Spec'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         HeaderGlyphAlignmentHorz = taCenter
         Width = 116
@@ -121,6 +129,7 @@ inherited frmPrtDyeInfoInPut: TfrmPrtDyeInfoInPut
         Tag = 2
         Caption = #25209#21495
         DataBinding.FieldName = 'BatchNo'
+        DataBinding.IsNullValueType = True
         Visible = False
         HeaderAlignmentHorz = taCenter
         VisibleForCustomization = False
@@ -130,6 +139,7 @@ inherited frmPrtDyeInfoInPut: TfrmPrtDyeInfoInPut
         Tag = 2
         Caption = #21333#20301
         DataBinding.FieldName = 'QtyUnit'
+        DataBinding.IsNullValueType = True
         PropertiesClassName = 'TcxButtonEditProperties'
         Properties.Buttons = <
           item
@@ -145,6 +155,7 @@ inherited frmPrtDyeInfoInPut: TfrmPrtDyeInfoInPut
         Tag = 2
         Caption = #36816#36153
         DataBinding.FieldName = 'YunFei'
+        DataBinding.IsNullValueType = True
         Visible = False
         HeaderAlignmentHorz = taCenter
         VisibleForCustomization = False
@@ -154,6 +165,7 @@ inherited frmPrtDyeInfoInPut: TfrmPrtDyeInfoInPut
         Tag = 2
         Caption = #39046#26009#21333#20301
         DataBinding.FieldName = 'TakeUnit'
+        DataBinding.IsNullValueType = True
         PropertiesClassName = 'TcxButtonEditProperties'
         Properties.Buttons = <
           item
@@ -168,6 +180,7 @@ inherited frmPrtDyeInfoInPut: TfrmPrtDyeInfoInPut
         Tag = 2
         Caption = #21333#20215
         DataBinding.FieldName = 'Price'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Width = 70
       end
@@ -175,6 +188,7 @@ inherited frmPrtDyeInfoInPut: TfrmPrtDyeInfoInPut
         Tag = 2
         Caption = #22791#27880
         DataBinding.FieldName = 'Note'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Width = 118
       end

B03基础物料仓库/U_PrtDyeInfoInPut.pas

@@ -11,7 +11,7 @@ uses
   cxGridPopupMenu, ADODB, DBClient, cxButtonEdit, cxTextEdit, StdCtrls, ExtCtrls,
   cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxSkinsCore,
   dxSkinsDefaultPainters, dxDateRanges, dxBarBuiltInMenu, U_BaseInput,
-  U_BaseList, System.ImageList, Vcl.ImgList, ComObj;
+  U_BaseList, System.ImageList, Vcl.ImgList, ComObj, dxScrollbarAnnotations;
 
 type
   TfrmPrtDyeInfoInPut = class(TfrmBaseInput)
@@ -262,6 +262,16 @@ begin
     Application.MessageBox('品名不能为空!', '提示', 0);
     Exit;
   end;
+  if CDS_Sub.Locate('P_CODE', null, []) = True then
+  begin
+    Application.MessageBox('编号不能为空!', '提示', 0);
+    Exit;
+  end;
+  if CDS_Sub.Locate('P_CODE', null, []) = True then
+  begin
+    Application.MessageBox('编号不能为空!', '提示', 0);
+    Exit;
+  end;
 
   if CDS_Sub.Locate('QtyUnit', null, []) = True then
   begin

B03基础物料仓库/U_PrtDyeInfoList.dfm

@@ -165,6 +165,7 @@ inherited frmPrtDyeInfoList: TfrmPrtDyeInfoList
     TabOrder = 2
     object Tv1: TcxGridDBTableView
       Navigator.Buttons.CustomButtons = <>
+      ScrollbarAnnotations.CustomAnnotations = <>
       DataController.DataSource = DataSource1
       DataController.Summary.DefaultGroupSummaryItems = <
         item
@@ -213,6 +214,7 @@ inherited frmPrtDyeInfoList: TfrmPrtDyeInfoList
       object v1Column1: TcxGridDBColumn
         Caption = #37319#36141#21512#21516#21495
         DataBinding.FieldName = 'ConNo'
+        DataBinding.IsNullValueType = True
         Visible = False
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
@@ -222,12 +224,14 @@ inherited frmPrtDyeInfoList: TfrmPrtDyeInfoList
       object Tv1Column2: TcxGridDBColumn
         Caption = #21697#29260
         DataBinding.FieldName = 'Brand'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Width = 79
       end
       object Tv1Column1: TcxGridDBColumn
         Caption = #32534#21495
         DataBinding.FieldName = 'P_Code'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Width = 78
       end
@@ -235,6 +239,7 @@ inherited frmPrtDyeInfoList: TfrmPrtDyeInfoList
         Tag = 2
         Caption = #21697#21517
         DataBinding.FieldName = 'P_Name'
+        DataBinding.IsNullValueType = True
         PropertiesClassName = 'TcxButtonEditProperties'
         Properties.Buttons = <
           item
@@ -247,6 +252,7 @@ inherited frmPrtDyeInfoList: TfrmPrtDyeInfoList
       object Tv1Column3: TcxGridDBColumn
         Caption = #31867#22411
         DataBinding.FieldName = 'P_Type'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
       end
@@ -254,6 +260,7 @@ inherited frmPrtDyeInfoList: TfrmPrtDyeInfoList
         Tag = 2
         Caption = #35268#26684
         DataBinding.FieldName = 'P_Spec'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         HeaderGlyphAlignmentHorz = taCenter
         Width = 65
@@ -261,6 +268,7 @@ inherited frmPrtDyeInfoList: TfrmPrtDyeInfoList
       object v1Column10: TcxGridDBColumn
         Caption = #25209#21495
         DataBinding.FieldName = 'BatchNo'
+        DataBinding.IsNullValueType = True
         Visible = False
         HeaderAlignmentHorz = taCenter
         VisibleForCustomization = False
@@ -269,6 +277,7 @@ inherited frmPrtDyeInfoList: TfrmPrtDyeInfoList
       object v1Column18: TcxGridDBColumn
         Caption = #21697#29260
         DataBinding.FieldName = 'SXPinPai'
+        DataBinding.IsNullValueType = True
         Visible = False
         HeaderAlignmentHorz = taCenter
         VisibleForCustomization = False
@@ -278,6 +287,7 @@ inherited frmPrtDyeInfoList: TfrmPrtDyeInfoList
         Tag = 2
         Caption = #21333#20301
         DataBinding.FieldName = 'QtyUnit'
+        DataBinding.IsNullValueType = True
         PropertiesClassName = 'TcxComboBoxProperties'
         Properties.DropDownListStyle = lsFixedList
         Properties.Items.Strings = (
@@ -290,12 +300,14 @@ inherited frmPrtDyeInfoList: TfrmPrtDyeInfoList
       object v1Column9: TcxGridDBColumn
         Caption = #21333#20215
         DataBinding.FieldName = 'Price'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Width = 71
       end
       object v1Column17: TcxGridDBColumn
         Caption = #36816#36153
         DataBinding.FieldName = 'YunFei'
+        DataBinding.IsNullValueType = True
         Visible = False
         HeaderAlignmentHorz = taCenter
         VisibleForCustomization = False
@@ -304,6 +316,7 @@ inherited frmPrtDyeInfoList: TfrmPrtDyeInfoList
       object Tv1Column4: TcxGridDBColumn
         Caption = #39046#26009#21333#20301
         DataBinding.FieldName = 'TakeUnit'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
         Width = 72
@@ -312,6 +325,7 @@ inherited frmPrtDyeInfoList: TfrmPrtDyeInfoList
         Tag = 2
         Caption = #22791#27880
         DataBinding.FieldName = 'Note'
+        DataBinding.IsNullValueType = True
         Width = 102
       end
     end

B03基础物料仓库/U_PrtDyeInfoList.pas

@@ -12,7 +12,8 @@ uses
   cxDropDownEdit, cxCheckBox, RM_Common, RM_Class, RM_e_Xls, RM_Dataset,
   RM_System, RM_GridReport, Menus, cxCalendar, cxButtonEdit, cxTextEdit, cxPC,
   cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxBarBuiltInMenu,
-  dxSkinsCore, dxSkinsDefaultPainters, dxDateRanges, U_BaseList;
+  dxSkinsCore, dxSkinsDefaultPainters, dxDateRanges, U_BaseList,
+  dxScrollbarAnnotations;
 
 type
   TfrmPrtDyeInfoList = class(TfrmBaseList)

B03基础物料仓库/U_PrtMachInfoInPut.dfm

@@ -19,6 +19,7 @@ inherited frmPrtMachInfoInPut: TfrmPrtMachInfoInPut
     TabOrder = 0
     object Tv1: TcxGridDBTableView
       Navigator.Buttons.CustomButtons = <>
+      ScrollbarAnnotations.CustomAnnotations = <>
       DataController.DataSource = DataSource3
       DataController.Summary.DefaultGroupSummaryItems = <>
       DataController.Summary.FooterSummaryItems = <
@@ -48,12 +49,14 @@ inherited frmPrtMachInfoInPut: TfrmPrtMachInfoInPut
         Tag = 2
         Caption = #21697#29260
         DataBinding.FieldName = 'Brand'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Width = 100
       end
       object v1Column18: TcxGridDBColumn
         Caption = #37319#36141#21152#24037#21512#21516#21495
         DataBinding.FieldName = 'ConNo'
+        DataBinding.IsNullValueType = True
         PropertiesClassName = 'TcxButtonEditProperties'
         Properties.Buttons = <
           item
@@ -70,6 +73,7 @@ inherited frmPrtMachInfoInPut: TfrmPrtMachInfoInPut
         Tag = 2
         Caption = #21697#29260
         DataBinding.FieldName = 'SXPinPai'
+        DataBinding.IsNullValueType = True
         PropertiesClassName = 'TcxButtonEditProperties'
         Properties.Buttons = <
           item
@@ -85,6 +89,7 @@ inherited frmPrtMachInfoInPut: TfrmPrtMachInfoInPut
         Tag = 2
         Caption = #21697#21517
         DataBinding.FieldName = 'P_Name'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Width = 101
       end
@@ -92,6 +97,7 @@ inherited frmPrtMachInfoInPut: TfrmPrtMachInfoInPut
         Tag = 2
         Caption = #35268#26684
         DataBinding.FieldName = 'P_Spec'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         HeaderGlyphAlignmentHorz = taCenter
         Width = 116
@@ -100,6 +106,7 @@ inherited frmPrtMachInfoInPut: TfrmPrtMachInfoInPut
         Tag = 2
         Caption = #25209#21495
         DataBinding.FieldName = 'BatchNo'
+        DataBinding.IsNullValueType = True
         Visible = False
         HeaderAlignmentHorz = taCenter
         VisibleForCustomization = False
@@ -109,6 +116,7 @@ inherited frmPrtMachInfoInPut: TfrmPrtMachInfoInPut
         Tag = 2
         Caption = #21333#20301
         DataBinding.FieldName = 'QtyUnit'
+        DataBinding.IsNullValueType = True
         PropertiesClassName = 'TcxButtonEditProperties'
         Properties.Buttons = <
           item
@@ -124,6 +132,7 @@ inherited frmPrtMachInfoInPut: TfrmPrtMachInfoInPut
         Tag = 2
         Caption = #36816#36153
         DataBinding.FieldName = 'YunFei'
+        DataBinding.IsNullValueType = True
         Visible = False
         HeaderAlignmentHorz = taCenter
         VisibleForCustomization = False
@@ -133,6 +142,7 @@ inherited frmPrtMachInfoInPut: TfrmPrtMachInfoInPut
         Tag = 2
         Caption = #21333#20215
         DataBinding.FieldName = 'Price'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Width = 70
       end
@@ -140,6 +150,7 @@ inherited frmPrtMachInfoInPut: TfrmPrtMachInfoInPut
         Tag = 2
         Caption = #22791#27880
         DataBinding.FieldName = 'Note'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Width = 118
       end

B03基础物料仓库/U_PrtMachInfoInPut.pas

@@ -11,7 +11,7 @@ uses
   cxGridPopupMenu, ADODB, DBClient, cxButtonEdit, cxTextEdit, StdCtrls, ExtCtrls,
   cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxSkinsCore,
   dxSkinsDefaultPainters, dxDateRanges, dxBarBuiltInMenu, U_BaseInput,
-  U_BaseList, System.ImageList, Vcl.ImgList, ComObj;
+  U_BaseList, System.ImageList, Vcl.ImgList, ComObj, dxScrollbarAnnotations;
 
 type
   TfrmPrtMachInfoInPut = class(TfrmBaseInput)

B03基础物料仓库/U_PrtMachInfoList.dfm

@@ -165,6 +165,7 @@ inherited frmPrtMachInfoList: TfrmPrtMachInfoList
     TabOrder = 2
     object Tv1: TcxGridDBTableView
       Navigator.Buttons.CustomButtons = <>
+      ScrollbarAnnotations.CustomAnnotations = <>
       DataController.DataSource = DataSource1
       DataController.Summary.DefaultGroupSummaryItems = <
         item
@@ -213,6 +214,7 @@ inherited frmPrtMachInfoList: TfrmPrtMachInfoList
       object v1Column1: TcxGridDBColumn
         Caption = #37319#36141#21512#21516#21495
         DataBinding.FieldName = 'ConNo'
+        DataBinding.IsNullValueType = True
         Visible = False
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
@@ -222,12 +224,14 @@ inherited frmPrtMachInfoList: TfrmPrtMachInfoList
       object Tv1Column2: TcxGridDBColumn
         Caption = #21697#29260
         DataBinding.FieldName = 'Brand'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Width = 79
       end
       object Tv1Column1: TcxGridDBColumn
         Caption = #32534#21495
         DataBinding.FieldName = 'P_Code'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Width = 78
       end
@@ -235,6 +239,7 @@ inherited frmPrtMachInfoList: TfrmPrtMachInfoList
         Tag = 2
         Caption = #21697#21517
         DataBinding.FieldName = 'P_Name'
+        DataBinding.IsNullValueType = True
         PropertiesClassName = 'TcxButtonEditProperties'
         Properties.Buttons = <
           item
@@ -248,6 +253,7 @@ inherited frmPrtMachInfoList: TfrmPrtMachInfoList
         Tag = 2
         Caption = #35268#26684
         DataBinding.FieldName = 'P_Spec'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         HeaderGlyphAlignmentHorz = taCenter
         Width = 65
@@ -255,6 +261,7 @@ inherited frmPrtMachInfoList: TfrmPrtMachInfoList
       object v1Column10: TcxGridDBColumn
         Caption = #25209#21495
         DataBinding.FieldName = 'BatchNo'
+        DataBinding.IsNullValueType = True
         Visible = False
         HeaderAlignmentHorz = taCenter
         VisibleForCustomization = False
@@ -263,6 +270,7 @@ inherited frmPrtMachInfoList: TfrmPrtMachInfoList
       object v1Column18: TcxGridDBColumn
         Caption = #21697#29260
         DataBinding.FieldName = 'SXPinPai'
+        DataBinding.IsNullValueType = True
         Visible = False
         HeaderAlignmentHorz = taCenter
         VisibleForCustomization = False
@@ -272,6 +280,7 @@ inherited frmPrtMachInfoList: TfrmPrtMachInfoList
         Tag = 2
         Caption = #21333#20301
         DataBinding.FieldName = 'QtyUnit'
+        DataBinding.IsNullValueType = True
         PropertiesClassName = 'TcxComboBoxProperties'
         Properties.DropDownListStyle = lsFixedList
         Properties.Items.Strings = (
@@ -284,12 +293,14 @@ inherited frmPrtMachInfoList: TfrmPrtMachInfoList
       object v1Column9: TcxGridDBColumn
         Caption = #21333#20215
         DataBinding.FieldName = 'Price'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Width = 71
       end
       object v1Column17: TcxGridDBColumn
         Caption = #36816#36153
         DataBinding.FieldName = 'YunFei'
+        DataBinding.IsNullValueType = True
         Visible = False
         HeaderAlignmentHorz = taCenter
         VisibleForCustomization = False
@@ -299,6 +310,7 @@ inherited frmPrtMachInfoList: TfrmPrtMachInfoList
         Tag = 2
         Caption = #22791#27880
         DataBinding.FieldName = 'Note'
+        DataBinding.IsNullValueType = True
         Width = 102
       end
     end

B03基础物料仓库/U_PrtMachInfoList.pas

@@ -12,7 +12,8 @@ uses
   cxDropDownEdit, cxCheckBox, RM_Common, RM_Class, RM_e_Xls, RM_Dataset,
   RM_System, RM_GridReport, Menus, cxCalendar, cxButtonEdit, cxTextEdit, cxPC,
   cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxBarBuiltInMenu,
-  dxSkinsCore, dxSkinsDefaultPainters, dxDateRanges, U_BaseList;
+  dxSkinsCore, dxSkinsDefaultPainters, dxDateRanges, U_BaseList,
+  dxScrollbarAnnotations;
 
 type
   TfrmPrtMachInfoList = class(TfrmBaseList)