📄 phistory.dfm
字号:
object FormHistory: TFormHistory
Left = 279
Top = 157
Width = 564
Height = 335
Caption = '打印历史'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
OnClose = FormClose
OnShow = FormShow
PixelsPerInch = 120
TextHeight = 16
object DBGridUsers: TDBGrid
Left = 0
Top = 29
Width = 556
Height = 250
Align = alClient
BiDiMode = bdRightToLeftNoAlign
DataSource = DataSourceUsers
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -20
Font.Name = '宋体'
Font.Style = []
ParentBiDiMode = False
ParentFont = False
TabOrder = 0
TitleFont.Charset = GB2312_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -16
TitleFont.Name = '宋体'
TitleFont.Style = []
OnTitleClick = DBGridUsersTitleClick
end
object StatusBarProductCode: TStatusBar
Left = 0
Top = 279
Width = 556
Height = 29
Panels = <>
SimplePanel = True
end
object ToolBar1: TToolBar
Left = 0
Top = 0
Width = 556
Height = 29
ButtonHeight = 24
ButtonWidth = 39
Caption = 'ToolBar1'
Flat = True
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = '宋体'
Font.Style = []
ParentFont = False
ShowCaptions = True
TabOrder = 2
object DBNavigatorProductCode: TDBNavigator
Left = 0
Top = 0
Width = 410
Height = 24
DataSource = DataSourceUsers
VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast, nbInsert, nbDelete, nbEdit, nbPost, nbCancel]
Align = alTop
Flat = True
Hints.Strings = (
'第一条'
'上一条'
'下一条'
'末条'
'插入'
'删除'
'修改'
'存盘'
'取消'
'刷新')
ParentShowHint = False
ShowHint = True
TabOrder = 0
end
object ToolButton3: TToolButton
Left = 410
Top = 0
Caption = '查找'
ImageIndex = 2
OnClick = ToolButton3Click
end
object ToolButton5: TToolButton
Left = 449
Top = 0
Caption = '打印'
ImageIndex = 3
OnClick = ToolButton5Click
end
object ToolButton6: TToolButton
Left = 488
Top = 0
AutoSize = True
Caption = '预览'
ImageIndex = 4
OnClick = ToolButton6Click
end
end
object DataSourceUsers: TDataSource
DataSet = ADOTableUsers
Left = 269
Top = 35
end
object ADOTableUsers: TADOQuery
AfterEdit = ADOTableUsersAfterEdit
AfterPost = ADOTableUsersAfterPost
Parameters = <>
Left = 240
Top = 32
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -