loading吉林大学本科生毕业论文
图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