智能汽车衡称重系统在进出厂实际管理系统中的应用

自动装车系统 | 2020-08-05 13:18:56

　　智能汽车衡称重系统在进出厂实际管理系统中的应用

大宗物料系统在企业通过移动终端、管理软件与硬件相结合的方式，变革现有企业车辆进出厂物流管理过程，优化系统流程和岗位职责再梳理，设置厂内物流集中监控室。

　　1.装车管理员确认信息无误后保存计量单。

　　2.车辆出厂时，司机把IC卡交给门岗，门岗收回IC卡，开门放行。

　　3.销售人员审核每张过计量单，计量单审核后，系统根据过计量单生成销售出库单(或者软件自动生成销售出库单)。

　　本项目是有上海鲸创电子称重系统有限公司配料事业部为中材建设集团在沙特水泥公司完成的水泥进出场管理系统。这个系统用一套西门子S7400 为执行部分硬件基础，三台工控计算机作为管理部分硬件基础。将执行部分与数据管理有机的结合起来。

　　系统构成

　　本系统作为这个工厂的原料进厂，产品出场的管理系统，有五大部分组成：

　　1、原料进厂数据采集及管理

　　2、产品销售及客户数据管理

　　3、产品自动定量罐装，出厂数据采集及管理

　　4、全部数据查询

　　5、数据打印

智能汽车衡称重系统在进出厂实际管理系统中的应用

　　这五部分及互想独立又有机的结合在一起，本系统执行部分有一套西门子S7 400 带ET200 完成。本系统现场称重终端采用十二台了METTER-TOLEDO 的数字式静态汽车衡，二次仪表为JagXtreme，通过Profibus 与S7 400 PLC 通讯，称重终端的高精度稳定运行为整个系统的稳定运行提供了良好的基础。数据处理及存储则有西门子400PLC 和两套WinCC 完成。总体配置图如下：

　　网络配置和硬件配置比较简单，但本系统却实现了工厂发运系统的全部功能。下面我们来详细讨论。

　　第一原料进厂数据采集及管理上位机的功能主要是采集原料车的各种信息和总重，然后将这些数据存储在缓冲数据库中，当卡车在卸完车后，再次回到汽车衡上时，系统记录空车重量同时读出总重，将数据整和后存入进料数据库中。数据的存储都有WinCC 自带的VBS 编辑器中完成，数据库同样也用了WinCC 自带的SQL Server 2000 数据库，如果需要共享的则采用了ACCESS 数据库。下面是部分操作界面(其中一台汽车衡)

　　存储数据用VBS 脚本如下：

　　Sub OnClick(Byval Item)

　　Dim database,server,uid,pwd

　　Dim strcn ,cn,rst,is_sql

　　Dim a,b

　　Dim NO

　　Set NO = HMIRuntime.Tags("NO")‘读变量值

　　NO.Read

　　Dim Company

　　WinCC 在进出厂管理系统中的应用胡绍明

　　Set Company = HMIRuntime.Tags("Company")‘读变量值

　　Company.Read

　　Dim Product

　　Set Product = HMIRuntime.Tags("Product")‘读变量值

　　Product.Read

　　Dim SheetNO

　　Set SheetNO = HMIRuntime.Tags("SheetNO")‘读变量值

　　SheetNO.Read

　　Dim TrackNO

　　Set TrackNO = HMIRuntime.Tags("TrackNO")‘读变量值

　　TrackNO.Read

　　Dim SetPoint

　　Set SetPoint = HMIRuntime.Tags("SetPoint")‘读变量值

　　SetPoint.Read

　　Dim CurrentUser

　　Set CurrentUser = HMIRuntime.Tags("@CurrentUser")‘读变用户名

　　CurrentUser.Read

　　Dim Ltime

　　Set Ltime = HMIRuntime.Tags("time")‘读变系统时间

　　Ltime.Read

　　Dim Ldate

　　Set Ldate = HMIRuntime.Tags("date")‘读变系统日期

　　Ldate.Read

　　database = "hu"

　　server = "BABY\WINCC"

　　uid = "sa"

　　pwd = ""

　　strcn = "Provider = SQLOLEDB.1;DRIVER = SQL SERVER;SERVER =" &_

　　server & "; DATABASE=" & database & "; UID=" & uid & "; PWD=" & pwd

　　‘定义连接字符

　　Set cn = CreateObject("ADODB.Connection")

　　cn.ConnectionString = strcn

　　cn.open

　　is_SQL = "insert into

　　Sheet1(nomber,trackno,compay,sheetno,product,setpoint,operator,ttime,ddate)" & _

　　"Values("& NO.Value &",'"& TrackNO.Value &"','"& Company.Value &"','"&

　　SheetNO.Value &"','"& Product.Value &"',"& SetPoint.Value &",'"& CurrentUser.Value

　　&"','"& Ltime.Value &"','"& Ldate.Value &"')" ‘存数据

　　cn.Execute(is_SQL)

　　cn.close

　　End Sub

　　第二产品销售及客户管理

　　在此部分产品销售和客户管理的数据存储部分和上一部分类似，在这里不再详细介绍，主要讲述客户管理部分。

　　客户管理主要任务是管理客户资料，其中包括：客户代码，客户名称，槽车号码，许可证号码，最大装车量等等。有WinCC 程序来存储，更新，管理，检查这些数据，以保证出货的安全性和快捷性。

　　下面是部分操作界面：

　　当用户用到此车出厂时，系统自动比对，以上数据，无误后方可操作。

　　第三产品自动定量罐装

　　在此部分，主要是有PLC 执行系统，按销售数量定量灌装销售的产品，然后出厂。首先，槽车按要求开上汽车衡后，当操作员输入车号后，系统开始读出曹车档案，自动读入销售量，同时比对各项参数，合法后系统自动控制称重仪表去皮，然后开始灌装，当达到销售量时，为了保证灌装精度系统自动分步停止灌装，整个灌装过程完成后，系统自动记录各项数据，将其存入服务器中，槽车便可以出厂，灌装结束。在此部分，主要将WinCC 的管理功能和PLC 的执行功能有机的结合。有西门子一家产品便很好的完成了比较复杂的数据存取，比对，现场灌装执行等功能。

　　操作界面如下：

　　第四数据查询

　　WinCC 在数据方面用VBS 来完成还是很方便地，特别是SQL 语言的应用，使得在SQL Server 2000，ACCESS 等数据库中按用户给出的条件进行查询都能够方便的实现。WinCC 在数据显示方面还是有欠缺的，但是开放的ActiveX 控件可以弥补这部分的不足之处。在这里我注册了Microsoft Visual Basic 6.0 的数据显示控件Microsoft Hierarchical FlexGrid Control 6.0 。将其植入到WinCC 中用来显示数据，效果不错，如下：

　　其原理是将各个查询条件组合为一个查询字符串，然后用SQL 语言去数据库里查询，最后将符合查询要求的查询结果付给FlexGrid 控件去显示。其部分语句如下：

　　Sub OnClick(ByVal Item)

　　Dim database,server,uid,pwd

　　Dim strcn ,cn,rs,SQL

　　Dim a,b,c,d,e,f,g

　　Dim Text1,buff

　　Dim BeginDate

　　Set BeginDate = HMIRuntime.Tags("BRiQi")

　　Dim EndDate

　　Set EndDate = HMIRuntime.Tags("ERiQi")

　　BeginDate.Read

　　EndDate.Read

　　Dim strSQL

　　Set strSQL = HMIRuntime.Tags("strSQL")

　　Set d = ScreenItems("CheckBox1")

　　If d.Process = 1 Then

　　Dim Trans

　　Set Trans = HMIRuntime.Tags("Trans")

　　Trans.Read

　　Set e = ScreenItems("OptionGroup1")

　　If e.Process = 1 Then