📄 mc_qtfycsh.~dfm
字号:
object QTFYCSH: TQTFYCSH
Left = 224
Top = 79
BorderStyle = bsToolWindow
Caption = '其它费用初始化：'
ClientHeight = 549
ClientWidth = 792
Color = clBtnFace
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
OldCreateOrder = False
OnClose = FormClose
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 12
object GroupBox1: TGroupBox
Left = 4
Top = 3
Width = 141
Height = 48
Caption = '小区名：'
TabOrder = 0
object DBLookupComboBox1: TDBLookupComboBox
Left = 9
Top = 18
Width = 120
Height = 20
KeyField = '小区名'
ListField = '小区名'
ListSource = DataSource1
TabOrder = 0
end
end
object GroupBox2: TGroupBox
Left = 4
Top = 56
Width = 141
Height = 203
Caption = '大楼名称：'
TabOrder = 1
object DBGrid1: TDBGrid
Left = 8
Top = 17
Width = 124
Height = 176
DataSource = DataSource2
Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgCancelOnExit]
ReadOnly = True
TabOrder = 0
TitleFont.Charset = GB2312_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -12
TitleFont.Name = '宋体'
TitleFont.Style = []
Columns = <
item
Expanded = False
FieldName = '大楼名称'
Width = 89
Visible = True
end>
end
end
object GroupBox3: TGroupBox
Left = 4
Top = 263
Width = 141
Height = 280
Caption = '房屋列表：'
TabOrder = 2
object DBGrid2: TDBGrid
Left = 8
Top = 16
Width = 123
Height = 254
DataSource = DataSource3
Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgCancelOnExit]
ReadOnly = True
TabOrder = 0
TitleFont.Charset = GB2312_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -12
TitleFont.Name = '宋体'
TitleFont.Style = []
OnCellClick = DBGrid2CellClick
Columns = <
item
Expanded = False
FieldName = '房间号码'
Title.Caption = '房间号'
Width = 38
Visible = True
end
item
Expanded = False
FieldName = '房主姓名'
Title.Caption = '房主'
Width = 49
Visible = True
end>
end
end
object GroupBox4: TGroupBox
Left = 152
Top = 416
Width = 633
Height = 97
Caption = '编写初始化规则：'
TabOrder = 3
object Label1: TLabel
Left = 10
Top = 24
Width = 84
Height = 12
Caption = '选择权属类型：'
end
object Label2: TLabel
Left = 10
Top = 52
Width = 60
Height = 12
Caption = '费用科目：'
end
object Label3: TLabel
Left = 246
Top = 52
Width = 12
Height = 12
Caption = '＝'
end
object DBText1: TDBText
Left = 374
Top = 39
Width = 39
Height = 17
DataField = '费用标准'
DataSource = DataSource5
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object Label4: TLabel
Left = 359
Top = 52
Width = 12
Height = 12
Caption = '×'
end
object DBLookupComboBox2: TDBLookupComboBox
Left = 97
Top = 20
Width = 145
Height = 20
KeyField = '权属类型'
ListField = '权属类型'
ListSource = DataSource4
TabOrder = 0
end
object DBLookupComboBox3: TDBLookupComboBox
Left = 97
Top = 48
Width = 145
Height = 20
KeyField = '科目名'
ListField = '科目名'
ListSource = DataSource5
TabOrder = 1
end
object ComboBox1: TComboBox
Left = 260
Top = 48
Width = 97
Height = 20
Style = csDropDownList
ItemHeight = 12
TabOrder = 2
Items.Strings = (
'建筑面积'
'使用面积'
'公有面积'
'私有面积')
end
object BitBtn1: TBitBtn
Left = 419
Top = 14
Width = 209
Height = 25
Caption = '更新当前住户'
TabOrder = 3
OnClick = BitBtn1Click
Glyph.Data = {
DE010000424DDE01000000000000760000002800000024000000120000000100
0400000000006801000000000000000000001000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333444444
33333333333F8888883F33330000324334222222443333388F3833333388F333
000032244222222222433338F8833FFFFF338F3300003222222AAAAA22243338
F333F88888F338F30000322222A33333A2224338F33F8333338F338F00003222
223333333A224338F33833333338F38F00003222222333333A444338FFFF8F33
3338888300003AAAAAAA33333333333888888833333333330000333333333333
333333333333333333FFFFFF000033333333333344444433FFFF333333888888
00003A444333333A22222438888F333338F3333800003A2243333333A2222438
F38F333333833338000033A224333334422224338338FFFFF8833338000033A2
22444442222224338F3388888333FF380000333A2222222222AA243338FF3333
33FF88F800003333AA222222AA33A3333388FFFFFF8833830000333333AAAAAA
3333333333338888883333330000333333333333333333333333333333333333
0000}
NumGlyphs = 2
end
object BitBtn2: TBitBtn
Left = 419
Top = 39
Width = 209
Height = 25
Caption = '更新当前大楼'
TabOrder = 4
OnClick = BitBtn2Click
Glyph.Data = {
DE010000424DDE01000000000000760000002800000024000000120000000100
0400000000006801000000000000000000001000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333444444
33333333333F8888883F33330000324334222222443333388F3833333388F333
000032244222222222433338F8833FFFFF338F3300003222222AAAAA22243338
F333F88888F338F30000322222A33333A2224338F33F8333338F338F00003222
223333333A224338F33833333338F38F00003222222333333A444338FFFF8F33
3338888300003AAAAAAA33333333333888888833333333330000333333333333
333333333333333333FFFFFF000033333333333344444433FFFF333333888888
00003A444333333A22222438888F333338F3333800003A2243333333A2222438
F38F333333833338000033A224333334422224338338FFFFF8833338000033A2
22444442222224338F3388888333FF380000333A2222222222AA243338FF3333
33FF88F800003333AA222222AA33A3333388FFFFFF8833830000333333AAAAAA
3333333333338888883333330000333333333333333333333333333333333333
0000}
NumGlyphs = 2
end
object BitBtn3: TBitBtn
Left = 419
Top = 64
Width = 209
Height = 25
Caption = '更新当前小区'
TabOrder = 5
OnClick = BitBtn3Click
Glyph.Data = {
DE010000424DDE01000000000000760000002800000024000000120000000100
0400000000006801000000000000000000001000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333444444
33333333333F8888883F33330000324334222222443333388F3833333388F333
000032244222222222433338F8833FFFFF338F3300003222222AAAAA22243338
F333F88888F338F30000322222A33333A2224338F33F8333338F338F00003222
223333333A224338F33833333338F38F00003222222333333A444338FFFF8F33
3338888300003AAAAAAA33333333333888888833333333330000333333333333
333333333333333333FFFFFF000033333333333344444433FFFF333333888888
00003A444333333A22222438888F333338F3333800003A2243333333A2222438
F38F333333833338000033A224333334422224338338FFFFF8833338000033A2
22444442222224338F3388888333FF380000333A2222222222AA243338FF3333
33FF88F800003333AA222222AA33A3333388FFFFFF8833830000333333AAAAAA
3333333333338888883333330000333333333333333333333333333333333333
0000}
NumGlyphs = 2
end
object Edit1: TEdit
Left = 374
Top = 65
Width = 38
Height = 20
TabOrder = 6
OnKeyPress = Edit1KeyPress
end
end
object GroupBox5: TGroupBox
Left = 152
Top = 3
Width = 633
Height = 406
Caption = '其它费用信息：'
TabOrder = 4
object DBGrid3: TDBGrid
Left = 8
Top = 16
Width = 616
Height = 381
DataSource = DataSource6
TabOrder = 0
TitleFont.Charset = GB2312_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -12
TitleFont.Name = '宋体'
TitleFont.Style = []
Columns = <
item
Color = clAqua
Expanded = False
FieldName = '费用科目'
ReadOnly = True
Visible = True
end
item
Color = clAqua
Expanded = False
FieldName = '收费金额'
ReadOnly = True
Visible = True
end
item
Color = clAqua
Expanded = False
FieldName = '标准金额'
ReadOnly = True
Visible = True
end
item
Expanded = False
FieldName = '计费起始日期'
Width = 77
Visible = True
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -