home *** CD-ROM | disk | FTP | other *** search
/ Programming Languages Suite / ProgramD2.iso / Visual Database / Visual BASIC 5.0 (Ent. Edition) / Vb5ent Extractor.EXE / VB / SAMPLES / ENTRPRIS / APE / INCLUDE / MODAECON.BAS < prev    next >
Encoding:
BASIC Source File  |  1996-11-09  |  5.3 KB  |  123 lines
  1. Attribute VB_Name = "modAEConstants"
  2. Option Explicit
  3. '-------------------------------------------------------------------------
  4. 'This Module provides constants shared by multiple APE Components
  5. '-------------------------------------------------------------------------
  6.  
  7. Public Const giDEFAULT_FORM_WIDTH  As Integer = 4000
  8. Public Const giDEFAULT_FORM_HEIGHT  As Integer = 2500
  9. Public Const giFORM_MARGIN As Integer = 75      'Used to size and position
  10.                                                 'controls in a sizable form and keep
  11.                                                 'consitency between forms
  12. Public Const giLIST_BOX_MAX As Integer = 1000   'Used to control the length of a list box
  13.  
  14. Public Const gsLOG_FILE_EXTENSION As String = ".LOG"
  15. 'Service command constants
  16. Public Const gsSERVICE_USE_PROCESSOR As String = "UseProcessor"
  17. Public Const gsSERVICE_DONT_USE_PROCESSOR As String = "DontUseProcessor"
  18. Public Const gsSERVICE_READ_DATA As String = "ReadData"
  19. Public Const gsSERVICE_WRITE_DATA As String = "WriteData"
  20. Public Const gsSERVICE_READWRITE_DATA As String = "ReadWriteData"
  21.  
  22. Public Const gsSERVICE_LIB_CLASS As String = "AEService.Service"
  23. Public Const glSERVICE_MAX_DURATION As Long = 60000             'The longest an Service is allowed to take
  24. Public Const giLOG_RECORD_KILOBYTES As Integer = 3  'Estimated number of log records in a KB
  25. 'Record Constants
  26. Public Const giRECORD_NUMROWS As Integer = 0
  27. Public Const giRECORD_ROWSIZE As Integer = 1
  28. Public Const giRECORD_MILLISECONDS As Integer = 2
  29. Public Const giRECORD_CONTAINER_TYPE As Integer = 3
  30. Public Const giRECORD_DATA_BEGIN As Integer = 4
  31.  
  32. 'Return Container Constants
  33. Public Const giCONTAINER_TYPE_NULL As Integer = 0
  34. Public Const giCONTAINER_TYPE_VARRAY As Integer = 1
  35. Public Const giCONTAINER_TYPE_VCOLLECTION As Integer = 2
  36. Public Const giCONTAINER_TYPE_RECORDSET As Integer = 3
  37.  
  38. Public Const gsSEPERATOR As String = " - "
  39.  
  40. Public Const giMODEL_QUEUE As Integer = 0
  41. Public Const giMODEL_POOL As Integer = 1
  42. Public Const giMODEL_DIRECT As Integer = 2
  43.  
  44. 'Service Task options
  45. Public Const giUSE_PROCESSOR_NEVER = 0
  46. Public Const giUSE_PROCESSOR_ALWAYS = 1
  47. Public Const giUSE_PROCESSOR_PERCENTAGE = 2
  48. Public Const giREAD_DATABASE = 3
  49. Public Const giWRITE_DATABASE = 4
  50. Public Const giREADWRITE_DATABASE = 5
  51.  
  52. 'Test Duration mode constants
  53. Public Const giTEST_DURATION_CONTINUE As Integer = 0        'Continue the test until interupted by StopTest
  54. Public Const giTEST_DURATION_CALLS As Integer = 1           'Continue the test for specified number of calls
  55. Public Const giTEST_DURATION_TICKS As Integer = 2           'Continue the test for specified number of milliseconds
  56.  
  57. 'Return value of clsQueueDelegator.GetServiceRequest method that instructs Worker to
  58. 'Close.  This is returned instead of Service Request Data
  59. Public Const giCLOSE_WORKER_NOW As Integer = -1
  60.  
  61. 'Log Record array elements
  62. 'Represents the element definition of the first dimension
  63. 'of a two dimensional array passed to the AEManager.clsExplorer
  64. 'by clients and the logger
  65. Public Const giCOMPONENT_ELEMENT As Integer = 0
  66. Public Const giSERVICE_ELEMENT  As Integer = 1
  67. Public Const giCOMMENT_ELEMENT As Integer = 2
  68. Public Const giMILLI_SECONDS_ELEMENT As Integer = 3
  69. Public Const giLOG_ARRAY_DIMENSION_ONE As Integer = 3
  70.  
  71. 'Worker Property array elements
  72. 'For passing properties from
  73. 'ServerMgr to Manager
  74. Public Const giLOG_WORKER_ELEMENT As Integer = 0
  75. Public Const giEARLYBIND_SERVICES_ELEMENT As Integer = 1
  76. Public Const giPERSISTENT_SERVICES_ELEMENT As Integer = 2
  77. Public Const giPRELOAD_SERVICES_ELEMENT  As Integer = 3
  78.  
  79. 'Service Request Data array elements
  80. 'For passing Service data from
  81. 'QueueMgr to worker
  82. Public Const giSERVICE_ID_ELEMENT  As Integer = 0
  83. Public Const giCOMMAND_ELEMENT  As Integer = 1
  84. Public Const giSERVICE_DATA_ELEMENT As Integer = 2
  85. Public Const giDATA_PRESENT_ELEMENT As Integer = 3
  86.  
  87. 'Service Results Data array elements
  88. 'For passing Service data from the
  89. 'QueueMgr to the Expediter
  90. Public Const giRESULT_ID_ELEMENT As Integer = 0
  91. Public Const giRESULT_CALLBACK_ELEMENT As Integer = 1
  92. Public Const giRESULT_DATA_ELEMENT As Integer = 2
  93. Public Const giRESULT_ERROR_ELEMENT As Integer = 3
  94. Public Const giRESULT_CALLBACK_TYPE_ELEMENT As Integer = 4
  95. Public Const giRESULT_DIMENSION_ONE As Integer = 4
  96.  
  97. 'Performance Statistics array elements
  98. 'Array returned by GetStatistics method
  99. 'of AEClient.Client. Called by AEManager
  100. Public Const giNUM_CALLS_ELEMENT As Integer = 0
  101. Public Const giBEGIN_TICKS_ELEMENT  As Integer = 1
  102. Public Const giEND_TICKS_ELEMENT  As Integer = 2
  103. Public Const giSTAT_ARRAY_DIMENSION  As Integer = 2
  104.  
  105. 'RacReg GetAutoServerSettings array elements
  106. Public Const giREMOTE_ELEMENT As Integer = 1
  107. Public Const giADDRESS_ELEMENT  As Integer = 2
  108. Public Const giPROTOCOL_ELEMENT  As Integer = 3
  109. Public Const giAUTHENTICATION_ELEMENT  As Integer = 4
  110. Public Const giNET_OLE_ELEMENT As Integer = 5
  111. Public Const giFIRST_RACREG_ELEMENT  As Integer = 1
  112. Public Const giLAST_RACREG_ELEMENT  As Integer = 5
  113.  
  114. 'Callback mode keys
  115. Public Const giNO_CALLBACK As Integer = 0
  116. Public Const giUSE_PASSED_CALLBACK As Integer = 1
  117. Public Const giUSE_DEFAULT_CALLBACK As Integer = 2
  118. Public Const giRETURN_BY_SYNC_EVENT As Integer = 3
  119.  
  120. 'Resource String replacement tokens
  121. Public Const gsNUMBER_TOKEN As String = "<NUMBER>"
  122. Public Const gsNAME_TOKEN As String = "<NAME>"
  123.