diff --git a/打卷检验管理/U_MJManageNewFDNew.dfm b/打卷检验管理/U_MJManageNewFDNew.dfm index 49d5659..6813b5b 100644 --- a/打卷检验管理/U_MJManageNewFDNew.dfm +++ b/打卷检验管理/U_MJManageNewFDNew.dfm @@ -985,7 +985,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF TabOrder = 2 object Label9: TLabel Left = 152 - Top = 78 + Top = 114 Width = 15 Height = 22 Caption = 'M' @@ -999,7 +999,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF end object Label3: TLabel Left = 144 - Top = 383 + Top = 416 Width = 26 Height = 22 Caption = 'cm' @@ -1012,7 +1012,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF end object Label4: TLabel Left = 152 - Top = 185 + Top = 221 Width = 28 Height = 22 Caption = 'KG' @@ -1025,7 +1025,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF end object Label5: TLabel Left = 8 - Top = 77 + Top = 113 Width = 42 Height = 20 Caption = #38271#24230 @@ -1038,7 +1038,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF end object Label6: TLabel Left = 8 - Top = 383 + Top = 416 Width = 42 Height = 20 Caption = #24133#23485 @@ -1051,7 +1051,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF end object Label11: TLabel Left = 8 - Top = 185 + Top = 221 Width = 42 Height = 20 Caption = #27611#37325 @@ -1064,7 +1064,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF end object Label10: TLabel Left = 8 - Top = 296 + Top = 329 Width = 42 Height = 20 Caption = #27491#21697 @@ -1077,7 +1077,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF end object Label12: TLabel Left = 92 - Top = 296 + Top = 329 Width = 40 Height = 19 Caption = #27425#21697 @@ -1130,7 +1130,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF end object Label22: TLabel Left = 144 - Top = 424 + Top = 451 Width = 36 Height = 22 Caption = 'g/'#13217 @@ -1143,7 +1143,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF end object Label23: TLabel Left = 8 - Top = 423 + Top = 450 Width = 42 Height = 20 Caption = #20811#37325 @@ -1169,7 +1169,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF end object Label26: TLabel Left = 8 - Top = 339 + Top = 372 Width = 42 Height = 20 Caption = #20986#32440 @@ -1196,7 +1196,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF end object Label30: TLabel Left = 8 - Top = 113 + Top = 149 Width = 42 Height = 20 Caption = #30382#37325 @@ -1209,7 +1209,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF end object Label31: TLabel Left = 152 - Top = 149 + Top = 185 Width = 28 Height = 22 Caption = 'KG' @@ -1222,7 +1222,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF end object Label32: TLabel Left = 8 - Top = 149 + Top = 185 Width = 42 Height = 20 Caption = #20928#37325 @@ -1235,7 +1235,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF end object Label33: TLabel Left = 152 - Top = 114 + Top = 150 Width = 28 Height = 22 Caption = 'KG' @@ -1248,7 +1248,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF end object Label34: TLabel Left = 90 - Top = 342 + Top = 375 Width = 40 Height = 19 Caption = #20221#25968 @@ -1287,7 +1287,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF end object Label39: TLabel Left = 8 - Top = 221 + Top = 257 Width = 42 Height = 20 Caption = #31995#25968 @@ -1326,7 +1326,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF end object Label28: TLabel Left = 10 - Top = 260 + Top = 295 Width = 42 Height = 20 Caption = #21253#21495 @@ -1337,24 +1337,38 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF Font.Style = [fsBold] ParentFont = False 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 Left = 51 - Top = 377 + Top = 410 Width = 90 - Height = 41 + Height = 34 + AutoSize = False Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -32 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False - TabOrder = 16 + TabOrder = 15 OnClick = MJXHClick OnKeyPress = MJstr3KeyPress end object MJLen: TEdit Left = 57 - Top = 73 + Top = 109 Width = 90 Height = 36 Font.Charset = GB2312_CHARSET @@ -1371,7 +1385,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF end object MJMaoZ: TEdit Left = 57 - Top = 181 + Top = 217 Width = 90 Height = 36 Font.Charset = GB2312_CHARSET @@ -1387,9 +1401,9 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF end object BTPrint: TButton Left = 10 - Top = 460 + Top = 480 Width = 171 - Height = 93 + Height = 73 Caption = #25552#20132 Font.Charset = GB2312_CHARSET Font.Color = clWindowText @@ -1397,12 +1411,12 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False - TabOrder = 19 + TabOrder = 18 OnClick = BTPrintClick end object Edit3: TEdit Left = 52 - Top = 290 + Top = 323 Width = 39 Height = 43 Font.Charset = GB2312_CHARSET @@ -1419,7 +1433,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF end object Edit4: TEdit Left = 130 - Top = 290 + Top = 323 Width = 40 Height = 43 Font.Charset = GB2312_CHARSET @@ -1452,16 +1466,17 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF end object MJSJKZ: TEdit Left = 51 - Top = 418 + Top = 445 Width = 90 - Height = 41 + Height = 34 + AutoSize = False Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -32 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False - TabOrder = 18 + TabOrder = 17 OnClick = MJXHClick OnKeyPress = MJstr3KeyPress end @@ -1476,7 +1491,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False - TabOrder = 17 + TabOrder = 16 OnChange = MJQty2Change OnClick = Edit1Click OnKeyDown = MJQty4KeyDown @@ -1484,7 +1499,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF end object Edit6: TEdit Left = 52 - Top = 333 + Top = 366 Width = 40 Height = 43 Font.Charset = GB2312_CHARSET @@ -1494,7 +1509,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF Font.Style = [fsBold] ParentFont = False ReadOnly = True - TabOrder = 14 + TabOrder = 13 Text = #8730 OnClick = Edit6Click OnKeyPress = MJstr3KeyPress @@ -1518,7 +1533,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF end object MJQty3: TEdit Left = 57 - Top = 109 + Top = 145 Width = 90 Height = 36 Font.Charset = GB2312_CHARSET @@ -1535,7 +1550,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF end object MJQty4: TEdit Left = 57 - Top = 145 + Top = 181 Width = 90 Height = 36 Font.Charset = GB2312_CHARSET @@ -1552,7 +1567,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF end object ComboBox1: TComboBox Left = 132 - Top = 334 + Top = 367 Width = 45 Height = 40 Style = csDropDownList @@ -1565,7 +1580,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF ItemHeight = 32 ItemIndex = 0 ParentFont = False - TabOrder = 15 + TabOrder = 14 Text = '1' Items.Strings = ( '1' @@ -1575,9 +1590,10 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF end object MJStr4: TEdit Left = 57 - Top = 37 + Top = 39 Width = 90 - Height = 36 + Height = 34 + AutoSize = False Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -28 @@ -1607,9 +1623,10 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF end object kmxs: TEdit Left = 57 - Top = 217 + Top = 253 Width = 90 - Height = 36 + Height = 34 + AutoSize = False Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -28 @@ -1621,27 +1638,12 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF OnKeyDown = MJQty4KeyDown OnKeyPress = MJstr3KeyPress 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 Left = 57 - Top = 253 + Top = 288 Width = 90 - Height = 36 + Height = 34 + AutoSize = False Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -28 @@ -1671,9 +1673,27 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False - TabOrder = 20 + TabOrder = 19 OnClick = Button7Click 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 object MovePanel1: TMovePanel Left = 634 @@ -2086,8 +2106,8 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF end end object Panel3: TPanel - Left = 634 - Top = 328 + Left = 635 + Top = 320 Width = 353 Height = 334 BevelInner = bvRaised diff --git a/打卷检验管理/U_MJManageNewFDNew.pas b/打卷检验管理/U_MJManageNewFDNew.pas index c48166c..f31e07c 100644 --- a/打卷检验管理/U_MJManageNewFDNew.pas +++ b/打卷检验管理/U_MJManageNewFDNew.pas @@ -208,7 +208,6 @@ type v3Column5: TcxGridDBColumn; kmxs: TEdit; Label39: TLabel; - MJstr5: TEdit; Label40: TLabel; Label41: TLabel; Edit8: TEdit; @@ -262,6 +261,8 @@ type RM3: TRMGridReport; Edit5: TEdit; Label43: TLabel; + Label53: TLabel; + MJstr5: TEdit; procedure FormDestroy(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure TBCloseClick(Sender: TObject); @@ -2497,10 +2498,11 @@ begin Application.MessageBox('ȡʧܣ', 'ʾ', 0); Exit; end; - baoid.Text := FBaoID; + baoid.Text := FBaoID; Edit3.Text := ''; Edit4.Text := ''; MJStr4.Text := Trim(ADOTmp.fieldbyname('Prtgh').AsString); + MJStr5.Text := Trim(ADOTmp.fieldbyname('Prtrcgh').AsString); end else begin @@ -2730,6 +2732,7 @@ begin Label15.Caption := Trim(CDS_MJID.fieldbyname('MJID').AsString); MJLen.Text := Trim(ADOTmp.fieldbyname('MJLen').AsString); MJstr4.Text := Trim(ADOTmp.fieldbyname('MJstr4').AsString); + MJstr5.Text := Trim(ADOTmp.fieldbyname('MJstr5').AsString); MJXH.Text := Trim(ADOTmp.fieldbyname('MJXH').AsString); baono.Text := Trim(ADOTmp.fieldbyname('baono').AsString); baoid.Text := Trim(ADOTmp.fieldbyname('baoid').AsString); diff --git a/打卷检验管理/U_OrderInPut.dfm b/打卷检验管理/U_OrderInPut.dfm index 839d256..d00a0ed 100644 --- a/打卷检验管理/U_OrderInPut.dfm +++ b/打卷检验管理/U_OrderInPut.dfm @@ -1817,6 +1817,12 @@ object frmOrderInPut: TfrmOrderInPut HeaderAlignmentHorz = taCenter Width = 60 end + object Tv1Column2: TcxGridDBColumn + Caption = #26579#21378#32568#21495 + DataBinding.FieldName = 'Prtrcgh' + HeaderAlignmentHorz = taCenter + Width = 60 + end end object cxGrid1Level1: TcxGridLevel GridView = Tv1 diff --git a/打卷检验管理/U_OrderInPut.pas b/打卷检验管理/U_OrderInPut.pas index 2883557..248c424 100644 --- a/打卷检验管理/U_OrderInPut.pas +++ b/打卷检验管理/U_OrderInPut.pas @@ -1,7 +1,7 @@ unit U_OrderInPut; -interface - +interface + uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage, @@ -192,6 +192,7 @@ type ToolButton4: TToolButton; QryCheckNet: TADOQuery; Tv1Column1: TcxGridDBColumn; + Tv1Column2: TcxGridDBColumn; procedure TBCloseClick(Sender: TObject); procedure FormShow(Sender: TObject); procedure TBSaveClick(Sender: TObject);