📄 rl_main.frm
字号:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.MDIForm RL_Main
BackColor = &H8000000C&
Caption = "红杉图书信息管理系统"
ClientHeight = 6465
ClientLeft = 165
ClientTop = 1020
ClientWidth = 10740
Icon = "RL_Main.frx":0000
LinkTopic = "MDIForm1"
LockControls = -1 'True
Picture = "RL_Main.frx":0CCA
StartUpPosition = 3 '窗口缺省
WindowState = 2 'Maximized
Begin MSComctlLib.ImageList Iml_Main
Left = 3000
Top = 2760
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 32
ImageHeight = 32
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 8
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "RL_Main.frx":489E0
Key = ""
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "RL_Main.frx":496BC
Key = ""
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "RL_Main.frx":4A398
Key = ""
EndProperty
BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "RL_Main.frx":4B074
Key = ""
EndProperty
BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "RL_Main.frx":4BD50
Key = ""
EndProperty
BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "RL_Main.frx":4CA2C
Key = ""
EndProperty
BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "RL_Main.frx":4D708
Key = ""
EndProperty
BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "RL_Main.frx":4E3E4
Key = ""
EndProperty
EndProperty
End
Begin MSComctlLib.Toolbar tlb_Main
Align = 1 'Align Top
Height = 795
Left = 0
TabIndex = 1
Top = 0
Width = 10740
_ExtentX = 18944
_ExtentY = 1402
ButtonWidth = 1614
ButtonHeight = 1349
Appearance = 1
Style = 1
ImageList = "Iml_Main"
_Version = 393216
BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628}
NumButtons = 11
BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "借书/还书"
Key = "Borrow"
Description = "借书"
Object.ToolTipText = "借书/还书"
ImageIndex = 3
EndProperty
BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "图书管理"
Key = "BooksManage"
Description = "图书管理"
Object.ToolTipText = "图书管理"
ImageIndex = 6
EndProperty
BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "读者管理"
Key = "ReaderManage"
Description = "读者管理"
Object.ToolTipText = "读者管理"
ImageIndex = 5
EndProperty
BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "统计"
Key = "Statistics"
Description = "统计"
Object.ToolTipText = "统计"
ImageIndex = 7
Style = 5
BeginProperty ButtonMenus {66833FEC-8583-11D1-B16A-00C0F0283628}
NumButtonMenus = 11
BeginProperty ButtonMenu1 {66833FEE-8583-11D1-B16A-00C0F0283628}
Key = "AllBooks"
Text = "所有图书"
EndProperty
BeginProperty ButtonMenu2 {66833FEE-8583-11D1-B16A-00C0F0283628}
Enabled = 0 'False
Key = "AllBorrowBooks"
Text = "所有借出图书"
EndProperty
BeginProperty ButtonMenu3 {66833FEE-8583-11D1-B16A-00C0F0283628}
Enabled = 0 'False
Key = "TodayBorrowBooks"
Text = "今日借出图书"
EndProperty
BeginProperty ButtonMenu4 {66833FEE-8583-11D1-B16A-00C0F0283628}
Enabled = 0 'False
Key = "TodayReturnBooks"
Text = "今日归还图书"
EndProperty
BeginProperty ButtonMenu5 {66833FEE-8583-11D1-B16A-00C0F0283628}
Enabled = 0 'False
Key = "TodayRegisterBooks"
Text = "今日新注册图书"
EndProperty
BeginProperty ButtonMenu6 {66833FEE-8583-11D1-B16A-00C0F0283628}
Key = "p"
Text = "-"
EndProperty
BeginProperty ButtonMenu7 {66833FEE-8583-11D1-B16A-00C0F0283628}
Key = "AllReader"
Text = "所有读者"
EndProperty
BeginProperty ButtonMenu8 {66833FEE-8583-11D1-B16A-00C0F0283628}
Enabled = 0 'False
Key = "TodayBorrowReader"
Text = "今日借书读者"
EndProperty
BeginProperty ButtonMenu9 {66833FEE-8583-11D1-B16A-00C0F0283628}
Enabled = 0 'False
Key = "TodayReturnReader"
Text = "今日还书读者"
EndProperty
BeginProperty ButtonMenu10 {66833FEE-8583-11D1-B16A-00C0F0283628}
Enabled = 0 'False
Key = "TodayRegisterReader"
Text = "今日新注册读者"
EndProperty
BeginProperty ButtonMenu11 {66833FEE-8583-11D1-B16A-00C0F0283628}
Enabled = 0 'False
Key = "OverdueReader"
Text = "过期未归还读者"
EndProperty
EndProperty
EndProperty
BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "排行"
Key = "Rank"
Description = "排行"
Object.ToolTipText = "排行"
ImageIndex = 4
Style = 5
BeginProperty ButtonMenus {66833FEC-8583-11D1-B16A-00C0F0283628}
NumButtonMenus = 2
BeginProperty ButtonMenu1 {66833FEE-8583-11D1-B16A-00C0F0283628}
Enabled = 0 'False
Key = "BooksRank"
Text = "图书排行"
EndProperty
BeginProperty ButtonMenu2 {66833FEE-8583-11D1-B16A-00C0F0283628}
Enabled = 0 'False
Key = "ReaderRank"
Text = "读者排行"
EndProperty
EndProperty
EndProperty
BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button10 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "关于"
Key = "About"
Description = "关于"
Object.ToolTipText = "关于"
ImageIndex = 1
EndProperty
BeginProperty Button11 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "退出"
Key = "exit"
Description = "退出"
Object.ToolTipText = "退出"
ImageIndex = 8
EndProperty
EndProperty
End
Begin MSComctlLib.StatusBar StatusBar1
Align = 2 'Align Bottom
Height = 270
Left = 0
TabIndex = 0
Top = 6195
Width = 10740
_ExtentX = 18944
_ExtentY = 476
_Version = 393216
BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628}
NumPanels = 1
BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Style = 1
Enabled = 0 'False
TextSave = "CAPS"
EndProperty
EndProperty
End
Begin VB.Menu SystemManage
Caption = "系统管理(&S)"
Begin VB.Menu DataCopy
Caption = "数据备份"
Enabled = 0 'False
End
Begin VB.Menu DataRecovery
Caption = "数据恢复"
Enabled = 0 'False
End
Begin VB.Menu RemoveRedundant
Caption = "清除冗余"
Enabled = 0 'False
End
Begin VB.Menu p1
Caption = "-"
End
Begin VB.Menu Calculator
Caption = "计算器"
End
Begin VB.Menu Notebook
Caption = "记事本"
End
Begin VB.Menu p2
Caption = "-"
End
Begin VB.Menu Locking
Caption = "锁定"
Shortcut = ^L
End
Begin VB.Menu p3
Caption = "-"
End
Begin VB.Menu Sys_Exit
Caption = "退出"
Shortcut = ^X
End
End
Begin VB.Menu BorrowReturn
Caption = "借/还图书操作(&R)"
End
Begin VB.Menu BooksReader
Caption = "图书/读者管理(&B)"
Begin VB.Menu Books
Caption = "图书管理"
Shortcut = ^B
End
Begin VB.Menu Reader
Caption = "读者管理"
Shortcut = ^R
End
End
Begin VB.Menu BasicMaterials
Caption = "基本资料管理(&M)"
Begin VB.Menu PublishingHouse
Caption = "出版社名称"
End
Begin VB.Menu Position
Caption = "图书存放位置"
End
Begin VB.Menu p4
Caption = "-"
End
Begin VB.Menu BooksClassification
Caption = "图书类别"
End
Begin VB.Menu ReaderClassification
Caption = "读者类别"
End
Begin VB.Menu p5
Caption = "-"
End
Begin VB.Menu AdminSetup
Caption = "管理员设置"
End
End
Begin VB.Menu Statistics
Caption = "统计(&T)"
Begin VB.Menu AllBooks
Caption = "所有图书"
End
Begin VB.Menu AllBorrowBooks
Caption = "所有借出图书"
Enabled = 0 'False
End
Begin VB.Menu TodayBorrowBooks
Caption = "今日借出图书"
Enabled = 0 'False
End
Begin VB.Menu TodayReturnBooks
Caption = "今日归还图书"
Enabled = 0 'False
End
Begin VB.Menu TodayRegisterBooks
Caption = "今日新注册图书"
Enabled = 0 'False
End
Begin VB.Menu p6
Caption = "-"
End
Begin VB.Menu AllReader
Caption = "所有读者"
End
Begin VB.Menu TodayBorrowReader
Caption = "今日借书读者"
Enabled = 0 'False
End
Begin VB.Menu TodayReturnReader
Caption = "今日还书读者"
Enabled = 0 'False
End
Begin VB.Menu TodayRegisterReader
Caption = "今日新注册读者"
Enabled = 0 'False
End
Begin VB.Menu OverdueReader
Caption = "过期未归还读者"
Enabled = 0 'False
End
End
Begin VB.Menu Pank
Caption = "排行(&P)"
Enabled = 0 'False
Begin VB.Menu BooksPank
Caption = "图书排行"
Enabled = 0 'False
End
Begin VB.Menu ReaderPank
Caption = "读者排行"
Enabled = 0 'False
End
End
Begin VB.Menu Change
Caption = "修改密码(&C)"
End
Begin VB.Menu Window
Caption = "窗口(&W)"
WindowList = -1 'True
End
Begin VB.Menu Help
Caption = "帮助(&H)"
Enabled = 0 'False
End
Begin VB.Menu About
Caption = "关于(&A)"
End
End
Attribute VB_Name = "RL_Main"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'***************************************************************
'*公司名：华夏学院晨光网络公司
'*系统名：红杉图书信息管理系统
'*程序名：主窗体
'*程序ID：RL_Main
'*版本：2.0.1
'*最后修改时间：2005/4/16
'*修改人：cuitianlong
'*
'*-------------------------------------------------------------
'* [年月日] [制造者]
'*-------------------------------------------------------------
'* 2005/3/19 cuitianlong
'*
'***************************************************************
Option Explicit
Dim rc As New ADODB.Recordset '定义记录集
'***************************************************************
'* Exit_Click
'*
'* [参数]
'* 无
'* [返回]
'* 无
'***************************************************************
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -