📄 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"
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
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 = &H00C0C0C0&
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 VB.Label Label2
BackStyle = 0 'Transparent
Caption = $"Form1.frx":2701B
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 1215
Left = 2520
TabIndex = 2
Top = 2520
Width = 8415
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 = "高级操作"
End
End
End
Attribute VB_Name = "form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub addts_Click()
ifuser = "3"
Dim fo2 As CTranslucentForm
Set fo2 = New CTranslucentForm
fo2.hWnd = form5.hWnd
fo2.Alpha = 90 / 100 * 255
Load form5
form5.Show 1
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -