From 70591a54ed6e4eff54a504d93bf78590b0de5838 Mon Sep 17 00:00:00 2001 From: "DESKTOP-E401PHE\\Administrator" Date: Fri, 31 Oct 2025 09:21:11 +0800 Subject: [PATCH] =?UTF-8?q?=E6=96=B0=E5=A2=9E=E6=8C=89=E9=92=AE?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- 打卷检验管理/ProjectGroup1.~bpg | 4 +- 打卷检验管理/U_JYOrderCDOne.dfm | 85 +++++++++++++++++++++++++++--- 打卷检验管理/U_JYOrderCDOne.pas | 91 ++++++++++++++++++++++++++++++++- 3 files changed, 168 insertions(+), 12 deletions(-) diff --git a/打卷检验管理/ProjectGroup1.~bpg b/打卷检验管理/ProjectGroup1.~bpg index 484d8e5..091c62d 100644 --- a/打卷检验管理/ProjectGroup1.~bpg +++ b/打卷检验管理/ProjectGroup1.~bpg @@ -14,10 +14,10 @@ PROJECTS = TradeManage.dll testDll.exe default: $(PROJECTS) #------------------------------------------------------------------------------ -TradeManage.dll: ..\..\D7DJjinchao\ϼ\TradeManage.dpr +TradeManage.dll: TradeManage.dpr $(DCC) -testDll.exe: ..\..\D7DJjinchao\ϼ\testDll.dpr +testDll.exe: testDll.dpr $(DCC) diff --git a/打卷检验管理/U_JYOrderCDOne.dfm b/打卷检验管理/U_JYOrderCDOne.dfm index ad34924..538d206 100644 --- a/打卷检验管理/U_JYOrderCDOne.dfm +++ b/打卷检验管理/U_JYOrderCDOne.dfm @@ -1,6 +1,6 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne - Left = 296 - Top = 178 + Left = 318 + Top = 307 Width = 1400 Height = 757 Caption = #26816#39564#25253#21578 @@ -21,7 +21,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne object ToolBar1: TToolBar Left = 0 Top = 0 - Width = 1384 + Width = 1392 Height = 62 AutoSize = True ButtonHeight = 30 @@ -279,11 +279,19 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne ImageIndex = 56 OnClick = ToolButton15Click end + object ToolButton16: TToolButton + Left = 1192 + Top = 30 + AutoSize = True + Caption = #25209#37327#35843#25972#30721#25968 + ImageIndex = 54 + OnClick = ToolButton16Click + end end object Panel1: TPanel Left = 0 Top = 62 - Width = 1384 + Width = 1392 Height = 88 Align = alTop BevelInner = bvRaised @@ -811,8 +819,8 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne object cxGrid1: TcxGrid Left = 0 Top = 150 - Width = 1384 - Height = 568 + Width = 1392 + Height = 576 Align = alClient PopupMenu = PopupMenu1 TabOrder = 3 @@ -1300,8 +1308,8 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne end end object Panel2: TPanel - Left = 496 - Top = 336 + Left = 152 + Top = 552 Width = 273 Height = 101 Color = clSkyBlue @@ -1992,6 +2000,67 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne TabOrder = 2 end end + object Panel16: TPanel + Left = 832 + Top = 560 + Width = 273 + Height = 101 + Color = clSkyBlue + TabOrder = 16 + Visible = False + object Label40: TLabel + Left = 40 + Top = 12 + Width = 48 + Height = 12 + Caption = #35843#25972#26041#24335 + end + object Label41: TLabel + Left = 40 + Top = 40 + Width = 48 + Height = 12 + Caption = #35843#25972#25968#37327 + end + object ComboBox4: TComboBox + Left = 92 + Top = 8 + Width = 101 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 0 + Items.Strings = ( + '' + #22686#21152 + #20943#23569) + end + object Button19: TButton + Left = 32 + Top = 64 + Width = 60 + Height = 25 + Caption = #30830#23450 + TabOrder = 2 + OnClick = Button19Click + end + object Button20: TButton + Left = 172 + Top = 64 + Width = 60 + Height = 25 + Caption = #20851#38381 + TabOrder = 3 + OnClick = Button20Click + end + object Edit7: TEdit + Left = 92 + Top = 35 + Width = 101 + Height = 20 + TabOrder = 1 + end + end object cxGridPopupMenu1: TcxGridPopupMenu Grid = cxGrid1 PopupMenus = <> diff --git a/打卷检验管理/U_JYOrderCDOne.pas b/打卷检验管理/U_JYOrderCDOne.pas index 8348967..61ac76a 100644 --- a/打卷检验管理/U_JYOrderCDOne.pas +++ b/打卷检验管理/U_JYOrderCDOne.pas @@ -237,6 +237,14 @@ type Button17: TButton; Button18: TButton; FMJStr5: TEdit; + ToolButton16: TToolButton; + Panel16: TPanel; + Label40: TLabel; + Label41: TLabel; + ComboBox4: TComboBox; + Button19: TButton; + Button20: TButton; + Edit7: TEdit; procedure FormDestroy(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormCreate(Sender: TObject); @@ -304,6 +312,9 @@ type procedure ToolButton15Click(Sender: TObject); procedure Button17Click(Sender: TObject); procedure Button18Click(Sender: TObject); + procedure ToolButton16Click(Sender: TObject); + procedure Button20Click(Sender: TObject); + procedure Button19Click(Sender: TObject); // procedure Edit5Click(Sender: TObject); // procedure CheckBox3Click(Sender: TObject); private @@ -2441,14 +2452,14 @@ begin begin with ADOQueryCmd do begin - Close; + Close; sql.Clear; sql.Add('Update WFB_MJJY Set MJStr5=''' + trim(FMJStr5.Text) + ''' '); sql.Add('where MJID=''' + Trim(Order_Main.fieldbyname('MJID').AsString) + ''''); ExecSQL; end; end; - Next; + Next; end; end; ADOQueryCmd.Connection.CommitTrans; @@ -2469,5 +2480,81 @@ begin Panel15.Visible := false; end; +procedure TfrmJYOrderCDOne.ToolButton16Click(Sender: TObject); +begin + Panel16.Left := (self.Width - Panel16.Width) div 2; + Panel16.Visible := true; +end; + +procedure TfrmJYOrderCDOne.Button20Click(Sender: TObject); +begin + Panel16.Visible := false; +end; + +procedure TfrmJYOrderCDOne.Button19Click(Sender: TObject); +var + SL: string; +begin + if Order_Main.IsEmpty then + Exit; + if Order_Main.Locate('SSel', True, []) = False then + begin + Application.MessageBox('ûѡ!', 'ʾ', 0); + Exit; + end; + if trim(ComboBox4.Text) = '' then + begin + Application.MessageBox('ʽΪ!', 'ʾ', 0); + Exit; + end; + if trim(Edit7.Text) = '' 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 + if Trim(ComboBox4.Text) = '' then + begin + SL := FloatToStr(Order_Main.fieldbyname('MJma').AsFloat + strtofloat(Edit7.Text)); + end; + if Trim(ComboBox4.Text) = '' then + begin + SL := FloatToStr(Order_Main.fieldbyname('MJma').AsFloat - strtofloat(Edit7.Text)); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update WFB_MJJY Set MJma=''' + SL + ''' '); + sql.Add('where MJID=''' + Trim(Order_Main.fieldbyname('MJID').AsString) + ''''); + ExecSQL; + end; + end; + Next; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + Order_Main.EnableControls; + application.MessageBox('ݱɹ', 'ʾϢ'); + Panel16.Visible := false; + ComboBox4.Text := ''; + Edit7.Text := ''; + TBRafresh.Click; + except + ADOQueryCmd.Connection.RollbackTrans; + Order_Main.EnableControls; + application.MessageBox('ݱʧܣ', 'ʾϢ', 0); + end; +end; + end.