英语学习助手-数据库课程设计

英学手-据课计

大学计算机科学与术系数据库课程设题目：英语学习助手班级：指导教师：完成日期：2014年月学号

姓名

负责模块

成绩组长成员成员成员成员

1623050106

短文翻译测试单词例句系统维护

1统设1.1标随社发和的步语经为们常活作必握应言为好更掌英础识快具英话写力适前们作生要推语习及所们小集发这整英习手测试，大使提改见1.2发思本统设思采学有硬境及的理统方从而达充用校在源高开水应效目的应合学现多体满足生英学需并到操过程直方、、助求采模程设法既系功的组和又便参开的术人补维。

系应数库功及根据户需进据添删、修备操。1.3开发行境开工Visual运环9x、WindowsNT、操作。1.4系统分本统用不次们语习主要能助们同次汇习日应句学该统包词例、、文翻四。“汇主包含用汇及翻能够现汇找添修和等能以进不度选习“句主包括活的常语，且可自加的并现有句修和除1.5系统模设本统能为几模1.词模：括单表建立，单录

入修删等操。表括和汉翻及级、、高三种度词的分。录要够现（加词及汉译改求改词写及其语；除够除单记2.句模：括例表建立，例录入修删等操。表括及其文等。句要能现（加例及其语译改求改句单以汉意删即能删一句记。3.题模：择初、级、高级单词随成份难的测表。以给英词择确汉译，选每测词数答能给分并可择测。4.检块包词索句索单检实输个词，可检索它汉翻其度。例检能现其中关可检索出完句及文译5.护模：求实数备份和数复

功，备当据（表容、选择复数库份前库在、充好库可其份，并有明的存径据恢以数恢到化2.

数据库计2.1数库求根英习求求查统画如所示的流。1.11.21.3输入单词

修改单词

删除单词用户

D1

单表2.1

2.22.3输入例句

修改例句

删除例句D2

例句表2.2

图2-1数程数库设有数图用E-R图来明英学助的库念，图2-2示

英学

单编

例

词

级句翻

关

单

翻2.3

图2-2实之关系E-R数库设将上E-R换如下系式单（号单级、）例（、子译关）其有划字表该据主即关键在面体及之间系础形成据的格各个格的系英学手据各表设结果下几表示每表表数据中个。表2-1词表，表2-2为句表表2-1

词表

列单号单翻级表2-2列编句翻关词

数类数文文文数类数文文文

长长

说升排英词汉词分、高例表说仅数英句汉句英单3各个功能模的具体现开界设界如

图3-1功及说：单主各单入应模单击作软设人。单退出手钮退该。源序：PrivateSubtest.ShowPrivateSubCommand1_Click()UnloadMe

PrivateSubPrivateSubPrivateSubForm_Load()PrivateSubsentense.ShowPrivateSubPrivateSubzz_Click()3．1设完：静完模单模单模计

功及说：如所在Text输要的词单查”，显汉意单词别可击一”下个钮进词览如有库满用求则击加单”加新；如现汇在户单击辑单词进词汇其译和度级的改，该词不要则户单“除词直删词记图进入加单”界后，图3.1-2所在应框输对应容，后选设

级，确”便保入汇成后出框单经入。进入编单”操界面加新单操相用可相的。击除此词钮弹示“删此单“按，除前，击”则消操。图源序：DimdbAsDAO.DatabasePublicrecAsDimrec1DAO.RecordsetPrivateSubCommand1_Click()Setrec1=IfText1.Text<>""ThenDoWhilerec1!单<>Text1.Text

rec1.MoveNextIfIfAndThenIfrec1.BOFThenrec1.MoveFirstIf单IfPrivateSubCommand2_Click()UnloadMePrivateSubCommand3_Click()Setrec1=IfText1.Text<>""ThenDoWhilerec1!单<>Text1.Textrec1.MoveNextIf

IfAndThenrec1.MoveNextIfThenrec1.MoveLastIf单IfPrivateSubCommand4_Click()PrivateSubCommand5_Click()=单=翻word_in.Cob.Textrec!PrivateSubCommand6_Click()If<>0If要删除吗？",vbYesNo)=vbYes

Set

rec*")'法按词IfNotAndThenrec.MoveFirst(cnt)词=rec!译=rec!别&"级"IfIfIfPrivateSubCommand7_Click()Setrec*fromwordwhere词='"&&"'orderby单")'无按单排IfThen

=rec!翻=rec!级&"词"IfPrivateSubForm_Load()Set=&DimdbAsDAO.DatabaseDimDAO.RecordsetPrivateSubCommand1_Click()If""And""rec.MoveFirstDoWhileNotrec.EOFrec!号Ifrec!=ThenExitDoElserec.MoveNextIf

Ifrec.EOFThenrec!词号+1rec!词=Text1.Textrec!译=Text2.Textrec!别=rec.UpdateElseIfMsgBox("该词已存要覆吗",vbYesThenrec.Editrec!译rec!别Cob.Textrec.UpdateIfIf("单已入")Else("单输能空")IfUnloadMe

PrivateSubCommand2_Click()UnloadMePrivateSubForm_Load()Set=&Setrecdb.OpenRecordset("word")"初""中""高"=PrivateSubForm_Unload(Cancel3．2设完：志完模例模例模计功及说：

图3.2-1图

源序：DimdbAsDAO.DatabaseDimDAO.RecordsetDimrec1DAO.RecordsetDimrec2DAO.RecordsetPrivateSubCommand1_Click()Setrec2=*fromIfAndThenIfrec2.BOFThenrec2.MoveFirstIfSetrec=*&rec2!id)rec!id=rec!¾ä×Ó=rec!·-ÒëIfPrivateSubCommand2_Click()Dimtemp

DimAsDimDimkeyword=*keyword='"&keyword&"'"Setrec1=db.OpenRecordset(strsql)Ifrec1.EOFThen==rec1!¾ä×ÓElse

"²éѯ²»µ½ËùÐèµÀý¾ä",vbOKOnly,"ϵͳÌáʾ"IfPrivateSubCommand3_Click()Setrec2=*fromIfAndThenrec2.MoveNextIfrec2.BOFThenrec2.MoveLast

IfSetrec=*&rec2!id)==rec!·-ÒëIfPrivateSubCommand4_Click()PrivateSubCommand5_Click()IfText1.Text<>""ThenSetrec=*&&"'")

=rec!¾ä×Ó=

=rec!keywordsentense_in.Caption=

ElsevbOKOnly,"ϵͳÌáʾ"If

!",PrivateSubCommand6_Click()Setrec=*&&"'")If

vbYesNo)=vbYesSet

rec1*fromwhereid="&&"")rec1.DeleteIfPrivateSubCommand7_Click()UnloadMe

PrivateSubForm_Load()Set=&Setrec2=*from3．3设完：晨完模测模测模计功及说：如3.3-1所示进入试体后用自输测单目选度开始试钮进试如示窗体显语词试选为确意然“一当完所求目，“一按将成交字，出提框显示的分是**分。然可以确进下的试

图图源序：DimdbAsDAO.Database

DimDAO.RecordsetPubliclevel1StringPublicsumAsIntegerPrivateSubCommand1_Click()Cob1.Texttest_on.ShowPrivateSubCommand2_Click()UnloadMePrivateSubForm_Load()Set=&Setrecdb.OpenRecordset("word")"初""中""高"=PublicIntegerDimdbAsDAO.Database

DimDAO.RecordsetDimAsDimcntAsIntegerDimIntegerDimmarkAsIntegerPrivateSubCommand1_Click()CalljudgeIftest.sumCommand1.Caption="交"ElseCallaskIfIf="交"Thenscoremark/test.sum*100("的得是"&score&分")UnloadMeIfPrivateSubCommand2_Click()UnloadMe

PrivateSubForm_Load()Set=&Setrec*fromword级='"&test.level1&"'")cntrec.MoveFirsti=mark0CallaskPrivateSubi=1Command1.Caption="下题"ForjTo3""Nexttemp=Int(Rnd()*rec.MoveFirstrec.Move(tempMod=rec!词'正词翻

译入4).Caption=rec!翻crt=tempModForjTo3kj1rec.MoveFirsttemp=Int(Rnd()*rec.Move(tempMod'一错翻译DoWhile

翻

译

=test_on.Label(crt).Captiontemp=Int(Rnd()*rec.MoveFirstrec.Move(tempModDoWhileLabel(k).Caption""'放一个行去k+1=rec!翻Next

PrivateSubjudge()IfOption1(crt).ValueThenmarkmark+If3．4设完：永完模短翻短翻块计功及说：如3.4-1所在Text输要的英短点“翻”，在显示汉译点返”，退窗体返主单

图源序：DimdbAsDAO.DatabaseDimDAO.RecordsetPrivateSubCommand1_Click()i=l=Len(tx)txt=""=""DoWhile<=l+If<=Mid(tx,1)

IfIfch<>""Andiltxt=&chElseIflThentxt=&chIfSet

rec*fromwordwhere单='"&txt&"'")If<>0=rec!Else=IfLabel2.Caption&txt=""=""Ifi=1

PrivateSubCommand2_Click()UnloadMePrivateSubForm_Load()Set=&Setrecdb.OpenRecordset("word")3．5设完：亭完模系维系维块计功及说：

图源序：DimfsoAsNewFileSystemObjectDimmuluAsDimAsFilePrivateSubCommand1_Click()IfOption1.Value=i=l=Len(Text1.Text)""DoWhilel""

Mid(s,1)DoWhilech<>"\"i=1IflThen