form15.frm

英语字典

         BeginProperty Font 
            Name            =   "宋体"
            Size            =   14.25
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   615
         Left            =   4800
         TabIndex        =   21
         Top             =   4080
         Width           =   1215
      End
      Begin VB.CommandButton cmdAddD 
         Caption         =   "添加"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   14.25
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   975
         Left            =   9000
         TabIndex        =   18
         Top             =   3720
         Width           =   2295
      End
      Begin VB.TextBox txtD 
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   14.25
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   495
         Left            =   3360
         TabIndex        =   10
         Text            =   "D."
         Top             =   3480
         Width           =   4815
      End
      Begin VB.TextBox txtC 
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   14.25
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   495
         Left            =   3360
         TabIndex        =   9
         Text            =   "C."
         Top             =   2640
         Width           =   4815
      End
      Begin VB.TextBox txtB 
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   14.25
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   495
         Left            =   3360
         TabIndex        =   8
         Text            =   "B."
         Top             =   1920
         Width           =   4815
      End
      Begin VB.TextBox txtA 
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   14.25
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   495
         Left            =   3360
         TabIndex        =   7
         Text            =   "A."
         Top             =   1320
         Width           =   4815
      End
      Begin VB.TextBox txtDanxuan 
         Height          =   495
         Left            =   3360
         TabIndex        =   5
         Top             =   600
         Width           =   4815
      End
      Begin VB.Label Label5 
         BackColor       =   &H00FFC0C0&
         Caption         =   "答案："
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   14.25
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   495
         Left            =   1920
         TabIndex        =   20
         Top             =   4200
         Width           =   975
      End
      Begin VB.Label Label2 
         BackColor       =   &H00FFC0C0&
         Caption         =   "选项："
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   14.25
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   495
         Left            =   1920
         TabIndex        =   6
         Top             =   1440
         Width           =   975
      End
      Begin VB.Label Label1 
         BackColor       =   &H00FFC0C0&
         Caption         =   "题目："
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   14.25
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   495
         Left            =   1920
         TabIndex        =   4
         Top             =   720
         Width           =   975
      End
   End
End
Attribute VB_Name = "frmAddQuestion"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub cmdAddD_Click()
    strsql = "select * from 单选题表"
    Set Rs = ExecuteSQL(sqlStr, MsgText)
    Rs.AddNew
    Rs.Fields("题目") = txtDanxuan.Text
    Rs.Fields("答案A") = txtA.Text
    Rs.Fields("答案B") = txtB.Text
    Rs.Fields("答案C") = txtC.Text
    Rs.Fields("答案D") = txtD.Text
    If optA.Value = True Then
      Rs.Fields("正确答案") = "A"
    Else
      If optB.Value = True Then
        Rs.Fields("正确答案") = "B"
        Else
          If optC.Value = True Then
             Rs.Fields("正确答案") = "C"
             Else
               If optD.Value = True Then
                  Rs.Fields("正确答案") = "D"
    End If
    Rs.Update
    Rs.Close
    MsgBox "题目添加成功！", vbOKOnly + vbExclamation, "警告"
    txtDanxuan.Text
txtA.Text = ""
txtB.Text = ""
txtC.Text = ""
txtD.Text = ""
optPanduan.Visible = True
optPanduan.Enabled = True
End Sub

Private Sub cmdAddT_Click()
strsql = "select * from 填空题表"
    Set Rs = ExecuteSQL(sqlStr, MsgText)
    Rs.AddNew
    Rs.Fields("题目") = txtTiankong.Text
    Rs.Fields("答案") = txtTrue.Text
    Rs.Update
    Rs.Close
    MsgBox "题目添加成功！", vbOKOnly + vbExclamation, "警告"
End Sub

Private Sub cmdCancel_Click()
txtDanxuan.Text
txtA.Text = ""
txtB.Text = ""
txtC.Text = ""
txtD.Text = ""
txtTiankong.Text = ""
txtTrue.Text = ""
Frame1.Enabled = True
Frame1.Visible = True
Frame2.Enabled = True
Frame2.Visible = True
End Sub

Private Sub cmdReturn_Click()
Unload Me
frmAdmainUser.Show
End Sub

Private Sub Form_Load()
Call Module1.connection
Dim textsql As String
Dim MsgText As String
Dim Rs As New ADODB.Recordse
End Sub

Private Sub Form_Unload(Cancel As Integer)
Rs.Close
End Sub



Private Sub optDanxuan_Click()
Frame2.Enabled = False
Frame2.Visible = False
MsgBox "请填写单选题信息！", vbOKOnly + vbExclamation, "提示"
txtDanxuan.SetFocus
End Sub

Private Sub optPanduan_Click()
Frame1.Enabled = False
Frame1.Visible = False
MsgBox "请填写填空题信息！", vbOKOnly + vbExclamation, "提示"
txtTiankong.SetFocus
End Sub