📄 cjfbfrmunit.dfm
字号:
object cjfbfrm: Tcjfbfrm
Left = 232
Top = 218
Width = 472
Height = 355
Caption = #25104#32489#20998#24067
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 13
object DBChart1: TDBChart
Left = 0
Top = 0
Width = 464
Height = 281
BackWall.Brush.Color = clWhite
BackWall.Brush.Style = bsClear
Title.Text.Strings = (
'')
TabOrder = 0
object Label1: TLabel
Left = 96
Top = 8
Width = 273
Height = 17
AutoSize = False
end
object Series1: TBarSeries
Marks.ArrowLength = 20
Marks.Visible = True
DataSource = Table
SeriesColor = clRed
XLabelsSource = 'cjfl'
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 = 'rs00'
end
end
object Button1: TButton
Left = 312
Top = 288
Width = 75
Height = 25
Caption = #20851#38381
TabOrder = 1
OnClick = Button1Click
end
object Button2: TButton
Left = 208
Top = 288
Width = 75
Height = 25
Caption = #23548#20986#22270#34920
TabOrder = 2
OnClick = Button2Click
end
object Button3: TButton
Left = 104
Top = 288
Width = 75
Height = 25
Caption = #25171#21360#22270#34920
TabOrder = 3
end
object Table: TTable
DatabaseName = 'sinfo'
TableName = 'dbo.cjb1'
Left = 8
Top = 192
end
object DataSource1: TDataSource
DataSet = DataModule1.qry_zyrs
Left = 8
Top = 224
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -