📄 systemmain.frm
字号:
VERSION 5.00
Begin VB.Form SystemMain
BorderStyle = 1 'Fixed Single
Caption = "题库管理系统"
ClientHeight = 4905
ClientLeft = 45
ClientTop = 330
ClientWidth = 8085
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 4905
ScaleWidth = 8085
StartUpPosition = 2 '屏幕中心
Begin VB.Frame fraPaper
Caption = "试卷管理"
Height = 1875
Left = 5032
TabIndex = 11
Top = 427
Width = 2490
Begin VB.Label lblGetPaper
Caption = "设置试卷参数 生成试卷 "
BeginProperty Font
Name = "宋体"
Size = 15.75
Charset = 134
Weight = 400
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 810
Left = 180
TabIndex = 12
Top = 585
Width = 2100
End
End
Begin VB.Frame fraManageDB
Caption = "数据库管理"
Height = 1875
Left = 562
TabIndex = 5
Top = 2602
Width = 4170
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 = 2205
TabIndex = 9
Top = 435
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 = 2175
TabIndex = 8
Top = 1035
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 = 315
TabIndex = 7
Top = 1005
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 = 345
TabIndex = 6
Top = 405
Width = 1500
End
End
Begin VB.Frame fraManageTest
Caption = "题库管理"
Height = 1875
Left = 562
TabIndex = 0
Top = 405
Width = 4170
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 = 2250
TabIndex = 4
Top = 1200
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 = 2250
TabIndex = 3
Top = 510
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 = 375
TabIndex = 2
Top = 1185
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 = 375
TabIndex = 1
Top = 510
Width = 1575
End
End
Begin VB.Label lblDBName
AutoSize = -1 'True
Caption = "没有选择数据库数据库"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Left = 5250
TabIndex = 14
Top = 3390
Width = 2100
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 = 5490
TabIndex = 13
Top = 4035
Width = 1440
End
Begin VB.Label Label3
AutoSize = -1 'True
Caption = "当前试题数据库："
Height = 180
Left = 4980
TabIndex = 10
Top = 2910
Width = 1440
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
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 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 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 + -