]]>
]]>
salesTable_ds = _salesTable.dataSource();
localSalesTable = salesTable_ds.getNext();
--------------------------
INSERT_RECORDSET myTable (myNum,mySum)
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//是个枚DcdQbase enumQ?br />------------------------------------
void new(CurrencyCode _currencyCode)
{;
currencyCode = _currencyCode;
exchRate = 0;
exchrateSecondary = 0;
exchRatesTriangulation = UnknownNoYes::Unknown;
}
//当徏立一个对象的时候会调用此方?br />------------------------------------
]]>
------------------
map iim = new map(types::integer, types::class);
mapIterator it;
// Add some elements into the list...
iim.insert(1, new query());
iim.insert(2, new query());
iim.insert(4, new query());
// Create a list iterator
it = new mapIterator (iim);
print it.definitionString(); // prints “[int -> class] iterator?br />print it.toString(); // prints ?begin)[(1 -> Query: query object 38824e0)]?br />// Go on for as long as elements are found in the set...
while (it.more())
{
// fetch the next element
print it.key(); // prints 4 2 1
print it.value().toString(); // print something like Query object 3881270
it.next();
}
print it.toString(); // prints (end)
pause;
-----------------------------------
Set
------------------
set s1 = new set (types::integer);
int theElement;
setIterator it;
// Add some elements...
s1.add(3);
s1.add(4);
s1.add(13);
s1.add(1);
// Start a traversal of the elements in the set.
it = new setIterator(s1);
// The elements are fetched in the order: 1, 3, 4, 13
print it.toString(); // prints ?begin)[1]?br />while (it.more())
{
// Fetch the next element
theElement = it.value();
print theElement;
it.next();
}
pause;
-----------------------------------
List
----------------------
list il = new list(types::integer);
listIterator it;
// Add some elements into the list...
il.addStart(1);
il.addStart(2);
il.addStart(4);
// Create a list iterator
it = new listIterator (il);
print it.definitionString(); // prints “int list iterator?br /> print it.toString(); // prints ?begin)[4]?br />// 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;
]]>
Q?Q、method mainQ）Q?br /> static void main(Args args)
{
HelloWorld hw = new HelloWorld();
Str sql="select * from userinfo";
//**********************
//****uäÁHµÄÉùÃ÷********
//**********************
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;
//H̔éùu¾µÄÊý¾ÝÀàÐÍnR䛠tºÏÀàÐÍ
//ÈçºÎÍt¹ýÀàÈ¡µÃÊý¾ÝHâµÄÁRÓnR·µØÇÂ䛠tº
//ÒìnµÄ̔¶×ºÍ´ÀT
//uäÁHµÄ×÷ÓÃÓò
//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 "u 0 ý";
}
///////////////////////////
////////Êý¾ÝHâ̔Ù×÷//////////
////////////////////////////
//hw.find();//̔éÑtÊý¾ÝHâÈ¡µÃÇÂ
//hw.insert(); //Ôö¡É¾¡TÄ¡̔éntCRUDn©
//hw.update();
//hw.delete();
hw.executeBySQL(sql);
}
Q?Qmethod findQ）Q?br />void find()
{
UserInfo ui;
select ui where ui.name=="xmddl";
print ui.password;
while select ui
{ //̔éÑtËùÓеÄÇÂ
print ui.name+" "+ui.Id;
}
}
Q?Q、method deleteQ）Q?br />void delete()
{
Userinfo ui;
ttsbegin;
select forupdate ui where ui.Id=="new";
//ui.Id="new";
ui.delete();
//ui.doDelete();
ttscommit;
}
Q?Q、method updateQ）Q?br />void update()
{
Userinfo ui;
ttsbegin;
select forupdate ui where ui.id=="new";
ui.name="xmddl369";
ui.password="hello new";
ui.update();
ttscommit;
}
Q?Q、method insertQ）Q?br />void insert()
{
Userinfo ui;
ttsbegin;
ui.Id="new";
ui.name="xmddl";
ui.insert();
ttscommit;
/* ÅúÁHTüÐÂ
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
*/
}
Q?Qmethod executeBySQLQ）Q?br />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);
}
}
]]>
多行注释 /**/
2、数据类型：Q不区分大小写）
Q?Q?u>基本数据cdQ?br /> boolean
boolean b;
boolean b1,b2;
integer
int i1,i2;
int i3 = 100;
int i4[];
real
real r1,r2;
real r3 = 3.1415;
date
date d1,d2;
//A date variable, d3, is initialized to the 21st of October 1998
date d3 = 21\11\1998;
timeofday
string
str a=”Hello?b=”World?
print a+??b;
enum
Q?Q?u>复合数据cdQ?br /> array(s)
real r[100];
// A dynamic array of dates, with only 10 elements in memory
date d[,10];
// A fixed length array of NoYes, with 100 elements and 10 in memory
NoYes e[100,10];
Container(s)
container c = [7,3.14, ”Hello”];
int i;
i = confind( c, “Hello?; //i has the value 3
classe(s)
Access a1; //An Access-object is declared but NOT initialized
Access a2, a3; //Two Access-objects are declared, but NOT initialized
Access a4 = new Access();
table(s)
Q?Q?u>扩展数据cdQ?span style="FONT-WEIGHT: bold">Extended data typesQ：
where extendedtype is the name of the Extended Data Type in the Application Object Tree. Using the EBNF you can declare Extended Data Type variables like this (the examples use built-in extended data types):
// A UserGroupID (integer) variable is declared and initialized to 1.
UserGroupIDgroupID = 1;
// An Amount (real) variable is declared
Amount currency;
3、程序控制语句类gc++Q但是，变量的定义要攑֜开始用之前，如：
do{
print b;
b++;
}while(b<10);
for(m=0;m<10;m++){//can not define int m=0 in this
print m;
}
4、开发环境概览：
]]>
|整型:int
|字符?char |单精?float
|基本cdQ－Q－ > | 实型Q－Q?gt; |
| | |双精?double
数据cd | |枚Dcd
|
| | 数组cd:int a[10]
|构造类型－Q－Q?gt; | l构体类?struct
| | 公用体类?union
|指针cd:int *p
|I类?NULL(int *p=NULL;)
2、常量和变量Qc区分大小?br /> #define PI 3.14
3、运符
Q?Q算术运符Q????、％?+?-
Q?Q关p运符Q?gt;?lt;?=?gt;=?lt;=、！Q?br /> Q?Q逻辑q算W：!?amp;&、||
Q?Q位q算W：<<?gt;>、~、|、^?amp;
Q?Q赋D符Q?
Q?Q条件运符Q? :
Q?Q逗号q算W：,
Q?Q指针运符Q??amp;
Q?Q求字节q算W：sizeof
Q?0Q强制类型{换：Q类型）
Q?1Q分量运符Q?、－>
Q?2Q下标运符Q[]
Q?3Q其?br />4?单行注释Q?/
多行注释Q?**/
5、程序控制语?br />Q?Qif()...else...
Q?Qfor()...
Q?Qwhile()...
Q?Qdo...while()...
Q?Qcontinue
Q?Qbreak
Q?Qswitch
Q?Qgoto
Q?Qreturn
6、基本的输入、输?br />#include<stdio.h>
?br />#include "stdio.h"
Q?Q字W的输入输出QputcharQ）、getcharQ）
Q?Q格式输入输出： printfQ）、scanfQ）
Q?Q字W串QgetsQ）、putsQ）
9、函?br />10、预处理命o
Q?Q宏定义Q不带参数的宏定义、带参数的宏定义
Q?Q“文件包含”处?br />Q?Q条件编?br />11、文件操?br />12?strong>C库函?br />Q?Q数学函敎ͼmath.h
Q?Q字W函数和字符串函敎ͼstring.h
Q?Q输入输出函敎ͼstdio.h
Q?Q动态存储分配函敎ͼmalloc.h和stdlib.h
]]>
#include<iostream>
using namespace std;
int main(){
cout<<"Hello World\n";
return 0;
}
Q?Q基本数据类?63个关键字
char 1b
wchar-1 2b
int(16bit) 2b
int(32bit) 4b
float 4b
double 8b
bool N/A
void N/A
Q?Q注释类似c
Q?Q{义字W?br />\b退?br />\f换页
\n换行
\r回R
\t水^制表
\"双引?br />\'单引?br />\\破折?br />
\v垂直制表W号
\a喇叭嗡鸣
\?问号
\N八进制常?br />\xN十六q制帔R
Q?Q运符Q类似c
Q?Q程序控制语句，cMc
Q?Q字W串和数l?br />Q?Q指?br />Q?Q函敎ͼ引用、重载、默认参?br />Q?0Q更多的数据cdQ结构和联合Q类似cQ?br />--------------------
Q?1Q类
iQ构造函数和析构函数
iiQ访问限定符
iiiQ友员函?br /> iiiiQ运符重蝲
iiiiiQѝ封装、多?br />Q?2Q模?br />Q?3Qc++的IOpȝ
Q?4Q名字空?br />Q?5Q标准模板库
Q?6Qc++预处理器
]]>
public class HelloWorld{
public static void main(String args[]){
System.out.println("HelloWorld");
}
}
Q?Q注释类似c
Q?Q数据类型、变量和数组
Java定义?个简单的数据cdQ?br />byte 1b
short 2b
int 4b
long 8b
char 2bQ区别c/c++?bQ?br />float 4b
double 8b
boolean true/false
Q?Q运符
iQ?、－??、％、＋Q?-?=?=?=?=?=
iiQ~?amp;、|、^?gt;>?gt;>>?lt;<?amp;=、|=、^=?gt;>=?gt;>>=?lt;<=
iiiQ?=?=?gt;?lt;?gt;=?lt;=
iiiiQ?amp;、|、^、||?amp;&??amp;=、|=、^=?=?=?:
Q?Q程序控制语句，cM于c/c++
Q?Q类Q方法、方法重载、承（单承）、封装、多?br />Q?Q包和接?br />Q?Q异常处?br />Q?QJavacd的学?br />
]]>
String name="xmddl"
Integer i
Real s //q里为单行注?br />Integer a[1 to 10]
real i_s[4]={1,2,3,4}
CONSTANT String j="HELLO"
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
/*
q里为多行注?br />fdsfsdfds
*/
time mytime
date mydate=2006-07-07
datetime mydatetime
char c='w'
string hello="it~'s a dog"http://it's a dog
any my,you,he
blob bk
boolean b
long l
int iss
ResultSet rs
resultsets rss //不区分大写
//q算W?br />/*
1、算术运符:*???、^
2、逻辑q算W?NOT、AND、OR
3、关p运符:=?gt;=?gt;?lt;?lt;=?lt;>
4、连接运符:&
*/
jj+=jj+ii
jj=jj/ii
jj=jj*ii
jj -=ii
jj +=ii
//E序控制语句Q选择、@环、其他语?br />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创徏可视化对?/font>
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成功QSQLCodeQ?1p|QSQLCode=100SQL语句没有q回数据
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~程Qpb的特?br />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
语句不以分号l束
]]>
{abc007}
(*0123456789*)
//abcdefghijklmnopqrst
2、pascal语言不区分大写Qmyname、Myname、MyNane.
3、用ctrl+J来用代码模版?br />4、pascal关键字，关键字不能作为变量来使用?br />5、运符Q?br /> 讄q算W：Q?=Q?br /> 术q算W：+???、div、mod
逻辑q算W：not、and、or、xor
关系q算W：>?lt;?gt;=?lt;=?lt;>?
单目q算W：+?
集合q算W：+???lt;=?gt;=?lt;>?、in
字符串运符Q略
位运符Q略
q算W的优先U：?br />6、数据类型：
单类型：integerQ整敎ͼQ?gt;Ordinal typesQ?gt;基本整数cdQShortintQ分有符号和无符P、smallint、longint、 ?br /> | | int64、byte、word、longword
| |
| Q?gt;通用整数cdQInteger、Cardinal
Q?gt;realQ?gt;基本实数cdQReal48、Single、Double、Extended、Comp和Currency
Q?gt;通用实数cdQreal
booleanQ布）Q?gt; boolean、bytebool、wordbool、longbool
CharacterQ字W）Q?gt;ansichar、widechar
Enumerated typeQ枚举）QD例（1Qtype A:{sprint,summer,autumn,winter}QB;
Q?Qtype A={sprint,summer,autumn,winter};
var
B:A;
SubrangeQ子范围Q?br />
字符串类型：stringQ?gt;shortstring、ansistring、widestring
l构cdQset Q最?56个元素）QD?br /> Q?Qtype
MyEx=set of boolean;
MySet=set of (A,B,C,D,E,F);
var
set1:MyEx=[true,false,false];
set2:MySet=[A,D,G];
array、record、file、class、class reference、interfaceQ复杂的数据cdQ?br /> 指针cdQpoint
q程cdQprocedure
变体cdQvariant
必须使用type声明的数据类型：Enumerated typeQ枚举）、SubrangeQ子范围Q、set、array、record、file
7、类型{换：
Q?Q、自动类型{换，同类型之间的
Q?Q、强制类型{换，A:=IntegerQBQ?
Q?Q、函数类型{换，A:=FloatToStr(B);
8、语句：
Q?Q单行语句：
a:='name';
b:=90;
Q?Q复合语句：
begin
a:='name';
b:=90;
end;
Q?Q表辑ּ语句Q?br /> c:=a+b;
Q?Q流E控制语句：
iQ条件语?br /> if...then...单向分支
if...then...else...双向分支
case...of...多向分支
iiQ@环语?br /> for...to...do...升幂循环计数
for...downto...do...降幂循环计数
while...do...
repert...
iiiQ标{֒跌{语句
iiiiQ汇~语?br /> iiiiiQwith语句
9、过E和函数Q过E没有返回|函数可有q回倹{?br />10、数据库~程Q?
11、变量的作用域：局部声明的同名变量会覆盖全局的同名变量，变量的声明在begin之前用var作用?br /> Q?Q全局作用域：interface
Q?Q单元内部可见：implementation
Q?Q局部范围内可见Q?br />12、const声明帔RQ作用域跟变量一栗?/font>
]]>