From 57680f105575142d10c9e0b5ae2f4b1cfeee9f3d Mon Sep 17 00:00:00 2001 From: "DESKTOP-E401PHE\\Administrator" Date: Tue, 2 Dec 2025 13:36:48 +0800 Subject: [PATCH] ~ --- 打卷检验管理/U_GetDllForm.pas | 2 +- 打卷检验管理/U_MJManageNewFDNew.dfm | 24 ++++++++++++------------ 打卷检验管理/U_MJManageNewFDNew.pas | 2 +- 3 files changed, 14 insertions(+), 14 deletions(-) diff --git a/打卷检验管理/U_GetDllForm.pas b/打卷检验管理/U_GetDllForm.pas index 92bfdae..da19728 100644 --- a/打卷检验管理/U_GetDllForm.pas +++ b/打卷检验管理/U_GetDllForm.pas @@ -1,7 +1,7 @@ unit U_GetDllForm; interface - + uses Windows, Messages, forms, OleCtnrs, DateUtils, SysUtils, ADODB, inifiles, dxCore, ActiveX; diff --git a/打卷检验管理/U_MJManageNewFDNew.dfm b/打卷检验管理/U_MJManageNewFDNew.dfm index 022f8c9..bda8c6f 100644 --- a/打卷检验管理/U_MJManageNewFDNew.dfm +++ b/打卷检验管理/U_MJManageNewFDNew.dfm @@ -20,7 +20,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF object cxGrid3: TcxGrid Left = 0 Top = 87 - Width = 214 + Width = 225 Height = 705 Align = alLeft TabOrder = 0 @@ -123,9 +123,9 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF end end object ScrollBox1: TScrollBox - Left = 705 + Left = 686 Top = 87 - Width = 645 + Width = 664 Height = 705 Align = alClient Color = clWhite @@ -974,7 +974,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF end end object Panel2: TPanel - Left = 428 + Left = 409 Top = 87 Width = 277 Height = 705 @@ -2038,9 +2038,9 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF end end object Panel7: TPanel - Left = 214 + Left = 225 Top = 87 - Width = 214 + Width = 184 Height = 705 Align = alLeft BevelInner = bvRaised @@ -2049,7 +2049,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF object cxGrid2: TcxGrid Left = 2 Top = 2 - Width = 210 + Width = 180 Height = 286 Align = alClient TabOrder = 0 @@ -2087,7 +2087,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF Options.Sorting = False Styles.Content = cxStyle4 Styles.Header = cxStyle4 - Width = 52 + Width = 42 end object tv2CDWZ: TcxGridDBColumn Caption = #36215 @@ -2098,7 +2098,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF Options.Sorting = False Styles.Content = cxStyle1 Styles.Header = cxStyle1 - Width = 37 + Width = 28 end object v2Column2: TcxGridDBColumn Caption = #27490 @@ -2107,7 +2107,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF HeaderGlyphAlignmentHorz = taCenter Styles.Content = cxStyle1 Styles.Header = cxStyle1 - Width = 38 + Width = 28 end object Tv2CDQty: TcxGridDBColumn Caption = #25968#37327 @@ -2159,7 +2159,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF object Panel8: TPanel Left = 2 Top = 288 - Width = 210 + Width = 180 Height = 96 Align = alBottom Font.Charset = GB2312_CHARSET @@ -2225,7 +2225,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF object AOrdDefNote1: TRichEdit Left = 2 Top = 384 - Width = 210 + Width = 180 Height = 319 Align = alBottom Font.Charset = GB2312_CHARSET diff --git a/打卷检验管理/U_MJManageNewFDNew.pas b/打卷检验管理/U_MJManageNewFDNew.pas index 7548a58..a6c1fc8 100644 --- a/打卷检验管理/U_MJManageNewFDNew.pas +++ b/打卷检验管理/U_MJManageNewFDNew.pas @@ -2,7 +2,7 @@ unit U_MJManageNewFDNew; interface -uses +uses Windows, Messages, SysUtils, Variants, math, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, cxCalendar, cxGridLevel,