📄 frmexamrep.frm
字号:
Left = 3120
TabIndex = 10
Top = 120
Width = 4935
Begin VB.TextBox TxtDes
DataField = "Describe"
DataSource = "AdcExams"
Enabled = 0 'False
Height = 1215
Left = 120
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 11
Text = "FrmExamRep.frx":088B
Top = 240
Width = 4815
End
End
Begin VB.Label Label4
Caption = "题 型："
Height = 255
Left = 120
TabIndex = 15
Top = 1200
Width = 735
End
Begin VB.Label Label3
Caption = "章 节："
Height = 255
Left = 120
TabIndex = 14
Top = 600
Width = 735
End
End
End
Begin VB.Frame Frame3
Height = 615
Left = -71640
TabIndex = 3
Top = 600
Width = 8415
Begin VB.Label lblUserName
Caption = "lblUserName"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 5400
TabIndex = 7
Top = 240
Width = 2295
End
Begin VB.Label Label2
Caption = "用户名:"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 4200
TabIndex = 6
Top = 240
Width = 1095
End
Begin VB.Label Label1
Caption = "课程名:"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 120
TabIndex = 5
Top = 240
Width = 1095
End
Begin VB.Label lblClassName
Caption = "lblClassName"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 1320
TabIndex = 4
Top = 240
Width = 2415
End
End
Begin VB.Frame Frame1
Caption = "章节信息"
Height = 2295
Left = -74640
TabIndex = 1
Top = 360
Width = 2775
Begin VB.ListBox List1
BackColor = &H80000016&
Columns = 1
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000006&
Height = 1950
Left = 240
TabIndex = 2
Top = 240
Width = 2295
End
End
Begin MSAdodcLib.Adodc AdcExams
Height = 375
Left = -67200
Top = 360
Visible = 0 'False
Width = 2175
_ExtentX = 3836
_ExtentY = 661
ConnectMode = 0
CursorLocation = 3
IsolationLevel = -1
ConnectionTimeout= 15
CommandTimeout = 30
CursorType = 3
LockType = 3
CommandType = 8
CursorOptions = 0
CacheSize = 50
MaxRecords = 0
BOFAction = 0
EOFAction = 0
ConnectStringType= 3
Appearance = 1
BackColor = -2147483643
ForeColor = -2147483640
Orientation = 0
Enabled = -1
Connect = "DSN=TikuSys"
OLEDBString = ""
OLEDBFile = ""
DataSourceName = "TikuSys"
OtherAttributes = ""
UserName = ""
Password = "8263958"
RecordSource = "SELECT * FROM Exams"
Caption = "AdcExams"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
_Version = 393216
End
Begin RichTextLib.RichTextBox RichText
Height = 615
Left = -74760
TabIndex = 49
Top = 6480
Width = 6975
_ExtentX = 12303
_ExtentY = 1085
_Version = 393217
Enabled = 0 'False
TextRTF = $"FrmExamRep.frx":0891
End
Begin VB.Shape Shape1
BackColor = &H00C0C0C0&
BorderColor = &H000000FF&
Height = 855
Left = -74880
Top = 2760
Width = 3135
End
End
Begin VB.Line Line1
BorderColor = &H000000FF&
Index = 5
X1 = 1080
X2 = 1080
Y1 = 3840
Y2 = 3960
End
Begin VB.Line Line1
BorderColor = &H000000FF&
Index = 4
X1 = 1200
X2 = 1200
Y1 = 3840
Y2 = 3960
End
End
Attribute VB_Name = "FrmExamRep"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim j As Integer
Dim k As Integer
Public numExamId As Integer '保存了试卷的题目个数
Dim m, n As Integer
Dim num As Integer
'添加试卷
Private Sub Cmd_Add_Paper_Click()
If Cmd_Add_Paper.Caption = "添加试卷" Then
Cmd_Add_Paper.Caption = "确定"
TxtPaperName.Text = ""
TxtHeader.Text = "姓名____________班级___________得分___________"
TxtPaperDes.Text = ""
Command11.Enabled = True
Cmd_Modi_Paper.Enabled = False
Cmd_Del_Paper.Enabled = False
TxtPaperName.Enabled = True
TxtHeader.Enabled = True
TxtPaperDes.Enabled = True
Else
If Trim(TxtPaperName.Text) = "" Then
MsgBox "试卷名称不能为空", vbOKOnly + 48, "警告"
TxtPaperName.SetFocus
Exit Sub
End If
If Trim(TxtHeader.Text) = "" Then
MsgBox "试卷标题不能为空", vbOKOnly + 48, "警告"
TxtHeader.SetFocus
Exit Sub
End If
Cmd_Add_Paper.Caption = "添加试卷"
With MyPaper
.PaperName = MakeStr(TxtPaperName.Text)
.Header = MakeStr(TxtHeader.Text)
.UserName = CurUser.UserName
.Describe = MakeStr(TxtPaperDes.Text)
.Classname = CurClass.Classname
.Insert
MsgBox "添加成功"
Adodc1.Refresh
Command11.Enabled = False
Cmd_Modi_Paper.Enabled = True
Cmd_Del_Paper.Enabled = True
TxtPaperName.Enabled = False
TxtHeader.Enabled = False
TxtPaperDes.Enabled = False
End With
End If
End Sub
'添加试卷题目
Private Sub Cmd_AddE_Click()
If Cmd_AddE.Caption = "添加试卷题目" Then
SSTab2.TabEnabled(0) = True
SSTab2.Tab = 0 '显示DATADrid1
SSTab2.TabEnabled(1) = False
Cmd_AddE.Caption = "添加题目"
Cmd_Cancel.Caption = "取消添加"
Cmd_DelE.Enabled = False
DataGrid1.SetFocus
Else
'判断是否选择了要添加的题目
If AdcExams.Recordset.EOF = True Or AdcExams.Recordset.BOF = True Then
MsgBox "请选择要添加的题目"
Exit Sub
End If
'选择修改的试卷
If CurPaper.PaperId < 1 Then
MsgBox "请选择要修改的试卷", vbOKOnly + 48, "警告"
SSTab1.Tab = 1
Exit Sub
End If
If MyQuestionP.In_DB(CurPaper.PaperId, MyExam.ExamId) = True Then
MsgBox "这道题已经加入到本试卷中,不能再添加!", vbOKOnly + 48, "警告"
Exit Sub
End If
'开始添加
MyQuestionP.PaperId = CurPaper.PaperId
MyQuestionP.ExamId = MyExam.ExamId
MyQuestionP.Insert
AdcPaper.Refresh
End If
End Sub
'用来显示试卷中所有的答案
Private Sub cmd_Answer_Click()
If CurPaper.PaperId < 1 Then
MsgBox "请选择试卷！", vbOKOnly + 64, "信息"
SSTab1.Tab = 1
Exit Sub
End If
'加入试卷名称和标题
k = 1
RichBox.TextRTF = ""
RichBox.SelStart = 0
RichText.TextRTF = CurPaper.PaperName & " 参考答案" & Chr(10) & Chr(13)
RichText.SelStart = 0
RichText.SelLength = Len(RichText.TextRTF)
RichBox.SelRTF = RichText.SelRTF & Chr(10) & Chr(13)
'加入所有的试题
'1 得到试卷所有的试题号,保存在Arr_ExamId()中
'numexamid保存了题目的数量
MyQuestionP.Load_Exams (CurPaper.PaperId)
'2 得到试卷所有的题型名frmtitleman.num保存了题型数
',arr_titlename()保存了题型名
MyTitle.Get_ArrTitleName (CurClass.ClassId)
m = 0
num = 0
n = 1
Do While m <= FrmTitleMan.num
Select Case m
Case 0:
RichText.TextRTF = Chr(13) & "一、" & Arr_TitleName(m) & Chr(10) & Chr(13)
'调用函数
Main1
Case 1:
RichText.TextRTF = Chr(13) & "二、" & Arr_TitleName(m) & Chr(10) & Chr(13)
Main1
Case 2:
RichText.TextRTF = Chr(13) & "三、" & Arr_TitleName(m) & Chr(10) & Chr(13)
Main1
Case 3:
RichText.TextRTF = Chr(13) & "四、" & Arr_TitleName(m) & Chr(10) & Chr(13)
Main1
Case 4:
RichText.TextRTF = Chr(13) & "五、" & Arr_TitleName(m) & Chr(10) & Chr(13)
Main1
Case 5:
RichText.TextRTF = Chr(13) & "六、" & Arr_TitleName(m) & Chr(10) & Chr(13)
Main1
Case 6:
RichText.TextRTF = Chr(13) & "七、" & Arr_TitleName(m) & Chr(10) & Chr(13)
Main1
Case 7
RichText.TextRTF = Chr(13) & "八、" & Arr_TitleName(m) & Chr(10) & Chr(13)
Main1
Case 8
RichText.TextRTF = Chr(13) & "九、" & Arr_TitleName(m) & Chr(10) & Chr(13)
Main1
Case 9
RichText.TextRTF = Chr(13) & "十、" & Arr_TitleName(m) & Chr(10) & Chr(13)
Main1
Case Else
RichText.TextRTF = Chr(13) & "其他、" & Arr_TitleName(m) & Chr(10) & Chr(13)
Main1
End Select
m = m + 1
Loop
End Sub
Private Sub Cmd_Cancel_Click()
If Cmd_Cancel.Caption = "取消添加" Or _
Cmd_Cancel.Caption = "取消删除" Then
Cmd_AddE.Caption = "添加试卷题目"
Cmd_AddE.Enabled = True
Cmd_DelE.Caption = "删除试卷题目"
Cmd_DelE.Enabled = True
Cmd_Cancel.Caption = "返 回"
SSTab2.TabEnabled(0) = True
SSTab2.TabEnabled(1) = False
List1.Enabled = True
List1_Click
SSTab2.Tab = 0 '显示DATADrid1
Else
Unload Me
End If
End Sub
Private Sub Cmd_Del_Paper_Click()
If DataList1.Text = "" Then
MsgBox "请选择要删除的试卷", vbOKOnly + 48, "警告"
Exit Sub
End If
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -