上位机监控软件中的数据库操作.docx

《上位机监控软件中的数据库操作.docx》由会员分享，可在线阅读，更多相关《上位机监控软件中的数据库操作.docx（8页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、上位机监控软件中的数据库操作1. 引言 本系统是一个粉料加料系统，分为六个局部：加料区、一号 粉料区、二号粉料区、三号粉料区、混合搅拌区及下料包装区。其加料区由一个加料 罐和一些泵和阀组成；一号粉料区由四个粉 料罐和一个称量罐及泵和阀组成；二号粉料区同一号粉料区； 三 号粉料区同一号粉料区；混合搅拌区由混合罐及内部搅拌浆组 成。依据实际状况需要完成以下功能。功能一：监视功能。将现场设备的信息，如阀的位置，变频 器的电流功率， 储罐内的液位，称重罐的重量等显示在上位机上，可以实时的监视现场的状况， 并可以手动掌握单个设备， 比方开 启一个阀活电机等， 并将相应的信息存入数据库， 使其能看到历 史

2、曲线及历史大事与报警的记录。功能二：治理功能。在上位机上能储存不定量配方，可以 建修改配方，也可以删除不用的配方， 依据生产的需要选择不同 的配方，系统将依据该配方的要求运行。功能三：报表功能。由于批次生产的特别性，一般需查看打 印不同的报表， 以供生产治理，这里需要日报，月报，按配方查 询，成分统计，配方统计等。2. 系统的硬件设计该系统的硬件由 1 台上位机电脑，1 组 PLC 通过以太网作。3. VB 设计上位机的外挂界面和数据库治理平台3.1 上位机与PLC 之间的通信本设计中，上位机与PLC 之间的通信协议有两种：一种是用 来实现监视功能的。用INTOUCH为上位机软件，通过ROCK

3、WELL 的 RSLINX 作为OPC 通讯连接上位机与 PLC，这样就能把 PLC 的 点与上位机的点一一对应起来， 在上位机上就能监视掌握现场的 设备了，这个在这里就不做具体说明。另一种是用来实现治理的，即把上位机的配方指令下达给PLC 我们选择一个适宜的配方，按下确定键后， PLC 就会收到该配方的全部信息， 并将依据此配方进展工作。 这个功能由于设 计很多数据的上下载及数据库的应用， 用上位机软件自身的功能 很难实现，所以承受了一个外挂的VB 程序作为实现该功能的中介，这里承受了 DDE 协议，使得 VB 界面中的数据下载到PLC 中，代码如下：start_recipe.Text=1s

4、tart_recipeTopic=“RSLinx|menniu“ start_recipeItem=“Weigh_Start ， L1， C1“ start_recipeMode=2 start_recipePokestart_recipeMode=0start_recipe.Text=0 start_recipeTopic=“RSLinx|menniu“ start_recipeItem=“Weigh_Start， L1，C1“ start_recipeMode=2 start_recipePoke start_recipeMode=0Text1.Text=Combo1.Text Text1

5、Topic=“RSLinx|menniu“Text1Item=“Recipe_Name“ Text1Mode=2Text1Poke Text1Mode=03.2 上位机与数据库之间的通信（1） INTOUCI 与数据库间的通信：在肯定的条件下，需要 从上位机上把特定的数据传到数据库中， 作为报表的数据源， 这 时就要建立上位机INTOUCH 与数据库ACCES之间的通信。 本设计中，In Touch 通过ODBC 和 Access 进展数据交互，通过In Touch SQL访问治理器将 In Touch 的数据记录到关系数据库中。 具体的步骤如下：首先，创立 Microsoft Access

6、数据库并配置 ODB数据源。先在 ACCESS据库中建立一个表，将需要记录的 数据分别列到每列中，安排好数据类型，记住数据库名和表名。然后配置 ODB数据源，建一个数据源，选择刚刚建的数据库，测试成功后就完毕了这步。然后，配置In Touch SQL 访问治理器。首先在 In Touch 标记 名字典创立和 Access 列名一样的标记名，其类型也要全都；然 后编写连接与断开数据库脚本；最终，启动In Touch SQL 访问管理器，建立绑定列表 BlindedList ，绑定列表把 InTouch 中的标 记名和数据库中表里的列名映射起来。 其连接与断开数据库脚本 如下：连接数据库：Resu

7、ltCode=SQLConnect Connectionld ，“DSN= 数据源名 “ ；断开数据库： ResultCode=SQLDisconnect ConnectionId ； 最终，验证数据通信是否正常。（2） VB 与数据库的通信：由于客户需要增加削减配方，In touch 又不好做这么麻烦的 Recipe，所以用VB 做一个外挂程 序与数据库通讯，特地用来做配方治理。这里使用OLE DB 接口连接 VB 与数据库，首先在VB 的界面上加一个Adodc 的控件，这 个控件就是一个数据通讯的接口， 在需要采集数据的时候， 写下 下面的脚本： Adodc1.ConnectionStri

