?? romminput.dfm
字號:
object RoomInputForm: TRoomInputForm
Left = 205
Top = 32
AutoScroll = False
Caption = #23458#25151#36164#26009#36755#20837
ClientHeight = 463
ClientWidth = 584
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
FormStyle = fsMDIChild
OldCreateOrder = False
Position = poDefault
Visible = True
WindowState = wsMaximized
PixelsPerInch = 96
TextHeight = 13
object Label10: TLabel
Left = 184
Top = 120
Width = 48
Height = 13
Caption = #23454#25910#37329#39069
end
object GroupBox1: TGroupBox
Left = 7
Top = 8
Width = 570
Height = 217
Caption = #22635#20889#23458#25151#22522#26412#20449#24687
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 0
object Label1: TLabel
Left = 16
Top = 24
Width = 56
Height = 14
Caption = #26174#31034#26085#26399
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object Label11: TLabel
Left = 360
Top = 21
Width = 42
Height = 14
Caption = #25151#21488#21495
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object Label9: TLabel
Left = 32
Top = 60
Width = 28
Height = 14
Caption = #20154#25968
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object Label3: TLabel
Left = 200
Top = 64
Width = 28
Height = 14
Caption = #37202#33756
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object Label4: TLabel
Left = 360
Top = 63
Width = 42
Height = 14
Caption = #25151#38388#36153
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object Label12: TLabel
Left = 200
Top = 21
Width = 28
Height = 14
Caption = #21333#21495
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object Label2: TLabel
Left = 16
Top = 96
Width = 56
Height = 14
Caption = #24212#25910#37329#39069
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object Label5: TLabel
Left = 184
Top = 98
Width = 56
Height = 14
Caption = #23454#25910#37329#39069
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object Label6: TLabel
Left = 184
Top = 162
Width = 56
Height = 14
Caption = #31246#25910#37329#39069
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object Label7: TLabel
Left = 16
Top = 132
Width = 56
Height = 14
Caption = #25552#25104#37329#39069
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object Label8: TLabel
Left = 32
Top = 164
Width = 28
Height = 14
Caption = #27611#21033
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object Label13: TLabel
Left = 352
Top = 132
Width = 56
Height = 14
Caption = #20184#27454#26041#24335
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object Label14: TLabel
Left = 202
Top = 130
Width = 28
Height = 14
Caption = #25104#26412
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object Label15: TLabel
Left = 360
Top = 98
Width = 42
Height = 14
Caption = #26381#21153#36153
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object Dinner_price: TEdit
Left = 248
Top = 57
Width = 89
Height = 21
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 0
end
object People: TEdit
Left = 80
Top = 56
Width = 89
Height = 21
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 1
end
object NO: TEdit
Left = 248
Top = 20
Width = 89
Height = 21
TabOrder = 2
end
object btnOk: TButton
Left = 360
Top = 180
Width = 65
Height = 21
Caption = #24405' '#20837
TabOrder = 3
OnClick = btnOkClick
end
object btnClear: TButton
Left = 484
Top = 180
Width = 65
Height = 21
Caption = #28165' '#23631
TabOrder = 4
OnClick = btnClearClick
end
object birthday: TDateTimePicker
Left = 80
Top = 20
Width = 89
Height = 21
CalAlignment = dtaLeft
Date = 37641.840643912
Time = 37641.840643912
DateFormat = dfShort
DateMode = dmComboBox
Kind = dtkDate
ParseInput = False
TabOrder = 5
end
object Budget: TEdit
Left = 80
Top = 92
Width = 89
Height = 21
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 6
end
object Income: TEdit
Left = 248
Top = 96
Width = 89
Height = 21
TabOrder = 7
end
object Discount: TEdit
Left = 80
Top = 128
Width = 89
Height = 21
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 8
end
end
object SaleDBGrid: TDBGrid
Left = 8
Top = 232
Width = 569
Height = 177
DataSource = DataSource1
TabOrder = 1
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
end
object RadioGroup1: TRadioGroup
Left = 8
Top = 416
Width = 569
Height = 41
Caption = #25490#24207#26041#24335
TabOrder = 2
end
object BudgetRadio: TRadioButton
Left = 24
Top = 432
Width = 81
Height = 17
Caption = #24212#25910#37329#39069
TabOrder = 3
OnClick = BudgetRadioClick
end
object IncomeRadio: TRadioButton
Left = 116
Top = 432
Width = 73
Height = 17
Caption = #23454#25910#37329#39069
TabOrder = 4
OnClick = IncomeRadioClick
end
object TaxRadio: TRadioButton
Left = 209
Top = 432
Width = 73
Height = 17
Caption = #31246#25910#37329#39069
TabOrder = 5
OnClick = TaxRadioClick
end
object DiscountRadio: TRadioButton
Left = 302
Top = 432
Width = 73
Height = 17
Caption = #25552#25104#37329#39069
TabOrder = 6
OnClick = DiscountRadioClick
end
object CostRadio: TRadioButton
Left = 395
Top = 432
Width = 73
Height = 17
Caption = #25104#26412
TabOrder = 7
OnClick = CostRadioClick
end
object ProfitRadio: TRadioButton
Left = 488
Top = 432
Width = 73
Height = 17
Caption = #27611#21033
TabOrder = 8
OnClick = ProfitRadioClick
end
object Room_NO: TEdit
Left = 425
Top = 28
Width = 89
Height = 21
TabOrder = 9
end
object Romm_price: TEdit
Left = 425
Top = 65
Width = 89
Height = 21
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 10
end
object Tax: TEdit
Left = 257
Top = 168
Width = 89
Height = 21
Color = clScrollBar
Enabled = False
ReadOnly = True
TabOrder = 11
end
object Profit: TEdit
Left = 88
Top = 168
Width = 89
Height = 21
Color = clScrollBar
Enabled = False
ReadOnly = True
TabOrder = 12
end
object Pay_type: TEdit
Left = 423
Top = 136
Width = 89
Height = 21
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 13
end
object Cost: TEdit
Left = 256
Top = 137
Width = 89
Height = 21
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 14
end
object Service_price: TEdit
Left = 425
Top = 103
Width = 89
Height = 21
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 15
end
object DataSource1: TDataSource
DataSet = RoomTable
Left = 528
Top = 24
end
object RoomTable: TTable
Active = True
DatabaseName = 'Sales'
TableName = 'room.db'
Left = 528
Top = 64
end
object RoomQuery: TQuery
Active = True
DatabaseName = 'Sales'
SQL.Strings = (
'select * from room')
Left = 528
Top = 104
end
end
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -