From 1bbf6f4dbedd3860d0462b068f119a578d032c16 Mon Sep 17 00:00:00 2001 From: "DESKTOP-E401PHE\\Administrator" Date: Tue, 19 Aug 2025 10:02:51 +0800 Subject: [PATCH] ~ --- 针织检验管理/U_JYOrderCDOne.dfm | 73 ++++++++++++++++----------------- 针织检验管理/U_JYOrderCDOne.pas | 7 +++- 2 files changed, 41 insertions(+), 39 deletions(-) diff --git a/针织检验管理/U_JYOrderCDOne.dfm b/针织检验管理/U_JYOrderCDOne.dfm index c97a7ad..f2a5bbf 100644 --- a/针织检验管理/U_JYOrderCDOne.dfm +++ b/针织检验管理/U_JYOrderCDOne.dfm @@ -22,7 +22,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne Left = 0 Top = 0 Width = 1384 - Height = 92 + Height = 62 AutoSize = True ButtonHeight = 30 ButtonWidth = 119 @@ -102,35 +102,34 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne AutoSize = True Caption = #25764#38144#20986#24211 ImageIndex = 86 - Wrap = True OnClick = ToolButton7Click end object ToolButton11: TToolButton - Left = 0 - Top = 30 + Left = 576 + Top = 0 Caption = #25209#37327#20462#25913#32568#21495 ImageIndex = 54 OnClick = ToolButton11Click end object TBDW: TToolButton - Left = 119 - Top = 30 + Left = 695 + Top = 0 AutoSize = True Caption = #20462#25913#25968#37327#21333#20301 ImageIndex = 54 OnClick = TBDWClick end object ToolButton4: TToolButton - Left = 230 - Top = 30 + Left = 806 + Top = 0 AutoSize = True Caption = #25209#37327#35843#25972#31859#25968 ImageIndex = 54 OnClick = ToolButton4Click end object ToolButton13: TToolButton - Left = 341 - Top = 30 + Left = 917 + Top = 0 AutoSize = True Caption = #25209#37327#20928#37325#36716#38271#24230 ImageIndex = 54 @@ -138,15 +137,16 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne OnClick = ToolButton13Click end object ToolButton8: TToolButton - Left = 464 - Top = 30 + Left = 1040 + Top = 0 AutoSize = True Caption = #25209#37327#20462#25913#30382#37325 ImageIndex = 54 + Wrap = True OnClick = ToolButton8Click end object ToolButton1: TToolButton - Left = 575 + Left = 0 Top = 30 AutoSize = True Caption = #25171#21360#26631#31614 @@ -154,7 +154,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne OnClick = ToolButton1Click end object TCPDB: TToolButton - Left = 662 + Left = 87 Top = 30 AutoSize = True Caption = #25104#21697#25171#21253 @@ -163,34 +163,33 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne OnClick = TCPDBClick end object ToolButton3: TToolButton - Left = 749 + Left = 174 Top = 30 AutoSize = True Caption = #25171#21360#21253#26631#31614 ImageIndex = 12 - Wrap = True Visible = False OnClick = ToolButton3Click end object ToolButton2: TToolButton - Left = 0 - Top = 60 + Left = 273 + Top = 30 AutoSize = True Caption = #25171#21360#26816#39564#25253#21578 ImageIndex = 12 OnClick = ToolButton2Click end object ToolButton5: TToolButton - Left = 111 - Top = 60 + Left = 384 + Top = 30 AutoSize = True Caption = #25171#21360 ImageIndex = 12 OnClick = ToolButton5Click end object Edit3: TEdit - Left = 174 - Top = 60 + Left = 447 + Top = 30 Width = 68 Height = 30 Font.Charset = GB2312_CHARSET @@ -204,8 +203,8 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne OnKeyPress = Edit3KeyPress end object ComboBox1: TComboBox - Left = 242 - Top = 63 + Left = 515 + Top = 33 Width = 182 Height = 24 Style = csDropDownList @@ -229,8 +228,8 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne #26816#39564#30721#21333) end object Edit4: TEdit - Left = 424 - Top = 60 + Left = 697 + Top = 30 Width = 121 Height = 30 Font.Charset = GB2312_CHARSET @@ -243,32 +242,32 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne Visible = False end object ToolButton12: TToolButton - Left = 545 - Top = 60 + Left = 818 + Top = 30 Caption = #20462#25913#30721#21333 ImageIndex = 54 Visible = False OnClick = ToolButton12Click end object ToolButton9: TToolButton - Left = 664 - Top = 60 + Left = 937 + Top = 30 AutoSize = True Caption = #24322#24120#25968#25454 ImageIndex = 2 OnClick = ToolButton9Click end object TBExport: TToolButton - Left = 751 - Top = 60 + Left = 1024 + Top = 30 AutoSize = True Caption = #23548#20986 ImageIndex = 75 OnClick = TBExportClick end object TBClose: TToolButton - Left = 814 - Top = 60 + Left = 1087 + Top = 30 AutoSize = True Caption = #20851#38381 ImageIndex = 55 @@ -277,7 +276,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne end object Panel1: TPanel Left = 0 - Top = 92 + Top = 62 Width = 1384 Height = 88 Align = alTop @@ -848,9 +847,9 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne end object cxGrid1: TcxGrid Left = 0 - Top = 180 + Top = 150 Width = 1384 - Height = 538 + Height = 568 Align = alClient PopupMenu = PopupMenu1 TabOrder = 3 diff --git a/针织检验管理/U_JYOrderCDOne.pas b/针织检验管理/U_JYOrderCDOne.pas index 8af252f..d639f9c 100644 --- a/针织检验管理/U_JYOrderCDOne.pas +++ b/针织检验管理/U_JYOrderCDOne.pas @@ -1613,12 +1613,15 @@ begin end; end; - if (trim(ComboBox1.Text) = '뵥') or (trim(ComboBox1.Text) = '㵥') or (trim(ComboBox1.Text) = '뵥') or (trim(ComboBox1.Text) = '뵥0.2') or (trim(ComboBox1.Text) = '뵥0.2') or (trim(ComboBox1.Text) = '뵥') or (trim(ComboBox1.Text) = '뵥') then + if (trim(ComboBox1.Text) = '뵥') or (trim(ComboBox1.Text) = '㵥') or (trim(ComboBox1.Text) = '뵥') + or (trim(ComboBox1.Text) = '뵥0.2') or (trim(ComboBox1.Text) = '뵥0.2') + or (trim(ComboBox1.Text) = '뵥0.3') + or (trim(ComboBox1.Text) = '뵥') or (trim(ComboBox1.Text) = '뵥') then begin with ADOQueryTemp do begin Close; - sql.Clear; + sql.Clear; sql.add('exec P_Print_CKMDYDL '); sql.add('@DName=' + quotedstr(Trim(DCode))); Open;