📄 unit27.~dfm
字号:
end
end
object BitBtn6: TBitBtn
Left = 296
Top = 65
Width = 113
Height = 30
Caption = #26597#35810
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -19
Font.Name = #21326#25991#34892#26999
Font.Style = []
ParentFont = False
TabOrder = 1
OnClick = BitBtn6Click
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
333333333333333FF3FF3333333333CC30003333333333773777333333333C33
3000333FF33337F33777339933333C3333333377F33337F3333F339933333C33
33003377333337F33377333333333C333300333F333337F33377339333333C33
3333337FF3333733333F33993333C33333003377FF33733333773339933C3333
330033377FF73F33337733339933C33333333FF377F373F3333F993399333C33
330077F377F337F33377993399333C33330077FF773337F33377399993333C33
33333777733337F333FF333333333C33300033333333373FF7773333333333CC
3000333333333377377733333333333333333333333333333333}
NumGlyphs = 2
end
object GroupBox7: TGroupBox
Left = 8
Top = 56
Width = 265
Height = 46
Caption = #26597#35810#26465#20214
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -19
Font.Name = #21326#25991#34892#26999
Font.Style = []
ParentFont = False
TabOrder = 2
object Label18: TLabel
Left = 6
Top = 20
Width = 40
Height = 19
Caption = 'Label1'
Visible = False
end
object Edit17: TEdit
Left = 136
Top = 13
Width = 121
Height = 29
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -19
Font.Name = #21326#25991#20013#23435
Font.Style = []
ParentFont = False
TabOrder = 0
Visible = False
end
end
object DBGrid2: TDBGrid
Left = 8
Top = 144
Width = 665
Height = 97
DataSource = DataSource2
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -16
Font.Name = #21326#25991#20013#23435
Font.Style = []
ParentFont = False
TabOrder = 3
TitleFont.Charset = GB2312_CHARSET
TitleFont.Color = clBlue
TitleFont.Height = -19
TitleFont.Name = #21326#25991#34892#26999
TitleFont.Style = []
Columns = <
item
Expanded = False
FieldName = #23458#25143#21517#31216
Width = 108
Visible = True
end
item
Expanded = False
FieldName = #24615#21035
Visible = True
end
item
Expanded = False
FieldName = #31821#36143
Visible = True
end
item
Expanded = False
FieldName = #20986#29983#24180#26376
Visible = True
end
item
Expanded = False
FieldName = #35777#20214#21517#31216
Visible = True
end
item
Expanded = False
FieldName = #35777#20214#21495#30721
Visible = True
end
item
Expanded = False
FieldName = #28304#22320
Visible = True
end
item
Expanded = False
FieldName = #30446#30340#22320
Width = 166
Visible = True
end
item
Expanded = False
FieldName = #24037#20316#21333#20301
Width = 117
Visible = True
end
item
Expanded = False
FieldName = #36890#20449#22320#22336
Width = 161
Visible = True
end
item
Expanded = False
FieldName = #32852#31995#26041#24335
Width = 120
Visible = True
end>
end
object DBGrid3: TDBGrid
Left = 8
Top = 280
Width = 681
Height = 97
DataSource = DataSource2
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -16
Font.Name = #21326#25991#20013#23435
Font.Style = []
ParentFont = False
TabOrder = 4
TitleFont.Charset = GB2312_CHARSET
TitleFont.Color = clBlue
TitleFont.Height = -19
TitleFont.Name = #21326#25991#34892#26999
TitleFont.Style = []
Columns = <
item
Expanded = False
FieldName = #35746#25151#24207#21495
Visible = True
end
item
Expanded = False
FieldName = #25151#38388#32534#21495
Width = 84
Visible = True
end
item
Expanded = False
FieldName = #20303#25151#21333#20215
Width = 78
Visible = True
end
item
Expanded = False
FieldName = #39044#35746#26631#24535
Visible = True
end
item
Expanded = False
FieldName = #38047#28857#25151
Visible = True
end
item
Expanded = False
FieldName = #30331#35760#26085#26399
Width = 157
Visible = True
end
item
Expanded = False
FieldName = #39044#35745#22825#25968
Visible = True
end
item
Expanded = False
FieldName = #25276#37329#25968
Width = 68
Visible = True
end
item
Expanded = False
FieldName = #20854#20182#36153#29992
Width = 79
Visible = True
end
item
Expanded = False
FieldName = #35828#26126
Width = 47
Visible = True
end
item
Expanded = False
FieldName = #25240#25187#29575
Visible = True
end
item
Expanded = False
FieldName = #25805#20316#21592
Width = 60
Visible = True
end
item
Expanded = False
FieldName = #25805#20316#26085#26399
Width = 86
Visible = True
end>
end
object BitBtn10: TBitBtn
Left = 601
Top = 24
Width = 87
Height = 57
Caption = #26597#35810#23458#25151
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -19
Font.Name = #21326#25991#34892#26999
Font.Style = []
ParentFont = False
TabOrder = 5
OnClick = BitBtn10Click
end
object Edit18: TEdit
Left = 456
Top = 56
Width = 129
Height = 30
Hint = #36755#20837#23458#25151#32534#21495#21518#65292#35831#25353#22238#36710#38190#65281#31995#32479#23558#25552#31034#25151#38388#29366#24577#12290
ParentShowHint = False
ShowHint = True
TabOrder = 6
OnKeyDown = Edit18KeyDown
end
object BitBtn7: TBitBtn
Left = 184
Top = 392
Width = 105
Height = 41
Caption = #20445#23384#35843#25972
Enabled = False
TabOrder = 7
OnClick = BitBtn7Click
end
object BitBtn8: TBitBtn
Left = 400
Top = 392
Width = 105
Height = 41
Caption = #21462#28040#35843#25972
Enabled = False
TabOrder = 8
OnClick = BitBtn8Click
end
end
end
object BitBtn5: TBitBtn
Left = 312
Top = 502
Width = 105
Height = 25
Caption = #36864#20986
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -20
Font.Name = #21326#25991#34892#26999
Font.Style = []
ParentFont = False
TabOrder = 1
OnClick = BitBtn5Click
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00330000000000
03333377777777777F333301111111110333337F333333337F33330111111111
0333337F333333337F333301111111110333337F333333337F33330111111111
0333337F333333337F333301111111110333337F333333337F33330111111111
0333337F3333333F7F333301111111B10333337F333333737F33330111111111
0333337F333333337F333301111111110333337F33FFFFF37F3333011EEEEE11
0333337F377777F37F3333011EEEEE110333337F37FFF7F37F3333011EEEEE11
0333337F377777337F333301111111110333337F333333337F33330111111111
0333337FFFFFFFFF7F3333000000000003333377777777777333}
NumGlyphs = 2
end
object ADOConnection1: TADOConnection
Connected = True
ConnectionString =
'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\mindy paradise\p' +
'roject\mindyparadisehotel.mdb;Persist Security Info=False'
LoginPrompt = False
Mode = cmShareDenyNone
Provider = 'Microsoft.Jet.OLEDB.4.0'
end
object ADODataSet1: TADODataSet
Active = True
Connection = ADOConnection1
CursorType = ctStatic
AfterScroll = ADODataSet1AfterScroll
CommandText = 'select * from '#35746#25151#25968#25454#34920
Parameters = <>
Top = 32
end
object DataSource1: TDataSource
DataSet = ADODataSet1
Top = 64
end
object DataSource2: TDataSource
DataSet = ADODataSet2
Top = 112
end
object ADODataSet2: TADODataSet
Active = True
Connection = ADOConnection1
CursorType = ctStatic
AfterScroll = ADODataSet2AfterScroll
CommandText = 'select * from '#35746#25151#25968#25454#34920
Parameters = <>
Top = 160
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -