GetChartMgr

説明

現在のセッションに関連した CHARTMGR オブジェクトを戻します。

CHARTMGR オブジェクトを使用すると、グラフの生成と、出力ファイルの表示の制御を行うことができます。

注: このメソッドは Windows 専用です。

構文

VBScript

workspace.GetChartMgr 

Perl

$workspace->GetChartMgr(); 
識別子
説明
workspace
現在のセッションから取得された Workspace オブジェクト。
戻り値
現在のセッションに関連した CHARTMGR オブジェクト。

VBScript

Const OLEWKSPCSYSTEMQUERIES = 1

Dim oSession  ' a Session object

Dim cq_resultset ' a Resultset object

Dim cq_query_def ' a QueryDef object

Dim oWorkSpace ' a Workspace object

Dim oChartMgr ' a ChartMgr object

Dim querylist

Dim querystr

Dim filename

Set oSession = CreateObject("CLEARQUEST.SESSION")

oSession.UserLogon "admin", "", "RUC", AD_PRIVATE_SESSION, ""



Set oWorkSpace = oSession.GetWorkSpace

querylist = oWorkSpace.GetChartList(OLEWKSPCSYSTEMQUERIES)

For Each querystr In querylist

  Set cq_query_def = oWorkspace.GetChartDef(querystr)

  Set cq_resultset = oSession.BuildResultSet(cq_query_def)

  filename = "c:¥test.jpg"

  Call cq_resultset.Execute

  Set oChartMgr = oWorkSpace.GetChartMgr

  Call oChartMgr.SetResultSet(cq_resultset)

  oChartMgr.Width = 600

  oChartMgr.Height = 600

  oChartMgr.MakeJPEG(filename)

  

Next 

Perl

use CQPerlExt;



$session = CQSession::Build();

$user = "admin";

$pass = "";

$db = "SAMPL";

$session->UserLogon($user, $pass, $db, "");



$wkSpc = $session->GetWorkSpace();

$chartDef = $wkSpc->GetChartDef("Personal Queries/Sample_Chart");

$resultSet = $session->BuildResultSet($chartDef);

$resultSet->Execute();



$chartMgr = $wkSpc->GetChartMgr();

$chartMgr->SetResultSet($resultSet);

$chartMgr->MakeJPEG("C:¥¥temp¥¥BBChart.jpg");



CQSession::Unbuild($session); 

フィードバック