📄 frmta.frm
字号:
VERSION 5.00
Begin VB.Form frmDA
ClientHeight = 6252
ClientLeft = 132
ClientTop = 132
ClientWidth = 8160
ControlBox = 0 'False
BeginProperty Font
Name = "宋体"
Size = 10.8
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
LinkTopic = "Form1"
LockControls = -1 'True
ScaleHeight = 6252
ScaleWidth = 8160
StartUpPosition = 3 '窗口缺省
Begin VB.Frame Frame1
Caption = "试题"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = -1 'True
Strikethrough = 0 'False
EndProperty
Height = 6060
Left = 84
TabIndex = 0
Top = 96
Width = 8028
Begin VB.CommandButton Command1
Caption = "关闭"
Height = 372
Left = 6648
TabIndex = 16
Top = 5544
Width = 960
End
Begin VB.CommandButton Command2
Caption = "保存"
Height = 372
Left = 5592
TabIndex = 15
Top = 5544
Width = 960
End
Begin VB.CommandButton Command3
Caption = "删除"
Height = 372
Left = 4524
TabIndex = 14
Top = 5544
Width = 960
End
Begin VB.CommandButton Command4
Caption = "新增"
Height = 372
Left = 3444
TabIndex = 13
Top = 5544
Width = 960
End
Begin VB.ComboBox Combo3
Height = 312
ItemData = "frmTA.frx":0000
Left = 1164
List = "frmTA.frx":000D
Style = 2 'Dropdown List
TabIndex = 12
Top = 468
Width = 1632
End
Begin VB.TextBox Text2
Height = 1884
Left = 168
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 9
Top = 3504
Width = 7764
End
Begin VB.TextBox Text7
Height = 1884
Left = 168
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 7
Top = 1164
Width = 7776
End
Begin VB.ComboBox Combo2
Height = 312
ItemData = "frmTA.frx":001A
Left = 6972
List = "frmTA.frx":002D
Style = 2 'Dropdown List
TabIndex = 6
Top = 516
Width = 876
End
Begin VB.TextBox Text1
Height = 324
Left = 5376
TabIndex = 3
Top = 492
Width = 936
End
Begin VB.ComboBox Combo1
Height = 312
ItemData = "frmTA.frx":0040
Left = 3492
List = "frmTA.frx":004D
Style = 2 'Dropdown List
TabIndex = 2
Top = 492
Width = 1344
End
Begin VB.Label Label5
AutoSize = -1 'True
Caption = "考试类型"
Height = 216
Left = 204
TabIndex = 11
Top = 492
Width = 864
End
Begin VB.Label Label4
AutoSize = -1 'True
Caption = "标准答案"
Height = 216
Left = 168
TabIndex = 10
Top = 3192
Width = 864
End
Begin VB.Label Label19
AutoSize = -1 'True
Caption = "题目内容"
Height = 216
Left = 168
TabIndex = 8
Top = 840
Width = 864
End
Begin VB.Label Label3
AutoSize = -1 'True
Caption = "难度"
Height = 216
Left = 6432
TabIndex = 5
Top = 552
Width = 432
End
Begin VB.Label Label2
AutoSize = -1 'True
Caption = "分值"
Height = 216
Left = 4872
TabIndex = 4
Top = 540
Width = 432
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "题型"
Height = 216
Left = 3000
TabIndex = 1
Top = 540
Width = 432
End
End
Begin VB.Menu POP_MNU
Caption = "POP_MNU"
Enabled = 0 'False
Visible = 0 'False
Begin VB.Menu space
Caption = "-"
End
Begin VB.Menu Mny_Pic
Caption = "加载照片"
End
End
End
Attribute VB_Name = "frmDA"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Public m_Type As String
Public m_ID As String
Private xml_txt As String
Private Sub Command1_Click()
Unload Me
End Sub
Private Sub Command2_Click()
If Text7.Text = "" Then
MsgMsg "题目内容不能为空!"
Exit Sub
End If
If Text2.Text = "" Then
MsgMsg "题目答案不能为空!"
Exit Sub
End If
If Text1.Text = "" Then
MsgMsg "题目分值不能为空!"
Exit Sub
End If
Dim sSQL As String
Dim Rs As New ADODB.Recordset
sSQL = "select * from STK where id='" & m_ID & "'"
Rs.Open sSQL, dbcon, adOpenKeyset, adLockOptimistic, adCmdText
Select Case m_Type
Case SNEW
Rs.AddNew
Rs("ID") = m_ID
Case SEDIT
Rs("ID") = m_ID
End Select
Rs("lx") = Combo3.Text
Rs("tx") = Combo1.Text
Rs("fz") = CInt(Text1.Text)
Rs("nd") = Combo2.Text
Rs("nz") = Text7.Text
Rs("da") = Text2.Text
Rs("xz") = "-1"
Rs.Update
Rs.Close
m_Type = SEDIT
MsgMsg "保存完毕!"
End Sub
Private Sub Command3_Click()
If MsgboxYesOrNo("是否真的要出除?") Then
dbcon.Execute "delete from stk where id='" & m_ID & "'"
Unload Me
End If
End Sub
Private Sub Command4_Click()
SetNew
End Sub
Private Sub Form_Load()
On Error Resume Next
Dim Rs As New ADODB.Recordset
Dim sql As String
sql = "select * from setings where type='SETING'"
Rs.Open sql, dbcon, adOpenKeyset, adLockOptimistic, adCmdText
If (Rs.EOF And Rs.BOF) Or IsNull(Rs("xml_value")) Then
MsgMsg "请先完成系统设置!"
Exit Sub
End If
xml_txt = Rs("xml_value")
Rs.Close
SetNumMask Text1
SetCombo Combo3, xml_txt, "专业"
SetCombo Combo1, xml_txt, "题型"
SetCombo Combo2, xml_txt, "试题"
Select Case m_Type
Case SNEW
SetNew
Case SEDIT
GetData
End Select
End Sub
Private Sub Form_Resize()
SetWindowPos Me
End Sub
Private Sub SetNew()
Combo1.ListIndex = 0
Combo3.ListIndex = 0
Combo2.ListIndex = 0
Text1.Text = ""
Text2.Text = ""
Text7.Text = ""
m_Type = SNEW
m_ID = GetID
End Sub
Private Sub SetCombo(ByRef co_obj As ComboBox, ByVal xml_str As String, ByVal xm1 As String)
On Error Resume Next
Dim xml_doc As New MSXML.DOMDocument
Dim list_nodes As IXMLDOMNodeList
Dim node As IXMLDOMElement
Dim local_uil As String
xml_doc.loadXML xml_str
local_uil = "项目/" & xm1 & "/ITEM"
Set list_nodes = xml_doc.getElementsByTagName(local_uil)
co_obj.Clear
For Each node In list_nodes
co_obj.AddItem node.Text
Next
co_obj.ListIndex = 0
End Sub
Private Sub GetData()
On Error Resume Next
Dim sSQL As String
Dim Rs As New ADODB.Recordset
sSQL = "select * from STK where id='" & m_ID & "'"
Rs.Open sSQL, dbcon, adOpenKeyset, adLockOptimistic, adCmdText
Combo3.Text = Rs("lx")
Combo1.Text = Rs("tx")
Text1.Text = Rs("fz")
Combo2.Text = Rs("nd")
Text7.Text = Rs("nz")
Text2.Text = Rs("da")
Rs.Close
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -