Group_DJD/D7djHongyuan
7
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:16:36 +08:00
parent 4c159f69bb
commit e3c7222a85
2 changed files with 15 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
检验管理/U_MJManageNewFDNew.dfm
View File

@ -21,7 +21,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
Left = 0 Left = 0
Top = 101 Top = 101
Width = 237 Width = 237
Height = 606 Height = 598
Align = alLeft Align = alLeft
TabOrder = 1 TabOrder = 1
object Tv3: TcxGridDBTableView object Tv3: TcxGridDBTableView
@ -127,8 +127,8 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
object ScrollBox1: TScrollBox object ScrollBox1: TScrollBox
Left = 645 Left = 645
Top = 101 Top = 101
Width = 612 Width = 604
Height = 606 Height = 598
Align = alClient Align = alClient
TabOrder = 4 TabOrder = 4
object SpeedButton13: TSpeedButton object SpeedButton13: TSpeedButton
@ -977,7 +977,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
Left = 445 Left = 445
Top = 101 Top = 101
Width = 200 Width = 200
Height = 606 Height = 598
Align = alLeft Align = alLeft
BevelInner = bvRaised BevelInner = bvRaised
BevelOuter = bvLowered BevelOuter = bvLowered
@ -1801,7 +1801,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
object Panel4: TPanel object Panel4: TPanel
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1257 Width = 1249
Height = 101 Height = 101
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised
@ -1810,14 +1810,14 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
object Panel5: TPanel object Panel5: TPanel
Left = 2 Left = 2
Top = 2 Top = 2
Width = 1253 Width = 1245
Height = 97 Height = 97
Align = alClient Align = alClient
TabOrder = 0 TabOrder = 0
object Panel6: TPanel object Panel6: TPanel
Left = 1 Left = 1
Top = 31 Top = 31
Width = 1251 Width = 1243
Height = 78 Height = 78
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised
@ -2179,7 +2179,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
object ToolBar1: TToolBar object ToolBar1: TToolBar
Left = 1 Left = 1
Top = 1 Top = 1
Width = 1251 Width = 1243
Height = 30 Height = 30
ButtonHeight = 30 ButtonHeight = 30
ButtonWidth = 107 ButtonWidth = 107
@ -2506,7 +2506,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
Left = 237 Left = 237
Top = 101 Top = 101
Width = 208 Width = 208
Height = 606 Height = 598
Align = alLeft Align = alLeft
BevelInner = bvRaised BevelInner = bvRaised
BevelOuter = bvLowered BevelOuter = bvLowered
@ -2515,7 +2515,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
Left = 2 Left = 2
Top = 2 Top = 2
Width = 204 Width = 204
Height = 280 Height = 272
Align = alClient Align = alClient
TabOrder = 0 TabOrder = 0
object Tv2: TcxGridDBTableView object Tv2: TcxGridDBTableView
@ -2624,7 +2624,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
object Panel8: TPanel object Panel8: TPanel
Left = 2 Left = 2
Top = 282 Top = 274
Width = 204 Width = 204
Height = 29 Height = 29
Align = alBottom Align = alBottom
@ -2639,7 +2639,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
object AOrdDefNote1: TRichEdit object AOrdDefNote1: TRichEdit
Left = 2 Left = 2
Top = 311 Top = 303
Width = 204 Width = 204
Height = 293 Height = 293
Align = alBottom Align = alBottom

6
检验管理/U_MJManageNewFDNew.pas
View File

@ -511,9 +511,9 @@ begin
if isCommopen then if isCommopen then
begin begin
if trim(DllName) <> '' then if trim(DllName) <> '' then
closeCom(DllName); closeCom(DllName);
if trim(JCYDLL) <> '' then // if trim(JCYDLL) <> '' then
closeCom(JCYDLL); // closeCom(JCYDLL);
end; end;
end; end;