📄 faacd.dfm
字号:
inherited frmFaAcd: TfrmFaAcd
Left = 89
Top = 91
Width = 609
Height = 405
Caption = '事故记录'
OldCreateOrder = True
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 12
inherited sbBar: TStatusBar
Top = 337
Width = 601
end
inherited CoolBar1: TCoolBar
Width = 601
Bands = <
item
Control = tbMainBar
ImageIndex = -1
MinHeight = 35
Width = 601
end>
inherited tbMainBar: TToolBar
Width = 588
end
end
object sgFaAcd: TSDGrid [2]
Left = 0
Top = 39
Width = 329
Height = 298
Align = alLeft
Color = 50331647
Ctl3D = False
DefaultRowHeight = 22
FixedColor = 8564917
Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRowSizing, goColSizing]
ParentCtl3D = False
TabOrder = 2
OnClick = sgFaAcdClick
EvenGridColor = 50331647
OddGridColor = 50331647
Columns = <
item
ColumnFont.Charset = GB2312_CHARSET
ColumnFont.Color = clWindowText
ColumnFont.Height = -12
ColumnFont.Name = '宋体'
ColumnFont.Style = []
ColumnWidth = 0
end
item
ColumnFont.Charset = GB2312_CHARSET
ColumnFont.Color = clWindowText
ColumnFont.Height = -12
ColumnFont.Name = '宋体'
ColumnFont.Style = []
TitleString = '事故单号'
ColumnWidth = 0
end
item
ColumnFont.Charset = GB2312_CHARSET
ColumnFont.Color = clWindowText
ColumnFont.Height = -12
ColumnFont.Name = '宋体'
ColumnFont.Style = []
TitleString = '设备编码'
ColumnWidth = 0
end
item
ColumnFont.Charset = GB2312_CHARSET
ColumnFont.Color = clWindowText
ColumnFont.Height = -12
ColumnFont.Name = '宋体'
ColumnFont.Style = []
TitleString = '设备名称'
ColumnWidth = 0
end
item
ColumnFont.Charset = GB2312_CHARSET
ColumnFont.Color = clWindowText
ColumnFont.Height = -12
ColumnFont.Name = '宋体'
ColumnFont.Style = []
TitleString = '事故日期'
ColumnWidth = 0
end>
ColWidths = (
9
68
83
85
75)
end
object FloatPanel1: TFloatPanel [3]
Left = 329
Top = 39
Width = 272
Height = 298
Align = alClient
Color = 50331647
Caption = 'FloatPanel4'
ParentColor = False
TabOrder = 3
object Label1: TLabel
Left = 31
Top = 36
Width = 60
Height = 12
Caption = '事故单号:'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object Label2: TLabel
Left = 31
Top = 70
Width = 60
Height = 12
Caption = '设备编码:'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object Label4: TLabel
Left = 31
Top = 137
Width = 60
Height = 12
Caption = '事故日期:'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object Label5: TLabel
Left = 31
Top = 171
Width = 60
Height = 12
Caption = '事故原因:'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object Label3: TLabel
Left = 31
Top = 104
Width = 60
Height = 12
Caption = '设备名称:'
Enabled = False
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object seFaAcdCode: TSDEdit
Left = 87
Top = 30
Width = 114
Height = 18
Ctl3D = False
ParentColor = True
ParentCtl3D = False
TabOrder = 0
Text = 'seFaAcdCode'
OnKeyDown = seFaAcdCodeKeyDown
SplitSymbol = ' | '
end
object memFaAcdDesc: TMemo
Left = 33
Top = 186
Width = 175
Height = 60
Color = 50331647
Ctl3D = False
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
Lines.Strings = (
'memFaAcdDesc')
ParentCtl3D = False
ParentFont = False
TabOrder = 3
end
object sdFaAcdDate: TDateEdit
Left = 87
Top = 134
Width = 114
Height = 18
LineOffset = 2
LineColor = clGreen
LineVisible = False
CDate = '2001-04-26'
InitDate = '2001-04-26'
ModalResult = 0
TabOrder = 2
Color = 50331647
Ctl3D = False
ParentCtl3D = False
end
object seFaAcdFadnName: TSDEdit
Left = 87
Top = 98
Width = 114
Height = 18
Ctl3D = False
Enabled = False
ParentColor = True
ParentCtl3D = False
ReadOnly = True
TabOrder = 4
Text = 'seFaAcdFadnName'
SplitSymbol = ' | '
end
object seFaAcdFadn: TSDEdit
Left = 89
Top = 64
Width = 114
Height = 18
Ctl3D = False
ParentColor = True
ParentCtl3D = False
TabOrder = 1
Text = 'seFaAcdFadn'
OnKeyDown = seFaAcdFadnKeyDown
OnButtonClick = seFaAcdFadnButtonClick
ButtonVisible = True
SplitSymbol = ' | '
end
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -