2. 程式人生 > >intouch把查詢到的歷史報警記錄寫到excel

intouch把查詢到的歷史報警記錄寫到excel

阿新 • • 發佈：2018-11-12

1.建立一個數據源SQL_Date，資料來源的配置如下

2.建立一個繫結表。只要用到sqlconnect去連線資料庫，就必須先建立繫結表。







3.寫一個quickfunction，名字叫SQLTOEXCEL，內容如下


DIM Counter AS INTEGER;
DIM Cell AS MESSAGE;
DIM Result AS INTEGER;
DIM TotalCount AS INTEGER;
DIM WhereExpr AS MESSAGE;

{連線資料庫}
Result=SQLConnect(GMS_SQL_ConnectionId,  "DSN=SQL_Date;UID=sa;PWD=123456"  ); 
 LogMessage("SQLConnect 返回值:" + StringFromIntg (Result,10));

{查詢條件}
WhereExpr= "Area like '%" + FMCS_ALARM_GROUP + "%'"   + " And EventStamp >= '" +FMCS_DATETIME0+ "'"  + " And EventStamp <= '" +FMCS_DATETIME1+ "'"   ;
 LogMessage("SQLSelect 的條件是:" + WhereExpr);

{查詢}
Result = SQLSelect( GMS_SQL_ConnectionId, "v_AlarmHistory", "abtag", WhereExpr, "" );
TotalCount=SQLNumRows(GMS_SQL_ConnectionId);
 LogMessage("共計有記錄數 :" + StringFromIntg (TotalCount,10));

  IF(  TotalCount  == 0 ) THEN
                    RETURN  -1 ;
ENDIF;

{用wwpoke函式寫到表格裡面}
Cell = "r1c1";
WWPoke( "excel", "sheet1", Cell, "時間" );
Cell = "r1c2";
WWPoke( "excel", "sheet1", Cell, "狀態" );
Cell = "r1c3";
WWPoke( "excel", "sheet1", Cell, "名稱" );
Cell = "r1c4";
WWPoke( "excel", "sheet1", Cell, "值" );
Cell = "r1c5";
WWPoke( "excel", "sheet1", Cell, "報警限" );
Cell = "r1c6";
WWPoke( "excel", "sheet1", Cell, "報警註釋" );
Cell = "r1c7";
WWPoke( "excel", "sheet1", Cell, "組" );
Cell = "r1c8";
WWPoke( "excel", "sheet1", Cell, "操作員" );
Cell = "r1c9";
WWPoke( "excel", "sheet1", Cell, "操作員節點" );
Cell = "r1c10";
WWPoke( "excel", "sheet1", Cell, "持續時間" );

{獲取第一條記錄}
Result = SQLFirst( GMS_SQL_ConnectionId );
  IF( Result < 0 ) THEN
               LogMessage("SQLFirst 執行返回值 :" + StringFromIntg (Result,10));    
                    RETURN  -1 ;
ENDIF;


IF ( CALL WRITETOEXCEL(2) == -1 ) THEN 
    RETURN -1;
ENDIF;


FOR Counter = 3 TO TotalCount+1

{遍歷所有記錄}
Result= SQLNext( GMS_SQL_ConnectionId );

IF( Result == -5 ) THEN
    EXIT FOR;
ENDIF;


IF ( CALL WRITETOEXCEL(Counter) == -1 ) THEN 
    EXIT FOR;
ENDIF;


NEXT;

{關閉資料庫}
SQLDisconnect(GMS_SQL_ConnectionId); 






4.WRITETOEXCEL子函式的內容如下
 

DIM ROW AS MESSAGE;
DIM Result AS INTEGER;

Row = StringFromIntg( iRow, 10 );


GMS_SQL_Cell    = "r" + Row + "c1";
LogMessage("正在寫入"+GMS_SQL_Cell);
Result    = WWPoke( "excel", "sheet1", GMS_SQL_Cell, GMS_SQL_EventStamp );
IF( Result == -1 ) THEN
LogMessage(GMS_SQL_Cell+" 資料未成功寫入。可能的原因是應用程式未在執行，或是主題或專案不存在。");
 RETURN -1;
ENDIF;
IF( Result == 0 )  THEN
LogMessage(GMS_SQL_Cell+" 應用程式正忙，導致資料未成功寫入。");
 RETURN -1;
ENDIF;

GMS_SQL_Cell    = "r" + Row + "c2";
LogMessage("正在寫入"+GMS_SQL_Cell);
Result    = WWPoke( "excel", "sheet1", GMS_SQL_Cell, GMS_SQL_AlarmState );
IF( Result == -1 ) THEN
LogMessage(GMS_SQL_Cell+" 資料未成功寫入。可能的原因是應用程式未在執行，或是主題或專案不存在。");
 RETURN -1;
ENDIF;
IF( Result == 0 ) THEN
LogMessage(GMS_SQL_Cell+" 應用程式正忙，導致資料未成功寫入。");
 RETURN -1;
ENDIF;

GMS_SQL_Cell    = "r" + Row + "c3";
LogMessage("正在寫入"+GMS_SQL_Cell);
Result    = WWPoke( "excel", "sheet1", GMS_SQL_Cell, GMS_SQL_TagName );
IF( Result == -1 ) THEN
LogMessage(GMS_SQL_Cell+" 資料未成功寫入。可能的原因是應用程式未在執行，或是主題或專案不存在。");
 RETURN -1;
ENDIF;
IF( Result == 0 ) THEN
LogMessage(GMS_SQL_Cell+" 應用程式正忙，導致資料未成功寫入。");
 RETURN -1;
ENDIF;

GMS_SQL_Cell    = "r" + Row + "c4";
LogMessage("正在寫入"+GMS_SQL_Cell);
Result    = WWPoke( "excel", "sheet1", GMS_SQL_Cell, GMS_SQL_Value );
IF( Result == -1 ) THEN
LogMessage(GMS_SQL_Cell+" 資料未成功寫入。可能的原因是應用程式未在執行，或是主題或專案不存在。");
 RETURN -1;
ENDIF;
IF( Result == 0 ) THEN
LogMessage(GMS_SQL_Cell+" 應用程式正忙，導致資料未成功寫入。");
 RETURN -1;
ENDIF;

GMS_SQL_Cell    = "r" + Row + "c5";
LogMessage("正在寫入"+GMS_SQL_Cell);
Result    = WWPoke( "excel", "sheet1", GMS_SQL_Cell, GMS_SQL_CheckValue );
IF( Result == -1 ) THEN
LogMessage(GMS_SQL_Cell+" 資料未成功寫入。可能的原因是應用程式未在執行，或是主題或專案不存在。");
 RETURN -1;
ENDIF;
IF( Result == 0 ) THEN
LogMessage(GMS_SQL_Cell+" 應用程式正忙，導致資料未成功寫入。");
 RETURN -1;
ENDIF;

GMS_SQL_Cell    = "r" + Row + "c6";
LogMessage("正在寫入"+GMS_SQL_Cell);
Result    = WWPoke( "excel", "sheet1", GMS_SQL_Cell, GMS_SQL_Description );
IF( Result == -1 ) THEN
LogMessage(GMS_SQL_Cell+" 資料未成功寫入。可能的原因是應用程式未在執行，或是主題或專案不存在。");
 RETURN -1;
ENDIF;
IF( Result == 0 ) THEN
LogMessage(GMS_SQL_Cell+" 應用程式正忙，導致資料未成功寫入。");
 RETURN -1;
ENDIF;


GMS_SQL_Cell    = "r" + Row + "c7";
LogMessage("正在寫入"+GMS_SQL_Cell);
Result    = WWPoke( "excel", "sheet1", GMS_SQL_Cell, GMS_SQL_Area );
IF( Result == -1 ) THEN
LogMessage(GMS_SQL_Cell+" 資料未成功寫入。可能的原因是應用程式未在執行，或是主題或專案不存在。");
 RETURN -1;
ENDIF;
IF( Result == 0 ) THEN
LogMessage(GMS_SQL_Cell+" 應用程式正忙，導致資料未成功寫入。");
 RETURN -1;
ENDIF;

GMS_SQL_Cell    = "r" + Row + "c8";
LogMessage("正在寫入"+GMS_SQL_Cell);
Result    = WWPoke( "excel", "sheet1", GMS_SQL_Cell, "" );
IF( Result == -1 ) THEN
LogMessage(GMS_SQL_Cell+" 資料未成功寫入。可能的原因是應用程式未在執行，或是主題或專案不存在。");
 RETURN -1;
ENDIF;
IF( Result == 0 ) THEN
LogMessage(GMS_SQL_Cell+" 應用程式正忙，導致資料未成功寫入。");
 RETURN -1;
ENDIF;

GMS_SQL_Cell    = "r" + Row + "c9";
LogMessage("正在寫入"+GMS_SQL_Cell);
Result    = WWPoke( "excel", "sheet1", GMS_SQL_Cell, "" );
IF( Result == -1 ) THEN
LogMessage(GMS_SQL_Cell+" 資料未成功寫入。可能的原因是應用程式未在執行，或是主題或專案不存在。");
 RETURN -1;
ENDIF;
IF( Result == 0 ) THEN
LogMessage(GMS_SQL_Cell+" 應用程式正忙，導致資料未成功寫入。");
 RETURN -1;
ENDIF;
 

5.測試
在呼叫SQLTOEXCEL之前需要先新建一個excel表格，用微軟的office開啟(用wps開啟無效)，路徑和名字任意，其他都預設
然後在一個按鈕的腳本里面去呼叫CALL SQLTOEXCEL()即可
另外由於wwpoke函式執行較慢，導致intouch的for迴圈的預設5秒鐘超時時間會觸發，所以需要改大一些比如改成5分鐘：修改專案目錄下INTOUCH.ini檔案的LoopTimeout=300

測試日誌如下

相關推薦

intouch把查詢到的歷史報警記錄寫到excel

1.建立一個數據源SQL_Date，資料來源的配置如下 2.建立一個繫結表。只要用到sqlconnect去連線資料庫，就必須先建立繫結表。3.寫一個quickfunction，名字叫SQLTOEXCEL，內容如下 DIM Counter AS INTEGER; DIM Cell AS ME

mysql表名等大小寫敏感問題、字段類型timestamp、批量修改表名、oracle查詢歷史操作記錄等

table 時間 lar 內容 sele values 當前日期 load 兩個 mysql表名等大小寫敏感問題：http://blog.csdn.net/postnull/article/details/72455768； 1 MySQL在Linux下數據庫名、表名、

用java實現把sql語句查詢的結果集寫到dbf檔案中

這個其實就是一個匯出生成DBF檔案的功能，實現思路是這樣：首先動態拼接一個sql語句，執行後返回結果集到程式碼中，再通過dbfwriter物件把結果集的資料寫到dbf檔案裡。 1、開啟資料庫連線，執行sql語句，獲得結果集 private Connection bakConn;

java連線資料庫，並把查詢的結果轉換為JSON步驟記錄

myeclipse連線mysql資料庫 下載mysql和myeclipse;- 記錄一下我的myeclipse連線mysql所遇見的問題 1.第一步在myeclipse建立一個java工程 new->java project 2.第二步在工程檔案下建立li

把兩個dataframe資料寫到同一張excel表的不同sheet

def save_execl1(df1, df2, file_path): u""" :param df1: :param df2: dataframe格式資料 :param file_path: 想寫入的檔案路徑 :return:

memcache 快取中查詢歷史記錄

$id=$_GET['id']; $mem=new Memcache(); $mem->connect('127.0.0.1',11211); //$mem->flush();die; $url="http://apis.juhe.cn/idcard/index

【詳解】【記錄】Python寫Excel預約資訊表併發送郵件

類似於本例我們寫過兩個指令碼了，但還是遇到了一些問題。 本例是比較基礎且標準的一個版本。 實現的操作是：從資料庫中取出資料，寫入Excel表，併發送郵件。相當簡單的一個Excel表。 【傳送給單人版】 #!/usr/bin/python # -*- coding: UT

建立兩張物化檢視。寫一個儲存過程，包括把兩個物化檢視手動全部重新整理，並把查詢結果返回cursor

--建立兩張物化檢視--第一張物化檢視create materialized view mv_ref_user_phone_allas select * from v_ref_user_phone_all;--第二張物化檢視create materialized view m

使用phpexcel類讀寫excel文件

如何 blank 第三方類庫 第三方類 文件 pex ffi bsp 地址 使用原生php讀寫excel文件的博文地址： 基於使用原生php讀寫excel文件的不靠譜，本文將簡單介紹如何使用第三方類庫phpexcel來讀寫excel文件。 首先，需要到githut下載php

數據庫查詢歷史執行過的sql語句

ext ati ase stat code class esc 歷史 blog 平常的調試過程中可能想查詢以前執行過的語句。以下為sqlserver2008中查詢歷史執行語句。 SELECT TOP 1000 --創建時間 QS.creation_time, --查

python讀寫excel

字符串 一行 工作 default print file 設置 logs open python讀寫excel： # coding=utf-8 import xlrd import xlwt import traceback from xlutils.copy imp

Python讀寫excel表格的方法

python excel 表格 xls 目的：實現用python做excel的讀取、新增、修改操作。環境：ubuntu 16.04 Python 3.5.2用python讀寫文檔，一般是操作txt文件或者可以用記事本打開的文件，因為這個操作很直接，不需要導入其他模塊，但如果想要對excel表

Linq查詢datatable的記錄集合

data ring con () popu 記錄 post pos 變量 通過linq查詢datatable數據集合滿足條件的數據集 1.首先定義查詢字段的變量，比方深度 string strDepth=查詢深度的值； var dataRows

Python讀寫excel表格的方法二

python excel 讀寫表格 目的：實現用python的另一種方法做excel的讀取、新增操作。環境：ubuntu 16.04 Python 3.5.2情景：之前介紹了一種操作excel文件的方法（私鏈），現在使用另一種方法讀寫excel文件，一次性讀出或寫入，讀寫也很方便，讀出為有序字典

mysql數據庫導入導出 查詢 修改表記錄

oca cal 復制 lds etc gid type let 刪除 mysql數據導入導出： 導入： 把系統的文件的內容，保存到數據庫的表裏 導入數據的基本格式：mysql> load data infile "文件名" into table 表名 fields t

Java讀寫Excel之POI超入門(轉)

num mov war copy rbo workbook mon move dropdown 　　Apache POI 是用Java編寫的免費開源的跨平臺的 Java API，Apache POI提供API給Java程式對Microsoft Office格式檔案讀和寫的功

history查詢歷史命令

linux history History 命令用於查詢已執行的歷史命令。常用參數：N ：數字，表示列出最近n行命令-c ：將目前的shell中的所有的history內容刪除-a：將目前新增的history命令新增入histfile中，若沒有加hisfiles，則默認寫入~/.bash_history

[Python3]讀寫Excel - openpyxl庫

註釋 出版 logs com lin author arc ltm 一行 什麽是openpyxl openpyxl是一個第三方的pythonexcel讀寫庫，支持Excel2010 xlsx/xlsm/xltx/xltm文件格式。 openpyxl提供哪些能力？

python讀寫Excel文件--使用xlrd模塊讀取，xlwt模塊寫入

xlrd get sta series 有趣 light log 分享 均值 一、安裝xlrd模塊和xlwt模塊 1. 下載xlrd模塊和xlwt模塊 到python官網http://pypi.python.org/pypi/xlrd下載模塊。下載的文件

強制Lync 客戶端關閉歷史會話記錄

skype 聊天記錄 lync 歷時對話記錄 默認情況下Lync客戶端的歷史聊天記錄會保存在outlook中，如果要關閉集成在客戶端可以手動 將及時消息對話保存到電子郵件的"對話歷史記錄"文件夾中對話框的勾去掉。如果想要強制所有的客戶端不保存對話歷史記錄可以使用命令強制關閉打開Skype po