home *** CD-ROM | disk | FTP | other *** search
/ Chip 1999 August / Chip_1999-08_cd.bin / tema / RKS / _SETUP.2 / Group6 / rks.ch
Text File  |  1999-01-11  |  814b  |  17 lines
  1. #define Numeric N
  2. #define Character C
  3.  
  4. #command Create table <tablename>                                         ;
  5. ([<(name1)> <(type1)>( <length1>,<decimal1> )                             ;
  6. [,<(namen)> <(typen)>( <lengthn>,<decimaln> ) ]] )                         ;
  7. =>                                                                        ;
  8.   ADBF := {}                                                              ;
  9. [; AADD(ADBF,{<(name1)>,<(type1)>,<length1>,<decimal1>})]                  ;
  10. [; AADD(ADBF,{<(namen)>,<(typen)>,<lengthn>,<decimaln>})]                 ;
  11. ; DBCREATE(<tablename>,ADBF) 
  12.  
  13.  
  14. #command Create [<u: UNIQUE>] [<d: DESCENDING>] Index <IndexName> on <tablename> (<ex>) [For <FilterExpr>];
  15. =>  ;
  16. USE <tablename> New;
  17. ; Index On <ex> TO <IndexName> <u> [For <FilterExpr>] <d>