赣州市网站建设_网站建设公司_Redis_seo优化

Wincc报表模板 1、数据库存储全局脚本。 存储时间自由设置 2、报表查询VBS脚本，带下拉框，组合框，查询内容自由选择，时间自由选择。 3、导出到本地EXECL。 并打印。 4、各类控件，语音报警控件，动画控件。 实时饼形图，注意是实时饼形图和历史数据饼形图两类，柱状图，折线图 注:提供核心画面和脚本文件。 完整项目文件

在工业自动化领域，Wincc报表模板是数据管理与可视化展示的关键工具。今天咱就来唠唠这个Wincc报表模板的那些核心功能以及它们背后的实现方式。

数据库存储全局脚本

数据库存储对于数据的长期保存和分析至关重要。在Wincc中，我们可以通过全局脚本来实现数据存储，并且能自由设置存储时间。

代码示例（以C脚本为例，当然也可用VBS脚本）

#include "apdefap.h" void OnMessage(char* lpszPictureName, char* lpszObjectName, char* lpszPropertyName) { // 获取当前时间 SYSTEMTIME st; GetLocalTime(&st); // 这里假设连接到SQL Server数据库 // 连接数据库 SQLHENV henv = NULL; SQLHDBC hdbc = NULL; SQLAllocHandle(SQL_HANDLE_ENV, SQL_NULL_HANDLE, &henv); SQLSetEnvAttr(henv, SQL_ATTR_ODBC_VERSION, (SQLPOINTER)SQL_OV_ODBC3, 0); SQLAllocHandle(SQL_HANDLE_DBC, henv, &hdbc); SQLConnect(hdbc, (SQLCHAR*)"YourDSN", SQL_NTS, (SQLCHAR*)"Username", SQL_NTS, (SQLCHAR*)"Password", SQL_NTS); // 插入数据到表中 char sql[256]; sprintf(sql, "INSERT INTO YourTableName (TimeStamp, YourDataColumn) VALUES ('%04d-%02d-%02d %02d:%02d:%02d', %f)", st.wYear, st.wMonth, st.wDay, st.wHour, st.wMinute, st.wSecond, GetTagDouble("YourTagName")); SQLExecDirect(hdbc, (SQLCHAR*)sql, SQL_NTS); // 关闭数据库连接 SQLDisconnect(hdbc); SQLFreeHandle(SQL_HANDLE_DBC, hdbc); SQLFreeHandle(SQL_HANDLE_ENV, henv); }

代码分析

1. 获取时间：GetLocalTime(&st);获取本地当前时间，这为数据添加了时间戳，方便后续按时间查询。
2. 数据库连接：通过SQLAllocHandle和SQLConnect函数连接到指定的数据源（这里假设是SQL Server，实际中要根据你的数据库类型调整）。
3. 插入数据：使用sprintf函数构建SQL插入语句，将当前时间和指定的Wincc变量值插入到数据库表中。
4. 关闭连接：操作完成后，释放数据库连接资源，保证系统资源合理使用。

存储时间的自由设置，可以通过在脚本中添加变量来控制，比如设置一个全局变量StorageInterval，通过改变这个变量的值，来控制多久执行一次数据存储操作。

报表查询VBS脚本

报表查询功能允许用户通过下拉框、组合框自由选择查询内容，同时还能自由选择时间范围。这极大地提高了数据查询的灵活性。

代码示例

Sub QueryData() Dim dropdownValue, comboboxValue, startTime, endTime dropdownValue = ScreenItems("DropdownName").Value comboboxValue = ScreenItems("ComboboxName").Value startTime = ScreenItems("StartTimePicker").Value endTime = ScreenItems("EndTimePicker").Value Dim conn, rs Set conn = CreateObject("ADODB.Connection") conn.ConnectionString = "Provider=SQLOLEDB;Data Source=YourServer;Initial Catalog=YourDatabase;User ID=Username;Password=Password" conn.Open Dim sql sql = "SELECT * FROM YourTableName WHERE " If dropdownValue <> "" Then sql = sql & "YourColumn1 = '" & dropdownValue & "' AND " End If If comboboxValue <> "" Then sql = sql & "YourColumn2 = '" & comboboxValue & "' AND " End If sql = sql & "TimeStamp BETWEEN '" & startTime & "' AND '" & endTime & "'" Set rs = conn.Execute(sql) '这里可以对查询结果进行进一步处理，比如显示在表格中 Do While Not rs.EOF MsgBox rs.Fields("YourColumn3").Value rs.MoveNext Loop rs.Close conn.Close Set rs = Nothing Set conn = Nothing End Sub

代码分析

