📄 main.dfm
字号:
object frmMain: TfrmMain
Left = 277
Top = 150
Width = 708
Height = 355
Caption = #23398#29983#31649#29702#31995#32479
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
FormStyle = fsMDIForm
Menu = MainMenu1
OldCreateOrder = False
WindowState = wsMaximized
OnClose = formclose
OnCreate = FormCreate
OnShow = formshow
PixelsPerInch = 96
TextHeight = 13
object Label1: TLabel
Left = 160
Top = 96
Width = 384
Height = 64
Caption = #23398#29983#31649#29702#31995#32479
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -64
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object StatusBar1: TStatusBar
Left = 0
Top = 282
Width = 700
Height = 19
Panels = <
item
Text = #25552#31034#65306
Width = 150
end
item
Text = #29992#25143#21495#65306
Width = 150
end
item
Text = #29992#25143#21517#65306
Width = 150
end
item
Text = #26085#26399#65306
Width = 150
end
item
Text = #26102#38388#65306
Width = 50
end>
end
object MainMenu1: TMainMenu
Left = 88
Top = 72
object mntsystem: TMenuItem
Caption = #31995#32479
object mntquit: TMenuItem
Caption = #36864#20986
OnClick = mntquitClick
end
end
object mntstudent: TMenuItem
Caption = #23398#29983#31649#29702
object mntstudentmanage: TMenuItem
Caption = #23398#29983#31649#29702
OnClick = mntstudentmanageClick
end
object SP3: TMenuItem
Caption = '-'
end
object mntstudentquery: TMenuItem
Caption = #23398#29983#26597#35810
OnClick = mntstudentqueryClick
end
end
object mntadmin: TMenuItem
Caption = #23398#31821#31649#29702
object mntchange: TMenuItem
Caption = #23398#31821#21464#26356
OnClick = mntchangeClick
end
object mntreward: TMenuItem
Caption = #22870#21169#24773#20917
OnClick = mntrewardClick
end
object mntpunish: TMenuItem
Caption = #22788#32602#24773#20917
OnClick = mntpunishClick
end
end
object mntabout: TMenuItem
Caption = #20851#20110'...'
object mntaboutsys: TMenuItem
Caption = #20851#20110#26412#31995#32479
OnClick = mntaboutsysClick
end
end
end
object Timer1: TTimer
OnTimer = Timer1Timer
Left = 144
Top = 72
end
object dbstudent: TDatabase
AliasName = 'student'
DatabaseName = 'stud'
LoginPrompt = False
Params.Strings = (
'DATABASE NAME='
'USER NAME='
'ODBC DSN=student'
'OPEN MODE=READ/WRITE'
'SCHEMA CACHE SIZE=8'
'SQLQRYMODE='
'LANGDRIVER='
'SQLPASSTHRU MODE=SHARED AUTOCOMMIT'
'SCHEMA CACHE TIME=-1'
'MAX ROWS=-1'
'BATCH COUNT=200'
'ENABLE SCHEMA CACHE=FALSE'
'SCHEMA CACHE DIR='
'ENABLE BCD=FALSE'
'ROWSET SIZE=20'
'BLOBS TO CACHE=64'
'PASSWORD=')
SessionName = 'Default'
Left = 224
Top = 72
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -