VB列车时刻表查询

《VB列车时刻表查询》由会员分享，可在线阅读，更多相关《VB列车时刻表查询（28页珍藏版）》请在装配图网上搜索。

1、课程设计题目：简易列车时刻查询表专业：信息工程（信息安全方向）班级：1132101学号:201130210126姓名：某某某指导老师：vb老师EAST CHINA INSTITUTE OF TECHNOLOGY2013-1-4Vb 简易列车查询表课程设计报告目录1目 录第1章 系统分析.1.1.1需求分析.11.2使用工具.11.3VB编程技术简介.1第2章概要设计.2.2.1总体方案设计.22.1.1 功能分析.22.1.2 功能模块图.2第3章详细设计.3.3.1数据库逻辑模型设计.33.1.1 管理员信息表.33.1.2 火车信息表.33.2系统功能详细设计.43.2.1 时刻表查询模块

2、.53.2.2 时刻表管理模块.53.2.3 系统管理模块.5第4章调试分析.6.第5章界面简介.Z.5.1进入界面.8-5.2用户登录界面.9-5.2.1 添加、修改用户名及密码界面.95.3时刻表查询管理系统界面.105.4时刻表查询界面.115.5时刻表管理（添加、删除、修改）界面.12第六章课程设计总结.13附 录（相关代码）.21Vb 简易列车查询表课程设计报告第一章系统分析-1-第 1 章系统分析1.1 需求分析设计和实现一个火车时刻表查询系统，该系统包括火车时刻表查询，时刻 表管理及系统管理。其中火车时刻表基本信息包括车次号、始发站、终点站、始 发时间、终到时间、途径主要站点及时

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

4、功能强大可以与Windows专业开发工具SDK相媲美。在Visual Basic环境下，利用事件驱动的编程机制、新颖易用的可视化设计工具，使用Win dows内部的广泛应用程序接口（API）函数，以用动态链接库（DLL）、对象的链接与 世隔嵌入（OLE）、开放式数据连接（ODBC）等技术，可以高效、快速地开发Windows环境下功能强大、图形界面丰富的应用软件系统。VB具有强大的数据库访问功能。VB利用数据控件可以访问多种数据库，VB 6.O提供的ADO控件，不但可以用最少的代码实现数据库操作和控制，也可以 取代Data控件和RDO控Vb 简易列车查询表课程设计报告错误!未指定书签。第 2 章

5、概要设计2件。第 2 章概要设计2.1 总体方案设计2.1.1 功能分析根据题目要求，本系统可以分为三个功能模块：时刻表查询功能模块、时刻 表管理功能模块和系统管理功能模块。其中查询功能模块实现对火车信息的查询;时刻表管理功能模块实现对火车信息的增加、修改和删除操作；系统管理功能模 块实现对管理员信息的管理。2.1.2 功能模块图火车时刻表查询系统总体模块图如图2.1所示。图2.1系统总体模块图Vb 简易列车查询表课程设计报告错误！未指定书签。第 3章详细设计4-第 3 章详细设计3.1 数据库逻辑模型设计根据课程设计的要求，火车时刻表的属性有车次号、始发站、终点站、始发 时间、终到时间、途径

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

7、Number文本10No车次号Time_Start文本10No始发时间Time_E nd文本10No终到时间stati on1文本20Yes始发站stati on2文本20Yes途径站点Time2文本10Yes到达途径站点时间Statio n3文本20Yes途径站点Time3文本10Yes到达途径站点时间Statio n4文本20Yes途径站点Time4文本10Yes到达途径站点时间Statio n5文本20Yes途径站点Time5文本10Yes到达途径站点时间Statio n6文本20Yes途径站点Time6文本10Yes到达途径站点时间Statio n7文本20Yes途径站点Time7文本

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

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

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

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

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

13、.4 时刻表查询界面图 5.4时刻表查询界面图5.3界面为用户提供时刻表查询服务，查询方式有三种，分别按车次 始发站，终点站三种方式查询。Vb 简易列车查询表课程设计报告-13-5.5 时刻表管理界面（添加、修改、删除）图 5.5 添加、修改、删除车次界面图5.4界面为车次提供了增加、修改、删除部分，可以增加火车线路信息、修改火车途径主要站点及时间以及删除主要站点。在时刻表与系统管理界面上选 择时刻表管理选项，即可进入此界面。Vb 简易列车查询表课程设计报告-1A-第六章课程设计总结本次课程设计实现了火车时刻表查询软件的主要功能，包括按车次、始发站、终点站和途径主要站点进行查询，对线路和途 径

14、主要站点进行增加、修改和删除操作。课程设计采用的开发工具是 VBVB，数据库系统是 AdodcAdodc 控 件。从参考书和网上学会了如何使用窗体和模块，能够简单应用VBVB 中的数据库访问控件。本次课程设计的难点是如何连接数据 库，对数据进行一些必要的操作。对于如何连接数据库，刚开始 不知从何处下手，借鉴了网上资源后，对VBVB 连接数据库有了初步的了解，解决了这个问题。在完成课设过程中，我初步掌握了 VBVB 编程的方法，锻炼了 自己的编程能力，熟练掌握了基本的高度方法，把课堂上所学习 的理论知识与这次实践相结合，进一步提高了动手能力。由于初次接触 VBVB 编程技术，在编程中遇到很多问题

15、，比 如怎样连接数据库，如何使用窗体。在同学的帮助下和老师的教 导下我完成了这次课设，对此我向老师和同学表示感谢。还有一些不足之处，我以后定会改进并且更加努力去学习。Vb 简易列车查询表课程设计报告-15-7、附 录（相关代码）into.form(进入相关代码)Private Sub Comma nd1_Click()user.Show in to.Hide user.Text1=user.Text2=End Subser.form(用户登录代码)Private Sub Comma nd1_Click()Dim cn As New ADODB.Co nn ectio nDim rs As Ne

16、w ADODB.RecordsetDim flag As Boolea nDim cn _str As String,sql_str As Stringcn_str二DRIVER二SQL SERVER;SERVER二PC-201212021213QATABASE二trai ncn.Ope n cn _strsql_str=select UserName,Userpwd from user_i nfo rs.Ope n sql_str,cnWhile Not rs.EOFIf Textl.Text=Trim(rs(0)And Text2.Text=Trim(rs(1)ThenVb 简易列车查询表

17、课程设计报告End Sub-16-Me.Hidexit on g.Showflag=TrueExit SubElsers.MoveNextflag=FalseEnd IfWendIf flag=False The nMsgBox 输入的用户名或密码有误，请重新输入！,vbCriticalvbOKOnly,错误rs.CloseEnd IfEnd SubPrivate Sub Comma nd2_Click()Uni oad userin to.ShowVb 简易列车查询表课程设计报告End Sub-17-Private Sub Text1_MouseMove(Butt on As In tege

18、r,Shift As In teger,X AsSi ngle,Y As Si ngle)Static Toogle As Boolea nIf Toogle=False The nTextl=Toogle=TrueEnd IfEnd SubPrivate Sub Text2_GotFocus()Text2.Text=End Subxitong.form(系统管理代码)Private Sub add_Click()add_time.Show Un load MeEnd SubPrivate Sub user_Click()user_i nfo.Show Un load MePrivate Su

19、b 查询 _Click()chax un.Show xit on g.HideEnd SubPrivate Sub 返回 _Click()in to.ShowVb 简易列车查询表课程设计报告-18-xit on g.HideUn load MeEnd Subchaxun.form(查询信息代码)Private Sub Comma nd1_Click()Adodc1.RecordSource=select*from Time_info where station6=&Trim(Textl)&.Adodcl.RefreshEnd SubPrivate Sub Comma nd2_Click()Ad

20、odcI.RecordSource=select*from Time_i nfo where nu mber=”&Trim(Text3)&.Adodcl.RefreshEnd SubPrivate Sub Comma nd3_Click()AdodcI.RecordSource=select*from Timenfo where stati on 1=&Trim(Text4)&.Adodc1.RefreshEnd SubPrivate Sub Comma nd4_Click()add_time.ShowVb 简易列车查询表课程设计报告End Sub-19-Un load MeEnd SubPr

21、ivate Sub Text1_GotFocus()Text1.Text=End SubPrivate Sub text3_MouseMove(Butt on As In teger,Shift As In teger,X AsSi ngle,Y As Si ngle)Static Toogle As Boolea nIf Toogle=False The nText3.Text=Toogle=TrueEnd IfEnd SubPrivate Sub Text4_GotFocus()Text4.Text=add.Form(添加车次代码)Private Sub Comma nd1_Click()

22、Adodcl.Recordset.AddNewAdodc1.RefreshEnd SubPrivate Sub Comma nd2_Click()Adodc1.Recordset.DeleteVb 简易列车查询表课程设计报告-20-Adodc1.RefreshEnd SubPrivate Sub Comma nd3_Click()xit on g.ShowUn load MeEnd SubPrivate Sub Comma nd4_Click()Adodc1.Recordset.UpdateAdodc1.RefreshEnd SubPrivate Sub Comma nd5_Click()Te

23、xt1.Text=Text2.Text=Text3.Text=Text4.Text=Text5.Text=Text6.Text=Text7.Text=Text8.Text=Text9.Text=TextIO.Text=Textll.Text=Text12.Text=Vb 简易列车查询表课程设计报告-21-Text13.Text=Text14.Text=End Subser_info.form(添加、修改用户及密码)Private Sub Comma nd1_Click()Adodc1.Recordset.AddNewAdodc1.RefreshEnd SubPrivate Sub Comma

24、nd2_Click()Adodc1.Recordset.DeleteAdodcl.RefreshEnd SubPrivate Sub Comma nd3_Click()Textl.Text=Text2.Text=End SubPrivate Sub Comma nd4_Click()in to.ShowUn load MeVb 简易列车查询表课程设计报告-22-End SubPrivate Sub Text1_MouseMove(Butt on As In teger,Shift As In teger,X AsSi ngle,Y As Si ngle)Textl.Text=End SubPrivate Sub Text2_GotFocus()Text2.Text=End Sub