英语字典.docx
《英语字典.docx》由会员分享，可在线阅读，更多相关《英语字典.docx（10页珍藏版）》请在冰豆网上搜索。
英语字典
沈阳航空航天大学
课程设计
学号:
2009040601302
班级:
94060108
姓名:
田野
指导教师：
刘成
2011年3月26日
沈阳航空工业学院
课程设计任务书
学院：
机电专业：
机械设计班级：
94060108
学号：
2009040601302题目：
英语字典
一、课程设计时间
2010~11第2学期第1~2周，共计2周，40学时。
二、课程设计内容
1对于一般用户,可以查阅用户输入的英文单词,并显示单词的”汉语词义”,”英文例句”等关键信息
2对于超级用户,有权向词典中加入新单词,也有权利修改错误的单词及其”汉语词义”,”英文例句”等关键信息.
提示：
用vb和access组合开发。
英文单词的“汉语词义”和“英文例句”等关键信息应使用access存储；vb则访问access中的数据。
三、课程设计要求
程序质量：
✧贯彻事件驱动的程序设计思想。
✧用户界面友好，功能明确，操作方便；可以加以其它功能或修饰。
✧用户界面中的菜单至少应包括“进书”、“售书”、“计算利润”、“书库现状”、“出售现状”、“退出”6项。
✧代码应适当缩进，并给出必要的注释，以增强程序的可读性。
课程设计说明书：
✧课程结束后，上交课程设计说明书和源程序。
课程设计说明书的内容参见提供的模板。
四、指导教师和学生签字
指导教师：
________学生签名：
________
五、成绩
六、教师评语
目录
需求分析4
设计分析4
关键技术6
总结10
完整的源程序11
参考文献13
需求分析
设计英文字典，主要包括单词查询，单词修改和单词增添三方面。
①在Access中创建words表，此表的结构应如下定义：
汉语词义，英文例句。
②普通用户可以进行单词的查询
③超级用户可以进行单词的修改和增添
设计分析
（1）基本原理：
建立程序设计与数据库的连接，用SQL语句在数据库中查找，添加和更改数据。
（2）总体设计：
（3）详细设计：
关键技术
1建立与数据库的连接代码如下
OptionExplicit
OptionBase1
DimcnnAsADODB.Connection‘声明变量作为连接对象
DimtempsetAsADODB.Recordset‘声明变量作为记录对象
DimaAsSingle,bAsString,cAsString,dAsSingle,eAsSingle,fAsSingle,gAsSingle,mAsSingle,nAsString‘声明变量属性
PrivateSubForm_Load（）
Setcnn=NewADODB.Connection
cnn.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;"&_
"DataSource=2031.mdb"‘连接数据源
cnn.ConnectionTimeout=30
cnn.Open
EndSub
2单词查询情况是SLQ语句在数据库中查找单词信息
Select<字段名表>From<表名>Where<条件>
程序段如下：
PrivateSubCommand1_Click（）
Dimsqlstr$‘声明变量
m=Val（Text1.Text）
Settempset=NewADODB.Recordset
tempset.CursorType=adOpenKeyset
tempset.LockType=adLockOptimistic‘定义记录集属性，包括名，光标属性，锁类型
sqlstr="SELECT图书名称,出版社,购进册数,购进单价,出售价格,出售册数FROM图书WHERE图书编号="&m‘进入数据表的途径
tempset.Opensqlstr,cnn,,,adCmdUnknown
IfNottempset.EOFThen
b=tempset!
图书名称
c=tempset!
出版社
d=tempset!
出售价格
e=tempset!
出售册数
a=tempset!
购进册数
f=tempset!
购进单价‘将变量赋予数据库相应值
tempset.MoveNext
Text2.Text=b
Text3.Text=c
Text4.Text=a
Text5.Text=f
Text6.Text=e
Text7.Text=d
Text8.Text=a-e
Text9.Text=（a-e）*（d-f）‘将变量值和公式值写入文本框中
EndIf
tempset.Close‘关闭记录集
EndSub
窗体-查询：
3销售图书是更改数据库中图书信息
Update<表名>Set<字段>=<表达式>[,<字段>=<表达式>]Where<条件>
程序段如下：
PrivateSubCommand3_Click（）
DimcheshuAsInteger,sqlstrAsString
DimiAsSingle‘声明变量属性
m=Val（Text1.Text）
n=Val（Text2.Text）
cheshu=Val（Text6.Text）
Fori=1Tocheshu
Settempset=NewADODB.Recordset
tempset.CursorType=adOpenKeyset
tempset.LockType=adLockOptimistic
sqlstr="UPDATE图书SET出售册数=出售册数+1WHERE图书编号="&m
cnn.Executesqlstr
NextI‘运用“For…Next”语句完成对数据库中出售册数的更改
MsgBox"完成"
EndSub
窗体-销售图书：
4购进图书是向数据库中添加新书信息
InsertInto<目标表名><字段1>[,<字段2>…]Values<值1>[,<值2>…]
程序段如下：
PrivateSubCommand2_Click（）
Dimsqlstr$
m=Val（Text1.Text）
n=Text2.Text
c=Text3.Text
d=Text4.Text
e=Text5.Text
f=Text6.Text
g=Text7.Text‘确定变量值
Settempset=NewADODB.Recordset
tempset.CursorType=adOpenKeyset
tempset.LockType=adLockOptimistic
sqlstr="insertinto图书values（"&m&",'"&n&"','"&c&"',"&e&","&d&","&g&","&f&"）"‘输入新的数据信息
cnn.Executesqlstr
MsgBox"完成"
EndSub
窗体-购进图书：
总结
这次课设我的题目是书店图书销售系统，通过这次课设让我了解了VB与数据库之间的联系，可以应用ADO技术使VB与数据库进行联系，还可以应用SQL语言查询和更改数据库中的信息，并能向其中添加新的信息。
在课设过程中，我遇到了重重困难，例如：
VB与数据库的连接技术，通过老师的指点和自己查阅资料，我克服了困难，顺利的完成了任务。
同时我也了解了VB的出现是一场技术革命，它在生活中各个方面都能发挥巨大的作用，所以，学好VB是社会发展的需要。
完整的源程序
OptionExplicit
OptionBase1
DimcnnAsADODB.Connection
DimtempsetAsADODB.Recordset
DimaAsSingle,bAsString,cAsString,dAsSingle,eAsSingle,fAsSingle,gAsSingle,mAsSingle,nAsString
PrivateSubCommand1_Click（）查询
Dimsqlstr$
m=Val（Text1.Text）
Settempset=NewADODB.Recordset
tempset.CursorType=adOpenKeyset
tempset.LockType=adLockOptimistic
sqlstr="SELECT图书名称,出版社,购进册数,购进单价,出售价格,出售册数FROM图书WHERE图书编号="&m
tempset.Opensqlstr,cnn,,,adCmdUnknown
IfNottempset.EOFThen
b=tempset!
图书名称
c=tempset!
出版社
d=tempset!
出售价格
e=tempset!
出售册数
a=tempset!
购进册数
f=tempset!
购进单价
tempset.MoveNext
Text2.Text=b
Text3.Text=c
Text4.Text=a
Text5.Text=f
Text6.Text=e
Text7.Text=d
Text8.Text=a-e
Text9.Text=（a-e）*（d-f）
EndIf
tempset.Close
EndSub
PrivateSubCommand2_Click（）购进图书
Dimsqlstr$
m=Val（Text1.Text）
n=Text2.Text
c=Text3.Text
d=Text4.Text
e=Text5.Text
f=Text6.Text
g=Text7.Text
Settempset=NewADODB.Recordset
tempset.CursorType=adOpenKeyset
tempset.LockType=adLockOptimistic
sqlstr="insertinto图书values（"&m&",'"&n&"','"&c&"',"&e&","&d&","&g&","&f&"）"
cnn.Executesqlstr
MsgBox"完成"
EndSub
PrivateSubCommand3_Click（）销售图书
DimcheshuAsInteger,sqlstrAsString
DimiAsSingle
m=Val（Text1.Text）
n=Val（Text2.Text）
cheshu=Val（Text6.Text）
Fori=1Tocheshu
Settempset=NewADODB.Recordset
tempset.CursorType=adOpenKeyset
tempset.LockType=adLockOptimistic
sqlstr="UPDATE图书SET出售册数=出售册数+1WHERE图书编号="&m
cnn.Executesqlstr
Nexti
MsgBox"完成"
EndSub
PrivateSubForm_Load（）
Setcnn=NewADODB.Connection
cnn.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;"&_
"DataSource=2031.mdb"
cnn.ConnectionTimeout=30
cnn.Open
EndSub
PrivateSubFrame1_DragDrop（SourceAsControl,XAsSingle,YAsSingle）
EndSub
参考文献
[1]刘瑞新．《VisualBasic程序设计教程》．北京：
机械工业出版社，2003
[2]冯博琴刘路放．《精讲多练C语言》．西安：
西安交通大学出版社，1997
升级会员 