VB列车时刻表查询要点.pdf

《VB列车时刻表查询要点.pdf》由会员分享，可在线阅读，更多相关《VB列车时刻表查询要点.pdf（24页珍藏版）》请在三一文库上搜索。

1、课程设计题目: 简易列车时刻查询表 专业：信息工程（信息安全方向） 班级： 1132101 学号: 201130210126 姓名：某某某 指导老师： vb 老师 2013-1-4 Vb 简易列车查询表课程设计报告目录 1 目录 第 1 章系统分析 1 1.1需求分析 1 1.2使用工具 1 1.3VB 编程技术简介 1 第 2 章概要设计 2 2.1总体方案设计 2 2.1.1 功能分析 2 2.1.2 功能模块图 2 第 3 章详细设计 . 3 3.1数据库逻辑模型设计 3 3.1.1 管理员信息表 3 3.1.2 火车信息表 3 3.2系统功能详细设计 4 3.2.1 时刻表查询模块 5

2、 3.2.2 时刻表管理模块 5 3.2.3 系统管理模块 5 第 4 章调试分析 6 第 5 章界面简介 7 5.1进入界面 -8 - 5.2用户登录界面 - 9 - 5.2.1 添加、修改用户名及密码界面,9 5.3时刻表查询管理系统界面 10 5.4时刻表查询界面 . 11 5.5 时刻表管理（添加、删除、修改）界面,12 第六章课程设计总结 ,13 附录（相关代码） 21 Vb 简易列车查询表课程设计报告第一章系统分析 - 1 - 第 1 章系统分析 1.1 需求分析 设计和实现一个火车时刻表查询系统，该系统包括火车时刻表查询，时刻 表管理及系统管理。其中火车时刻表基本信息包括车次号、

3、始发站、终点站、始 发时间、终到时间、途径主要站点及时间等信息；火车时刻表查询按车次、始发 站、终点站和途径主要站点进行查询；时刻表管理包括对线路和途径主要站点进 行增加、修改和删除操作；系统管理包括添加管理员信息和修改密码。 1.2 使用工具 对火车时刻表和管理员信息进行管理，实现一些简单的操作。 所用的工具是： 前台是 Visual Basic,后台是 SQL server2000。通过 ADODC 接口将 Visual Basic和 数据库相连，编写程序实现维修系统中的功能。 1.3 VB 编程技术简介 Visual Basic 是一种可视化的、面向对象和采用事件驱动方式的结构化高级 程

4、序设计语言，可用于开发Windows 环境下的各类应用程序。它简单易学、效 率高，且功能强大可以与Windows 专业开发工具 SDK 相媲美。在 Visual Basic 环境下，利用事件驱动的编程机制、新颖易用的可视化设计工具，使用Windows 内部的广泛应用程序接口（API）函数，以用动态链接库（ DLL ） 、对象的链接与 世隔嵌入（ OLE） 、开放式数据连接（ODBC）等技术，可以高效、快速地开发 Windows 环境下功能强大、图形界面丰富的应用软件系统。 VB 具有强大的数据库访问功能。 VB 利用数据控件可以访问多种数据库，VB 6O 提供的 ADO 控件，不但可以用最少的

5、代码实现数据库操作和控制，也可以 取代 Data控件和 RDO 控件。 Vb 简易列车查询表课程设计报告错误！未指定书签。第 2 章概要设计 2 - 2 - 第 2 章概要设计 2.1 总体方案设计 2.1.1功能分析 根据题目要求，本系统可以分为三个功能模块：时刻表查询功能模块、时刻 表管理功能模块和系统管理功能模块。 其中查询功能模块实现对火车信息的查询； 时刻表管理功能模块实现对火车信息的增加、修改和删除操作；系统管理功能模 块实现对管理员信息的管理。 2.1.2功能模块图 火车时刻表查询系统总体模块图如图2.1 所示。 图 2.1 系统总体模块图 火车时刻表查询系统 时 刻 表 查 询

6、 时 刻 表 管 理 系 统 管 理 Vb 简易列车查询表课程设计报告错误！未指定书签。第 2 章概要设计 2 - 3 - Vb 简易列车查询表课程设计报告错误！ 未指定书签。 第 3 章详细设计 - 2- - 4 - 第3章详细设计 3.1 数据库逻辑模型设计 根据课程设计的要求，火车时刻表的属性有车次号、始发站、终点站、始发 时间、终到时间、途径主要站点及时间，管理员信息表的属性有管理员名称和登 录密码。 3.1.1管理员信息表 说明：存放管理员的基本信息，包括管理员名称和登录密码。本表中主键是 管理员名称。管理员信息表如表3.1 所示。 表 3.1 管理员信息表 列名数据类型长度是否允许

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

8、tion2 文本20 Yes 途径站点 Time2 文本10 Yes 到达途径站点时间 Station3 文本20 Yes 途径站点 Time3 文本10 Yes 到达途径站点时间 Station4 文本20 Yes 途径站点 Time4 文本10 Yes 到达途径站点时间 Station5 文本20 Yes 途径站点 Time5 文本10 Yes 到达途径站点时间 Station6 文本20 Yes 途径站点 Time6 文本10 Yes 到达途径站点时间 Station7 文本20 Yes 途径站点 Time7 文本10 Yes 到达途径站点时间 Station8 文本20 Yes 途径站

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

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

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

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

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

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

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

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

17、nd1_Click() user.Show into.Hide user.Text1 = “ user.Text2 = “ End Sub user.form(用户登录代码 ) Private Sub Command1_Click() Dim cn As New ADODB.Connection Dim rs As New ADODB.Recordset Dim flag As Boolean Dim cn_str As String, sql_str As String cn_str=“DRIVER=SQL SERVER; SERVER=PC-201212021213;DATABASE=tr

18、ain“ cn.Open cn_str sql_str = “select UserName ,Userpwd from user_info“ Vb 简易列车查询表课程设计报告 - 2- 16 - rs.Open sql_str, cn While Not rs.EOF If Text1.Text = Trim(rs(0) And Text2.Text = Trim(rs(1) Then Me.Hide xitong.Show flag = True Exit Sub Else rs.MoveNext flag = False End If Wend If flag = False Then

19、MsgBox “输入的用户名或密码有误，请重新输入！“, vbCritical + vbOKOnly, “错误“ rs.Close End If End Sub Private Sub Command2_Click() Unload user into.Show End Sub Vb 简易列车查询表课程设计报告 - 2- 17 - Private Sub Text1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Static Toogle As Boolean If Toogle = False

20、 Then Text1 = “ Toogle = True End If End Sub Private Sub Text2_GotFocus() Text2.Text = “ End Sub xitong.form(系统管理代码 ) Private Sub add_Click() add_time.Show Unload Me End Sub Private Sub user_Click() user_info.Show Unload Me End Sub Vb 简易列车查询表课程设计报告 - 2- 18 - Private Sub 查询_Click() chaxun.Show xitong

21、.Hide End Sub Private Sub 返回_Click() into.Show xitong.Hide Unload Me End Sub chaxun.form(查询信息代码 ) Private Sub Command1_Click() Adodc1.RecordSource = “select * from Time_info where station6=“ & Trim(Text1) & “ “ Adodc1.Refresh End Sub Private Sub Command2_Click() Adodc1.RecordSource = “ select * from

22、 Time_info where number=“ & Trim(Text3) & “ “ Adodc1.Refresh End Sub Private Sub Command3_Click() Vb 简易列车查询表课程设计报告 - 2- 19 - Adodc1.RecordSource = “ select * from Time_info where station1=“ & Trim(Text4) & “ “ Adodc1.Refresh End Sub Private Sub Command4_Click() add_time.Show Unload Me End Sub Privat

23、e Sub Text1_GotFocus() Text1.Text = “ End Sub Private Sub text3_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Static Toogle As Boolean If Toogle = False Then Text3.Text = “ Toogle = True End If End Sub Private Sub Text4_GotFocus() Text4.Text = “ End Sub Vb 简易列车查询表课程设计报告 -

24、2- 20 - add.Form（添加车次代码） Private Sub Command1_Click() Adodc1.Recordset.AddNew Adodc1.Refresh End Sub Private Sub Command2_Click() Adodc1.Recordset.Delete Adodc1.Refresh End Sub Private Sub Command3_Click() xitong.Show Unload Me End Sub Private Sub Command4_Click() Adodc1.Recordset.Update Adodc1.Refr

25、esh End Sub Private Sub Command5_Click() Text1.Text = “ Text2.Text = “ Vb 简易列车查询表课程设计报告 - 2- 21 - Text3.Text = “ Text4.Text = “ Text5.Text = “ Text6.Text = “ Text7.Text = “ Text8.Text = “ Text9.Text = “ Text10.Text = “ Text11.Text = “ Text12.Text = “ Text13.Text = “ Text14.Text = “ End Sub user_info

26、.form(添加、修改用户及密码) Private Sub Command1_Click() Adodc1.Recordset.AddNew Adodc1.Refresh End Sub Private Sub Command2_Click() Adodc1.Recordset.Delete Vb 简易列车查询表课程设计报告 - 2- 22 - Adodc1.Refresh End Sub Private Sub Command3_Click() Text1.Text = “ Text2.Text = “ End Sub Private Sub Command4_Click() into.Show Unload Me End Sub Private Sub Text1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Text1.Text = “ End Sub Private Sub Text2_GotFocus() Text2.Text = “ End Sub