📄 form1.frm
字号:
Label3.Caption = "A." & rs("答案A")
Label4.Caption = "B." & rs("答案B")
Label5.Caption = "C." & rs("答案C")
Label6.Caption = "D." & rs("答案D")
Else
Label3.Enabled = False
Label4.Enabled = False
Label5.Enabled = False
Label6.Enabled = False
Command1.Enabled = True
Command2.Enabled = True
End If
Else '非四川法规
Label2.Caption = rs("id") & "." & rs("question")
If rs("selected") = True Then
Label9.Caption = "本题已设为不再做"
End If
If rs("bmp") <> "" Then
Image1.Visible = True
show_img (rs("bmp")) '设用IMG查看
Else
Image1.Visible = False
End If
If rs("ans1") <> "正确" And rs("ans1") <> "错误" Then
Label3.Enabled = True
Label4.Enabled = True
Label5.Enabled = True
Label6.Enabled = True
Command1.Enabled = False
Command2.Enabled = False
Label3.Caption = "A." & rs("ans1")
Label4.Caption = "B." & rs("ans2")
Label5.Caption = "C." & rs("ans3")
Label6.Caption = "D." & rs("ans4")
Else
Label3.Enabled = False
Label4.Enabled = False
Label5.Enabled = False
Label6.Enabled = False
Command1.Enabled = True
Command2.Enabled = True
End If
End If
Else
MsgBox "本题库练习完毕", vbQuestion, "提示"
End If
Combo1.SetFocus
SendKeys vbTab
End Sub
Private Sub Command3_KeyPress(KeyAscii As Integer)
If Label3.Enabled = True Then '检测是否为判断题
If KeyAscii = 97 Then
Call Label3_Click
ElseIf KeyAscii = 115 Then
Call Label4_Click
ElseIf KeyAscii = 100 Then
Call Label5_Click
ElseIf KeyAscii = 102 Then
Call Label6_Click
ElseIf KeyAscii = 106 Then
Call Command4_Click
ElseIf KeyAscii = 107 Then
Call Command5_Click
End If
Else
If KeyAscii = 97 Then
Call Command1_Click
ElseIf KeyAscii = 115 Then
Call Command2_Click
ElseIf KeyAscii = 106 Then
Call Command4_Click
ElseIf KeyAscii = 107 Then
Call Command5_Click
End If
End If
End Sub
Private Sub Command4_Click() '不再做本题
rs("selected") = True
rs.Update
Label9.Caption = "明白"
Combo1.SetFocus
SendKeys vbTab
End Sub
Private Sub Command5_Click()
rs("selected") = False
rs.Update
Label9.Caption = "嗯,加强一下"
Combo1.SetFocus
SendKeys vbTab
End Sub
Private Sub Command6_Click()
form2.Show 1
End Sub
Private Sub Form_Load()
'连接Access数据库
Set cnn = New ADODB.Connection '设定cnn是一个新的数据库连接
cnn.Provider = "Microsoft.Jet.OLEDB.4.0" '数据库引擎版本定义
Dim cnnFile As String '定议打开文件变量给 cnnFile
'给定cnnFile字符串,并定位MDB文件位置
cnnFile = "Data Source=" & App.Path & "\database.mdb;Persist Security Info=False;Jet OLEDB:Database Password=00000"
cnn.Open cnnFile '打开数据库文件
Set rs = New ADODB.Recordset '设定rs为新的数据库字段对象
Combo1.AddItem "全部-通用题"
Combo1.AddItem "1.道路交通安全法律、法规和规章"
Combo1.AddItem "2.道路交通信号及含义"
Combo1.AddItem "3.安全行车、文明驾驶知识"
Combo1.AddItem "4.高速公路、恶劣气象和复杂道路的安全驾驶"
Combo1.AddItem "5.出现紧急情况时临危处置知识"
Combo1.AddItem "6.机动车构造、安全装置常识和日常维护"
Combo1.AddItem "7.自救、急救知识和危险化学品知识"
Combo1.AddItem "11.四川法规"
Combo1.Text = "全部-通用题"
'Combo2.Enabled = False
End Sub
Private Sub load_ti()
If Combo1.Text = "全部-通用题" Then
If Check2.Value <> 1 Then '是否只做精华题
strsql = "SELECT * FROM ks order by id asc"
Else
strsql = "SELECT * FROM ks where selected<>true order by id asc"
End If
ElseIf Combo1.Text = "11.四川法规" Then
If Check2.Value <> 1 Then '是否只做精华题
strsql = "SELECT * FROM dfks order by id asc"
Else
strsql = "SELECT * FROM dfks where selected<>true order by id asc"
End If
Else
If Check2.Value <> 1 Then '是否只做精华题
strsql = "SELECT * FROM ks where zhangjie='" & Combo1.ListIndex & "' order by id asc"
Else
strsql = "SELECT * FROM ks where zhangjie='" & Combo1.ListIndex & "' and selected<>true order by id asc"
End If
End If
rs.Open strsql, cnn, adOpenStatic, adLockPessimistic '执行SQL语句查询数据库
If rs.RecordCount > 0 Then '如果记录大于零就执行
rs.MoveFirst '回到记录开始
ti_total = rs.RecordCount
Label8.Caption = "当前共有:" & ti_total & "道题"
If Check1.Value = 1 Then '如果顺序读题
Combo2.Enabled = True
Combo2.Clear
For i = 1 To rs.RecordCount
Combo2.AddItem i
Next
End If
'分支,看是地方法规还是基本题
If Combo1.Text = "11.四川法规" Then
Label2.Caption = rs("id") & "." & rs("问题")
If rs("selected") = True Then
Label9.Caption = "本题已设为不再做"
End If
If rs("答案A") <> "正确" And rs("答案A") <> "错误" Then
Label3.Enabled = True
Label4.Enabled = True
Label5.Enabled = True
Label6.Enabled = True
Command1.Enabled = False
Command2.Enabled = False
Label3.Caption = "A." & rs("答案A")
Label4.Caption = "B." & rs("答案B")
Label5.Caption = "C." & rs("答案C")
Label6.Caption = "D." & rs("答案D")
Else
Label3.Enabled = False
Label4.Enabled = False
Label5.Enabled = False
Label6.Enabled = False
Command1.Enabled = True
Command2.Enabled = True
End If
Else '非四川法规
Label2.Caption = rs("id") & "." & rs("question")
If rs("selected") = True Then
Label9.Caption = "本题已设为不再做"
End If
If rs("bmp") <> "" Then '判断是否是图片题
Image1.Visible = True
show_img (rs("bmp")) '设用IMG查看
Else
Image1.Visible = False
End If
If rs("ans1") <> "正确" And rs("ans1") <> "错误" Then
Label3.Enabled = True
Label4.Enabled = True
Label5.Enabled = True
Label6.Enabled = True
Command1.Enabled = False
Command2.Enabled = False
Label3.Caption = "A." & rs("ans1")
Label4.Caption = "B." & rs("ans2")
Label5.Caption = "C." & rs("ans3")
Label6.Caption = "D." & rs("ans4")
Else
Label3.Enabled = False
Label4.Enabled = False
Label5.Enabled = False
Label6.Enabled = False
Command1.Enabled = True
Command2.Enabled = True
End If
End If
Else
MsgBox "错误,没有题", vbQuestion, "提示"
End If
' rs.Close
Combo1.SetFocus
SendKeys vbTab
End Sub
Private Sub show_img(temp_img)
'On Error Resume Next
'temp_img= App.Path & "\img" & rs("bmp")
temp_img = App.Path & "\img" & temp_img
Image1.Picture = LoadPicture(temp_img)
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label3.BackColor = &H808080
Label4.BackColor = &H808080
Label5.BackColor = &H808080
Label6.BackColor = &H808080
End Sub
Private Sub Label3_Click()
On Error Resume Next
If rs("正确答案") = "A" Then
Label7.Caption = "答案:正确"
Else
Beep
Label7.Caption = "答案:错误,应选" & rs("正确答案")
End If
End Sub
Private Sub Label3_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label3.BackColor = &HC0C0C0
Label4.BackColor = &H808080
Label5.BackColor = &H808080
Label6.BackColor = &H808080
End Sub
Private Sub Label4_Click()
On Error Resume Next
If rs("正确答案") = "B" Then
Label7.Caption = "答案:正确"
Else
Beep
Label7.Caption = "答案:错误,应选" & rs("正确答案")
End If
End Sub
Private Sub Label4_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label4.BackColor = &HC0C0C0
Label3.BackColor = &H808080
Label5.BackColor = &H808080
Label6.BackColor = &H808080
End Sub
Private Sub Label5_Click()
On Error Resume Next
If rs("正确答案") = "C" Then
Label7.Caption = "答案:正确"
Else
Beep
Label7.Caption = "答案:错误,应选" & rs("正确答案")
End If
End Sub
Private Sub Label5_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label5.BackColor = &HC0C0C0
Label4.BackColor = &H808080
Label3.BackColor = &H808080
Label6.BackColor = &H808080
End Sub
Private Sub Label6_Click()
On Error Resume Next
If rs("正确答案") = "D" Then
Label7.Caption = "答案:正确"
Else
Beep
Label7.Caption = "答案:错误,应选" & rs("正确答案")
End If
End Sub
Private Sub Label6_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label6.BackColor = &HC0C0C0
Label3.BackColor = &H808080
Label4.BackColor = &H808080
Label5.BackColor = &H808080
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -