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

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

1、Vb简易列车查询表课程设计报告目录EAST CHINA INSTITUTE OF TECHNOLOGY1课程设计题目：简易列车时刻查询表专业：信息工程（信息安全方向）班级： 1132101学号：201130210126姓名：某某某指导老师：vb老师2013-1-4目 录第1章系统分析1.1.1 需求分析11.2 使用工具11.3 VB编程技术简介 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 时刻表查询模块 53.2.2

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

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

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

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

6、理员信息表的属性有管理员名称和登 录密码。3.1.1 管理员信息表说明：存放管理员的基本信息，包括管理员名称和登录密码。本表中主键是 管理员名称。管理员信息表如表 3.1所示。表3.1管理员信息表列名数据类型长度是否允许空说明UserName文本10No管理员名称Userpwd文本20No密码3.1.2 火车信息表说明：存放火车时刻表的基本信息，有车次号、始发站、终点站、始发时间、终到时间、途径主要站点及时间，本表中主键是车次号 。火车信息表如表3.2所 示。表3.2时刻表信息表列名数据类型长度是否允许空说明Number文本10No车次号Time_Start文本10No始发时间Time_End

7、文本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文本10Yes到达途径站点时

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

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

10、“窗体”来实现。界面提供三种功能，即增加线路，删除主要站点， 修改主要站点。增加线路时必需输入车次号、始发时间和终到时间，否则无法完成操作。3.2.3 系统管理模块该模块主要功能是实现对管理员信息的管理。系统管理模块与Access数据库相连，能够对管理员信息表中的密码进行增修 改，还可以增加管理员。增加管理员时管理员名称不能为空而且不能重名，两次输入的密码必需一致。章调试分析第4章调试分析(1)SQL语句使用问题问题描述：实时错误，至少一个参数没有被指定值。问题分析：SQL语句中目标列表达式参数设置错误。解决方法：把 select * from train_table where time_i

11、n 中的 time_in 改成 time_info。(2)无法连接数据库问题描述：找不到文件E: /软件综合课设资料/程序/train.mdb问题分析：连接数据库路径错误。解决方法：将数据库放在程序所在的文件夹。- 2-Vb简易列车查询表课程设计报告第5章界面简介5.1 进入界面图5.1开始界面由图5.1界面是第一张界面，由此界面可进入用户登录界面5.2 用户登录界面餐用户量亲匚I回X图5.2用户登录界面图5.2界面为用户提供了权限，用户只能通过正确的用户名以及密码进入 火车时刻表管理系统和用户管理系统，这样方便对时刻表和系统进行管理和维 护。-2-Vb简易列车查询表课程设计报告5.2.1 修

12、改用户名及密码界面图5.2.1修改密码界面图5.2.1界面为时刻表管理界面的修改密码部分，可以修改管理员的登录 密码以及用户名。在时刻表与系统管理界面里选择用户管理中的修改密码就可进 入此界面。5.3 时刻表查询管理系统界面图5.3时刻表管理系统主界面图5.3界面为用户提供时刻表查询服务，时刻表管理服务，用户管理服务以及返回进入界面服务-12- -5.4 时刻表查询界面变前时新表，回区查诲方式二请输入查询的始发站始发站查询服务终点站查询方式三道稿人查询的娄点站Fiar目再否范条条Huibrt int SlartTmfi E4leIa.1 auLEtbilOTIE4县1145V15:国S: 56

13、九江吉安U： 51二Ll?9Q此哂15MJ由思庐山I Ct的以Sn _ a n.i F . r e1.i n. d c.一查询图5.4时刻表查询界面图5.3界面为用户提供时刻表查询服务，查询方式有三种，分别按车次 始发站，终点站三种方式查询。5.5时刻表管理界面（添加、修改、删除）添加列友时刻添加车次发车时何:终点站时间:添加站点st atiaiiSstation3station1!station&staticnG15:45tine2time 4timeSti 已6deleteupdatereturnModel起始站(station!)图5.5添加、修改、删除车次界面图5.4界面为车次提供了增

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

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

16、extl =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;DATABASE=train”cn.Open cn_strsql_str = select UserName ,Userpwd

17、 from user_infors.Open sql_str, cnWhile Not rs.EOFIf Textl.Text = Trim(rs(0) And Text2.Text = Trim(rs(1) ThenMe.Hidexitong.Showflag = TrueExit SubElsers.MoveNextflag = FalseEnd IfWendIf flag = False ThenMsgBox 输入的用户名或密码有误，请重新输入！, vbCritical +vbOKOnly,错误rs.CloseEnd IfEnd SubPrivate Sub Command2_Click

18、()Unload userinto.ShowEnd Sub-125 -Vb简易列车查询表课程设计报告Private Sub Text1_MouseMove(Button As Integer, Shift As Integer, X AsSingle, Y As Single)Static Toogle As BooleanIf Toogle = False ThenTextl =Toogle = TrueEnd IfEnd SubPrivate Sub Text2_GotFocus()Text2.Text =End Subxitong.form(系统管理代码)Private Sub add_

19、Click()add_time.ShowUnload MeEnd SubPrivate Sub user_Click()user_info.ShowUnload MePrivate Sub 查询 _Click()chaxun.Showxitong.HideEnd SubPrivate Sub 返回 _Click()into.Showxitong.HideUnload MeEnd Subchaxun.form(查询信息代码 )Private Sub Command1_Click()Adodc1.RecordSource= select * from Time_info where station

20、6= &Trim(Text1) &Adodc1.RefreshEnd SubPrivate Sub Command2_Click()Adodc1.RecordSource = select * from Time_info where number= &Trim(Text3) &AdodcI.RefreshEnd SubPrivate Sub Command3_Click()AdodcI.RecordSource = select * from Time_info where station1= &Trim(Text4) &AdodcI.RefreshEnd SubPrivate Sub Co

21、mmand4_Click()add_time.ShowUnload MeEnd SubPrivate Sub Text1_GotFocus()Text1.Text =End SubPrivate Sub text3_MouseMove(Button As Integer, Shift As Integer, X AsSingle, Y As Single)Static Toogle As BooleanIf Toogle = False ThenText3.Text =Toogle = TrueEnd IfEnd SubPrivate Sub Text4_GotFocus()Text4.Tex

22、t =End Sub-12- -Vb简易列车查询表课程设计报告add.Form (添力口车次代码)Private Sub Command1_Click()AdodcI.Recordset.AddNewAdodcI.RefreshEnd SubPrivate Sub Command2_Click()AdodcI.Recordset.DeleteAdodcI.RefreshEnd SubPrivate Sub Command3_Click()xitong.ShowUnload MeEnd SubPrivate Sub Command4_Click()Adodc1.Recordset.UpdateA

23、dodc1.RefreshEnd SubPrivate Sub Command5_Click()Text1.Text =Text2.Text =Text3.Text =Text4.Text =Text5.Text =Text6.Text =Text7.Text =Text8.Text =Text9.Text =TextIO.Text =Textll.Text =Text12.Text =Text13.Text =Text14.Text =End Subuser info.form(添力口、彳侬改用户及密码 )Private Sub Command1_Click()AdodcI.Recordse

24、t.AddNewAdodc1.RefreshEnd SubPrivate Sub Command2_Click()Adodc1.Recordset.DeleteAdodcI.RefreshEnd SubPrivate Sub Command3_Click()Textl.Text =Text2.Text =End SubPrivate Sub Command4_Click()into.ShowUnload MeEnd SubPrivate Sub Text1_MouseMove(Button As Integer, Shift As Integer, X AsSingle, Y As Single)Textl.Text =End SubPrivate Sub Text2_GotFocus()Text2.Text =End Sub-2-