Group_01/D7DJwenyuan
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-30 16:57:23 +08:00
parent f4509df3c7
commit 656c3d61b3
3 changed files with 20 additions and 15 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 UsePackages=0
[Parameters] [Parameters]
RunParams= RunParams=
HostApplication=D:\徐加艳项目代码\项目代码\文源\打卷检验管理\testDll.exe HostApplication=D:\Dp7Repo\项目代码\D7DJwenyuan\打卷检验管理\testDll.exe
Launcher= Launcher=
UseLauncher=0 UseLauncher=0
DebugCWD= DebugCWD=

2
打卷检验管理/U_MJManageNewFDNew.dfm
View File

@ -62,7 +62,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
Options.Editing = False Options.Editing = False
Styles.Content = cxStyle4 Styles.Content = cxStyle4
Styles.Header = cxStyle4 Styles.Header = cxStyle4
Width = 40 Width = 53
end end
object v3Column2: TcxGridDBColumn object v3Column2: TcxGridDBColumn
Caption = #25968#37327 Caption = #25968#37327

9
打卷检验管理/U_MJManageNewFDNew.pas
View File

@ -547,7 +547,7 @@ begin
else else
Label9.Caption := 'Y'; Label9.Caption := 'Y';
// edit1.Text := format('%.' + trim(fxsws) + 'f', [i1 / 100000]); // edit1.Text := format('%.' + trim(fxsws) + 'f', [i1 / 100000]);
if S1 = true then if (S1 = true) and (StrToFloatDef((MJLen.Text), 0) < 200) then
begin begin
if i1 = 0 then if i1 = 0 then
begin begin
@ -1722,6 +1722,11 @@ begin
application.MessageBox('长度不足', '提示'); application.MessageBox('长度不足', '提示');
exit; exit;
end; end;
if (strtofloatdef(trim(MJLen.Text), 0) > 200) or (strtofloatdef(trim(MJLen1.Text), 0) > 200) then
begin
application.MessageBox('长度超出200不能提交', '提示');
exit;
end;
if Trim(FAPID) = '' then if Trim(FAPID) = '' then
Exit; Exit;
@ -3437,7 +3442,7 @@ begin
Exit; Exit;
end; end;
end; end;
if (tsflag = True) then if (tsflag = True) then
begin begin
with ADOQuery1 do with ADOQuery1 do
begin begin