Group_01/D7DJweimian
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:55:54 +08:00
parent be3c7a98f0
commit 1bd28e3cdf
2 changed files with 31 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -48,13 +48,20 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end>
DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnFiltering = False
OptionsData.Editing = False
OptionsSelection.CellSelect = False
OptionsView.Footer = True
OptionsView.GroupByBox = False
Styles.Inactive = cxStyle4
Styles.IncSearch = cxStyle4
Styles.Selection = cxStyle4
object Tv3Column3: TcxGridDBColumn
Caption = #36873#25321
DataBinding.FieldName = 'Ssel'
PropertiesClassName = 'TcxCheckBoxProperties'
Properties.ImmediatePost = True
Properties.NullStyle = nssUnchecked
HeaderAlignmentHorz = taCenter
Width = 41
end
object v3Column1: TcxGridDBColumn
Caption = #21367#21495
DataBinding.FieldName = 'MJXH'
@ -77,6 +84,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
Caption = #30721#25968
DataBinding.FieldName = 'YMJlen'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Content = cxStyle3
Styles.Header = cxStyle3
Width = 45
@ -85,6 +93,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
Caption = #30721#23610#38271#24230
DataBinding.FieldName = 'MCMJlen'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Content = cxStyle5
Styles.Header = cxStyle5
Width = 60
@ -93,6 +102,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
Caption = #27611#37325
DataBinding.FieldName = 'MJMaoZ'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Content = cxStyle5
Styles.Footer = cxStyle5
Styles.Header = cxStyle5
@ -102,6 +112,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
Caption = #20928#37325
DataBinding.FieldName = 'MJQty4'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Content = cxStyle3
Styles.Footer = cxStyle3
Styles.Header = cxStyle3
@ -111,6 +122,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
Caption = #32568#21495
DataBinding.FieldName = 'mjstr4'
HeaderGlyphAlignmentHorz = taCenter
Options.Editing = False
Styles.Content = cxStyle5
Styles.Header = cxStyle5
Width = 40
@ -127,7 +139,6 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
Caption = #21367#26465#30721
DataBinding.FieldName = 'MJID'
HeaderAlignmentHorz = taCenter
Options.Focusing = False
Options.Sorting = False
Styles.Content = cxStyle5
Styles.Header = cxStyle5

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

@ -264,6 +264,7 @@ type
Label43: TLabel;
Tv3Column1: TcxGridDBColumn;
Tv3Column2: TcxGridDBColumn;
Tv3Column3: TcxGridDBColumn;
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject);
@ -2979,12 +2980,26 @@ procedure TfrmMJManageNewFDNewSF.TBCDClick(Sender: TObject);
var
fPrintFile: string;
i: Integer;
begin
begin
if CDS_MJID.IsEmpty then
Exit;
MggCDFalg := '99';
CDS_MJID.DisableControls;
with CDS_MJID do
begin
First;
while not Eof do
begin
if CDS_MJID.FieldByName('SSel').AsBoolean = True then
begin
PrtData(Trim(CDS_MJID.fieldbyname('MJID').AsString));
end;
PrtData(Trim(CDS_MJID.fieldbyname('MJID').AsString));
Next;
end;
end;
CDS_MJID.EnableControls;
// PrtData(Trim(CDS_MJID.fieldbyname('MJID').AsString));
Label16.Caption := '';
BTAdd.Click;
MJLen.SetFocus;