1. 获取控件值：通过ScreenItems("控件名").Value获取下拉框、组合框以及时间选择器的值。
2. 数据库连接：使用ADODB.Connection对象连接到数据库，根据实际数据库情况设置连接字符串。
3. 构建查询语句：根据用户选择的条件构建SQL查询语句，动态地添加筛选条件。
4. 执行查询并处理结果：使用conn.Execute执行查询，并通过循环遍历结果集进行处理，这里简单地用MsgBox显示其中一列的值，实际应用中可以显示在报表或表格控件中。

导出到本地Excel并打印

将查询到的数据导出到本地Excel并打印，方便数据的进一步分析和分享。

代码示例

Sub ExportAndPrintToExcel() Dim rs, conn Set conn = CreateObject("ADODB.Connection") conn.ConnectionString = "Provider=SQLOLEDB;Data Source=YourServer;Initial Catalog=YourDatabase;User ID=Username;Password=Password" conn.Open Dim sql sql = "SELECT * FROM YourTableName" Set rs = conn.Execute(sql) Dim excelApp, excelBook, excelSheet Set excelApp = CreateObject("Excel.Application") Set excelBook = excelApp.Workbooks.Add Set excelSheet = excelBook.Sheets(1) Dim i, j For i = 0 To rs.Fields.Count - 1 excelSheet.Cells(1, i + 1).Value = rs.Fields(i).Name Next i = 2 Do While Not rs.EOF For j = 0 To rs.Fields.Count - 1 excelSheet.Cells(i, j + 1).Value = rs.Fields(j).Value Next i = i + 1 rs.MoveNext Loop excelSheet.PrintOut excelBook.SaveAs "C:\YourPath\YourFileName.xlsx" excelBook.Close excelApp.Quit rs.Close conn.Close Set rs = Nothing Set conn = Nothing Set excelSheet = Nothing Set excelBook = Nothing Set excelApp = Nothing End Sub

代码分析

1. 数据库查询：和前面类似，先连接数据库并执行查询获取数据。
2. Excel操作：创建Excel应用程序对象excelApp，添加工作簿excelBook和工作表excelSheet。
3. 数据填充：将查询结果的列名和数据逐行逐列填充到Excel表格中。
4. 打印与保存：调用PrintOut方法打印工作表，然后使用SaveAs方法保存Excel文件到指定路径。最后关闭并释放所有对象资源。

各类控件及图表

语音报警控件

语音报警控件能在特定事件发生时发出语音提示。在Wincc中，可以通过脚本调用语音合成接口来实现。例如，使用Windows自带的SAPI（Speech Application Programming Interface）。

Sub AlarmVoice() Dim speech Set speech = CreateObject("SAPI.SpVoice") speech.Speak "报警！系统出现异常情况" Set speech = Nothing End Sub

这段代码创建了一个语音对象，并使用Speak方法发出指定的语音提示。

动画控件

动画控件用于在画面上展示动态效果，比如设备的启停动画。可以通过关联变量来控制动画的显示状态。例如，一个泵的启停动画，当泵的运行状态变量为1时，显示泵运行的动画，为0时显示泵停止的动画。在动画属性的“显示/隐藏”或“可见性”属性中，设置条件表达式关联泵运行状态变量即可。

实时饼形图与历史数据饼形图、柱状图、折线图

1. 实时饼形图：实时饼形图可以通过与实时数据变量关联来动态展示数据比例。在Wincc的图形编辑器中创建饼形图对象，然后在其属性中设置数据关联，例如关联几个不同的实时变量，它们代表不同部分的占比数据。
2. 历史数据饼形图：要创建历史数据饼形图，首先需要从数据库中查询历史数据。结合前面提到的数据库查询脚本，将查询到的历史数据按类别统计占比，然后将这些占比数据关联到饼形图对象。
3. 柱状图和折线图：柱状图和折线图同样可以通过关联实时或历史数据来展示数据趋势。在图形编辑器中创建相应的图表对象，设置其数据轴和数值轴的属性，关联对应的变量或查询结果数据，就可以直观地展示数据变化。

核心画面与脚本文件及完整项目文件

整个Wincc报表模板项目包含核心画面文件（.pdl文件），这些画面设计了各种控件布局，方便用户操作。脚本文件（.c或.vbs文件）包含了前面提到的数据库存储、查询、导出等功能的代码。完整项目文件则整合了画面、脚本、变量等所有元素，方便项目的部署和维护。

总之，Wincc报表模板通过这些功能和相应的实现方式，为工业自动化数据管理和可视化提供了强大的支持。无论是数据存储分析，还是查询展示，都能满足实际生产中的多样化需求。