VB之车票管理系统

洛阳理工学院计算机与信息工程系

属性与数据源“车票”表中的的各个字段项绑定。 Command1的caption属性为“确定”，visible属性为false Command2的caption属性为“放弃”visible属性为false 第四个窗体form4为数据统计窗体

本窗体中的功能实现采用菜单方式。选择“工具“—”菜单编辑器“ 打开”菜单编辑器“对话框，输入标题（名称）：直方图（直方图）、散点图（散点图）、折线图（折线图）、立体直方图（立体直方图），单击“确定”按钮。

首先定义一个子函数zbx(“工程”—”添加过程”)，然后打开曾经建立的“biao.txt”文件，为了提高程序的通用性，采用动态数组存放数据，同时根据具体数值定义坐标系。设计思路是：从数据文件中读出一条记录，就增加一个数组元素存放当前数据。找出绘图数据中的最大值max ,根据该值设置Scale方法中的参数，再根据文件中的记录数n 绘图。 1、 直方图

绘制直方图可用带参数BF的Line语句来绘制。绘制过程是给出直方图中每个矩形框的左下角和右上角的坐标，左下角坐标中的y=0，右上角坐标中y为绘图数据，矩形框的宽度可根据坐标系宽度和记录数计算得到。 2、 散点图

绘制散点图可用Circle语句来绘制。绘制过程是先算出散点图之间的宽度，再根据写入到b(i)中的已定票人数来决定点的高度。 3、 折线图

折线图是在绘制散点图的基础之上，将绘制的每个点之间用直线连

接（Line语句） 4、 立体直方图

绘制立体直方图是是在直方图的基础之上，利用直方图的宽度和坐标来出另外三点的坐标，并用Line语句进行连接。

5、返回

单击返回按钮时，返回到form3窗体中

五.调试与测试

登陆界面：因为该系统环境不是一般办公室环境，而是带有一定复杂性的商业环境，所以如进行操作错误，将会带来一定的经济损失，为了确保安全性，对进入本系统设置了密码，不知道密码的人是无权进入本系统，本系统的进入信息是有一个表来提供的。只有满足了该表中的信息才能登陆到系统中。

第 9 页 共 26 页

洛阳理工学院计算机与信息工程系

图（数据库中的用户管理信息表）

图（登录界面）

当输入的用户名、密码、和用户权限都正确时，当用户权限为“高级管理

员时”，则form2中的可用，否则不可用。

且设定相同用户名一次只有三次登录机会，若三次密码都为错误，则该用户不能登录系统。

如输入以上内容均正确，单击“确定”按钮则进入到下一窗体（form2）。 窗体2中的查询功能包括两项：

1、 按班次查询

单查询时，需要指定ADODC1的数据源，一开始程序并没有运行出要

第 10 页 共 26 页

洛阳理工学院计算机与信息工程系

查询的内容，原因是设定过数据源之后，还要使用 Refresh方法进行刷新。之后运行出了正确结果。

例：在文本框中输入班次为“1090”，则运行结果如下：

2、按终点站查询：例输入终点站为“上海”单击“确定”按钮，则运行结果如下：

第 11 页 共 26 页

洛阳理工学院计算机与信息工程系

浏览所有班次的当前状态：

一开始在数据库中设置的发车时间和到达时间均为日期/时间型，而表中也没有“当前状态”这个字段，设想先取出发车时间这个字段的值，再和当前系统时间比较，以次来判断班次是否发出，将“已发出”和“未发出”两个变量根据情况用AS赋给“当前状态”，实际中表中不存在这个字段。但运行结果是出错，经分析后发现“发车时间”这个字段的值根本取不出来，于是尝试着换一种方法来设置，于是在车票表中新增了一个“当前状态”字段，将“发车时间”这个字段改为了文本型，可以取出其值，但还要与当前系统比较，所以用CDATA函数将发车时间的文本型转换为日期型，再用HOUR函数取出其小时数，用MINUTE函数取出其分钟数，在与当前系统时间的小时数与分钟数进行比较，再根据比较结果将“已发出”和 “未发出”赋给“当前状态”。经过这一系列的调试，使得运行出了正确结果。

例：当前系统时间是19：41，单击“浏览”按钮后，运行结果如下：

浏览时，还可以浏览指定班次的当前状态（设置方法与以上浏览全部车次的当前状态的方法相同），只显示出班次，发车时间和当前状态三个字段。首先单击“浏览查询”按钮时，先弹出一个对话框，输入要浏览的班次号。单击“确定”按钮，即可显示出当前班次的当前状态。 例：输入的班次号为：“k246”， 当前系统时间是19：41

第 12 页 共 26 页