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

5
打卷检验管理/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);
@ -2501,6 +2502,7 @@ begin
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

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

@ -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);