📄 report.~dfm
字号:
object Form1: TForm1
Left = 95
Top = 119
BorderStyle = bsDialog
Caption = 'creport '#31034#20363' '
ClientHeight = 411
ClientWidth = 620
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
Position = poScreenCenter
Scaled = False
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 13
object Label1: TLabel
Left = 216
Top = 24
Width = 154
Height = 24
Caption = 'creport '#31034#20363
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -24
Font.Name = #26999#20307'_GB2312'
Font.Style = [fsBold, fsUnderline]
ParentFont = False
end
object DBGrid1: TDBGrid
Left = 32
Top = 64
Width = 441
Height = 321
DataSource = DataSource1
TabOrder = 0
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
Columns = <
item
Expanded = False
FieldName = 'ACCT_NBR'
Width = 98
Visible = True
end
item
Expanded = False
FieldName = 'SYMBOL'
Width = 71
Visible = True
end
item
Expanded = False
FieldName = 'SHARES'
Visible = True
end
item
Expanded = False
FieldName = 'PUR_PRICE'
Width = 89
Visible = True
end
item
Expanded = False
FieldName = 'PUR_DATE'
Width = 70
Visible = True
end>
end
object Button2: TButton
Left = 491
Top = 64
Width = 107
Height = 32
Caption = #39044#35272'1'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #26999#20307'_GB2312'
Font.Style = []
ParentFont = False
TabOrder = 1
OnClick = Button2Click
end
object Button3: TButton
Left = 492
Top = 153
Width = 107
Height = 32
Caption = #25171#21360
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #26999#20307'_GB2312'
Font.Style = []
ParentFont = False
TabOrder = 2
OnClick = Button3Click
end
object Button4: TButton
Left = 491
Top = 198
Width = 107
Height = 32
Caption = #21462#38144
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #26999#20307'_GB2312'
Font.Style = []
ParentFont = False
TabOrder = 3
OnClick = Button4Click
end
object Button5: TButton
Left = 492
Top = 111
Width = 106
Height = 32
Caption = #39044#35272'2'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #26999#20307'_GB2312'
Font.Style = []
ParentFont = False
TabOrder = 4
OnClick = Button5Click
end
object DBNavigator1: TDBNavigator
Left = 368
Top = 8
Width = 240
Height = 25
DataSource = DataSource1
TabOrder = 5
end
object Table1: TTable
TableName = 'demo1.dbf'
Left = 48
Top = 16
object Table1ACCT_NBR: TFloatField
DisplayLabel = #32534#21495
FieldName = 'ACCT_NBR'
DisplayFormat = '0,.00'
end
object Table1SYMBOL: TStringField
FieldName = 'SYMBOL'
Size = 7
end
object Table1SHARES: TFloatField
FieldName = 'SHARES'
end
object Table1PUR_PRICE: TFloatField
FieldName = 'PUR_PRICE'
DisplayFormat = '0,.00'
end
object Table1PUR_DATE: TDateField
FieldName = 'PUR_DATE'
end
end
object DataSource1: TDataSource
DataSet = Table1
Left = 104
Top = 24
end
object ReportRunTime1: TReportRunTime
AutoGroup = False
EnableEdit = False
Left = 160
Top = 24
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -