三十二、2024年交通管理专业知识测试题

你还在为自己的学习发愁吗？你还在为你还在为自己面对枯燥无味的教科书、一层层叠叠的试卷复习而发呆吗？如何提高的学习兴趣，如何摆脱枯燥乏味的书本和试卷，采用一种全新的方式去努力复习功课、增进知识呢，如何激自己的学习热情，接触更广阔的知识面，争取在期末考试中考出更加优异的成绩，给自己的学习增加信心呢。针对学生的这些烦恼，为了更好地帮助自己顺利完成学业，我们搜集了专业的学科知识和题库，总结并开发了这套测试软件，使用极其方便，无需查证资料就可以轻松掌握专业所学重点知识，通过测试还能及时查漏补缺，测试完毕不光可以立即看到自己的测试成绩，还能查看正确的解题思路和方法。同学们不妨试一试，快来为自己免费获取试用版吧。

部分代码展示：

Option Explicit
 
Private Sub Command1_Click()
Dim rs_yytlr As New ADODB.Recordset
Dim sql As String
If Trim(Text1.Text) = "" Then   'Trim函数就用去除字符串前后的空格符
   MsgBox "题号不能为空", vbOKOnly + vbExclamation, ""
   Text1.SetFocus
   Exit Sub
End If
If Trim(Text2.Text) = "" Then
   MsgBox "题目不能为空", vbOKOnly + vbExclamation, ""
   Text2.SetFocus
   Exit Sub
End If
 
If Trim(Text3.Text) = "" Then
   MsgBox "答案不能为空", vbOKOnly + vbExclamation, ""
   Text3.SetFocus
   Exit Sub
End If
 
 
If Trim(Text4.Text) = "" Then
   MsgBox "难度不能为空", vbOKOnly + vbExclamation, ""
   Text4.SetFocus
   Exit Sub
End If


If Trim(Text5.Text) = "" Then
   MsgBox "年级不能为空", vbOKOnly + vbExclamation, ""
   Text5.SetFocus
   Exit Sub
End If
 
'If Trim(Text6.Text) = "" Then
' MsgBox "备注不能为空", vbOKOnly + vbExclamation, ""
' Text6.SetFocus
'  Exit Sub
'End If
 
 
 
 
 
sql = "select * from 应用题 where 题号='" & Text1.Text & "'"
rs_yytlr.Open sql, Conn, adOpenKeyset, adLockPessimistic
If rs_yytlr.EOF Then
   rs_yytlr.AddNew
   rs_yytlr.Fields(0) = Trim(Text1.Text)
   rs_yytlr.Fields(1) = Trim(Text2.Text)
   rs_yytlr.Fields(2) = Trim(Text3.Text)
   rs_yytlr.Fields(3) = Combo1.Text
   

     rs_yytlr.Fields(4) = Trim(Text4.Text)
     rs_yytlr.Fields(5) = Trim(Text5.Text)
'    rs_yytlr.Fields(6) = Trim(Text6.Text)
   
       
   rs_yytlr.Update
   MsgBox "添加试题成功！", vbOKOnly, ""
   rs_yytlr.Close
Else
   MsgBox "试题题号重复！", vbOKOnly + vbExclamation, ""
   Text1.SetFocus
   Text1.Text = ""
   rs_yytlr.Close
   Exit Sub
End If
Text2.Text = ""
Text3.Text = ""
End Sub
 
Private Sub Command2_Click()
Unload Me
End Sub
 
Private Sub Form_Load()
 
'读取数据库指定字段指定行的内容
Dim db As Database
Dim rst As DAO.Recordset
  
'Set db = OpenDatabase("ksgl.mdb")
 
Set db = OpenDatabase("ksgl.mdb")
 
 
 
'Set db = OpenDatabase("ksgl.mdb")
 
 
Set rst = db.OpenRecordset("应用题")
rst.MoveLast '用rst.Move xx可以表示将记录集移动到第某行。
 




Me.Text1.Text = rst(0) + 1 'k为目标列，范围为0至【字段总数-1】之间，即0表示第1列。
'Me.Text2.Text = rst(1) 'k为目标列，范围为0至【字段总数-1】之间，即0表示第1列。
'Me.Text3.Text = rst(2) 'k为目标列，范围为0至【字段总数-1】之间，即0表示第1列。
 
rst.Close

 
Dim rs_stlb As New ADODB.Recordset
Dim sql As String
sql = "select * from 试题类别"
rs_stlb.Open sql, Conn, adOpenKeyset, adLockPessimistic
rs_stlb.MoveFirst
Do While Not rs_stlb.EOF
  Combo1.AddItem rs_stlb.Fields(1)
 rs_stlb.MoveNext
Loop
rs_stlb.Close
 

End Sub
 
 
Private Sub Frame1_DragDrop(Source As Control, X As Single, Y As Single)
 
End Sub

以上代码已测试通过，如有问题请加qq群（808738421）申请提供技术支持。

版权所有，违者必究。

五星工作室

2024年10月30日