VBScript example:
Dim myValue
myValue = "Hello World"
‘cuSession 为 Session 对象
if(curSession.HasValue(“Hello”))
{
‘获得 Session 变量 Hello 的值
Dim newValue
newValue = curSession.NameValue("Hello")
}
else
{
‘创建变量 Hello, 并将 myValue 的值赋给 Session 变量
curSession.NameValue "Hello", myValue
}

Perl example:
my $myValue = "Hello World";
#$curSession 为 Session 对象
if($curSession->HasValue(“Hello”))
{
# 获得 Session 变量 Hello 的值
my $newValue = $curSession->GetNameValue("Hello");
}
else
{
# 创建变量 Hello, 并将 myValue 的值赋给 Session 变量
$curSession->SetNameValue("Hello", $myValue);
}

                VBScript example:
Set curSession = CreateObject(“CLEARQUEST.SESSION”)

Perl example:
my $curSession = CQSession::Build();
# 释放 Session 对象
CQSession::Unbuild($curSession);

                VBScript example:
Set currentSession = GetSession

Perl example:
my $curSession = $entity->GetSession();

                VBScript example:
Set Databases = curSession.GetAccessibleDatabases(“MASTER”, “admin”, “”)
for each db in Databases 
Set dbName = db.GetDatabaseName 
curSession.UserLogon("Mike", "1qaz2wsx", dbName, AD_PRIVATE_SESSION, "")
Next

Perl example:
my $Databases;
$Databases = $curSession->GetAccessibleDatabases("MASTR", "admin", ""); 
my $count = $Databases->Count();
for(my $i=0;$i<$count;$i++)
{ 
my $db = $databases->Item($i); 
my $dbName = $db->GetDatabaseName();
my $curSession->UserLogon( "Mike", "1qaz2wsx", $dbName, "" ); 
} 

                VBScript example:
'使用 BuildQuery 方法建立查询
'建立针对数据类型“defect”的查询
Set Query = curSession.BuildQuery ("defect")
Query.BuildField("id")
Query.BuildField("headline")

'建立查询的结果集
Set Result = curSession.BuildResultSet (Query)

'运行查询，查询结果会返回到结果集中
Result.Execute


'使用 BuildSQLQuery 方法建立查询
'创建 SQL 语句
Set sqlQuery = “Select * from Defect”

'建立查询的结果集
Set Result = curSession.BuildSQLQuery(sqlQuery)

'运行查询，查询结果会返回到结果集中
Result.Execute

'根据结果集的查询结果对数据进行操作
while (Result.MoveNext == AD_SUCCESS)
{
Set Id = Result.GetColumnValue(1)

'获取关于“defect”数据类型的数据记录
DefectEntity = curSession.GetEntity "Defect" Id

'获取相应数据项的值
 Set Head = DefectEntity.GetFieldValue("Headline").GetValue
 Set State= DefectEntity.GetFieldValue("State").GetValue
}


Perl example:
# 使用 BuildQuery 方法建立查询
# 建立针对数据类型“defect”的查询
my $Query = $curSession -> BuildQuery ("defect");
$Query -> BuildField ("id");
$Query -> BuildField ("headline");

# 建立查询的结果集
my $Result = $CurSession -> BuildResultSet ($Query);

# 运行查询，查询结果会返回到结果集中
$Result -> Execute();


# 使用 BuildSQLQuery 方法建立查询
# 创建 SQL 语句
my $sqlQuery = “Select * from Defect”;

# 建立查询的结果集
my $Result = $curSession->BuildSQLQuery($sqlQuery);

# 运行查询，查询结果会返回到结果集中
$Result->Execute();

# 根据结果集的查询结果对数据进行操作
while ($Result->MoveNext() == $CQPerlExt::CQ_SUCCESS)
{
my $Id = $Result->GetColumnValue(1);

# 获取关于“defect”数据类型的数据记录
my $DefectEntity = $curSession->GetEntity("Defect", $Id);

# 获取相应数据项的值
 my $Head = $DefectEntity->GetFieldValue("Headline")->GetValue();
 my $State= $DefectEntity->GetFieldValue("State")->GetValue();
}

                VBScript example:
'创建 WorkSpace 对象
Set WorkSpace = curSession.GetWorkSpace
Set ChartDef = WorkSpace.GetChartDef "Personal Queries/Sample_Chart"

'创建结果集
Set Result = curSession.BuildResultSet(ChartDef)
Result.SetMaxRowsInMemory(1000)
Result.Execute

'创建 ChartMgr 对象
Set chartMgr = WorkSpace.GetChartMgr
chartMgr.SetResultSet Result

'生成图
chartMgr.MakeJPEG "C:\\ Chart.jpg"

Perl example:
# 创建 WorkSpace 对象
my $WorkSpace = $curSession->GetWorkSpace();
my $ChartDef = $WorkSpace->GetChartDef("Personal Queries/Sample_Chart");

# 创建结果集
my $Result = $curSession->BuildResultSet($ChartDef);
$Result->SetMaxRowsInMemory(1000);
$Result->Execute();

# 创建 ChartMgr 对象
my $chartMgr = $WorkSpace->GetChartMgr();
$chartMgr->SetResultSet($Result);

# 生成图
$chartMgr->MakeJPEG("C:\\ Chart.jpg");

                VBScript example:
'创建 WorkSpace 对象
Set WorkSpace = curSession.GetWorkSpace

'创建 ReportMgr 对象
Set reportMgr = WorkSpace.GetReportMgr "Personal Queries/Sample_report"
reportMgr.SetHTMLFileName "C:\\Report.html"

'生成报表
reportMgr.ExecuteReport

Perl example:
# 创建 WorkSpace 对象
my $WorkSpace = $curSession->GetWorkSpace();

# 创建 ReportMgr 对象
my $reportMgr = $WorkSpace->GetReportMgr ("Personal Queries/Sample_report" );
$reportMgr->SetHTMLFileName("C:\\Report.html");

# 生成报表
$reportMgr->ExecuteReport();

                VBScript example:
'创建基于”Defect”数据类型的 Entity 对象
set DefectEntity = curSession.BuildEntity(“Defect”) 
DefectEntity.SetFieldValue “Headline”“MyDefect”
DefectEntity.SetFieldValue “Severity”“1-Critical”
Set Status = DefectEntity.Validate
if Status = “” then
 '提交数据记录
 DefectEntity.Commit
else
 DefectEntiry.Revert
End if

Perl example:
# 创建基于”Defect”数据类型的 Entity 对象
my $DefectEntity = $curSession->BuildEntity(“Defect”);
$DefectEntity->SetFieldValue(“Headline”, “MyDefect”);
$DefectEntity->SetFieldValue(“Severity”, “1-Critical”);
 my $Status = $DefectEntity->Validate();
 if($Status eq “”) 
{
 # 提交数据记录
$DefectEntity->Commit();
}
else
{
 # 打印错误信息
 print $Status;
 $DefectEntity->Revert();
}

                VBScript example:
'得到 id 为“BUGDB00000001”的数据记录
Set DefectEntity = curSession.GetEntity(“Defect”, “BUGDB00000001”)

'设定修改数据记录的操作
curSession.EditEntity DefectEntity “Modify”
DefectEntity.SetFieldValue “Headline”“MyDefect”
DefectEntity.SetFieldValue “Severity”“1-Critical”
Set Status = DefectEntity.Validate
if Status = “” then
 '提交数据记录
 DefectEntity.Commit
else
 DefectEntiry.Revert
End if

Perl example:
# 得到 id 为“BUGDB00000001”的数据记录
my $DefectEntity = $curSession->GetEntity(“Defect”, “BUGDB00000001”);

# 设定修改数据记录的操作
$curSession->EditEntity($DefectEntity ,“Modify”);
$DefectEntity->SetFieldValue(“Headline”, “MyDefect”);
$DefectEntity->SetFieldValue(“Severity”, “1-Critical”);
 my $Status = $DefectEntity->Validate();
 if($Status eq “”) 
{
 # 提交数据记录
$DefectEntity->Commit();
}
else
{
 # 打印错误信息
 print $Status;
 $DefectEntity->Revert();
}

                VBScript example:
'得到 id 为“BUGDB00000001”的数据记录
Set DefectEntity = curSession.GetEntity(“Defect”, “BUGDB00000001”)
'删除数据记录
curSession.DeleteEntity DefectEntity “Delete”

Perl example:
# 得到 id 为“BUGDB00000001”的数据记录
my $DefectEntity = $curSession->GetEntity(“Defect”, “BUGDB00000001”);
# 删除数据记录
$curSession->DeleteEntity($DefectEntity ,“Delete”);

                VBScript example:
Dim adminSession
Dim myDb
Dim mySchema
Dim mySchemaRev

'创建 AdminSession 对象
Set adminSession = CreateObject("ClearQuest.AdminSession")

'登陆模式库
adminSession.Logon "Mike", 1qaz2wsx"", "Schema_Repository_Name"

'获取模式版本信息
Set mySchema = adminSession.Schemas.Item(2)
Set mySchemaRev = mySchema.SchemaRevs.Item(0)

'创建用户数据库
Set myDb = adminSession.CreateDatabase(“UDB")

'配置数据库参数
With myDb
.RWLogin = "db2inst1"
.RWPassword = "db2inst1"
.Description = "creating database using API"
.vendor = 4 '或 AD_DB2
.DatabaseName = "TESTDB"
.SetInitialSchemaRev mySchemaRev
.TimeoutInterval = 120
.CheckTimeoutInterval = 5

'提交数据库参数变更，如果配置参数不正确则返回错误信息
.ApplyPropertyChanges
End With

Perl example:
my $adminSession;
my $myDb;
my $mySchema;
my $mySchemaRev;
my $mySchemaList;
my $mySchemaRevList;

# 创建 AdminSession 对象
$adminSession= CQAdminSession::Build();

# 登陆模式库
$adminSession->Logon( "Mike", 1qaz2wsx"", "Schema_Repository_Name");

# 获取模式版本信息
$mySchemaList = $adminSession->GetSchemas();
$mySchema =$mySchemaList ->Item(2);
$mySchemaRevList = $mySchema->GetSchemaRevs();
$mySchemaRev = $mySchemaRevList->Item(0);

# 创建用户数据库
$myDb = $adminSession->CreateDatabase(“UDB");

# 配置数据库参数
$myDb->SetRWLogin( "db2inst1");
$myDb->SetRWPassword("db2inst1");
$myDb->SetDescription( "creating database using API”);
$myDb->SetVendor(4); # 或 AD_DB2
$myDb->SetDatabaseName("TESTDB");
$myDb->SetInitialSchemaRev($mySchemaRev);
$myDb->SetTimeoutInterval(120);
$myDb->SetCheckTimeoutInterval(5);

# 提交数据库参数变更，如果配置参数不正确则返回错误信息
$myDb->ApplyPropertyChanges(0);
CQAdminSession::Unbuild($adminSession);