📄 edit.~dfm
字号:
object wwNavButton17: TwwNavButton
Left = 125
Top = 0
Width = 25
Height = 25
Hint = 'Move to last record'
ImageIndex = -1
NumGlyphs = 2
Spacing = 4
Transparent = False
Caption = 'wwDBNavigator1Last'
Enabled = False
DisabledTextColors.ShadeColor = clGray
DisabledTextColors.HighlightColor = clBtnHighlight
Index = 5
Style = nbsLast
end
object wwNavButton18: TwwNavButton
Left = 150
Top = 0
Width = 25
Height = 25
Hint = 'Insert new record'
ImageIndex = -1
NumGlyphs = 2
Spacing = 4
Transparent = False
Caption = 'wwDBNavigator1Insert'
Enabled = False
DisabledTextColors.ShadeColor = clGray
DisabledTextColors.HighlightColor = clBtnHighlight
Index = 6
Style = nbsInsert
end
object wwNavButton19: TwwNavButton
Left = 175
Top = 0
Width = 25
Height = 25
Hint = 'Delete current record'
ImageIndex = -1
NumGlyphs = 2
Spacing = 4
Transparent = False
Caption = 'wwDBNavigator1Delete'
Enabled = False
DisabledTextColors.ShadeColor = clGray
DisabledTextColors.HighlightColor = clBtnHighlight
Index = 7
Style = nbsDelete
end
object wwNavButton20: TwwNavButton
Left = 200
Top = 0
Width = 25
Height = 25
Hint = 'Edit current record'
ImageIndex = -1
NumGlyphs = 2
Spacing = 4
Transparent = False
Caption = 'wwDBNavigator1Edit'
Enabled = False
DisabledTextColors.ShadeColor = clGray
DisabledTextColors.HighlightColor = clBtnHighlight
Index = 8
Style = nbsEdit
end
object wwNavButton21: TwwNavButton
Left = 225
Top = 0
Width = 25
Height = 25
Hint = 'Post changes of current record'
ImageIndex = -1
NumGlyphs = 2
Spacing = 4
Transparent = False
Caption = 'wwDBNavigator1Post'
Enabled = False
DisabledTextColors.ShadeColor = clGray
DisabledTextColors.HighlightColor = clBtnHighlight
Index = 9
Style = nbsPost
end
object wwNavButton22: TwwNavButton
Left = 250
Top = 0
Width = 25
Height = 25
Hint = 'Cancel changes made to current record'
ImageIndex = -1
NumGlyphs = 2
Spacing = 4
Transparent = False
Caption = 'wwDBNavigator1Cancel'
Enabled = False
DisabledTextColors.ShadeColor = clGray
DisabledTextColors.HighlightColor = clBtnHighlight
Index = 10
Style = nbsCancel
end
end
end
object LMDGroupBox2: TLMDGroupBox
Left = 310
Top = 194
Width = 347
Height = 166
BackFX.AlphaBlend.Strength = 0.600000023841858
BackFX.AlphaBlend.FillObject.Style = sfNone
Bevel.Mode = bmStandard
Bevel.StandardStyle = lsFrameInset
Caption = '购电记录表'
CaptionFont.Charset = DEFAULT_CHARSET
CaptionFont.Color = clWindowText
CaptionFont.Height = -11
CaptionFont.Name = 'MS Sans Serif'
CaptionFont.Style = []
TabOrder = 2
object wwDBGrid2: TwwDBGrid
Left = 6
Top = 15
Width = 336
Height = 120
IniAttributes.Delimiter = ';;'
TitleColor = clBtnFace
FixedCols = 0
ShowHorzScrollBar = True
DataSource = DataSource2
TabOrder = 0
TitleAlignment = taLeftJustify
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
TitleLines = 1
TitleButtons = False
IndicatorColor = icBlack
end
object wwDBNavigator2: TwwDBNavigator
Left = 36
Top = 137
Width = 275
Height = 25
DataSource = DataSource2
RepeatInterval.InitialDelay = 500
RepeatInterval.Interval = 100
object wwNavButton1: TwwNavButton
Left = 0
Top = 0
Width = 25
Height = 25
Hint = 'Move to first record'
ImageIndex = -1
NumGlyphs = 2
Spacing = 4
Transparent = False
Caption = 'wwDBNavigator1First'
Enabled = False
DisabledTextColors.ShadeColor = clGray
DisabledTextColors.HighlightColor = clBtnHighlight
Index = 0
Style = nbsFirst
end
object wwNavButton2: TwwNavButton
Left = 25
Top = 0
Width = 25
Height = 25
Hint = 'Move backward 10 records'
ImageIndex = -1
NumGlyphs = 2
Spacing = 4
Transparent = False
Caption = 'wwDBNavigator1PriorPage'
Enabled = False
DisabledTextColors.ShadeColor = clGray
DisabledTextColors.HighlightColor = clBtnHighlight
Index = 1
Style = nbsPriorPage
end
object wwNavButton3: TwwNavButton
Left = 50
Top = 0
Width = 25
Height = 25
Hint = 'Move to prior record'
ImageIndex = -1
NumGlyphs = 2
Spacing = 4
Transparent = False
Caption = 'wwDBNavigator1Prior'
Enabled = False
DisabledTextColors.ShadeColor = clGray
DisabledTextColors.HighlightColor = clBtnHighlight
Index = 2
Style = nbsPrior
end
object wwNavButton4: TwwNavButton
Left = 75
Top = 0
Width = 25
Height = 25
Hint = 'Move to next record'
ImageIndex = -1
NumGlyphs = 2
Spacing = 4
Transparent = False
Caption = 'wwDBNavigator1Next'
Enabled = False
DisabledTextColors.ShadeColor = clGray
DisabledTextColors.HighlightColor = clBtnHighlight
Index = 3
Style = nbsNext
end
object wwNavButton5: TwwNavButton
Left = 100
Top = 0
Width = 25
Height = 25
Hint = 'Move forward 10 records'
ImageIndex = -1
NumGlyphs = 2
Spacing = 4
Transparent = False
Caption = 'wwDBNavigator1NextPage'
Enabled = False
DisabledTextColors.ShadeColor = clGray
DisabledTextColors.HighlightColor = clBtnHighlight
Index = 4
Style = nbsNextPage
end
object wwNavButton6: TwwNavButton
Left = 125
Top = 0
Width = 25
Height = 25
Hint = 'Move to last record'
ImageIndex = -1
NumGlyphs = 2
Spacing = 4
Transparent = False
Caption = 'wwDBNavigator1Last'
Enabled = False
DisabledTextColors.ShadeColor = clGray
DisabledTextColors.HighlightColor = clBtnHighlight
Index = 5
Style = nbsLast
end
object wwNavButton7: TwwNavButton
Left = 150
Top = 0
Width = 25
Height = 25
Hint = 'Insert new record'
ImageIndex = -1
NumGlyphs = 2
Spacing = 4
Transparent = False
Caption = 'wwDBNavigator1Insert'
Enabled = False
DisabledTextColors.ShadeColor = clGray
DisabledTextColors.HighlightColor = clBtnHighlight
Index = 6
Style = nbsInsert
end
object wwNavButton8: TwwNavButton
Left = 175
Top = 0
Width = 25
Height = 25
Hint = 'Delete current record'
ImageIndex = -1
NumGlyphs = 2
Spacing = 4
Transparent = False
Caption = 'wwDBNavigator1Delete'
Enabled = False
DisabledTextColors.ShadeColor = clGray
DisabledTextColors.HighlightColor = clBtnHighlight
Index = 7
Style = nbsDelete
end
object wwNavButton9: TwwNavButton
Left = 200
Top = 0
Width = 25
Height = 25
Hint = 'Edit current record'
ImageIndex = -1
NumGlyphs = 2
Spacing = 4
Transparent = False
Caption = 'wwDBNavigator1Edit'
Enabled = False
DisabledTextColors.ShadeColor = clGray
DisabledTextColors.HighlightColor = clBtnHighlight
Index = 8
Style = nbsEdit
end
object wwNavButton10: TwwNavButton
Left = 225
Top = 0
Width = 25
Height = 25
Hint = 'Post changes of current record'
ImageIndex = -1
NumGlyphs = 2
Spacing = 4
Transparent = False
Caption = 'wwDBNavigator1Post'
Enabled = False
DisabledTextColors.ShadeColor = clGray
DisabledTextColors.HighlightColor = clBtnHighlight
Index = 9
Style = nbsPost
end
object wwNavButton11: TwwNavButton
Left = 250
Top = 0
Width = 25
Height = 25
Hint = 'Cancel changes made to current record'
ImageIndex = -1
NumGlyphs = 2
Spacing = 4
Transparent = False
Caption = 'wwDBNavigator1Cancel'
Enabled = False
DisabledTextColors.ShadeColor = clGray
DisabledTextColors.HighlightColor = clBtnHighlight
Index = 10
Style = nbsCancel
end
end
end
object DataSource1: TDataSource
DataSet = DataModule1.Query1
Left = 334
Top = 47
end
object DataSource2: TDataSource
DataSet = DataModule1.Query2
Left = 342
Top = 218
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -