diff --git a/检验管理/U_MJManageNewFDNew.dfm b/检验管理/U_MJManageNewFDNew.dfm index 8ec1ade..8470308 100644 --- a/检验管理/U_MJManageNewFDNew.dfm +++ b/检验管理/U_MJManageNewFDNew.dfm @@ -1,8 +1,8 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF - Left = 196 - Top = 90 + Left = -33 + Top = 113 Width = 1522 - Height = 738 + Height = 723 Caption = #25104#21697#26816#39564 Color = clBtnFace Font.Charset = GB2312_CHARSET @@ -22,7 +22,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF Left = 0 Top = 87 Width = 545 - Height = 620 + Height = 605 Align = alLeft TabOrder = 0 object Tv3: TcxGridDBTableView @@ -194,861 +194,11 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF GridView = Tv3 end end - object ScrollBox1: TScrollBox - Left = 1001 - Top = 87 - Width = 513 - Height = 620 - Align = alClient - Color = clWhite - ParentColor = False - TabOrder = 3 - object SpeedButton13: TSpeedButton - Left = 7 - Top = 3 - Width = 50 - Height = 50 - Caption = #23567#40657#28857 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -19 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False - OnClick = SpeedButton13Click - end - object SpeedButton14: TSpeedButton - Left = 63 - Top = 3 - Width = 50 - Height = 50 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -19 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False - Visible = False - OnClick = SpeedButton13Click - end - object SpeedButton15: TSpeedButton - Left = 119 - Top = 3 - Width = 50 - Height = 50 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -19 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False - Visible = False - OnClick = SpeedButton13Click - end - object SpeedButton16: TSpeedButton - Left = 175 - Top = 3 - Width = 50 - Height = 50 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -19 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False - Visible = False - OnClick = SpeedButton13Click - end - object SpeedButton17: TSpeedButton - Left = 231 - Top = 3 - Width = 50 - Height = 50 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -19 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False - Visible = False - OnClick = SpeedButton13Click - end - object SpeedButton18: TSpeedButton - Left = 287 - Top = 3 - Width = 50 - Height = 50 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -19 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False - Visible = False - OnClick = SpeedButton13Click - end - object SpeedButton22: TSpeedButton - Left = 7 - Top = 61 - Width = 50 - Height = 50 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -19 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False - Visible = False - OnClick = SpeedButton13Click - end - object SpeedButton23: TSpeedButton - Left = 63 - Top = 61 - Width = 50 - Height = 50 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -19 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False - Visible = False - OnClick = SpeedButton13Click - end - object SpeedButton24: TSpeedButton - Left = 119 - Top = 61 - Width = 50 - Height = 50 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -19 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False - Visible = False - OnClick = SpeedButton13Click - end - object SpeedButton25: TSpeedButton - Left = 175 - Top = 61 - Width = 50 - Height = 50 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -19 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False - Visible = False - OnClick = SpeedButton13Click - end - object SpeedButton26: TSpeedButton - Left = 231 - Top = 61 - Width = 50 - Height = 50 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -19 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False - Visible = False - OnClick = SpeedButton13Click - end - object SpeedButton29: TSpeedButton - Left = 287 - Top = 61 - Width = 50 - Height = 50 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -19 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False - Visible = False - OnClick = SpeedButton13Click - end - object SpeedButton31: TSpeedButton - Left = 7 - Top = 119 - Width = 50 - Height = 50 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -19 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False - Visible = False - OnClick = SpeedButton13Click - end - object SpeedButton32: TSpeedButton - Left = 63 - Top = 119 - Width = 50 - Height = 50 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -19 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False - Visible = False - OnClick = SpeedButton13Click - end - object SpeedButton33: TSpeedButton - Left = 119 - Top = 119 - Width = 50 - Height = 50 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -19 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False - Visible = False - OnClick = SpeedButton13Click - end - object SpeedButton34: TSpeedButton - Left = 175 - Top = 119 - Width = 50 - Height = 50 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -19 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False - Visible = False - OnClick = SpeedButton13Click - end - object SpeedButton37: TSpeedButton - Left = 231 - Top = 119 - Width = 50 - Height = 50 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -19 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False - Visible = False - OnClick = SpeedButton13Click - end - object SpeedButton38: TSpeedButton - Left = 287 - Top = 119 - Width = 50 - Height = 50 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -19 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False - Visible = False - OnClick = SpeedButton13Click - end - object SpeedButton40: TSpeedButton - Left = 7 - Top = 177 - Width = 50 - Height = 50 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -19 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False - Visible = False - OnClick = SpeedButton13Click - end - object SpeedButton41: TSpeedButton - Left = 63 - Top = 177 - Width = 50 - Height = 50 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -19 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False - Visible = False - OnClick = SpeedButton13Click - end - object SpeedButton42: TSpeedButton - Left = 119 - Top = 177 - Width = 50 - Height = 50 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -19 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False - Visible = False - OnClick = SpeedButton13Click - end - object SpeedButton45: TSpeedButton - Left = 175 - Top = 177 - Width = 50 - Height = 50 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -19 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False - Visible = False - OnClick = SpeedButton13Click - end - object SpeedButton46: TSpeedButton - Left = 231 - Top = 177 - Width = 50 - Height = 50 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -19 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False - Visible = False - OnClick = SpeedButton13Click - end - object SpeedButton47: TSpeedButton - Left = 287 - Top = 177 - Width = 50 - Height = 50 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -19 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False - Visible = False - OnClick = SpeedButton13Click - end - object SpeedButton50: TSpeedButton - Left = 7 - Top = 235 - Width = 50 - Height = 50 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -19 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False - Visible = False - OnClick = SpeedButton13Click - end - object SpeedButton51: TSpeedButton - Left = 63 - Top = 235 - Width = 50 - Height = 50 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -19 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False - Visible = False - OnClick = SpeedButton13Click - end - object SpeedButton54: TSpeedButton - Left = 119 - Top = 235 - Width = 50 - Height = 50 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -19 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False - Visible = False - OnClick = SpeedButton13Click - end - object SpeedButton55: TSpeedButton - Left = 175 - Top = 235 - Width = 50 - Height = 50 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -19 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False - Visible = False - OnClick = SpeedButton13Click - end - object SpeedButton56: TSpeedButton - Left = 231 - Top = 235 - Width = 50 - Height = 50 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -19 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False - Visible = False - OnClick = SpeedButton13Click - end - object SpeedButton57: TSpeedButton - Left = 287 - Top = 235 - Width = 50 - Height = 50 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -19 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False - Visible = False - OnClick = SpeedButton13Click - end - object SpeedButton59: TSpeedButton - Left = 7 - Top = 291 - Width = 50 - Height = 50 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -19 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False - Visible = False - OnClick = SpeedButton13Click - end - object SpeedButton62: TSpeedButton - Left = 63 - Top = 291 - Width = 50 - Height = 50 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -19 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False - Visible = False - OnClick = SpeedButton13Click - end - object SpeedButton63: TSpeedButton - Left = 119 - Top = 291 - Width = 50 - Height = 50 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -19 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False - Visible = False - OnClick = SpeedButton13Click - end - object SpeedButton64: TSpeedButton - Left = 175 - Top = 291 - Width = 50 - Height = 50 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -19 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False - Visible = False - OnClick = SpeedButton13Click - end - object SpeedButton65: TSpeedButton - Left = 231 - Top = 291 - Width = 50 - Height = 50 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -19 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False - Visible = False - OnClick = SpeedButton13Click - end - object SpeedButton66: TSpeedButton - Left = 287 - Top = 291 - Width = 50 - Height = 50 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -19 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False - Visible = False - OnClick = SpeedButton13Click - end - object SpeedButton70: TSpeedButton - Left = 7 - Top = 347 - Width = 50 - Height = 50 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -19 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False - Visible = False - OnClick = SpeedButton13Click - end - object SpeedButton71: TSpeedButton - Left = 63 - Top = 347 - Width = 50 - Height = 50 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -19 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False - Visible = False - OnClick = SpeedButton13Click - end - object SpeedButton72: TSpeedButton - Left = 119 - Top = 347 - Width = 50 - Height = 50 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -19 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False - Visible = False - OnClick = SpeedButton13Click - end - object SpeedButton73: TSpeedButton - Left = 175 - Top = 347 - Width = 50 - Height = 50 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -19 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False - Visible = False - OnClick = SpeedButton13Click - end - object SpeedButton74: TSpeedButton - Left = 231 - Top = 347 - Width = 50 - Height = 50 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -19 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False - Visible = False - OnClick = SpeedButton13Click - end - object SpeedButton75: TSpeedButton - Left = 287 - Top = 347 - Width = 50 - Height = 50 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -19 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False - Visible = False - OnClick = SpeedButton13Click - end - object SpeedButton20: TSpeedButton - Left = 7 - Top = 403 - Width = 50 - Height = 50 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -19 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False - Visible = False - OnClick = SpeedButton13Click - end - object SpeedButton27: TSpeedButton - Left = 63 - Top = 403 - Width = 50 - Height = 50 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -19 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False - Visible = False - OnClick = SpeedButton13Click - end - object SpeedButton28: TSpeedButton - Left = 119 - Top = 403 - Width = 50 - Height = 50 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -19 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False - Visible = False - OnClick = SpeedButton13Click - end - object SpeedButton35: TSpeedButton - Left = 175 - Top = 403 - Width = 50 - Height = 50 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -19 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False - Visible = False - OnClick = SpeedButton13Click - end - object SpeedButton36: TSpeedButton - Left = 231 - Top = 403 - Width = 50 - Height = 50 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -19 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False - Visible = False - OnClick = SpeedButton13Click - end - object SpeedButton43: TSpeedButton - Left = 287 - Top = 403 - Width = 50 - Height = 50 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -19 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False - Visible = False - OnClick = SpeedButton13Click - end - object SpeedButton52: TSpeedButton - Left = 7 - Top = 459 - Width = 50 - Height = 50 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -19 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False - Visible = False - OnClick = SpeedButton13Click - end - object SpeedButton53: TSpeedButton - Left = 63 - Top = 459 - Width = 50 - Height = 50 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -19 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False - Visible = False - OnClick = SpeedButton13Click - end - object SpeedButton60: TSpeedButton - Left = 119 - Top = 459 - Width = 50 - Height = 50 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -19 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False - Visible = False - OnClick = SpeedButton13Click - end - object SpeedButton61: TSpeedButton - Left = 175 - Top = 459 - Width = 50 - Height = 50 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -19 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False - Visible = False - OnClick = SpeedButton13Click - end - object SpeedButton68: TSpeedButton - Left = 231 - Top = 459 - Width = 50 - Height = 50 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -19 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False - Visible = False - OnClick = SpeedButton13Click - end - object SpeedButton69: TSpeedButton - Left = 287 - Top = 459 - Width = 50 - Height = 50 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -19 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False - Visible = False - OnClick = SpeedButton13Click - end - object SpeedButton77: TSpeedButton - Left = 7 - Top = 515 - Width = 50 - Height = 50 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -19 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False - Visible = False - OnClick = SpeedButton13Click - end - object SpeedButton78: TSpeedButton - Left = 63 - Top = 515 - Width = 50 - Height = 50 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -19 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False - Visible = False - OnClick = SpeedButton13Click - end - object SpeedButton79: TSpeedButton - Left = 119 - Top = 515 - Width = 50 - Height = 50 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -19 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False - Visible = False - OnClick = SpeedButton13Click - end - object SpeedButton80: TSpeedButton - Left = 175 - Top = 515 - Width = 50 - Height = 50 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -19 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False - Visible = False - OnClick = SpeedButton13Click - end - object SpeedButton81: TSpeedButton - Left = 231 - Top = 515 - Width = 50 - Height = 50 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -19 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False - Visible = False - OnClick = SpeedButton13Click - end - object SpeedButton82: TSpeedButton - Left = 287 - Top = 515 - Width = 50 - Height = 50 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -19 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False - Visible = False - OnClick = SpeedButton13Click - end - end object Panel2: TPanel Left = 545 Top = 87 Width = 205 - Height = 620 + Height = 605 Align = alLeft BevelInner = bvRaised BevelOuter = bvLowered @@ -1812,13 +962,13 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF end end object MovePanel1: TMovePanel - Left = 1013 + Left = 1117 Top = 91 Width = 351 Height = 238 BevelInner = bvLowered Color = clSkyBlue - TabOrder = 4 + TabOrder = 3 Visible = False object Label17: TLabel Left = 7 @@ -2064,8 +1214,8 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF object Panel7: TPanel Left = 750 Top = 87 - Width = 251 - Height = 620 + Width = 355 + Height = 605 Align = alLeft BevelInner = bvRaised BevelOuter = bvLowered @@ -2073,9 +1223,9 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF object cxGrid2: TcxGrid Left = 2 Top = 2 - Width = 247 - Height = 295 - Align = alClient + Width = 351 + Height = 247 + Align = alTop TabOrder = 0 object Tv2: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> @@ -2182,10 +1332,10 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF end object Panel8: TPanel Left = 2 - Top = 297 - Width = 247 + Top = 249 + Width = 351 Height = 28 - Align = alBottom + Align = alTop Font.Charset = GB2312_CHARSET Font.Color = clBlue Font.Height = -19 @@ -2195,33 +1345,867 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF TabOrder = 1 Visible = False end - object AOrdDefNote1: TRichEdit + object ScrollBox1: TScrollBox Left = 2 - Top = 325 - Width = 247 - Height = 293 - Align = alBottom - Font.Charset = GB2312_CHARSET - Font.Color = clBlue - Font.Height = -13 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861 - ParentFont = False - ScrollBars = ssVertical + Top = 277 + Width = 351 + Height = 326 + Align = alClient + Color = clWhite + ParentColor = False TabOrder = 2 + object SpeedButton13: TSpeedButton + Left = 7 + Top = 3 + Width = 50 + Height = 50 + Caption = #23567#40657#28857 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -19 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + OnClick = SpeedButton13Click + end + object SpeedButton14: TSpeedButton + Left = 63 + Top = 3 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -19 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton15: TSpeedButton + Left = 119 + Top = 3 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -19 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton16: TSpeedButton + Left = 175 + Top = 3 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -19 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton17: TSpeedButton + Left = 231 + Top = 3 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -19 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton18: TSpeedButton + Left = 287 + Top = 3 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -19 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton22: TSpeedButton + Left = 7 + Top = 61 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -19 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton23: TSpeedButton + Left = 63 + Top = 61 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -19 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton24: TSpeedButton + Left = 119 + Top = 61 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -19 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton25: TSpeedButton + Left = 175 + Top = 61 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -19 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton26: TSpeedButton + Left = 231 + Top = 61 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -19 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton29: TSpeedButton + Left = 287 + Top = 61 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -19 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton31: TSpeedButton + Left = 7 + Top = 119 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -19 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton32: TSpeedButton + Left = 63 + Top = 119 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -19 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton33: TSpeedButton + Left = 119 + Top = 119 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -19 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton34: TSpeedButton + Left = 175 + Top = 119 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -19 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton37: TSpeedButton + Left = 231 + Top = 119 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -19 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton38: TSpeedButton + Left = 287 + Top = 119 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -19 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton40: TSpeedButton + Left = 7 + Top = 177 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -19 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton41: TSpeedButton + Left = 63 + Top = 177 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -19 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton42: TSpeedButton + Left = 119 + Top = 177 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -19 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton45: TSpeedButton + Left = 175 + Top = 177 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -19 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton46: TSpeedButton + Left = 231 + Top = 177 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -19 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton47: TSpeedButton + Left = 287 + Top = 177 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -19 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton50: TSpeedButton + Left = 7 + Top = 235 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -19 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton51: TSpeedButton + Left = 63 + Top = 235 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -19 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton54: TSpeedButton + Left = 119 + Top = 235 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -19 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton55: TSpeedButton + Left = 175 + Top = 235 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -19 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton56: TSpeedButton + Left = 231 + Top = 235 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -19 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton57: TSpeedButton + Left = 287 + Top = 235 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -19 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton59: TSpeedButton + Left = 7 + Top = 291 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -19 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton62: TSpeedButton + Left = 63 + Top = 291 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -19 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton63: TSpeedButton + Left = 119 + Top = 291 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -19 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton64: TSpeedButton + Left = 175 + Top = 291 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -19 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton65: TSpeedButton + Left = 231 + Top = 291 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -19 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton66: TSpeedButton + Left = 287 + Top = 291 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -19 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton70: TSpeedButton + Left = 7 + Top = 347 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -19 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton71: TSpeedButton + Left = 63 + Top = 347 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -19 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton72: TSpeedButton + Left = 119 + Top = 347 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -19 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton73: TSpeedButton + Left = 175 + Top = 347 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -19 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton74: TSpeedButton + Left = 231 + Top = 347 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -19 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton75: TSpeedButton + Left = 287 + Top = 347 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -19 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton20: TSpeedButton + Left = 7 + Top = 403 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -19 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton27: TSpeedButton + Left = 63 + Top = 403 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -19 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton28: TSpeedButton + Left = 119 + Top = 403 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -19 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton35: TSpeedButton + Left = 175 + Top = 403 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -19 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton36: TSpeedButton + Left = 231 + Top = 403 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -19 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton43: TSpeedButton + Left = 287 + Top = 403 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -19 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton52: TSpeedButton + Left = 7 + Top = 459 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -19 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton53: TSpeedButton + Left = 63 + Top = 459 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -19 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton60: TSpeedButton + Left = 119 + Top = 459 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -19 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton61: TSpeedButton + Left = 175 + Top = 459 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -19 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton68: TSpeedButton + Left = 231 + Top = 459 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -19 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton69: TSpeedButton + Left = 287 + Top = 459 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -19 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton77: TSpeedButton + Left = 7 + Top = 515 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -19 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton78: TSpeedButton + Left = 63 + Top = 515 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -19 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton79: TSpeedButton + Left = 119 + Top = 515 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -19 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton80: TSpeedButton + Left = 175 + Top = 515 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -19 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton81: TSpeedButton + Left = 231 + Top = 515 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -19 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end + object SpeedButton82: TSpeedButton + Left = 287 + Top = 515 + Width = 50 + Height = 50 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -19 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton13Click + end end end object Panel3: TPanel - Left = 1018 - Top = 340 + Left = 754 + Top = 92 Width = 303 Height = 293 BevelInner = bvRaised BevelOuter = bvLowered Color = clSkyBlue DragKind = dkDock - TabOrder = 5 + TabOrder = 4 Visible = False object SpeedButton1: TSpeedButton Left = 5 @@ -2431,7 +2415,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF ParentColor = False ParentFont = False ShowCaptions = True - TabOrder = 6 + TabOrder = 5 object Panel9: TPanel Left = 0 Top = 0 @@ -2646,7 +2630,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF BevelInner = bvRaised BevelOuter = bvLowered Color = clSkyBlue - TabOrder = 7 + TabOrder = 6 object Label2: TLabel Left = 684 Top = 4 diff --git a/检验管理/U_MJManageNewFDNew.pas b/检验管理/U_MJManageNewFDNew.pas index 3dce334..8f149da 100644 --- a/检验管理/U_MJManageNewFDNew.pas +++ b/检验管理/U_MJManageNewFDNew.pas @@ -48,28 +48,6 @@ type CDS_MJID: TClientDataSet; Timer1: TTimer; ADOQueryPrint: TADOQuery; - ScrollBox1: TScrollBox; - SpeedButton13: TSpeedButton; - SpeedButton14: TSpeedButton; - SpeedButton15: TSpeedButton; - SpeedButton16: TSpeedButton; - SpeedButton17: TSpeedButton; - SpeedButton18: TSpeedButton; - SpeedButton22: TSpeedButton; - SpeedButton23: TSpeedButton; - SpeedButton24: TSpeedButton; - SpeedButton25: TSpeedButton; - SpeedButton26: TSpeedButton; - SpeedButton29: TSpeedButton; - SpeedButton31: TSpeedButton; - SpeedButton32: TSpeedButton; - SpeedButton33: TSpeedButton; - SpeedButton34: TSpeedButton; - SpeedButton37: TSpeedButton; - SpeedButton38: TSpeedButton; - SpeedButton40: TSpeedButton; - SpeedButton41: TSpeedButton; - SpeedButton42: TSpeedButton; cxStyleRepository2: TcxStyleRepository; cxStyle3: TcxStyle; cxStyleRepository3: TcxStyleRepository; @@ -80,27 +58,6 @@ type cxStyle6: TcxStyle; cxGridPopupMenu2: TcxGridPopupMenu; ADOQueryMainDSC: TADOQuery; - SpeedButton45: TSpeedButton; - SpeedButton46: TSpeedButton; - SpeedButton47: TSpeedButton; - SpeedButton50: TSpeedButton; - SpeedButton51: TSpeedButton; - SpeedButton54: TSpeedButton; - SpeedButton55: TSpeedButton; - SpeedButton56: TSpeedButton; - SpeedButton57: TSpeedButton; - SpeedButton59: TSpeedButton; - SpeedButton62: TSpeedButton; - SpeedButton63: TSpeedButton; - SpeedButton64: TSpeedButton; - SpeedButton65: TSpeedButton; - SpeedButton66: TSpeedButton; - SpeedButton70: TSpeedButton; - SpeedButton71: TSpeedButton; - SpeedButton72: TSpeedButton; - SpeedButton73: TSpeedButton; - SpeedButton74: TSpeedButton; - SpeedButton75: TSpeedButton; Panel2: TPanel; Label9: TLabel; MJFK: TEdit; @@ -179,27 +136,8 @@ type v2Column3: TcxGridDBColumn; cxGridLevel1: TcxGridLevel; Panel8: TPanel; - AOrdDefNote1: TRichEdit; Label34: TLabel; ComboBox1: TComboBox; - SpeedButton20: TSpeedButton; - SpeedButton27: TSpeedButton; - SpeedButton28: TSpeedButton; - SpeedButton35: TSpeedButton; - SpeedButton36: TSpeedButton; - SpeedButton43: TSpeedButton; - SpeedButton52: TSpeedButton; - SpeedButton53: TSpeedButton; - SpeedButton60: TSpeedButton; - SpeedButton61: TSpeedButton; - SpeedButton68: TSpeedButton; - SpeedButton69: TSpeedButton; - SpeedButton77: TSpeedButton; - SpeedButton78: TSpeedButton; - SpeedButton79: TSpeedButton; - SpeedButton80: TSpeedButton; - SpeedButton81: TSpeedButton; - SpeedButton82: TSpeedButton; v3Column4: TcxGridDBColumn; Label36: TLabel; MJStr4: TEdit; @@ -270,6 +208,67 @@ type MinbaoNo: TEdit; MaxbaoNo: TEdit; Tv3Column7: TcxGridDBColumn; + ScrollBox1: TScrollBox; + SpeedButton13: TSpeedButton; + SpeedButton14: TSpeedButton; + SpeedButton15: TSpeedButton; + SpeedButton16: TSpeedButton; + SpeedButton17: TSpeedButton; + SpeedButton18: TSpeedButton; + SpeedButton22: TSpeedButton; + SpeedButton23: TSpeedButton; + SpeedButton24: TSpeedButton; + SpeedButton25: TSpeedButton; + SpeedButton26: TSpeedButton; + SpeedButton29: TSpeedButton; + SpeedButton31: TSpeedButton; + SpeedButton32: TSpeedButton; + SpeedButton33: TSpeedButton; + SpeedButton34: TSpeedButton; + SpeedButton37: TSpeedButton; + SpeedButton38: TSpeedButton; + SpeedButton40: TSpeedButton; + SpeedButton41: TSpeedButton; + SpeedButton42: TSpeedButton; + SpeedButton45: TSpeedButton; + SpeedButton46: TSpeedButton; + SpeedButton47: TSpeedButton; + SpeedButton50: TSpeedButton; + SpeedButton51: TSpeedButton; + SpeedButton54: TSpeedButton; + SpeedButton55: TSpeedButton; + SpeedButton56: TSpeedButton; + SpeedButton57: TSpeedButton; + SpeedButton59: TSpeedButton; + SpeedButton62: TSpeedButton; + SpeedButton63: TSpeedButton; + SpeedButton64: TSpeedButton; + SpeedButton65: TSpeedButton; + SpeedButton66: TSpeedButton; + SpeedButton70: TSpeedButton; + SpeedButton71: TSpeedButton; + SpeedButton72: TSpeedButton; + SpeedButton73: TSpeedButton; + SpeedButton74: TSpeedButton; + SpeedButton75: TSpeedButton; + SpeedButton20: TSpeedButton; + SpeedButton27: TSpeedButton; + SpeedButton28: TSpeedButton; + SpeedButton35: TSpeedButton; + SpeedButton36: TSpeedButton; + SpeedButton43: TSpeedButton; + SpeedButton52: TSpeedButton; + SpeedButton53: TSpeedButton; + SpeedButton60: TSpeedButton; + SpeedButton61: TSpeedButton; + SpeedButton68: TSpeedButton; + SpeedButton69: TSpeedButton; + SpeedButton77: TSpeedButton; + SpeedButton78: TSpeedButton; + SpeedButton79: TSpeedButton; + SpeedButton80: TSpeedButton; + SpeedButton81: TSpeedButton; + SpeedButton82: TSpeedButton; procedure FormDestroy(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure TBCloseClick(Sender: TObject); @@ -2570,7 +2569,7 @@ begin Label51.Visible := False; Edit12.Text := ''; end; - AOrdDefNote1.Text := 'װҪ:' + #13 + Trim(ADOTmp.fieldbyname('MPRTBZNote').AsString) + #13 + 'Ҫ:' + #13 + Trim(ADOTmp.fieldbyname('MPRTSCTeBieNote').AsString); + //AOrdDefNote1.Text := 'װҪ:' + #13 + Trim(ADOTmp.fieldbyname('MPRTBZNote').AsString) + #13 + 'Ҫ:' + #13 + Trim(ADOTmp.fieldbyname('MPRTSCTeBieNote').AsString); MJQty3.Text := Trim(ADOTmp.fieldbyname('SPiZhong').AsString); kmxs.Text := Trim(ADOTmp.fieldbyname('kmxs').AsString); MJFK.Text := Trim(ADOTmp.fieldbyname('PRTMF').AsString); @@ -2605,7 +2604,7 @@ begin FAPID := ''; FMainId := ''; FSubId := ''; - AOrdDefNote1.Text := ''; + // AOrdDefNote1.Text := ''; MJStr4.Text := ''; fRollType := ''; Exit;