Group_01/D7DJxinwannian
5
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

~

Browse Source
This commit is contained in:
DESKTOP-E401PHE\Administrator 2025-08-04 14:53:05 +08:00
parent 2c3486532e
commit 1e6d7b6edc
3 changed files with 115 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
打卷检验管理/TradeManage.dof
View File

@ -101,7 +101,7 @@ DebugSourceDirs=
UsePackages=0
[Parameters]
RunParams=
HostApplication=D:\徐加艳项目代码\项目代码\新万年\打卷检验管理\testDll.exe
HostApplication=D:\Dp7Repo\项目代码\D7DJxinwannian\打卷检验管理\testDll.exe
Launcher=
UseLauncher=0
DebugCWD=

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

@ -272,6 +272,13 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
ImageIndex = 55
OnClick = TBCloseClick
end
object ToolButton15: TToolButton
Left = 1085
Top = 30
Caption = #25209#37327#20462#25913#26579#32568
ImageIndex = 56
OnClick = ToolButton15Click
end
end
object Panel1: TPanel
Left = 0
@ -1944,6 +1951,47 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
TabOrder = 2
end
end
object Panel15: TPanel
Left = 1148
Top = 408
Width = 225
Height = 117
Color = clSkyBlue
TabOrder = 15
Visible = False
object Label39: TLabel
Left = 24
Top = 44
Width = 48
Height = 12
Caption = #26579#21378#32568#21495
end
object Button17: TButton
Left = 41
Top = 72
Width = 60
Height = 25
Caption = #30830#23450
TabOrder = 0
OnClick = Button17Click
end
object Button18: TButton
Left = 137
Top = 72
Width = 60
Height = 25
Caption = #20851#38381
TabOrder = 1
OnClick = Button18Click
end
object FMJStr5: TEdit
Left = 74
Top = 39
Width = 125
Height = 20
TabOrder = 2
end
end
object cxGridPopupMenu1: TcxGridPopupMenu
Grid = cxGrid1
PopupMenus = <>

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

@ -231,6 +231,12 @@ type
Button15: TButton;
Button16: TButton;
FMJLS: TEdit;
ToolButton15: TToolButton;
Panel15: TPanel;
Label39: TLabel;
Button17: TButton;
Button18: TButton;
FMJStr5: TEdit;
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
@ -295,6 +301,9 @@ type
procedure Button15Click(Sender: TObject);
procedure Button16Click(Sender: TObject);
procedure ToolButton14Click(Sender: TObject);
procedure ToolButton15Click(Sender: TObject);
procedure Button17Click(Sender: TObject);
procedure Button18Click(Sender: TObject);
// procedure Edit5Click(Sender: TObject);
// procedure CheckBox3Click(Sender: TObject);
private
@ -2386,10 +2395,10 @@ begin
Order_Main.EnableControls;
application.MessageBox('数据保存成功！', '提示信息');
Panel14.Visible := false;
TBRafresh.Click;
TBRafresh.Click;
except
ADOQueryCmd.Connection.RollbackTrans;
Order_Main.EnableControls;
Order_Main.EnableControls;
application.MessageBox('数据保存失败！', '提示信息', 0);
end;
end;
@ -2405,5 +2414,60 @@ begin
Panel14.Visible := true;
end;
procedure TfrmJYOrderCDOne.ToolButton15Click(Sender: TObject);
begin
Panel15.Left := (self.Width - Panel15.Width) div 2;
Panel15.Visible := true;
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 MJStr5=''' + trim(FMJStr5.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;
// FMJStr5.Text := '';
TBRafresh.Click;
except
ADOQueryCmd.Connection.RollbackTrans;
Order_Main.EnableControls;
application.MessageBox('数据保存失败！', '提示信息', 0);
end;
end;
procedure TfrmJYOrderCDOne.Button18Click(Sender: TObject);
begin
Panel15.Visible := false;
end;
end.