📄 floor.dfm
字号:
Value = 3.000000000000000000
Visible = True
OnKeyPress = Edit4KeyPress
end
object DBNumberEditEh5: TDBNumberEditEh
Left = 807
Top = 67
Width = 33
Height = 24
EditButtons = <>
TabOrder = 18
Value = 3.000000000000000000
Visible = True
OnKeyPress = Edit4KeyPress
end
object DBNumberEditEh6: TDBNumberEditEh
Left = 685
Top = 36
Width = 34
Height = 24
EditButtons = <>
TabOrder = 22
Value = 3.000000000000000000
Visible = True
OnKeyPress = Edit4KeyPress
end
object DBNumberEditEh7: TDBNumberEditEh
Left = 573
Top = 36
Width = 45
Height = 24
EditButtons = <>
TabOrder = 21
Value = 0.150000000000000000
Visible = True
OnKeyPress = Edit4KeyPress
end
object DBNumberEditEh8: TDBNumberEditEh
Left = 947
Top = 66
Width = 45
Height = 24
EditButtons = <>
TabOrder = 19
Value = 0.150000000000000000
Visible = True
OnKeyPress = Edit4KeyPress
end
object DBNumberEditEh9: TDBNumberEditEh
Left = 830
Top = 36
Width = 45
Height = 24
EditButtons = <>
TabOrder = 23
Value = 0.150000000000000000
Visible = True
OnKeyPress = Edit4KeyPress
end
object DBNumberEditEh10: TDBNumberEditEh
Left = 674
Top = 122
Width = 46
Height = 24
EditButtons = <>
TabOrder = 12
Value = 0.000000000000000000
Visible = True
OnKeyPress = Edit4KeyPress
end
object DBNumberEditEh11: TDBNumberEditEh
Left = 772
Top = 122
Width = 46
Height = 24
EditButtons = <>
TabOrder = 13
Value = 0.000000000000000000
Visible = True
OnKeyPress = Edit4KeyPress
end
object DBNumberEditEh12: TDBNumberEditEh
Left = 772
Top = 94
Width = 45
Height = 24
EditButtons = <>
TabOrder = 7
Value = 0.000000000000000000
Visible = True
OnKeyPress = Edit4KeyPress
end
object DBNumberEditEh13: TDBNumberEditEh
Left = 528
Top = 120
Width = 72
Height = 24
Enabled = False
EditButtons = <>
TabOrder = 11
Value = 0.000000000000000000
Visible = True
OnKeyPress = Edit4KeyPress
end
object DBNumberEditEh14: TDBNumberEditEh
Left = 527
Top = 66
Width = 36
Height = 24
EditButtons = <>
TabOrder = 16
Value = 3.000000000000000000
Visible = True
OnKeyPress = Edit4KeyPress
end
object DBNumberEditEh15: TDBNumberEditEh
Left = 685
Top = 66
Width = 46
Height = 24
EditButtons = <>
TabOrder = 17
Value = 0.150000000000000000
Visible = True
OnKeyPress = Edit4KeyPress
end
object Edit4: TEdit
Left = 71
Top = 66
Width = 69
Height = 24
Enabled = False
TabOrder = 54
OnKeyPress = Edit4KeyPress
end
object DBNumberEditEh16: TDBNumberEditEh
Left = 70
Top = 93
Width = 66
Height = 24
EditButtons = <>
TabOrder = 3
Value = 0.000000000000000000
Visible = True
OnKeyPress = Edit4KeyPress
end
object DBNumberEditEh17: TDBNumberEditEh
Left = 70
Top = 122
Width = 65
Height = 24
EditButtons = <>
TabOrder = 8
Value = 0.000000000000000000
Visible = True
OnKeyPress = Edit4KeyPress
end
object DBNumberEditEh18: TDBNumberEditEh
Left = 502
Top = 93
Width = 55
Height = 24
EditButtons = <>
TabOrder = 5
Value = 0.000000000000000000
Visible = True
OnKeyPress = Edit4KeyPress
end
object DBNumberEditEh19: TDBNumberEditEh
Left = 375
Top = 120
Width = 54
Height = 24
EditButtons = <>
TabOrder = 10
Value = 0.000000000000000000
Visible = True
OnKeyPress = Edit4KeyPress
end
object BitBtn24: TBitBtn
Left = 594
Top = 5
Width = 67
Height = 25
Caption = #20445' '#23384
Enabled = False
TabOrder = 29
OnClick = BitBtn24Click
end
object DBDateTimeEditEh1: TDBDateTimeEditEh
Left = 268
Top = 4
Width = 100
Height = 24
EditButtons = <>
Kind = dtkDateEh
TabOrder = 24
Value = 38200d
Visible = True
end
object DBDateTimeEditEh2: TDBDateTimeEditEh
Left = 267
Top = 33
Width = 101
Height = 24
EditButtons = <>
Kind = dtkDateEh
TabOrder = 25
Value = 38229d
Visible = True
end
object Edit5: TEdit
Left = 905
Top = 93
Width = 70
Height = 24
TabOrder = 14
OnKeyPress = Edit4KeyPress
end
object Edit6: TEdit
Left = 890
Top = 121
Width = 56
Height = 24
TabOrder = 15
OnKeyPress = Edit4KeyPress
end
object ListBox1: TListBox
Left = 784
Top = 176
Width = 81
Height = 144
ItemHeight = 16
Items.Strings = (
#20889#23383#27004#31199#37329
#23487#33293#31199#37329
#31649#29702#36153
#25276#37329
#20854#23427#36153#29992
#30005#26799#36153
#24191#21578#20301#31199#37329)
TabOrder = 37
end
object BitBtn25: TBitBtn
Left = 867
Top = 201
Width = 36
Height = 25
Caption = '>>'
Font.Charset = DEFAULT_CHARSET
Font.Color = clTeal
Font.Height = -19
Font.Name = 'PMingLiU'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 38
OnClick = BitBtn25Click
end
object BitBtn26: TBitBtn
Left = 867
Top = 233
Width = 36
Height = 25
Caption = '<<'
Font.Charset = DEFAULT_CHARSET
Font.Color = clTeal
Font.Height = -19
Font.Name = 'PMingLiU'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 39
OnClick = BitBtn26Click
end
object ListBox2: TListBox
Left = 905
Top = 176
Width = 81
Height = 122
ItemHeight = 16
TabOrder = 40
end
object ListBox3: TListBox
Left = 905
Top = 302
Width = 81
Height = 122
ItemHeight = 16
TabOrder = 41
end
object ListBox4: TListBox
Left = 905
Top = 430
Width = 81
Height = 122
ItemHeight = 16
TabOrder = 42
end
object BitBtn27: TBitBtn
Left = 868
Top = 334
Width = 33
Height = 25
Caption = '>>'
Font.Charset = DEFAULT_CHARSET
Font.Color = clTeal
Font.Height = 14
Font.Name = 'PMingLiU'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 43
OnClick = BitBtn27Click
end
object BitBtn28: TBitBtn
Left = 868
Top = 362
Width = 33
Height = 25
Caption = '<<'
Font.Charset = DEFAULT_CHARSET
Font.Color = clTeal
Font.Height = 14
Font.Name = 'PMingLiU'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 44
OnClick = BitBtn28Click
end
object BitBtn29: TBitBtn
Left = 865
Top = 464
Width = 37
Height = 25
Caption = '>>'
Font.Charset = DEFAULT_CHARSET
Font.Color = clTeal
Font.Height = 14
Font.Name = 'PMingLiU'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 45
OnClick = BitBtn29Click
end
object BitBtn30: TBitBtn
Left = 865
Top = 493
Width = 38
Height = 25
Caption = '<<'
Font.Charset = DEFAULT_CHARSET
Font.Color = clTeal
Font.Height = 14
Font.Name = 'PMingLiU'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 46
OnClick = BitBtn30Click
end
object Edit7: TEdit
Left = 781
Top = 349
Width = 81
Height = 24
TabOrder = 47
end
object Edit8: TEdit
Left = 781
Top = 378
Width = 81
Height = 24
TabOrder = 48
end
object Edit9: TEdit
Left = 780
Top = 406
Width = 81
Height = 24
TabOrder = 49
end
object Edit10: TEdit
Left = 780
Top = 435
Width = 81
Height = 24
TabOrder = 50
end
object Edit11: TEdit
Left = 780
Top = 464
Width = 81
Height = 24
TabOrder = 51
end
object Edit12: TEdit
Left = 780
Top = 493
Width = 81
Height = 24
TabOrder = 52
end
object Edit13: TEdit
Left = 780
Top = 521
Width = 81
Height = 24
TabOrder = 53
end
object Edit2: TEdit
Left = 208
Top = 66
Width = 64
Height = 24
TabOrder = 1
OnExit = Edit2Exit
OnKeyPress = Edit2KeyPress
end
object DBNumberEditEh20: TDBNumberEditEh
Left = 207
Top = 91
Width = 62
Height = 24
EditButtons = <>
TabOrder = 55
Value = 0.000000000000000000
Visible = True
end
object DBComboBoxEh5: TDBComboBoxEh
Left = 935
Top = 35
Width = 60
Height = 24
EditButtons = <>
Items.Strings = (
'RMB'
'HK'
'NT')
TabOrder = 56
Text = 'RMB'
Visible = True
end
end
end
object MainMenu1: TMainMenu
Left = 535
Top = 8
object N1: TMenuItem
Caption = #31995#32479#21151#33021
object N2: TMenuItem
Caption = #23458#25143#36164#26009
end
object N3: TMenuItem
Caption = #27700#30005#21021#22987#21270#12289#31199#37329#36882#22686
OnClick = N3Click
end
object N4: TMenuItem
Caption = #21512#21516#31649#29702
end
object N9: TMenuItem
Caption = #22823#21414#36164#26009#35774#32622
OnClick = N9Click
end
end
object N5: TMenuItem
Caption = #31995#32479#35774#32622
object N6: TMenuItem
Caption = #25253#34920#20013#24515
end
object N7: TMenuItem
Caption = #29992#25143#26435#38480
end
object N8: TMenuItem
Caption = #27880#38144#31995#32479
end
end
end
object PrintDBGridEh1: TPrintDBGridEh
Options = []
Page.BottomMargin = 2.000000000000000000
Page.LeftMargin = 2.000000000000000000
Page.RightMargin = 2.000000000000000000
Page.TopMargin = 2.000000000000000000
PageFooter.Font.Charset = DEFAULT_CHARSET
PageFooter.Font.Color = clWindowText
PageFooter.Font.Height = -11
PageFooter.Font.Name = 'MS Sans Serif'
PageFooter.Font.Style = []
PageHeader.Font.Charset = DEFAULT_CHARSET
PageHeader.Font.Color = clWindowText
PageHeader.Font.Height = -11
PageHeader.Font.Name = 'MS Sans Serif'
PageHeader.Font.Style = []
PrintFontName = 'MingLiU'
Units = MM
Left = 380
end
object frReport1: TfrReport
Dataset = frDBDataSet1
InitialZoom = pzDefault
PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbHelp, pbExit]
Left = 291
Top = 11
ReportForm = {18000000}
end
object frDBDataSet1: TfrDBDataSet
DataSet = DataModule1.sdq
Left = 331
Top = 11
end
object frReport2: TfrReport
Dataset = frDBDataSet2
InitialZoom = pzDefault
PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbHelp, pbExit]
Left = 492
Top = 3
ReportForm = {18000000}
end
object frDBDataSet2: TfrDBDataSet
DataSet = DataModule1.htQ
Left = 564
Top = 3
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -