英语字典.docx

1、英语字典沈 阳 航 空 航 天 大 学 课程设计学 号: 2009040601302班 级:94060108姓 名:田野指导教师： 刘成2011年 3 月 26 日沈阳航空工业学院课程设计任务书学院：机电 专业：机械设计 班级：94060108学号：2009040601302 题目：英语字典一、课程设计时间201011第2学期第12周，共计2周，40学时。二、课程设计内容1对于一般用户,可以查阅用户输入的英文单词,并显示单词的”汉语词义”,”英文例句”等关键信息2对于超级用户,有权向词典中加入新单词,也有权利修改错误的单词及其”汉语词义”,”英文例句”等关键信息.提示：用vb和access组合

2、开发。英文单词的“汉语词义”和“英文例句”等关键信息应使用access存储；vb则访问access中的数据。三、课程设计要求程序质量： 贯彻事件驱动的程序设计思想。 用户界面友好，功能明确，操作方便；可以加以其它功能或修饰。 用户界面中的菜单至少应包括“进书”、“售书”、“计算利润”、“书库现状”、“出售现状”、“退出”6项。 代码应适当缩进，并给出必要的注释，以增强程序的可读性。课程设计说明书： 课程结束后，上交课程设计说明书和源程序。课程设计说明书的内容参见提供的模板。四、指导教师和学生签字指导教师：_ 学生签名：_五、成绩六、教师评语目 录需求分析 4设计分析 4关键技术 6总结 10完

3、整的源程序 11参考文献 13需求分析设计英文字典，主要包括单词查询，单词修改和单词增添三方面。在Access中创建words 表，此表的结构应如下定义：汉语词义，英文例句。普通用户可以进行单词的查询超级用户可以进行单词的修改和增添设计分析（1） 基本原理：建立程序设计与数据库的连接，用SQL语句在数据库中查找，添加和更改数据。（2） 总体设计：（3）详细设计：关键技术1建立与数据库的连接代码如下Option ExplicitOption Base 1Dim cnn As ADODB.Connection声明变量作为连接对象Dim tempset As ADODB.Recordset声明变量作

4、为记录对象Dim a As Single, b As String, c As String, d As Single, e As Single, f As Single, g As Single, m As Single, n As String声明变量属性Private Sub Form_Load() Set cnn = New ADODB.Connection cnn.ConnectionString = Provider=Microsoft.Jet.OLEDB.4.0; & _ Data Source=2031.mdb连接数据源 cnn.ConnectionTimeout = 30 c

5、nn.Open End Sub 2单词查询情况是SLQ语句在数据库中查找单词信息SelectFromWhere程序段如下： Private Sub Command1_Click()Dim sqlstr$ 声明变量 m = Val(Text1.Text) Set tempset = New ADODB.Recordset tempset.CursorType = adOpenKeyset tempset.LockType = adLockOptimistic定义记录集属性，包括名，光标属性，锁类型 sqlstr = SELECT 图书名称, 出版社, 购进册数,购进单价,出售价格, 出售册数 F

6、ROM 图书 WHERE 图书编号= & m进入数据表的途径 tempset.Open sqlstr, cnn, , , adCmdUnknown If Not tempset.EOF Then 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 =

7、e Text7.Text = d Text8.Text = a - e Text9.Text = (a - e) * (d - f)将变量值和公式值写入文本框中 End If tempset.Close关闭记录集End Sub窗体-查询：3销售图书是更改数据库中图书信息UpdateSet=,=Where程序段如下：Private Sub Command3_Click()Dim cheshu As Integer, sqlstr As StringDim i As Single声明变量属性 m = Val(Text1.Text) n = Val(Text2.Text)cheshu = Val(T

8、ext6.Text)For i = 1 To cheshuSet tempset = New ADODB.Recordset tempset.CursorType = adOpenKeyset tempset.LockType = adLockOptimisticsqlstr = UPDATE 图书 SET 出售册数=出售册数+ 1 WHERE 图书编号 = & mcnn.Execute sqlstrNext I运用“ForNext”语句完成对数据库中出售册数的更改MsgBox 完成End Sub窗体-销售图书：4购进图书是向数据库中添加新书信息Insert Into , Values ,程序

9、段如下：Private Sub Command2_Click()Dim sqlstr$ m = Val(Text1.Text) n = Text2.Text c = Text3.Text d = Text4.Text e = Text5.Text f = Text6.Text g = Text7.Text确定变量值 Set tempset = New ADODB.Recordset tempset.CursorType = adOpenKeyset tempset.LockType = adLockOptimistic sqlstr = insert into 图书 values ( & m

10、& , & n & , & c & , & e & , & d & , & g & , & f & ) 输入新的数据信息 cnn.Execute sqlstr MsgBox 完成 End Sub窗体-购进图书：总结 这次课设我的题目是书店图书销售系统，通过这次课设让我了解了VB与数据库之间的联系，可以应用ADO技术使VB与数据库进行联系，还可以应用SQL语言查询和更改数据库中的信息，并能向其中添加新的信息。 在课设过程中，我遇到了重重困难，例如：VB与数据库的连接技术，通过老师的指点和自己查阅资料，我克服了困难，顺利的完成了任务。 同时我也了解了VB的出现是一场技术革命，它在生活中各个方面都能

11、发挥巨大的作用，所以，学好VB是社会发展的需要。完整的源程序Option ExplicitOption Base 1Dim cnn As ADODB.ConnectionDim tempset As ADODB.RecordsetDim a As Single, b As String, c As String, d As Single, e As Single, f As Single, g As Single, m As Single, n As StringPrivate Sub Command1_Click()查询Dim sqlstr$ m = Val(Text1.Text) Set

12、tempset = New ADODB.Recordset tempset.CursorType = adOpenKeyset tempset.LockType = adLockOptimistic sqlstr = SELECT 图书名称, 出版社, 购进册数,购进单价,出售价格, 出售册数 FROM 图书 WHERE 图书编号= & m tempset.Open sqlstr, cnn, , , adCmdUnknown If Not tempset.EOF Then b = tempset!图书名称 c = tempset!出版社 d = tempset!出售价格 e = tempset

13、!出售册数 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) End If tempset.CloseEnd SubPrivate Sub Command2_Click()购进图书Dim sqlstr$ m = Val(Text1.Text) n = Text2.Te

14、xt c = Text3.Text d = Text4.Text e = Text5.Text f = Text6.Text g = Text7.Text Set tempset = New ADODB.Recordset tempset.CursorType = adOpenKeyset tempset.LockType = adLockOptimistic sqlstr = insert into 图书 values ( & m & , & n & , & c & , & e & , & d & , & g & , & f & ) cnn.Execute sqlstr MsgBox 完成

15、End SubPrivate Sub Command3_Click()销售图书Dim cheshu As Integer, sqlstr As StringDim i As Single m = Val(Text1.Text) n = Val(Text2.Text)cheshu = Val(Text6.Text)For i = 1 To cheshuSet tempset = New ADODB.Recordset tempset.CursorType = adOpenKeyset tempset.LockType = adLockOptimisticsqlstr = UPDATE 图书 SE

16、T 出售册数=出售册数+ 1 WHERE 图书编号 = & mcnn.Execute sqlstrNext iMsgBox 完成End SubPrivate Sub Form_Load() Set cnn = New ADODB.Connection cnn.ConnectionString = Provider=Microsoft.Jet.OLEDB.4.0; & _ Data Source=2031.mdb cnn.ConnectionTimeout = 30 cnn.Open End SubPrivate Sub Frame1_DragDrop(Source As Control, X As Single, Y As Single)End Sub参考文献1 刘瑞新Visual Basic程序设计教程北京：机械工业出版社，20032 冯博琴 刘路放精讲多练C语言西安：西安交通大学出版社，1997