智能化轨道小车物流系统

吉林大学本科生毕业论文

图4-4 实时动态监控窗口（局部）

2、站点实时状态

通过调用CClient.Delete方法，显示结果。操作实现如图4-5：

图4-5 站点实时状态

3、转轨器实时状态

调用转轨器信息窗体frmClient显示数据，显示结果。操作实现如图4-6：

16

吉林大学本科生毕业论文

图4-6 转轨器实时状态

4、防火门实时状态

调用烦防火门信息窗体frmClient显示数据，显示结果。操作实现如图4-7：

图4-7 防火门实时状态

对于条码的实时监控采取相同的技术手段，这里不再重复做更多的介绍。

17

吉林大学本科生毕业论文

4.2.4 系统信息管理模块

系统信息管理是与用户密切关联的，系统的全部运行、故障信息都要保留供日后查验，因为本系统的设计思想就是以用户信息为核心。前面用户信息管理窗体的设计过程中，已经完成了部分信息的设计。具体实现如下：

1、历史信息

调用历史信息对话框frmAddCoop，接收用户输入的信息，调用CCooperate.AddNew方法，显示结果。操作实现如图4-8：

图4-8 历史信息

2、实时故障

获取选中元素，调用实时故障信息对话框frmAddCoop显示数据，接收用户输入，调用CCooperate.Update方法，显示操作结果。操作实现如图4-9：

18

吉林大学本科生毕业论文

图4-9 实时故障

3、版本信息

此模块的实现原理和实时故障模块非常相似，代码的结构与实现也完全相同，在此就不做过多介绍了。

4.3 数据库操作技术实现

连接数据库及相关的初始化操作，同时存放在对数据库的操作过程中可能用到的一些公共函数，在工程中建立了mdlPublic模块。其中ConnectToDatabase函数与数据库建立连接，具体实现过程如下：

Public Function ConnectToDatabase(DBType As gxcDBType) As Boolean On Error GoTo ERR_CONN Set g_Conn = New Connection

'设置服务器名称，数据库名称，登录名（此时假设密码为空）

Dim ServerName As String, DBName As String, UserName As String, strPwd As String

ServerName = \ DBName = \ UserName = \ strPwd = \ '连接到数据库

19