GetChartMgr

설명

현재 세션과 연관된 CHARTMGR 오브젝트를 리턴합니다.

CHARTMGR 오브젝트를 사용하여 차트를 생성하고 출력 파일의 모양을 제어할 수 있습니다.

주: 이 메소드는 Windows 전용입니다.

구문

VBScript

workspace.GetChartMgr 

Perl

$workspace->GetChartMgr(); 
ID
설명
workspace
현재 세션에서 가져온 Workspace 오브젝트입니다.
Return value
현재 세션에 연관된 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); 

피드백