在线观看亚洲精品国产,国产亚洲自拍一区,亚洲一区精彩视频

ax�~�程�l�构

舞熙 — Sat, 12 Aug 2006 03:28:00 GMT

舞熙 2006-08-12 11:28 发表评论

ax学习�_�要

舞熙 — Sat, 12 Aug 2006 03:22:00 GMT

FormDataSource salesTable_ds ;
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//是个枚�D�c�d��Q�base enum�Q?br />------------------------------------
void new(CurrencyCode _currencyCode)
{;
    currencyCode            = _currencyCode;
    exchRate                = 0;
    exchrateSecondary       = 0;
    exchRatesTriangulation = UnknownNoYes::Unknown;
}
//当徏立一个对象的时候会调用此方�?br />------------------------------------

舞熙 2006-08-12 11:22 发表评论

关于ax中集合的学习

舞熙 — Sat, 12 Aug 2006 03:21:00 GMT

Map
------------------
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;

舞熙 2006-08-12 11:21 发表评论

舞熙 — Sat, 12 Aug 2006 03:19:00 GMT

(1)关于Fields�Q�用来定义数据库表字�D�，其中ExtendedDataType�Ҏ��期控件和外键关系的作用非同小�?br />(2)关于FieldGroups�Q�可以自定此功能�Q��ؓform设计提供方便�?br /> a)AutoReport�Q��ؓ设计报表提供功能�?br /> b)AutoLookup�Q�通过增加字段�Q�可以增加查看更多信息的功能�Q�特别是��d��键关�pȝ��时候�?br />(3)关于Indexes�Q�通过定义索引可以为form提供一个快速的查询�?br />(4)关于Relations�Q�此��很关键�Q�只要有��d��键关�p�都应该再此定义�Q�要么，��p��为此字段定一个ExtendedDataType.
(5)关于DeleteActions�Q�设�|��联删除或讄��Z��务。默认是没有的，也就是说可以删除主表的东�ѝ�?br />(6)关于Methods�Q�Table中method的事件只能由外部的事件来触发�Q�比如当form中修改了某个字段的��|��׃��执行update事�g。methods中其他的事�g�c�M��?br />———————————————————————————————————�?/font>

舞熙 2006-08-12 11:19 发表评论

舞熙 — Sat, 12 Aug 2006 03:15:00 GMT

1、类的静态方法的调用�Q?br /> Map::create(container sss);
2、Map的创建：
  Map imageConvert = new Map(Types::INTEGER, Types::INTEGER);
3、form内定义方法的调用�Q?br /> element.Method1();
this指的是对�?控�g本��n),this.method2();
4、form中��用类的时�?通过�c�d��Z��个对象：
Imagelistappl_checkbox imagelist = new Imagelistappl_checkbox();
5、当form调用form(或类调用form)的时候：
    Args ar=new Args("Form2");
    formRun fr=ClassFactory.FormRunClass(ar);
    fr.init();
    fr.run();
    fr.wait();
