?? readmgunit.dfm
字號:
object ReaderMg: TReaderMg
Left = 200
Top = 129
BorderIcons = [biSystemMenu, biMinimize]
BorderStyle = bsSingle
Caption = '讀者管理'
ClientHeight = 238
ClientWidth = 374
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
FormStyle = fsMDIChild
Menu = MainMenu1
OldCreateOrder = False
Position = poDefault
Visible = True
OnClose = FormClose
PixelsPerInch = 96
TextHeight = 13
object Label1: TLabel
Left = 80
Top = 40
Width = 60
Height = 12
AutoSize = False
Caption = '借書證號'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '宋體'
Font.Style = []
ParentFont = False
end
object Label2: TLabel
Left = 80
Top = 64
Width = 60
Height = 12
AutoSize = False
Caption = '姓名'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '宋體'
Font.Style = []
ParentFont = False
end
object Label3: TLabel
Left = 80
Top = 88
Width = 60
Height = 12
AutoSize = False
Caption = '單位'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '宋體'
Font.Style = []
ParentFont = False
end
object Label4: TLabel
Left = 80
Top = 112
Width = 60
Height = 12
AutoSize = False
Caption = '發證日期'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '宋體'
Font.Style = []
ParentFont = False
end
object Label5: TLabel
Left = 80
Top = 136
Width = 60
Height = 12
AutoSize = False
Caption = '級別'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '宋體'
Font.Style = []
ParentFont = False
end
object DBEdit1: TDBEdit
Left = 152
Top = 40
Width = 121
Height = 20
DataField = '借書證號'
DataSource = DataSource1
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '宋體'
Font.Style = []
ParentFont = False
TabOrder = 0
end
object DBEdit2: TDBEdit
Left = 152
Top = 64
Width = 121
Height = 20
DataField = '姓名'
DataSource = DataSource1
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '宋體'
Font.Style = []
ParentFont = False
TabOrder = 1
end
object DBEdit3: TDBEdit
Left = 152
Top = 88
Width = 121
Height = 20
DataField = '單位'
DataSource = DataSource1
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '宋體'
Font.Style = []
ParentFont = False
TabOrder = 2
end
object DBEdit4: TDBEdit
Left = 152
Top = 112
Width = 121
Height = 20
DataField = '發證日期'
DataSource = DataSource1
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '宋體'
Font.Style = []
ParentFont = False
TabOrder = 3
end
object DBComboBox1: TDBComboBox
Left = 152
Top = 136
Width = 41
Height = 20
DataField = '級別'
DataSource = DataSource1
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '宋體'
Font.Style = []
ItemHeight = 12
ParentFont = False
TabOrder = 4
end
object DBNavigator1: TDBNavigator
Left = 64
Top = 184
Width = 234
Height = 25
DataSource = DataSource1
VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast, nbInsert, nbDelete, nbEdit, nbPost, nbCancel]
Hints.Strings = (
'第一條記錄'
'上條記錄'
'下條記錄'
'最后一條記錄'
'添加記錄'
'刪除記錄'
'編輯記錄'
'確定'
'取消'
'Refresh data')
ParentShowHint = False
ShowHint = True
TabOrder = 5
OnClick = DBNavigator1Click
end
object StatusBar1: TStatusBar
Left = 0
Top = 219
Width = 374
Height = 19
Panels = <
item
Width = 50
end>
SimplePanel = False
end
object Edit1: TEdit
Left = 16
Top = 8
Width = 121
Height = 21
TabOrder = 7
OnKeyDown = Edit1KeyDown
end
object Button1: TButton
Left = 144
Top = 8
Width = 97
Height = 25
Caption = '按借書證號查找'
TabOrder = 8
OnClick = Button1Click
end
object MainMenu1: TMainMenu
object mnuReaderMgExit: TMenuItem
Caption = '返回(&X)'
OnClick = mnuReaderMgExitClick
end
end
object ADOTable1: TADOTable
Active = True
ConnectionString =
'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=.\sysdata.mdb;Persi' +
'st Security Info=False'
CursorType = ctStatic
TableName = 'cards'
Left = 32
end
object DataSource1: TDataSource
DataSet = ADOTable1
Left = 64
end
object ADOQuery1: TADOQuery
Active = True
ConnectionString =
'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=.\sysdata.mdb;Persi' +
'st Security Info=False'
CursorType = ctStatic
Parameters = <>
SQL.Strings = (
'SELECT 級別 FROM class')
Top = 32
end
end
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -