Group_03/D7DJlongjiahao
4
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

~

Browse Source
This commit is contained in:
DESKTOP-E401PHE\Administrator 2026-02-05 17:25:35 +08:00
parent 5f35be35f3
commit 29251f2343
2 changed files with 123 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

66
打卷检验管理/U_JYOrderCDOne.dfm
View File

@ -120,16 +120,24 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
ImageIndex = 54
OnClick = ToolButton11Click
end
object TBDW: TToolButton
object ToolButton18: TToolButton
Left = 750
Top = 0
AutoSize = True
Caption = #25209#37327#20462#25913#38376#24133
ImageIndex = 54
OnClick = ToolButton18Click
end
object TBDW: TToolButton
Left = 861
Top = 0
AutoSize = True
Caption = #20462#25913#25968#37327#21333#20301
ImageIndex = 54
OnClick = TBDWClick
end
object ToolButton16: TToolButton
Left = 861
Left = 972
Top = 0
AutoSize = True
Caption = #36716#21333
@ -137,7 +145,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
OnClick = ToolButton16Click
end
object ToolButton4: TToolButton
Left = 924
Left = 1035
Top = 0
AutoSize = True
Caption = #25209#37327#35843#25972#31859#25968
@ -145,7 +153,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
OnClick = ToolButton4Click
end
object ToolButton13: TToolButton
Left = 1035
Left = 1146
Top = 0
AutoSize = True
Caption = #25209#37327#20928#37325#36716#38271#24230
@ -154,7 +162,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
OnClick = ToolButton13Click
end
object ToolButton17: TToolButton
Left = 1158
Left = 1269
Top = 0
AutoSize = True
Caption = #25209#37327#20462#25913#25171#30721#26102#38388
@ -268,13 +276,14 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
object ToolButton12: TToolButton
Left = 896
Top = 30
AutoSize = True
Caption = #20462#25913#30721#21333
ImageIndex = 54
Visible = False
OnClick = ToolButton12Click
end
object ToolButton9: TToolButton
Left = 1027
Left = 983
Top = 30
AutoSize = True
Caption = #24322#24120#25968#25454
@ -282,7 +291,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
OnClick = ToolButton9Click
end
object TBExport: TToolButton
Left = 1114
Left = 1070
Top = 30
AutoSize = True
Caption = #23548#20986
@ -290,7 +299,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
OnClick = TBExportClick
end
object TBClose: TToolButton
Left = 1177
Left = 1133
Top = 30
AutoSize = True
Caption = #20851#38381
@ -1938,6 +1947,47 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
TabOrder = 2
end
end
object Panel15: TPanel
Left = 756
Top = 512
Width = 225
Height = 117
Color = clSkyBlue
TabOrder = 15
Visible = False
object Label38: TLabel
Left = 24
Top = 44
Width = 24
Height = 12
Caption = #38376#24133
end
object Button17: TButton
Left = 32
Top = 72
Width = 60
Height = 25
Caption = #30830#23450
TabOrder = 0
OnClick = Button17Click
end
object Button18: TButton
Left = 128
Top = 72
Width = 60
Height = 25
Caption = #20851#38381
TabOrder = 1
OnClick = Button18Click
end
object FMF: TEdit
Left = 56
Top = 40
Width = 125
Height = 20
TabOrder = 2
end
end
object cxGridPopupMenu1: TcxGridPopupMenu
Grid = cxGrid1
PopupMenus = <>

67
打卷检验管理/U_JYOrderCDOne.pas
View File

@ -1,6 +1,6 @@
unit U_JYOrderCDOne;
interface
interface
uses
Windows, Messages, SysUtils, strUtils, Variants, Classes, Graphics, Controls,
@ -231,6 +231,12 @@ type
Button15: TButton;
Button16: TButton;
DMTIME: TDateTimePicker;
Panel15: TPanel;
Label38: TLabel;
Button17: TButton;
Button18: TButton;
FMF: TEdit;
ToolButton18: TToolButton;
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
@ -298,6 +304,9 @@ type
procedure ToolButton17Click(Sender: TObject);
procedure Button15Click(Sender: TObject);
procedure Button16Click(Sender: TObject);
procedure ToolButton18Click(Sender: TObject);
procedure Button18Click(Sender: TObject);
procedure Button17Click(Sender: TObject);
// procedure Edit5Click(Sender: TObject);
// procedure CheckBox3Click(Sender: TObject);
private
@ -466,7 +475,7 @@ begin
label23.Caption := '¾»ÖØ:' + floattostr(sumJZ);
Order_Main.Locate('mjid', fid, []);
except
application.MessageBox('操作失败！', '提示信息', 0);
application.MessageBox('操作失败！', '提示信息', 0);
end;
end;
@ -2505,5 +2514,59 @@ begin
Panel11.Visible := false;
end;
procedure TfrmJYOrderCDOne.ToolButton18Click(Sender: TObject);
begin
Panel15.Left := (self.Width - Panel15.Width) div 2;
Panel15.Visible := true;
end;
procedure TfrmJYOrderCDOne.Button18Click(Sender: TObject);
begin
Panel15.Visible := false;
end;
procedure TfrmJYOrderCDOne.Button17Click(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 MJFK=''' + trim(FMF.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('数据保存成功！', '提示信息');
Panel15.Visible := false;
TBRafresh.Click;
except
ADOQueryCmd.Connection.RollbackTrans;
Order_Main.EnableControls;
application.MessageBox('数据保存失败！', '提示信息', 0);
end;
end;
end.