?? bookscanunit.dfm
字號:
object BookScan: TBookScan
Left = 334
Top = 163
AutoScroll = False
Caption = '圖書信息檢索'
ClientHeight = 265
ClientWidth = 346
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
FormStyle = fsMDIChild
Menu = MenuBookScan
OldCreateOrder = False
Position = poDefault
Visible = True
WindowState = wsMaximized
OnClose = FormClose
OnResize = FormResize
PixelsPerInch = 96
TextHeight = 13
object Label1: TLabel
Left = 2
Top = 0
Width = 89
Height = 13
AutoSize = False
Caption = '輸入檢索內容'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '宋體'
Font.Style = []
ParentFont = False
end
object DBGrid1: TDBGrid
Left = 0
Top = 40
Width = 337
Height = 201
DataSource = DataSource1
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '宋體'
Font.Style = []
ParentFont = False
TabOrder = 0
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
end
object Edit1: TEdit
Left = 3
Top = 16
Width = 177
Height = 20
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '宋體'
Font.Style = []
ParentFont = False
TabOrder = 1
OnKeyDown = Edit1KeyDown
end
object Button1: TButton
Left = 191
Top = 13
Width = 57
Height = 25
Caption = '確定'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '宋體'
Font.Style = []
ParentFont = False
TabOrder = 2
OnClick = Button1Click
end
object StatusBar2: TStatusBar
Left = 0
Top = 246
Width = 346
Height = 19
Panels = <
item
Width = 50
end>
SimplePanel = False
end
object ADOQuery1: TADOQuery
ConnectionString =
'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=.\sysdata.mdb;Persi' +
'st Security Info=False'
CursorType = ctStatic
LockType = ltReadOnly
Parameters = <>
SQL.Strings = (
'SELECT 借書號,書號,名稱,出版單位,編著者,出版日期,定價 FROM books')
Left = 65528
Top = 40
end
object DataSource1: TDataSource
DataSet = ADOQuery1
Left = 24
Top = 40
end
object MenuBookScan: TMainMenu
Left = 304
object mnuBookExit: TMenuItem
Caption = '退出(&X)'
OnClick = mnuBookExitClick
end
object mnuOutExcel: TMenuItem
Caption = '輸出至(&Excel)'
OnClick = mnuOutExcelClick
end
end
object SaveDialog1: TSaveDialog
Filter = 'Excel文件(*.xls)|*.xls'
Left = 264
end
end
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -