📄 bookm.dfm
字号:
Font.Charset = ANSI_CHARSET
Font.Color = clSilver
Font.Height = -13
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
end
object Label9: TLabel
Left = 45
Top = 154
Width = 48
Height = 16
Caption = #20986#29256#31038
Font.Charset = ANSI_CHARSET
Font.Color = clSilver
Font.Height = -13
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
end
object Label10: TLabel
Left = 45
Top = 196
Width = 36
Height = 16
Caption = #20215' '#26684
end
object Edit6: TEdit
Left = 96
Top = 24
Width = 121
Height = 24
TabOrder = 0
end
object Edit7: TEdit
Left = 96
Top = 68
Width = 121
Height = 24
TabOrder = 1
end
object Edit8: TEdit
Left = 96
Top = 112
Width = 121
Height = 24
TabOrder = 2
end
object Edit9: TEdit
Left = 96
Top = 148
Width = 121
Height = 24
TabOrder = 3
end
object Edit10: TEdit
Left = 96
Top = 192
Width = 121
Height = 24
TabOrder = 4
end
object Button4: TButton
Left = 24
Top = 248
Width = 70
Height = 23
Caption = #21024#38500
Font.Charset = ANSI_CHARSET
Font.Color = clSilver
Font.Height = -11
Font.Name = 'Microsoft Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 5
OnClick = Button4Click
end
object Button5: TButton
Left = 108
Top = 248
Width = 70
Height = 23
Caption = #21462#28040
Font.Charset = ANSI_CHARSET
Font.Color = clSilver
Font.Height = -11
Font.Name = 'Microsoft Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 6
OnClick = Button5Click
end
object Button6: TButton
Left = 192
Top = 248
Width = 70
Height = 23
Caption = #36820#22238
Font.Charset = ANSI_CHARSET
Font.Color = clSilver
Font.Height = -11
Font.Name = 'Microsoft Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 7
OnClick = Button6Click
end
end
end
object TabSheet3: TTabSheet
Caption = #20462#25913#20449#24687
ImageIndex = 2
object GroupBox4: TGroupBox
Left = 0
Top = 0
Width = 313
Height = 435
Align = alLeft
TabOrder = 0
object DBGrid3: TDBGrid
Left = 2
Top = 15
Width = 309
Height = 418
Align = alClient
DataSource = DataSource1
ReadOnly = True
TabOrder = 0
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
OnCellClick = DBGrid3CellClick
Columns = <
item
Expanded = False
FieldName = 'Booknum'
Visible = True
end
item
Expanded = False
FieldName = 'Bookname'
Width = 102
Visible = True
end
item
Expanded = False
FieldName = 'Author'
Visible = True
end
item
Expanded = False
FieldName = 'Press'
Visible = True
end
item
Expanded = False
FieldName = 'Price'
Visible = True
end>
end
end
object GroupBox5: TGroupBox
Left = 312
Top = 0
Width = 272
Height = 435
Align = alRight
Color = clActiveCaption
ParentColor = False
TabOrder = 1
object Label11: TLabel
Left = 50
Top = 40
Width = 36
Height = 16
Caption = #20070' '#21495
Font.Charset = ANSI_CHARSET
Font.Color = clSilver
Font.Height = -13
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
end
object Label12: TLabel
Left = 50
Top = 84
Width = 36
Height = 16
Caption = #20070' '#21517
Font.Charset = ANSI_CHARSET
Font.Color = clSilver
Font.Height = -13
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
end
object Label13: TLabel
Left = 50
Top = 128
Width = 36
Height = 16
Caption = #20316' '#32773
Font.Charset = ANSI_CHARSET
Font.Color = clSilver
Font.Height = -13
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
end
object Label14: TLabel
Left = 50
Top = 172
Width = 48
Height = 16
Caption = #20986#29256#31038
Font.Charset = ANSI_CHARSET
Font.Color = clSilver
Font.Height = -13
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
end
object Label15: TLabel
Left = 50
Top = 216
Width = 36
Height = 16
Caption = #20215' '#26684
Font.Charset = ANSI_CHARSET
Font.Color = clSilver
Font.Height = -13
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
end
object Edit11: TEdit
Left = 98
Top = 40
Width = 121
Height = 21
TabOrder = 0
end
object Edit12: TEdit
Left = 98
Top = 82
Width = 121
Height = 21
TabOrder = 1
end
object Edit13: TEdit
Left = 98
Top = 124
Width = 121
Height = 21
TabOrder = 2
end
object Edit14: TEdit
Left = 98
Top = 166
Width = 121
Height = 21
TabOrder = 3
end
object Edit15: TEdit
Left = 98
Top = 208
Width = 121
Height = 21
TabOrder = 4
end
object Button7: TButton
Left = 16
Top = 272
Width = 70
Height = 23
Caption = #20462#25913
TabOrder = 5
OnClick = Button7Click
end
object Button8: TButton
Left = 104
Top = 272
Width = 70
Height = 23
Caption = #21462#28040
TabOrder = 6
OnClick = Button8Click
end
object Button9: TButton
Left = 184
Top = 272
Width = 70
Height = 23
Caption = #36820#22238
TabOrder = 7
OnClick = Button9Click
end
end
end
end
object ADOQuery1: TADOQuery
Active = True
ConnectionString =
'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=..\Data\BookManege.' +
'mdb;Persist Security Info=False'
CursorType = ctStatic
Parameters = <>
SQL.Strings = (
'select * from book')
Left = 260
Top = 310
end
object DataSource1: TDataSource
DataSet = ADOQuery1
Left = 332
Top = 358
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -