📄 mc_qtfycsh.~dfm
字号:
item
Expanded = False
FieldName = '计费终止日期'
Width = 79
Visible = True
end
item
Expanded = False
FieldName = '应收金额'
Width = 52
Visible = True
end
item
Expanded = False
FieldName = '实收金额'
Width = 54
Visible = True
end
item
Expanded = False
FieldName = '剩余金额'
Width = 55
Visible = True
end>
end
end
object BitBtn4: TBitBtn
Left = 152
Top = 519
Width = 209
Height = 25
Caption = '退出费用初始化[&Q]'
TabOrder = 5
OnClick = BitBtn4Click
Glyph.Data = {
DE010000424DDE01000000000000760000002800000024000000120000000100
0400000000006801000000000000000000001000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333333333333FFFFF333333000033333388888833333333333F888888FFF333
000033338811111188333333338833FFF388FF33000033381119999111833333
38F338888F338FF30000339119933331111833338F388333383338F300003391
13333381111833338F8F3333833F38F3000039118333381119118338F38F3338
33F8F38F000039183333811193918338F8F333833F838F8F0000391833381119
33918338F8F33833F8338F8F000039183381119333918338F8F3833F83338F8F
000039183811193333918338F8F833F83333838F000039118111933339118338
F3833F83333833830000339111193333391833338F33F8333FF838F300003391
11833338111833338F338FFFF883F83300003339111888811183333338FF3888
83FF83330000333399111111993333333388FFFFFF8833330000333333999999
3333333333338888883333330000333333333333333333333333333333333333
0000}
NumGlyphs = 2
end
object BitBtn5: TBitBtn
Left = 363
Top = 519
Width = 206
Height = 25
Caption = '添加新收费项'
TabOrder = 6
OnClick = BitBtn5Click
Glyph.Data = {
DE010000424DDE01000000000000760000002800000024000000120000000100
0400000000006801000000000000000000001000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333333333333333333333330000333333333333333333333333F33333333333
00003333344333333333333333388F3333333333000033334224333333333333
338338F3333333330000333422224333333333333833338F3333333300003342
222224333333333383333338F3333333000034222A22224333333338F338F333
8F33333300003222A3A2224333333338F3838F338F33333300003A2A333A2224
33333338F83338F338F33333000033A33333A222433333338333338F338F3333
0000333333333A222433333333333338F338F33300003333333333A222433333
333333338F338F33000033333333333A222433333333333338F338F300003333
33333333A222433333333333338F338F00003333333333333A22433333333333
3338F38F000033333333333333A223333333333333338F830000333333333333
333A333333333333333338330000333333333333333333333333333333333333
0000}
NumGlyphs = 2
end
object DataSource1: TDataSource
DataSet = Query1
Left = 60
Top = 11
end
object Query1: TQuery
Active = True
DatabaseName = 'WYGL'
SQL.Strings = (
'Select 小区编号,小区名 From 小区信息表')
Left = 92
Top = 11
object Query1BDEDesigner: TStringField
FieldName = '小区编号'
Origin = 'WYGL.小区信息表.小区编号'
FixedChar = True
Size = 10
end
object Query1BDEDesigner2: TStringField
FieldName = '小区名'
Origin = 'WYGL.小区信息表.小区名'
FixedChar = True
Size = 10
end
end
object DataSource2: TDataSource
DataSet = Table1
Left = 36
Top = 120
end
object Table1: TTable
Active = True
DatabaseName = 'WYGL'
IndexFieldNames = '所属区域'
MasterFields = '小区名'
MasterSource = DataSource1
TableName = 'dbo.大楼信息表'
Left = 68
Top = 120
object Table1BDEDesigner: TStringField
FieldName = '大楼编号'
Required = True
FixedChar = True
Size = 10
end
object Table1BDEDesigner2: TStringField
FieldName = '大楼名称'
FixedChar = True
end
object Table1BDEDesigner7: TStringField
FieldName = '所属区域'
FixedChar = True
end
end
object Table2: TTable
Active = True
DatabaseName = 'WYGL'
IndexFieldNames = '大楼名'
MasterFields = '大楼名称'
MasterSource = DataSource2
TableName = 'dbo.房屋信息表'
Left = 76
Top = 335
object Table2BDEDesigner: TStringField
FieldName = '房间编号'
Required = True
FixedChar = True
end
object Table2BDEDesigner2: TStringField
FieldName = '区名'
FixedChar = True
end
object Table2BDEDesigner3: TStringField
FieldName = '大楼名'
FixedChar = True
end
object Table2BDEDesigner4: TStringField
FieldName = '房间号码'
FixedChar = True
Size = 10
end
object Table2BDEDesigner6: TStringField
FieldName = '房主姓名'
FixedChar = True
Size = 10
end
object Table2BDEDesigner18: TStringField
FieldName = '是否空闲'
FixedChar = True
Size = 10
end
object Table2BDEDesigner5: TStringField
FieldName = '权属类型'
FixedChar = True
end
object Table2BDEDesigner7: TFloatField
FieldName = '建筑面积'
end
object Table2BDEDesigner8: TFloatField
FieldName = '使用面积'
end
object Table2BDEDesigner9: TFloatField
FieldName = '公产面积'
end
object Table2BDEDesigner10: TFloatField
FieldName = '私产面积'
end
end
object DataSource3: TDataSource
DataSet = Table2
Left = 44
Top = 335
end
object Table3: TTable
Active = True
DatabaseName = 'WYGL'
TableName = 'dbo.权属类型'
Left = 304
Top = 443
object Table3BDEDesigner: TStringField
FieldName = '权属类型'
Required = True
FixedChar = True
end
end
object DataSource4: TDataSource
DataSet = Table3
Left = 272
Top = 443
end
object Table4: TTable
Active = True
DatabaseName = 'WYGL'
TableName = 'dbo.其它科目'
Left = 272
Top = 475
object Table4BDEDesigner: TStringField
FieldName = '科目名'
Required = True
FixedChar = True
end
object Table4BDEDesigner2: TFloatField
FieldName = '费用标准'
end
end
object DataSource5: TDataSource
DataSet = Table4
Left = 304
Top = 475
end
object DataSource6: TDataSource
DataSet = Query2
Left = 216
Top = 27
end
object Query2: TQuery
DatabaseName = 'WYGL'
SQL.Strings = (
'Select * From 其它费用表')
Left = 184
Top = 27
object Query2BDEDesigner: TStringField
FieldName = '收费编号'
Origin = 'WYGL.其它费用表.收费编号'
FixedChar = True
end
object Query2BDEDesigner2: TStringField
FieldName = '户主姓名'
Origin = 'WYGL.其它费用表.户主姓名'
FixedChar = True
Size = 10
end
object Query2BDEDesigner3: TFloatField
FieldName = '建筑面积'
Origin = 'WYGL.其它费用表.建筑面积'
end
object Query2BDEDesigner4: TFloatField
FieldName = '使用面积'
Origin = 'WYGL.其它费用表.使用面积'
end
object Query2BDEDesigner5: TFloatField
FieldName = '公有面积'
Origin = 'WYGL.其它费用表.公有面积'
end
object Query2BDEDesigner6: TFloatField
FieldName = '私有面积'
Origin = 'WYGL.其它费用表.私有面积'
end
object Query2BDEDesigner7: TStringField
FieldName = '标准名称'
Origin = 'WYGL.其它费用表.标准名称'
FixedChar = True
end
object Query2BDEDesigner8: TFloatField
FieldName = '标准金额'
Origin = 'WYGL.其它费用表.标准金额'
end
object Query2BDEDesigner9: TStringField
FieldName = '费用科目'
Origin = 'WYGL.其它费用表.费用科目'
FixedChar = True
end
object Query2BDEDesigner10: TFloatField
FieldName = '收费金额'
Origin = 'WYGL.其它费用表.收费金额'
end
object Query2BDEDesigner11: TDateTimeField
FieldName = '计费起始日期'
Origin = 'WYGL.其它费用表.计费起始日期'
end
object Query2BDEDesigner12: TDateTimeField
FieldName = '计费终止日期'
Origin = 'WYGL.其它费用表.计费终止日期'
end
object Query2BDEDesigner13: TFloatField
FieldName = '应收金额'
Origin = 'WYGL.其它费用表.应收金额'
end
object Query2BDEDesigner14: TFloatField
FieldName = '实收金额'
Origin = 'WYGL.其它费用表.实收金额'
end
object Query2BDEDesigner15: TFloatField
FieldName = '剩余金额'
Origin = 'WYGL.其它费用表.剩余金额'
end
object Query2BDEDesigner16: TFloatField
FieldName = '减免金额'
Origin = 'WYGL.其它费用表.减免金额'
end
object Query2BDEDesigner17: TStringField
FieldName = '原因'
Origin = 'WYGL.其它费用表.原因'
FixedChar = True
Size = 50
end
end
object Query3: TQuery
DatabaseName = 'WYGL'
Left = 680
Top = 355
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -