📄 frmmain.frm
字号:
Caption = "修改读者"
Key = "修改读者"
EndProperty
BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "查询读者"
Key = "查询读者"
EndProperty
BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "读者类别"
Key = "读者类别"
Style = 2
EndProperty
EndProperty
End
Begin MSComctlLib.Toolbar Toolbar2
Height = 525
Index = 0
Left = 195
TabIndex = 5
Top = 435
Width = 855
_ExtentX = 1508
_ExtentY = 926
ButtonWidth = 1455
ButtonHeight = 926
Style = 1
_Version = 393216
BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628}
NumButtons = 6
BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "图书管理"
Key = "图书管理"
EndProperty
BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "新增图书"
Key = "新增图书"
EndProperty
BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "修改图书"
Key = "修改图书"
EndProperty
BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "查询图书"
Key = "查询图书"
EndProperty
BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "书籍资料"
Key = "书籍资料"
EndProperty
BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "图书注销"
Key = "图书注销"
EndProperty
EndProperty
End
End
Begin MSComctlLib.ImageList ImageList1
Index = 3
Left = 6720
Top = 2400
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483638
ImageWidth = 48
ImageHeight = 48
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 2
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":119A60
Key = ""
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":11CEF2
Key = ""
EndProperty
EndProperty
End
Begin MSComctlLib.ImageList ImageList1
Index = 4
Left = 5400
Top = 2760
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483638
ImageWidth = 24
ImageHeight = 24
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 2
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":120384
Key = ""
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":122D86
Key = ""
EndProperty
EndProperty
End
Begin MSComctlLib.StatusBar StatusBar2
Align = 2 'Align Bottom
Height = 345
Left = 0
TabIndex = 1
Top = 9030
Width = 11880
_ExtentX = 20955
_ExtentY = 609
_Version = 393216
BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628}
NumPanels = 3
BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628}
AutoSize = 2
Object.Width = 7832
MinWidth = 7832
Picture = "frmMain.frx":126218
EndProperty
BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Object.Width = 4304
MinWidth = 4304
Picture = "frmMain.frx":126C2A
EndProperty
BeginProperty Panel3 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Object.Width = 7832
MinWidth = 7832
Picture = "frmMain.frx":12763C
EndProperty
EndProperty
End
Begin VB.Menu mnusys
Caption = "系统管理(&S)"
Begin VB.Menu submnuAdddeluser
Caption = "增加删除用户"
End
Begin VB.Menu submnuModifypwd
Caption = "用户修改密码"
End
Begin VB.Menu sysinit
Caption = "系统初始化"
End
Begin VB.Menu 分割线
Caption = "-"
End
Begin VB.Menu submnuExit
Caption = "退出系统"
End
End
Begin VB.Menu mnubookManage
Caption = "书籍管理(&O)"
Begin VB.Menu submnubook
Caption = "书籍信息管理"
End
Begin VB.Menu q
Caption = "-"
End
Begin VB.Menu submnuaddbook
Caption = "新进书籍资料"
End
Begin VB.Menu submnumodifybook
Caption = "修改书籍资料"
End
Begin VB.Menu submnuInquirebook
Caption = "查询书籍资料"
End
Begin VB.Menu a
Caption = "-"
End
Begin VB.Menu submnuBookinfo
Caption = "书籍资料管理"
End
Begin VB.Menu w
Caption = "-"
End
Begin VB.Menu submnuBooktype
Caption = "书籍类别管理"
End
Begin VB.Menu submnuPublisherinfo
Caption = "出版社资料管理"
End
Begin VB.Menu j
Caption = "-"
End
Begin VB.Menu submnuCanclebook
Caption = "注销图书"
End
End
Begin VB.Menu mnuReader
Caption = "读者管理(&R)"
Begin VB.Menu submnuReadertype
Caption = "读者类别管理"
End
Begin VB.Menu submnuReaderinfo
Caption = "读者信息管理"
End
Begin VB.Menu l
Caption = "-"
End
Begin VB.Menu submnuAddreader
Caption = "新增读者资料"
End
Begin VB.Menu submnumodifyreader
Caption = "修改读者资料"
End
Begin VB.Menu submnuInquirereader
Caption = "查询读者资料"
End
End
Begin VB.Menu mnuBorrow
Caption = "借阅管理(&B)"
Begin VB.Menu submnuBorrow
Caption = "借书管理"
End
Begin VB.Menu submnuReturn
Caption = "还书管理"
End
Begin VB.Menu submnuFine
Caption = "罚款管理"
End
Begin VB.Menu c
Caption = "-"
End
Begin VB.Menu submnuOverduefine
Caption = "逾期罚款"
End
Begin VB.Menu submnuLossfine
Caption = "书籍损失罚款"
End
Begin VB.Menu b
Caption = "-"
End
Begin VB.Menu submnuContinu
Caption = "续借管理"
End
End
Begin VB.Menu mnuSysHelp
Caption = "系统帮助(&H)"
Begin VB.Menu submnuHelp
Caption = "操作说明帮助"
End
Begin VB.Menu submnuAbout
Caption = "关于本软件"
End
End
End
Attribute VB_Name = "frmmain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim delData As Boolean '为true 时表示系统初始化要删除数据
Private Sub MDIForm_Load()
App.HelpFile = App.Path & "\help.chm"
'Me.Icon = LoadPicture(App.Path & "\varios.ico")
submnuFine.Enabled = False
delData = False '初始值
'Me.Picture = LoadPicture(App.Path & "\bg3.jpg")
'Me.Top = (Screen.Height - Me.Height) / 2
'Me.Left = (Screen.Width - Me.Width) / 2
Me.Width = Screen.Width
Me.Height = Screen.Height - 400
Me.Top = 0
Me.Left = 0
If user = "Admin" Or user = "System" Then
submnuAdddeluser.Enabled = True
sysinit.Enabled = True
Else
submnuAdddeluser.Enabled = False
sysinit.Enabled = False
End If
CoolBar2.Visible = False
Dim i As Integer
Toolbar1.ImageList = ImageList1(0)
For i = 1 To 7
Toolbar1.Buttons(i).Image = i
Next
Toolbar2(0).ImageList = ImageList1(1)
For i = 1 To 6
Toolbar2(0).Buttons(i).Image = i
Next
Toolbar3(1).ImageList = ImageList1(2)
For i = 1 To 5
Toolbar3(1).Buttons(i).Image = i
Next
Toolbar4(2).ImageList = ImageList1(3)
For i = 1 To 2
Toolbar4(2).Buttons(i).Image = i
Next
Toolbar5(3).ImageList = ImageList1(4)
For i = 1 To 2
Toolbar5(3).Buttons(i).Image = i
Next
Toolbar5(3).ImageList = ImageList1(4)
For i = 1 To 2
Toolbar5(3).Buttons(i).Image = i
Next
StatusBar2.Panels(1).Text = " 登录时间： " & Format(Now)
StatusBar2.Panels(2).Text = " 用 户： " & user
StatusBar2.Panels(3).Text = " 版权所有： 北京师范大学珠海分校计算机科学与技术"
StatusBar2.Panels(3).Width = Me.Width - StatusBar2.Panels(1).Width - StatusBar2.Panels(2).Width
End Sub
Private Sub MDIForm_QueryUnload(Cancel As Integer, UnloadMode As Integer)
If MsgBox("确定退出系统吗？", vbQuestion + vbYesNo, "退出系统") = vbYes And delData = False Then
For Each Form In Forms '遍历窗体集
Unload Form
Next Form
ElseIf delData = False Then
Cancel = True
End If
End Sub
Private Sub MDIForm_Resize()
' StatusBar2.Panels(3).Width = Me.Width - StatusBar2.Panels(1).Width - StatusBar2.Panels(2).Width
' If Me.Width < 12045 Then
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -