From 4a400c6016a49dc8a7312d76c71862895bc22101 Mon Sep 17 00:00:00 2001 From: "DESKTOP-E401PHE\\Administrator" Date: Sun, 4 Jan 2026 14:59:14 +0800 Subject: [PATCH] ~ --- 打卷检验管理/U_CKProductJYHZList.dfm | 8 +-- 打卷检验管理/U_CKProductJYHZList.pas | 25 ++++++++-- 打卷检验管理/U_JYOrderCDOne.dfm | 73 ++++++++++++++-------------- 打卷检验管理/U_JYOrderCDOne.pas | 9 +++- 4 files changed, 69 insertions(+), 46 deletions(-) diff --git a/打卷检验管理/U_CKProductJYHZList.dfm b/打卷检验管理/U_CKProductJYHZList.dfm index 9498e31..bde2dc3 100644 --- a/打卷检验管理/U_CKProductJYHZList.dfm +++ b/打卷检验管理/U_CKProductJYHZList.dfm @@ -20,7 +20,7 @@ object frmCKProductJYHZList: TfrmCKProductJYHZList object ToolBar1: TToolBar Left = 0 Top = 0 - Width = 1509 + Width = 1501 Height = 33 ButtonHeight = 30 ButtonWidth = 83 @@ -91,7 +91,7 @@ object frmCKProductJYHZList: TfrmCKProductJYHZList object Panel1: TPanel Left = 0 Top = 33 - Width = 1509 + Width = 1501 Height = 68 Align = alTop BevelInner = bvRaised @@ -323,8 +323,8 @@ object frmCKProductJYHZList: TfrmCKProductJYHZList object cxGrid2: TcxGrid Left = 0 Top = 101 - Width = 1509 - Height = 379 + Width = 1501 + Height = 371 Align = alClient TabOrder = 2 object Tv1: TcxGridDBTableView diff --git a/打卷检验管理/U_CKProductJYHZList.pas b/打卷检验管理/U_CKProductJYHZList.pas index 6a7c659..835be8e 100644 --- a/打卷检验管理/U_CKProductJYHZList.pas +++ b/打卷检验管理/U_CKProductJYHZList.pas @@ -11,7 +11,20 @@ uses ExtCtrls, ToolWin, cxGridCustomPopupMenu, cxGridPopupMenu, ADODB, DBClient, cxDropDownEdit, MovePanel, cxButtonEdit, cxCalendar, RM_System, RM_Common, RM_Class, RM_GridReport, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, - cxCheckBox; + cxCheckBox, dxSkinsCore, dxSkinBlack, dxSkinBlue, dxSkinBlueprint, + dxSkinCaramel, dxSkinCoffee, dxSkinDarkRoom, dxSkinDarkSide, + dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle, dxSkinFoggy, + dxSkinGlassOceans, dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian, + dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMetropolis, + dxSkinMetropolisDark, dxSkinMoneyTwins, dxSkinOffice2007Black, + dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink, + dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2010Blue, + dxSkinOffice2010Silver, dxSkinOffice2013DarkGray, dxSkinOffice2013LightGray, + dxSkinOffice2013White, dxSkinPumpkin, dxSkinSeven, dxSkinSevenClassic, + dxSkinSharp, dxSkinSharpPlus, dxSkinSilver, dxSkinSpringTime, dxSkinStardust, + dxSkinSummer2008, dxSkinTheAsphaltWorld, dxSkinsDefaultPainters, + dxSkinValentine, dxSkinVS2010, dxSkinWhiteprint, dxSkinXmas2008Blue, + dxSkinscxPCPainter; type TfrmCKProductJYHZList = class(TForm) @@ -293,20 +306,22 @@ begin end; procedure TfrmCKProductJYHZList.ToolButton1Click(Sender: TObject); - begin if cds_main.IsEmpty then Exit; frmJYOrderCDOne := TfrmJYOrderCDOne.Create(Application); with frmJYOrderCDOne do - begin - Fmainid := trim(self.CDS_Main.fieldbyname('MAINID').asstring); - // orderno.Text := trim(self.CDS_Main.fieldbyname('orderno').asstring); + begin + Fmainid := trim(self.CDS_Main.fieldbyname('MAINID').asstring); + orderno.Text := trim(self.CDS_Main.fieldbyname('orderno').asstring); + FHZ := 'ܻسѯ'; + //gangno.Text := trim(self.CDS_Main.fieldbyname('MJStr4').asstring); //PRTColor.Text := trim(self.CDS_Main.fieldbyname('PRTColor').asstring); if ShowModal = 1 then begin // InitGrid(); + end; free; end; diff --git a/打卷检验管理/U_JYOrderCDOne.dfm b/打卷检验管理/U_JYOrderCDOne.dfm index 1d28917..0c47e16 100644 --- a/打卷检验管理/U_JYOrderCDOne.dfm +++ b/打卷检验管理/U_JYOrderCDOne.dfm @@ -21,8 +21,8 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne object ToolBar1: TToolBar Left = 0 Top = 0 - Width = 1392 - Height = 62 + Width = 1384 + Height = 92 AutoSize = True ButtonHeight = 30 ButtonWidth = 119 @@ -101,27 +101,28 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne Top = 0 Caption = #25209#37327#20462#25913#32568#21495 ImageIndex = 54 + Wrap = True OnClick = ToolButton11Click end object TBDW: TToolButton - Left = 608 - Top = 0 + Left = 0 + Top = 30 AutoSize = True Caption = #20462#25913#25968#37327#21333#20301 ImageIndex = 54 OnClick = TBDWClick end object ToolButton4: TToolButton - Left = 719 - Top = 0 + Left = 111 + Top = 30 AutoSize = True Caption = #25209#37327#35843#25972#31859#25968 ImageIndex = 54 OnClick = ToolButton4Click end object ToolButton13: TToolButton - Left = 830 - Top = 0 + Left = 222 + Top = 30 AutoSize = True Caption = #25209#37327#20928#37325#36716#38271#24230 ImageIndex = 54 @@ -129,16 +130,15 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne OnClick = ToolButton13Click end object ToolButton8: TToolButton - Left = 953 - Top = 0 + Left = 345 + Top = 30 AutoSize = True Caption = #25209#37327#20462#25913#30382#37325 ImageIndex = 54 - Wrap = True OnClick = ToolButton8Click end object ToolButton1: TToolButton - Left = 0 + Left = 456 Top = 30 AutoSize = True Caption = #25171#21360#26631#31614 @@ -146,7 +146,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne OnClick = ToolButton1Click end object TCPDB: TToolButton - Left = 87 + Left = 543 Top = 30 AutoSize = True Caption = #25104#21697#25171#21253 @@ -154,7 +154,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne OnClick = TCPDBClick end object ToolButton3: TToolButton - Left = 174 + Left = 630 Top = 30 AutoSize = True Caption = #25171#21360#21253#26631#31614 @@ -163,24 +163,25 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne OnClick = ToolButton3Click end object ToolButton2: TToolButton - Left = 273 + Left = 729 Top = 30 AutoSize = True Caption = #25171#21360#26816#39564#25253#21578 ImageIndex = 12 + Wrap = True OnClick = ToolButton2Click end object ToolButton5: TToolButton - Left = 384 - Top = 30 + Left = 0 + Top = 60 AutoSize = True Caption = #25171#21360 ImageIndex = 12 OnClick = ToolButton5Click end object Edit3: TEdit - Left = 447 - Top = 30 + Left = 63 + Top = 60 Width = 68 Height = 30 Font.Charset = GB2312_CHARSET @@ -194,8 +195,8 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne OnKeyPress = Edit3KeyPress end object ComboBox1: TComboBox - Left = 515 - Top = 33 + Left = 131 + Top = 63 Width = 149 Height = 24 Style = csDropDownList @@ -218,8 +219,8 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne '') end object Edit4: TEdit - Left = 664 - Top = 30 + Left = 280 + Top = 60 Width = 121 Height = 30 Font.Charset = GB2312_CHARSET @@ -232,32 +233,32 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne Visible = False end object ToolButton12: TToolButton - Left = 785 - Top = 30 + Left = 401 + Top = 60 Caption = #20462#25913#30721#21333 ImageIndex = 54 Visible = False OnClick = ToolButton12Click end object ToolButton9: TToolButton - Left = 904 - Top = 30 + Left = 520 + Top = 60 AutoSize = True Caption = #24322#24120#25968#25454 ImageIndex = 2 OnClick = ToolButton9Click end object TBExport: TToolButton - Left = 991 - Top = 30 + Left = 607 + Top = 60 AutoSize = True Caption = #23548#20986 ImageIndex = 75 OnClick = TBExportClick end object TBClose: TToolButton - Left = 1054 - Top = 30 + Left = 670 + Top = 60 AutoSize = True Caption = #20851#38381 ImageIndex = 55 @@ -266,8 +267,8 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne end object Panel1: TPanel Left = 0 - Top = 62 - Width = 1392 + Top = 92 + Width = 1384 Height = 88 Align = alTop BevelInner = bvRaised @@ -781,9 +782,9 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne end object cxGrid1: TcxGrid Left = 0 - Top = 150 - Width = 1392 - Height = 576 + Top = 180 + Width = 1384 + Height = 538 Align = alClient PopupMenu = PopupMenu1 TabOrder = 3 diff --git a/打卷检验管理/U_JYOrderCDOne.pas b/打卷检验管理/U_JYOrderCDOne.pas index a2c65ff..305e096 100644 --- a/打卷检验管理/U_JYOrderCDOne.pas +++ b/打卷检验管理/U_JYOrderCDOne.pas @@ -299,7 +299,7 @@ type { Private declarations } public FFInt: Integer; - FMAINID: string; + FMAINID, FHZ: string; { Public declarations } end; @@ -536,6 +536,8 @@ begin end; procedure TfrmJYOrderCDOne.FormShow(Sender: TObject); +var + VKey: Char; begin InitForm(); if Trim(DParameters2) = '' then @@ -573,6 +575,11 @@ begin //v1Column22.visible := False; // TCPDB.Visible:=False; end; + if FHZ = 'ܻسѯ' then + begin + VKey := #13; + OrderNoKeyPress(orderno, VKey); + end; end; procedure TfrmJYOrderCDOne.Panel10MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);