英汉词典
沈阳航空航天大学
课程设计任务书
学院：航宇专业：飞行器制造班级：94030101
学号：2009040301022 题目：英汉词典
一、课程设计时间
2011年3月7日~11日（第1周），共计1周。
二、课程设计内容
用VB和Access组合开发英汉词典，数据表信息主要包括：编号、英文、中文1、中文2等（一个单词最多有2个中文意思）。程序实现词典数据维护(插入、删除、修改等)、英汉互查、按字母顺序浏览词典等功能。要求词典中的单词数量不少于10个。
用户界面中的菜单至少应包括“词典维护”、“英汉互查”、“浏览”“退出”4项。
三、课程设计要求
程序质量：
?贯彻事件驱动的程序设计思想。
?用户界面友好，功能明确，操作方便；可以增加其它功能或修饰。
?用户界面中的菜单至少应包括“查阅单词”、“词典维护”、“退出”3项。
?代码应适当缩进，并给出必要的注释，以增强程序的可读性。
课程设计说明书：
?课设结束后，上交课程设计说明书和源程序。课程设计说明书的内容参见提
供的模板。
四、指导教师和学生签字
指导教师：________ 学生签名：________
五、成绩
六、教师评语
目录
一、需求分析 (4)
二、设计分析 (4)
三、关键技术 (6)
四、总结 (10)
五、完整的源程序 (10)
六、参考文献 (13)
一、需求分析
模拟英汉字典功能，主要指“英汉互查”、“按字母顺序互查”和“数据维护”3种功能。由于数据维护使得数据增加、删减和修改，因此要使得数据更新到数据库中。要求：
①在Access中创建dictionary表，以“英语”和“汉
语”2方面信息。此表的结构应如下定义：单词编号，英语，汉语1，汉语2。
②能够随时查询字典中的单词。
③能够随时浏览字典中的单词。
④能够随时增减、删减、修改字典中的单词
二、设计分析
（1）基本原理：建立程序设计与数据库的连接，用find语句在数据库中查找，添加和更改数据。（2）总体设计：
图1 总体设计
（3）详细设计：
图1 详细设计
（4）数据库设计：
数据库设计是总体设计阶段非常重要的环节，数据库结构的变化会造成编码的改动，所以必须认真设计数据库结构后再进行编码，从而避免无谓的重复工作。本系统的数据库包括4个表，即编号、英文、中文1和中文2。
1)表一
表一用于记录编号、英语、中文1和中文2如表1所示。
表1
三、关键技术
（1）建立与数据库的连接。
右击Adodc，选择“ADODC属性”
单击“生成”按钮，选择Provider=Microsoft.Jet.OLEDB.4.0 单击“下一步”，输入数据库名称，再单击确定
选择“记录源”选项卡，然后命令类型选2-adCmdTable,再输入表单
击确定即可。
（2）查询单词find语句在数据库中查找单词信息。
英译汉代码
Private Sub Command1_Click()
Dim a$, b$
a = Text1
Adodc1.Recordset.Find "英语=" & " & a & "
End Sub
汉译英代码
Private Sub Command5_Click()
Dim a$, b$
a = Text1
Adodc1.Recordset.Find "汉语=" & " & a & "
Adodc1.Refresh
End Sub
图3 窗体-查询
（3）浏览字典是观看数据库。
Private Sub Command2_Click()
Form2.Show
https://www.sodocs.net/doc/ae12890064.html,mand1.Visible = False ‘将无关按钮隐藏’https://www.sodocs.net/doc/ae12890064.html,mand2.Visible = False ‘将无关按钮隐藏’https://www.sodocs.net/doc/ae12890064.html,mand3.Visible = False ‘将无关按钮隐藏’Form2.Text1.Visible = False ‘将无关文本框隐藏’
Form2.Text2.Visible = False ‘将无关文本框隐藏’
Form2.Text3.Visible = False ‘将无关文本框隐藏’
Form2.Text4.Visible = False ‘将无关文本框隐藏’End Sub
图4 窗体-浏览单词
（4）字典增加、减少和修改。
Private Sub Command1_Click()
Adodc1.Recordset.AddNew ‘单词增加’
End Sub
Private Sub Command2_Click()
Adodc1.Recordset.Delete ‘单词删减’
Adodc1.Recordset.MoveNext ‘移到下一个’
If Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLast ‘移到最
后’
End Sub
Private Sub Command3_Click()
Adodc1.Recordset.Update ‘修改单词’
Adodc1.Refresh ‘更新到数据库’
End Sub
图5 窗体-单词的增加、删减和修改
四、总结
这次课设我的题目是英汉字典，通过这次课设让我了解了VB与数据库之间的联系，可以应用ADO技术使VB与数据库进行联系，还可以应用find语言查询和更改数据库中的信息，并能向其中添加新的信息。
在课设过程中，我遇到了重重困难，例如：开始拿到题目无从下手，通过请教老师和同学我找到了大概思路，还有VB与数据库的连接技术，通过老师的指点和自己查阅资料，我克服了困难，顺利的完成了任务。
同时我也了解了VB的出现是一场技术革命，它在生活中各个方面都能发挥巨大的作用，所以，学好VB是社会发展的需要。
五、完整的源程序
Form1
Private Sub Command5_Click()
Dim a$, b$
a = Text1
Adodc1.Recordset.Find "汉语=" & " & a & "
Adodc1.Refresh
End Sub
Private Sub Command1_Click()
Dim a$, b$
a = Text1
Adodc1.Recordset.Find "英语=" & " & a & "
End Sub
Private Sub Command2_Click()
Form2.Show
https://www.sodocs.net/doc/ae12890064.html,mand1.V isible = False
https://www.sodocs.net/doc/ae12890064.html,mand2.V isible = False
https://www.sodocs.net/doc/ae12890064.html,mand3.V isible = False
Form2.Text1.V isible = False
Form2.Text2.V isible = False
Form2.Text3.V is ible = False
Form2.Text4.V isible = False
End Sub
Private Sub Command3_Click()
Form2.Show
https://www.sodocs.net/doc/ae12890064.html,mand1.V isible = True
https://www.sodocs.net/doc/ae12890064.html,mand2.V isible = True
https://www.sodocs.net/doc/ae12890064.html,mand3.V isible = True
Form2.Text1.V isible = True
Form2.Text2.V isible = True
Form2.Text3.V isible = True
Form2.Text4.V isible = True
End Sub
Private Sub Command4_Click()
uend = MsgBox("您确定要退出吗?", vbY esNo + vbQuestion, "离开程序") '出现离开提示窗口
If uend = vbY es Then
End
End If
End Sub
Private Sub Form_Load()
End Sub
Form2
Private Sub Command1_Click()
Adodc1.Recordset.AddNew
End Sub
Private Sub Command2_Click()
Adodc1.Recordset.Delete
Adodc1.Recordset.MoveNext
If Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLast End Sub
Private Sub Command3_Click()
Adodc1.Recordset.Update
Adodc1.Refresh
End Sub
Private Sub Form_Load()
End Sub
六、参考文献
[1] 蒋金丹．《Visual_Basic数据库应用》．北京：科学出版社，2003
[2] 高春艳．《VisualBasic程序开发范例宝典》．北京：人民邮电出版社，2009
[3]刘文涛．《Visual Basic+Access数据库开发与实例》．北京：清华大学出版社，2006