?? mc_ssfydj.dfm
字號:
ReadOnly = True
Width = 87
Visible = True
end
item
Color = clAqua
Expanded = False
FieldName = '應收金額'
ReadOnly = True
Width = 59
Visible = True
end
item
Color = clWhite
Expanded = False
FieldName = '實收金額'
Width = 62
Visible = True
end
item
Color = clAqua
Expanded = False
FieldName = '剩余金額'
ReadOnly = True
Width = 59
Visible = True
end>
end
end
object BitBtn1: TBitBtn
Left = 152
Top = 519
Width = 177
Height = 25
Caption = '登記收費信息[&E]'
TabOrder = 5
OnClick = BitBtn1Click
Glyph.Data = {
36020000424D3602000000000000360000002800000010000000100000000100
10000000000000020000000000000000000000000000000000001F7C1F7C1F7C
1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C000000000000
000000000000000000000000000000000000000000001F7C1F7CFF7FFF7FFF7F
FF7FFF7FB556B556FF7FFF7FFF7FFF7FFF7FFF7FFF7F1F7C1F7CFF7FFF7FFF7F
FF7FFF7F4A29FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F1F7C1F7CFF7F4A29FF7F
4A29B55600008418D16DFF7FFF7FFF7FFF7FFF7FFF7F1F7C1F7CFF7FFF7FFF7F
FF7FFF7FFF7FD16D0629C6302E66FF7FFF7FFF7FFF7F1F7C1F7CFF7FFF7FFF7F
4A294A294A298C5D3176063184204210FF7FFF7FFF7F1F7C1F7CFF7FFF7FFF7F
FF7FFF7FFF7FFF7FF57E33768C4D84208210FF7FFF7F1F7C1F7CFF7F00004A29
000000004A294A298C5D287E464D444D84204210FF7F1F7C1F7CFF7FFF7FFF7F
FF7FFF7FFF7FFF7FFF7F464D687E464D444D842082101F7C1F7CFF7F4A294A29
4A294A294A294A294A294A29464D287E464D444D842042101F7CFF7FFF7FFF7F
FF7FFF7FFF7FFF7FFF7FFF7FFF7F464D687E464D444D84201F7CFF7F4A294A29
4A294A294A294A290000FF7FFF7FFF7F464D287E464D444D1F7CFF7FFF7FFF7F
FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F464D687E464D1F7CFF7FFF7FFF7F
FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F464D287E1F7C1F7C1F7C1F7C
1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C464D1F7C}
end
object BitBtn4: TBitBtn
Left = 612
Top = 519
Width = 177
Height = 25
Caption = '退出收費登記[&Q]'
TabOrder = 6
OnClick = BitBtn4Click
Glyph.Data = {
36020000424D3602000000000000360000002800000010000000100000000100
10000000000000020000000000000000000000000000000000001F7C1F7C1F7C
1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C
1F7C1F7C1F7C1F7C000000000000EF3DEF3DEF3D00001F7C1F7C1F7C1F7C1F7C
1F7C1F7C1F7C1F7C000000000000EF3DEF3DEF3D00001F7C1F7C00001F7CFF7F
000000000000FF7F000000000000EF3DEF3DEF3D00001F7C1F7C1F7C1F7CFF7F
FF7FFF7F00000000000000000000EF3DEF3DEF3D00001F7C1F7C1F7C1F7C1F7C
00000000000000001F7C00000000EF3DF75EEF3D00001F7C1F7C000000001F7C
000000001F7C000000001F7C1F7CEF3DEF3DEF3D00001F7C1F7C1F7C1F7C1F7C
1F7C000000000000000000000000EF3DEF3DEF3D00001F7C1F7C1F7C1F7C1F7C
1F7C1F7C1F7C000000001F7C0000EF3DEF3DEF3D00001F7C1F7C1F7C1F7C1F7C
1F7C1F7CFF7F0000000000000000EF3DEF3DEF3D00001F7C1F7C1F7C1F7C1F7C
1F7C1F7C1F7CFF7F0000000000000000EF3DEF3D00001F7C1F7C1F7C1F7C1F7C
1F7C1F7C1F7C1F7CFF7F0000000000000000000000001F7C1F7C1F7C1F7C1F7C
1F7C1F7C1F7C1F7CFF7FFF7FFF7FFF7FFF7FFF7FFF7F1F7C1F7C1F7C1F7C1F7C
1F7C1F7C1F7C1F7C1F7C0F000F000F000F001F7C1F7C1F7C1F7C1F7C1F7C1F7C
1F7C1F7C1F7C1F7C1F7C0F001F7C1F7C0F001F7C1F7C1F7C1F7C1F7C1F7C1F7C
1F7C1F7C1F7C1F7C1F7C0F000F000F000F000F000F001F7C1F7C}
end
object BitBtn2: TBitBtn
Left = 330
Top = 519
Width = 129
Height = 25
Caption = '保存收費信息[&S]'
Enabled = False
TabOrder = 7
OnClick = BitBtn2Click
Glyph.Data = {
DE010000424DDE01000000000000760000002800000024000000120000000100
0400000000006801000000000000000000001000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333333333333333333333330000333333333333333333333333F33333333333
00003333344333333333333333388F3333333333000033334224333333333333
338338F3333333330000333422224333333333333833338F3333333300003342
222224333333333383333338F3333333000034222A22224333333338F338F333
8F33333300003222A3A2224333333338F3838F338F33333300003A2A333A2224
33333338F83338F338F33333000033A33333A222433333338333338F338F3333
0000333333333A222433333333333338F338F33300003333333333A222433333
333333338F338F33000033333333333A222433333333333338F338F300003333
33333333A222433333333333338F338F00003333333333333A22433333333333
3338F38F000033333333333333A223333333333333338F830000333333333333
333A333333333333333338330000333333333333333333333333333333333333
0000}
NumGlyphs = 2
end
object BitBtn3: TBitBtn
Left = 460
Top = 519
Width = 133
Height = 25
Caption = '取消收費信息[&U]'
Enabled = False
TabOrder = 8
OnClick = BitBtn3Click
Glyph.Data = {
DE010000424DDE01000000000000760000002800000024000000120000000100
0400000000006801000000000000000000001000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333333333333FFFFF333333000033333388888833333333333F888888FFF333
000033338811111188333333338833FFF388FF33000033381119999111833333
38F338888F338FF30000339119933331111833338F388333383338F300003391
13333381111833338F8F3333833F38F3000039118333381119118338F38F3338
33F8F38F000039183333811193918338F8F333833F838F8F0000391833381119
33918338F8F33833F8338F8F000039183381119333918338F8F3833F83338F8F
000039183811193333918338F8F833F83333838F000039118111933339118338
F3833F83333833830000339111193333391833338F33F8333FF838F300003391
11833338111833338F338FFFF883F83300003339111888811183333338FF3888
83FF83330000333399111111993333333388FFFFFF8833330000333333999999
3333333333338888883333330000333333333333333333333333333333333333
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
AfterScroll = Table2AfterScroll
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
end
object DataSource3: TDataSource
DataSet = Table2
Left = 44
Top = 335
end
object Table3: TTable
Active = True
DatabaseName = 'WYGL'
IndexFieldNames = '水表編號'
MasterFields = '房間編號'
MasterSource = DataSource3
TableName = 'dbo.水費'
Left = 223
Top = 275
object Table3BDEDesigner: TStringField
FieldName = '水表編號'
Required = True
FixedChar = True
end
object Table3BDEDesigner2: TStringField
FieldName = '戶主姓名'
FixedChar = True
Size = 10
end
object Table3BDEDesigner3: TStringField
FieldName = '收費標準'
FixedChar = True
end
object Table3BDEDesigner4: TFloatField
FieldName = '收費金額'
end
object Table3BDEDesigner5: TDateTimeField
FieldName = '計費起始日期'
EditMask = '!0000/00/00;1;_'
end
object Table3BDEDesigner6: TDateTimeField
FieldName = '計費終止日期'
EditMask = '!0000/00/00;1;_'
end
object Table3BDEDesigner7: TIntegerField
FieldName = '本月讀數'
end
object Table3BDEDesigner8: TIntegerField
FieldName = '上月讀數'
end
object Table3BDEDesigner9: TIntegerField
FieldName = '使用數'
end
object Table3BDEDesigner10: TFloatField
FieldName = '應收金額'
end
object Table3BDEDesigner11: TFloatField
FieldName = '實收金額'
end
object Table3BDEDesigner12: TFloatField
FieldName = '剩余金額'
end
end
object DataSource4: TDataSource
DataSet = Table3
Left = 191
Top = 275
end
object DataSource5: TDataSource
DataSet = Table4
Left = 384
Top = 264
end
object Table4: TTable
Active = True
DatabaseName = 'WYGL'
IndexFieldNames = '電表編號'
MasterFields = '房間編號'
MasterSource = DataSource3
TableName = 'dbo.電費'
Left = 416
Top = 264
object Table4BDEDesigner: TStringField
FieldName = '電表編號'
Required = True
FixedChar = True
end
object Table4BDEDesigner2: TStringField
FieldName = '戶主姓名'
FixedChar = True
Size = 10
end
object Table4BDEDesigner3: TStringField
FieldName = '收費標準'
FixedChar = True
end
object Table4BDEDesigner4: TFloatField
FieldName = '收費金額'
end
object Table4BDEDesigner5: TDateTimeField
FieldName = '計費起始日期'
EditMask = '!0000/00/00;1;_'
end
object Table4BDEDesigner6: TDateTimeField
FieldName = '計費終止日期'
EditMask = '!0000/00/00;1;_'
end
object Table4BDEDesigner7: TIntegerField
FieldName = '本月讀數'
end
object Table4BDEDesigner8: TIntegerField
FieldName = '上月讀數'
end
object Table4BDEDesigner9: TIntegerField
FieldName = '使用數'
end
object Table4BDEDesigner10: TFloatField
FieldName = '應收金額'
end
object Table4BDEDesigner11: TFloatField
FieldName = '實收金額'
end
object Table4BDEDesigner12: TFloatField
FieldName = '剩余金額'
end
end
object DataSource6: TDataSource
DataSet = Table5
Left = 600
Top = 258
end
object Table5: TTable
Active = True
DatabaseName = 'WYGL'
IndexFieldNames = '煤氣表編號'
MasterFields = '房間編號'
MasterSource = DataSource3
TableName = 'dbo.煤氣費'
Left = 632
Top = 258
object Table5BDEDesigner: TStringField
FieldName = '煤氣表編號'
Required = True
FixedChar = True
end
object Table5BDEDesigner2: TStringField
FieldName = '戶主姓名'
FixedChar = True
Size = 10
end
object Table5BDEDesigner3: TStringField
FieldName = '收費標準'
FixedChar = True
end
object Table5BDEDesigner4: TFloatField
FieldName = '收費金額'
end
object Table5BDEDesigner5: TDateTimeField
FieldName = '計費起始日期'
EditMask = '!0000/00/00;1;_'
end
object Table5BDEDesigner6: TDateTimeField
FieldName = '計費終止日期'
EditMask = '!0000/00/00;1;_'
end
object Table5BDEDesigner7: TIntegerField
FieldName = '本月讀數'
end
object Table5BDEDesigner8: TIntegerField
FieldName = '上月讀數'
end
object Table5BDEDesigner9: TIntegerField
FieldName = '使用數'
end
object Table5BDEDesigner10: TFloatField
FieldName = '應收金額'
end
object Table5BDEDesigner11: TFloatField
FieldName = '實收金額'
end
object Table5BDEDesigner12: TFloatField
FieldName = '剩余金額'
end
end
object Query2: TQuery
BeforePost = Query2BeforePost
DatabaseName = 'WYGL'
RequestLive = True
SQL.Strings = (
'Select * From 常用費用')
Left = 640
Top = 380
object Query2BDEDesigner: TStringField
FieldName = '收費編號'
Origin = 'WYGL.常用費用.收費編號'
FixedChar = True
end
object Query2BDEDesigner2: TStringField
FieldName = '戶主姓名'
Origin = 'WYGL.常用費用.戶主姓名'
FixedChar = True
Size = 10
end
object Query2BDEDesigner3: TStringField
FieldName = '費用科目'
Origin = 'WYGL.常用費用.費用科目'
FixedChar = True
end
object Query2BDEDesigner4: TFloatField
FieldName = '收費金額'
Origin = 'WYGL.常用費用.收費金額'
end
object Query2BDEDesigner5: TDateTimeField
FieldName = '計費起始日期'
Origin = 'WYGL.常用費用.計費起始日期'
DisplayFormat = 'YYYY/MM/DD'
EditMask = '!0000/00/00;1;_'
end
object Query2BDEDesigner6: TDateTimeField
FieldName = '計費終止日期'
Origin = 'WYGL.常用費用.計費終止日期'
DisplayFormat = 'YYYY/MM/DD'
EditMask = '!0000/00/00;1;_'
end
object Query2BDEDesigner7: TFloatField
FieldName = '應收金額'
Origin = 'WYGL.常用費用.應收金額'
end
object Query2BDEDesigner8: TFloatField
FieldName = '實收金額'
Origin = 'WYGL.常用費用.實收金額'
end
object Query2BDEDesigner9: TFloatField
FieldName = '剩余金額'
Origin = 'WYGL.常用費用.剩余金額'
end
end
object DataSource7: TDataSource
DataSet = Query2
Left = 608
Top = 380
end
end
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -