diff --git a/A02基础产品管理/ClothInfo.dproj b/A02基础产品管理/ClothInfo.dproj index 4408a1b..4e5a17e 100644 --- a/A02基础产品管理/ClothInfo.dproj +++ b/A02基础产品管理/ClothInfo.dproj @@ -4,7 +4,7 @@ ClothInfo.dpr True Debug - 38017 + 1 Library VCL 19.2 @@ -13,16 +13,6 @@ true - - true - Base - true - - - true - Base - true - true Base @@ -43,24 +33,6 @@ Base true - - true - Cfg_2 - true - true - - - true - Cfg_2 - true - true - - - true - Cfg_2 - true - true - true Cfg_2 @@ -84,13 +56,6 @@ 2052 CompanyName=;FileDescription=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=1.0.0.0;Comments= - - $(BDS)\bin\Artwork\Android\FM_LauncherIcon_192x192.png - 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 - - - $(BDS)\bin\Artwork\iOS\iPhone\FM_ApplicationIcon_1024x1024.png - System.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace) Debug @@ -113,15 +78,6 @@ false true - - Debug - - - Debug - - - Debug - CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=;ProgramID=com.embarcadero.$(MSBuildProjectName) D:\D10W\项目代码\D10szGerun\A02基础产品管理\testDll.exe @@ -228,10 +184,6 @@ - True - True - True - True True False diff --git a/A02基础产品管理/ClothInfo.res b/A02基础产品管理/ClothInfo.res index 45c0920..d3db8fa 100644 Binary files a/A02基础产品管理/ClothInfo.res and b/A02基础产品管理/ClothInfo.res differ diff --git a/A02基础产品管理/ClothInfo.skincfg b/A02基础产品管理/ClothInfo.skincfg index c0891d9..57e02f9 100644 --- a/A02基础产品管理/ClothInfo.skincfg +++ b/A02基础产品管理/ClothInfo.skincfg @@ -3,3 +3,4 @@ Default=1 ShowNotifications=1 Enabled=1 dxSkinsDefaultPainters=1 +dxSkinWXI=1 diff --git a/A02基础产品管理/U_DataLink.pas b/A02基础产品管理/U_DataLink.pas index 6765773..f9ddc18 100644 --- a/A02基础产品管理/U_DataLink.pas +++ b/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) diff --git a/A02基础产品管理/U_TatClothInfo.dfm b/A02基础产品管理/U_TatClothInfo.dfm index a258ba8..e10be41 100644 --- a/A02基础产品管理/U_TatClothInfo.dfm +++ b/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 diff --git a/A02基础产品管理/U_TatClothInfo.pas b/A02基础产品管理/U_TatClothInfo.pas index cc21e78..a26946e 100644 --- a/A02基础产品管理/U_TatClothInfo.pas +++ b/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); diff --git a/A02基础产品管理/U_TatClothInfoInput.dfm b/A02基础产品管理/U_TatClothInfoInput.dfm index c5f4d79..9314879 100644 --- a/A02基础产品管理/U_TatClothInfoInput.dfm +++ b/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 = <> diff --git a/A02基础产品管理/U_TatClothInfoInput.pas b/A02基础产品管理/U_TatClothInfoInput.pas index 58dc64a..5d55766 100644 --- a/A02基础产品管理/U_TatClothInfoInput.pas +++ b/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); diff --git a/A02基础产品管理/testDll.res b/A02基础产品管理/testDll.res index 2465ca0..e116c48 100644 Binary files a/A02基础产品管理/testDll.res and b/A02基础产品管理/testDll.res differ diff --git a/E03梭织坯布检验/TatInsp.dpr b/E03梭织坯布检验/TatInsp.dpr index 5cef3f4..bf88f02 100644 --- a/E03梭织坯布检验/TatInsp.dpr +++ b/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} diff --git a/E03梭织坯布检验/TatInsp.dproj b/E03梭织坯布检验/TatInsp.dproj index 4a4a7c6..d10d0d3 100644 --- a/E03梭织坯布检验/TatInsp.dproj +++ b/E03梭织坯布检验/TatInsp.dproj @@ -4,7 +4,7 @@ TatInsp.dpr True Debug - 38017 + 1 Library VCL 19.2 @@ -13,16 +13,6 @@ true - - true - Base - true - - - true - Base - true - true Base @@ -43,24 +33,6 @@ Base true - - true - Cfg_2 - true - true - - - true - Cfg_2 - true - true - - - true - Cfg_2 - true - true - true Cfg_2 @@ -84,13 +56,6 @@ 2052 CompanyName=;FileDescription=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=1.0.0.0;Comments= - - $(BDS)\bin\Artwork\Android\FM_LauncherIcon_192x192.png - 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 - - - $(BDS)\bin\Artwork\iOS\iPhone\FM_ApplicationIcon_1024x1024.png - System.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace) Debug @@ -113,15 +78,6 @@ false true - - Debug - - - Debug - - - Debug - CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=;ProgramID=com.embarcadero.$(MSBuildProjectName) D:\D10W\项目代码\D10szGerun\E03梭织坯布检验\testDll.exe @@ -194,6 +150,10 @@ dfm + +
frmSCPersonColor5
+ dfm + Cfg_2 Base @@ -216,10 +176,6 @@ - True - True - True - True True False diff --git a/E03梭织坯布检验/TatInsp.res b/E03梭织坯布检验/TatInsp.res index c8918d6..e2f6b57 100644 Binary files a/E03梭织坯布检验/TatInsp.res and b/E03梭织坯布检验/TatInsp.res differ diff --git a/E03梭织坯布检验/TatInsp.skincfg b/E03梭织坯布检验/TatInsp.skincfg index c0891d9..57e02f9 100644 --- a/E03梭织坯布检验/TatInsp.skincfg +++ b/E03梭织坯布检验/TatInsp.skincfg @@ -3,3 +3,4 @@ Default=1 ShowNotifications=1 Enabled=1 dxSkinsDefaultPainters=1 +dxSkinWXI=1 diff --git a/E03梭织坯布检验/TatInspLogin.res b/E03梭织坯布检验/TatInspLogin.res index 49b437f..9c03986 100644 Binary files a/E03梭织坯布检验/TatInspLogin.res and b/E03梭织坯布检验/TatInspLogin.res differ diff --git a/E03梭织坯布检验/U_DataLink.pas b/E03梭织坯布检验/U_DataLink.pas index b86baae..3011d90 100644 --- a/E03梭织坯布检验/U_DataLink.pas +++ b/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) diff --git a/E03梭织坯布检验/U_SCPersonColor3.pas b/E03梭织坯布检验/U_SCPersonColor3.pas index c0d8ac8..012f720 100644 --- a/E03梭织坯布检验/U_SCPersonColor3.pas +++ b/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 := ''; diff --git a/E03梭织坯布检验/U_SCPersonColor5.dfm b/E03梭织坯布检验/U_SCPersonColor5.dfm new file mode 100644 index 0000000..96e9423 --- /dev/null +++ b/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 diff --git a/E03梭织坯布检验/U_SCPersonColor5.pas b/E03梭织坯布检验/U_SCPersonColor5.pas new file mode 100644 index 0000000..c1e210f --- /dev/null +++ b/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; // ÿҳʾIJƷ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. + diff --git a/E03梭织坯布检验/U_TatMachInsp.dfm b/E03梭织坯布检验/U_TatMachInsp.dfm index 44f7067..2ddbc17 100644 --- a/E03梭织坯布检验/U_TatMachInsp.dfm +++ b/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 - 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 diff --git a/E03梭织坯布检验/U_TatMachInsp.pas b/E03梭织坯布检验/U_TatMachInsp.pas index 0826fb5..267a0f9 100644 --- a/E03梭织坯布检验/U_TatMachInsp.pas +++ b/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); -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); diff --git a/E03梭织坯布检验/testDll.res b/E03梭织坯布检验/testDll.res index 2465ca0..e116c48 100644 Binary files a/E03梭织坯布检验/testDll.res and b/E03梭织坯布检验/testDll.res differ