From e56172f8142fc60f49c5b0a21cfa9a9a983fae99 Mon Sep 17 00:00:00 2001 From: "DESKTOP-E401PHE\\Administrator" Date: Fri, 18 Jul 2025 16:18:06 +0800 Subject: [PATCH] ~ --- 打卷检验管理/TradeManage.dof | 2 +- 打卷检验管理/U_ProductOrderNewList.dfm | 92 +++++++++++++++++--------- 打卷检验管理/U_ProductOrderNewList.pas | 9 ++- 3 files changed, 67 insertions(+), 36 deletions(-) diff --git a/打卷检验管理/TradeManage.dof b/打卷检验管理/TradeManage.dof index 8ad341e..d49fbb6 100644 --- a/打卷检验管理/TradeManage.dof +++ b/打卷检验管理/TradeManage.dof @@ -101,7 +101,7 @@ DebugSourceDirs= UsePackages=0 [Parameters] RunParams= -HostApplication=D:\Ŀ\Ŀ\\\testDll.exe +HostApplication=D:\Dp7Repo\Ŀ\D7DJbulaikeyi\\testDll.exe Launcher= UseLauncher=0 DebugCWD= diff --git a/打卷检验管理/U_ProductOrderNewList.dfm b/打卷检验管理/U_ProductOrderNewList.dfm index 1118e4f..7b11e45 100644 --- a/打卷检验管理/U_ProductOrderNewList.dfm +++ b/打卷检验管理/U_ProductOrderNewList.dfm @@ -20,7 +20,8 @@ object frmProductOrderNewList: TfrmProductOrderNewList object ToolBar1: TToolBar Left = 0 Top = 0 - Width = 1366 + Width = 1349 + Height = 62 AutoSize = True ButtonHeight = 30 ButtonWidth = 95 @@ -117,66 +118,67 @@ object frmProductOrderNewList: TfrmProductOrderNewList AutoSize = True Caption = #25764#38144#23436#25104 ImageIndex = 86 + Wrap = True OnClick = TNoWCClick end object TBExport: TToolButton - Left = 678 - Top = 0 + Left = 0 + Top = 30 AutoSize = True Caption = #23548#20986 ImageIndex = 75 OnClick = TBExportClick end object TFJ: TToolButton - Left = 741 - Top = 0 + Left = 63 + Top = 30 AutoSize = True Caption = #25351#31034#21333#38468#20214 ImageIndex = 57 OnClick = TFJClick end object TBPrint: TToolButton - Left = 840 - Top = 0 + Left = 162 + Top = 30 AutoSize = True Caption = #25171#21360 ImageIndex = 12 OnClick = TBPrintClick end object ToolButton8: TToolButton - Left = 903 - Top = 0 + Left = 225 + Top = 30 AutoSize = True Caption = #30452#25509#25171#21360 ImageIndex = 23 OnClick = ToolButton8Click end object ToolButton4: TToolButton - Left = 990 - Top = 0 + Left = 312 + Top = 30 AutoSize = True Caption = #24322#24120#25968#25454 ImageIndex = 2 OnClick = ToolButton4Click end object ToolButton5: TToolButton - Left = 1077 - Top = 0 + Left = 399 + Top = 30 Caption = #30133#28857#31649#29702 ImageIndex = 132 OnClick = ToolButton5Click end object ToolButton6: TToolButton - Left = 1172 - Top = 0 + Left = 494 + Top = 30 AutoSize = True Caption = #26085#24535 ImageIndex = 72 OnClick = ToolButton6Click end object ToolButton7: TToolButton - Left = 1235 - Top = 0 + Left = 557 + Top = 30 AutoSize = True Caption = #37325#36830 ImageIndex = 73 @@ -184,8 +186,8 @@ object frmProductOrderNewList: TfrmProductOrderNewList OnClick = ToolButton7Click end object TBClose: TToolButton - Left = 1298 - Top = 0 + Left = 620 + Top = 30 AutoSize = True Caption = #20851#38381 ImageIndex = 55 @@ -194,8 +196,8 @@ object frmProductOrderNewList: TfrmProductOrderNewList end object Panel1: TPanel Left = 0 - Top = 32 - Width = 1366 + Top = 62 + Width = 1349 Height = 40 Align = alTop BevelInner = bvRaised @@ -365,6 +367,19 @@ object frmProductOrderNewList: TfrmProductOrderNewList Font.Style = [fsBold] ParentFont = False end + object Label13: TLabel + Left = 1202 + Top = 14 + Width = 26 + Height = 12 + Caption = #32568#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end object BegDate: TDateTimePicker Left = 71 Top = 11 @@ -486,11 +501,20 @@ object frmProductOrderNewList: TfrmProductOrderNewList TabOrder = 12 OnChange = OrderNoChange end + object GH: TEdit + Tag = 2 + Left = 1230 + Top = 10 + Width = 77 + Height = 20 + TabOrder = 13 + OnChange = OrderNoChange + end end object cxGrid1: TcxGrid Left = 0 - Top = 95 - Width = 1366 + Top = 125 + Width = 1349 Height = 333 Align = alTop TabOrder = 3 @@ -766,6 +790,10 @@ object frmProductOrderNewList: TfrmProductOrderNewList Options.Editing = False Width = 60 end + object Tv1Column9: TcxGridDBColumn + Caption = #32568#21495 + DataBinding.FieldName = 'GH' + end end object cxGrid1Level1: TcxGridLevel GridView = Tv1 @@ -875,8 +903,8 @@ object frmProductOrderNewList: TfrmProductOrderNewList end object cxSplitter1: TcxSplitter Left = 0 - Top = 451 - Width = 1366 + Top = 458 + Width = 1349 Height = 8 HotZoneClassName = 'TcxMediaPlayer9Style' AlignSplitter = salBottom @@ -884,8 +912,8 @@ object frmProductOrderNewList: TfrmProductOrderNewList end object Panel2: TPanel Left = 0 - Top = 459 - Width = 1366 + Top = 466 + Width = 1349 Height = 256 Align = alBottom Caption = 'Panel2' @@ -893,7 +921,7 @@ object frmProductOrderNewList: TfrmProductOrderNewList object cxGrid2: TcxGrid Left = 1 Top = 1 - Width = 987 + Width = 970 Height = 254 Align = alClient TabOrder = 0 @@ -1220,7 +1248,7 @@ object frmProductOrderNewList: TfrmProductOrderNewList end end object GroupBox1: TGroupBox - Left = 988 + Left = 971 Top = 1 Width = 377 Height = 254 @@ -1249,8 +1277,8 @@ object frmProductOrderNewList: TfrmProductOrderNewList end object cxTabControl1: TcxTabControl Left = 0 - Top = 72 - Width = 1366 + Top = 102 + Width = 1349 Height = 23 Align = alTop TabOrder = 2 @@ -1263,7 +1291,7 @@ object frmProductOrderNewList: TfrmProductOrderNewList #20840#37096) OnChange = cxTabControl1Change ClientRectBottom = 23 - ClientRectRight = 1366 + ClientRectRight = 1349 ClientRectTop = 19 end object cxGridPopupMenu1: TcxGridPopupMenu diff --git a/打卷检验管理/U_ProductOrderNewList.pas b/打卷检验管理/U_ProductOrderNewList.pas index c44802f..81fad70 100644 --- a/打卷检验管理/U_ProductOrderNewList.pas +++ b/打卷检验管理/U_ProductOrderNewList.pas @@ -178,6 +178,9 @@ type PopupMenu2: TPopupMenu; N4: TMenuItem; N3: TMenuItem; + Label13: TLabel; + GH: TEdit; + Tv1Column9: TcxGridDBColumn; procedure FormDestroy(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormCreate(Sender: TObject); @@ -571,9 +574,9 @@ var i, j: Integer; begin Panel4.Left := (self.Width - Panel4.Width) div 2; - Panel4.Visible := True; -end; - + Panel4.Visible := True; +end; + procedure TfrmProductOrderNewList.TBRafreshClick(Sender: TObject); begin InitGrid();