📄 systemmain.frm
字号:
VERSION 5.00
Begin VB.Form SystemMain
BorderStyle = 1 'Fixed Single
Caption = "试题库管理系统"
ClientHeight = 5505
ClientLeft = 45
ClientTop = 330
ClientWidth = 8400
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 5505
ScaleWidth = 8400
StartUpPosition = 2 '屏幕中心
Begin VB.Frame fraPaper
Caption = "试卷管理"
Height = 1815
Left = 2640
TabIndex = 11
Top = 2880
Width = 2130
Begin VB.Label lblGetPaper
Caption = "设置试卷参数 生成试卷 "
BeginProperty Font
Name = "宋体"
Size = 15
Charset = 134
Weight = 400
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 810
Left = 120
TabIndex = 12
Top = 600
Width = 1860
End
End
Begin VB.Frame fraManageDB
Caption = "数据库管理"
Height = 2355
Left = 2640
TabIndex = 5
Top = 360
Width = 2130
Begin VB.Label lblRenameDB
AutoSize = -1 'True
Caption = "更名数据库"
BeginProperty Font
Name = "宋体"
Size = 15
Charset = 134
Weight = 400
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 300
Left = 120
TabIndex = 9
Top = 720
Width = 1500
End
Begin VB.Label lblDeleteDB
AutoSize = -1 'True
Caption = "删除数据库"
BeginProperty Font
Name = "宋体"
Size = 15
Charset = 134
Weight = 400
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 300
Left = 120
TabIndex = 8
Top = 1680
Width = 1500
End
Begin VB.Label lblCreateDB
AutoSize = -1 'True
Caption = "创建数据库"
BeginProperty Font
Name = "宋体"
Size = 15
Charset = 134
Weight = 400
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 300
Left = 120
TabIndex = 7
Top = 1200
Width = 1500
End
Begin VB.Label lblSelectDB
AutoSize = -1 'True
Caption = "选择数据库"
BeginProperty Font
Name = "宋体"
Size = 15
Charset = 134
Weight = 400
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 300
Left = 120
TabIndex = 6
Top = 240
Width = 1500
End
End
Begin VB.Frame fraManageTest
Caption = "题库管理"
Height = 4275
Left = 195
TabIndex = 0
Top = 405
Width = 2250
Begin VB.Label lblJianda
AutoSize = -1 'True
Caption = "简答题管理"
BeginProperty Font
Name = "宋体"
Size = 15.75
Charset = 134
Weight = 400
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Left = 120
TabIndex = 15
Top = 2880
Width = 1575
End
Begin VB.Label lblSpace
AutoSize = -1 'True
Caption = "填空题管理"
BeginProperty Font
Name = "宋体"
Size = 15.75
Charset = 134
Weight = 400
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Left = 120
TabIndex = 4
Top = 1080
Width = 1575
End
Begin VB.Label lblMore
AutoSize = -1 'True
Caption = "多选题管理"
BeginProperty Font
Name = "宋体"
Size = 15.75
Charset = 134
Weight = 400
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Left = 120
TabIndex = 3
Top = 2280
Width = 1575
End
Begin VB.Label lblSingle
AutoSize = -1 'True
Caption = "单选题管理"
BeginProperty Font
Name = "宋体"
Size = 15.75
Charset = 134
Weight = 400
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Left = 120
TabIndex = 2
Top = 1680
Width = 1575
End
Begin VB.Label lblJudge
AutoSize = -1 'True
Caption = "判断题管理"
BeginProperty Font
Name = "宋体"
Size = 15.75
Charset = 134
Weight = 400
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Left = 120
TabIndex = 1
Top = 480
Width = 1575
End
End
Begin VB.Label lblDBName
AutoSize = -1 'True
Caption = "没有选择数据库数据库"
BeginProperty Font
Name = "宋体"
Size = 15.75
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Left = 4920
TabIndex = 14
Top = 1320
Width = 3150
End
Begin VB.Label lblExit
AutoSize = -1 'True
BackColor = &H8000000A&
Caption = "退出系统"
BeginProperty Font
Name = "宋体"
Size = 18
Charset = 134
Weight = 400
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 360
Left = 5640
TabIndex = 13
Top = 4200
Width = 1440
End
Begin VB.Label Label3
AutoSize = -1 'True
Caption = "当前试题数据库："
BeginProperty Font
Name = "宋体"
Size = 15.75
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Left = 4920
TabIndex = 10
Top = 480
Width = 2520
End
End
Attribute VB_Name = "SystemMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Activate()
If ThisDBName = "" Then
lblDBName = "没有选择数据库！"
Else
lblDBName = ThisDBName
End If
End Sub
Private Sub Form_Load()
ThisDBName = ""
ChooseDB.Show vbModal '
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
lblExit.FontItalic = False
lblExit.FontBold = False
End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
If MsgBox("你选择了退出试题库系统？", _
vbYesNo + vbInformation, "题库管理系统") = vbNo Then
Cancel = 1
End If
End Sub
Private Sub fraManageDB_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
lblSelectDB.FontItalic = False
lblSelectDB.FontBold = False
lblCreateDB.FontItalic = False
lblCreateDB.FontBold = False
lblRenameDB.FontItalic = False
lblRenameDB.FontBold = False
lblDeleteDB.FontItalic = False
lblDeleteDB.FontBold = False
End Sub
Private Sub fraManageTest_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
lblJudge.FontItalic = False
lblJudge.FontBold = False
lblSingle.FontItalic = False
lblSingle.FontBold = False
lblMore.FontItalic = False
lblMore.FontBold = False
lblSpace.FontItalic = False
lblSpace.FontBold = False
lblJianda.FontItalic = False
lblJianda.FontBold = False
End Sub
Private Sub fraPaper_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
lblGetPaper.FontItalic = False
lblGetPaper.FontBold = False
End Sub
Private Sub lblExit_Click()
Unload Me
End Sub
Private Sub lblExit_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
lblExit.FontItalic = True
lblExit.FontBold = True
End Sub
Private Sub lblGetPaper_Click()
If ThisDBName = "" Then
MsgBox "请先选择数据库！", vbCritical
Else
PaperProperty.Show vbModal
End If
End Sub
Private Sub lblGetPaper_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
lblGetPaper.FontItalic = True
lblGetPaper.FontBold = True
End Sub
Private Sub lblJudge_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
lblJudge.FontItalic = True
lblJudge.FontBold = True
End Sub
Private Sub lblMore_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
lblMore.FontItalic = True
lblMore.FontBold = True
End Sub
Private Sub lblRenameDB_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
lblRenameDB.FontItalic = True
lblRenameDB.FontBold = True
End Sub
Private Sub lblDeleteDB_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
lblDeleteDB.FontItalic = True
lblDeleteDB.FontBold = True
End Sub
Private Sub lblCreateDB_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
lblCreateDB.FontItalic = True
lblCreateDB.FontBold = True
End Sub
Private Sub lblSelectDB_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
lblSelectDB.FontItalic = True
lblSelectDB.FontBold = True
End Sub
Private Sub lblSingle_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
lblSingle.FontItalic = True
lblSingle.FontBold = True
End Sub
Private Sub lblSpace_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
lblSpace.FontItalic = True
lblSpace.FontBold = True
End Sub
Private Sub lblJianda_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
lblJianda.FontItalic = True
lblJianda.FontBold = True
End Sub
Private Sub lblJudge_Click()
If ThisDBName = "" Then
MsgBox "请先选择数据库！", vbCritical
Else
JudgeEdit.Show vbModal
End If
End Sub
Private Sub lblSingle_Click()
If ThisDBName = "" Then
MsgBox "请先选择数据库！", vbCritical
Else
SingleEdit.Show vbModal
End If
End Sub
Private Sub lblMore_Click()
If ThisDBName = "" Then
MsgBox "请先选择数据库！", vbCritical
Else
MoreEdit.Show vbModal
End If
End Sub
Private Sub lblSpace_Click()
If ThisDBName = "" Then
MsgBox "请先选择数据库！", vbCritical
Else
SpaceEdit.Show vbModal
End If
End Sub
Private Sub lblJianda_Click()
If ThisDBName = "" Then
MsgBox "请先选择数据库！", vbCritical
Else
jiandaEdit.Show vbModal
End If
End Sub
Private Sub lblSelectDB_Click()
ChooseDB.Show vbModal
End Sub
Private Sub lblCreateDB_Click()
CreateDB.Show vbModal
End Sub
Private Sub lblRenameDB_Click()
If ThisDBName = "" Then
MsgBox "请先选择数据库！", vbCritical
Else
RenameDB.Show vbModal
End If
End Sub
Private Sub lblDeleteDb_Click()
DeleteDB.Show vbModal
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -