英汉词典VB数据库.doc

沈阳航空航天大学 课课 程程 设设 计计 报报 告告 课程设计名称 软件综合课程设计软件综合课程设计 课程设计题目 汉语和英语单词对照汉语和英语单词对照 院 系 计算机学院 专 业 计算机科学与技术 班 级 7401101 学 号 200704011013 姓 名 郭忠馨 指导教师 安云哲 完成日期 2010年7月16日 沈阳航空航天大学课程设计报告 I 目目 录录 第第 1 章章 概要设计概要设计 1 1 1 题目的内容与要求 1 1 2 数据库概念模型设计 1 1 2 1 数据库 E R 图 1 1 2 2 数据库表概述 3 1 3 总体方案设计 3 第第 2 章章 详细设计详细设计 5 2 1 数据库逻辑模型设计 5 2 1 1 汉语释义表 chinese 5 2 1 2 英语单词表 english 5 2 1 3 汉语英语对应关系表 EC 6 2 2 系统功能详细设计 6 2 2 1 数据库的连接 6 2 2 2 数据的查询 8 2 2 3 数据的添加 10 第第 3 章章 调试分析调试分析 13 第第 4 章章 使用说明使用说明 14 4 1 程序面板界面 14 参考文献参考文献 18 附附 录 程序清单 录 程序清单 19 沈阳航空航天大学课程设计报告 第 1 章 概要设计 1 第 1 章 概要设计 1 1 题目的内容与要求题目的内容与要求 利用问价系统或数据库系统 设计一个程序 该程序输入一个英语单词和他 的释义 应考虑一个单词可以有多个释义 当用输入英语单词时程序给出的对 应的汉语释义 输入汉语时给出对应的多个英语单词 要求 1 能将所有单词和对应的汉语释义按序写入一个文本文件中 2 使用数据库系统实现 DBMS 和前段开放工具可自行选择 界面要美观 实用 3 应画出规范的系统 E R 图 4 按要求写出课程设计报告 1 2 数据库概念模型设计数据库概念模型设计 根据题目的具体情况分析设计汉语和英语单词对照系统 主要功能有 英语单词及其译意的添加存储 输入英语单词对其汉语译意的查询及显示 输入汉语译意 对有相关译意的英语单词进行查询及显示 1 2 1 数据库数据库 E R 图图 Chinese 表 E R 图如图 1 1 所示 该实体的属性有 编号 汉语释义 其中编 号为该实体的主属性 沈阳航空航天大学课程设计报告 第 1 章 概要设计 2 Chinese 编号汉语 释义 图图 1 11 1 chinesechinese 表表 E RE R 图图 English 表 E R 图如图 1 2 所示 该实体的属性有 编号 英语单词 其中编 号为该实体的主属性 English 编号英语 图图 1 21 2 englishenglish 表表 E RE R 图图 汉语和英语单词对照系统 E R 图如图 1 3 所示 其中包含两个实体 一个是 汉语释义 一个是英语单词 实体之间是多对多的联系 一个单词可以有多个意 思 一个意思对应多个单词 所以添加一个新的关系作为 chinese 表与 english 表 之间的关系表 沈阳航空航天大学课程设计报告 第 1 章 概要设计 3 n m 中文释义 英语单词 编号汉语 对应 XXX XXX XXX X 编号英语 词性 图图 1 31 3 chinesechinese 表与表与 englishenglish 表之间的实体联系图表之间的实体联系图 1 2 2 数据库表概述数据库表概述 经过分析设计后得出数据库设计的概念模型 其中包含两个实体 一个是 english 表 一个是 chinese 表 还有一个是 english 与 chinese 的关系表 EC 如下 English enum english Chinese cnum chinese EC cnum enum 1 3 总体方案设计总体方案设计 根据系统要求 划分如下模块 添加模块和查询模块 根据要求的不同 用 户可执行不同的操作 系统总体模块图如图 1 4 所示 执行添加功能的时候具体 沈阳航空航天大学课程设计报告 第 1 章 概要设计 4 分为三部分 添加模块可按照同一单词同一词性不同释义添加 可以按照同一单 词不同词性添加 也可以按照新单词新词性添加 当执行查询时 查询模块分为 两部分 可按照输入的英语单词查询汉语释义 也可以按照输入的汉语释义查询 英语单词 英语单词和汉语对照系统 添加模块查询模块 添加同一单词同一词性不同释义 添加同一单词不同词性汉语释义 添加新的英文单词以及汉语释义 按照英语单词查询并显示 按照汉语释义查询及显示 图图 1 41 4 系统总体模块图系统总体模块图 沈阳航空航天大学课程设计报告 第 2 章 详细设计 5 第 2 章 详细设计 2 1 数据库逻辑模型设计数据库逻辑模型设计 根据所设计的 E R 图 将两个实体分别转换为 chinese 表 english 表 实体 间多对多的关系通过增加一个新的关系 EC 表 并将 chinese 表和 english 表中的 码加入到 ec 表中作为外码来实现 2 1 1 汉语释义表 汉语释义表 chinese Chinese 表定义如下 表表 2 12 1 具体创建代码如下 create table chinese cnum int primary key chinese varchar 50 not null 2 1 2 英语单词表 英语单词表 english English 表定义如下 表表 2 22 2 具体创建代码如下 create table english enum int primary key english varchar 50 not null 沈阳航空航天大学课程设计报告 第 2 章 详细设计 6 2 1 3 汉语英语对应关系表 汉语英语对应关系表 EC EC 表定义如下 表表 2 32 3 具体创建代码如下 create table ec enum int cnum int porperty varchar 20 not null primary key enum cnum 2 2 系统功能详细设计系统功能详细设计 2 2 1 数据库的连接数据库的连接 1 利用控件 Adodc 连接 在 Adodc 控件中 设置 ConnectStringProvider SQLOLEDB 1 Integrated Security SSPI Persist Security Info False Initial Catalog ManageSystem 然后再设 置 CommandType 为 8 adCmdUnknown 数据源定为 SQL 查询语句 语句内容 根据不同需要而更改 连接数据库核心语句 Adodc1 ConnectStringProvider SQLOLEDB 1 Integrated Security SSPI Persist Security Info False Initial Catalog dictionary Adodc1 RecordSource SQL 查询语句 Adodc1 Recordset Open Adodc1 Refresh 断开数据库核心语句 沈阳航空航天大学课程设计报告 第 2 章 详细设计 7 Adodc1 Recordset Close 2 利用 ADODB 对象作为 SQL 连接接口 由于在程序中使用瞬间连接数据库比长期连接数据库高效 而且在本程序中 大量使用 因而新增了模块 Module1 自定义 SqlConnect 函数用于连接数据库 SqlDisConnect 函数用于断开连接 连接数据库核心语句 Set Ado Conn New ADODB Connection Set Ado RS New ADODB Recordset str CS Provider SQLOLEDB 1 Integrated Security SSPI Persist Security Info False Initial Catalog dictionary str RS SQL 查询语句 SqlConnect Ado Conn Ado RS str CS str RS 模块 Module1 中定义的 SqlConnect 函数 Public Sub SqlConnect ByVal Ado Connection As ADODB Connection ByVal Ado Recordset As ADODB Recordset Ado ConnectionString As String Ado RecordSource As String Ado Connection ConnectionString Ado ConnectionString Ado Connection ConnectionTimeout 30 Ado Connection Open Ado Recordset Open Ado RecordSource Ado Connection End Sub 断开数据库核心语句 SqlDisConnect Ado RS 模块 Module1 中定义的 SqlDisConnect 函数 Public Sub SqlDisConnect ByVal AdoRecordset As ADODB Recordset If AdoRecordset State Then AdoRecordset Close End Sub 沈阳航空航天大学课程设计报告 第 2 章 详细设计 8 2 2 2 数据的查询数据的查询 1 利用 Adodc 控件对 SQL 数据进行查询 利用 Adodc 控件中的 RecordSet 对象 记录返回结果 通过 MSHFlexGrid 控件 DataGrid 控件等控件对查询结果作表格方式的输出 使用 Adodc 控件时 可以通过属性的设定 把 MSHFlexGrid 控件 DataGrid1 控 件捆绑在 Adodc 控件上 当使用 ADODB 对象时 可以通过 Set 语句对 MSHFlexGrid DataSourse 进行 赋 ADODB 对象的 Recordset 值 也可通过对 RecordSet 对象中集合的提取 把元组中的属性值赋给 TextBox 等控件控件 让其输出 核心代码 Adodc1 Recordset MoveFirst Adodc1 Recordset Find 编号 1234 Text1 Text Adodc1 Recordset Fields 编号 Value Text2 Text Adodc1 Recordset Fields 英语单词 Value 2 对查询所得到的集合作出判断 利用 EOF 和 BOF 两个属性进行判断 If Ado RS BOF False And Ado RS EOF False Then 集合不为空 Else 集合为空 End If 利用 MSHFlexGrid 的 Rows 属性判断 If MSHFlexGrid1 Rows 1 Then 集合不为空 Else 集合为空 End If 沈阳航空航天大学课程设计报告 第 2 章 详细设计 9 3 查询特定元组 特定元组具有的固定的属性值 连接数据库时修改对应的 SQL 语句即可进行 查询 核心代码 Set Ado Conn New ADODB Connection Set Ado RS New ADODB Recordset str CS Provider SQLOLEDB 1 Integrated Security SSPI Persist Security Info False Initial Catalog dictionary str RS select from english where english num chinese num EC num SqlConnect Ado Conn Ado RS str CS str RS 同样 也可利用 MSHFlexGrid 控件 DataGrid 控件等 均可以利用控件内部 的属性和方法进行查询 数据查询流程图如图 2 1 所示 沈阳航空航天大学课程设计报告 第 2 章 详细设计 10 否 是 是 开始 利用对应的 SQL 语句进行查询 判断 TEXT 文本框中 需要查询的内容是否 合法 设置连接字段 数据源 连接数据库 判断数据库中是否有所 查询的记录 显示查询结果 返回 图图 2 12 1 数据查询流程图数据查询流程图 2 2 3 数据的添加数据的添加 1 利用 ADO 接口提供的属性对数据进行添加 核心语句 Adodc1 Recordset MoveLast Adodc1 Recordset AddNew Adodc1 Recordset Fields 英语单词 Text1e Text 沈阳航空航天大学课程设计报告 第 2 章 详细设计 11 Adodc1 Recordset Update Adodc1 Refresh 数据添加流程图如图 2 4 所示 沈阳航空航天大学课程设计报告 第 2 章 详细设计 12 是 否 是 否 开始 连接数据库 判断 TEXT 文本框中需 要添加的属性是否合法 判断需要添加元 组是否重复 判断是否中文表中 有该释义并且英文 表中无该单词 判断是否中文表 中无该释义且英 文表中有该单词 判断是否中文表 中无该释义且英 文表中无该单词 更新 EC 表 断开数据库 更新中文表 更新中文表 更新中文英文表 是 是 是 返回 否 否 否 图图 2 42 4 系统添加流程图系统添加流程图 沈阳航空航天大学课程设计报告 第 3 章 调试分析 13 第 3 章 调试分析 1 问题描述 无法连接数据库 问题分析 ADODC 控件设置错误 解决方法 重新设置控件中连接字段与数据源 2 问题描述 运行程序时出现异常 问题分析 错误提示数据库没有关闭 解决方法 在相应代码段 调用断开数据库函数 3 问题描述 数据库查询结果对象为空 问题分析 SQL 语句有错误 解决方法 修改对应 SQL 语句重新运行 沈阳航空航天大学课程设计报告 参考文献 14 第 4 章 使用说明 4 1 程序面板界面程序面板界面 运行程序时 出现主面板界面 根据查询还是添加的要求不同 输入特定的 文本框中点击对应的功能按钮进行执行 如图 4 1 所示 点击 添加 将输入 的英语单词以及汉语译意添加到数据库中 点击 查询 将用户输入的英语单 词或者汉语译意所对应的汉语译意或者英语单词显示出来 将出入点击 退出 退出本系统 图图 4 14 1 汉语和英语单词对照系统界面汉语和英语单词对照系统界面 沈阳航空航天大学课程设计报告 参考文献 15 图图 4 24 2 查询错误提示界面查询错误提示界面 图图 4 34 3 添加成功界面添加成功界面 沈阳航空航天大学课程设计报告 参考文献 16 图图 4 44 4 英文查询界面英文查询界面 图图 4 54 5 中文查询界面中文查询界面 沈阳航空航天大学课程设计报告 参考文献 17 图图 4 64 6 退出系统界面退出系统界面 沈阳航空航天大学课程设计报告 参考文献 18 参考文献 1 萨师煊 王珊 数据库系统概论 第四版 M 北京 高等教育出版社 2007 2 王晟 VB 数据库开发经典案例解析 北京 清华大学出版社 2006 沈阳航空航天大学课程设计报告 附 录 19 附 录 程序清单 Private Sub Command1 Click 查询 If Text1e Text And Text2c Text Then MsgBox 请输入查询内容 vbExclamation 查询错误 Exit Sub End If If Text2c Text And Text1e Text Then 都填写了 MsgBox 请重新输入查询内容 vbExclamation 查询错误 Exit Sub End If 连接数据库 Set Ado Conn New ADODB Connection Set Ado RS New ADODB Recordset str CS Provider SQLOLEDB 1 Integrated Security SSPI Initial Catalog dictionary If Text1e Text And Text2c Text Then 只填了英文 str RS select from viewec where english Text1e Text SqlConnect Ado Conn Ado RS str CS str RS 结果存储在 ADO RS 对象 里 沈阳航空航天大学课程设计报告 附 录 20 If Ado RS EOF True Then Label3 Caption 该词不存在 Exit Sub End If While Not Ado RS EOF If Trim Ado RS Fields chinese Then Label3 Caption Label3 Caption Trim Ado RS Fields porperty Trim Ado RS Fields chinese Chr 13 End If Ado RS MoveNext Wend End If If Text2c Text And Text1e Text Then 只填了中文 str RS select from viewec where chinese Text2c Text SqlConnect Ado Conn Ado RS str CS str RS 结果存储在 ADO RS 对象 里 While Not Ado RS EOF If Trim Ado RS Fields english Then Label3 Caption Label3 Caption Trim Ado RS Fields porperty Trim Ado RS Fields english Chr 13 Ado RS MoveNext 沈阳航空航天大学课程设计报告 附 录 21 End If Wend End If SqlDisConnect Ado RS End Sub Private Sub Command2 Click 添加 If Trim Text1e Text Or Trim Text2c Text Then MsgBox 内容为空 vbInformation 添加错误 Exit Sub End If If Trim Combo1 Text Then MsgBox 词性为空 vbInformation 添加错误 Exit Sub End If 检测单词是否存在 Form2 Adodc3 RecordSource select from viewec where english Trim Text1e Text and chinese Trim Text2c Text and porperty Trim Combo1 Text 沈阳航空航天大学课程设计报告 附 录 22 Form2 Adodc3 Refresh 更新结果集 If Form2 Adodc3 Recordset EOF False And Form2 Adodc3 Recordset BOF False Then 如果单词存在 MsgBox 单词已存在 vbExclamation 添加失败 Exit Sub End If 添加单词更新表 Dim chexit As Boolean Dim enexit As Boolean Dim enumber cnumber As Integer Form2 Adodc1 RecordSource select from english where english Trim Text1e Text Form2 Adodc1 Refresh 更新结果集 If Form2 Adodc1 Recordset EOF False And Form2 Adodc1 Recordset BOF False Then 如果英语单词存在 enexit True enumber Form2 Adodc1 Recordset Fields Enum Else enexit False End If Form2 Adodc2 RecordSource select from chinese where chinese Trim Text2c Text 沈阳航空航天大学课程设计报告 附 录 23 Form2 Adodc2 Refresh 更新结果集 If Form2 Adodc2 Recordset EOF False And Form2 Adodc2 Recordset BOF False Then 如果中文释义存在 chexit True cnumber Form2 Adodc2 Recordset Fields Cnum Else chexit False End If If chexit True And enexit False Then 更新英文表 Form2 Adodc1 RecordSource select from english Form2 Adodc1 Refresh Form2 Adodc1 Recordset MoveLast n Form2 Adodc1 Recordset Fields cnum Form2 Adodc1 Recordset AddNew Form2 Adodc1 Recordset Fields English Trim Text1e Text Form2 Adodc1 Recordset Update Form2 Adodc1 Refresh Form2 Adodc1 Recordset MoveLast enumber Form2 Adodc1 Recordset Fields Enum Form2 Adodc1 Recordset Close 沈阳航空航天大学课程设计报告 附 录 24 End If If chexit False And enexit True Then 更新中文表 Form2 Adodc2 RecordSource select from chinese Form2 Adodc2 Refresh Form2 Adodc1 Recordset MoveLast n Form2 Adodc1 Recordset Fields cnum Form2 Adodc2 Recordset AddNew Form2 Adodc2 Recordset Fields Chinese Trim Text2c Text Form2 Adodc2 Recordset Update Form2 Adodc2 Refresh Form2 Adodc2 Recordset MoveLast cnumber Form2 Adodc2 Recordset Fields Cnum Form2 Adodc2 Recordset Close End If If chexit False And enexit False Then Form2 Adodc1 RecordSource select from english Form2 Adodc1 Refresh Form2 Adodc1 Recordset MoveLast n Form2 Adodc1 Recordset Fields cnum 沈阳航空航天大学课程设计报告 附 录 25 Form2 Adodc1 Recordset AddNew Form2 Adodc1 Recordset Fields English Trim Text1e Text Form2 Adodc1 Recordset Update Form2 Adodc1 Refresh Form2 Adodc1 Recordset MoveLast enumber Form2 Adodc1 Recordset Fields Enum Form2 Adodc1 Recordset Close Form2 Adodc2 RecordSource select from chinese Form2 Adodc2 Refresh Form2 Adodc2 Recordset MoveLast n Form2 Adodc1 Recordset Fields cnum Form2 Adodc2 Recordset AddNew Form2 Adodc2 Recordset Fields Chinese Trim Text2c Text Form2 Adodc2 Recordset Update Form2 Adodc2 Refresh Form2 Adodc2 Recordset MoveLast cnumber Form2 Adodc2 Recordset Fields Cnum Form2 Adodc2 Recordset Close End If 沈阳航空航天大学课程