长途汽车信息管理系统的设计与实现毕业设计论文

长途汽车信息管理系统的设计与实现毕业设计论文内容摘要：

,包括添加汽车编号 ,汽车类型 ,购买日期，使用时间，座位个数，有无电视，有无空调和备注信息，当用户按要求填写了相应的文本框之后点击添加按钮 ,将启动 cmd_OK_Click 事件，将添加的汽车信息放入数据库表中。 设计界面如图 7： 汽车编号 备注信息 汽车型号 购买时间 使用时间 座位数量 有无电视 有无空调 汽车信息管理 添加信息 修改信息 删除信息 查询信息 正在输入（网 @laoshutou）为您倾心整理（下载后双击删除） 如有需求请发站内信（下载后双击删除） 图 7 添加 汽车 信息 界面 修改汽车信息子模块 修改汽车信息时，当用户选定 MSFlexGrid 控件中的一组记录时，其相应的信息就会显示在修改栏中，将指定记录附给修改栏中各个文本框使得用户可以对汽车的所有信息进行修改。 对指定记录进行修改的代码片段如下： Private Sub cmd_edit_Click() ‘修改信息按钮 Dim SelectedRowIndex As Integer SelectedRowIndex = ‘选中需要修改的那一行 CurrentBus = (SelectedRowIndex, 1) 1 End Sub 删除 汽车信息子模块 当需要删除某条汽车信息的时候，选中需要删除的信息，点击删除按钮，完成对该条信息的删除操作。 实现功能核心代码如下： SelectedRowIndex = ‘选中需要删除的那条汽车信息 CurrentBus = (SelectedRowIndex, 1) If MsgBox(真的要删除此条记录吗。 , vbOKCancel + vbExclamation, 警告 ) = vbOK Then ‘提示用户是否真的要删除该条信息 OpenDB 正在输入（网 @laoshutou）为您倾心整理（下载后双击删除） 如有需求请发站内信（下载后双击删除） strSQL = delete from businfo where busno =39。 + CurrentBus + 39。 ‘从数据库中删除该条信息 (strSQL) CloseDB MsgBox 记录已删除 , vbOKOnly ‘提示用户记录已经删除 End If 查询 汽车信息子模块 面对繁多的汽车信息，本系统设计了汽车信息查询功能，方便管理员用户快捷，准确地查出想要了解的汽车的信息。 管理员输入汽车编号和汽车型号，就可以在数据库中找到相应的汽车信息。 设计界面如图 8所示： 图 8 汽车信息查询 界面 线路信息管理模块设计 线路信息管理是长途汽车站必须处理的事务，线路信息管理模块的设计能给车站管理员提供科学，准确的管理方式。 因此，从四个方面设计了线路信息管理模块，即线路信息的添加，线路信息的修改，删除和查询。 在此模块的设计过程中 ,同样使用了 MSFlexGrid控件来显示线路信息 ,使用 ShowTitle和 loadData两个函数来初始化 MSFlexGrid 控件，加载后就在窗口显示出长途汽车站所有线路的相关信息。 主要包括线路的编号，起始城市，到达城市，起始日期，起始时间，到达时间，汽车编号，车票价格和备 注信息。 管理员可以通过该窗口了解到所有线路的详细信息。 四个过程模块之间的关系图如图 9，以下将具体介绍各个功能的实现。 正在输入（网 @laoshutou）为您倾心整理（下载后双击删除） 如有需求请发站内信（下载后双击删除） 图 9 线路 信息管理模块关系图 添加线路 信息子模块 随着城市交通的飞速发展，当长途汽车站原先已有的线路信息不能满足需求的时候，就需要添加新的汽车线路，有关他们的详细信息必须由长途汽车站管理员添加到数据库，线路信息添加的设计界面如图 10所示： 图 10 线路 信息 添加界面 在此模块设计中，在 相应得 文本框中输入需要添加的内容后，单 击“添加”按钮， 将 启动 cmd_ok_Click 事件，将添加的线路信息插入 数据库表中， 完成对线路信息的添加。 线路编号 车票价格 起始城市 到达城市 起始日期 起始时间 到达时间 汽车编号 线路信息管理 添加信息 修改信息 删除信息 查询信息 正在输入（网 @laoshutou）为您倾心整理（下载后双击删除） 如有需求请发站内信（下载后双击删除） 线路信息查询子模块 当管理员需要查询线路信息的时候，点击查询按钮，进入查询线路信息模块。 在启动界面的时候，在两个下拉式组合框中已经载入了线路信息表中已有的起始城市和到达城市的信息，管理员在下拉列表中选中起始城市和到达城市，点击查询按钮，就可以完成对线路信息的查询。 线路信息查询子模块的设计界面如图11： 图 11 线路 信息 查询界面 实现该查询功能的核心代码如下： Private Sub cmd_que_Click() ‘查询按钮函数 Dim strSQL As String strSQL = Select * from buslineinfo where 1=1 If 0 Then ‘在下拉式组合框中选择起始城市 strSQL = strSQL + and departcity=39。 + + 39。 End If If 0 Then ‘在下拉式组合框中选择到达城市 strSQL = strSQL + and Arrivalcity=39。 + + 39。 End If End Sub 修改 线路信息子模块 管理员需要根据实际情况来调整汽车的线路信息。 当管理员需要对某条汽车线路信息进行修改的时候，选中需要修改的线路，点击修改按钮，出现修改该条线 路信息的界面，当管理员完成对该条线路的信息的修改后，点击修改按钮，将启动 cmd_ok_click 事件，更新数据库，完成对该条线路信息的修改，设计界面正在输入（网 @laoshutou）为您倾心整理（下载后双击删除） 如有需求请发站内信（下载后双击删除） 如图 12： 图 12 线路 信息 修改界面 删除 线路信息子模块 当已有的线路取消时 ,该线路对应的线路信息也将取消，这时就需要管理员将该线路信息从数据库中删除。 管理员首先选中需要删除的线路信息，点击“删除”按钮，提示管理员是否确定删除该条信息，管理员点击“确定”按钮，该条数据就成功从数据库表中删除。 车票信息管理模块设计 在长途汽车站的管理任务中，对车票信 息的管理更加显得十分重要。 管理员需要了解到某条线路的详细的车票信息，包括汽车的起始和到达城市，车票日期和时间，车票价格和车票备注信息，通过了解这些信息，管理员可以方便的完成对相应汽车线路车票信息的调整。 车票信息管理模块主要包括四个子模块 ,其主要功能是对车站的汽车车票信息进行添加 ,修改 ,删除操作。 四个子模块之间关系如图 13： 正在输入（网 @laoshutou）为您倾心整理（下载后双击删除） 如有需求请发站内信（下载后双击删除） 图 13 车票 信息管理模块关系图 车票信息管理模块界面设计如图 14： 图 14 车票信息管理界面 在这个界面中，同样使用了 MSFlexGrid 控件来显示车票信息。 在窗口中显示出车票信息后，管理员可以通过“添加”，“修改”，“删除”，“查询” 4个按钮来对车票的编号，汽车编号，起始城市，到达城市，购票日期，购票时间，车票价格等信息进行管理和操作。 车票信息添加子模块 当有新的汽车线路添加了的时候，管理员就需要设置相应的新的车票信息。 管理员通过车票信息管理界面进入车票管理模块，点击添加按钮，将出现添加车票信息的界面，管理员输入车票编号，汽车编号，起始城市，到达城市，购票日车票编号 备注信息 汽车编号 起始城市 到达城市 购票日期 购票时间 车票价格 车票信息管理 添加信息 修改信息 删除信息 查询信息 正在输入（网 @laoshutou）为您倾心整理（下载后双击删除） 如有需求请发站内信（下载后双击删除） 期，购票时间，车票价格和备注后，点击添加按钮，完成对车票信 息的添加，设计界面如图 15： 图 15 车票信息添加界面 车票信息 修改 子模块 在该模块的设计中，实现管理员对现有车票信息的修改，管理员首先选中需要修改的线路的车票信息，管理员在完成对相应信息的修改后，点击“修改”按钮，将启动 cmd_ok_click 事件，更新数据库，完成对车票信息的修改，设计界面如图 16： 图 16 车票信息修改界面 车票信息查询子模块 该模块的设计主要是方便管理员对车票信息的查询而设计的。 管理员可以在该模块中，根据数据库现有车票的信息，在下拉列表中选择所需要的起始城 市，到达城市，车票日期，车票时间就可以查询到相关的车票信息，完成对车票信息正在输入（网 @laoshutou）为您倾心整理（下载后双击删除） 如有需求请发站内信（下载后双击删除） 的查询功能。 设计界面如图 17： 图 17 车票信息查询界面 启动该界面时，需要载入 4 个下拉式组合框的信息，点击查询按钮，启动cmd_que_Click 事件，在窗口中显示出符合要求的购票信息。 实现该功能的核心代码如下： OpenDB ‘选中起始城市的信息，载入下拉式组合框中 strSQL = Select Distinct departcity from ticketinfo ‘打开数据库连接 strSQL, objConn, adOpenKeyset, adLockPessimistic ‘将起始城市信息载入下拉式组合框中 If Not Then ‘当无该数据的时候跳出循环 Do While Not (0).Value Loop Else ‘如果没有该条信息，提示请先设置车票信息 CloseDB MsgBox 请先设置车票信息 , vbOKOnly Exit Sub End If ‘选中到达城市的信息，载入下拉式组合框中 strSQL = Select Distinct arrivalcity from ticketinfo strSQL, objConn, 1, 3 Do While Not ‘当无该数据的时候跳出循环 (0).Value 正在输入（网 @laoshutou）为您倾心整理（下载后双击删除） 如有需求请发站内信（下载后双击删除） Loop ‘选中到达日期的信息，载入下拉式组合框中 strSQL = Select Distinct ticketdate from ticketinfo strSQL, objConn, 1, 3 Do While Not (0).Value Loop ‘选中车票时间的信息，载入下拉式组合框中 strSQL = Select Distinct tickettime from ticketinfo strSQL, objConn, 1, 3 Do While Not ‘当无该数据的时候就跳出循环 (0).Value Loop ‘关闭数据库连接和关闭数据库 CloseDB End Sub 4 测试 由于本系统的开发 使用了 visual basic 作为开发工具 ,具有可视化的编程环境 ,在编程的过程中就可以对所做的结果进行运行 ,以立即进行改正。 经过不断地修改和更正，本系统能很好地完成预期效果。 管理员在通过登录界面的身份验证之后，进入系统主界面，在主界面中，用户可以通过菜单形式选择进入的模块。 在系统用户管理中，可以添加，修改系统。