8、ng=“Provider=Microsoft.Jet.OLEDB.4.0 ； Data Source=G:VBNEWVmengniu.mdb; Persist SecurityInfo=False“通过 OLEDB!接数据库 Adodc1.RecordSource=“select*from product通过 select 语whereproduct code=”“& Combo1.Text &“”“ 句在数据库中查找记录)这样，数据库就能和VB 连接起来了。3.3 数据操作的实现此配方治理由六个局部组成，分别为成安排置，罐子 配置， 配方治理，生产，报表，备料；其中成安排置，罐子配置，配方

9、治理是需要用户名及密码才可以进入， 具有肯定的保密性。 生产， 报表，备料是一般操作员所要使用的。点击主页上的“配方治理”按钮，输入准确的用户名和密 码，就能进入罐子配置窗口。当一翻开该窗口的时候，列表中显 示的是当前全部配方的或许信息， 从产品代码的下拉框中选择一个配方代码，该窗口将显示该配方的具体信息，包括该配方的成 安排比，需要的总重，混合时间等等， 的：VB 的实现过程是这样Adodc1.Visible=FalseAdodc1.ConnectionString=“Provider=Microsoft.Jet.OLEDB.4.0 ； Data Source=G:VBNEWVmengniu

10、.mdb; Persist Security Info=False“Adodc1.RecordSource=“select*from product“ Adodc1.RefreshSet DataGrid1.DataSource=Adodc1 Dim b(0 To 100 )As StringDim d As BooleanAdodc1.Recordset.MoveFirstFor i=1 To Adodc1.Recordset.RecordCountbi =Adodc1.Recordset.Fields “product code“ For j=1 To i-1If b i =bj Then

11、d=1 End If Next jIf d=0 ThenCombo1.AddItem Adodc1.Recordset.Fields code“ End Ifd=0 Adodc1.Recordset.MoveNext Next i “product3.4 报表功能的实现 在主页上点击“报表”，消灭如下窗口。 在这里可以查看日报， 月报，并可以通过分类查询各种数据。这里使用 VB 的 DataReport 做的报表。首先添加一个 Data Environment 并翻开它，然后鼠标右键单击 Connection1 ，选择属性后弹出一数据库连接属性窗体选择，单击“下一步 “，选择“Microsof

12、t Jet 4.0 OLE DB Provider“ 所必要的数据库确定。然后鼠标右键单击 Connection1 ，选择 “Add Command，“ DataEnvironment 就创立了一个 Command，1 然后鼠标右键单击Comma nd,选择属性后弹出一 Comma nd 属性窗体，在Database Object 属性中选择 Table，在 Object 中选择 Employee，然后单 击 Comma nd 属性窗体中的 Groupi ng，然后复选“Group Comma nd Object“ ，在 Fields in 中双击 “TitleOfCourtesy“ ，然后确

13、定即 按 TitleOfCourtesy 分组。添加一报表名为 DataReport1 ，在 DataReport1 的 DataSource 属性中填入“DataEnvironment1“，在 DataMember 中 填入“Command1_Grouping“,然后鼠标右键单击报表窗体选择 Retrieve Structure ，并确认这样就定义了一个报表构造。在报 表的“Command1_Grouping_Header 一栏中摆上一 RptTextBox 控 件，并设置DataField 属性为 “TitleOfCourtesy“ ，在报表的 “Command1_Detail“ 一栏中摆

14、上三个 RptTextBox 控件，设置 DataField 属性分别为“EmployeelD“， “LastName“和 “FirstName“，并将其 DataMember 属性设置为“Command1“双击报表，在代码窗体中输入以下代码： Private Sub DataReport_lnitialize Dim strShape As StringDim cnnReport As New ADODB.Connection Dim rstReport As New ADODB.RecordsetstrShape=“SHAPESELECT*FROM”batch_recipe”WHEREST

15、OP TIMEBETWEEN #“& Form5.Text5 &“# AND #“& Form5.Text6 &“#AS Command1 COMPUTE s(umCommand1.TARGET QUANTIT)YasTARGETQUANTITY， sum(Command1.REALQUANT) asREALQUANT， Command1 BY”INGREDIENT”“Set cnnReport=New ADODB.Connection With cnnReport.Provider=“MSDataShape.1“.Open“Data Source=G :VBNEWmengniu.mdb; D

16、ata Provider=Microsoft.Jet.OLEDB.4.0“End WithSet rstAgmRpt=New ADODB.Recordset With rstAgmRptSet.ActiveConnection=cnnReport .CursorLocation=adUseClient .C ursorType=adOpenStatic .LockType=adLockReadOnly .Source=st rShape.Open End WithSet Me.DataSource=rstAgmRpt End Sub这样，就能做出想要的任何格式的报表了。4. 完毕语在本设计中，使用 VB 与数据库的操作实现更多的单纯利用上位机软件无法实现的功能， 特别是利用 VB 的 DataReport 功能实现了格式多样报表。