加氢车间信息管理系统的开发

车间现代化的主要内容之一就是实现各方面管理现代化, 只有将计算机引入车间管理, 才能形成现代化车间管理形式, 才能真正体现企业规范化、现代化的管理手段[1,2,3]。

1 系统设计概述

1.1 主要设计功能

加氢车间信息管理系统主要具备以下功能。

系统管理具体包括添加、删除用户, 修改用户信息等功能。

工艺技术管理对工艺指标、分析指标、技改技措项目等进行查询、修改、添加、删除操作。

设备管理对设备基本信息、运行信息、维修信息进行操作, 比如查询、修改、添加、删除等。

1.2 系统开发工具介绍

加氢车间管理系统的开发采用Microsoft Visual Basic 6.0开发工具和Microsoft SQL Server 2000后台数据库。

1.2.1 Microsoft Visual Basic 6.0简介

Visual Basic是Microsoft公司于1991年推出的, 1998年发布6.0版, 使Visual Basic的功能得到了很大的增强和完善, 成为一个实用性很强的软件开发工具。

1.2.2 Microsoft SQL Server 2000简介

Microsoft SQL Server 2000是Microsoft公司推出的一套完整的数据库和分析产品, 可迅速提供下一代可扩展电子商务、各种业务和数据仓库解决方案。[1]

2 系统总体设计

2.1 系统管理的功能

加氢车间信息管理系统是一个交互式查询系统, 利用该系统普通用户作为只读用户可以查询、打印工艺指标、分析指标、设备信息;系统管理员可管理所有用户, 查询、修改、增加、删除工艺指标、分析指标、设备信息。

2.2 系统功能图

加氢车间信息管理系统的系统功能图如图1。

2.3 系统数据库设计

2.3.1 应用程序和数据库的接口

加氢车间信息管理系统采用ODBC+ADO访问数据库。运行Microsoft Visual Basic6.0后, 新建工程并以加氢车间管理系统为名保存, 在这个工程中选择菜单“工程”中的“引用”命令, 在“引用—加氢车间管理系统.vbp”对话框中“可用的引用”中选择Microsoft ActiveX Data 2.7 Library选项, 确定后就在程序中加入了对ADO的引用。

2.3.2 数据库表标识规则

(1) 数据库表名标识规则。

加氢数据库的表标识全部为tb开头, 除用户信息表用tb加英文User为标识外, 其它各表均以tb加汉语拼音首字母为标识。

(2) 字段标识规则。

用户信息表字段以去掉tb的表名加英文字段名为标识, 如用户信息表中的“用户密码”字段以“UserPassword”为标识;其它表字段以字段名称的汉语拼音首字母加字段的英文标识为标识。

2.3.3 数据库设计

(1) 数据库。

(1) 数据库名称:加氢数据库。

(2) 标识:jiaqing。

(3) 创建数据库:运行Microsoft SQL Server 2000中的企业管理器, 在数据库文件夹单击右键, 选择“新建数据库”, 并取名为jiaqing。

(2) 数据库表结构。

打开加氢数据库, 在左部树中单击“表”, 在右部窗口中单击右键选择“新建表”, 逐个建立以下各表。此处仅以用户信息表为例, 其它各表略。

(1) 表名:用户信息表;标识:tbUser。

(2) 表名:工艺指标表;标识:tbGyzb。

(3) 分析指标按物料种类 (原料、塔顶、加氢产品、塔釜) 分为四个结构相同的表。

表名分别为:原料分析指标表、塔顶分析指标表、加氢产品分析指标表、塔釜分析指标表;标识分别为:tb Yl Fx、tb Td Fx、tbCpFx、tbTfFx。

(4) 表名:技改技措表;标识:tbJgjc。

(5) 表名:换热器表;标识:tbHrq。

(6) 表名:罐表;标识:tbGuan。

(7) 表名:泵表;标识:tbBeng。

(8) 表名:其它设备表;标识:tbQtsb。

(9) 表名:设备运行记录表;标识:tbSbyx。

(10) 表名:设备维修记录表;标识:tbSbwx。

2.3.4 访问数据库

ADO通过ODBC方式访问数据库可以使用用户DSN、系统DSN和文件DSN, 本系统采用文件DSN。创建名称为jiaqing.dsn。

3 系统功能设计

3.1 系统公用模块设计

加氢车间信息管理系统中创建了一个系统模块, 用来定义全局变量并存储公共函数。

(1) 定义两个全局变量gUserName (用户名) 和g User Kind (用户权限) , 两个常量BLUE (蓝色) 和WHITE (白色) 。

(2) 公共函数及其作用:Main函数, 系统启动函数;Connectstring函数, 设置数据库连接字符串函数;ExecuteSQL函数, SQL语句的执行函数;DBExist函数, 判断数据库中是否存在指定记录;txtIsNull函数, 判断输入到TextBox的内容是否为空;cboIsNull函数, 判断Combo Box的内容是否为空;IsOverStringLen函数, 判断输入内容是否超过给定值;viewData函数, 在Datagrid中显示数据;ISEquelLen函数, 判断输入到TextBox的内容长度是否为给定值;cboData函数, 为ComboBox赋值函数。

3.2 系统登录模块程序设计

(1) “确定”按钮的Click事件:进行用户身份验证, 处理流程。

(1) 开始用户身份验证。

(2) 检验用户名是否为空。

(3) 若为空则给出出错信息提示, 设置TextBox获得焦点, 处理终止。

(4) 以输入的用户名为关键字, 检索用户信息表的用户名和密码字段。

(5) 如果不存在该用户名, 处理终止, 并提示错误信息。

(6) 如果存在该用户名, 比较输入的密码与从数据库中检索出的密码字段值是否相等, 如果密码相等, 进入主控平台并将用户名和用户权限赋给全局变量gUserName和gUserKind;如果不等, 设置密码TextBox获得焦点, 处理终止, 并提示错误信息。

(2) “取消”按钮的Click事件:卸载当前窗体, 退出登录。

3.3 系统主控平台模块设计 (略)

3.4 用户信息管理模块设计 (略)

3.5 修改密码模块程序设计

(1) “确定”按钮的Click事件:更新用户密码。

(1) 以用户名为关键字, 检索用户信息表中与用户名对应的密码字段 (用户名已在登录成功时被赋给全局变量gUserName) 。

(2) 将输入的原密码与检索到的密码相比较, 如果不同, 提示用户“原密码不正确!”设置原密码TextBox获得焦点, 背景色变为深蓝色, 处理终止。

(3) 如果相同, 检验输入的新密码不能为空, 且不能超过数据库中允许的最大长度, 否则处理终止, 并给出出错信息, 设置新密码的TextBox获得焦点, 背景色变为深蓝色, 处理终止。

(4) 调用公共函数txtIsNull检验确认新密码TextBox不能为空, 否则提示“请确认新密码!”, 处理终止。

(5) 检验新密码和确认新密码的TextBox内容是否相同, 如果不同提示“两次输入密码不一致!”, 设置确认新密码的TextBox获得焦点, 背景色变为深蓝色, 处理终止。

(6) 更新用户信息表中的用户密码字段。

(2) 当TextBox内容改变时, 将TextBox背景色恢复为白色。

(3) “取消”按钮的Click事件:卸载本窗体。

3.6 工艺指标管理模块设计 (略)

3.7 设备基本信息管理模块设计 (略)

3.8 打印报表设计

本系统提供的报表有工艺指标表、分析指标表、技改技措表、设备一览表、设备运行记录表、设备维修记录表。报表的设计包括数据环境设计和数据报表设计。

4 结语

加氢车间信息管理系统的针对加氢车间工艺技术、设备管理工作的特点, 主要设计了用户管理、工艺技术管理、设备管理三个子系统, 具备对用户、工艺技术管理、设备管理等信息进行查询、添加、修改、删除等操作功能。

摘要：加氢车间信息管理系统针对加氢车间工艺技术、设备管理工作的特点, 主要设计了用户管理、工艺技术管理、设备管理三个子系统。应用本系统可以在计算机上灵活、方便地管理车间的技术、设备资料, 从而大大的提高工作效率, 使车间日常管理更加系统化、现代化。

关键词：加氢车间,信息,管理系统,数据库,ADO

参考文献

[1] 彭其美, 冷英男.Visual Basic程序设计教程[M].北京:人民邮电出版社, 2006, 1.

[2] 黄明, 梁旭, 冯瑞芳.Visual Basic+SQL Server中小型信息系统开发实例精选[M].北京:机械工业出版社, 2007, 4.

[3] 董国平, 颜志军, 万丽.Visual Basic数据库开发[M].北京:电子工业出版社, 2006, 8.