SELECT myNum, SUM(myValue) FROM anotherTable GROUP BY myNum WHERE myNUM <= 100;
---------------------------
return [#CurrentVersion, #CurrentList];
---------------------------
if (typeof(conPeek(packedClass,1)) != Types::INTEGER)
---------------------------
new MenuFunction(menuItemDisplayStr(SalesTable), MenuItemType::Display).run(args);
---------------------------
Query querySalesTable;
    querySalesTable.dataSourceTable(tableNum(SalesTable)).addRange(fieldNum(SalesTable, InterCompanyOrder)).value(queryValue(NoYes::Yes));
---------------------------
Common      common;
    ;
    this.handleDeleteActions(sysDictTable);
    common = sysDictTable.makeRecord();

    common.skipDatabaseLog(true);
    common.skipDataMethods(true);
    common.skipDeleteActions(true);
    delete_from common;
----------------------------
Dictionary      dictionary = new Dictionary();
tableId = dictionary.tableNext(tableId);
----------------------------
tableNum(SalesTable):
----------------------------
MyTable myTable;
RecordInsertList insertList = new RecordInsertList(myTable.TableId, True);
int i;
for ( i = 1; i <=  100; i++ )
{
myTable.value = i;
insertList.add(myTable);
}
insertList.insertDatabase();
}
-----------------------------
int p2 = strFind(line,' ',p1,strLen(line));
return subStr(line,p1,p2-p1);
----------------------------------
 if (o && (o.handle() == classIdGet(fr))
--------------------------------
return (dictFeatureKey.rights() != AccessType::NoAccess) ? true : false;
-------------------------------
kmQuestion.answerInputType      = KMQuestionAnswerInputType::CheckBox;
kmQuestion.answerInputType      = KMQuestionAnswerInputType::ComboBox;
kmQuestion.answerInputType  = KMQuestionAnswerInputType::RadioButton;
kmQuestion.answerInputType      = str2Int(kmQuestion.DEL_answerModeSelection);
--------------------------------
select sum(correctAnswer) from KMVirtualNetworkAnswerLine
        group by kmVirtualNetworkAnswerTableId, kmQuestionResultGroupId
--------------------------------
kmConnectionType.refFieldId = fieldNum(HRMCourseTable, description);
--------------------------------
segment += ':' + date2str(_date,321,2,0,2,0,4)+ subStr(time2str(_time,1,1),1,2) +
                         subStr(time2str(_time,1,1),4,2) + subStr(time2str(_time,1,1),7,2);
--------------------------------
Dialog   dialog            = new Dialog("@SYS73363");
DialogField     dlgClassTypeName  = dialog.addField(typeId(className));
Editor editor
--------------------------------
 filename = WinAPI::getSaveFileName(0, ['Text','*.txt'], '', "@SYS56237", 'txt', defaultName );
    if (filename)
    {
        io = new AsciiIo(filename, 'W');
        io.write(EditorScripts::getSelectedText(e));
    }
---------------------------------
switch (version)
    {
        case(#CurrentVersion) :
            [version,#CurrentList,packedQuery] = packedClass;
            if (packedQuery)
                qr = new QueryRun(packedQuery);
            break;
        default :
            return false;
    }
--------------------------------
select workCalendarDateLine
                index CalendarDateFromIdx
                where workCalendarDateLine.calendarId   == calendarId
                   && workCalendarDateLine.transDate    == transDate
---------------------------------
#define.dateFormat('DD/MM/YYYY hh:mm:ss')
default:
            warning(strFmt("@SYS24561",classIdGet(gantt)));
--------------------------------
 AsciiIo logFile = new AsciiIo(#VTHeapLog, 'a');
    ;
    logFile.write(this.prompt('  Unfreed object'), conPeek(data,2));
--------------------------------
select firstonly ledgerPeriod
        order by periodStart desc
        where ledgerPeriod.periodStart  <= _transDate   &&
              ledgerPeriod.periodCode   == _periodCode;
---------------------------------
client server static boolean checkFailed(SysInfoLogStr txt, URL helpURL = '', SysInfoAction _sysInfoAction = null)
{
    if (BMMainControl::inAction())
        appl.BMaddInfo(Exception::Info,txt);
    else
        infolog.add(Exception::Warning, getprefix()+txt, helpURL, _sysInfoAction, false);
    return false;
}
------------------------------------
switch(itemCode)
    {
        case TableGroupAll::Table       :   return item;
        case TableGroupAll::GroupId     :   return groupId;
        case TableGroupAll::All         :   return '';
    }
TableGroupAll::Table//是个枚举类型（base enum）
------------------------------------
void  new(CurrencyCode  _currencyCode)
{;
    currencyCode            = _currencyCode;
    exchRate                = 0;
    exchrateSecondary       = 0;
    exchRatesTriangulation  = UnknownNoYes::Unknown;
}
//当建立一个对象的时候会调用此方法
------------------------------------

// Create a list iterator
it = new listIterator (il);
   print it.definitionString(); // prints “int list iterator”
   print it.toString(); // prints “(begin)[4]”
// Go on for as long as elements are found in the list...
while (it.more())
   {
// fetch the next element
print it.value(); // prints 4 2 1
it.next();
   }
print it.toString();    // prints (end)
pause;

（1）、在AOT中建立一个class（aTestForDB）：

（2）、method main（）：
   static void main(Args args)
{
    HelloWorld hw  = new HelloWorld();
    Str sql="select * from userinfo";
    //**********************
    //****±äÁ¿µÄÉùÃ÷********
    //**********************

    int i=0;
    str name="XMDDL369";
    real r_i=23.789;
    boolean b=false;
    date d1=11\11\2000;
    date d3 = 21\11\1998;
    Integer s=90;
    int a_i[3];
    a_i[0]=1;

    //¿¼²é»ù±¾µÄÊý¾ÝÀàÐÍ£¬¼¯ºÏÀàÐÍ
    //ÈçºÎͨ¹ýÀàÈ¡µÃÊý¾Ý¿âµÄÁ¬½Ó£¬·µ»Ø¼Ç¼¼¯º
    //Òì³£µÄ²¶×½ºÍ´¦Àí
    //±äÁ¿µÄ×÷ÓÃÓò
    //int a_j[3]={1,2,3};

    //*********************
    print hw.sayHello()+" XMDDL369";
    while(i<10){
        print i;
        i++;
    }
    print name;
    print r_i;
    //print any2str("90.9")+name;
    if(b==true)
        print "b is true";
    else
        print "b is not true";
    print d3;
    print dayofmth(d3);
    print dayofwk(d3);
    print dayofyr(d3);

    print s;
    hw.sayWorld();
    try
    {
      print i/0.9;
    }
    catch (exception::error)
    {
       print "±» 0 ³ý";
    }
    ///////////////////////////
    ////////Êý¾Ý¿â²Ù×÷//////////
    ////////////////////////////
    //hw.find();//²éѯÊý¾Ý¿âÈ¡µÃ¼Ç¼
    //hw.insert();  //Ôö¡¢É¾¡¢¸Ä¡¢²é£¨CRUD£©
    //hw.update();
    //hw.delete();
    hw.executeBySQL(sql);
}
（2）method find（）：
void find()
{
    UserInfo ui;
    select ui where  ui.name=="xmddl";
    print ui.password;

    while select ui
    {   //²éѯËùÓеļǼ
        print ui.name+"  "+ui.Id;
    }
}
（3）、method delete（）：
void delete()
{
    Userinfo ui;
    ttsbegin;
    select forupdate ui where ui.Id=="new";
    //ui.Id="new";
    ui.delete();
    //ui.doDelete();
    ttscommit;
}
（4）、method update（）：
void update()
{
    Userinfo ui;
    ttsbegin;
        select forupdate ui where ui.id=="new";
        ui.name="xmddl369";
        ui.password="hello new";
        ui.update();
    ttscommit;
}
（5）、method insert（）：
void insert()
{
   Userinfo ui;
   ttsbegin;
   ui.Id="new";
   ui.name="xmddl";
   ui.insert();
   ttscommit;

    /* ÅúÁ¿¸üÐÂ
    MyTable myTable;
    RecordInsertList insertList = new RecordInsertList(myTable.TableId, True);
    int i;
    for ( i = 1; i <=  100; i++ )
    {
        myTable.value = i;
        insertList.add(myTable);
    }
    insertList.insertDatabase();//<-----this is
    */
}
（6）method executeBySQL（）：
void executeBySQL(Str sql)
{
    Connection con=new Connection();
    Statement stmt=con.createStatement();
    ResultSet rs=stmt.executeQuery(sql);
    //stmt.executeUpdate(sql);
    while(rs.next()){
        print "SQL "+rs.getString(1);
    }
}

     for(m=0;m<10;m++){//can not define int m=0 in this
          print m;
       }
4、开发环境概览：

int main(){
 cout<<"Hello World\n";
 return 0;
} 
（2）基本数据类型,63个关键字
char              1b
wchar-1         2b
int(16bit)        2b
int(32bit)        4b
float              4b
double            8b
bool               N/A
void               N/A
（3）注释类似c
（4）转义字符
\b退格
\f换页
\n换行
\r回车
\t水平制表
\"双引号
\'单引号
\\破折号

\v垂直制表符号
\a喇叭嗡鸣
\?问号
\N八进制常量
\xN十六进制常量
（5）运算符，类似c
（6）程序控制语句，类似c
（7）字符串和数组
（8）指针
（9）函数，引用、重载、默认参数
（10）更多的数据类型，结构和联合（类似c）
--------------------
（11）类
   i）构造函数和析构函数
   ii）访问限定符
   iii）友员函数
   iiii）运算符重载
   iiiii）继承、封装、多态
（12）模板
（13）c++的IO系统
（14）名字空间
（15）标准模板库
（16）c++预处理器

real ii_s[2,4]={1,1,1,1,2,2,2,2}
string s_s[2,3,4]

dec{2} fj
dec jj,ii
double d
/*
这里为多行注释
fdsfsdfds
*/
time mytime
date mydate=2006-07-07
datetime mydatetime
char c='w'
string hello="it~'s a dog"//it's a dog

any my,you,he

blob bk
boolean b
long l
int iss
ResultSet rs
resultsets rss //不区分大小写
//运算符
/*
1、算术运算符:*、/、+、-、^
2、逻辑运算符:NOT、AND、OR
3、关系运算符:=、>=、>、<、<=、<>
4、连接运算符:&
*/
jj+=jj+ii
jj=jj/ii
jj=jj*ii
jj -=ii
jj +=ii

//程序控制语句：选择、循环、其他语句
if jj>ii then
 //todo......
end if 

if jj>ii then
 //todo...
elseif jj=ii then
 //todo...
end if

string sss_s
sss_s = create using "string"

transaction DBTrans
DBTrans=create transaction
DBTrans.autocommit=false

DESTROY DBTrans//销毁create创建的对象，open创建可视化对象

CHOOSE CASE jj
 CASE 1
  //TODO...
 CASE 2
  //TODO...
 CASE ELSE
  //TODO...
END CHOOSE

/*(循环判断)
.... DO UNTIL condition …LOOP
.... DO WHILE condition … LOOP
.... DO … LOOP UNTIL condition
.... DO … LOOP WHILE condition

FOR varname = start TO end [STEP increment]
statementblock
NEXT

*/

SQLCA.dbms="localhost"
//SQLCode=0成功，SQLCode＝-1失败，SQLCode=100SQL语句没有返回数据

CONNECT USING SQLCA;

DECLARE EMP_cur CURSOR FOR
select employee.fname
from employee
where employee.job_id =:i;
OPEN EMP_cur;
FETCH EMP_cur INTO :sss_s;
CLOSE EMP_cur;

select employee.fname into :sss_s //嵌入sql编程，pb的特色
from employee
where employee.job_id =:i

using DBTrans;

if DBTrans.sqlcode=0 then
 //todo...
 COMMIT USING DBTrans;//事务提交
else
 //toto...
 ROLLBACK USING DBTrans;//事务回滚
end if
DISCONNECT USING SQLCA;

(1)、HALT、HALT(CLOSE)
(2)、RETURN
(3)、CREATE
(4)、DESTROY
语句不以分号结束