产品 检验
This commit is contained in:
parent
172f07da4b
commit
beea277575
|
|
@ -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>
|
||||
|
|
|
|||
Binary file not shown.
|
|
@ -3,3 +3,4 @@ Default=1
|
|||
ShowNotifications=1
|
||||
Enabled=1
|
||||
dxSkinsDefaultPainters=1
|
||||
dxSkinWXI=1
|
||||
|
|
|
|||
|
|
@ -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)
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
|
|
|||
|
|
@ -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);
|
||||
|
|
|
|||
|
|
@ -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 = <>
|
||||
|
|
|
|||
|
|
@ -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);
|
||||
|
|
|
|||
Binary file not shown.
|
|
@ -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}
|
||||
|
||||
|
|
|
|||
|
|
@ -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>
|
||||
|
|
|
|||
Binary file not shown.
|
|
@ -3,3 +3,4 @@ Default=1
|
|||
ShowNotifications=1
|
||||
Enabled=1
|
||||
dxSkinsDefaultPainters=1
|
||||
dxSkinWXI=1
|
||||
|
|
|
|||
Binary file not shown.
|
|
@ -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)
|
||||
|
|
|
|||
|
|
@ -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 := '';
|
||||
|
||||
|
|
|
|||
919
E03梭织坯布检验/U_SCPersonColor5.dfm
Normal file
919
E03梭织坯布检验/U_SCPersonColor5.dfm
Normal file
|
|
@ -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
|
||||
483
E03梭织坯布检验/U_SCPersonColor5.pas
Normal file
483
E03梭织坯布检验/U_SCPersonColor5.pas
Normal file
|
|
@ -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.
|
||||
|
||||
|
|
@ -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
|
||||
Height = 32
|
||||
Caption = #21697#21517#65306
|
||||
Width = 82
|
||||
Height = 65
|
||||
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
|
||||
Top = 14
|
||||
Width = 242
|
||||
Height = 68
|
||||
Left = 32
|
||||
Top = 4
|
||||
Width = 32
|
||||
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
|
||||
Top = 174
|
||||
Width = 144
|
||||
Height = 24
|
||||
Left = 86
|
||||
Top = 12
|
||||
Width = 242
|
||||
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
|
||||
|
|
|
|||
|
|
@ -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);
|
||||
begin
|
||||
try
|
||||
frmSCPersonColor3 := TfrmSCPersonColor3.Create(self);
|
||||
with frmSCPersonColor3 do
|
||||
begin
|
||||
if ShowModal = 1 then
|
||||
begin
|
||||
// with ADOTmp do
|
||||
// begin
|
||||
// Close;
|
||||
// sql.Clear;
|
||||
// sql.Add('SELECT A.* FROM Bs_Cloth_Info A where A.C_name=''' + Trim(FName) + '''');
|
||||
// Open;
|
||||
// end;
|
||||
// Self.Code.Text := ADOTmp.fieldbyname('C_Code').AsString;
|
||||
Self.CodeName.Text := FName;
|
||||
// Self.MF.Text := ADOTmp.fieldbyname('C_Width').AsString;
|
||||
// Self.KZ.Text := ADOTmp.fieldbyname('C_GramWeight').AsString;
|
||||
//
|
||||
// Self.SPEC.Text := ADOTmp.fieldbyname('C_SPEC').AsString;
|
||||
//procedure TfrmTatMachInsp.Button10Click(Sender: TObject);
|
||||
//begin
|
||||
// try
|
||||
// frmSCPersonColor5 := TfrmSCPersonColor5.Create(self);
|
||||
// with frmSCPersonColor5 do
|
||||
// begin
|
||||
// if ShowModal = 1 then
|
||||
// begin
|
||||
//// with ADOTmp do
|
||||
//// begin
|
||||
//// Close;
|
||||
//// sql.Clear;
|
||||
//// sql.Add('SELECT A.* FROM Bs_Cloth_Info A where A.C_name=''' + Trim(FName) + '''');
|
||||
//// Open;
|
||||
//// end;
|
||||
//// Self.Code.Text := ADOTmp.fieldbyname('C_Code').AsString;
|
||||
// Self.Code.Text := FName;
|
||||
// Self.CodeName.Text := Trim(FName2);
|
||||
//// Self.MF.Text := ADOTmp.fieldbyname('C_Width').AsString;
|
||||
//// Self.KZ.Text := ADOTmp.fieldbyname('C_GramWeight').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 := '';
|
||||
// Label14.Caption := '¶©µ¥ºÅ';
|
||||
|
||||
FMainId := '';
|
||||
FSubId := '';
|
||||
Label14.Caption := '订单号';
|
||||
end;
|
||||
|
||||
procedure TfrmTatMachInsp.Button1Click(Sender: TObject);
|
||||
|
|
|
|||
Binary file not shown.
Loading…
Reference in New Issue
Block a user