英语字典Word文档格式.docx
《英语字典Word文档格式.docx》由会员分享,可在线阅读,更多相关《英语字典Word文档格式.docx(10页珍藏版)》请在冰豆网上搜索。
![英语字典Word文档格式.docx](https://file1.bdocx.com/fileroot1/2022-11/27/950fa1e3-e8c7-4e6c-a241-2f7b0787a13c/950fa1e3-e8c7-4e6c-a241-2f7b0787a13c1.gif)
二、课程设计内容
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‘关闭记录集
窗体-查询:
3销售图书是更改数据库中图书信息
Update<
Set<
字段>
=<
表达式>
[,<
]Where<
PrivateSubCommand3_Click()
DimcheshuAsInteger,sqlstrAsString
DimiAsSingle‘声明变量属性
n=Val(Text2.Text)
cheshu=Val(Text6.Text)
Fori=1Tocheshu
Settempset=NewADODB.Recordset
tempset.LockType=adLockOptimistic
sqlstr="
UPDATE图书SET出售册数=出售册数+1WHERE图书编号="
m
cnn.Executesqlstr
NextI‘运用“For…Next”语句完成对数据库中出售册数的更改
MsgBox"
完成"
窗体-销售图书:
4购进图书是向数据库中添加新书信息
InsertInto<
目标表名>
<
字段1>
[,<
字段2>
…]Values<
值1>
值2>
…]
PrivateSubCommand2_Click()
Dimsqlstr$
n=Text2.Text
c=Text3.Text
d=Text4.Text
e=Text5.Text
f=Text6.Text
g=Text7.Text‘确定变量值
insertinto图书values("
m&
'
n&
'
c&
'
"
e&
"
d&
"
g&
f&
)"
‘输入新的数据信息
cnn.Executesqlstr
MsgBox"
EndSub
窗体-购进图书:
总结
这次课设我的题目是书店图书销售系统,通过这次课设让我了解了VB与数据库之间的联系,可以应用ADO技术使VB与数据库进行联系,还可以应用SQL语言查询和更改数据库中的信息,并能向其中添加新的信息。
在课设过程中,我遇到了重重困难,例如:
VB与数据库的连接技术,通过老师的指点和自己查阅资料,我克服了困难,顺利的完成了任务。
同时我也了解了VB的出现是一场技术革命,它在生活中各个方面都能发挥巨大的作用,所以,学好VB是社会发展的需要。
完整的源程序
DimcnnAsADODB.Connection
DimtempsetAsADODB.Recordset
DimaAsSingle,bAsString,cAsString,dAsSingle,eAsSingle,fAsSingle,gAsSingle,mAsSingle,nAsString
PrivateSubCommand1_Click()查询
购进单价
Text9.Text=(a-e)*(d-f)
tempset.Close
PrivateSubCommand2_Click()购进图书
g=Text7.Text
PrivateSubCommand3_Click()销售图书
DimiAsSingle
Nexti
PrivateSubFrame1_DragDrop(SourceAsControl,XAsSingle,YAsSingle)
参考文献
[1]刘瑞新.《VisualBasic程序设计教程》.北京:
机械工业出版社,2003
[2]冯博琴刘路放.《精讲多练C语言》.西安:
西安交通大学出版社,1997