📄 mc_cnfcsh.~dfm
字号:
object CNFCSH: TCNFCSH
Left = 222
Top = 75
BorderStyle = bsToolWindow
Caption = '采暖费初始化:'
ClientHeight = 263
ClientWidth = 231
Color = clBtnFace
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
OldCreateOrder = False
OnClose = FormClose
PixelsPerInch = 96
TextHeight = 12
object Label1: TLabel
Left = 6
Top = 14
Width = 60
Height = 12
Caption = '标准名称:'
FocusControl = DBEdit1
end
object Label2: TLabel
Left = 6
Top = 40
Width = 36
Height = 12
Caption = '金额:'
FocusControl = DBEdit2
end
object DBEdit1: TDBEdit
Left = 65
Top = 10
Width = 124
Height = 20
DataField = '标准名称'
DataSource = DataSource1
TabOrder = 0
OnEnter = DBEdit1Enter
OnExit = DBEdit1Exit
OnKeyPress = DBEdit1KeyPress
end
object DBEdit2: TDBEdit
Left = 65
Top = 36
Width = 64
Height = 20
DataField = '金额'
DataSource = DataSource1
TabOrder = 1
OnEnter = DBEdit1Enter
OnExit = DBEdit1Exit
OnKeyPress = DBEdit1KeyPress
end
object DBGrid1: TDBGrid
Left = 4
Top = 64
Width = 221
Height = 137
DataSource = DataSource1
Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
TabOrder = 2
TitleFont.Charset = GB2312_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -12
TitleFont.Name = '宋体'
TitleFont.Style = []
Columns = <
item
Expanded = False
FieldName = '标准名称'
Visible = True
end
item
Expanded = False
FieldName = '金额'
Width = 55
Visible = True
end>
end
object BitBtn1: TBitBtn
Left = 3
Top = 207
Width = 113
Height = 25
Caption = '添加[&I]'
TabOrder = 3
OnClick = BitBtn1Click
Glyph.Data = {
36020000424D3602000000000000360000002800000010000000100000000100
10000000000000020000000000000000000000000000000000001F7C1F7C1F7C
1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7CFF7FFF7FFF7F
FF7FFF7FFF7FB356B556B556FF7FFF7FFF7FFF7FFF7F1F7C1F7CFF7FFF7FFF7F
FF7FFF7FB556FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F1F7C1F7CFF7FFF7F5330
533851300000533053385130533853305338FF7FFF7F1F7C1F7CFF7FFF7FFF7F
FF7FFF7F0000C6300629FF7FFF7FFF7FFF7FFF7FFF7F1F7C1F7CFF7FFF7F9744
FF7F9744594CF37E8C5D84180A459744594CFF7FFF7F1F7C1F7CFF7FFF7FFF7F
FF7FFF7FFF7F8E5D736E8E5DC4188420FF7FFF7FFF7F1F7C1F7CFF7FFF7FFF7F
FF7FFF7FFF7FFF7FB57E7176464D82184220FF7FFF7F1F7C1F7CFF7FFF7FFF7F
C2098209C209C209FF7F2A7E444D464D82188420FF7F1F7C1F7CFF7FFF7FC009
FF7FC209FF7FFF7F8209994C287E444D464D821844201F7C1F7CFF7FFF7FC209
C209C209C209C209FF7FFF7FFF7F2A7E444D464D821884201F7CFF7FFF7FFF7F
8211FF7F8211FF7FFF7F55385744FF7F287E444D464D82181F7CFF7FFF7FFF7F
FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F2A7E444D464D1F7CFF7FFF7FFF7F
FF7FB556FF7F3546B556B556FF7FFF7FFF7FFF7F287E444D1F7CFF7FFF7FFF7F
FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F2A7E1F7C1F7C1F7C1F7C
1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C}
end
object BitBtn2: TBitBtn
Left = 120
Top = 207
Width = 105
Height = 25
Caption = '删除[&D]'
TabOrder = 4
OnClick = BitBtn2Click
Glyph.Data = {
DE010000424DDE01000000000000760000002800000024000000120000000100
0400000000006801000000000000000000001000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
333333333333333333333333000033338833333333333333333F333333333333
0000333911833333983333333388F333333F3333000033391118333911833333
38F38F333F88F33300003339111183911118333338F338F3F8338F3300003333
911118111118333338F3338F833338F3000033333911111111833333338F3338
3333F8330000333333911111183333333338F333333F83330000333333311111
8333333333338F3333383333000033333339111183333333333338F333833333
00003333339111118333333333333833338F3333000033333911181118333333
33338333338F333300003333911183911183333333383338F338F33300003333
9118333911183333338F33838F338F33000033333913333391113333338FF833
38F338F300003333333333333919333333388333338FFF830000333333333333
3333333333333333333888330000333333333333333333333333333333333333
0000}
NumGlyphs = 2
end
object BitBtn3: TBitBtn
Left = 3
Top = 236
Width = 222
Height = 25
Caption = '初始化采暖费数据'
TabOrder = 5
OnClick = BitBtn3Click
end
object Table1: TTable
Active = True
DatabaseName = 'WYGL'
TableName = 'dbo.采暖费标准'
Left = 176
Top = 136
object Table1BDEDesigner: TStringField
FieldName = '标准名称'
Required = True
FixedChar = True
end
object Table1BDEDesigner2: TFloatField
FieldName = '金额'
end
end
object DataSource1: TDataSource
DataSet = Table1
Left = 136
Top = 136
end
object Query1: TQuery
DatabaseName = 'WYGL'
Left = 96
Top = 176
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -