产品 检验

A02基础产品管理/ClothInfo.dproj

@@ -4,7 +4,7 @@
         <MainSource>ClothInfo.dpr</MainSource>
         <Base>True</Base>
         <Config Condition="'$(Config)'==''">Debug</Config>
-        <TargetedPlatforms>38017</TargetedPlatforms>
+        <TargetedPlatforms>1</TargetedPlatforms>
         <AppType>Library</AppType>
         <FrameworkType>VCL</FrameworkType>
         <ProjectVersion>19.2</ProjectVersion>
@@ -13,16 +13,6 @@
     <PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
         <Base>true</Base>
     </PropertyGroup>
-    <PropertyGroup Condition="('$(Platform)'=='Android64' and '$(Base)'=='true') or '$(Base_Android64)'!=''">
-        <Base_Android64>true</Base_Android64>
-        <CfgParent>Base</CfgParent>
-        <Base>true</Base>
-    </PropertyGroup>
-    <PropertyGroup Condition="('$(Platform)'=='iOSDevice64' and '$(Base)'=='true') or '$(Base_iOSDevice64)'!=''">
-        <Base_iOSDevice64>true</Base_iOSDevice64>
-        <CfgParent>Base</CfgParent>
-        <Base>true</Base>
-    </PropertyGroup>
     <PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Base)'=='true') or '$(Base_Win32)'!=''">
         <Base_Win32>true</Base_Win32>
         <CfgParent>Base</CfgParent>
@@ -43,24 +33,6 @@
         <CfgParent>Base</CfgParent>
         <Base>true</Base>
     </PropertyGroup>
-    <PropertyGroup Condition="('$(Platform)'=='Android64' and '$(Cfg_2)'=='true') or '$(Cfg_2_Android64)'!=''">
-        <Cfg_2_Android64>true</Cfg_2_Android64>
-        <CfgParent>Cfg_2</CfgParent>
-        <Cfg_2>true</Cfg_2>
-        <Base>true</Base>
-    </PropertyGroup>
-    <PropertyGroup Condition="('$(Platform)'=='iOSDevice64' and '$(Cfg_2)'=='true') or '$(Cfg_2_iOSDevice64)'!=''">
-        <Cfg_2_iOSDevice64>true</Cfg_2_iOSDevice64>
-        <CfgParent>Cfg_2</CfgParent>
-        <Cfg_2>true</Cfg_2>
-        <Base>true</Base>
-    </PropertyGroup>
-    <PropertyGroup Condition="('$(Platform)'=='OSX64' and '$(Cfg_2)'=='true') or '$(Cfg_2_OSX64)'!=''">
-        <Cfg_2_OSX64>true</Cfg_2_OSX64>
-        <CfgParent>Cfg_2</CfgParent>
-        <Cfg_2>true</Cfg_2>
-        <Base>true</Base>
-    </PropertyGroup>
     <PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Cfg_2)'=='true') or '$(Cfg_2_Win32)'!=''">
         <Cfg_2_Win32>true</Cfg_2_Win32>
         <CfgParent>Cfg_2</CfgParent>
@@ -84,13 +56,6 @@
         <VerInfo_Locale>2052</VerInfo_Locale>
         <VerInfo_Keys>CompanyName=;FileDescription=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=1.0.0.0;Comments=</VerInfo_Keys>
     </PropertyGroup>
-    <PropertyGroup Condition="'$(Base_Android64)'!=''">
-        <Android_LauncherIcon192>$(BDS)\bin\Artwork\Android\FM_LauncherIcon_192x192.png</Android_LauncherIcon192>
-        <EnabledSysJars>android-support-v4.dex.jar;cloud-messaging.dex.jar;com-google-android-gms.play-services-ads-base.17.2.0.dex.jar;com-google-android-gms.play-services-ads-identifier.16.0.0.dex.jar;com-google-android-gms.play-services-ads-lite.17.2.0.dex.jar;com-google-android-gms.play-services-ads.17.2.0.dex.jar;com-google-android-gms.play-services-analytics-impl.16.0.8.dex.jar;com-google-android-gms.play-services-analytics.16.0.8.dex.jar;com-google-android-gms.play-services-base.16.0.1.dex.jar;com-google-android-gms.play-services-basement.16.2.0.dex.jar;com-google-android-gms.play-services-gass.17.2.0.dex.jar;com-google-android-gms.play-services-identity.16.0.0.dex.jar;com-google-android-gms.play-services-maps.16.1.0.dex.jar;com-google-android-gms.play-services-measurement-base.16.4.0.dex.jar;com-google-android-gms.play-services-measurement-sdk-api.16.4.0.dex.jar;com-google-android-gms.play-services-stats.16.0.1.dex.jar;com-google-android-gms.play-services-tagmanager-v4-impl.16.0.8.dex.jar;com-google-android-gms.play-services-tasks.16.0.1.dex.jar;com-google-android-gms.play-services-wallet.16.0.1.dex.jar;com-google-firebase.firebase-analytics.16.4.0.dex.jar;com-google-firebase.firebase-common.16.1.0.dex.jar;com-google-firebase.firebase-iid-interop.16.0.1.dex.jar;com-google-firebase.firebase-iid.17.1.1.dex.jar;com-google-firebase.firebase-measurement-connector.17.0.1.dex.jar;com-google-firebase.firebase-messaging.17.5.0.dex.jar;fmx.dex.jar;google-play-billing.dex.jar;google-play-licensing.dex.jar</EnabledSysJars>
-    </PropertyGroup>
-    <PropertyGroup Condition="'$(Base_iOSDevice64)'!=''">
-        <iOS_AppStore1024>$(BDS)\bin\Artwork\iOS\iPhone\FM_ApplicationIcon_1024x1024.png</iOS_AppStore1024>
-    </PropertyGroup>
     <PropertyGroup Condition="'$(Base_Win32)'!=''">
         <DCC_Namespace>System.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace)</DCC_Namespace>
         <BT_BuildType>Debug</BT_BuildType>
@@ -113,15 +78,6 @@
         <DCC_Optimize>false</DCC_Optimize>
         <DCC_GenerateStackFrames>true</DCC_GenerateStackFrames>
     </PropertyGroup>
-    <PropertyGroup Condition="'$(Cfg_2_Android64)'!=''">
-        <BT_BuildType>Debug</BT_BuildType>
-    </PropertyGroup>
-    <PropertyGroup Condition="'$(Cfg_2_iOSDevice64)'!=''">
-        <BT_BuildType>Debug</BT_BuildType>
-    </PropertyGroup>
-    <PropertyGroup Condition="'$(Cfg_2_OSX64)'!=''">
-        <BT_BuildType>Debug</BT_BuildType>
-    </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:\D10W\项目代码\D10szGerun\A02基础产品管理\testDll.exe</Debugger_HostApplication>
@@ -228,10 +184,6 @@
                 </Source>
             </Delphi.Personality>
             <Platforms>
-                <Platform value="Android64">True</Platform>
-                <Platform value="iOSDevice64">True</Platform>
-                <Platform value="Linux64">True</Platform>
-                <Platform value="OSX64">True</Platform>
                 <Platform value="Win32">True</Platform>
                 <Platform value="Win64">False</Platform>
             </Platforms>

A02基础产品管理/ClothInfo.skincfg

@@ -3,3 +3,4 @@ Default=1
 ShowNotifications=1
 Enabled=1
 dxSkinsDefaultPainters=1
+dxSkinWXI=1

A02基础产品管理/U_DataLink.pas

@@ -5,7 +5,7 @@ interface
 uses
   SysUtils, Classes, DB, ADODB, ImgList, Controls, cxStyles, cxLookAndFeels,
   Windows, Messages, forms, OleCtnrs, DateUtils, ExtCtrls, SyncObjs, cxClasses,
-  dxSkinsCore, dxSkinsDefaultPainters, System.ImageList;
+  dxSkinsCore, dxSkinsDefaultPainters, System.ImageList, dxSkinWXI;
 
 type
   TMyThread = class(TThread)

A02基础产品管理/U_TatClothInfo.dfm

@@ -7,6 +7,7 @@ inherited frmTatClothInfo: TfrmTatClothInfo
   FormStyle = fsMDIChild
   Position = poScreenCenter
   Visible = True
+  ExplicitLeft = -64
   ExplicitWidth = 1460
   ExplicitHeight = 741
   PixelsPerInch = 96
@@ -330,6 +331,8 @@ inherited frmTatClothInfo: TfrmTatClothInfo
       Align = alClient
       PopupMenu = PM_1
       TabOrder = 0
+      ExplicitLeft = 6
+      ExplicitTop = 41
       object Tv1: TcxGridDBTableView
         Navigator.Buttons.CustomButtons = <>
         Navigator.Buttons.Delete.Enabled = False
@@ -489,6 +492,14 @@ inherited frmTatClothInfo: TfrmTatClothInfo
           Options.Editing = False
           Width = 66
         end
+        object Tv1C_Color: TcxGridDBColumn
+          Caption = #39068#33394
+          DataBinding.FieldName = 'C_Color'
+          DataBinding.IsNullValueType = True
+          HeaderAlignmentHorz = taCenter
+          Options.Editing = False
+          Width = 80
+        end
       end
       object cxGrid1Level1: TcxGridLevel
         GridView = Tv1

A02基础产品管理/U_TatClothInfo.pas

@@ -16,7 +16,7 @@ uses
   dxBarBuiltInMenu, cxPC, Math, RM_BarCode, dxSkinsCore, dxSkinsDefaultPainters,
   dxDateRanges, IdExplicitTLSClientServerBase, U_BaseList, cxContainer,
   dxDBBarCode, dxBarCode, Vcl.Clipbrd, cxTextEdit, BtnEdit, StrUtils,
-  dxScrollbarAnnotations;
+  dxScrollbarAnnotations, dxSkinWXI;
 
 type
   FdDy = record
@@ -120,6 +120,7 @@ type
     Tv1Column4: TcxGridDBColumn;
     Tv1Column8: TcxGridDBColumn;
     ToolButton4: TToolButton;
+    Tv1C_Color: TcxGridDBColumn;
     procedure FormClose(Sender: TObject; var Action: TCloseAction);
     procedure TBCloseClick(Sender: TObject);
     procedure TBDelClick(Sender: TObject);

A02基础产品管理/U_TatClothInfoInput.dfm

@@ -72,7 +72,6 @@ object frmTatClothInfoInput: TfrmTatClothInfoInput
     ParentColor = False
     ParentCtl3D = False
     TabOrder = 1
-    ExplicitTop = 44
     object Label1: TLabel
       Left = 31
       Top = 11
@@ -243,6 +242,19 @@ object frmTatClothInfoInput: TfrmTatClothInfoInput
       Font.Style = [fsBold]
       ParentFont = False
     end
+    object Label11: TLabel
+      Left = 675
+      Top = 40
+      Width = 67
+      Height = 12
+      Caption = #39068'    '#33394#65306
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
     object C_Code: TEdit
       Tag = 2
       Left = 93
@@ -431,6 +443,21 @@ object frmTatClothInfoInput: TfrmTatClothInfoInput
       Height = 18
       TabOrder = 12
     end
+    object C_Color: TEdit
+      Tag = 2
+      Left = 738
+      Top = 38
+      Width = 121
+      Height = 18
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+      TabOrder = 13
+      OnKeyPress = CYColorKeyPress
+    end
   end
   object cxPageControl3: TcxPageControl
     Left = 0
@@ -447,7 +474,6 @@ object frmTatClothInfoInput: TfrmTatClothInfoInput
     TabOrder = 2
     Properties.ActivePage = cxTabSheet1
     Properties.CustomButtons.Buttons = <>
-    ExplicitTop = 231
     ClientRectBottom = 380
     ClientRectLeft = 2
     ClientRectRight = 1531
@@ -455,8 +481,6 @@ object frmTatClothInfoInput: TfrmTatClothInfoInput
     object cxTabSheet1: TcxTabSheet
       Caption = ' '#32463#32428#32433#21407#26009' '
       ImageIndex = 0
-      ExplicitTop = 22
-      ExplicitHeight = 169
       object Panel1: TPanel
         Left = 0
         Top = 0
@@ -464,8 +488,6 @@ object frmTatClothInfoInput: TfrmTatClothInfoInput
         Height = 350
         Align = alLeft
         TabOrder = 0
-        ExplicitLeft = 8
-        ExplicitHeight = 169
         object cxPageControl2: TcxPageControl
           Left = 1
           Top = 42
@@ -485,7 +507,6 @@ object frmTatClothInfoInput: TfrmTatClothInfoInput
           Visible = False
           Properties.CustomButtons.Buttons = <>
           Properties.Style = 6
-          ExplicitHeight = 126
           ClientRectBottom = 307
           ClientRectRight = 735
           ClientRectTop = 0
@@ -503,8 +524,6 @@ object frmTatClothInfoInput: TfrmTatClothInfoInput
           Font.Style = []
           ParentFont = False
           TabOrder = 1
-          ExplicitLeft = -2
-          ExplicitTop = 47
           object TV1: TcxGridDBTableView
             Navigator.Buttons.CustomButtons = <>
             ScrollbarAnnotations.CustomAnnotations = <>
@@ -645,7 +664,7 @@ object frmTatClothInfoInput: TfrmTatClothInfoInput
             Tag = 1
             Left = 185
             Top = 1
-            Width = 273
+            Width = 237
             Height = 39
             Align = alLeft
             AutoSize = True
@@ -701,9 +720,6 @@ object frmTatClothInfoInput: TfrmTatClothInfoInput
         Height = 350
         Align = alClient
         TabOrder = 1
-        ExplicitTop = 225
-        ExplicitWidth = 796
-        ExplicitHeight = 382
         object cxPageControl1: TcxPageControl
           Left = 1
           Top = 42
@@ -723,7 +739,6 @@ object frmTatClothInfoInput: TfrmTatClothInfoInput
           Visible = False
           Properties.CustomButtons.Buttons = <>
           Properties.Style = 6
-          ExplicitHeight = 126
           ClientRectBottom = 307
           ClientRectRight = 790
           ClientRectTop = 0
@@ -741,7 +756,6 @@ object frmTatClothInfoInput: TfrmTatClothInfoInput
           Font.Style = []
           ParentFont = False
           TabOrder = 1
-          ExplicitHeight = 126
           object Tv2: TcxGridDBTableView
             Navigator.Buttons.CustomButtons = <>
             ScrollbarAnnotations.CustomAnnotations = <>
@@ -887,7 +901,7 @@ object frmTatClothInfoInput: TfrmTatClothInfoInput
             Tag = 1
             Left = 185
             Top = 1
-            Width = 273
+            Width = 237
             Height = 39
             Align = alLeft
             AutoSize = True
@@ -940,7 +954,6 @@ object frmTatClothInfoInput: TfrmTatClothInfoInput
     object cxTabSheet2: TcxTabSheet
       Caption = ' '#32441#29256#22270' '
       ImageIndex = 1
-      ExplicitLeft = 3
       object Panel7: TPanel
         Left = 0
         Top = 0
@@ -948,8 +961,6 @@ object frmTatClothInfoInput: TfrmTatClothInfoInput
         Height = 350
         Align = alClient
         TabOrder = 0
-        ExplicitWidth = 1536
-        ExplicitHeight = 259
         object Label35: TLabel
           Left = 30
           Top = 17
@@ -1999,7 +2010,6 @@ object frmTatClothInfoInput: TfrmTatClothInfoInput
     object cxTabSheet3: TcxTabSheet
       Caption = ' '#36215#32508#24037#33402#21333' '
       ImageIndex = 2
-      ExplicitLeft = 4
       object Panel8: TPanel
         Left = 0
         Top = 0
@@ -2007,7 +2017,6 @@ object frmTatClothInfoInput: TfrmTatClothInfoInput
         Height = 41
         Align = alTop
         TabOrder = 0
-        ExplicitTop = 8
         object Label73: TLabel
           Left = 25
           Top = 13
@@ -2059,8 +2068,6 @@ object frmTatClothInfoInput: TfrmTatClothInfoInput
         Font.Style = []
         ParentFont = False
         TabOrder = 1
-        ExplicitWidth = 1536
-        ExplicitHeight = 218
         object TV3: TcxGridDBTableView
           Navigator.Buttons.CustomButtons = <>
           ScrollbarAnnotations.CustomAnnotations = <>

A02基础产品管理/U_TatClothInfoInput.pas

@@ -11,7 +11,7 @@ uses
   cxButtonEdit, StdCtrls, ExtCtrls, cxCurrencyEdit, BtnEdit, U_BaseList,
   cxLookAndFeels, cxLookAndFeelPainters, dxSkinsCore, dxSkinsDefaultPainters,
   cxNavigator, dxDateRanges, dxBarBuiltInMenu, cxPC, dxScrollbarAnnotations,
-  cxCheckBox;
+  cxCheckBox, dxSkinWXI;
 
 type
   TfrmTatClothInfoInput = class(TForm)
@@ -215,6 +215,8 @@ type
     cxGridLevel3: TcxGridLevel;
     CDS_3: TClientDataSet;
     DS_3: TDataSource;
+    C_Color: TEdit;
+    Label11: TLabel;
     procedure FormShow(Sender: TObject);
     procedure TBCloseClick(Sender: TObject);
     procedure ToolButton1Click(Sender: TObject);

E03梭织坯布检验/TatInsp.dpr

@@ -28,7 +28,8 @@ uses
   U_LabelMapSet in '..\A00通用窗体\U_LabelMapSet.pas' {frmLabelMapSet},
   U_LabelPrint in '..\A00通用窗体\U_LabelPrint.pas' {frmLabelPrint},
   U_TatClothInfoSel in '..\A00通用窗体\U_TatClothInfoSel.pas' {frmTatClothInfoSel},
-  uSZHN_JSON in '..\..\..\public10\ThreeFun\Fun\uSZHN_JSON.pas';
+  uSZHN_JSON in '..\..\..\public10\ThreeFun\Fun\uSZHN_JSON.pas',
+  U_SCPersonColor5 in 'U_SCPersonColor5.pas' {frmSCPersonColor5};
 
 {$R *.res}
 

E03梭织坯布检验/TatInsp.dproj

@@ -4,7 +4,7 @@
         <MainSource>TatInsp.dpr</MainSource>
         <Base>True</Base>
         <Config Condition="'$(Config)'==''">Debug</Config>
-        <TargetedPlatforms>38017</TargetedPlatforms>
+        <TargetedPlatforms>1</TargetedPlatforms>
         <AppType>Library</AppType>
         <FrameworkType>VCL</FrameworkType>
         <ProjectVersion>19.2</ProjectVersion>
@@ -13,16 +13,6 @@
     <PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
         <Base>true</Base>
     </PropertyGroup>
-    <PropertyGroup Condition="('$(Platform)'=='Android64' and '$(Base)'=='true') or '$(Base_Android64)'!=''">
-        <Base_Android64>true</Base_Android64>
-        <CfgParent>Base</CfgParent>
-        <Base>true</Base>
-    </PropertyGroup>
-    <PropertyGroup Condition="('$(Platform)'=='iOSDevice64' and '$(Base)'=='true') or '$(Base_iOSDevice64)'!=''">
-        <Base_iOSDevice64>true</Base_iOSDevice64>
-        <CfgParent>Base</CfgParent>
-        <Base>true</Base>
-    </PropertyGroup>
     <PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Base)'=='true') or '$(Base_Win32)'!=''">
         <Base_Win32>true</Base_Win32>
         <CfgParent>Base</CfgParent>
@@ -43,24 +33,6 @@
         <CfgParent>Base</CfgParent>
         <Base>true</Base>
     </PropertyGroup>
-    <PropertyGroup Condition="('$(Platform)'=='Android64' and '$(Cfg_2)'=='true') or '$(Cfg_2_Android64)'!=''">
-        <Cfg_2_Android64>true</Cfg_2_Android64>
-        <CfgParent>Cfg_2</CfgParent>
-        <Cfg_2>true</Cfg_2>
-        <Base>true</Base>
-    </PropertyGroup>
-    <PropertyGroup Condition="('$(Platform)'=='iOSDevice64' and '$(Cfg_2)'=='true') or '$(Cfg_2_iOSDevice64)'!=''">
-        <Cfg_2_iOSDevice64>true</Cfg_2_iOSDevice64>
-        <CfgParent>Cfg_2</CfgParent>
-        <Cfg_2>true</Cfg_2>
-        <Base>true</Base>
-    </PropertyGroup>
-    <PropertyGroup Condition="('$(Platform)'=='OSX64' and '$(Cfg_2)'=='true') or '$(Cfg_2_OSX64)'!=''">
-        <Cfg_2_OSX64>true</Cfg_2_OSX64>
-        <CfgParent>Cfg_2</CfgParent>
-        <Cfg_2>true</Cfg_2>
-        <Base>true</Base>
-    </PropertyGroup>
     <PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Cfg_2)'=='true') or '$(Cfg_2_Win32)'!=''">
         <Cfg_2_Win32>true</Cfg_2_Win32>
         <CfgParent>Cfg_2</CfgParent>
@@ -84,13 +56,6 @@
         <VerInfo_Locale>2052</VerInfo_Locale>
         <VerInfo_Keys>CompanyName=;FileDescription=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=1.0.0.0;Comments=</VerInfo_Keys>
     </PropertyGroup>
-    <PropertyGroup Condition="'$(Base_Android64)'!=''">
-        <Android_LauncherIcon192>$(BDS)\bin\Artwork\Android\FM_LauncherIcon_192x192.png</Android_LauncherIcon192>
-        <EnabledSysJars>android-support-v4.dex.jar;cloud-messaging.dex.jar;com-google-android-gms.play-services-ads-base.17.2.0.dex.jar;com-google-android-gms.play-services-ads-identifier.16.0.0.dex.jar;com-google-android-gms.play-services-ads-lite.17.2.0.dex.jar;com-google-android-gms.play-services-ads.17.2.0.dex.jar;com-google-android-gms.play-services-analytics-impl.16.0.8.dex.jar;com-google-android-gms.play-services-analytics.16.0.8.dex.jar;com-google-android-gms.play-services-base.16.0.1.dex.jar;com-google-android-gms.play-services-basement.16.2.0.dex.jar;com-google-android-gms.play-services-gass.17.2.0.dex.jar;com-google-android-gms.play-services-identity.16.0.0.dex.jar;com-google-android-gms.play-services-maps.16.1.0.dex.jar;com-google-android-gms.play-services-measurement-base.16.4.0.dex.jar;com-google-android-gms.play-services-measurement-sdk-api.16.4.0.dex.jar;com-google-android-gms.play-services-stats.16.0.1.dex.jar;com-google-android-gms.play-services-tagmanager-v4-impl.16.0.8.dex.jar;com-google-android-gms.play-services-tasks.16.0.1.dex.jar;com-google-android-gms.play-services-wallet.16.0.1.dex.jar;com-google-firebase.firebase-analytics.16.4.0.dex.jar;com-google-firebase.firebase-common.16.1.0.dex.jar;com-google-firebase.firebase-iid-interop.16.0.1.dex.jar;com-google-firebase.firebase-iid.17.1.1.dex.jar;com-google-firebase.firebase-measurement-connector.17.0.1.dex.jar;com-google-firebase.firebase-messaging.17.5.0.dex.jar;fmx.dex.jar;google-play-billing.dex.jar;google-play-licensing.dex.jar</EnabledSysJars>
-    </PropertyGroup>
-    <PropertyGroup Condition="'$(Base_iOSDevice64)'!=''">
-        <iOS_AppStore1024>$(BDS)\bin\Artwork\iOS\iPhone\FM_ApplicationIcon_1024x1024.png</iOS_AppStore1024>
-    </PropertyGroup>
     <PropertyGroup Condition="'$(Base_Win32)'!=''">
         <DCC_Namespace>System.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace)</DCC_Namespace>
         <BT_BuildType>Debug</BT_BuildType>
@@ -113,15 +78,6 @@
         <DCC_Optimize>false</DCC_Optimize>
         <DCC_GenerateStackFrames>true</DCC_GenerateStackFrames>
     </PropertyGroup>
-    <PropertyGroup Condition="'$(Cfg_2_Android64)'!=''">
-        <BT_BuildType>Debug</BT_BuildType>
-    </PropertyGroup>
-    <PropertyGroup Condition="'$(Cfg_2_iOSDevice64)'!=''">
-        <BT_BuildType>Debug</BT_BuildType>
-    </PropertyGroup>
-    <PropertyGroup Condition="'$(Cfg_2_OSX64)'!=''">
-        <BT_BuildType>Debug</BT_BuildType>
-    </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:\D10W\项目代码\D10szGerun\E03梭织坯布检验\testDll.exe</Debugger_HostApplication>
@@ -194,6 +150,10 @@
             <FormType>dfm</FormType>
         </DCCReference>
         <DCCReference Include="..\..\..\public10\ThreeFun\Fun\uSZHN_JSON.pas"/>
+        <DCCReference Include="U_SCPersonColor5.pas">
+            <Form>frmSCPersonColor5</Form>
+            <FormType>dfm</FormType>
+        </DCCReference>
         <BuildConfiguration Include="Debug">
             <Key>Cfg_2</Key>
             <CfgParent>Base</CfgParent>
@@ -216,10 +176,6 @@
                 </Source>
             </Delphi.Personality>
             <Platforms>
-                <Platform value="Android64">True</Platform>
-                <Platform value="iOSDevice64">True</Platform>
-                <Platform value="Linux64">True</Platform>
-                <Platform value="OSX64">True</Platform>
                 <Platform value="Win32">True</Platform>
                 <Platform value="Win64">False</Platform>
             </Platforms>

E03梭织坯布检验/TatInsp.skincfg

@@ -3,3 +3,4 @@ Default=1
 ShowNotifications=1
 Enabled=1
 dxSkinsDefaultPainters=1
+dxSkinWXI=1

E03梭织坯布检验/U_DataLink.pas

@@ -5,7 +5,7 @@ interface
 uses
   SysUtils, Classes, DB, ADODB, ImgList, Controls, cxStyles, cxLookAndFeels,
   Windows, Messages, forms, OleCtnrs, DateUtils, ExtCtrls, SyncObjs, cxClasses,
-  dxSkinsCore, dxSkinsDefaultPainters, System.ImageList;
+  dxSkinsCore, dxSkinsDefaultPainters, System.ImageList, dxSkinWXI;
 
 type
   TMyThread = class(TThread)

E03梭织坯布检验/U_SCPersonColor3.pas

@@ -6,7 +6,8 @@ uses
   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
   Dialogs, Buttons, DB, ADODB, StdCtrls, cxGraphics, cxControls, cxLookAndFeels,
   cxLookAndFeelPainters, cxContainer, cxEdit, dxSkinsCore,
-  dxSkinsDefaultPainters, cxTextEdit, Vcl.Touch.Keyboard, Vcl.ExtCtrls;
+  dxSkinsDefaultPainters, cxTextEdit, Vcl.Touch.Keyboard, Vcl.ExtCtrls,
+  dxSkinWXI;
 
 type
   TfrmSCPersonColor3 = class(TForm)
@@ -119,10 +120,12 @@ begin
   begin
     Close;
     sql.Clear;
-    sql.Add('select AA.*,row_number () over (order by name) as keyNo from(select DISTINCT C_NAME as name from Bs_CLOTH_INFO  ');
+    sql.Add('select AA.*,row_number () over (order by code) as keyNo from(select DISTINCT C_CODE as code from Bs_CLOTH_INFO  ');
+    //sql.Add('select AA.*,row_number () over (order by name) as keyNo from(select DISTINCT C_NAME as name from Bs_CLOTH_INFO  ');
     if C_NAME.Text <> '' then
     begin
-      SQL.Add(' WHERE  C_NAME LIKE  ' + QUOTEDSTR('%' + C_NAME.Text + '%'));
+      //SQL.Add(' WHERE  C_NAME LIKE  ' + QUOTEDSTR('%' + C_NAME.Text + '%'));
+      SQL.Add(' WHERE  C_CODE LIKE  ' + QUOTEDSTR('%' + C_NAME.Text + '%'));
     end;
 
     SQL.Add(')AA');
@@ -146,7 +149,8 @@ begin
       begin
 //        application.MessageBox(pchar(CDS_Kuang.FieldByName('ZDYName').AsString), 'ÌáʾÐÅÏ¢', 0);
         TSpeedButton(Controls[i]).Visible := True;
-        TSpeedButton(Controls[i]).Caption := Trim(ADOTmp.FieldByName('name').AsString);
+        //TSpeedButton(Controls[i]).Caption := Trim(ADOTmp.FieldByName('name').AsString);
+        TSpeedButton(Controls[i]).Caption := Trim(ADOTmp.FieldByName('CODE').AsString);
       end
       else
       begin
@@ -296,14 +300,15 @@ begin
       begin
         Close;
         Sql.Clear;
-        sql.Add('delete bs_cloth_info where C_Name=' + quotedstr(sCap));
+        //sql.Add('delete bs_cloth_info where C_Name=' + quotedstr(sCap));
-
+        sql.Add('delete bs_cloth_info where C_Code=' + quotedstr(sCap));
         sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( ');
         sql.Add(' ' + quotedstr(trim(DName)));
         sql.Add(',getdate() ');
         sql.Add(',' + quotedstr(trim(self.Caption)));
         sql.Add(',' + quotedstr(trim('ÑùƷɾ³ý')));
-        sql.Add(',' + quotedstr(trim('Ãû³Æ£º' + trim(sCap))));
+        sql.Add(',' + quotedstr(trim('±àºÅ£º' + trim(sCap))));
+        //sql.Add(',' + quotedstr(trim('Ãû³Æ£º' + trim(sCap))));
         sql.Add(',' + quotedstr(trim('³É¹¦')));
         sql.Add(')');
 
@@ -428,7 +433,8 @@ begin
     panel1.Visible := false;
     kz.Text := '';
     mf.Text := '';
-    FName := Trim(name2.Text);
+    //FName := Trim(name2.Text);
+    FName := Trim(Code.Text);
     name2.Text := '';
     code.Text := '';
 

E03梭织坯布检验/U_SCPersonColor5.dfm

@@ -0,0 +1,919 @@
+object frmSCPersonColor5: TfrmSCPersonColor5
+  Left = 608
+  Top = 59
+  Caption = #25968#25454#36873#25321
+  ClientHeight = 688
+  ClientWidth = 995
+  Color = clBtnFace
+  Font.Charset = GB2312_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -12
+  Font.Name = #23435#20307
+  Font.Style = []
+  OldCreateOrder = False
+  Position = poScreenCenter
+  OnClose = FormClose
+  OnDestroy = FormDestroy
+  OnShow = FormShow
+  PixelsPerInch = 96
+  TextHeight = 12
+  object ScrollBox1: TScrollBox
+    Left = 0
+    Top = 0
+    Width = 995
+    Height = 688
+    Align = alClient
+    TabOrder = 0
+    object btn58: TSpeedButton
+      Left = 19
+      Top = 64
+      Width = 128
+      Height = 100
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -16
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+      Visible = False
+      OnClick = btn1Click
+      OnMouseDown = btn58MouseDown
+      OnMouseLeave = btn58MouseLeave
+      OnMouseUp = btn58MouseUp
+    end
+    object btn9: TSpeedButton
+      Left = 157
+      Top = 64
+      Width = 128
+      Height = 100
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -16
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+      Visible = False
+      OnClick = btn1Click
+      OnMouseDown = btn58MouseDown
+      OnMouseLeave = btn58MouseLeave
+      OnMouseUp = btn58MouseUp
+    end
+    object btn10: TSpeedButton
+      Left = 295
+      Top = 64
+      Width = 128
+      Height = 100
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -16
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+      Visible = False
+      OnClick = btn1Click
+      OnMouseDown = btn58MouseDown
+      OnMouseLeave = btn58MouseLeave
+      OnMouseUp = btn58MouseUp
+    end
+    object btn11: TSpeedButton
+      Left = 433
+      Top = 64
+      Width = 128
+      Height = 100
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -16
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+      Visible = False
+      OnClick = btn1Click
+      OnMouseDown = btn58MouseDown
+      OnMouseLeave = btn58MouseLeave
+      OnMouseUp = btn58MouseUp
+    end
+    object btn12: TSpeedButton
+      Left = 571
+      Top = 64
+      Width = 128
+      Height = 100
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -16
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+      Visible = False
+      OnClick = btn1Click
+      OnMouseDown = btn58MouseDown
+      OnMouseLeave = btn58MouseLeave
+      OnMouseUp = btn58MouseUp
+    end
+    object btn34: TSpeedButton
+      Left = 709
+      Top = 64
+      Width = 128
+      Height = 100
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -16
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+      Visible = False
+      OnClick = btn1Click
+      OnMouseDown = btn58MouseDown
+      OnMouseLeave = btn58MouseLeave
+      OnMouseUp = btn58MouseUp
+    end
+    object btn35: TSpeedButton
+      Left = 847
+      Top = 64
+      Width = 128
+      Height = 100
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -16
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+      Visible = False
+      OnClick = btn1Click
+      OnMouseDown = btn58MouseDown
+      OnMouseLeave = btn58MouseLeave
+      OnMouseUp = btn58MouseUp
+    end
+    object btn59: TSpeedButton
+      Left = 19
+      Top = 174
+      Width = 128
+      Height = 100
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -16
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+      Visible = False
+      OnClick = btn1Click
+      OnMouseDown = btn58MouseDown
+      OnMouseLeave = btn58MouseLeave
+      OnMouseUp = btn58MouseUp
+    end
+    object btn16: TSpeedButton
+      Left = 157
+      Top = 174
+      Width = 128
+      Height = 100
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -16
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+      Visible = False
+      OnClick = btn1Click
+      OnMouseDown = btn58MouseDown
+      OnMouseLeave = btn58MouseLeave
+      OnMouseUp = btn58MouseUp
+    end
+    object btn17: TSpeedButton
+      Left = 295
+      Top = 174
+      Width = 128
+      Height = 100
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -16
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+      Visible = False
+      OnClick = btn1Click
+      OnMouseDown = btn58MouseDown
+      OnMouseLeave = btn58MouseLeave
+      OnMouseUp = btn58MouseUp
+    end
+    object btn18: TSpeedButton
+      Left = 433
+      Top = 174
+      Width = 128
+      Height = 100
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -16
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+      Visible = False
+      OnClick = btn1Click
+      OnMouseDown = btn58MouseDown
+      OnMouseLeave = btn58MouseLeave
+      OnMouseUp = btn58MouseUp
+    end
+    object btn19: TSpeedButton
+      Left = 571
+      Top = 174
+      Width = 128
+      Height = 100
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -16
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+      Visible = False
+      OnClick = btn1Click
+      OnMouseDown = btn58MouseDown
+      OnMouseLeave = btn58MouseLeave
+      OnMouseUp = btn58MouseUp
+    end
+    object btn36: TSpeedButton
+      Left = 709
+      Top = 174
+      Width = 128
+      Height = 100
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -16
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+      Visible = False
+      OnClick = btn1Click
+      OnMouseDown = btn58MouseDown
+      OnMouseLeave = btn58MouseLeave
+      OnMouseUp = btn58MouseUp
+    end
+    object btn37: TSpeedButton
+      Left = 847
+      Top = 174
+      Width = 128
+      Height = 100
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -16
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+      Visible = False
+      OnClick = btn1Click
+      OnMouseDown = btn58MouseDown
+      OnMouseLeave = btn58MouseLeave
+      OnMouseUp = btn58MouseUp
+    end
+    object btn60: TSpeedButton
+      Left = 19
+      Top = 284
+      Width = 128
+      Height = 100
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -16
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+      Visible = False
+      OnClick = btn1Click
+      OnMouseDown = btn58MouseDown
+      OnMouseLeave = btn58MouseLeave
+      OnMouseUp = btn58MouseUp
+    end
+    object btn23: TSpeedButton
+      Left = 157
+      Top = 284
+      Width = 128
+      Height = 100
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -16
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+      Visible = False
+      OnClick = btn1Click
+      OnMouseDown = btn58MouseDown
+      OnMouseLeave = btn58MouseLeave
+      OnMouseUp = btn58MouseUp
+    end
+    object btn24: TSpeedButton
+      Left = 295
+      Top = 284
+      Width = 128
+      Height = 100
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -16
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+      Visible = False
+      OnClick = btn1Click
+      OnMouseDown = btn58MouseDown
+      OnMouseLeave = btn58MouseLeave
+      OnMouseUp = btn58MouseUp
+    end
+    object btn25: TSpeedButton
+      Left = 433
+      Top = 284
+      Width = 128
+      Height = 100
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -16
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+      Visible = False
+      OnClick = btn1Click
+      OnMouseDown = btn58MouseDown
+      OnMouseLeave = btn58MouseLeave
+      OnMouseUp = btn58MouseUp
+    end
+    object btn26: TSpeedButton
+      Left = 571
+      Top = 284
+      Width = 128
+      Height = 100
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -16
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+      Visible = False
+      OnClick = btn1Click
+      OnMouseDown = btn58MouseDown
+      OnMouseLeave = btn58MouseLeave
+      OnMouseUp = btn58MouseUp
+    end
+    object btn38: TSpeedButton
+      Left = 709
+      Top = 284
+      Width = 128
+      Height = 100
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -16
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+      Visible = False
+      OnClick = btn1Click
+      OnMouseDown = btn58MouseDown
+      OnMouseLeave = btn58MouseLeave
+      OnMouseUp = btn58MouseUp
+    end
+    object btn39: TSpeedButton
+      Left = 847
+      Top = 284
+      Width = 128
+      Height = 100
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -16
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+      Visible = False
+      OnClick = btn1Click
+      OnMouseDown = btn58MouseDown
+      OnMouseLeave = btn58MouseLeave
+      OnMouseUp = btn58MouseUp
+    end
+    object btn61: TSpeedButton
+      Left = 19
+      Top = 394
+      Width = 128
+      Height = 100
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -16
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+      Visible = False
+      OnClick = btn1Click
+      OnMouseDown = btn58MouseDown
+      OnMouseLeave = btn58MouseLeave
+      OnMouseUp = btn58MouseUp
+    end
+    object btn30: TSpeedButton
+      Left = 157
+      Top = 394
+      Width = 128
+      Height = 100
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -16
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+      Visible = False
+      OnClick = btn1Click
+      OnMouseDown = btn58MouseDown
+      OnMouseLeave = btn58MouseLeave
+      OnMouseUp = btn58MouseUp
+    end
+    object btn31: TSpeedButton
+      Left = 295
+      Top = 394
+      Width = 128
+      Height = 100
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -16
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+      Visible = False
+      OnClick = btn1Click
+      OnMouseDown = btn58MouseDown
+      OnMouseLeave = btn58MouseLeave
+      OnMouseUp = btn58MouseUp
+    end
+    object btn32: TSpeedButton
+      Left = 433
+      Top = 394
+      Width = 128
+      Height = 100
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -16
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+      Visible = False
+      OnClick = btn1Click
+      OnMouseDown = btn58MouseDown
+      OnMouseLeave = btn58MouseLeave
+      OnMouseUp = btn58MouseUp
+    end
+    object btn33: TSpeedButton
+      Left = 571
+      Top = 394
+      Width = 128
+      Height = 100
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -16
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+      Visible = False
+      OnClick = btn1Click
+      OnMouseDown = btn58MouseDown
+      OnMouseLeave = btn58MouseLeave
+      OnMouseUp = btn58MouseUp
+    end
+    object btn40: TSpeedButton
+      Left = 709
+      Top = 394
+      Width = 128
+      Height = 100
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -16
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+      Visible = False
+      OnClick = btn1Click
+      OnMouseDown = btn58MouseDown
+      OnMouseLeave = btn58MouseLeave
+      OnMouseUp = btn58MouseUp
+    end
+    object btn41: TSpeedButton
+      Left = 847
+      Top = 394
+      Width = 128
+      Height = 100
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -16
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+      Visible = False
+      OnClick = btn1Click
+      OnMouseDown = btn58MouseDown
+      OnMouseLeave = btn58MouseLeave
+      OnMouseUp = btn58MouseUp
+    end
+    object btn42: TSpeedButton
+      Left = 19
+      Top = 504
+      Width = 128
+      Height = 100
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -16
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+      Visible = False
+      OnClick = btn1Click
+      OnMouseDown = btn58MouseDown
+      OnMouseLeave = btn58MouseLeave
+      OnMouseUp = btn58MouseUp
+    end
+    object btn43: TSpeedButton
+      Left = 157
+      Top = 504
+      Width = 128
+      Height = 100
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -16
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+      Visible = False
+      OnClick = btn1Click
+      OnMouseDown = btn58MouseDown
+      OnMouseLeave = btn58MouseLeave
+      OnMouseUp = btn58MouseUp
+    end
+    object btn44: TSpeedButton
+      Left = 295
+      Top = 504
+      Width = 128
+      Height = 100
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -16
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+      Visible = False
+      OnClick = btn1Click
+      OnMouseDown = btn58MouseDown
+      OnMouseLeave = btn58MouseLeave
+      OnMouseUp = btn58MouseUp
+    end
+    object btn45: TSpeedButton
+      Left = 433
+      Top = 504
+      Width = 128
+      Height = 100
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -16
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+      Visible = False
+      OnClick = btn1Click
+      OnMouseDown = btn58MouseDown
+      OnMouseLeave = btn58MouseLeave
+      OnMouseUp = btn58MouseUp
+    end
+    object btn46: TSpeedButton
+      Left = 571
+      Top = 504
+      Width = 128
+      Height = 100
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -16
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+      Visible = False
+      OnClick = btn1Click
+      OnMouseDown = btn58MouseDown
+      OnMouseLeave = btn58MouseLeave
+      OnMouseUp = btn58MouseUp
+    end
+    object btn47: TSpeedButton
+      Left = 709
+      Top = 504
+      Width = 128
+      Height = 100
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -16
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+      Visible = False
+      OnClick = btn1Click
+      OnMouseDown = btn58MouseDown
+      OnMouseLeave = btn58MouseLeave
+      OnMouseUp = btn58MouseUp
+    end
+    object btn48: TSpeedButton
+      Left = 847
+      Top = 504
+      Width = 128
+      Height = 100
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -16
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+      Visible = False
+      OnClick = btn1Click
+      OnMouseDown = btn58MouseDown
+      OnMouseLeave = btn58MouseLeave
+      OnMouseUp = btn58MouseUp
+    end
+    object Label27: TLabel
+      Left = 434
+      Top = 636
+      Width = 78
+      Height = 21
+      Caption = #24403#21069#39029':'
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clRed
+      Font.Height = -21
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label1: TLabel
+      Left = 528
+      Top = 635
+      Width = 12
+      Height = 21
+      Caption = '1'
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clRed
+      Font.Height = -21
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Button3: TButton
+      Left = 593
+      Top = 619
+      Width = 148
+      Height = 60
+      Caption = #19979#19968#39029
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -27
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+      TabOrder = 0
+      OnClick = Button3Click
+    end
+    object Button1: TButton
+      Left = 253
+      Top = 621
+      Width = 148
+      Height = 60
+      Caption = #19978#19968#39029
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -27
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+      TabOrder = 1
+      OnClick = Button1Click
+    end
+    object c_name: TcxTextEdit
+      Left = 25
+      Top = 16
+      ParentFont = False
+      Properties.OnChange = c_namePropertiesChange
+      Style.Font.Charset = GB2312_CHARSET
+      Style.Font.Color = clWindowText
+      Style.Font.Height = -21
+      Style.Font.Name = #23435#20307
+      Style.Font.Style = [fsBold]
+      Style.IsFontAssigned = True
+      TabOrder = 2
+      Width = 433
+    end
+    object TouchKeyboard1: TTouchKeyboard
+      Left = 179
+      Top = 158
+      Width = 694
+      Height = 339
+      GradientEnd = clSilver
+      GradientStart = clGray
+      Layout = 'Standard'
+      Visible = False
+    end
+    object Button2: TButton
+      Left = 488
+      Top = 3
+      Width = 121
+      Height = 43
+      Caption = #26174#31034#23567#38190#30424
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -21
+      Font.Name = #23435#20307
+      Font.Style = []
+      ParentFont = False
+      TabOrder = 4
+      Visible = False
+      OnClick = Button2Click
+    end
+    object Button4: TButton
+      Left = 632
+      Top = 3
+      Width = 121
+      Height = 43
+      Caption = #19981#26174#31034#23567#38190#30424
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -21
+      Font.Name = #23435#20307
+      Font.Style = []
+      ParentFont = False
+      TabOrder = 5
+      Visible = False
+      OnClick = Button4Click
+    end
+    object bb1: TButton
+      Left = 776
+      Top = 3
+      Width = 121
+      Height = 43
+      Caption = #22686#21152#20135#21697
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -21
+      Font.Name = #23435#20307
+      Font.Style = []
+      ParentFont = False
+      TabOrder = 6
+      Visible = False
+      OnClick = bb1Click
+    end
+  end
+  object Panel1: TPanel
+    Left = 255
+    Top = 54
+    Width = 402
+    Height = 339
+    TabOrder = 1
+    Visible = False
+    object Label2: TLabel
+      Left = 12
+      Top = 43
+      Width = 56
+      Height = 21
+      Caption = #38376#24133':'
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clRed
+      Font.Height = -21
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label3: TLabel
+      Left = 12
+      Top = 91
+      Width = 56
+      Height = 21
+      Caption = #20811#37325':'
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clRed
+      Font.Height = -21
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label4: TLabel
+      Left = 12
+      Top = 139
+      Width = 56
+      Height = 21
+      Caption = #21517#31216':'
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clRed
+      Font.Height = -21
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label5: TLabel
+      Left = 12
+      Top = 187
+      Width = 56
+      Height = 21
+      Caption = #32534#21495':'
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clRed
+      Font.Height = -21
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object MF: TcxTextEdit
+      Left = 79
+      Top = 40
+      ParentFont = False
+      Style.Font.Charset = GB2312_CHARSET
+      Style.Font.Color = clWindowText
+      Style.Font.Height = -21
+      Style.Font.Name = #23435#20307
+      Style.Font.Style = [fsBold]
+      Style.IsFontAssigned = True
+      TabOrder = 0
+      Width = 242
+    end
+    object KZ: TcxTextEdit
+      Left = 79
+      Top = 88
+      ParentFont = False
+      Style.Font.Charset = GB2312_CHARSET
+      Style.Font.Color = clWindowText
+      Style.Font.Height = -21
+      Style.Font.Name = #23435#20307
+      Style.Font.Style = [fsBold]
+      Style.IsFontAssigned = True
+      TabOrder = 1
+      Width = 242
+    end
+    object Button5: TButton
+      Left = 41
+      Top = 248
+      Width = 121
+      Height = 43
+      Caption = #30830#35748
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -21
+      Font.Name = #23435#20307
+      Font.Style = []
+      ParentFont = False
+      TabOrder = 2
+      OnClick = Button5Click
+    end
+    object NAME2: TcxTextEdit
+      Left = 74
+      Top = 136
+      ParentFont = False
+      Properties.ReadOnly = True
+      Style.Font.Charset = GB2312_CHARSET
+      Style.Font.Color = clWindowText
+      Style.Font.Height = -21
+      Style.Font.Name = #23435#20307
+      Style.Font.Style = [fsBold]
+      Style.IsFontAssigned = True
+      TabOrder = 3
+      Width = 242
+    end
+    object CODE: TcxTextEdit
+      Left = 74
+      Top = 184
+      ParentFont = False
+      Properties.ReadOnly = True
+      Style.Font.Charset = GB2312_CHARSET
+      Style.Font.Color = clWindowText
+      Style.Font.Height = -21
+      Style.Font.Name = #23435#20307
+      Style.Font.Style = [fsBold]
+      Style.IsFontAssigned = True
+      TabOrder = 4
+      Width = 242
+    end
+    object Button6: TButton
+      Left = 241
+      Top = 248
+      Width = 121
+      Height = 43
+      Caption = #21462#28040
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -21
+      Font.Name = #23435#20307
+      Font.Style = []
+      ParentFont = False
+      TabOrder = 5
+      OnClick = Button6Click
+    end
+  end
+  object ADOTmp: TADOQuery
+    Connection = DataLink_TatInsp.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 856
+    Top = 504
+  end
+  object ADOQuery1: TADOQuery
+    Connection = DataLink_TatInsp.ADOLink
+    Parameters = <>
+    Left = 967
+    Top = 119
+  end
+  object ADOCmd: TADOQuery
+    Connection = DataLink_TatInsp.ADOLink
+    Parameters = <>
+    Left = 912
+    Top = 124
+  end
+  object Timer1: TTimer
+    OnTimer = Timer1Timer
+    Left = 752
+    Top = 80
+  end
+end

E03梭织坯布检验/U_SCPersonColor5.pas

@@ -0,0 +1,483 @@
+unit U_SCPersonColor5;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, Buttons, DB, ADODB, StdCtrls, cxGraphics, cxControls, cxLookAndFeels,
+  cxLookAndFeelPainters, cxContainer, cxEdit, dxSkinsCore,
+  dxSkinsDefaultPainters, cxTextEdit, Vcl.Touch.Keyboard, Vcl.ExtCtrls,
+  dxSkinWXI;
+
+type
+  TfrmSCPersonColor5 = class(TForm)
+    ScrollBox1: TScrollBox;
+    btn58: TSpeedButton;
+    btn9: TSpeedButton;
+    btn10: TSpeedButton;
+    btn11: TSpeedButton;
+    btn12: TSpeedButton;
+    btn59: TSpeedButton;
+    btn16: TSpeedButton;
+    btn17: TSpeedButton;
+    btn18: TSpeedButton;
+    btn19: TSpeedButton;
+    btn60: TSpeedButton;
+    btn23: TSpeedButton;
+    btn24: TSpeedButton;
+    btn25: TSpeedButton;
+    btn26: TSpeedButton;
+    btn61: TSpeedButton;
+    btn30: TSpeedButton;
+    btn31: TSpeedButton;
+    btn32: TSpeedButton;
+    btn33: TSpeedButton;
+    btn34: TSpeedButton;
+    btn35: TSpeedButton;
+    btn36: TSpeedButton;
+    btn37: TSpeedButton;
+    btn38: TSpeedButton;
+    btn39: TSpeedButton;
+    btn40: TSpeedButton;
+    btn41: TSpeedButton;
+    btn42: TSpeedButton;
+    btn43: TSpeedButton;
+    btn44: TSpeedButton;
+    btn45: TSpeedButton;
+    btn46: TSpeedButton;
+    btn47: TSpeedButton;
+    btn48: TSpeedButton;
+    ADOTmp: TADOQuery;
+    Label27: TLabel;
+    Label1: TLabel;
+    Button3: TButton;
+    Button1: TButton;
+    c_name: TcxTextEdit;
+    TouchKeyboard1: TTouchKeyboard;
+    Button2: TButton;
+    Button4: TButton;
+    Panel1: TPanel;
+    bb1: TButton;
+    MF: TcxTextEdit;
+    Label2: TLabel;
+    KZ: TcxTextEdit;
+    Label3: TLabel;
+    Button5: TButton;
+    NAME2: TcxTextEdit;
+    Label4: TLabel;
+    CODE: TcxTextEdit;
+    Label5: TLabel;
+    ADOQuery1: TADOQuery;
+    ADOCmd: TADOQuery;
+    Button6: TButton;
+    Timer1: TTimer;
+    procedure FormDestroy(Sender: TObject);
+    procedure FormShow(Sender: TObject);
+    procedure btn1Click(Sender: TObject);
+    procedure FormClose(Sender: TObject; var Action: TCloseAction);
+    procedure Button1Click(Sender: TObject);
+    procedure Button3Click(Sender: TObject);
+    procedure c_namePropertiesChange(Sender: TObject);
+    procedure Button2Click(Sender: TObject);
+    procedure Button4Click(Sender: TObject);
+    procedure bb1Click(Sender: TObject);
+    procedure Button5Click(Sender: TObject);
+    procedure Button6Click(Sender: TObject);
+    procedure btn58MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
+    procedure btn58MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
+    procedure btn58MouseLeave(Sender: TObject);
+    procedure Timer1Timer(Sender: TObject);
+  private
+    CPage: Integer;
+    FMouseDown: Boolean;      // 是否鼠标按下
+    FDownTick: Cardinal;      // 按下时刻 GetTickCount
+    FPressedBtn: TSpeedButton;
+    procedure InitPerson(page: Integer);
+    function SaveData(): Boolean;
+
+    { Private declarations }
+  public
+    FlagStr: string;
+    FName, FSJZL, FType: string;
+    FName2: string;
+    { Public declarations }
+  end;
+
+var
+  frmSCPersonColor5: TfrmSCPersonColor5;
+
+implementation
+
+uses
+  U_DataLink, U_RTFun;
+
+{$R *.dfm}
+
+const
+  PER_PAGE = 35; // 每页显示的产品数（7列 x 5行按钮）
+
+procedure TfrmSCPersonColor5.FormDestroy(Sender: TObject);
+begin
+  frmSCPersonColor5 := nil;
+end;
+
+procedure TfrmSCPersonColor5.InitPerson(page: Integer);
+type
+  FdDy = record
+    inc: integer;
+    FDdys: string[32];
+    FdDysName: string[32];
+  end;
+var
+  BB: array[0..500] of FdDy;
+  i, j: Integer;
+begin
+  if ftype = '机台号' then
+  begin
+
+  end;
+  with ADOTmp do
+  begin
+    Close;
+    sql.Clear;
+    sql.Add('select AA.*,row_number () over (order by code) as keyNo from(select DISTINCT C_CODE as code, C_NAME as cname from Bs_CLOTH_INFO  ');
+    //sql.Add('select AA.*,row_number () over (order by name) as keyNo from(select DISTINCT C_NAME as name from Bs_CLOTH_INFO  ');
+    if C_NAME.Text <> '' then
+    begin
+      //SQL.Add(' WHERE  C_NAME LIKE  ' + QUOTEDSTR('%' + C_NAME.Text + '%'));
+      SQL.Add(' WHERE  C_CODE LIKE  ' + QUOTEDSTR('%' + C_NAME.Text + '%'));
+    end;
+
+    SQL.Add(')AA');
+//    showmessage(sql.text);
+    Open;
+  end;
+
+  if ADOTmp.IsEmpty then
+  begin
+    Application.MessageBox('没有定义数据！', '提示', 0);
+    Exit;
+  end;
+
+  j := (StrToInt(Label1.Caption) - 1) * PER_PAGE + 1;
+  for i := 0 to PER_PAGE - 1 do
+  begin
+
+    with ScrollBox1 do
+    begin
+      if ADOTmp.locate('keyNo', j + i, []) then
+      begin
+//        application.MessageBox(pchar(CDS_Kuang.FieldByName('ZDYName').AsString), '提示信息', 0);
+        TSpeedButton(Controls[i]).Visible := True;
+        //TSpeedButton(Controls[i]).Caption := Trim(ADOTmp.FieldByName('name').AsString);
+        TSpeedButton(Controls[i]).Caption := Trim(ADOTmp.FieldByName('CODE').AsString);
+        TSpeedButton(Controls[i]).Hint := Trim(ADOTmp.FieldByName('cname').AsString);
+      end
+      else
+      begin
+        TSpeedButton(Controls[i]).Visible := False;
+
+//        application.MessageBox(pchar('没找到' + inttostr(i)), '提示信息', 0);
+
+      end;
+
+    end;
+  end;
+
+
+//  with ADOTmp do
+//  begin
+//    First;
+//    i := 0;
+//    while not Eof do
+//    begin
+//      BB[i].inc := i;
+//      BB[i].FdDysName := Trim(fieldbyname('name').AsString);
+//      i := i + 1;
+//      Next;
+//    end;
+//  end;
+//  i := i - 1;
+//  if i > 19 then
+//  begin
+//    i := 19;
+//  end;
+//  for j := 0 to 19 do
+//  begin
+//    with ScrollBox1 do
+//    begin
+//      TSpeedButton(Controls[j]).Visible := false;
+//      TSpeedButton(Controls[j]).Caption := '';
+//      TSpeedButton(Controls[j]).Hint := '';
+//    end;
+//  end;
+//  for j := 0 to i do
+//  begin
+//    with ScrollBox1 do
+//    begin
+//      TSpeedButton(Controls[j]).Visible := True;
+//      TSpeedButton(Controls[j]).Caption := BB[j].FdDysName;
+//    end;
+//  end;
+end;
+
+function TfrmSCPersonColor5.SaveData(): Boolean;
+var
+  MaxBCIID, MaxBCPID: string;
+begin
+  try
+    ADOCmd.Connection.BeginTrans;
+////////////////       保存主表          //////////////////////
+
+    if GetLSNo(ADOCmd, MaxBCIID, 'Y', 'BS_Cloth_Info', 4, 1) = False then
+    begin
+      Result := False;
+      ADOCmd.Connection.RollbackTrans;
+      Application.MessageBox('取最大号失败！', '提示', 0);
+      Exit;
+    end;
+
+ //   BCIID.Text := trim(MaxBCIID);
+
+    with ADOCmd do
+    begin
+      Close;
+      SQL.Clear;
+      sql.Add('select * from BS_Cloth_Info where  1<>1');
+      Open;
+    end;
+    with ADOCmd do
+    begin
+
+      Append;
+      FieldByName('CTID').Value := Trim('CT2606060001');
+      FieldByName('FILLID').Value := Trim(DCode);
+      FieldByName('FILLER').Value := Trim(DName);
+      FieldByName('FILLTIME').Value := SGetServerDateTime(ADOTMP);
+
+      FieldByName('BCIID').Value := Trim(MaxBCIID);
+
+      FieldByName('C_CODE').Value := Trim(CODE.Text);
+      FieldByName('C_NAME').Value := Trim(NAME2.Text);
+      FieldByName('C_Width').Value := Trim(MF.Text);
+      FieldByName('C_GramWeight').Value := Trim(KZ.Text);
+
+      if trim(Code.Text) = '' then
+        Code.Text := Trim(MaxBCIID);
+//      RTSetsavedata(ADOQueryCmd, 'BS_Cloth_Info', ScrollBox1, 2);
+      Post;
+    end;
+
+    with ADOTmp do
+    begin
+      Close;
+      sql.Clear;
+      sql.Add('select count(*) as AA from BS_Cloth_Info where C_NAME=''' + Trim(NAME2.Text) + '''');
+      Open;
+      if FieldByName('AA').AsInteger > 1 then
+      begin
+        ADOCmd.Connection.RollbackTrans;
+        Result := False;
+        Application.MessageBox('名称重复！', '提示', 0);
+        Exit;
+      end;
+    end;
+////////////////       保存主表          //////////////////////
+///
+///
+///
+    ADOCmd.Connection.CommitTrans;
+
+    Result := True;
+  except
+    Result := False;
+    ADOCmd.Connection.RollbackTrans;
+    Application.MessageBox('保存失败!', '提示', 0);
+  end;
+end;
+
+procedure TfrmSCPersonColor5.Timer1Timer(Sender: TObject);
+const
+  LONG_PRESS_MS = 1000;
+var
+  elapse: Cardinal;
+  sCap: string;
+begin
+  if not FMouseDown then
+    Exit;
+
+  elapse := GetTickCount - FDownTick;
+  if elapse >= LONG_PRESS_MS then
+  begin
+    Timer1.Enabled := False;  //只触发一次长按
+    sCap := Trim(FPressedBtn.Caption);
+    // 弹窗前先把状态复位，防止模态消息框重入乱状态
+    FMouseDown := False;
+    FPressedBtn := nil;
+    if Application.MessageBox(PChar('确定要删除' + sCap), '提示', MB_ICONINFORMATION + MB_YESNO) = IDYES then
+    begin
+      // ========== 你的删除业务写这里 ==========
+      with ADOCmd do
+      begin
+        Close;
+        Sql.Clear;
+        //sql.Add('delete bs_cloth_info where C_Name=' + quotedstr(sCap));
+        sql.Add('delete bs_cloth_info where C_Code=' + quotedstr(sCap));
+        sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( ');
+        sql.Add(' ' + quotedstr(trim(DName)));
+        sql.Add(',getdate() ');
+        sql.Add(',' + quotedstr(trim(self.Caption)));
+        sql.Add(',' + quotedstr(trim('样品删除')));
+        sql.Add(',' + quotedstr(trim('编号：' + trim(sCap))));
+        //sql.Add(',' + quotedstr(trim('名称：' + trim(sCap))));
+        sql.Add(',' + quotedstr(trim('成功')));
+        sql.Add(')');
+
+        execsql;
+      end;
+      InitPerson(1);
+      CPage := 1;
+    end;
+
+  end;
+end;
+
+procedure TfrmSCPersonColor5.FormShow(Sender: TObject);
+begin
+  InitPerson(1);
+  CPage := 1;
+end;
+
+procedure TfrmSCPersonColor5.bb1Click(Sender: TObject);
+begin
+  panel1.Visible := true;
+end;
+
+procedure TfrmSCPersonColor5.btn1Click(Sender: TObject);
+begin
+  FName := Trim(TSpeedButton(Sender).Caption);
+  FName2 := Trim(TSpeedButton(Sender).Hint);
+  ModalResult := 1;
+end;
+
+procedure TfrmSCPersonColor5.btn58MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
+begin
+  if Button = mbLeft then
+  begin
+    FMouseDown := True;
+    FDownTick := GetTickCount;
+    FPressedBtn := TSpeedButton(Sender); // ?这里拿到真正的按钮
+    Timer1.Enabled := True;
+  end;
+end;
+
+procedure TfrmSCPersonColor5.btn58MouseLeave(Sender: TObject);
+begin
+  FMouseDown := False;
+  Timer1.Enabled := False;
+  FPressedBtn := nil;
+end;
+
+procedure TfrmSCPersonColor5.btn58MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
+begin
+  FMouseDown := False;
+  Timer1.Enabled := False;
+  FPressedBtn := nil;
+end;
+
+procedure TfrmSCPersonColor5.FormClose(Sender: TObject; var Action: TCloseAction);
+begin
+  Action := caHide;
+end;
+
+procedure TfrmSCPersonColor5.Button1Click(Sender: TObject);
+begin
+  if CPage <= 1 then
+  begin
+
+    Label1.Caption := '1';
+    InitPerson(1);
+  end
+  else
+  begin
+    CPage := CPage - 1;
+
+    Label1.Caption := IntToStr(CPage);
+    InitPerson(CPage);
+  end;
+end;
+
+procedure TfrmSCPersonColor5.Button2Click(Sender: TObject);
+begin
+  TouchKeyboard1.Visible := true;
+  C_NAME.SetFocus();
+end;
+
+procedure TfrmSCPersonColor5.Button3Click(Sender: TObject);
+begin
+  CPage := CPage + 1;
+  Label1.Caption := IntToStr(CPage);
+  InitPerson(CPage);
+end;
+
+procedure TfrmSCPersonColor5.Button4Click(Sender: TObject);
+begin
+  TouchKeyboard1.Visible := false;
+  C_NAME.SetFocus();
+end;
+
+procedure TfrmSCPersonColor5.Button5Click(Sender: TObject);
+var
+  MC_Code: string;
+begin
+  if KZ.Text = '' then
+  begin
+    Application.MessageBox('克重不能为空!', '提示', 0);
+    Exit;
+  end;
+
+  if mf.Text = '' then
+  begin
+    Application.MessageBox('门幅不能为空!', '提示', 0);
+    Exit;
+  end;
+  if GetLSNo(ADOTmp, MC_Code, 'C', 'BS_Cloth_Info', 4, 0) = False then
+  begin
+    Application.MessageBox('取最成品编号失败!', '提示', 0);
+    Exit;
+  end;
+  Code.Text := MC_Code;
+  NAME2.Text := TRIM(KZ.Text) + '/' + TRIM(MF.Text);
+
+  if SaveData() then
+  begin
+    Application.MessageBox('保存成功！', '提示', 0);
+    panel1.Visible := false;
+    kz.Text := '';
+    mf.Text := '';
+    //FName := Trim(name2.Text);
+    FName := Trim(Code.Text);
+    FName2 := Trim(NAME2.Text);
+    name2.Text := '';
+    code.Text := '';
+
+    ModalResult := 1;
+  end;
+end;
+
+procedure TfrmSCPersonColor5.Button6Click(Sender: TObject);
+begin
+  panel1.Visible := false;
+  kz.Text := '';
+  mf.Text := '';
+  name2.Text := '';
+  code.Text := '';
+end;
+
+procedure TfrmSCPersonColor5.c_namePropertiesChange(Sender: TObject);
+begin
+  INITPERSON(1);
+end;
+
+end.
+

E03梭织坯布检验/U_TatMachInsp.dfm

@@ -2,29 +2,30 @@
   Left = 234
   Top = 20
   Caption = #25104#21697#26816#39564
-  ClientHeight = 772
+  ClientHeight = 768
   ClientWidth = 1540
   FormStyle = fsMDIChild
   Position = poScreenCenter
   Visible = True
   ExplicitWidth = 1556
-  ExplicitHeight = 811
+  ExplicitHeight = 807
   PixelsPerInch = 96
   TextHeight = 12
   object Panel9: TPanel [0]
     Left = 0
     Top = 0
     Width = 489
-    Height = 772
+    Height = 768
     Align = alLeft
     Color = clWhite
     ParentBackground = False
     TabOrder = 2
+    ExplicitHeight = 772
     object Panel2: TPanel
       Left = 1
       Top = 129
       Width = 487
-      Height = 642
+      Height = 638
       Align = alClient
       BevelInner = bvRaised
       BevelOuter = bvLowered
@@ -37,6 +38,7 @@
       ParentBackground = False
       ParentFont = False
       TabOrder = 0
+      ExplicitHeight = 642
       object lblLenUnit: TLabel
         Left = 190
         Top = 9
@@ -839,17 +841,19 @@
         Visible = False
       end
       object Label25: TLabel
-        Left = 11
+        Left = 7
         Top = 17
-        Width = 87
+        Width = 82
-        Height = 32
+        Height = 65
-        Caption = #21697#21517#65306
+        AutoSize = False
+        Caption = #20135#21697#32534#21495':'
         Font.Charset = ANSI_CHARSET
         Font.Color = clBlack
         Font.Height = -27
         Font.Name = 'Arial'
         Font.Style = [fsBold]
         ParentFont = False
+        WordWrap = True
       end
       object Label1: TLabel
         Left = 203
@@ -994,10 +998,10 @@
         Visible = False
       end
       object CodeName: TEdit
-        Left = 86
+        Left = 32
-        Top = 14
+        Top = 4
-        Width = 242
+        Width = 32
-        Height = 68
+        Height = 19
         Font.Charset = ANSI_CHARSET
         Font.Color = clBlack
         Font.Height = -53
@@ -1006,6 +1010,7 @@
         ParentFont = False
         ReadOnly = True
         TabOrder = 3
+        Visible = False
         OnClick = CIFBegClick
       end
       object edtScan: TEdit
@@ -1101,19 +1106,20 @@
         OnClick = Button5Click
       end
       object code: TEdit
-        Left = 36
+        Left = 86
-        Top = 174
+        Top = 12
-        Width = 144
+        Width = 242
-        Height = 24
+        Height = 68
         Font.Charset = ANSI_CHARSET
         Font.Color = clBlack
-        Font.Height = -14
+        Font.Height = -53
         Font.Name = 'Arial'
         Font.Style = []
         ParentFont = False
         ReadOnly = True
         TabOrder = 10
-        Visible = False
+        OnClick = codeClick
+        OnExit = codeExit
       end
       object Button9: TButton
         Left = 334
@@ -1165,10 +1171,11 @@
     Left = 689
     Top = 0
     Width = 408
-    Height = 772
+    Height = 768
     Align = alLeft
     TabOrder = 0
     Visible = False
+    ExplicitHeight = 772
     object SpeedButton13: TSpeedButton
       Left = 7
       Top = 3
@@ -2238,6 +2245,32 @@
         Font.Style = [fsBold]
         ParentFont = False
       end
+      object Label52: TLabel
+        Left = 59
+        Top = 122
+        Width = 60
+        Height = 19
+        Caption = #25377#36710#24037
+        Font.Charset = GB2312_CHARSET
+        Font.Color = clWindowText
+        Font.Height = -19
+        Font.Name = #23435#20307
+        Font.Style = [fsBold]
+        ParentFont = False
+      end
+      object Label53: TLabel
+        Left = 69
+        Top = 178
+        Width = 40
+        Height = 19
+        Caption = #25187#20998
+        Font.Charset = GB2312_CHARSET
+        Font.Color = clWindowText
+        Font.Height = -19
+        Font.Name = #23435#20307
+        Font.Style = [fsBold]
+        ParentFont = False
+      end
       object CIFBeg: TEdit
         Left = 65
         Top = 52
@@ -2314,9 +2347,9 @@
       end
       object RadioGroup1: TRadioGroup
         Left = 0
-        Top = 90
+        Top = 224
         Width = 389
-        Height = 176
+        Height = 42
         Color = clWhite
         Columns = 2
         Font.Charset = GB2312_CHARSET
@@ -2335,6 +2368,7 @@
         ParentColor = False
         ParentFont = False
         TabOrder = 3
+        Visible = False
       end
       object Button2: TButton
         Left = 14
@@ -2365,23 +2399,53 @@
         TabOrder = 7
         OnClick = CIFBegClick
       end
+      object Edit1: TEdit
+        Left = 136
+        Top = 118
+        Width = 169
+        Height = 32
+        Font.Charset = GB2312_CHARSET
+        Font.Color = clWindowText
+        Font.Height = -24
+        Font.Name = #23435#20307
+        Font.Style = [fsBold]
+        ParentFont = False
+        TabOrder = 8
+        OnClick = CIFBegClick
+      end
+      object Edit2: TEdit
+        Left = 136
+        Top = 173
+        Width = 169
+        Height = 32
+        Font.Charset = GB2312_CHARSET
+        Font.Color = clWindowText
+        Font.Height = -24
+        Font.Name = #23435#20307
+        Font.Style = [fsBold]
+        ParentFont = False
+        TabOrder = 9
+        OnClick = CIFBegClick
+      end
     end
   end
   object Panel4: TPanel [2]
     Left = 1097
     Top = 0
     Width = 443
-    Height = 772
+    Height = 768
     Align = alClient
     Caption = 'Panel4'
     TabOrder = 1
+    ExplicitHeight = 772
     object cxGrid3: TcxGrid
       Left = 1
       Top = 129
       Width = 441
-      Height = 449
+      Height = 445
       Align = alClient
       TabOrder = 0
+      ExplicitHeight = 449
       object Tv3: TcxGridDBTableView
         OnMouseDown = Tv3MouseDown
         Navigator.Buttons.CustomButtons = <>
@@ -2500,13 +2564,14 @@
     end
     object cxPageControl1: TcxPageControl
       Left = 1
-      Top = 578
+      Top = 574
       Width = 441
       Height = 193
       Align = alBottom
       TabOrder = 1
       Properties.ActivePage = cxTabSheet1
       Properties.CustomButtons.Buttons = <>
+      ExplicitTop = 578
       ClientRectBottom = 191
       ClientRectLeft = 2
       ClientRectRight = 439
@@ -2858,7 +2923,7 @@
     Left = 489
     Top = 0
     Width = 200
-    Height = 772
+    Height = 768
     Align = alLeft
     BevelInner = bvRaised
     BevelOuter = bvLowered
@@ -2866,6 +2931,7 @@
     ParentBackground = False
     TabOrder = 3
     Visible = False
+    ExplicitHeight = 772
     object Label35: TLabel
       Left = 27
       Top = 55

E03梭织坯布检验/U_TatMachInsp.pas

@@ -15,7 +15,7 @@ uses
   dxBarBuiltInMenu, cxContainer, cxImage, cxDBEdit, IdBaseComponent, IdComponent,
   IdTCPConnection, IdTCPClient, IdExplicitTLSClientServerBase, ShellAPI, IdFTP,
   FireDAC.Stan.StorageXML, cxPC, XMLDoc, XMLIntf, DateUtils, cxMaskEdit,
-  cxButtonEdit, BtnEdit, dxScrollbarAnnotations;
+  cxButtonEdit, BtnEdit, dxScrollbarAnnotations, dxCoreGraphics, dxSkinWXI;
 
 type
   TfrmTatMachInsp = class(TfrmBaseList)
@@ -321,6 +321,10 @@ type
     OutPutQty7: TEdit;
     Button3: TButton;
     Button10: TButton;
+    Edit1: TEdit;
+    Edit2: TEdit;
+    Label52: TLabel;
+    Label53: TLabel;
     procedure FormDestroy(Sender: TObject);
     procedure FormClose(Sender: TObject; var Action: TCloseAction);
     procedure FormShow(Sender: TObject);
@@ -380,6 +384,8 @@ type
     procedure OutPutQty6MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
     procedure OutPutQty7MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
     procedure Button10Click(Sender: TObject);
+    procedure codeClick(Sender: TObject);
+    procedure codeExit(Sender: TObject);
   private
     { Private declarations }
     FCIID, FOperationStatus, FCIFName, FWorkshop: string;
@@ -426,7 +432,7 @@ implementation
 
 uses
   U_DataLink, U_RTFun, U_ZDYHelp, U_iniParam, U_EmployeeSel, U_TatClothInfoSel,
-  U_SCPersonColor, U_SCPersonColor3;
+  U_SCPersonColor, U_SCPersonColor5;
 
 {$R *.dfm}
 
@@ -998,6 +1004,61 @@ begin
   end;
 end;
 
+procedure TfrmTatMachInsp.codeClick(Sender: TObject);
+var
+  i: Integer;
+begin
+  panel3.Visible := true;
+  with Panel3 do
+  begin
+
+    for i := 0 to ControlCount - 1 do
+    begin
+      if Controls[i] is TSpeedButton then
+      begin
+        TSpeedButton(Controls[i]).Hint := Trim(TEdit(Sender).Name);
+      end;
+    end;
+  end;
+end;
+
+procedure TfrmTatMachInsp.codeExit(Sender: TObject);
+begin
+  if Trim(code.Text) = '' then
+    Exit;
+
+  code.Text := Trim(code.Text);
+
+  with ADOTmp do
+  begin
+    Close;
+    SQL.Clear;
+    SQL.Add('SELECT * FROM Bs_Cloth_Info WHERE C_Code = ' + QuotedStr(code.Text));
+    Open;
+  end;
+
+  if not ADOTmp.IsEmpty then
+  begin
+    code.Text := Trim(ADOTmp.FieldByName('C_Code').AsString);
+    CodeName.Text := Trim(ADOTmp.FieldByName('C_Name').AsString);
+    MF.Text := Trim(ADOTmp.FieldByName('C_Width').AsString);
+    KZ.Text := Trim(ADOTmp.FieldByName('C_GramWeight').AsString);
+    SPEC.Text := Trim(ADOTmp.FieldByName('C_SPEC').AsString);
+
+    FMainId := '';
+    FSubId := '';
+    Label14.Caption := '订单号';
+  end
+  else
+  begin
+    Application.MessageBox('未找到该产品编号，请重新输入！', '提示', MB_ICONWARNING);
+    CodeName.Text := '';
+    MF.Text := '';
+    KZ.Text := '';
+    SPEC.Text := '';
+  end;
+end;
+
 procedure TfrmTatMachInsp.ComboBox1Change(Sender: TObject);
 begin
   SetINIFile();
@@ -1765,36 +1826,87 @@ begin
   end;
 end;
 
-procedure TfrmTatMachInsp.Button10Click(Sender: TObject);
+//procedure TfrmTatMachInsp.Button10Click(Sender: TObject);
-begin
+//begin
-  try
+//  try
-    frmSCPersonColor3 := TfrmSCPersonColor3.Create(self);
+//    frmSCPersonColor5 := TfrmSCPersonColor5.Create(self);
-    with frmSCPersonColor3 do
+//    with frmSCPersonColor5 do
-    begin
+//    begin
-      if ShowModal = 1 then
+//      if ShowModal = 1 then
-      begin
+//      begin
-//        with ADOTmp do
+////        with ADOTmp do
-//        begin
+////        begin
-//          Close;
+////          Close;
-//          sql.Clear;
+////          sql.Clear;
-//          sql.Add('SELECT A.* FROM Bs_Cloth_Info A where  A.C_name=''' + Trim(FName) + '''');
+////          sql.Add('SELECT A.* FROM Bs_Cloth_Info A where  A.C_name=''' + Trim(FName) + '''');
-//          Open;
+////          Open;
-//        end;
+////        end;
-//        Self.Code.Text := ADOTmp.fieldbyname('C_Code').AsString;
+////        Self.Code.Text := ADOTmp.fieldbyname('C_Code').AsString;
-        Self.CodeName.Text := FName;
+//        Self.Code.Text := FName;
-//        Self.MF.Text := ADOTmp.fieldbyname('C_Width').AsString;
+//        Self.CodeName.Text := Trim(FName2);
-//        Self.KZ.Text := ADOTmp.fieldbyname('C_GramWeight').AsString;
+////        Self.MF.Text := ADOTmp.fieldbyname('C_Width').AsString;
-//
+////        Self.KZ.Text := ADOTmp.fieldbyname('C_GramWeight').AsString;
-//        Self.SPEC.Text := ADOTmp.fieldbyname('C_SPEC').AsString;
+////
+////        Self.SPEC.Text := ADOTmp.fieldbyname('C_SPEC').AsString;
+//      end;
+//    end;
+//  finally
+//    frmSCPersonColor5.close;
+//  end;
+////  fmainid := '';
+////  fsubid := '';
+////  Label14.Caption := '订单号';
+//end;
 
+procedure TfrmTatMachInsp.Button10Click(Sender: TObject);
+var
+  FCode, FProductName: string;
+begin
+  FCode := '';
+  FProductName := '';
+
+  try
+    frmSCPersonColor5 := TfrmSCPersonColor5.Create(Self);
+    try
+      if frmSCPersonColor5.ShowModal = 1 then
+      begin
+        FCode := Trim(frmSCPersonColor5.FName);
+        FProductName := Trim(frmSCPersonColor5.FName2);
+      end;
+    finally
+      frmSCPersonColor5.Close;
+    end;
+
+    if FCode <> '' then
+    begin
+      Self.Code.Text := FCode;
+      Self.CodeName.Text := FProductName;
+
+      with Self.ADOTmp do
+      begin
+        Close;
+        SQL.Clear;
+        SQL.Add('SELECT A.* FROM Bs_Cloth_Info A WHERE A.C_Code = ' + QuotedStr(FCode));
+        Open;
+      end;
+
+      if not Self.ADOTmp.IsEmpty then
+      begin
+        Self.Code.Text := Self.ADOTmp.FieldByName('C_Code').AsString;
+        Self.CodeName.Text := Self.ADOTmp.FieldByName('C_Name').AsString;
+        Self.MF.Text := Self.ADOTmp.FieldByName('C_Width').AsString;
+        Self.KZ.Text := Self.ADOTmp.FieldByName('C_GramWeight').AsString;
+        Self.SPEC.Text := Self.ADOTmp.FieldByName('C_SPEC').AsString;
       end;
     end;
   finally
-    frmSCPersonColor3.close;
+    if Assigned(frmSCPersonColor5) then
+      frmSCPersonColor5.Close;
   end;
-//  fmainid := '';
+
-//  fsubid := '';
+  FMainId := '';
-//  Label14.Caption := '¶©µ¥ºÅ';
+  FSubId := '';
+  Label14.Caption := '订单号';
 end;
 
 procedure TfrmTatMachInsp.Button1Click(Sender: TObject);