~
This commit is contained in:
DESKTOP-E401PHE\Administrator
parent
fc3ae9ab91
commit
7d27f9d9d0
|
|
@ -972,284 +972,6 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
|
||||||
Visible = False
|
Visible = False
|
||||||
OnClick = SpeedButton13Click
|
OnClick = SpeedButton13Click
|
||||||
end
|
end
|
||||||
object Panel1: TPanel
|
|
||||||
Left = 344
|
|
||||||
Top = 332
|
|
||||||
Width = 369
|
|
||||||
Height = 285
|
|
||||||
TabOrder = 0
|
|
||||||
Visible = False
|
|
||||||
object Button8: TButton
|
|
||||||
Left = 5
|
|
||||||
Top = 4
|
|
||||||
Width = 68
|
|
||||||
Height = 65
|
|
||||||
Caption = 'A'
|
|
||||||
Font.Charset = GB2312_CHARSET
|
|
||||||
Font.Color = clWindowText
|
|
||||||
Font.Height = -35
|
|
||||||
Font.Name = #23435#20307
|
|
||||||
Font.Style = [fsBold]
|
|
||||||
ParentFont = False
|
|
||||||
TabOrder = 0
|
|
||||||
OnClick = Button8Click
|
|
||||||
end
|
|
||||||
object Button9: TButton
|
|
||||||
Left = 81
|
|
||||||
Top = 4
|
|
||||||
Width = 67
|
|
||||||
Height = 65
|
|
||||||
Caption = 'B'
|
|
||||||
Font.Charset = GB2312_CHARSET
|
|
||||||
Font.Color = clWindowText
|
|
||||||
Font.Height = -35
|
|
||||||
Font.Name = #23435#20307
|
|
||||||
Font.Style = [fsBold]
|
|
||||||
ParentFont = False
|
|
||||||
TabOrder = 1
|
|
||||||
OnClick = Button9Click
|
|
||||||
end
|
|
||||||
object Button10: TButton
|
|
||||||
Left = 153
|
|
||||||
Top = 4
|
|
||||||
Width = 67
|
|
||||||
Height = 65
|
|
||||||
Caption = 'C'
|
|
||||||
Font.Charset = GB2312_CHARSET
|
|
||||||
Font.Color = clWindowText
|
|
||||||
Font.Height = -35
|
|
||||||
Font.Name = #23435#20307
|
|
||||||
Font.Style = [fsBold]
|
|
||||||
ParentFont = False
|
|
||||||
TabOrder = 2
|
|
||||||
OnClick = Button10Click
|
|
||||||
end
|
|
||||||
object Button11: TButton
|
|
||||||
Left = 225
|
|
||||||
Top = 4
|
|
||||||
Width = 67
|
|
||||||
Height = 65
|
|
||||||
Caption = 'D'
|
|
||||||
Font.Charset = GB2312_CHARSET
|
|
||||||
Font.Color = clWindowText
|
|
||||||
Font.Height = -35
|
|
||||||
Font.Name = #23435#20307
|
|
||||||
Font.Style = [fsBold]
|
|
||||||
ParentFont = False
|
|
||||||
TabOrder = 3
|
|
||||||
OnClick = Button11Click
|
|
||||||
end
|
|
||||||
object Button13: TButton
|
|
||||||
Left = 5
|
|
||||||
Top = 72
|
|
||||||
Width = 67
|
|
||||||
Height = 65
|
|
||||||
Caption = 'F'
|
|
||||||
Font.Charset = GB2312_CHARSET
|
|
||||||
Font.Color = clWindowText
|
|
||||||
Font.Height = -35
|
|
||||||
Font.Name = #23435#20307
|
|
||||||
Font.Style = [fsBold]
|
|
||||||
ParentFont = False
|
|
||||||
TabOrder = 4
|
|
||||||
OnClick = Button13Click
|
|
||||||
end
|
|
||||||
object Button14: TButton
|
|
||||||
Left = 81
|
|
||||||
Top = 72
|
|
||||||
Width = 67
|
|
||||||
Height = 65
|
|
||||||
Caption = 'G'
|
|
||||||
Font.Charset = GB2312_CHARSET
|
|
||||||
Font.Color = clWindowText
|
|
||||||
Font.Height = -35
|
|
||||||
Font.Name = #23435#20307
|
|
||||||
Font.Style = [fsBold]
|
|
||||||
ParentFont = False
|
|
||||||
TabOrder = 5
|
|
||||||
OnClick = Button14Click
|
|
||||||
end
|
|
||||||
object Button15: TButton
|
|
||||||
Left = 153
|
|
||||||
Top = 72
|
|
||||||
Width = 67
|
|
||||||
Height = 65
|
|
||||||
Caption = 'H'
|
|
||||||
Font.Charset = GB2312_CHARSET
|
|
||||||
Font.Color = clWindowText
|
|
||||||
Font.Height = -35
|
|
||||||
Font.Name = #23435#20307
|
|
||||||
Font.Style = [fsBold]
|
|
||||||
ParentFont = False
|
|
||||||
TabOrder = 6
|
|
||||||
OnClick = Button15Click
|
|
||||||
end
|
|
||||||
object Button16: TButton
|
|
||||||
Left = 225
|
|
||||||
Top = 72
|
|
||||||
Width = 67
|
|
||||||
Height = 65
|
|
||||||
Caption = 'I'
|
|
||||||
Font.Charset = GB2312_CHARSET
|
|
||||||
Font.Color = clWindowText
|
|
||||||
Font.Height = -35
|
|
||||||
Font.Name = #23435#20307
|
|
||||||
Font.Style = [fsBold]
|
|
||||||
ParentFont = False
|
|
||||||
TabOrder = 7
|
|
||||||
OnClick = Button16Click
|
|
||||||
end
|
|
||||||
object Button17: TButton
|
|
||||||
Left = 297
|
|
||||||
Top = 4
|
|
||||||
Width = 68
|
|
||||||
Height = 65
|
|
||||||
Caption = 'E'
|
|
||||||
Font.Charset = GB2312_CHARSET
|
|
||||||
Font.Color = clWindowText
|
|
||||||
Font.Height = -35
|
|
||||||
Font.Name = #23435#20307
|
|
||||||
Font.Style = [fsBold]
|
|
||||||
ParentFont = False
|
|
||||||
TabOrder = 8
|
|
||||||
OnClick = Button17Click
|
|
||||||
end
|
|
||||||
object Button18: TButton
|
|
||||||
Left = 81
|
|
||||||
Top = 144
|
|
||||||
Width = 68
|
|
||||||
Height = 65
|
|
||||||
Caption = '2'
|
|
||||||
Font.Charset = GB2312_CHARSET
|
|
||||||
Font.Color = clWindowText
|
|
||||||
Font.Height = -35
|
|
||||||
Font.Name = #23435#20307
|
|
||||||
Font.Style = [fsBold]
|
|
||||||
ParentFont = False
|
|
||||||
TabOrder = 9
|
|
||||||
OnClick = Button18Click
|
|
||||||
end
|
|
||||||
object Button19: TButton
|
|
||||||
Left = 153
|
|
||||||
Top = 144
|
|
||||||
Width = 68
|
|
||||||
Height = 65
|
|
||||||
Caption = '3'
|
|
||||||
Font.Charset = GB2312_CHARSET
|
|
||||||
Font.Color = clWindowText
|
|
||||||
Font.Height = -35
|
|
||||||
Font.Name = #23435#20307
|
|
||||||
Font.Style = [fsBold]
|
|
||||||
ParentFont = False
|
|
||||||
TabOrder = 10
|
|
||||||
OnClick = Button19Click
|
|
||||||
end
|
|
||||||
object Button20: TButton
|
|
||||||
Left = 225
|
|
||||||
Top = 144
|
|
||||||
Width = 68
|
|
||||||
Height = 65
|
|
||||||
Caption = '4'
|
|
||||||
Font.Charset = GB2312_CHARSET
|
|
||||||
Font.Color = clWindowText
|
|
||||||
Font.Height = -35
|
|
||||||
Font.Name = #23435#20307
|
|
||||||
Font.Style = [fsBold]
|
|
||||||
ParentFont = False
|
|
||||||
TabOrder = 11
|
|
||||||
OnClick = Button20Click
|
|
||||||
end
|
|
||||||
object Button21: TButton
|
|
||||||
Left = 297
|
|
||||||
Top = 144
|
|
||||||
Width = 68
|
|
||||||
Height = 65
|
|
||||||
Caption = '5'
|
|
||||||
Font.Charset = GB2312_CHARSET
|
|
||||||
Font.Color = clWindowText
|
|
||||||
Font.Height = -35
|
|
||||||
Font.Name = #23435#20307
|
|
||||||
Font.Style = [fsBold]
|
|
||||||
ParentFont = False
|
|
||||||
TabOrder = 12
|
|
||||||
OnClick = Button21Click
|
|
||||||
end
|
|
||||||
object Button22: TButton
|
|
||||||
Left = 5
|
|
||||||
Top = 212
|
|
||||||
Width = 68
|
|
||||||
Height = 65
|
|
||||||
Caption = '6'
|
|
||||||
Font.Charset = GB2312_CHARSET
|
|
||||||
Font.Color = clWindowText
|
|
||||||
Font.Height = -35
|
|
||||||
Font.Name = #23435#20307
|
|
||||||
Font.Style = [fsBold]
|
|
||||||
ParentFont = False
|
|
||||||
TabOrder = 13
|
|
||||||
OnClick = Button22Click
|
|
||||||
end
|
|
||||||
object Button23: TButton
|
|
||||||
Left = 81
|
|
||||||
Top = 212
|
|
||||||
Width = 68
|
|
||||||
Height = 65
|
|
||||||
Caption = '7'
|
|
||||||
Font.Charset = GB2312_CHARSET
|
|
||||||
Font.Color = clWindowText
|
|
||||||
Font.Height = -35
|
|
||||||
Font.Name = #23435#20307
|
|
||||||
Font.Style = [fsBold]
|
|
||||||
ParentFont = False
|
|
||||||
TabOrder = 14
|
|
||||||
OnClick = Button23Click
|
|
||||||
end
|
|
||||||
object Button24: TButton
|
|
||||||
Left = 153
|
|
||||||
Top = 212
|
|
||||||
Width = 68
|
|
||||||
Height = 65
|
|
||||||
Caption = '8'
|
|
||||||
Font.Charset = GB2312_CHARSET
|
|
||||||
Font.Color = clWindowText
|
|
||||||
Font.Height = -35
|
|
||||||
Font.Name = #23435#20307
|
|
||||||
Font.Style = [fsBold]
|
|
||||||
ParentFont = False
|
|
||||||
TabOrder = 15
|
|
||||||
OnClick = Button24Click
|
|
||||||
end
|
|
||||||
object Button25: TButton
|
|
||||||
Left = 225
|
|
||||||
Top = 212
|
|
||||||
Width = 68
|
|
||||||
Height = 65
|
|
||||||
Caption = '9'
|
|
||||||
Font.Charset = GB2312_CHARSET
|
|
||||||
Font.Color = clWindowText
|
|
||||||
Font.Height = -35
|
|
||||||
Font.Name = #23435#20307
|
|
||||||
Font.Style = [fsBold]
|
|
||||||
ParentFont = False
|
|
||||||
TabOrder = 16
|
|
||||||
OnClick = Button25Click
|
|
||||||
end
|
|
||||||
object Button26: TButton
|
|
||||||
Left = 5
|
|
||||||
Top = 144
|
|
||||||
Width = 68
|
|
||||||
Height = 65
|
|
||||||
Caption = '1'
|
|
||||||
Font.Charset = GB2312_CHARSET
|
|
||||||
Font.Color = clWindowText
|
|
||||||
Font.Height = -35
|
|
||||||
Font.Name = #23435#20307
|
|
||||||
Font.Style = [fsBold]
|
|
||||||
ParentFont = False
|
|
||||||
TabOrder = 17
|
|
||||||
OnClick = Button26Click
|
|
||||||
end
|
|
||||||
end
|
|
||||||
object Panel4: TPanel
|
object Panel4: TPanel
|
||||||
Left = 8
|
Left = 8
|
||||||
Top = 256
|
Top = 256
|
||||||
|
|
@ -1258,7 +980,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
|
||||||
BevelInner = bvRaised
|
BevelInner = bvRaised
|
||||||
BevelOuter = bvLowered
|
BevelOuter = bvLowered
|
||||||
Color = clSkyBlue
|
Color = clSkyBlue
|
||||||
TabOrder = 1
|
TabOrder = 0
|
||||||
Visible = False
|
Visible = False
|
||||||
object SpeedButton21: TSpeedButton
|
object SpeedButton21: TSpeedButton
|
||||||
Left = 5
|
Left = 5
|
||||||
|
|
@ -3276,6 +2998,284 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
|
||||||
OnClick = Edit5Click
|
OnClick = Edit5Click
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
|
object Panel1: TPanel
|
||||||
|
Left = 56
|
||||||
|
Top = 244
|
||||||
|
Width = 369
|
||||||
|
Height = 285
|
||||||
|
TabOrder = 8
|
||||||
|
Visible = False
|
||||||
|
object Button8: TButton
|
||||||
|
Left = 5
|
||||||
|
Top = 4
|
||||||
|
Width = 68
|
||||||
|
Height = 65
|
||||||
|
Caption = 'A'
|
||||||
|
Font.Charset = GB2312_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -35
|
||||||
|
Font.Name = #23435#20307
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentFont = False
|
||||||
|
TabOrder = 0
|
||||||
|
OnClick = Button8Click
|
||||||
|
end
|
||||||
|
object Button9: TButton
|
||||||
|
Left = 81
|
||||||
|
Top = 4
|
||||||
|
Width = 67
|
||||||
|
Height = 65
|
||||||
|
Caption = 'B'
|
||||||
|
Font.Charset = GB2312_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -35
|
||||||
|
Font.Name = #23435#20307
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentFont = False
|
||||||
|
TabOrder = 1
|
||||||
|
OnClick = Button9Click
|
||||||
|
end
|
||||||
|
object Button10: TButton
|
||||||
|
Left = 153
|
||||||
|
Top = 4
|
||||||
|
Width = 67
|
||||||
|
Height = 65
|
||||||
|
Caption = 'C'
|
||||||
|
Font.Charset = GB2312_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -35
|
||||||
|
Font.Name = #23435#20307
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentFont = False
|
||||||
|
TabOrder = 2
|
||||||
|
OnClick = Button10Click
|
||||||
|
end
|
||||||
|
object Button11: TButton
|
||||||
|
Left = 225
|
||||||
|
Top = 4
|
||||||
|
Width = 67
|
||||||
|
Height = 65
|
||||||
|
Caption = 'D'
|
||||||
|
Font.Charset = GB2312_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -35
|
||||||
|
Font.Name = #23435#20307
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentFont = False
|
||||||
|
TabOrder = 3
|
||||||
|
OnClick = Button11Click
|
||||||
|
end
|
||||||
|
object Button13: TButton
|
||||||
|
Left = 5
|
||||||
|
Top = 72
|
||||||
|
Width = 67
|
||||||
|
Height = 65
|
||||||
|
Caption = 'F'
|
||||||
|
Font.Charset = GB2312_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -35
|
||||||
|
Font.Name = #23435#20307
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentFont = False
|
||||||
|
TabOrder = 4
|
||||||
|
OnClick = Button13Click
|
||||||
|
end
|
||||||
|
object Button14: TButton
|
||||||
|
Left = 81
|
||||||
|
Top = 72
|
||||||
|
Width = 67
|
||||||
|
Height = 65
|
||||||
|
Caption = 'G'
|
||||||
|
Font.Charset = GB2312_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -35
|
||||||
|
Font.Name = #23435#20307
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentFont = False
|
||||||
|
TabOrder = 5
|
||||||
|
OnClick = Button14Click
|
||||||
|
end
|
||||||
|
object Button15: TButton
|
||||||
|
Left = 153
|
||||||
|
Top = 72
|
||||||
|
Width = 67
|
||||||
|
Height = 65
|
||||||
|
Caption = 'H'
|
||||||
|
Font.Charset = GB2312_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -35
|
||||||
|
Font.Name = #23435#20307
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentFont = False
|
||||||
|
TabOrder = 6
|
||||||
|
OnClick = Button15Click
|
||||||
|
end
|
||||||
|
object Button16: TButton
|
||||||
|
Left = 225
|
||||||
|
Top = 72
|
||||||
|
Width = 67
|
||||||
|
Height = 65
|
||||||
|
Caption = 'I'
|
||||||
|
Font.Charset = GB2312_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -35
|
||||||
|
Font.Name = #23435#20307
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentFont = False
|
||||||
|
TabOrder = 7
|
||||||
|
OnClick = Button16Click
|
||||||
|
end
|
||||||
|
object Button17: TButton
|
||||||
|
Left = 297
|
||||||
|
Top = 4
|
||||||
|
Width = 68
|
||||||
|
Height = 65
|
||||||
|
Caption = 'E'
|
||||||
|
Font.Charset = GB2312_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -35
|
||||||
|
Font.Name = #23435#20307
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentFont = False
|
||||||
|
TabOrder = 8
|
||||||
|
OnClick = Button17Click
|
||||||
|
end
|
||||||
|
object Button18: TButton
|
||||||
|
Left = 81
|
||||||
|
Top = 144
|
||||||
|
Width = 68
|
||||||
|
Height = 65
|
||||||
|
Caption = '2'
|
||||||
|
Font.Charset = GB2312_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -35
|
||||||
|
Font.Name = #23435#20307
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentFont = False
|
||||||
|
TabOrder = 9
|
||||||
|
OnClick = Button18Click
|
||||||
|
end
|
||||||
|
object Button19: TButton
|
||||||
|
Left = 153
|
||||||
|
Top = 144
|
||||||
|
Width = 68
|
||||||
|
Height = 65
|
||||||
|
Caption = '3'
|
||||||
|
Font.Charset = GB2312_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -35
|
||||||
|
Font.Name = #23435#20307
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentFont = False
|
||||||
|
TabOrder = 10
|
||||||
|
OnClick = Button19Click
|
||||||
|
end
|
||||||
|
object Button20: TButton
|
||||||
|
Left = 225
|
||||||
|
Top = 144
|
||||||
|
Width = 68
|
||||||
|
Height = 65
|
||||||
|
Caption = '4'
|
||||||
|
Font.Charset = GB2312_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -35
|
||||||
|
Font.Name = #23435#20307
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentFont = False
|
||||||
|
TabOrder = 11
|
||||||
|
OnClick = Button20Click
|
||||||
|
end
|
||||||
|
object Button21: TButton
|
||||||
|
Left = 297
|
||||||
|
Top = 144
|
||||||
|
Width = 68
|
||||||
|
Height = 65
|
||||||
|
Caption = '5'
|
||||||
|
Font.Charset = GB2312_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -35
|
||||||
|
Font.Name = #23435#20307
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentFont = False
|
||||||
|
TabOrder = 12
|
||||||
|
OnClick = Button21Click
|
||||||
|
end
|
||||||
|
object Button22: TButton
|
||||||
|
Left = 5
|
||||||
|
Top = 212
|
||||||
|
Width = 68
|
||||||
|
Height = 65
|
||||||
|
Caption = '6'
|
||||||
|
Font.Charset = GB2312_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -35
|
||||||
|
Font.Name = #23435#20307
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentFont = False
|
||||||
|
TabOrder = 13
|
||||||
|
OnClick = Button22Click
|
||||||
|
end
|
||||||
|
object Button23: TButton
|
||||||
|
Left = 81
|
||||||
|
Top = 212
|
||||||
|
Width = 68
|
||||||
|
Height = 65
|
||||||
|
Caption = '7'
|
||||||
|
Font.Charset = GB2312_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -35
|
||||||
|
Font.Name = #23435#20307
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentFont = False
|
||||||
|
TabOrder = 14
|
||||||
|
OnClick = Button23Click
|
||||||
|
end
|
||||||
|
object Button24: TButton
|
||||||
|
Left = 153
|
||||||
|
Top = 212
|
||||||
|
Width = 68
|
||||||
|
Height = 65
|
||||||
|
Caption = '8'
|
||||||
|
Font.Charset = GB2312_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -35
|
||||||
|
Font.Name = #23435#20307
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentFont = False
|
||||||
|
TabOrder = 15
|
||||||
|
OnClick = Button24Click
|
||||||
|
end
|
||||||
|
object Button25: TButton
|
||||||
|
Left = 225
|
||||||
|
Top = 212
|
||||||
|
Width = 68
|
||||||
|
Height = 65
|
||||||
|
Caption = '9'
|
||||||
|
Font.Charset = GB2312_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -35
|
||||||
|
Font.Name = #23435#20307
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentFont = False
|
||||||
|
TabOrder = 16
|
||||||
|
OnClick = Button25Click
|
||||||
|
end
|
||||||
|
object Button26: TButton
|
||||||
|
Left = 5
|
||||||
|
Top = 144
|
||||||
|
Width = 68
|
||||||
|
Height = 65
|
||||||
|
Caption = '1'
|
||||||
|
Font.Charset = GB2312_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -35
|
||||||
|
Font.Name = #23435#20307
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentFont = False
|
||||||
|
TabOrder = 17
|
||||||
|
OnClick = Button26Click
|
||||||
|
end
|
||||||
|
end
|
||||||
object cxStyleRepository1: TcxStyleRepository
|
object cxStyleRepository1: TcxStyleRepository
|
||||||
Left = 732
|
Left = 732
|
||||||
Top = 144
|
Top = 144
|
||||||
|
|
|
||||||
|
|
@ -262,6 +262,20 @@ type
|
||||||
RM3: TRMGridReport;
|
RM3: TRMGridReport;
|
||||||
Edit5: TEdit;
|
Edit5: TEdit;
|
||||||
Label43: TLabel;
|
Label43: TLabel;
|
||||||
|
Label53: TLabel;
|
||||||
|
CC: TEdit;
|
||||||
|
Label54: TLabel;
|
||||||
|
CZ: TEdit;
|
||||||
|
Panel4: TPanel;
|
||||||
|
SpeedButton21: TSpeedButton;
|
||||||
|
SpeedButton30: TSpeedButton;
|
||||||
|
SpeedButton39: TSpeedButton;
|
||||||
|
SpeedButton44: TSpeedButton;
|
||||||
|
SpeedButton48: TSpeedButton;
|
||||||
|
SpeedButton58: TSpeedButton;
|
||||||
|
SpeedButton67: TSpeedButton;
|
||||||
|
SpeedButton76: TSpeedButton;
|
||||||
|
SpeedButton83: TSpeedButton;
|
||||||
Panel1: TPanel;
|
Panel1: TPanel;
|
||||||
Button8: TButton;
|
Button8: TButton;
|
||||||
Button9: TButton;
|
Button9: TButton;
|
||||||
|
|
@ -281,20 +295,6 @@ type
|
||||||
Button24: TButton;
|
Button24: TButton;
|
||||||
Button25: TButton;
|
Button25: TButton;
|
||||||
Button26: TButton;
|
Button26: TButton;
|
||||||
Label53: TLabel;
|
|
||||||
CC: TEdit;
|
|
||||||
Label54: TLabel;
|
|
||||||
CZ: TEdit;
|
|
||||||
Panel4: TPanel;
|
|
||||||
SpeedButton21: TSpeedButton;
|
|
||||||
SpeedButton30: TSpeedButton;
|
|
||||||
SpeedButton39: TSpeedButton;
|
|
||||||
SpeedButton44: TSpeedButton;
|
|
||||||
SpeedButton48: TSpeedButton;
|
|
||||||
SpeedButton58: TSpeedButton;
|
|
||||||
SpeedButton67: TSpeedButton;
|
|
||||||
SpeedButton76: TSpeedButton;
|
|
||||||
SpeedButton83: TSpeedButton;
|
|
||||||
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);
|
||||||
|
|
@ -13325,8 +13325,8 @@ begin
|
||||||
end
|
end
|
||||||
else
|
else
|
||||||
begin
|
begin
|
||||||
maxno := Trim(FMJID);
|
maxno := Trim(FMJID);
|
||||||
Edit;
|
Edit;
|
||||||
end;
|
end;
|
||||||
FieldByName('MainId').value := Trim(FMainId);
|
FieldByName('MainId').value := Trim(FMainId);
|
||||||
FieldByName('SubId').value := Trim(FSubId);
|
FieldByName('SubId').value := Trim(FSubId);
|
||||||
|
|
@ -14896,12 +14896,13 @@ begin
|
||||||
begin
|
begin
|
||||||
for i := 0 to ControlCount - 1 do
|
for i := 0 to ControlCount - 1 do
|
||||||
begin
|
begin
|
||||||
if Controls[i] is TSpeedButton then
|
if Controls[i] is TSpeedButton then
|
||||||
begin
|
begin
|
||||||
TSpeedButton(Controls[i]).Hint := Trim(TEdit(Sender).Name);
|
TSpeedButton(Controls[i]).Hint := Trim(TEdit(Sender).Name);
|
||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
|
Panel1.Visible := True;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TfrmMJManageNewFDNewSF.MJLenChange(Sender: TObject);
|
procedure TfrmMJManageNewFDNewSF.MJLenChange(Sender: TObject);
|
||||||
|
|
|
||||||
Loading…
Reference in New Issue
Block a user