📄 grouprateform.dfm
字号:
MinValue = 0
TabOrder = 15
Value = 0
end
end
end
object tstGroupRate: TTabSheet
Caption = '分组'
ImageIndex = 1
object Panel3: TPanel
Left = 0
Top = 0
Width = 480
Height = 33
Align = alTop
Caption = 'Panel3'
TabOrder = 0
Visible = False
object DBNavigator1: TDBNavigator
Left = 1
Top = 1
Width = 376
Height = 31
DataSource = dsParkGroup
Align = alLeft
TabOrder = 0
end
end
object Panel4: TPanel
Left = 0
Top = 33
Width = 480
Height = 266
Align = alClient
Caption = 'Panel4'
TabOrder = 1
object DBGrid1: TDBGrid
Left = 1
Top = 1
Width = 478
Height = 264
Align = alLeft
DataSource = dsParkGroup
ReadOnly = True
TabOrder = 0
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
Columns = <
item
Expanded = False
FieldName = 'park_group_id'
Title.Caption = '编号'
Visible = True
end
item
Expanded = False
FieldName = 'group_name'
Title.Caption = '名称'
Visible = True
end
item
Expanded = False
FieldName = 'lotter'
Title.Caption = '车位数'
Visible = True
end
item
Expanded = False
FieldName = 'group_description'
Title.Caption = '描述'
Visible = True
end>
end
end
end
object tstFeeRate: TTabSheet
Caption = '费率'
ImageIndex = 2
object Panel5: TPanel
Left = 0
Top = 0
Width = 480
Height = 57
Align = alTop
TabOrder = 0
object Label17: TLabel
Left = 8
Top = 16
Width = 66
Height = 13
Caption = '请选择分组:'
end
object cbxParkGroup: TComboBox
Left = 88
Top = 13
Width = 145
Height = 21
Style = csDropDownList
ItemHeight = 13
TabOrder = 0
OnChange = cbxParkGroupChange
end
end
object Panel6: TPanel
Left = 0
Top = 57
Width = 480
Height = 242
Align = alClient
Caption = 'Panel6'
TabOrder = 1
object dgdParkGroup: TDBGrid
Left = 1
Top = 1
Width = 478
Height = 240
Align = alClient
DataSource = dsFeeRate
ReadOnly = True
TabOrder = 0
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
Columns = <
item
Expanded = False
FieldName = 'group_id'
Title.Caption = '编号'
Visible = True
end
item
Expanded = False
FieldName = 'week_no'
Title.Caption = '星期'
Visible = True
end
item
Expanded = False
FieldName = 'start_hour1'
Title.Caption = '开始小时'
Visible = True
end
item
Expanded = False
FieldName = 'start_min1'
Title.Caption = '开始分钟'
Visible = True
end
item
Expanded = False
FieldName = 'end_hour1'
Title.Caption = '结束小时'
Visible = True
end
item
Expanded = False
FieldName = 'end_min1'
Title.Caption = '结束分钟'
Visible = True
end
item
Expanded = False
FieldName = 'fee_rate1'
Title.Caption = '时段1费率'
Visible = True
end
item
Expanded = False
FieldName = 'start_hour2'
Title.Caption = '开始小时'
Visible = True
end
item
Expanded = False
FieldName = 'start_min2'
Title.Caption = '开始分钟'
Visible = True
end
item
Expanded = False
FieldName = 'end_hour2'
Title.Caption = '结束小时'
Visible = True
end
item
Expanded = False
FieldName = 'end_min2'
Title.Caption = '结束分钟'
Visible = True
end
item
Expanded = False
FieldName = 'fee_rate2'
Title.Caption = '时段2费率'
Visible = True
end
item
Expanded = False
FieldName = 'start_hour3'
Title.Caption = '开始小时'
Visible = True
end
item
Expanded = False
FieldName = 'start_min3'
Title.Caption = '开始分钟'
Visible = True
end
item
Expanded = False
FieldName = 'end_hour3'
Title.Caption = '结束小时'
Visible = True
end
item
Expanded = False
FieldName = 'end_min3'
Title.Caption = '结束分钟'
Visible = True
end
item
Expanded = False
FieldName = 'fee_rate3'
Title.Caption = '时段3费率'
Visible = True
end
item
Expanded = False
FieldName = 'start_hour4'
Title.Caption = '开始小时'
Visible = True
end
item
Expanded = False
FieldName = 'start_min4'
Title.Caption = '开始分钟'
Visible = True
end
item
Expanded = False
FieldName = 'end_hour4'
Title.Caption = '结束小时'
Visible = True
end
item
Expanded = False
FieldName = 'end_min4'
Title.Caption = '结束分钟'
Visible = True
end
item
Expanded = False
FieldName = 'fee_rate4'
Title.Caption = '时段4费率'
Visible = True
end>
end
end
end
end
end
inherited bbnOk: TBitBtn
Left = 328
Top = 336
end
inherited bbnCancel: TBitBtn
Left = 408
Top = 336
end
object dsParkGroup: TDataSource
DataSet = tblParkGroup
Left = 165
Top = 153
end
object tblParkGroup: TADOTable
BeforeDelete = tblParkGroupBeforeDelete
Left = 184
Top = 112
end
object tblFeeRate: TADOTable
Left = 317
Top = 162
end
object dsFeeRate: TDataSource
DataSet = tblFeeRate
Left = 317
Top = 130
end
object tblTimePhase: TADOTable
Left = 101
Top = 121
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -