From 42362cb4ad3f1995e2a4a0c0fa089dee576ba485 Mon Sep 17 00:00:00 2001 From: "DESKTOP-E401PHE\\Administrator" Date: Sat, 13 Sep 2025 11:05:14 +0800 Subject: [PATCH] =?UTF-8?q?=E5=A2=9E=E5=8A=A0=E6=89=AB=E6=8F=8F=E5=85=A5?= =?UTF-8?q?=E5=8F=A3?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- E03梭织坯布检验/U_TatMachInsp.dfm | 71 ++++++++++++++++--------------- E03梭织坯布检验/U_TatMachInsp.pas | 2 - 2 files changed, 37 insertions(+), 36 deletions(-) diff --git a/E03梭织坯布检验/U_TatMachInsp.dfm b/E03梭织坯布检验/U_TatMachInsp.dfm index d08774d..6324e24 100644 --- a/E03梭织坯布检验/U_TatMachInsp.dfm +++ b/E03梭织坯布检验/U_TatMachInsp.dfm @@ -2,30 +2,30 @@ inherited frmTatMachInsp: TfrmTatMachInsp Left = 234 Top = 20 Caption = #25104#21697#26816#39564 - ClientHeight = 772 + ClientHeight = 837 ClientWidth = 1540 FormStyle = fsMDIChild Position = poScreenCenter Visible = True - ExplicitLeft = -376 ExplicitWidth = 1556 - ExplicitHeight = 811 + ExplicitHeight = 876 PixelsPerInch = 96 TextHeight = 12 object Panel9: TPanel [0] Left = 0 Top = 0 Width = 573 - Height = 772 + Height = 837 Align = alLeft Color = clWhite ParentBackground = False TabOrder = 2 + ExplicitHeight = 772 object Panel2: TPanel Left = 1 - Top = 129 + Top = 161 Width = 571 - Height = 642 + Height = 675 Align = alClient BevelInner = bvRaised BevelOuter = bvLowered @@ -38,7 +38,8 @@ inherited frmTatMachInsp: TfrmTatMachInsp ParentBackground = False ParentFont = False TabOrder = 0 - ExplicitLeft = 2 + ExplicitTop = 129 + ExplicitHeight = 642 object lblLenUnit: TLabel Left = 251 Top = 9 @@ -1003,11 +1004,12 @@ inherited frmTatMachInsp: TfrmTatMachInsp Left = 1 Top = 1 Width = 571 - Height = 128 + Height = 160 Align = alTop Color = clWhite ParentBackground = False TabOrder = 1 + ExplicitLeft = 2 object Label14: TLabel Left = 480 Top = 189 @@ -1052,7 +1054,7 @@ inherited frmTatMachInsp: TfrmTatMachInsp end object Label25: TLabel Left = 11 - Top = 17 + Top = 47 Width = 87 Height = 32 Caption = #21697#21517#65306 @@ -1064,8 +1066,8 @@ inherited frmTatMachInsp: TfrmTatMachInsp ParentFont = False end object Label1: TLabel - Left = 203 - Top = 192 + Left = 14 + Top = 11 Width = 80 Height = 24 Caption = #25195#25551#20837#21475 @@ -1149,7 +1151,7 @@ inherited frmTatMachInsp: TfrmTatMachInsp end object Label50: TLabel Left = 5 - Top = 88 + Top = 118 Width = 72 Height = 29 Caption = #26426#21488#21495 @@ -1162,7 +1164,7 @@ inherited frmTatMachInsp: TfrmTatMachInsp end object PCId: TEdit Left = 480 - Top = 83 + Top = 113 Width = 341 Height = 24 Font.Charset = ANSI_CHARSET @@ -1207,7 +1209,7 @@ inherited frmTatMachInsp: TfrmTatMachInsp end object CodeName: TEdit Left = 86 - Top = 14 + Top = 44 Width = 242 Height = 68 Font.Charset = ANSI_CHARSET @@ -1221,9 +1223,9 @@ inherited frmTatMachInsp: TfrmTatMachInsp OnExit = CodeNameExit end object edtScan: TEdit - Left = 289 - Top = 190 - Width = 185 + Left = 100 + Top = 11 + Width = 228 Height = 27 Font.Charset = GB2312_CHARSET Font.Color = clWindowText @@ -1237,8 +1239,8 @@ inherited frmTatMachInsp: TfrmTatMachInsp OnKeyPress = edtScanKeyPress end object Button3: TButton - Left = 334 - Top = 2 + Left = 433 + Top = 35 Width = 58 Height = 34 Caption = #35774#32622 @@ -1267,8 +1269,8 @@ inherited frmTatMachInsp: TfrmTatMachInsp Visible = False end object SPEC: TEdit - Left = 230 - Top = 204 + Left = 224 + Top = 265 Width = 144 Height = 24 Font.Charset = ANSI_CHARSET @@ -1297,8 +1299,8 @@ inherited frmTatMachInsp: TfrmTatMachInsp Visible = False end object KZ: TEdit - Left = 230 - Top = 174 + Left = 91 + Top = 256 Width = 144 Height = 24 Font.Charset = ANSI_CHARSET @@ -1344,7 +1346,7 @@ inherited frmTatMachInsp: TfrmTatMachInsp end object Button9: TButton Left = 334 - Top = 77 + Top = 107 Width = 130 Height = 45 Caption = #36873#25321#26426#21488 @@ -1359,7 +1361,7 @@ inherited frmTatMachInsp: TfrmTatMachInsp end object carno: TEdit Left = 86 - Top = 88 + Top = 118 Width = 242 Height = 29 Font.Charset = ANSI_CHARSET @@ -1377,10 +1379,11 @@ inherited frmTatMachInsp: TfrmTatMachInsp Left = 773 Top = 0 Width = 286 - Height = 772 + Height = 837 Align = alLeft TabOrder = 0 Visible = False + ExplicitHeight = 772 object SpeedButton13: TSpeedButton Left = 7 Top = 3 @@ -2303,19 +2306,19 @@ inherited frmTatMachInsp: TfrmTatMachInsp Left = 1059 Top = 0 Width = 481 - Height = 772 + Height = 837 Align = alClient Caption = 'Panel4' TabOrder = 1 + ExplicitHeight = 772 object cxGrid3: TcxGrid Left = 1 Top = 91 Width = 479 - Height = 487 + Height = 552 Align = alClient TabOrder = 0 - ExplicitLeft = 3 - ExplicitTop = 97 + ExplicitHeight = 487 object Tv3: TcxGridDBTableView OnMouseDown = Tv3MouseDown Navigator.Buttons.CustomButtons = <> @@ -2510,13 +2513,14 @@ inherited frmTatMachInsp: TfrmTatMachInsp end object cxPageControl1: TcxPageControl Left = 1 - Top = 578 + Top = 643 Width = 479 Height = 193 Align = alBottom TabOrder = 1 Properties.ActivePage = cxTabSheet1 Properties.CustomButtons.Buttons = <> + ExplicitTop = 578 ClientRectBottom = 191 ClientRectLeft = 2 ClientRectRight = 477 @@ -2834,8 +2838,6 @@ inherited frmTatMachInsp: TfrmTatMachInsp Height = 52 Align = alTop TabOrder = 3 - ExplicitLeft = 3 - ExplicitTop = 45 object Label44: TLabel Left = 22 Top = 30 @@ -2868,7 +2870,7 @@ inherited frmTatMachInsp: TfrmTatMachInsp Left = 573 Top = 0 Width = 200 - Height = 772 + Height = 837 Align = alLeft BevelInner = bvRaised BevelOuter = bvLowered @@ -2876,6 +2878,7 @@ inherited frmTatMachInsp: TfrmTatMachInsp 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 c10135a..3a59fa1 100644 --- a/E03梭织坯布检验/U_TatMachInsp.pas +++ b/E03梭织坯布检验/U_TatMachInsp.pas @@ -772,7 +772,6 @@ begin FMainId := Trim(ADOTmp.fieldbyname('MainId').AsString); FSubId := Trim(ADOTmp.fieldbyname('SubId').AsString); // FPCId := Trim(ADOTmp.fieldbyname('PCId').AsString); - // FWorkshop := Trim(ADOTmp.fieldbyname('Workshop').AsString); FC_Code := Trim(ADOTmp.fieldbyname('C_Code').AsString); FC_Name := Trim(ADOTmp.fieldbyname('C_Name').AsString); @@ -784,7 +783,6 @@ begin FC_Pattern := Trim(ADOTmp.fieldbyname('C_Pattern').AsString); // FLoom := Trim(ADOTmp.fieldbyname('Loom').AsString); // FBatchNO := Trim(ADOTmp.fieldbyname('BatchNO').AsString); - // PieceNo.Text := Trim(ADOTmp.fieldbyname('maxRoll').AsString); Coefficient.Text := '0';