Group_01/D7DJjinmage
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-07-19 11:45:56 +08:00
parent 4ea1e0d6f7
commit a0e7a9e185
4 changed files with 97 additions and 67 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -985,7 +985,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
TabOrder = 2 TabOrder = 2
object Label9: TLabel object Label9: TLabel
Left = 152 Left = 152
Top = 78 Top = 114
Width = 15 Width = 15
Height = 22 Height = 22
Caption = 'M' Caption = 'M'
@ -999,7 +999,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
object Label3: TLabel object Label3: TLabel
Left = 144 Left = 144
Top = 383 Top = 416
Width = 26 Width = 26
Height = 22 Height = 22
Caption = 'cm' Caption = 'cm'
@ -1012,7 +1012,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
object Label4: TLabel object Label4: TLabel
Left = 152 Left = 152
Top = 185 Top = 221
Width = 28 Width = 28
Height = 22 Height = 22
Caption = 'KG' Caption = 'KG'
@ -1025,7 +1025,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
object Label5: TLabel object Label5: TLabel
Left = 8 Left = 8
Top = 77 Top = 113
Width = 42 Width = 42
Height = 20 Height = 20
Caption = #38271#24230 Caption = #38271#24230
@ -1038,7 +1038,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
object Label6: TLabel object Label6: TLabel
Left = 8 Left = 8
Top = 383 Top = 416
Width = 42 Width = 42
Height = 20 Height = 20
Caption = #24133#23485 Caption = #24133#23485
@ -1051,7 +1051,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
object Label11: TLabel object Label11: TLabel
Left = 8 Left = 8
Top = 185 Top = 221
Width = 42 Width = 42
Height = 20 Height = 20
Caption = #27611#37325 Caption = #27611#37325
@ -1064,7 +1064,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
object Label10: TLabel object Label10: TLabel
Left = 8 Left = 8
Top = 296 Top = 329
Width = 42 Width = 42
Height = 20 Height = 20
Caption = #27491#21697 Caption = #27491#21697
@ -1077,7 +1077,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
object Label12: TLabel object Label12: TLabel
Left = 92 Left = 92
Top = 296 Top = 329
Width = 40 Width = 40
Height = 19 Height = 19
Caption = #27425#21697 Caption = #27425#21697
@ -1130,7 +1130,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
object Label22: TLabel object Label22: TLabel
Left = 144 Left = 144
Top = 424 Top = 451
Width = 36 Width = 36
Height = 22 Height = 22
Caption = 'g/'#13217 Caption = 'g/'#13217
@ -1143,7 +1143,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
object Label23: TLabel object Label23: TLabel
Left = 8 Left = 8
Top = 423 Top = 450
Width = 42 Width = 42
Height = 20 Height = 20
Caption = #20811#37325 Caption = #20811#37325
@ -1169,7 +1169,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
object Label26: TLabel object Label26: TLabel
Left = 8 Left = 8
Top = 339 Top = 372
Width = 42 Width = 42
Height = 20 Height = 20
Caption = #20986#32440 Caption = #20986#32440
@ -1196,7 +1196,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
object Label30: TLabel object Label30: TLabel
Left = 8 Left = 8
Top = 113 Top = 149
Width = 42 Width = 42
Height = 20 Height = 20
Caption = #30382#37325 Caption = #30382#37325
@ -1209,7 +1209,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
object Label31: TLabel object Label31: TLabel
Left = 152 Left = 152
Top = 149 Top = 185
Width = 28 Width = 28
Height = 22 Height = 22
Caption = 'KG' Caption = 'KG'
@ -1222,7 +1222,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
object Label32: TLabel object Label32: TLabel
Left = 8 Left = 8
Top = 149 Top = 185
Width = 42 Width = 42
Height = 20 Height = 20
Caption = #20928#37325 Caption = #20928#37325
@ -1235,7 +1235,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
object Label33: TLabel object Label33: TLabel
Left = 152 Left = 152
Top = 114 Top = 150
Width = 28 Width = 28
Height = 22 Height = 22
Caption = 'KG' Caption = 'KG'
@ -1248,7 +1248,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
object Label34: TLabel object Label34: TLabel
Left = 90 Left = 90
Top = 342 Top = 375
Width = 40 Width = 40
Height = 19 Height = 19
Caption = #20221#25968 Caption = #20221#25968
@ -1287,7 +1287,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
object Label39: TLabel object Label39: TLabel
Left = 8 Left = 8
Top = 221 Top = 257
Width = 42 Width = 42
Height = 20 Height = 20
Caption = #31995#25968 Caption = #31995#25968
@ -1326,7 +1326,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
object Label28: TLabel object Label28: TLabel
Left = 10 Left = 10
Top = 260 Top = 295
Width = 42 Width = 42
Height = 20 Height = 20
Caption = #21253#21495 Caption = #21253#21495
@ -1337,24 +1337,38 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
end end
object Label53: TLabel
Left = 12
Top = 73
Width = 34
Height = 32
Caption = #26579#21378#13#10#32568#21495
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -16
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object MJFK: TEdit object MJFK: TEdit
Left = 51 Left = 51
Top = 377 Top = 410
Width = 90 Width = 90
Height = 41 Height = 34
AutoSize = False
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -32 Font.Height = -32
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
TabOrder = 16 TabOrder = 15
OnClick = MJXHClick OnClick = MJXHClick
OnKeyPress = MJstr3KeyPress OnKeyPress = MJstr3KeyPress
end end
object MJLen: TEdit object MJLen: TEdit
Left = 57 Left = 57
Top = 73 Top = 109
Width = 90 Width = 90
Height = 36 Height = 36
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
@ -1371,7 +1385,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
object MJMaoZ: TEdit object MJMaoZ: TEdit
Left = 57 Left = 57
Top = 181 Top = 217
Width = 90 Width = 90
Height = 36 Height = 36
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
@ -1387,9 +1401,9 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
object BTPrint: TButton object BTPrint: TButton
Left = 10 Left = 10
Top = 460 Top = 480
Width = 171 Width = 171
Height = 93 Height = 73
Caption = #25552#20132 Caption = #25552#20132
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
@ -1397,12 +1411,12 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
TabOrder = 19 TabOrder = 18
OnClick = BTPrintClick OnClick = BTPrintClick
end end
object Edit3: TEdit object Edit3: TEdit
Left = 52 Left = 52
Top = 290 Top = 323
Width = 39 Width = 39
Height = 43 Height = 43
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
@ -1419,7 +1433,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
object Edit4: TEdit object Edit4: TEdit
Left = 130 Left = 130
Top = 290 Top = 323
Width = 40 Width = 40
Height = 43 Height = 43
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
@ -1452,16 +1466,17 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
object MJSJKZ: TEdit object MJSJKZ: TEdit
Left = 51 Left = 51
Top = 418 Top = 445
Width = 90 Width = 90
Height = 41 Height = 34
AutoSize = False
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -32 Font.Height = -32
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
TabOrder = 18 TabOrder = 17
OnClick = MJXHClick OnClick = MJXHClick
OnKeyPress = MJstr3KeyPress OnKeyPress = MJstr3KeyPress
end end
@ -1476,7 +1491,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
TabOrder = 17 TabOrder = 16
OnChange = MJQty2Change OnChange = MJQty2Change
OnClick = Edit1Click OnClick = Edit1Click
OnKeyDown = MJQty4KeyDown OnKeyDown = MJQty4KeyDown
@ -1484,7 +1499,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
object Edit6: TEdit object Edit6: TEdit
Left = 52 Left = 52
Top = 333 Top = 366
Width = 40 Width = 40
Height = 43 Height = 43
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
@ -1494,7 +1509,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
ReadOnly = True ReadOnly = True
TabOrder = 14 TabOrder = 13
Text = #8730 Text = #8730
OnClick = Edit6Click OnClick = Edit6Click
OnKeyPress = MJstr3KeyPress OnKeyPress = MJstr3KeyPress
@ -1518,7 +1533,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
object MJQty3: TEdit object MJQty3: TEdit
Left = 57 Left = 57
Top = 109 Top = 145
Width = 90 Width = 90
Height = 36 Height = 36
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
@ -1535,7 +1550,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
object MJQty4: TEdit object MJQty4: TEdit
Left = 57 Left = 57
Top = 145 Top = 181
Width = 90 Width = 90
Height = 36 Height = 36
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
@ -1552,7 +1567,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
object ComboBox1: TComboBox object ComboBox1: TComboBox
Left = 132 Left = 132
Top = 334 Top = 367
Width = 45 Width = 45
Height = 40 Height = 40
Style = csDropDownList Style = csDropDownList
@ -1565,7 +1580,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
ItemHeight = 32 ItemHeight = 32
ItemIndex = 0 ItemIndex = 0
ParentFont = False ParentFont = False
TabOrder = 15 TabOrder = 14
Text = '1' Text = '1'
Items.Strings = ( Items.Strings = (
'1' '1'
@ -1575,9 +1590,10 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
object MJStr4: TEdit object MJStr4: TEdit
Left = 57 Left = 57
Top = 37 Top = 39
Width = 90 Width = 90
Height = 36 Height = 34
AutoSize = False
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -28 Font.Height = -28
@ -1607,9 +1623,10 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
object kmxs: TEdit object kmxs: TEdit
Left = 57 Left = 57
Top = 217 Top = 253
Width = 90 Width = 90
Height = 36 Height = 34
AutoSize = False
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -28 Font.Height = -28
@ -1621,27 +1638,12 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
OnKeyDown = MJQty4KeyDown OnKeyDown = MJQty4KeyDown
OnKeyPress = MJstr3KeyPress OnKeyPress = MJstr3KeyPress
end end
object MJstr5: TEdit
Left = 285
Top = 322
Width = 90
Height = 41
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -32
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 13
OnClick = MJXHClick
OnExit = MJStr4Exit
OnKeyPress = MJstr3KeyPress
end
object baoNo: TEdit object baoNo: TEdit
Left = 57 Left = 57
Top = 253 Top = 288
Width = 90 Width = 90
Height = 36 Height = 34
AutoSize = False
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -28 Font.Height = -28
@ -1671,9 +1673,27 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
TabOrder = 20 TabOrder = 19
OnClick = Button7Click OnClick = Button7Click
end end
object MJstr5: TEdit
Left = 57
Top = 74
Width = 90
Height = 34
AutoSize = False
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -28
Font.Name = #23435#20307
Font.Style = [fsBold]
ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
ParentFont = False
TabOrder = 20
OnClick = MJXHClick
OnExit = MJStr4Exit
OnKeyPress = MJstr3KeyPress
end
end end
object MovePanel1: TMovePanel object MovePanel1: TMovePanel
Left = 634 Left = 634
@ -2086,8 +2106,8 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
end end
object Panel3: TPanel object Panel3: TPanel
Left = 634 Left = 635
Top = 328 Top = 320
Width = 353 Width = 353
Height = 334 Height = 334
BevelInner = bvRaised BevelInner = bvRaised

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

@ -208,7 +208,6 @@ type
v3Column5: TcxGridDBColumn; v3Column5: TcxGridDBColumn;
kmxs: TEdit; kmxs: TEdit;
Label39: TLabel; Label39: TLabel;
MJstr5: TEdit;
Label40: TLabel; Label40: TLabel;
Label41: TLabel; Label41: TLabel;
Edit8: TEdit; Edit8: TEdit;
@ -262,6 +261,8 @@ type
RM3: TRMGridReport; RM3: TRMGridReport;
Edit5: TEdit; Edit5: TEdit;
Label43: TLabel; Label43: TLabel;
Label53: TLabel;
MJstr5: TEdit;
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);
@ -2497,10 +2498,11 @@ begin
Application.MessageBox('取包条码最大号失败！', '提示', 0); Application.MessageBox('取包条码最大号失败！', '提示', 0);
Exit; Exit;
end; end;
baoid.Text := FBaoID; baoid.Text := FBaoID;
Edit3.Text := '√'; Edit3.Text := '√';
Edit4.Text := ''; Edit4.Text := '';
MJStr4.Text := Trim(ADOTmp.fieldbyname('Prtgh').AsString); MJStr4.Text := Trim(ADOTmp.fieldbyname('Prtgh').AsString);
MJStr5.Text := Trim(ADOTmp.fieldbyname('Prtrcgh').AsString);
end end
else else
begin begin
@ -2730,6 +2732,7 @@ begin
Label15.Caption := Trim(CDS_MJID.fieldbyname('MJID').AsString); Label15.Caption := Trim(CDS_MJID.fieldbyname('MJID').AsString);
MJLen.Text := Trim(ADOTmp.fieldbyname('MJLen').AsString); MJLen.Text := Trim(ADOTmp.fieldbyname('MJLen').AsString);
MJstr4.Text := Trim(ADOTmp.fieldbyname('MJstr4').AsString); MJstr4.Text := Trim(ADOTmp.fieldbyname('MJstr4').AsString);
MJstr5.Text := Trim(ADOTmp.fieldbyname('MJstr5').AsString);
MJXH.Text := Trim(ADOTmp.fieldbyname('MJXH').AsString); MJXH.Text := Trim(ADOTmp.fieldbyname('MJXH').AsString);
baono.Text := Trim(ADOTmp.fieldbyname('baono').AsString); baono.Text := Trim(ADOTmp.fieldbyname('baono').AsString);
baoid.Text := Trim(ADOTmp.fieldbyname('baoid').AsString); baoid.Text := Trim(ADOTmp.fieldbyname('baoid').AsString);

6
打卷检验管理/U_OrderInPut.dfm
View File

@ -1817,6 +1817,12 @@ object frmOrderInPut: TfrmOrderInPut
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 60 Width = 60
end end
object Tv1Column2: TcxGridDBColumn
Caption = #26579#21378#32568#21495
DataBinding.FieldName = 'Prtrcgh'
HeaderAlignmentHorz = taCenter
Width = 60
end
end end
object cxGrid1Level1: TcxGridLevel object cxGrid1Level1: TcxGridLevel
GridView = Tv1 GridView = Tv1

5
打卷检验管理/U_OrderInPut.pas
View File

@ -1,7 +1,7 @@
unit U_OrderInPut; unit U_OrderInPut;
interface interface
uses uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage, Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage,
@ -192,6 +192,7 @@ type
ToolButton4: TToolButton; ToolButton4: TToolButton;
QryCheckNet: TADOQuery; QryCheckNet: TADOQuery;
Tv1Column1: TcxGridDBColumn; Tv1Column1: TcxGridDBColumn;
Tv1Column2: TcxGridDBColumn;
procedure TBCloseClick(Sender: TObject); procedure TBCloseClick(Sender: TObject);
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);
procedure TBSaveClick(Sender: TObject); procedure TBSaveClick(Sender: TObject);