home *** CD-ROM | disk | FTP | other *** search
/ PC World 2000 October / PCWorld_2000-10_cd2.bin / Borland / interbase / IBConsole_src.ZIP / ibconsole / zluGlobal.pas < prev    next >
Pascal/Delphi Source File  |  2000-07-24  |  7KB  |  315 lines
  1. {
  2.  * The contents of this file are subject to the InterBase Public License
  3.  * Version 1.0 (the "License"); you may not use this file except in
  4.  * compliance with the License.
  5.  * 
  6.  * You may obtain a copy of the License at http://www.Inprise.com/IPL.html.
  7.  * 
  8.  * Software distributed under the License is distributed on an "AS IS"
  9.  * basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See
  10.  * the License for the specific language governing rights and limitations
  11.  * under the License.  The Original Code was created by Inprise
  12.  * Corporation and its predecessors.
  13.  * 
  14.  * Portions created by Inprise Corporation are Copyright (C) Inprise
  15.  * Corporation. All Rights Reserved.
  16.  * 
  17.  * Contributor(s): ______________________________________.
  18. }
  19.  
  20. {****************************************************************
  21. *
  22. *  z l u G l o b a l
  23. *
  24. ****************************************************************
  25. *  Author: The Client Server Factory Inc.
  26. *  Date:   March 1, 1999
  27. *
  28. *  Description:  This unit contains the declarations of global
  29. *                variables/constants/objects
  30. *
  31. *****************************************************************
  32. * Revisions:
  33. *
  34. *****************************************************************}
  35.  
  36. unit zluGlobal;
  37.  
  38. interface
  39.  
  40. Uses
  41.   Windows, Graphics, classes;
  42. type
  43.   TAppSetting = record
  44.     Name: String;
  45.     Setting: variant;
  46.   end;
  47.  
  48.   TFontProps = record
  49.     FontName: String;
  50.     FontSize: Integer;
  51.     FontColor: TColor;
  52.     FontStyle: TFontStyles;
  53.     FontHeight: Integer;
  54.   end;
  55.  
  56.   TASCIIChars = set of 0..255;
  57.   TAppSettings = array[0..17] of TAppSetting;
  58.  
  59. var
  60.   gExternalApps: TStringList;
  61.   gApplShutdown: boolean;
  62.   gWinTempPath: String;
  63.   gApplExePath: string;
  64.   gRegServersKey: string;
  65.   gRegSettingsKey: string;
  66.   gRegToolsKey: string;
  67.   gAppSettings: TAppSettings;            // initialized in TfrmMain.FormCreate
  68.  
  69. const
  70.   { Transactions }
  71.   TRA_DDL = 1;  // ddl transaction
  72.   TRA_DFLT = 2;  // default transaction
  73.  
  74.   { Number of nodes starting at 0 }
  75.   NODES = 41;
  76.  
  77.   { Tree Nodes.  Must be in the same order as NODE_ARRAY below! }
  78.   NODE_SERVERS = 000;
  79.   NODE_SERVER = 001;
  80.   NODE_DATABASES = 002;
  81.   NODE_DATABASE = 003;
  82.   NODE_BACKUP_ALIASES = 004;
  83.   NODE_BACKUP_ALIAS = 005;
  84.   NODE_USERS = 006;
  85.   NODE_USER = 007;
  86.   NODE_CERTIFICATES = 008;
  87.   NODE_CERTIFICATE = 009;
  88.   NODE_DOMAINS = 010;
  89.   NODE_DOMAIN = 011;
  90.   NODE_TABLES = 012;
  91.   NODE_TABLE = 013;
  92.   NODE_VIEWS = 014;
  93.   NODE_VIEW = 015;
  94.   NODE_PROCEDURES = 016;
  95.   NODE_PROCEDURE = 017;
  96.   NODE_FUNCTIONS = 018;
  97.   NODE_FUNCTION = 019;
  98.   NODE_GENERATORS = 020;
  99.   NODE_GENERATOR = 021;
  100.   NODE_EXCEPTIONS = 022;
  101.   NODE_EXCEPTION = 023;
  102.   NODE_BLOB_FILTERS = 024;
  103.   NODE_BLOB_FILTER = 025;
  104.   NODE_ROLES = 026;
  105.   NODE_ROLE = 027;
  106.   NODE_COLUMNS = 028;
  107.   NODE_COLUMN = 029;
  108.   NODE_INDEXES = 030;
  109.   NODE_INDEX = 031;
  110.   NODE_REFERENTIAL_CONSTRAINTS = 032;
  111.   NODE_REFERENTIAL_CONSTRAINT = 033;
  112.   NODE_UNIQUE_CONSTRAINTS = 034;
  113.   NODE_UNIQUE_CONSTRAINT = 035;
  114.   NODE_CHECK_CONSTRAINTS = 036;
  115.   NODE_CHECK_CONSTRAINT = 037;
  116.   NODE_TRIGGERS = 038;
  117.   NODE_TRIGGER = 039;
  118.   NODE_LOGS = 040;
  119.   NODE_UNK = 999;
  120.  
  121.   { Image list indexes }
  122.   NODE_SERVERS_INACTIVE_IMG = 1;
  123.   NODE_DATABASES_DISCONNECTED_IMG = 2;
  124.   NODE_BACKUP_ALIAS_IMG = 3;
  125.   NODE_USER_IMG = 4;
  126.   NODE_CERTIFICATE_IMG = 5;
  127.   NODE_DOMAINS_IMG = 6;
  128.   NODE_TABLES_IMG = 7;
  129.   NODE_VIEWS_IMG = 8;
  130.   NODE_PROCEDURES_IMG = 9;
  131.   NODE_FUNCTIONS_IMG = 10;
  132.   NODE_GENERATORS_IMG = 11;
  133.   NODE_EXCEPTIONS_IMG = 12;
  134.   NODE_BLOB_FILTERS_IMG = 13;
  135.   NODE_ROLES_IMG = 14;
  136.   NODE_COLUMNS_IMG = 15;
  137.   NODE_INDEXES_IMG = 16;
  138.   NODE_REFERENTIAL_CONSTRAINTS_IMG = 17;
  139.   NODE_UNIQUE_CONSTRAINTS_IMG = 18;
  140.   NODE_CHECK_CONSTRAINTS_IMG = 19;
  141.   NODE_TRIGGERS_IMG = 20;
  142.   NODE_UNK_IMG = 21;
  143.   NODE_SERVERS_ACTIVE_IMG = 22;
  144.   NODE_DATABASES_CONNECTED_IMG = 23;
  145.   NODE_DATABASES_IMG = 24;
  146.   NODE_BACKUP_ALIASES_IMG = 25;
  147.   NODE_USERS_IMG = 26;
  148.   NODE_CERTIFICATES_IMG = 27;
  149.   NODE_LOGS_IMG = 29;
  150.   IMG_GRANT_OPT = 46;
  151.  
  152.   { This array must be in the same order as the node constants above }
  153.   NODE_ARRAY: array [0..NODES] of String = (
  154.     'Servers',
  155.     'Server',
  156.     'Databases',
  157.     'Database',
  158.     'Backup',
  159.     'Backup',
  160.     'Users',
  161.     'User',
  162.     'Certificates',
  163.     'Certificate',
  164.     'Domains',
  165.     'Domain',
  166.     'Tables',
  167.     'Table',
  168.     'Views',
  169.     'View',
  170.     'Stored Procedures',
  171.     'Stored Procedure',
  172.     'External Functions',
  173.     'External Function',
  174.     'Generators',
  175.     'Generator',
  176.     'Exceptions',
  177.     'Exception',
  178.     'Blob Filters',
  179.     'Blob Filter',
  180.     'Roles',
  181.     'Role',
  182.     'Columns',
  183.     'Column',
  184.     'Indexes',
  185.     'Index',
  186.     'Referential Constraints',
  187.     'Referential Constraint',
  188.     'Unique Constraints',
  189.     'Unique Constraint',
  190.     'Check Constraints',
  191.     'Check Constraint',
  192.     'Triggers',
  193.     'Trigger',
  194.     'Server Log',
  195.     'Unknown');
  196.  
  197.   DEL = '~|';
  198.   SING_QUOTE = '''';
  199.  
  200.   APP_VERSION = 'Version 1.0';
  201.  
  202.   ENABLE = true;
  203.   DISABLE = false;
  204.  
  205.   SUCCESS = 0;
  206.   FAILURE = -1;
  207.   EMPTY = -2;
  208.   CANCELED = -3;
  209.   RETRY = -4;
  210.   REGISTER_SERVER = 0;
  211.   SELECT_SERVER = 1;
  212.  
  213.   FROM_MEMORY = 'M';
  214.   FROM_FILE = 'F';
  215.  
  216.   DEP_TABLE = 0;
  217.   DEP_VIEW = 1;
  218.   DEP_TRIGGER = 2;
  219.   DEP_COMPUTED_FIELD = 3;
  220.   DEP_VALIDATION = 4;
  221.   DEP_PROCEDURE = 5;
  222.   DEP_EXPRESSION_INDEX = 6;
  223.   DEP_EXCEPTION = 7;
  224.   DEP_USER = 8;
  225.   DEP_FIELD = 9;
  226.   DEP_INDEX = 10;
  227.  
  228.   NULL_STR = '<null>';
  229.   NULL_BLOB = '(Blob)';
  230.   BLOB_STR = '(BLOB)';
  231.  
  232. { From jrd\obj.h ... object types }
  233.   obj_relation =           0;
  234.   obj_view     =           1;
  235.   obj_trigger  =           2;
  236.   obj_computed =           3;
  237.   obj_validation =         4;
  238.   obj_procedure  =         5;
  239.   obj_expression_index =   6;
  240.   obj_exception        =   7;
  241.   obj_user             =   8;
  242.   obj_field            =   9;
  243.   obj_index            =   10;
  244.   obj_count            =   11;
  245.   obj_user_group       =   12;
  246.   obj_sql_role         =   13;
  247.  
  248.   NUM_SETTINGS = 18;
  249.  
  250. { This list must be in the same order as the
  251.   constants below!}
  252.  
  253.   SETTINGS: array [0..NUM_SETTINGS-1] of String = (
  254. {Boolean Options}
  255.     'SystemData',
  256.     'Dependencies',
  257.     'UseDefaultEditor',
  258.     'ShowQueryPlan',
  259.     'AutoCommitDDL',
  260.     'ShowStatistics',
  261.     'ShowInListFormat',
  262.     'SaveISQLOutput',
  263.     'UpdateOnConnect',
  264.     'UpdateOnCreate',
  265.     'ClearInput',
  266.  
  267. {String Options}
  268.     'CharacterSet',
  269.     'BlobDisplay',
  270.     'BlobSubtype',
  271.     'ISQLTerminator',
  272.  
  273. {Integer Settings}
  274.     'CommitOnExit',
  275.     'ViewStyle',
  276.     'DefaultDialect'
  277.     );
  278.  
  279. {This list is grouped by datatypes.  Change it and
  280.  things will break!}
  281. {Boolean Settings}
  282.   SYSTEM_DATA = 0;
  283.   DEPENDENCIES = 1;
  284.   USE_DEFAULT_EDITOR = 2;
  285.   SHOW_QUERY_PLAN = 3;
  286.   AUTO_COMMIT_DDL = 4;
  287.   SHOW_STATS = 5;
  288.   SHOW_LIST = 6;
  289.   SAVE_ISQL_OUTPUT = 7;
  290.   UPDATE_ON_CONNECT = 8;
  291.   UPDATE_ON_CREATE = 9;
  292.   CLEAR_INPUT = 10;
  293.  
  294. {String Settings}
  295.   CHARACTER_SET = 11;
  296.   BLOB_DISPLAY = 12;
  297.   BLOB_SUBTYPE = 13;
  298.   ISQL_TERMINATOR = 14;
  299.  
  300. {Integer Settings}
  301.   COMMIT_ON_EXIT = 15;
  302.   VIEW_STYLE = 16;
  303.   DEFAULT_DIALECT = 17;
  304.  
  305.   TAB_ACTIONS = 0;
  306.   TAB_DEFINITION = 1;
  307.   TAB_SUMMARY = 2;
  308.   TAB_METADATA = 3;
  309.   TAB_DATA = 4;
  310.   TAB_ISQL = 5;
  311.  
  312. implementation
  313.  
  314. end.
  315.