📄 主窗体.frm
字号:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.MDIForm 主窗体
BackColor = &H8000000C&
Caption = "河南商业高等专科学校教材管理系统 Ver1.0"
ClientHeight = 8130
ClientLeft = 315
ClientTop = 465
ClientWidth = 11400
Icon = "主窗体.frx":0000
LinkTopic = "MDIForm1"
MouseIcon = "主窗体.frx":08CA
Picture = "主窗体.frx":0BD4
Begin MSComctlLib.StatusBar StatusBar1
Align = 2 'Align Bottom
Height = 375
Left = 0
TabIndex = 1
Top = 7755
Width = 11400
_ExtentX = 20108
_ExtentY = 661
_Version = 393216
BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628}
NumPanels = 3
BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628}
AutoSize = 1
Object.Width = 14473
Text = "河南商业高等专科学校教材管理系统 Ver1.0"
TextSave = "河南商业高等专科学校教材管理系统 Ver1.0"
Key = "stbzht"
EndProperty
BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Style = 6
TextSave = "2005-11-13"
Key = "stbrq"
EndProperty
BeginProperty Panel3 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Style = 5
TextSave = "20:24"
Key = "stbshj"
EndProperty
EndProperty
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin MSComctlLib.Toolbar Toolbar1
Align = 1 'Align Top
Height = 660
Left = 0
TabIndex = 0
Top = 0
Width = 11400
_ExtentX = 20108
_ExtentY = 1164
ButtonWidth = 1032
ButtonHeight = 1005
Appearance = 1
ImageList = "ImageList1"
_Version = 393216
BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628}
NumButtons = 6
BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "用户管理"
Object.ToolTipText = "用户管理"
ImageIndex = 1
EndProperty
BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "数据备份"
Object.ToolTipText = "数据备份"
ImageIndex = 2
EndProperty
BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "打印"
Object.ToolTipText = "打印"
ImageIndex = 3
EndProperty
BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "书库管理"
Object.ToolTipText = "书库管理"
ImageIndex = 4
EndProperty
BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "学生管理"
Object.ToolTipText = "学生管理"
ImageIndex = 5
EndProperty
BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "帮助"
Object.ToolTipText = "帮助"
ImageIndex = 6
EndProperty
EndProperty
End
Begin MSComctlLib.ImageList ImageList1
Left = 10920
Top = 7440
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 32
ImageHeight = 32
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 6
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "主窗体.frx":3EAE0
Key = "user"
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "主窗体.frx":3EDFA
Key = "save"
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "主窗体.frx":3F114
Key = "print"
EndProperty
BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "主窗体.frx":418C6
Key = "book"
EndProperty
BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "主窗体.frx":427A0
Key = "student"
EndProperty
BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "主窗体.frx":4307A
Key = "help"
EndProperty
EndProperty
End
Begin VB.Menu mnuxtgl
Caption = "系统管理(&X)"
Begin VB.Menu mnuyhgl
Caption = "用户管理(&U)"
End
Begin VB.Menu mnukg1
Caption = "-"
End
Begin VB.Menu mnuxtchsh
Caption = "系统初始化"
End
Begin VB.Menu mnuxtwh
Caption = "系统维护"
End
Begin VB.Menu mnushjbf
Caption = "数据备份(&B)"
End
Begin VB.Menu mnusjhf
Caption = "数据恢复"
End
Begin VB.Menu mnukg2
Caption = "-"
End
Begin VB.Menu mnuexit
Caption = "退出(&E)"
End
End
Begin VB.Menu mnustud
Caption = "学生管理(&S)"
Begin VB.Menu mnuxfgl
Caption = "学费管理"
End
Begin VB.Menu mnukg3
Caption = "-"
End
Begin VB.Menu mnuxshgl
Caption = "学生管理"
End
End
Begin VB.Menu mnujcgl
Caption = "教材管理(&B)"
Begin VB.Menu mnujczhd
Caption = "教材征订"
Begin VB.Menu mnujczhdk
Caption = "教材征订"
End
Begin VB.Menu mnujczhdcx
Caption = "教材征订查询"
End
End
Begin VB.Menu mnukg4
Caption = "-"
End
Begin VB.Menu mnujcrk
Caption = "教材入库"
Begin VB.Menu mnujcrkk
Caption = "教材入库"
End
Begin VB.Menu mnujcrkcx
Caption = "教材入库查询"
End
End
Begin VB.Menu mnukg5
Caption = "-"
End
Begin VB.Menu mnujcchk
Caption = "教材出库"
Begin VB.Menu mnuzyk
Caption = "学生专业课教材出库"
End
Begin VB.Menu mnuxxk
Caption = "学生选修课教材出库"
End
Begin VB.Menu mnujcchkcx
Caption = "教材出库查询 "
End
End
Begin VB.Menu mnukg6
Caption = "-"
End
Begin VB.Menu mnukchgl
Caption = "库存教材管理"
End
End
Begin VB.Menu mnuxfprint
Caption = "学费管理与报表打印(&P)"
Begin VB.Menu mnuzykf
Caption = "学生专业课教材费支出情况表"
End
Begin VB.Menu mnukg8
Caption = "-"
End
Begin VB.Menu mnuxxkf
Caption = "学生选修课教材费支出情况表"
End
Begin VB.Menu mnukg9
Caption = "-"
End
Begin VB.Menu mnujcf
Caption = "学生教材费支出总表"
End
Begin VB.Menu mnukg10
Caption = "-"
End
Begin VB.Menu mnubjjcf
Caption = "班级教材费结算清单"
End
End
Begin VB.Menu mnuhelp
Caption = "系统帮助(&H)"
Begin VB.Menu mnuhtopic
Caption = "帮助主题"
End
Begin VB.Menu mnukg7
Caption = "-"
End
Begin VB.Menu mnuhabout
Caption = "关于(&A)"
End
End
End
Attribute VB_Name = "主窗体"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub mnubjjcf_Click()
班级教材费结算清单.Show
End Sub
Private Sub mnuexit_Click()
Dim i
i = MsgBox("确定退出系统吗？", vbQuestion + vbYesNo, "系统提示")
If i = vbYes Then
Unload Me
End If
End Sub
Private Sub mnuhabout_Click()
关于.Show vbModal
End Sub
Private Sub mnuhtopic_Click()
帮助主题.Show
End Sub
Private Sub mnujcchkcx_Click()
hh = 0
教材出库查询.Show
End Sub
Private Sub mnujcf_Click()
教材费总支出情况.Show
End Sub
Private Sub mnujcrkcx_Click()
教材入库查询.Show
End Sub
Private Sub mnujcrkk_Click()
教材入库.Show
End Sub
Private Sub mnujczhdcx_Click()
教材征订查询.Show
End Sub
Private Sub mnujczhdk_Click()
教材征订.Show
End Sub
Private Sub mnukchgl_Click()
库存教材查询.Show
End Sub
Private Sub mnushjbf_Click()
数据备份.Show vbModal
End Sub
Private Sub mnusjhf_Click()
数据恢复.Show vbModal
End Sub
Private Sub mnuxfgl_Click()
学生收费情况.Show
End Sub
Private Sub mnuxshgl_Click()
学生管理.Show vbModal
End Sub
Private Sub mnuxtchsh_Click()
系统初始化.Show vbModal
End Sub
Private Sub mnuxtwh_Click()
系统维护.Show modal
End Sub
Private Sub mnuxxk_Click()
选修课教材出库.Show
End Sub
Private Sub mnuxxkf_Click()
选修课教材费支出.Show
End Sub
Private Sub mnuyhgl_Click()
用户管理.Show vbModal
End Sub
Private Sub mnuzyk_Click()
专业课教材出库.Show
End Sub
Private Sub mnuzykf_Click()
专业课教材费支出.Show
End Sub
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Key
Case "用户管理"
用户管理.Show vbModal
Case "数据备份"
数据备份.Show vbModal
Case "打印"
教材费总支出情况.Show
Case "书库管理"
库存教材查询.Show
Case "学生管理"
学生管理.Show vbModal
Case "帮助"
帮助主题.Show
End Select
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -