VB列车时刻表查询

1、 课课程程设计题设计题目目: 简简易列易列车时车时刻刻查询查询表表专业专业： ： 信息工程（信息安全方向）信息工程（信息安全方向） 班班级级： ： 1132101 学号学号: 201130210126 姓名：姓名： 某某某某某某 指指导导老老师师： ： vb 老老师师 2013-1-4Vb 简易列车查询表课程设计报告 目录0目目 录录第第 1 章章 系统分析系统分析.11.1 需求分析 .11.2 使用工具 .11.3 VB 编程技术简介.1第第 2 章章 概要设计概要设计.22.1 总体方案设计 .22.1.1 功能分析 .22.1.2 功能模块图 .2第第 3 章章详细设计详细设计.33.

2、1 数据库逻辑模型设计 .33.1.1 管理员信息表 .33.1.2 火车信息表 .33.2 系统功能详细设计 .43.2.1 时刻表查询模块 .53.2.2 时刻表管理模块 .53.2.3 系统管理模块 .5第第 4 章章 调试分析调试分析.6第第 5 章章 界面简介界面简介.75.1 进入界面 .85.2 用户登录界面 .8 5.2.1 添加、修改用户名及密码界面95.3 时刻表查询管理系统界面 .105.4 时刻表查询界面 .115.5 时刻表管理（添加、删除、修改）界面12第六章第六章 课程设计总结课程设计总结13附附 录（录（相关代码相关代码）.21Vb 简易列车查询表课程设计报告

3、第一章 系统分析 - 0 - 第 1 章 系统分析1.1 需求分析需求分析 设计和实现一个火车时刻表查询系统，该系统包括火车时刻表查询，时刻表管理及系统管理。其中火车时刻表基本信息包括车次号、始发站、终点站、始发时间、终到时间、途径主要站点及时间等信息；火车时刻表查询按车次、始发站、终点站和途径主要站点进行查询；时刻表管理包括对线路和途径主要站点进行增加、修改和删除操作；系统管理包括添加管理员信息和修改密码。1.2 使用工具使用工具对火车时刻表和管理员信息进行管理，实现一些简单的操作。所用的工具是：前台是 Visual Basic,后台是 SQL server2000。通过 ADODC 接口将

4、 Visual Basic 和数据库相连，编写程序实现维修系统中的功能。1.3 VB 编程技术简介编程技术简介Visual Basic 是一种可视化的、面向对象和采用事件驱动方式的结构化高级程序设计语言，可用于开发 Windows 环境下的各类应用程序。它简单易学、效率高，且功能强大可以与 Windows 专业开发工具 SDK 相媲美。在 Visual Basic环境下，利用事件驱动的编程机制、新颖易用的可视化设计工具，使用 Windows内部的广泛应用程序接口（API）函数，以用动态链接库（DLL） 、对象的链接与世隔嵌入（OLE） 、开放式数据连接（ODBC）等技术，可以高效、快速地开发W

5、indows 环境下功能强大、图形界面丰富的应用软件系统。VB 具有强大的数据库访问功能。VB 利用数据控件可以访问多种数据库，VB 6O 提供的 ADO 控件，不但可以用最少的代码实现数据库操作和控制，也可以取代 Data 控件和 RDO 控件。Vb 简易列车查询表课程设计报告 第 2 章 概要设计2 - 0 -第 2 章 概要设计2.1 总体方案设计总体方案设计2.1.1 功能分析功能分析根据题目要求，本系统可以分为三个功能模块：时刻表查询功能模块、时刻表管理功能模块和系统管理功能模块。其中查询功能模块实现对火车信息的查询；时刻表管理功能模块实现对火车信息的增加、修改和删除操作；系统管理功

6、能模块实现对管理员信息的管理。2.1.2 功能模块图功能模块图 火车时刻表查询系统总体模块图如图 2.1 所示。图图 2.1 系统总体模块图系统总体模块图火车时刻表查询系统时刻表查询时刻表管理系统管理Vb 简易列车查询表课程设计报告 第 2 章 概要设计2 - 1 -Vb 简易列车查询表课程设计报告 第 3 章 详细设计-2- 2 -第 3 章详细设计 3.1 数据库逻辑模型设计数据库逻辑模型设计根据课程设计的要求，火车时刻表的属性有车次号、始发站、终点站、始发时间、终到时间、途径主要站点及时间，管理员信息表的属性有管理员名称和登录密码。3.1.1 管理员信息表管理员信息表说明：存放管理员的基

7、本信息，包括管理员名称和登录密码。本表中主键是管理员名称。管理员信息表如表 3.1 所示。表表 3.1 管理员信息表管理员信息表列名数据类型长度是否允许空说明UserName文本10No管理员名称Userpwd文本20No密码3.1.2 火车信息表火车信息表说明：存放火车时刻表的基本信息，有车次号、始发站、终点站、始发时间、终到时间、途径主要站点及时间，本表中主键是车次号。火车信息表如表 3.2 所示。Vb 简易列车查询表课程设计报告 第 3 章 详细设计-2- 3 -表表 3.2 时时刻表信息表刻表信息表列名数据类型长度是否允许空说明Number文本10No车次号Time_Start文本10

8、No始发时间Time_End文本10No终到时间station1文本20Yes始发站station2文本20Yes途径站点Time2文本10Yes到达途径站点时间Station3文本20Yes途径站点Time3文本10Yes到达途径站点时间Station4文本20Yes途径站点Time4文本10Yes到达途径站点时间Station5文本20Yes途径站点Time5文本10Yes到达途径站点时间Station6文本20Yes途径站点Time6文本10Yes到达途径站点时间Station7文本20Yes途径站点Time7文本10Yes到达途径站点时间Station8文本20Yes途径站点Time8

9、文本10Yes到达途径站点时间Station9文本20Yes途径站点Time9文本10Yes到达途径站点时间Station10文本20Yes终点站3.2 系统功能详细设计系统功能详细设计通过 Visual Basic 和 SQL server2000 相连，调用火车时刻表查询系统数据库中的火车信息表、管理员信息表的所有信息，实现对火车时刻表的查询系统。Vb 简易列车查询表课程设计报告 第 3 章 详细设计-2- 4 -3.2.1 时刻表查询模块时刻表查询模块该模块主要功能是按车次、始发站、终点站和途径主要站点进行查询，通过查询模块可以清楚的找到需要乘坐的火车车次号、始发站、终点站、始发时间、终

10、到时间、途径主要站点及时间。它使程序的分类更加清楚便于用户的查询。查询模块与 Access 数据库相连，能从数据库的火车信息表中查找出对应的火车信息和相关属性。本模块主要是采用“窗体”来实现的。界面上有三种查询方式供选择，分别为按始发站、终点站查询，按车次号查询及按途径主要站点查询。如果查找的途径主要站点在火车信息表中没有查找到，则显示“没有这个站点，请重输入！”的字样。只有输入的车次号和火车信息表中的书号一致的时候才输出该次火车的相关信息。3.2.2 时刻表管理模块时刻表管理模块该模块主要功能是管理火车时刻表，实现对火车线路和途径主要站点的增加、修改和删除操作。时刻表管理模块与 Access

11、 数据库相连，能够对火车信息表的相关属性进行增加、修改和删除操作。本模块由“窗体”来实现。界面提供三种功能，即增加线路，删除主要站点，修改主要站点。增加线路时必需输入车次号、始发时间和终到时间，否则无法完成操作。3.2.3 系统管理模块系统管理模块该模块主要功能是实现对管理员信息的管理。系统管理模块与 Access 数据库相连，能够对管理员信息表中的密码进行增修改，还可以增加管理员。增加管理员时管理员名称不能为空而且不能重名，两次输入的密码必需一致。Vb 简易列车查询表课程设计报告 第 4 章 调试分析-2- 5 -第 4 章 调试分析(1)SQL 语句使用问题问题描述：实时错误，至少一个参数

12、没有被指定值。问题分析：SQL 语句中目标列表达式参数设置错误。解决方法：把 select * from train_table where time_in 中的 time_in 改成 time_info。(2) 无法连接数据库问题描述：找不到文件E：/软件综合课设资料/程序/train.mdb问题分析：连接数据库路径错误。解决方法：将数据库放在程序所在的文件夹。Vb 简易列车查询表课程设计报告 -2- 6 -第 5 章 界面简介5.1 进入界面进入界面 图图 5.1 开始界面开始界面由图 5.1 界面是第一张界面，由此界面可进入用户登录界面。Vb 简易列车查询表课程设计报告 -2- 7 -5

13、.2 用户登录界面用户登录界面 图图 5.2 用用户户登登录录界面界面图 5.2 界面为用户提供了权限，用户只能通过正确的用户名以及密码进入火车时刻表管理系统和用户管理系统，这样方便对时刻表和系统进行管理和维护。Vb 简易列车查询表课程设计报告 -2- 8 -5.2.15.2.1 修改用户名及密码界面修改用户名及密码界面图图 5.2.1 修改密修改密码码界面界面 图 5.2.1 界面为时刻表管理界面的修改密码部分，可以修改管理员的登录密码以及用户名。在时刻表与系统管理界面里选择用户管理中的修改密码就可进入此界面。Vb 简易列车查询表课程设计报告 -2- 9 -5.3 时刻表查询管理系统界面时刻

14、表查询管理系统界面图图 5.3 时时刻表管理系刻表管理系统统主界面主界面 图 5.3 界面为用户提供时刻表查询服务，时刻表管理服务，用户管理服务以及返回进入界面服务。Vb 简易列车查询表课程设计报告 -2- 10 -5.45.4 时刻表查询界面时刻表查询界面图图 5.4 时时刻表刻表查询查询界面界面图 5.3 界面为用户提供时刻表查询服务，查询方式有三种，分别按车次,始发站，终点站三种方式查询。Vb 简易列车查询表课程设计报告 -2- 11 -5.5 时刻表管理界面时刻表管理界面(添加、修改、删除添加、修改、删除)图图 5.5 添加、修改、添加、修改、删删除除车车次界面次界面图 5.4 界面为

15、车次提供了增加、修改、删除部分，可以增加火车线路信息、修改火车途径主要站点及时间以及删除主要站点。在时刻表与系统管理界面上选择时刻表管理选项，即可进入此界面。 Vb 简易列车查询表课程设计报告 -2- 12 - 第六章 课程设计总结 本次课程设计实现了火车时刻表查询软件的主要功能，包括按车次、始发站、终点站和途径主要站点进行查询，对线路和途径主要站点进行增加、修改和删除操作。课程设计采用的开发工具是 VB，数据库系统是 Adodc 控件。从参考书和网上学会了如何使用窗体和模块，能够简单应用 VB中的数据库访问控件。本次课程设计的难点是如何连接数据库，对数据进行一些必要的操作。对于如何连接数据库

16、，刚开始不知从何处下手，借鉴了网上资源后，对 VB 连接数据库有了初步的了解，解决了这个问题。在完成课设过程中，我初步掌握了 VB 编程的方法，锻炼了自己的编程能力，熟练掌握了基本的高度方法，把课堂上所学习的理论知识与这次实践相结合，进一步提高了动手能力。 由于初次接触 VB 编程技术，在编程中遇到很多问题，比如怎样连接数据库，如何使用窗体。在同学的帮助下和老师的教导下我完成了这次课设，对此我向老师和同学表示感谢。还有一些不足之处，我以后定会改进并且更加努力去学习。Vb 简易列车查询表课程设计报告 -2- 13 -7、 、附附 录录（ （相关代相关代码码） ）into.form(进入相关代码进

17、入相关代码)Private Sub Command1_Click()user.Showinto.Hideuser.Text1 = user.Text2 = End Subuser.form(用户登录代码用户登录代码)Private Sub Command1_Click()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=PC-201212021213

18、;DATABASE=traincn.Open cn_strsql_str = select UserName ,Userpwd from user_infoVb 简易列车查询表课程设计报告 -2- 14 -rs.Open sql_str, cnWhile Not rs.EOFIf Text1.Text = Trim(rs(0) And Text2.Text = Trim(rs(1) ThenMe.Hide xitong.Showflag = TrueExit SubElsers.MoveNextflag = FalseEnd IfWendIf flag = False ThenMsgBox 输

19、入的用户名或密码有误，请重新输入！, vbCritical + vbOKOnly, 错误rs.CloseEnd IfEnd SubPrivate Sub Command2_Click()Unload userinto.ShowEnd SubVb 简易列车查询表课程设计报告 -2- 15 -Private Sub Text1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)Static Toogle As BooleanIf Toogle = False ThenText1 = Toogle = Tr

20、ueEnd IfEnd SubPrivate Sub Text2_GotFocus()Text2.Text = End Subxitong.form(系统管理代码)Private Sub add_Click()add_time.ShowUnload MeEnd SubPrivate Sub user_Click()user_info.ShowUnload MeEnd SubVb 简易列车查询表课程设计报告 -2- 16 -Private Sub 查询_Click()chaxun.Showxitong.HideEnd SubPrivate Sub 返回_Click()into.Showxiton

21、g.HideUnload MeEnd Subchaxun.form(查询信息代码查询信息代码)Private Sub Command1_Click()Adodc1.RecordSource = select * from Time_info where station6= & Trim(Text1) & Adodc1.RefreshEnd SubPrivate Sub Command2_Click()Adodc1.RecordSource = select * from Time_info where number= & Trim(Text3) & Adodc1

22、.RefreshEnd SubPrivate Sub Command3_Click()Vb 简易列车查询表课程设计报告 -2- 17 -Adodc1.RecordSource = select * from Time_info where station1= & Trim(Text4) & Adodc1.RefreshEnd SubPrivate Sub Command4_Click()add_time.ShowUnload MeEnd SubPrivate Sub Text1_GotFocus()Text1.Text = End SubPrivate Sub text3_Mo

23、useMove(Button As Integer, Shift As Integer, X As Single, Y As Single)Static Toogle As BooleanIf Toogle = False ThenText3.Text = Toogle = TrueEnd IfEnd SubPrivate Sub Text4_GotFocus()Text4.Text = End SubVb 简易列车查询表课程设计报告 -2- 18 -add.Form（添加车次代码）（添加车次代码）Private Sub Command1_Click()Adodc1.Recordset.AddNewAdodc1.RefreshEnd SubPrivate Sub Command2_Click()Adodc1.Recordset.DeleteAdodc1.RefreshEnd SubPrivate Sub Command3_Click()xitong.ShowUnload MeEnd SubPrivate Sub