📄 dinnerchar.dfm
字号:
object DinnerCharForm: TDinnerCharForm
Left = 228
Top = 147
Width = 556
Height = 371
Caption = #39184#21381#20449#24687#22270#34920#20998#26512
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
PixelsPerInch = 96
TextHeight = 13
object RadioGroup1: TRadioGroup
Left = -1
Top = 300
Width = 546
Height = 41
Caption = #25490#24207#26041#24335
TabOrder = 0
end
object IncomeRadio: TRadioButton
Left = 325
Top = 317
Width = 73
Height = 17
Caption = #23454#25910#37329#39069
TabOrder = 1
OnClick = IncomeRadioClick
end
object NummRadioButton: TRadioButton
Left = 33
Top = 318
Width = 113
Height = 17
Caption = #37202#33756#23450#21333
TabOrder = 2
OnClick = NummRadioButtonClick
end
object SummRadioButton: TRadioButton
Left = 179
Top = 317
Width = 113
Height = 17
Caption = #24635#37329#39069
TabOrder = 3
OnClick = SummRadioButtonClick
end
object DBChart: TDBChart
Left = 0
Top = 0
Width = 545
Height = 297
BackWall.Brush.Color = clWhite
BackWall.Brush.Style = bsClear
Title.Text.Strings = (
'TDBChart')
TabOrder = 4
object Series1: TBarSeries
Marks.ArrowLength = 20
Marks.Visible = True
DataSource = DataSource1
SeriesColor = clRed
XValues.DateTime = False
XValues.Name = 'X'
XValues.Multiplier = 1
XValues.Order = loAscending
YValues.DateTime = False
YValues.Name = 'Bar'
YValues.Multiplier = 1
YValues.Order = loNone
YValues.ValueSource = 'Numm;Summ;Income'
end
end
object DinnerQuery: TQuery
Active = True
DatabaseName = 'Sales'
SQL.Strings = (
'select * from dinner')
Left = 505
Top = 273
end
object DataSource1: TDataSource
DataSet = DinnerQuery
Left = 473
Top = 273
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -