From 2d92c56ed4048de3e34fd48a8cf1184fcb5515c0 Mon Sep 17 00:00:00 2001 From: libingpeng <3360871605@qq.com> Date: Tue, 25 Nov 2025 09:28:54 +0800 Subject: [PATCH] 11 --- 打卷检验管理/U_JYOrderCDOne.dfm | 140 +++++++++++++++++++--------- 打卷检验管理/U_JYOrderCDOne.pas | 67 ++++++++++++- 打卷检验管理/U_MJManageNewFDNew.dfm | 65 +++++++++---- 打卷检验管理/U_MJManageNewFDNew.pas | 6 +- 4 files changed, 216 insertions(+), 62 deletions(-) diff --git a/打卷检验管理/U_JYOrderCDOne.dfm b/打卷检验管理/U_JYOrderCDOne.dfm index 538d206..451741f 100644 --- a/打卷检验管理/U_JYOrderCDOne.dfm +++ b/打卷检验管理/U_JYOrderCDOne.dfm @@ -1,6 +1,6 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne - Left = 318 - Top = 307 + Left = 238 + Top = 41 Width = 1400 Height = 757 Caption = #26816#39564#25253#21578 @@ -22,7 +22,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne Left = 0 Top = 0 Width = 1392 - Height = 62 + Height = 92 AutoSize = True ButtonHeight = 30 ButtonWidth = 107 @@ -109,43 +109,43 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne AutoSize = True Caption = #20462#25913#25968#37327#21333#20301 ImageIndex = 54 + Wrap = True OnClick = TBDWClick end object ToolButton4: TToolButton - Left = 707 - Top = 0 + Left = 0 + Top = 30 AutoSize = True Caption = #25209#37327#35843#25972#31859#25968 ImageIndex = 54 OnClick = ToolButton4Click end object ToolButton13: TToolButton - Left = 818 - Top = 0 + Left = 111 + Top = 30 AutoSize = True Caption = #25209#37327#20462#25913#31995#25968 ImageIndex = 54 OnClick = ToolButton13Click end object ToolButton14: TToolButton - Left = 929 - Top = 0 + Left = 222 + Top = 30 AutoSize = True Caption = #25209#37327#20462#25913#33853#33394 ImageIndex = 54 OnClick = ToolButton14Click end object ToolButton8: TToolButton - Left = 1040 - Top = 0 + Left = 333 + Top = 30 AutoSize = True Caption = #25209#37327#20462#25913#30382#37325 ImageIndex = 54 - Wrap = True OnClick = ToolButton8Click end object ToolButton1: TToolButton - Left = 0 + Left = 444 Top = 30 AutoSize = True Caption = #25171#21360#26631#31614 @@ -153,7 +153,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne OnClick = ToolButton1Click end object TCPDB: TToolButton - Left = 87 + Left = 531 Top = 30 AutoSize = True Caption = #25104#21697#25171#21253 @@ -161,7 +161,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne OnClick = TCPDBClick end object ToolButton3: TToolButton - Left = 174 + Left = 618 Top = 30 AutoSize = True Caption = #25171#21360#21253#26631#31614 @@ -170,7 +170,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne OnClick = ToolButton3Click end object ToolButton2: TToolButton - Left = 273 + Left = 717 Top = 30 AutoSize = True Caption = #25171#21360#26816#39564#25253#21578 @@ -178,16 +178,17 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne OnClick = ToolButton2Click end object ToolButton5: TToolButton - Left = 384 + Left = 828 Top = 30 AutoSize = True Caption = #25171#21360 ImageIndex = 12 + Wrap = True OnClick = ToolButton5Click end object Edit3: TEdit - Left = 447 - Top = 30 + Left = 0 + Top = 60 Width = 68 Height = 30 Font.Charset = GB2312_CHARSET @@ -201,8 +202,8 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne OnKeyPress = Edit3KeyPress end object ComboBox1: TComboBox - Left = 515 - Top = 33 + Left = 68 + Top = 63 Width = 149 Height = 24 Style = csDropDownList @@ -226,8 +227,8 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne #26816#39564#30721#21333) end object Edit4: TEdit - Left = 664 - Top = 30 + Left = 217 + Top = 60 Width = 121 Height = 30 Font.Charset = GB2312_CHARSET @@ -240,8 +241,8 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne Visible = False end object ToolButton12: TToolButton - Left = 785 - Top = 30 + Left = 338 + Top = 60 AutoSize = True Caption = #20462#25913#30721#21333 ImageIndex = 54 @@ -249,48 +250,56 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne OnClick = ToolButton12Click end object ToolButton9: TToolButton - Left = 872 - Top = 30 + Left = 425 + Top = 60 AutoSize = True Caption = #24322#24120#25968#25454 ImageIndex = 2 OnClick = ToolButton9Click end object TBExport: TToolButton - Left = 959 - Top = 30 + Left = 512 + Top = 60 AutoSize = True Caption = #23548#20986 ImageIndex = 75 OnClick = TBExportClick end object TBClose: TToolButton - Left = 1022 - Top = 30 + Left = 575 + Top = 60 AutoSize = True Caption = #20851#38381 ImageIndex = 55 OnClick = TBCloseClick end object ToolButton15: TToolButton - Left = 1085 - Top = 30 + Left = 638 + Top = 60 Caption = #25209#37327#20462#25913#26579#32568 ImageIndex = 56 OnClick = ToolButton15Click end object ToolButton16: TToolButton - Left = 1192 - Top = 30 + Left = 745 + Top = 60 AutoSize = True Caption = #25209#37327#35843#25972#30721#25968 ImageIndex = 54 OnClick = ToolButton16Click end + object ToolButton17: TToolButton + Left = 856 + Top = 60 + AutoSize = True + Caption = #25209#37327#20462#25913#26550#21495 + ImageIndex = 54 + OnClick = ToolButton17Click + end end object Panel1: TPanel Left = 0 - Top = 62 + Top = 92 Width = 1392 Height = 88 Align = alTop @@ -408,7 +417,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne Top = 15 Width = 40 Height = 12 - Caption = #21253' '#21495 + Caption = #26550' '#21495 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -12 @@ -715,7 +724,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne TabOrder = 14 OnChange = PRTCodeNameChange end - object BAONO: TEdit + object MJJH: TEdit Tag = 2 Left = 790 Top = 11 @@ -818,9 +827,9 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne end object cxGrid1: TcxGrid Left = 0 - Top = 150 + Top = 180 Width = 1392 - Height = 576 + Height = 546 Align = alClient PopupMenu = PopupMenu1 TabOrder = 3 @@ -1142,6 +1151,12 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne HeaderAlignmentHorz = taCenter Width = 60 end + object Tv1Column4: TcxGridDBColumn + Caption = #26550#21495 + DataBinding.FieldName = 'MJJH' + HeaderAlignmentHorz = taCenter + Width = 70 + end end object cxGrid1Level1: TcxGridLevel GridView = Tv1 @@ -2061,6 +2076,47 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne TabOrder = 1 end end + object Panel17: TPanel + Left = 428 + Top = 416 + Width = 225 + Height = 117 + Color = clSkyBlue + TabOrder = 17 + Visible = False + object Label42: TLabel + Left = 24 + Top = 44 + Width = 24 + Height = 12 + Caption = #26550#21495 + end + object Button21: TButton + Left = 32 + Top = 72 + Width = 60 + Height = 25 + Caption = #30830#23450 + TabOrder = 0 + OnClick = Button21Click + end + object Button22: TButton + Left = 128 + Top = 72 + Width = 60 + Height = 25 + Caption = #20851#38381 + TabOrder = 1 + OnClick = Button22Click + end + object FMJJH: TEdit + Left = 56 + Top = 40 + Width = 125 + Height = 20 + TabOrder = 2 + end + end object cxGridPopupMenu1: TcxGridPopupMenu Grid = cxGrid1 PopupMenus = <> @@ -2099,8 +2155,8 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne Top = 200 end object PopupMenu1: TPopupMenu - Left = 432 - Top = 444 + Left = 408 + Top = 412 object N1: TMenuItem Caption = #20840#36873 OnClick = N1Click diff --git a/打卷检验管理/U_JYOrderCDOne.pas b/打卷检验管理/U_JYOrderCDOne.pas index 61ac76a..d3a29e3 100644 --- a/打卷检验管理/U_JYOrderCDOne.pas +++ b/打卷检验管理/U_JYOrderCDOne.pas @@ -113,7 +113,7 @@ type Label4: TLabel; Label9: TLabel; BAOID: TEdit; - BAONO: TEdit; + MJJH: TEdit; ToolButton3: TToolButton; v1Column2: TcxGridDBColumn; v1Column3: TcxGridDBColumn; @@ -245,6 +245,13 @@ type Button19: TButton; Button20: TButton; Edit7: TEdit; + Tv1Column4: TcxGridDBColumn; + ToolButton17: TToolButton; + Panel17: TPanel; + Label42: TLabel; + Button21: TButton; + Button22: TButton; + FMJJH: TEdit; procedure FormDestroy(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormCreate(Sender: TObject); @@ -315,6 +322,9 @@ type procedure ToolButton16Click(Sender: TObject); procedure Button20Click(Sender: TObject); procedure Button19Click(Sender: TObject); + procedure ToolButton17Click(Sender: TObject); + procedure Button21Click(Sender: TObject); + procedure Button22Click(Sender: TObject); // procedure Edit5Click(Sender: TObject); // procedure CheckBox3Click(Sender: TObject); private @@ -2556,5 +2566,60 @@ begin end; end; +procedure TfrmJYOrderCDOne.ToolButton17Click(Sender: TObject); +begin + Panel17.Left := (self.Width - Panel17.Width) div 2; + Panel17.Visible := true; +end; + +procedure TfrmJYOrderCDOne.Button21Click(Sender: TObject); +begin + if Order_Main.IsEmpty then + Exit; + if Order_Main.Locate('SSel', True, []) = False then + begin + Application.MessageBox('ûѡ!', 'ʾ', 0); + Exit; + end; + try + Order_Main.DisableControls; + ADOQueryCmd.Connection.BeginTrans; + with Order_Main do + begin + First; + while not Eof do + begin + if Order_Main.FieldByName('SSel').AsBoolean = True then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update WFB_MJJY Set MJJH=''' + trim(FMJJH.Text) + ''' '); + sql.Add('where MJID=''' + Trim(Order_Main.fieldbyname('MJID').AsString) + ''''); + ExecSQL; + end; + end; + Next; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + Order_Main.EnableControls; + application.MessageBox('ݱɹ', 'ʾϢ'); + Panel17.Visible := false; + TBRafresh.Click; + except + ADOQueryCmd.Connection.RollbackTrans; + Order_Main.EnableControls; + application.MessageBox('ݱʧܣ', 'ʾϢ', 0); + end; + +end; + +procedure TfrmJYOrderCDOne.Button22Click(Sender: TObject); +begin + Panel17.Visible := false; +end; + end. diff --git a/打卷检验管理/U_MJManageNewFDNew.dfm b/打卷检验管理/U_MJManageNewFDNew.dfm index 00343cb..5ad95a5 100644 --- a/打卷检验管理/U_MJManageNewFDNew.dfm +++ b/打卷检验管理/U_MJManageNewFDNew.dfm @@ -1,6 +1,6 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF - Left = 322 - Top = 165 + Left = 157 + Top = 247 Width = 1366 Height = 754 Caption = #25104#21697#26816#39564 @@ -21,7 +21,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF Left = 0 Top = 87 Width = 345 - Height = 628 + Height = 636 Align = alLeft TabOrder = 0 object Tv3: TcxGridDBTableView @@ -137,8 +137,8 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF object ScrollBox1: TScrollBox Left = 633 Top = 87 - Width = 717 - Height = 628 + Width = 725 + Height = 636 Align = alClient Color = clWhite ParentColor = False @@ -989,7 +989,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF Left = 409 Top = 87 Width = 224 - Height = 628 + Height = 636 Align = alLeft BevelInner = bvRaised BevelOuter = bvLowered @@ -1272,14 +1272,14 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF ParentFont = False end object Label36: TLabel - Left = 18 - Top = 5 - Width = 42 - Height = 20 + Left = 6 + Top = 9 + Width = 34 + Height = 16 Caption = #21367#21495 Font.Charset = ANSI_CHARSET Font.Color = clBlue - Font.Height = -20 + Font.Height = -16 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False @@ -1402,6 +1402,19 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF Font.Style = [fsBold] ParentFont = False end + object Label57: TLabel + Left = 128 + Top = 9 + Width = 34 + Height = 16 + Caption = #26550#21495 + Font.Charset = ANSI_CHARSET + Font.Color = clBlue + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end object MJFK: TEdit Left = 45 Top = 441 @@ -1665,7 +1678,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF OnKeyPress = MJstr3KeyPress end object MJXH: TEdit - Left = 67 + Left = 38 Top = 1 Width = 90 Height = 34 @@ -1824,6 +1837,22 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF OnClick = MJXHClick OnKeyPress = MJstr3KeyPress end + object MJJH: TEdit + Left = 161 + Top = 1 + Width = 90 + Height = 34 + AutoSize = False + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -28 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 25 + OnClick = MJXHClick + OnKeyPress = MJstr3KeyPress + end end object MovePanel1: TMovePanel Left = 634 @@ -2079,7 +2108,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF Left = 345 Top = 87 Width = 64 - Height = 628 + Height = 636 Align = alLeft BevelInner = bvRaised BevelOuter = bvLowered @@ -2088,7 +2117,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF Left = 2 Top = 2 Width = 60 - Height = 303 + Height = 311 Align = alClient TabOrder = 0 object Tv2: TcxGridDBTableView @@ -2196,7 +2225,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF end object Panel8: TPanel Left = 2 - Top = 305 + Top = 313 Width = 60 Height = 28 Align = alBottom @@ -2211,7 +2240,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF end object AOrdDefNote1: TRichEdit Left = 2 - Top = 333 + Top = 341 Width = 60 Height = 293 Align = alBottom @@ -2438,7 +2467,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF object ToolBar1: TToolBar Left = 0 Top = 0 - Width = 1350 + Width = 1358 Height = 30 AutoSize = True ButtonHeight = 30 @@ -2626,7 +2655,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF object Panel6: TPanel Left = 0 Top = 30 - Width = 1350 + Width = 1358 Height = 57 Align = alTop BevelInner = bvRaised diff --git a/打卷检验管理/U_MJManageNewFDNew.pas b/打卷检验管理/U_MJManageNewFDNew.pas index 26a0b17..e8e244f 100644 --- a/打卷检验管理/U_MJManageNewFDNew.pas +++ b/打卷检验管理/U_MJManageNewFDNew.pas @@ -272,6 +272,8 @@ type Tv3Column1: TcxGridDBColumn; Label56: TLabel; MJLS: TEdit; + Label57: TLabel; + MJJH: TEdit; procedure FormDestroy(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure TBCloseClick(Sender: TObject); @@ -1043,7 +1045,7 @@ begin FieldByName('MJstr4').Value := Trim(MJstr4.Text); FieldByName('MJstr5').Value := Trim(MJstr5.Text); FieldByName('mjxh').Value := Trim(mjxh.Text); -// FieldByName('BaoNO').Value := Trim(BaoNO.Text); + FieldByName('MJJH').Value := Trim(MJJH.Text); FieldByName('MJTypeOther').Value := Trim(Label9.Caption); FieldByName('MJStr1').Value := Trim(Label13.Caption); if Edit12.Text <> '' then @@ -2463,6 +2465,7 @@ begin Close; sql.Clear; sql.Add('select B.*,B.OrderNo OrderNoM,C.*, '); + sql.Add('MJJH=(select MJJH from WFB_MJJY X where X.SubID=C.subID),'); sql.Add('maxMJxh=isnull((select max(mjxh) from WFB_MJJY X where X.SubID=C.subID),0),'); sql.Add('minMJxh=isnull((select min(mjxh) from WFB_MJJY X where X.SubID=C.subID),1),'); // sql.Add('maxBaoNO=1+isnull((select max(cast(baoNO as int)) from WFB_MJJY X where X.subID=C.subID ),0)'); @@ -2525,6 +2528,7 @@ begin kmxs.Text := Trim(ADOTmp.fieldbyname('kmxs').AsString); MJFK.Text := Trim(ADOTmp.fieldbyname('PRTMF').AsString); MJSJKZ.Text := Trim(ADOTmp.fieldbyname('PRTKZ').AsString); + MJJH.Text:=Trim(ADOTmp.fieldbyname('MJJH').asstring); if edit10.Text = '' then begin MJXH.Text := inttostr(ADOTmp.fieldbyname('maxMJxh').AsInteger + 1);