?? mc_fwxxscq.~dfm
字號:
object FWXXSCQ: TFWXXSCQ
Left = 228
Top = 81
Hint = '房屋信息生成器：'
BorderStyle = bsToolWindow
Caption = '房屋信息生成器：'
ClientHeight = 335
ClientWidth = 439
Color = clBtnFace
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '宋體'
Font.Style = []
OldCreateOrder = False
ShowHint = True
OnClose = FormClose
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 12
object GroupBox1: TGroupBox
Left = 5
Top = 4
Width = 212
Height = 53
Caption = '小區(qū)列表：'
TabOrder = 0
object Label1: TLabel
Left = 10
Top = 25
Width = 48
Height = 12
Caption = '小區(qū)名：'
end
object DBLookupComboBox1: TDBLookupComboBox
Left = 62
Top = 21
Width = 138
Height = 20
KeyField = '小區(qū)名'
ListField = '小區(qū)名'
ListSource = DataSource1
TabOrder = 0
end
end
object GroupBox2: TGroupBox
Left = 5
Top = 61
Width = 213
Height = 267
Caption = '大樓列表：'
TabOrder = 1
object DBGrid1: TDBGrid
Left = 8
Top = 18
Width = 196
Height = 241
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 = 160
Visible = True
end>
end
end
object GroupBox3: TGroupBox
Left = 224
Top = 4
Width = 209
Height = 323
Caption = '房屋信息模版：'
TabOrder = 2
object Bevel1: TBevel
Left = 1
Top = 98
Width = 207
Height = 7
Shape = bsTopLine
end
object Label11: TLabel
Left = 8
Top = 233
Width = 60
Height = 12
Caption = '房間類別：'
end
object Label12: TLabel
Left = 8
Top = 204
Width = 60
Height = 12
Caption = '配備設施：'
end
object Label9: TLabel
Left = 8
Top = 174
Width = 60
Height = 12
Caption = '房間結(jié)構：'
end
object Label7: TLabel
Left = 8
Top = 145
Width = 60
Height = 12
Caption = '權屬類型：'
end
object Label8: TLabel
Left = 8
Top = 116
Width = 36
Height = 12
Caption = '朝向：'
end
object Bevel2: TBevel
Left = 1
Top = 282
Width = 207
Height = 7
Shape = bsTopLine
end
object Bevel3: TBevel
Left = 1
Top = 256
Width = 207
Height = 7
Shape = bsTopLine
end
object Label4: TLabel
Left = 40
Top = 264
Width = 132
Height = 12
Caption = '萬通花園房屋信息生成器'
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -12
Font.Name = '宋體'
Font.Style = []
ParentFont = False
end
object Label5: TLabel
Left = 8
Top = 24
Width = 36
Height = 12
Caption = '單元：'
end
object Label6: TLabel
Left = 127
Top = 24
Width = 12
Height = 12
Caption = '到'
end
object Label10: TLabel
Left = 8
Top = 50
Width = 48
Height = 12
Caption = '樓層數(shù)：'
end
object Label13: TLabel
Left = 9
Top = 74
Width = 60
Height = 12
Caption = '每層戶數(shù)：'
end
object DBLookupComboBox2: TDBLookupComboBox
Left = 67
Top = 112
Width = 129
Height = 20
KeyField = '房屋朝向'
ListField = '房屋朝向'
ListSource = DataSource3
TabOrder = 0
end
object DBLookupComboBox3: TDBLookupComboBox
Left = 67
Top = 141
Width = 129
Height = 20
KeyField = '權屬類型'
ListField = '權屬類型'
ListSource = DataSource4
TabOrder = 1
end
object DBLookupComboBox4: TDBLookupComboBox
Left = 67
Top = 170
Width = 129
Height = 20
KeyField = '房間結(jié)構'
ListField = '房間結(jié)構'
ListSource = DataSource5
TabOrder = 2
end
object DBLookupComboBox5: TDBLookupComboBox
Left = 67
Top = 200
Width = 129
Height = 20
KeyField = '配備信息'
ListField = '配備信息'
ListSource = DataSource6
TabOrder = 3
end
object DBLookupComboBox6: TDBLookupComboBox
Left = 67
Top = 229
Width = 129
Height = 20
KeyField = '房間類別'
ListField = '房間類別'
ListSource = DataSource7
TabOrder = 4
end
object BitBtn1: TBitBtn
Left = 6
Top = 291
Width = 97
Height = 25
Hint = '開始生成'
Caption = '確定[&O]'
TabOrder = 5
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 = 105
Top = 291
Width = 97
Height = 25
Hint = '退出'
Caption = '退出[&Q]'
TabOrder = 6
OnClick = BitBtn2Click
Glyph.Data = {
DE010000424DDE01000000000000760000002800000024000000120000000100
0400000000006801000000000000000000001000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333333333333FFFFF333333000033333388888833333333333F888888FFF333
000033338811111188333333338833FFF388FF33000033381119999111833333
38F338888F338FF30000339119933331111833338F388333383338F300003391
13333381111833338F8F3333833F38F3000039118333381119118338F38F3338
33F8F38F000039183333811193918338F8F333833F838F8F0000391833381119
33918338F8F33833F8338F8F000039183381119333918338F8F3833F83338F8F
000039183811193333918338F8F833F83333838F000039118111933339118338
F3833F83333833830000339111193333391833338F33F8333FF838F300003391
11833338111833338F338FFFF883F83300003339111888811183333338FF3888
83FF83330000333399111111993333333388FFFFFF8833330000333333999999
3333333333338888883333330000333333333333333333333333333333333333
0000}
NumGlyphs = 2
end
object Edit3: TEdit
Left = 72
Top = 20
Width = 35
Height = 20
TabOrder = 7
Text = '1'
end
object UpDown3: TUpDown
Left = 107
Top = 20
Width = 17
Height = 20
Associate = Edit3
Min = 1
Max = 999
Position = 1
TabOrder = 8
Wrap = False
end
object Edit4: TEdit
Left = 144
Top = 20
Width = 42
Height = 20
TabOrder = 9
Text = '7'
end
object UpDown4: TUpDown
Left = 186
Top = 20
Width = 17
Height = 20
Associate = Edit4
Min = 1
Max = 999
Position = 7
TabOrder = 10
Wrap = False
end
object Edit5: TEdit
Left = 72
Top = 46
Width = 113
Height = 20
TabOrder = 11
Text = '7'
end
object UpDown5: TUpDown
Left = 185
Top = 46
Width = 17
Height = 20
Associate = Edit5
Min = 1
Max = 999
Position = 7
TabOrder = 12
Wrap = False
end
object Edit6: TEdit
Left = 72
Top = 70
Width = 113
Height = 20
TabOrder = 13
Text = '3'
end
object UpDown6: TUpDown
Left = 185
Top = 70
Width = 17
Height = 20
Associate = Edit6
Min = 1
Max = 999
Position = 3
TabOrder = 14
Wrap = False
end
end
object DataSource1: TDataSource
DataSet = Query1
Left = 77
Top = 20
end
object Query1: TQuery
Active = True
DatabaseName = 'WYGL'
SQL.Strings = (
'Select 小區(qū)編號,小區(qū)名 From 小區(qū)信息表')
Left = 117
Top = 20
object Query1BDEDesigner: TStringField
FieldName = '小區(qū)編號'
Origin = 'WYGL.小區(qū)信息表.小區(qū)編號'
FixedChar = True
Size = 10
end
object Query1BDEDesigner2: TStringField
FieldName = '小區(qū)名'
Origin = 'WYGL.小區(qū)信息表.小區(qū)名'
FixedChar = True
Size = 10
end
end
object Table1: TTable
Active = True
DatabaseName = 'WYGL'
IndexFieldNames = '所屬區(qū)域'
MasterFields = '小區(qū)名'
MasterSource = DataSource1
TableName = 'dbo.大樓信息表'
Left = 125
Top = 93
object Table1BDEDesigner: TStringField
FieldName = '大樓編號'
Required = True
FixedChar = True
Size = 10
end
object Table1BDEDesigner2: TStringField
FieldName = '大樓名稱'
FixedChar = True
end
object Table1BDEDesigner3: TStringField
FieldName = '所屬區(qū)域'
FixedChar = True
end
end
object DataSource2: TDataSource
DataSet = Table1
Left = 85
Top = 93
end
object DataSource3: TDataSource
DataSet = Query2
Left = 296
Top = 162
end
object Query2: TQuery
Active = True
DatabaseName = 'WYGL'
SQL.Strings = (
'Select * From 朝向')
Left = 328
Top = 162
object Query2BDEDesigner: TStringField
FieldName = '房屋朝向'
Origin = 'WYGL.朝向.房屋朝向'
FixedChar = True
end
end
object DataSource4: TDataSource
DataSet = Query3
Left = 296
Top = 195
end
object Query3: TQuery
Active = True
DatabaseName = 'WYGL'
SQL.Strings = (
'Select * From 權屬類型')
Left = 328
Top = 195
object Query3BDEDesigner: TStringField
FieldName = '權屬類型'
Origin = 'WYGL.權屬類型.權屬類型'
FixedChar = True
end
end
object DataSource5: TDataSource
DataSet = Query4
Left = 296
Top = 223
end
object Query4: TQuery
Active = True
DatabaseName = 'WYGL'
SQL.Strings = (
'Select * From 房間結(jié)構')
Left = 328
Top = 223
object Query4BDEDesigner: TStringField
FieldName = '房間結(jié)構'
Origin = 'WYGL.房間結(jié)構.房間結(jié)構'
FixedChar = True
end
end
object DataSource6: TDataSource
DataSet = Query5
Left = 296
Top = 253
end
object Query5: TQuery
Active = True
DatabaseName = 'WYGL'
SQL.Strings = (
'Select * From 配備信息')
Left = 328
Top = 253
object Query5BDEDesigner: TStringField
FieldName = '配備信息'
Origin = 'WYGL.配備信息.配備信息'
FixedChar = True
Size = 30
end
end
object DataSource7: TDataSource
DataSet = Query6
Left = 296
Top = 283
end
object Query6: TQuery
Active = True
DatabaseName = 'WYGL'
SQL.Strings = (
'Select * From 房間類別')
Left = 328
Top = 283
object Query6BDEDesigner: TStringField
FieldName = '房間類別'
Origin = 'WYGL.房間類別.房間類別'
FixedChar = True
end
end
object Query7: TQuery
DatabaseName = 'WYGL'
Left = 224
Top = 212
end
end
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -