1、VB课程设计报告 题目：背单词管理系统设计 专业：信息工程（信息安全） 班级：1132101 学号：20113021037 姓名：包正巍 指导老师：魏树权 时间：2013年1月6号 目 录 摘要3一实验要求4二设计方案4三截图分析5总结17 摘要： Visual Basis 是美国Microsoft公司在1991年推出的Windows环境下开发的软件。Visual意为“可视化的”，指的是一种开发图形用户界面的方法。Basis是20世纪60年代初产生的一门计算机程序设计语言，它以简单易学，使用方便的特点，得到了广泛的应用；同时Visual Basis 6.0在前几个版本的基础上进一步发展。本设计
2、主要应用Visual Basis 6.0，并且Visual Basis 6.0有在所有开发语言中最简单，最容易使用的语言，简单易学，功能强大等，优点。SQL Server是微软公司开发的数据库产品，SQL Server 2000被广泛使用，很多电子商务网站、企业内部信息化平台等都是基于SQL Server产品上。 今天的商业环境要求不同类型的数据库解决方案。性能、可伸缩性及可靠性是基本要求，而进入市场时间也非常关键。除这些核心企业品质外，SQL Server 2000 还为您的数据管理与分析带来了灵活性，允许单位在为企业赢得核心竞争优势打开了胜利之门。同时SQL Server 2000具有高性
3、能设计，可充分利用WindowsNT的优势；系统管理先进，支持Windows图形化管理工具，支持本地和远程的系统管理和配置;强壮的事务处理功能，采用各种方法保证数据的完整性;支持对称多结构 管理工具、存储过程、ODBC，并具有自主的SQL语言。 SQLServer以其内置的数据复制功能、强大的、与Internet的紧密集成和开放的系统结构为广大的用户、开发人员和系统集成商提供了一个出众的数据库平台；同时实现与Visual Basis 6.0的连接，以Visual Basis 6.0为界面对数据库进行访问。1 实验要求简易背单词系统（采用数据库方式实现）：1) 词库维护：既增加新的单词。2) 根
4、据词库，自动弹出弹出中文题目，用户输入英文以后，系统判断是否正确，并给出正确答案。3) 输入一个中文，可以得出相应的英文单词！二.设计方案显示中文输入单词输入中文输入英文 单词测试输入中文显示英文 新增单词 单词查询 系统主界面上图是整个背单词上图是整个背单词系统的逻辑结构，概要设计中各个功能模块的划分就是依据上图来实现的。1 单词查询：可以输入的中文查询，显示显示英文2 新增单词：可以输入英文和中文并且添加。3 单词测试：可以按显示中文，输入英文，如果不正确可以得到正确的答案，和分数。 三截图分析：对数据库表的截图： 四.VB系统设计：系统登陆界面设计程序代码：Private Sub Com
5、mand1_Click()Form2.ShowEnd SubPrivate Sub Form_Load()End Sub 程序代码：Private Sub Command1_Click()Form3.ShowEnd SubPrivate Sub Command2_Click()Form4.ShowEnd SubPrivate Sub Command3_Click()Form5.ShowEnd SubPrivate Sub Form_Load()End Sub 单词查询： 程序代码：Private Sub Command2_Click() rs.MoveNext End SubPrivate S
6、ub Command3_Click() If Not rs.EOF Then rs.MoveNext If Not rs.EOF Then Text2 = rs.Fields(0) End If End IfEnd SubPrivate Sub Command4_Click()Unload MeEnd SubPrivate Sub Form_Load()End Sub新增单词：程序代码：Dim sql As StringPrivate Sub Command1_Click() Adodc1.Recordset.AddNew Adodc1.RefreshEnd SubPrivate Sub Co
7、mmand2_Click() Adodc1.Recordset.Delete Adodc1.RefreshEnd SubPrivate Sub Command3_Click()Unload MeEnd SubPrivate Sub Form_Load()End Sub 单词测试：程序代码：Dim a As SingleDim b As SingleDim c As StringDim d As ObjectDim rs As New ADODB.RecordsetPrivate Sub Command1_Click()If Text2.Text = c Thena = a + 1Label4.
8、Caption = ElseLabel4.Caption = cEnd Ifb = b + 1End SubPrivate Sub Command2_Click()Unload MeEnd SubPrivate Sub Command3_Click()rs.MoveNextIf rs.EOF Thenrs.MoveLastMsgBox 已经是最后一条记录!, vbExclamation, 提示End IfEnd SubPrivate Sub Command4_Click()Picture1.Print 得分为 & & a / b * 100&; 分End SubPrivate Sub Form
9、_Load()Dim cn As New ADODB.ConnectionDim rs As New ADODB.RecordsetDim flag As BooleanDim cn_str As String, sql_str As Stringcn_str = DRIVER=SQL SERVER;SERVER=LENOVO-PC;DATABASE=dancicn.Open cn_strsql_str = select * from wordrs.CursorLocation = adUseClientrs.Open sql_str, cn_str, adOpenDynamic, adLockOptimisticText1.Text = Trim(rs(0)c = Trim(rs(1)End Sub总结：通过做课程设计，让我懂得我们必须有扎实的理论知识，同时要开放思维，善于创造，多与人交流，在此次试验中有几个难点，一，是数据库与vb的链接，还有单词测试系统的记分，和对下一个单词的打开！在这里谢谢魏老师的指导与帮助！17
