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

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

@ -264,6 +264,7 @@ type
Label43: TLabel; Label43: TLabel;
Tv3Column1: TcxGridDBColumn; Tv3Column1: TcxGridDBColumn;
Tv3Column2: TcxGridDBColumn; Tv3Column2: TcxGridDBColumn;
Tv3Column3: TcxGridDBColumn;
procedure FormDestroy(Sender: TObject); procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject); procedure TBCloseClick(Sender: TObject);
@ -2979,12 +2980,26 @@ procedure TfrmMJManageNewFDNewSF.TBCDClick(Sender: TObject);
var var
fPrintFile: string; fPrintFile: string;
i: Integer; i: Integer;
begin begin
if CDS_MJID.IsEmpty then if CDS_MJID.IsEmpty then
Exit; Exit;
MggCDFalg := '99'; 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 := ''; Label16.Caption := '';
BTAdd.Click; BTAdd.Click;
MJLen.SetFocus; MJLen.SetFocus;