<< Click to Display Table of Contents >> マニュアル > 機能別リファレンス > アラーム > アラームのカスタマイズ > アラーム発生時に自動画面切り替えを行う

概要

アラームコントロール（リモートアラームクライアント、リモートアラームグリッド）は、アラームの発生、復帰などのイベントを、OnAlarmNotificationイベントで受け取ることができます。クライアント側でスクリプトを記述して、このイベントでアラームの発生を受け取り、目的のフォームをOpenFormで開くようにしてやる事で、アラーム発生時に自動的に画面を切り替えることができます。

 

また、各アラームが発生した時の切り替え先画面のフォーム名は、アラームマスタのコメント列に含めておきます。OnAlarmNotificationイベントでは、発生したアラームのコメントを受け取ることができるため、受け取ったコメントからフォーム名を取り出してOpenFormメソッドの引数に引き渡すことで、発生したアラームに対応した画面を呼び出すという一連の処理の流れをつなげることができます。

 

 

 

 

 

カスタマイズ例

1)アラームマスタの設定
アラームマスタにコメント列を追加し、アラーム時の表示先フォーム名を設定しておきます。
 

上例では、コメント列[CM0]にフォーム名を設定しています。

 

2)バックグラウンドフォームにリモートアラームクライアントを張り付ける
どのフォームが表示されている状態でも常にアラームの状態を監視するために、バックグラウンドフォームを利用します。バックグラウンドフォームは画面上には表示されず、常に裏で動作している特別なフォームです。
そして、バックグラウンドフォームとして動作させるフォームに、リモートアラームクライアントコントロールを貼り付けて利用します。バックグラウンドフォームが常駐することにより、リモートアラームクライアントコントロールを常に動作させておくことができます。
 

リモートアラームクライアントの初期化処理を記述します。ここでは、OnLoginイベントに記述します。
 
リモートアラームクライアントの初期化スクリプト例）

event OnLogin(login,level)
{
	if(login == F) {
		return;
	}
	this.Connect();
	this.SubscribeSummary("");
}

 

 

3)画面表示切替処理の実装例１
リモートアラームクライアントのOnAlarmNotificationイベントに、アラームが発生した際に対象のアラームのコメント０に設定されたフォームを自動的に表示する処理を実装します。アラームが発生すると、OnAlarmNotificationイベントが発生します。Typeはアラームの状態、Commentsはアラームのコメントが配列で格納されます。Typeが”new”の場合のみ、OpenFormメソッドで画面の表示切り替えを行います。そのため、アラームが復帰、確認、状態が変化した場合は表示切り替えを行いません。
 
リモートアラームクライアントのスクリプト例）

event OnAlarmNotification(Type,Date,AlarmId,bRecovered,bAcked,Comments)
{
	if(Type == "new") {
		var vFormName = Comments[0];
		::OpenForm(vFormName);
	}
}

 

 

4)画面表示切替処理の実装例２
上例を拡張して、画面初期表示時には画面切り替えを行わないようにする例を紹介します。
 
すでにアラームが発生している状態でクライアント画面を立ち上げた場合、発生中のアラームが立ち上げ直後に検出される事により画面切替が発生します。この挙動を回避する一つの方法として、OnAlarmNotificationDoneイベントを利用することで起動直後の自動画面切り替えを防ぐことができます。
 
OnAlarmNotificationDoneはアラームの通知終了を監視しており、アラームの通知が終了したタイミングでイベントが発生します。この仕組みを利用し、このイベントが初回に発生したことを判別するフラグ値を変数に格納し、このフラグが立った以降のみ画面の切り替えを行うようにします。
 
リモートアラームクライアントのスクリプト例）

var mvNotificationDoneFlag = F;

event OnLogin(login,level)
{
	if(login == F) {
		return;
	}
	this.Connect();
	this.SubscribeSummary("");
}

event OnAlarmNotification(Type,Date,AlarmId,bRecovered,bAcked,Comments)
{
	if(mvNotificationDoneFlag == F) {
		return;
	}
	
	if(Type == "new") {
		var vFormName = Comments[0];
		::OpenForm(vFormName);
	}
}

event OnAlarmNotificationDone(bComplete,ShowRecordCnt,SearchRecordCnt,ActualShowRecordCnt,ActualSearchRecordCnt,LastRecordDate)
{
	mvNotificationDoneFlag = T;
}