home *** CD-ROM | disk | FTP | other *** search
/ PC World 1997 November / PCWorld_1997-11_cd.bin / software / programy / komix / DATA.Z / upgrade_tools.tcl < prev    next >
Encoding:
Text File  |  1996-06-03  |  1.2 KB  |  57 lines
  1. #---------------------------------------------------------------------------
  2. #
  3. #    (c) Cadre Technologies Inc. 1996
  4. #
  5. #    File:        %W%
  6. #    Author:        Harm Leijendeckers
  7. #    Description:    Upgrade tools
  8. #
  9. #---------------------------------------------------------------------------
  10. # SccsId = %W%    %G%    Copyright 1996 Cadre Technologies Inc.
  11.  
  12.  
  13. # SQL server version
  14. # It does nothing with 'beforeFieldName' because in sql server you can't
  15. # specify before which field you want to add the new field.
  16. proc add_field { tableName fieldName fieldType { beforeFieldName "" } } {
  17.     catch {
  18.     db query "alter table $tableName"
  19.     db query "add $fieldName $fieldType null"
  20.     db run
  21.     }
  22.     return
  23. }
  24.  
  25.  
  26. proc gen_obid { className tableId } {
  27.     return [OBID::newId $className [get_implId] 1 $tableId]
  28. }
  29.  
  30.  
  31. proc get_implId {} {
  32.     global implId
  33.     if ![info exists implId] {
  34.     db select c_id
  35.     db from   corporate0
  36.     set corpId [db run]
  37.     set implId [lindex [OBID::decode $corpId] 1]
  38.     }
  39.     return $implId
  40. }
  41.  
  42.  
  43. proc get_projects {} {
  44.     db select c_name
  45.     db select c_id
  46.     db select c_tableid
  47.     db from   project0
  48.     return [db runLoop]
  49. }
  50.  
  51.  
  52. proc get_release {} {
  53.     db select c_release
  54.     db from   corporate0
  55.     return [db run]
  56. }
  57.