📄 formprint.dfm
字号:
inherited frmFormPrint: TfrmFormPrint
Left = 297
Top = 177
BorderIcons = [biSystemMenu]
BorderStyle = bsSingle
Caption = #22577#34920#31649#29702
ClientHeight = 215
ClientWidth = 378
OnCloseQuery = FormCloseQuery
OnCreate = FormCreate
OnDestroy = FormDestroy
PixelsPerInch = 96
TextHeight = 13
object Label1: TLabel
Left = 16
Top = 16
Width = 64
Height = 15
Caption = #22577#34920#31649#29702
Font.Charset = ANSI_CHARSET
Font.Color = clMaroon
Font.Height = -15
Font.Name = #32048#26126#39636
Font.Style = []
ParentFont = False
end
object Bevel1: TBevel
Left = 85
Top = 22
Width = 252
Height = 2
end
object grid: TDBGridEh
Left = 19
Top = 41
Width = 248
Height = 158
DataSource = dsprint
FixedColor = 12835543
Flat = True
FooterColor = clWindow
FooterFont.Charset = ANSI_CHARSET
FooterFont.Color = clWindowText
FooterFont.Height = -13
FooterFont.Name = #32048#26126#39636
FooterFont.Style = []
TabOrder = 0
TitleFont.Charset = ANSI_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -13
TitleFont.Name = #32048#26126#39636
TitleFont.Style = []
OnGetCellParams = gridGetCellParams
end
object btnok: TButton
Left = 288
Top = 41
Width = 75
Height = 25
Action = acAdd
TabOrder = 1
end
object btnexit: TButton
Left = 288
Top = 175
Width = 75
Height = 25
Action = acExit
TabOrder = 2
end
object Button1: TButton
Left = 288
Top = 67
Width = 75
Height = 25
Action = acDelete
TabOrder = 3
end
object Button2: TButton
Left = 288
Top = 148
Width = 75
Height = 25
Action = acEditreport
TabOrder = 4
end
object Button3: TButton
Left = 288
Top = 94
Width = 75
Height = 25
Action = acSave
TabOrder = 5
end
object Button4: TButton
Left = 288
Top = 121
Width = 75
Height = 25
Action = acCancel
TabOrder = 6
end
object CDSprint: TClientDataSet
Aggregates = <>
Params = <>
AfterInsert = CDSprintAfterInsert
Left = 120
Top = 88
object CDSprintfid: TAutoIncField
FieldName = 'fid'
ReadOnly = True
Visible = False
end
object CDSprintfformname: TWideStringField
FieldName = 'fformname'
Visible = False
Size = 50
end
object CDSprintfprintname: TWideStringField
DisplayLabel = #22577#34920#21517#31281
DisplayWidth = 18
FieldName = 'fprintname'
Size = 50
end
object CDSprintfisdefault: TBooleanField
DisplayLabel = #40664#35469
FieldName = 'fisdefault'
end
end
object dsprint: TDataSource
AutoEdit = False
DataSet = CDSprint
OnStateChange = dsprintStateChange
OnDataChange = dsprintDataChange
Left = 136
Top = 112
end
object ActionList1: TActionList
Left = 200
Top = 104
object acAdd: TAction
Caption = #26032#22686#22577#34920
OnExecute = acAddExecute
end
object acDelete: TAction
Caption = #21034#38500#22577#34920
OnExecute = acDeleteExecute
end
object acSave: TAction
Caption = #20445#23384
OnExecute = acSaveExecute
end
object acCancel: TAction
Caption = #21462#28040
OnExecute = acCancelExecute
end
object acEditreport: TAction
Caption = #20462#25913#22577#34920
OnExecute = acEditreportExecute
end
object acExit: TAction
Caption = #36864#20986
OnExecute = acExitExecute
end
end
object frReport: TfrReport
InitialZoom = pzDefault
PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbHelp, pbExit]
RebuildPrinter = False
Left = 40
Top = 144
ReportForm = {19000000}
end
object frDesigner: TfrDesigner
Left = 96
Top = 152
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -