mdi_start.frm
来自「Library Management System 1」· FRM 代码 · 共 486 行 · 第 1/2 页
FRM
486 行
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCT2.OCX"
Begin VB.MDIForm mdi_start
BackColor = &H8000000C&
Caption = "Library managment system."
ClientHeight = 10710
ClientLeft = 60
ClientTop = 345
ClientWidth = 15240
Icon = "mdi_start.frx":0000
LinkTopic = "MDIForm1"
LockControls = -1 'True
Picture = "mdi_start.frx":0ECA
Begin MSComctlLib.Toolbar Toolbar1
Align = 1 'Align Top
Height = 630
Left = 0
TabIndex = 9
Top = 0
Width = 15240
_ExtentX = 26882
_ExtentY = 1111
ButtonWidth = 609
ButtonHeight = 953
Appearance = 1
_Version = 393216
Begin MSComCtl2.DTPicker DTPicker1
Height = 375
Left = 9600
TabIndex = 7
ToolTipText = "Calender"
Top = 120
Width = 1455
_ExtentX = 2566
_ExtentY = 661
_Version = 393216
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Format = 19267585
CurrentDate = 38167
End
Begin VB.CommandButton cmd_search
Caption = "Search"
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 5520
TabIndex = 4
ToolTipText = "Click for search"
Top = 120
Width = 1215
End
Begin VB.CommandButton cmd_return
Caption = "Return"
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 4200
TabIndex = 3
ToolTipText = "Click for return information"
Top = 120
Width = 1215
End
Begin VB.CommandButton cmd_issue
Caption = "Issue"
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 2880
TabIndex = 2
ToolTipText = "Click for issue informations"
Top = 120
Width = 1215
End
Begin VB.CommandButton cmd_exit
Caption = "Exit"
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 8160
TabIndex = 6
ToolTipText = "End session"
Top = 120
Width = 1215
End
Begin VB.CommandButton cmd_logoff
Caption = "Logoff"
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 6840
TabIndex = 5
ToolTipText = "Switch user"
Top = 120
Width = 1215
End
Begin VB.CommandButton cmd_members
Caption = "Members"
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 1560
TabIndex = 1
ToolTipText = "Click for members details"
Top = 120
Width = 1215
End
Begin VB.CommandButton cmd_books
Caption = "Books"
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 240
TabIndex = 0
ToolTipText = "Click for Books detail"
Top = 120
Width = 1215
End
End
Begin MSComctlLib.StatusBar sbStatusBar
Align = 2 'Align Bottom
Height = 270
Left = 0
TabIndex = 8
Top = 10440
Width = 15240
_ExtentX = 26882
_ExtentY = 476
_Version = 393216
BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628}
NumPanels = 4
BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628}
AutoSize = 1
Object.Width = 16298
Text = "Library managment system "
TextSave = "Library managment system "
Object.ToolTipText = "Graphics by Bhavesh modi, Contact : priyank_modi@yahoo.co.in"
EndProperty
BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Style = 6
AutoSize = 2
TextSave = "10/8/2004"
EndProperty
BeginProperty Panel3 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Style = 5
AutoSize = 2
TextSave = "7:03 PM"
EndProperty
BeginProperty Panel4 {8E3867AB-8586-11D1-B16A-00C0F0283628}
AutoSize = 2
Bevel = 2
Object.Width = 4921
Text = "Contact : priyank_modi@yahoo.co.in "
TextSave = "Contact : priyank_modi@yahoo.co.in "
Object.ToolTipText = "Created by : Priyank modi"
EndProperty
EndProperty
MousePointer = 99
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
MouseIcon = "mdi_start.frx":24863
End
Begin VB.Menu mnu_database
Caption = "&Database"
Begin VB.Menu sm_books
Caption = "&Books"
Shortcut = ^B
End
Begin VB.Menu sm_members
Caption = "&Members"
Shortcut = ^M
End
Begin VB.Menu firstbarfirst
Caption = "-"
End
Begin VB.Menu sm_logoff
Caption = "&Logoff"
Shortcut = ^L
End
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?