|
添加单词用到的窗体和控件的说明如表2所示。
表2 添加单词的窗体和控件说明表
|
控件类型 |
名称 |
说明 |
|
Form |
AddWordForm |
添加单词的窗体 |
|
Label |
NameLabel |
显示 “名字” |
|
Label |
GrammerLabel |
显示 “词性” |
|
Label |
MeanLabel |
显示 “意思” |
|
Label |
ExampleLable |
显示 “例句” |
|
TextBox |
NameText |
接收用户输入的单词名字 |
|
TextBox |
GrammarText |
接收用户输入的单词词性 |
|
TextBox |
MeanText |
接收用户输入的单词意思 |
|
TextBox |
ExampleText |
接收用户输入的单词例句 |
|
CommandButton |
OkButton
（确定） |
单击时，响应 OkButton_Click()函数，添加新单词和基本信息到数据库 |
|
CommandButton |
CancelButton（取消） |
单击时，响应 PassButoon_Click()函数，取消本次的单词添加 |
添加单词实现的核心代码如下：
Private Sub OkButton_Click() '添加单词
'判断输入的单词信息是否为空
If Trim(NameText.Text) = "" Or Trim(GrammarText.Text) = "" Or Trim(MeanText.Text) = "" _Or Trim(ExampleText.Text) = "" Then
MsgBox "录入信息不能为空！", vbOKOnly '为空时显示提示信息
Else
sql = "select * from word where name ='" & NameText.Text & "'"
Set rs = TransactSQL(sql)
'如果输入的单词存在时
If rs.EOF = False Then
MsgBox "改编号的记录已存在，请核对！", vbOKOnly
rs.Close
Else
'输入的单词不存在时，添加新纪录到数据库里
sql = "select * from word"
Set rs = TransactSQL(sql)
'添加新纪录
rs.AddNew
rs.Fields(0) = Trim(NameText.Text)
rs.Fields(1) = Trim(GrammarText.Text)
rs.Fields(2) = Trim(MeanText.Text)
rs.Fields(3) = Trim(ExampleText.Text)
rs.Fields(4) = 0
rs.Fields(5) = Date
rs.Update
rs.Close
MsgBox "单词添加成功！", vbOKOnly
Unload Me
Call WordsBook.WordsList_update '刷新单词本(WordList)
End If
End If
End Sub
删除单词的核心代码如下：
Private Sub DelButton_Click() '删除单词的响应函数
'判断用户是否选择了要删除的单词
If Trim(wordName) = "" Then’如果没选择删除的单词，显示提示信息
MsgBox "请在列表中选择一个单词："
Else
sql = "delete from word where name = '" & wordName & " '"
’否则删除单词，并更新数据库和单词本的显示内容
If MsgBox("真的要删除这条记录吗？", vbOKCancel + vbExclamation, "提示！") = vbOK Then
TransactSQL (sql)
MsgBox "记录已经删除！", vbOKOnly + vbExclamation, "警告！"
Call WordsList_update '更新单词本（WordsList）
wordName = ""
End If
End If
End Sub
|
