📄 form1.frm
字号:
VERSION 5.00
Object = "{D959C709-8613-11D1-9840-002078110E7D}#1.0#0"; "as97Popup.ocx"
Object = "{CFA7AFF4-3242-4269-9172-7389D695AE01}#1.0#0"; "StoneXP.ocx"
Object = "{74238AF8-8108-44A9-B3DE-D652F61AB8DC}#2.3#0"; "NetMenu.ocx"
Begin VB.Form form1
BorderStyle = 1 'Fixed Single
Caption = "图书管理系统"
ClientHeight = 8985
ClientLeft = 45
ClientTop = 435
ClientWidth = 11970
Icon = "Form1.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
ScaleHeight = 8985
ScaleWidth = 11970
StartUpPosition = 2 '屏幕中心
Begin StoneXP.XPFrame XPFrame1
Height = 8595
Left = 0
TabIndex = 1
Top = 0
Width = 1815
_ExtentX = 3201
_ExtentY = 15161
Caption = ""
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
BackColor = 12632319
FrameColor = 16777215
LeftSpace = 1
TopSpace = 1
RightSpace = 1
BottomSpace = 0
CaptionTop = 0
RoundSize = 0
Begin as97Popup.asPopup asPopup2
Height = 855
Left = 240
Top = 2040
Width = 1095
_ExtentX = 1931
_ExtentY = 1508
CustomPicture = "Form1.frx":F84A
Caption = "图书信息"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = 12582912
BevelWidth = 0
Layout = 3
MouseOverColor = 12582912
MousePointer = 99
MouseIcon = "Form1.frx":138DC
ScaleWidth = 73
ScaleMode = 0
ScaleHeight = 57
BackStyle = 0
End
Begin as97Popup.asPopup asPopup1
Height = 855
Left = 240
ToolTipText = "查看销售记录"
Top = 840
Width = 1095
_ExtentX = 1931
_ExtentY = 1508
CustomPicture = "Form1.frx":13A3E
Caption = "个人信息"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = 12582912
BevelWidth = 0
Layout = 3
MouseOverColor = 12582912
MousePointer = 99
MouseIcon = "Form1.frx":17921
ScaleWidth = 73
ScaleMode = 0
ScaleHeight = 57
BackStyle = 0
Object.ToolTipText = "查看销售记录"
End
Begin as97Popup.asPopup asPopup3
Height = 855
Left = 240
ToolTipText = "查看销售记录"
Top = 3240
Width = 1095
_ExtentX = 1931
_ExtentY = 1508
CustomPicture = "Form1.frx":17A83
Caption = "管理操作"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = 12582912
BevelWidth = 0
Layout = 3
MouseOverColor = 12582912
MousePointer = 99
MouseIcon = "Form1.frx":1B8EB
ScaleWidth = 73
ScaleMode = 0
ScaleHeight = 57
BackStyle = 0
Object.ToolTipText = "查看销售记录"
End
Begin as97Popup.asPopup asPopup4
Height = 855
Left = 240
ToolTipText = "查看销售记录"
Top = 4440
Width = 1095
_ExtentX = 1931
_ExtentY = 1508
CustomPicture = "Form1.frx":1BA4D
Caption = "系统设置"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = 12582912
BevelWidth = 0
Layout = 3
MouseOverColor = 12582912
MousePointer = 99
MouseIcon = "Form1.frx":1F9E6
ScaleWidth = 73
ScaleMode = 0
ScaleHeight = 57
BackStyle = 0
Object.ToolTipText = "查看销售记录"
End
Begin as97Popup.asPopup asPopup5
Height = 855
Left = 240
ToolTipText = "查看销售记录"
Top = 5520
Width = 1095
_ExtentX = 1931
_ExtentY = 1508
CustomPicture = "Form1.frx":1FB48
Caption = "离开系统"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = 12582912
BevelWidth = 0
Layout = 3
MouseOverColor = 12582912
MousePointer = 99
MouseIcon = "Form1.frx":23974
ScaleWidth = 73
ScaleMode = 0
ScaleHeight = 57
BackStyle = 0
Object.ToolTipText = "查看销售记录"
End
Begin VB.Image Image27
Appearance = 0 'Flat
BorderStyle = 1 'Fixed Single
Height = 330
Left = 1440
MouseIcon = "Form1.frx":23AD6
MousePointer = 99 'Custom
Picture = "Form1.frx":23C28
Top = 3480
Width = 330
End
Begin VB.Line Line1
BorderColor = &H00FFFFFF&
X1 = 1400
X2 = 1400
Y1 = 120
Y2 = 8520
End
End
Begin VB.Timer Timer3
Interval = 100
Left = 6360
Top = 5040
End
Begin VB.Timer Timer2
Left = 6960
Top = 5040
End
Begin VB.Timer Timer1
Left = 7560
Top = 5040
End
Begin yfDNetMenu.DNetMenu DNetMenu1
Left = 4080
Top = 1080
_ExtentX = 847
_ExtentY = 847
BmpCount = 13
Bmp:1 = "Form1.frx":27377
Mask:1 = 16711935
Key:1 = "#grxx"
Bmp:2 = "Form1.frx":2779F
Mask:2 = 16711935
Key:2 = "#jsxx"
Bmp:3 = "Form1.frx":27BC7
Mask:3 = 16711935
Key:3 = "#tscx"
Bmp:4 = "Form1.frx":27FEF
Mask:4 = 16711935
Key:4 = "#tsjc"
Bmp:5 = "Form1.frx":28417
Mask:5 = 16711935
Key:5 = "#tsgh"
Bmp:6 = "Form1.frx":2883F
Mask:6 = 16711935
Key:6 = "#tsxj"
Bmp:7 = "Form1.frx":28C67
Mask:7 = 16711935
Key:7 = "#tjyh"
Bmp:8 = "Form1.frx":2908F
Mask:8 = 16711935
Key:8 = "#delyh"
Bmp:9 = "Form1.frx":294B7
Mask:9 = 16711935
Key:9 = "#addts"
Bmp:10 = "Form1.frx":298DF
Mask:10 = 16711935
Key:10 = "#tsch"
Bmp:11 = "Form1.frx":29D07
Mask:11 = 16711935
Key:11 = "#tsgh1"
Bmp:12 = "Form1.frx":2A12F
Mask:12 = 16711935
Key:12 = "#tsjc1"
Bmp:13 = "Form1.frx":2A557
Mask:13 = 16711935
Key:13 = "#gjcz"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin VB.Label Label1
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
Caption = "Label1"
BeginProperty Font
Name = "宋体"
Size = 15
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 375
Left = 1920
TabIndex = 0
Top = 8640
Width = 9975
End
Begin VB.Menu a1
Caption = "a1"
Visible = 0 'False
Begin VB.Menu grxx
Caption = "个人信息"
End
Begin VB.Menu jsxx
Caption = "借书信息"
End
End
Begin VB.Menu a2
Caption = "a2"
Visible = 0 'False
Begin VB.Menu tscx
Caption = "图书查询"
End
Begin VB.Menu tsjc
Caption = "图书借出"
End
Begin VB.Menu tsgh
Caption = "图书归还"
End
Begin VB.Menu tsxj
Caption = "图书续借"
End
End
Begin VB.Menu a3
Caption = "a3"
Visible = 0 'False
Begin VB.Menu tjyh
Caption = "添加用户"
End
Begin VB.Menu delyh
Caption = "删除用户"
End
Begin VB.Menu a31
Caption = "-"
End
Begin VB.Menu addts
Caption = "添加图书"
End
Begin VB.Menu tsch
Caption = "图书查询"
End
Begin VB.Menu tsjc1
Caption = "图书借出"
End
Begin VB.Menu tsgh1
Caption = "图书归还"
End
Begin VB.Menu a32
Caption = "-"
End
Begin VB.Menu gjcz
Caption = "高级操作"
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -