英汉词典

沈阳航空航天大学

课程设计任务书

学院：航宇专业：飞行器制造班级：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

mand1.Visible = False ‘将无关按钮隐藏’mand2.Visible = False ‘将无关按钮隐藏’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 窗体-单词的增加、删减和修改