6、form��单控件的学习�Q?br />(1)关于button�Q?br /> a�Q�button�Q�此控�g的行为只能重新定义的它的事�g�?br /> b�Q�commandbutton�Q�此控�g��h��button控�g的属性，存在事先提供的方法。但最有用的属性就是command�?br /> c�Q�menubutton�Q�此控�g��h��button控�g的属性，为容器控�Ӟ��可容�U�button、commandbutton、menuitembutton、separator�?br /> d�Q�menuitembutton�Q�此控�g��h��button控�g的属性，但最有用的属性就是menuitemname�?br />(2)关于datasource�Q�如果form不指定datasource�Q�那么form中控件的�l�定��没有了�Q�对数据库的操作可能��只能纯�_�的使用代码控制了�?br /> a�Q�最有用的属性就是Table�?br /> b�Q�methods�Q�可以对数据库操作进行部分的监控�?br /> c�Q�fields�Q�当指定了table之后�Q�自动复制�?br />(3)关于form本��n�Q�form本��n作�ؓ一个容器，可以容纳其他的控件。提供了一些覆盖方法可以实��C��惌��的控制。新�?自定�?的方法可以  通过datasource的active()来控制�?br />(4)关于DateEdit�Q�如果在form中��用dateedit�Q��得它可以�~�辑�Q�那么在table中必��ExtendsDataType属性。这也说明了某些控�g于table�?br /> 紧密联系。ExtendsDataType相当于一个类型的别名�Q�但它具有扩展的属性，我们可以通过它定义具有意义的数据�c�d��(在table再论)
(5)关于StringEdit�Q�PasswordStyle用来讄��密码框。Mandatory用来讄��是否非空。Label用来讄��该字�D늚�昄��名称�?br />(6)关于IntEdit�Q�configruationKey用来�Q�，SecurityKey用来�Q�，其余的类似StringEdit�?br />(7)关于Grid�Q�本�w�作��Z��个容器，可以容纳其他��单的控�g。datasource指定到具体的相关表的datasource�Q�datagroup指定table中的Field Group,width和height一般都指定为column width和column height�?br />(8)关于Tab�Q�Tab作�ؓTabPage的容器来使用�?br />(9)关于TabPage�Q�TabPage作�ؓ其他控�g的容器来使用。其实，form中的每个控�g都可以覆盖自��q��某些事�g�Ҏ��?br />(10)关于Group和ButtonGroup�Q�前者一般可作�ؓ所有控件的容器�Q�后者主要面�Ҏ��有的buttong控�g�?br />(11)关于ComboBox、ListBox、CheckBox和RadioButton�Q?br />�Q�－�Q�－�Q�－�Q�－�Q�－�Q�－�Q�－�Q�－�Q�－�Q�－�Q�－�Q�－�Q�－�Q�－�Q�－�Q�－�Q�－�Q�－�Q�－�Q�－�Q�－�Q�－�Q�－�Q�－�Q�－�Q�－�Q�－
(12)关于window
(13)关于Table
(14)关于Tree
(15)关于ListView
(16)关于ActiveX
(17)关于Progress
(18)关于HTML
(19)关于Animate

舞熙 2006-08-12 11:15 发表评论

X++学习(2)�Q�CRUD操作

舞熙 — Sun, 06 Aug 2006 09:19:00 GMT

�Q?�Q�、在AOT中徏立一个class�Q�aTestForDB�Q�：

