VB列车时刻表查询Word格式文档下载.docx
《VB列车时刻表查询Word格式文档下载.docx》由会员分享，可在线阅读，更多相关《VB列车时刻表查询Word格式文档下载.docx（22页珍藏版）》请在冰点文库上搜索。
3.1.2火车信息表3
3.2系统功能详细设计4
3.2.1时刻表查询模块5
3.2.2时刻表管理模块5
3.2.3系统管理模块5
第4章调试分析6
第5章界面简介7
5.1进入界面8
5.2用户登录界面8
5.2.1添加、修改用户名及密码界面……………………………………………………9
5.3时刻表查询管理系统界面10
5.4时刻表查询界面11
5.5时刻表管理（添加、删除、修改）界面……………………………………12
第六章课程设计总结……………………………………………………………13
附录（相关代码）21
第1章系统分析
1.1需求分析
设计和实现一个火车时刻表查询系统，该系统包括火车时刻表查询，时刻表管理及系统管理。
其中火车时刻表基本信息包括车次号、始发站、终点站、始发时间、终到时间、途径主要站点及时间等信息；
火车时刻表查询按车次、始发站、终点站和途径主要站点进行查询；
时刻表管理包括对线路和途径主要站点进行增加、修改和删除操作；
系统管理包括添加管理员信息和修改密码。
1.2使用工具
对火车时刻表和管理员信息进行管理，实现一些简单的操作。
所用的工具是：
前台是VisualBasic,后台是SQLserver2000。
通过ADODC接口将VisualBasic和数据库相连，编写程序实现维修系统中的功能。
1.3VB编程技术简介
VisualBasic是一种可视化的、面向对象和采用事件驱动方式的结构化高级程序设计语言，可用于开发Windows环境下的各类应用程序。
它简单易学、效率高，且功能强大可以与Windows专业开发工具SDK相媲美。
在VisualBasic环境下，利用事件驱动的编程机制、新颖易用的可视化设计工具，使用Windows内部的广泛应用程序接口（API）函数，以用动态链接库（DLL）、对象的链接与世隔嵌入（OLE）、开放式数据连接（ODBC）等技术，可以高效、快速地开发Windows环境下功能强大、图形界面丰富的应用软件系统。
VB具有强大的数据库访问功能。
VB利用数据控件可以访问多种数据库，VB6．O提供的ADO控件，不但可以用最少的代码实现数据库操作和控制，也可以取代Data控件和RDO控件。
第2章概要设计
2.1总体方案设计
2.1.1功能分析
根据题目要求，本系统可以分为三个功能模块：
时刻表查询功能模块、时刻表管理功能模块和系统管理功能模块。
其中查询功能模块实现对火车信息的查询；
时刻表管理功能模块实现对火车信息的增加、修改和删除操作；
系统管理功能模块实现对管理员信息的管理。
2.1.2功能模块图
火车时刻表查询系统总体模块图如图2.1所示。
图2.1系统总体模块图
第3章详细设计
3.1数据库逻辑模型设计
根据课程设计的要求，火车时刻表的属性有车次号、始发站、终点站、始发时间、终到时间、途径主要站点及时间，管理员信息表的属性有管理员名称和登录密码。
3.1.1管理员信息表
说明：
存放管理员的基本信息，包括管理员名称和登录密码。
本表中主键是管理员名称。
管理员信息表如表3.1所示。
表3.1管理员信息表
列名
数据类型
长度
是否允许空
说明
UserName
文本
10
No
管理员名称
Userpwd
20
密码
3.1.2火车信息表
存放火车时刻表的基本信息，有车次号、始发站、终点站、始发时间、终到时间、途径主要站点及时间，本表中主键是车次号。
火车信息表如表3.2所示。
表3.2时刻表信息表
Number
车次号
Time_Start
始发时间
Time_End
终到时间
station1
Yes
始发站
station2
途径站点
Time2
到达途径站点时间
Station3
Time3
Station4
Time4
Station5
Time5
Station6
Time6
Station7
Time7
Station8
Time8
Station9
Time9
Station10
终点站
3.2系统功能详细设计
通过VisualBasic和SQLserver2000相连，调用火车时刻表查询系统数据库中的火车信息表、管理员信息表的所有信息，实现对火车时刻表的查询系统。
3.2.1时刻表查询模块
该模块主要功能是按车次、始发站、终点站和途径主要站点进行查询，通过查询模块可以清楚的找到需要乘坐的火车车次号、始发站、终点站、始发时间、终到时间、途径主要站点及时间。
它使程序的分类更加清楚便于用户的查询。
查询模块与Access数据库相连，能从数据库的火车信息表中查找出对应的火车信息和相关属性。
本模块主要是采用“窗体”来实现的。
界面上有三种查询方式供选择，分别为按始发站、终点站查询，按车次号查询及按途径主要站点查询。
如果查找的途径主要站点在火车信息表中没有查找到，则显示“没有这个站点，请重输入！
”的字样。
只有输入的车次号和火车信息表中的书号一致的时候才输出该次火车的相关信息。
3.2.2时刻表管理模块
该模块主要功能是管理火车时刻表，实现对火车线路和途径主要站点的增加、修改和删除操作。
时刻表管理模块与Access数据库相连，能够对火车信息表的相关属性进行增加、修改和删除操作。
本模块由“窗体”来实现。
界面提供三种功能，即增加线路，删除主要站点，修改主要站点。
增加线路时必需输入车次号、始发时间和终到时间，否则无法完成操作。
3.2.3系统管理模块
该模块主要功能是实现对管理员信息的管理。
系统管理模块与Access数据库相连，能够对管理员信息表中的密码进行增修改，还可以增加管理员。
增加管理员时管理员名称不能为空而且不能重名，两次输入的密码必需一致。
第4章调试分析
（1）SQL语句使用问题
●问题描述：
实时错误，至少一个参数没有被指定值。
问题分析：
SQL语句中目标列表达式参数设置错误。
●解决方法：
把select*fromtrain_tablewheretime_in中的time_in改成time_info。
（2）无法连接数据库
找不到文件‘E：
/软件综合课设资料/程序/train.mdb’
●问题分析：
连接数据库路径错误。
将数据库放在程序所在的文件夹。
第5章界面简介
5.1进入界面
图5.1开始界面
由图5.1界面是第一张界面，由此界面可进入用户登录界面。
5.2用户登录界面
图5.2用户登录界面
图5.2界面为用户提供了权限，用户只能通过正确的用户名以及密码进入火车时刻表管理系统和用户管理系统，这样方便对时刻表和系统进行管理和维护。
5.2.1修改用户名及密码界面
图5.2.1修改密码界面
图5.2.1界面为时刻表管理界面的修改密码部分，可以修改管理员的登录密码以及用户名。
在时刻表与系统管理界面里选择用户管理中的修改密码就可进入此界面。
5.3时刻表查询管理系统界面
图5.3时刻表管理系统主界面
图5.3界面为用户提供时刻表查询服务，时刻表管理服务，用户管理服务以及返回进入界面服务。
5.4时刻表查询界面
图5.4时刻表查询界面
图5.3界面为用户提供时刻表查询服务，查询方式有三种，分别按车次,始发站，终点站三种方式查询。
5.5时刻表管理界面（添加、修改、删除）
图5.5添加、修改、删除车次界面
图5.4界面为车次提供了增加、修改、删除部分，可以增加火车线路信息、修改火车途径主要站点及时间以及删除主要站点。
在时刻表与系统管理界面上选择时刻表管理选项，即可进入此界面。
第六章课程设计总结
本次课程设计实现了火车时刻表查询软件的主要功能，包括按车次、始发站、终点站和途径主要站点进行查询，对线路和途径主要站点进行增加、修改和删除操作。
课程设计采用的开发工具是VB，数据库系统是Adodc控件。
从参考书和网上学会了如何使用窗体和模块，能够简单应用VB中的数据库访问控件。
本次课程设计的难点是如何连接数据库，对数据进行一些必要的操作。
对于如何连接数据库，刚开始不知从何处下手，借鉴了网上资源后，对VB连接数据库有了初步的了解，解决了这个问题。
在完成课设过程中，我初步掌握了VB编程的方法，锻炼了自己的编程能力，熟练掌握了基本的高度方法，把课堂上所学习的理论知识与这次实践相结合，进一步提高了动手能力。
由于初次接触VB编程技术，在编程中遇到很多问题，比如怎样连接数据库，如何使用窗体。
在同学的帮助下和老师的教导下我完成了这次课设，对此我向老师和同学表示感谢。
还有一些不足之处，我以后定会改进并且更加努力去学习。
7、附录（相关代码）
’into.form（进入相关代码）
PrivateSubCommand1_Click（）
user.Show
into.Hide
user.Text1="
"
user.Text2="
EndSub
’user.form（用户登录代码）
DimcnAsNewADODB.Connection
DimrsAsNewADODB.Recordset
DimflagAsBoolean
Dimcn_strAsString,sql_strAsString
cn_str="
DRIVER={SQLSERVER};
SERVER=PC-201212021213;
DATABASE=train"
cn.Opencn_str
sql_str="
selectUserName,Userpwdfromuser_info"
rs.Opensql_str,cn
WhileNotrs.EOF
IfText1.Text=Trim（rs（0））AndText2.Text=Trim（rs
（1））Then
Me.Hide
xitong.Show
flag=True
ExitSub
Else
rs.MoveNext
flag=False
EndIf
Wend
Ifflag=FalseThen
MsgBox"
输入的用户名或密码有误，请重新输入！
vbCritical+vbOKOnly,"
错误"
rs.Close
PrivateSubCommand2_Click（）
Unloaduser
into.Show
PrivateSubText1_MouseMove（ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle）
StaticToogleAsBoolean
IfToogle=FalseThen
Text1="
Toogle=True
PrivateSubText2_GotFocus（）
Text2.Text="
’xitong.form（系统管理代码）
PrivateSubadd_Click（）
add_time.Show
UnloadMe
PrivateSubuser_Click（）
user_info.Show
PrivateSub查询_Click（）
chaxun.Show
xitong.Hide
PrivateSub返回_Click（）
’chaxun.form（查询信息代码）
Adodc1.RecordSource="
select*fromTime_infowherestation6='
&
Trim（Text1）&
"
'
Adodc1.Refresh
select*fromTime_infowherenumber='
Trim（Text3）&
PrivateSubCommand3_Click（）
select*fromTime_infowherestation1='
Trim（Text4）&
PrivateSubCommand4_Click（）
PrivateSubText1_GotFocus（）
Text1.Text="
PrivateSubtext3_MouseMove（ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle）
Text3.Text="
PrivateSubText4_GotFocus（）
Text4.Text="
’add.Form（添加车次代码）
Adodc1.Recordset.AddNew
Adodc1.Recordset.Delete
xitong.Show
Adodc1.Recordset.Update
PrivateSubCommand5_Click（）
Text5.Text="
Text6.Text="
Text7.Text="
Text8.Text="
Text9.Text="
Text10.Text="
Text11.Text="
Text12.Text="
Text13.Text="
Text14.Text="
’user_info.form（添加、修改用户及密码）
升级会员 