英语字典.docx
- 文档编号:4072001
- 上传时间:2022-11-27
- 格式:DOCX
- 页数:10
- 大小:69.37KB
英语字典.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
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 英语 字典