�Q?�Q�、method main�Q�）�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¾µÄÊý¾ÝÀàÐÍ�n�R䛠tºÏÀàÐÍ
    //ÈçºÎÍ�t¹ýÀàÈ¡µÃÊý¾Ý�HâµÄÁ�R�Ó�n�R·µ��Ø�ÇÂ�䛠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Ä¡��̔é�n�tCRUD�n©
    //hw.update();
    //hw.delete();
    hw.executeBySQL(sql);
}
�Q?�Q�method find�Q�）�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 delete�Q�）�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 update�Q�）�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 insert�Q�）�Q?br />void insert()
{
   Userinfo ui;
   ttsbegin;
   ui.Id="new";
   ui.name="xmddl";
   ui.insert();
   ttscommit;

    /* ÅúÁ�H�TüÐÂ
    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?�Q�method executeBySQL�Q�）�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);
    }
}

舞熙 2006-08-06 17:19 发表评论

X++学习(1)

舞熙 — Sun, 06 Aug 2006 03:58:00 GMT

1、单行注�?/
    多行注释 /**/
2、数据类型：�Q�不区分大小写）
   �Q?�Q?u>基本数据�c�d��Q?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>复合数据�c�d��Q?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>扩展数据�c�d��Q?span style="FONT-WEIGHT: bold">Extended data types�Q�：
         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、程序控制语句类��g��c++�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、开发环境概览：

舞熙 2006-08-06 11:58 发表评论

舞熙 — Sun, 06 Aug 2006 02:28:00 GMT

��Z��使的计算��表达��Z��的想法，必须�Ҏ��实际的要求，�~�写出源�E�序。所谓程序，��是一�l�计��机能识别和执行的指令集合。源�E�序可以使用计算��a��~�写�Q�如汇编语言、c中��语言、c++、java�{�高�U�语�a��~�写。用高��语言�~�写的程序称为源�E�序。从�Ҏ��上说计算机只能识�?�?�l�成的二�q�制指��o�Q�而不能直接的识别和��用高�U�语�a��~�写的指令。�ؓ了��计算��执行高��语言源程序，必须先用一�U�称为“编译程序”的软�g�Q�把源程序编译成二进制�Ş式的“目标程序”，然后��该目标�E�序与系�l�的函数库和其他目标�E�序�q�接��h��Q��Ş成可执行的目标程序�?/font>

舞熙 2006-08-06 10:28 发表评论

C学习

舞熙 — Sat, 05 Aug 2006 10:24:00 GMT

1、c的数据类型：

                                         |整型:int
                                         |字符�?char   |单精�?float
               |基本�c�d��Q�－�Q�－ > | 实型�Q�－�Q?gt; |
               |                         |                  |双精�?double
数据�c�d��    |                          |枚�D�c�d��
               |
               |                        | 数组�c�d��:int a[10]
               |构造类型－�Q�－�Q?gt; | �l�构体类�?struct
               |                        | 公用体类�?union
               |指针�c�d��:int *p
               |�I�类�?NULL(int *p=NULL;)
2、常量和变量�Q�c区分大小�?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?0�Q�强制类型�{换：�Q�类型）
   �Q?1�Q�分量运��符�Q?、－>
   �Q?2�Q�下标运��符�Q�[]
   �Q?3�Q�其�?br />4�?单行注释�Q?/
       多行注释�Q?**/
5、程序控制语�?br />�Q?�Q�if()...else...
�Q?�Q�for()...
�Q?�Q�while()...
�Q?�Q�do...while()...
�Q?�Q�continue
�Q?�Q�break
�Q?�Q�switch
�Q?�Q�goto
�Q?�Q�return
6、基本的输入、输�?br />#include
�?br />#include "stdio.h"
�Q?�Q�字�W�的输入输出�Q�putchar�Q�）、getchar�Q�）
�Q?�Q�格式输入输出： printf�Q�）、scanf�Q�）
�Q?�Q�字�W�串�Q�gets�Q�）、puts�Q�）
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

舞熙 2006-08-05 18:24 发表评论

C++学习

舞熙 — Sat, 05 Aug 2006 10:23:00 GMT

�Q?�Q�HelloWorld
#include
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�程序控制语句，�c�M��c
�Q?�Q�字�W�串和数�l?br />�Q?�Q�指�?br />�Q?�Q�函敎ͼ�引用、重载、默认参�?br />�Q?0�Q�更多的数据�c�d��Q�结构和联合�Q�类似c�Q?br />--------------------
�Q?1�Q�类
   i�Q�构造函数和析构函数
   ii�Q�访问限定符
   iii�Q�友员函�?br />   iiii�Q�运��符重蝲
   iiiii�Q��ѝ��封装、多�?br />�Q?2�Q�模�?br />�Q?3�Q�c++的IO�pȝ��
�Q?4�Q�名字空�?br />�Q?5�Q�标准模板库
�Q?6�Q�c++预处理器

舞熙 2006-08-05 18:23 发表评论

Java学习

舞熙 — Sat, 05 Aug 2006 10:21:00 GMT

�Q?�Q�HelloWorld
public class HelloWorld{
   public static void main(String args[]){
      System.out.println("HelloWorld");
   }
}
�Q?�Q�注释类似c
�Q?�Q�数据类型、变量和数组
Java定义�?个简单的数据�c�d��Q?br />byte              1b
short             2b
int                 4b
long               8b
char              2b�Q�区别c/c++�?b�Q?br />float              4b
double           8b
boolean         true/false
�Q?�Q�运��符
i�Q?、－�?�?、％、＋�Q��?-�?=�?=�?=�?=�?=
ii�Q�~�?amp;、|、^�?gt;>�?gt;>>�?lt;<�?amp;=、|=、^=�?gt;>=�?gt;>>=�?lt;<=
iii�Q?=�?=�?gt;�?lt;�?gt;=�?lt;=
iiii�Q?amp;、|、^、||�?amp;&�?�?amp;=、|=、^=�?=�?=�?:
�Q?�Q�程序控制语句，�c�M��于c/c++
�Q?�Q�类�Q�方法、方法重载、��承（单��承）、封装、多�?br />�Q?�Q�包和接�?br />�Q?�Q�异常处�?br />�Q?�Q�Java�c�d��的学�?br />

舞熙 2006-08-05 18:21 发表评论

POWERSCRIPT学习(1)

舞熙 — Sat, 05 Aug 2006 01:53:00 GMT

//数据�c�d��的说�?不区分大��写
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成功�Q�SQLCode�Q?1��p�|�Q�SQLCode=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�~�程�Q�pb的特�?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�束

舞熙 2006-08-05 09:53 发表评论

PASCAL学习(1)

舞熙 — Fri, 04 Aug 2006 14:00:00 GMT

1、pascal的注释：
   {abc007}
   (*0123456789*)
   //abcdefghijklmnopqrst
2、pascal语言不区分大��写�Q�myname、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、数据类型：
   ��单类型：integer�Q�整敎ͼ��Q?gt;Ordinal types�Q?gt;基本整数�c�d��Q�Shortint�Q�分有符号和无符��P��、smallint、longint、 �?br />                                  |                        |                    int64、byte、word、longword
                                  |                        |
                                  |                       �Q?gt;通用整数�c�d��Q�Integer、Cardinal
                                  �Q?gt;real�Q?gt;基本实数�c�d��Q�Real48、Single、Double、Extended、Comp和Currency
                                           �Q?gt;通用实数�c�d��Q�real

                boolean�Q�布��）�Q?gt;  boolean、bytebool、wordbool、longbool

                Character�Q�字�W�）�Q?gt;ansichar、widechar

                Enumerated type�Q�枚举）�Q��D例（1�Q�type A:{sprint,summer,autumn,winter}�Q�B;
                                                         �Q?�Q�type A={sprint,summer,autumn,winter};
                                                                var
                                                                     B:A;

               Subrange�Q�子范围�Q?br />
   字符串类型：string�Q?gt;shortstring、ansistring、widestring

   �l�构�c�d��Q�set �Q�最�?56个元素）�Q��D�?br />                        �Q?�Q�type
                                    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、interface�Q�复杂的数据�c�d��Q?br />   指针�c�d��Q�point
   �q�程�c�d��Q�procedure
   变体�c�d��Q�variant
必须使用type声明的数据类型：Enumerated type�Q�枚举）、Subrange�Q�子范围�Q�、set、array、record、file

7、类型�{换：
   �Q?�Q�、自动类型�{换，同类型之间的
   �Q?�Q�、强制类型�{换，A:=Integer�Q�B�Q?
   �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�控制语句：
   i�Q�条件语�?br />      if...then...单向分支
      if...then...else...双向分支
      case...of...多向分支
   ii�Q��@环语�?br />      for...to...do...升幂循环计数
      for...downto...do...降幂循环计数
      while...do...
      repert...
   iii�Q�标�{�֒�跌��{语句
   iiii�Q�汇�~�语�?br />   iiiii�Q�with语句
9、过�E�和函数�Q�过�E�没有返回��|��函数可有�q�回倹{�?br />10、数据库�~�程�Q?

11、变量的作用域：局部声明的同名变量会覆盖全局的同名变量，变量的声明在begin之前用var作用�?br />      �Q?�Q�全局作用域：interface
      �Q?�Q�单元内部可见：implementation
      �Q?�Q�局部范围内可见�Q?br />12、const声明帔R��Q�作用域跟变量一栗��?/font>

舞熙 2006-08-04 22:00 发表评论