home *** CD-ROM | disk | FTP | other *** search
/ Chip 2001 May / W2KPRK.iso / apps / crystal / disk18 / Xvb228._ / Xvb228.
Text File  |  1999-08-23  |  8KB  |  322 lines
  1. VERSION 1.0 CLASS
  2. BEGIN
  3.   MultiUse = -1  'True
  4. END
  5. Attribute VB_Name = "clsServer"
  6. Attribute VB_GlobalNameSpace = False
  7. Attribute VB_Creatable = True
  8. Attribute VB_PredeclaredId = False
  9. Attribute VB_Exposed = False
  10. Attribute VB_Ext_KEY = "RVB_UniqueId" ,"338FA2520118"
  11. '
  12. Option Base 0
  13.  
  14. Option Explicit
  15.  
  16.  
  17. 'set this to 0 to disable debug code in this class
  18. #Const DebugMode = 1
  19. #If DebugMode Then
  20.     'local variable to hold the serialized class ID that was created in Class_Initialize
  21.     '##ModelId=338FA8D80348
  22.     Private mlClassDebugID As Long
  23. #End If
  24.  
  25. 'local variable(s) to hold property value(s)
  26. '##ModelId=338FA2530032
  27. Private mmvarApplication As Object
  28.  
  29. '##ModelId=338FA253006E
  30. Private mmvarDatabase As Object
  31.  
  32. '##ModelId=338FA25300A0
  33. Private mmvarDatabaseTable As Object
  34.  
  35. '##ModelId=338FA25300DC
  36. Private mmvarExportOptions As Object
  37.  
  38. '##ModelId=338FA253010E
  39. Private mmvarReport As Object
  40.  
  41. '##ModelId=338FA9EA0140
  42. Public Sub SetReportName()
  43.     On Error GoTo SetReportNameErr
  44.  
  45.     'your code goes here...
  46.  
  47.     Exit Sub
  48. SetReportNameErr:
  49.     Call RaiseError(MyUnhandledError, "clsServer:SetReportName Method")
  50. End Sub
  51.  
  52. '##ModelId=338FA9F2003C
  53. Public Sub SetDataLocation()
  54.     On Error GoTo SetDataLocationErr
  55.  
  56.     'your code goes here...
  57.  
  58.     Exit Sub
  59. SetDataLocationErr:
  60.     Call RaiseError(MyUnhandledError, "clsServer:SetDataLocation Method")
  61. End Sub
  62.  
  63. '##ModelId=338FA9F800A0
  64. Public Sub SetSelectionFormula()
  65.     On Error GoTo SetSelectionFormulaErr
  66.  
  67.     'your code goes here...
  68.  
  69.     Exit Sub
  70. SetSelectionFormulaErr:
  71.     Call RaiseError(MyUnhandledError, "clsServer:SetSelectionFormula Method")
  72. End Sub
  73.  
  74. '##ModelId=338FAA0400F0
  75. Public Sub SetReportFormula()
  76.     On Error GoTo SetReportFormulaErr
  77.  
  78.     'your code goes here...
  79.  
  80.     Exit Sub
  81. SetReportFormulaErr:
  82.     Call RaiseError(MyUnhandledError, "clsServer:SetReportFormula Method")
  83. End Sub
  84.  
  85. '##ModelId=338FAA1301FE
  86. Public Sub SetSubReportLinks()
  87.     On Error GoTo SetSubReportLinksErr
  88.  
  89.     'your code goes here...
  90.  
  91.     Exit Sub
  92. SetSubReportLinksErr:
  93.     Call RaiseError(MyUnhandledError, "clsServer:SetSubReportLinks Method")
  94. End Sub
  95.  
  96. '##ModelId=338FAAD003B6
  97. Public Sub SetSubReport()
  98.     On Error GoTo SetSubReportErr
  99.  
  100.     'your code goes here...
  101.  
  102.     Exit Sub
  103. SetSubReportErr:
  104.     Call RaiseError(MyUnhandledError, "clsServer:SetSubReport Method")
  105. End Sub
  106.  
  107. '##ModelId=338FAA2100F0
  108. Public Sub SetGroup()
  109.     On Error GoTo SetGroupErr
  110.  
  111.     'your code goes here...
  112.  
  113.     Exit Sub
  114. SetGroupErr:
  115.     Call RaiseError(MyUnhandledError, "clsServer:SetGroup Method")
  116. End Sub
  117.  
  118. '##ModelId=338FAA360118
  119. Public Sub SetGraphOptions()
  120.     On Error GoTo SetGraphOptionsErr
  121.  
  122.     'your code goes here...
  123.  
  124.     Exit Sub
  125. SetGraphOptionsErr:
  126.     Call RaiseError(MyUnhandledError, "clsServer:SetGraphOptions Method")
  127. End Sub
  128.  
  129. '##ModelId=338FAA450370
  130. Public Sub SetTextFields()
  131.     On Error GoTo SetTextFieldsErr
  132.  
  133.     'your code goes here...
  134.  
  135.     Exit Sub
  136. SetTextFieldsErr:
  137.     Call RaiseError(MyUnhandledError, "clsServer:SetTextFields Method")
  138. End Sub
  139.  
  140. '##ModelId=338FAA4F0032
  141. Public Sub SetDestination()
  142.     On Error GoTo SetDestinationErr
  143.  
  144.     'your code goes here...
  145.  
  146.     Exit Sub
  147. SetDestinationErr:
  148.     Call RaiseError(MyUnhandledError, "clsServer:SetDestination Method")
  149. End Sub
  150.  
  151. '##ModelId=338FAA5A0136
  152. Public Sub SetFormat()
  153.     On Error GoTo SetFormatErr
  154.  
  155.     'your code goes here...
  156.  
  157.     Exit Sub
  158. SetFormatErr:
  159.     Call RaiseError(MyUnhandledError, "clsServer:SetFormat Method")
  160. End Sub
  161.  
  162. '##ModelId=338FABCC01FE
  163. Public Property Get mvarReport() As Object
  164.    Set mvarReport = mmvarReport
  165. End Property
  166.  
  167. '##ModelId=338FABCB03C0
  168. Public Property Get mvarExportOptions() As Object
  169.    Set mvarExportOptions = mmvarExportOptions
  170. End Property
  171.  
  172. '##ModelId=338FABCB019A
  173. Public Property Get mvarDatabaseTable() As Object
  174.    Set mvarDatabaseTable = mmvarDatabaseTable
  175. End Property
  176.  
  177. '##ModelId=338FABCA03CA
  178. Public Property Get mvarDatabase() As Object
  179.    Set mvarDatabase = mmvarDatabase
  180. End Property
  181.  
  182. '##ModelId=338FABCA01D6
  183. Public Property Get mvarApplication() As Object
  184.    Set mvarApplication = mmvarApplication
  185. End Property
  186.  
  187. '##ModelId=338FA253014A
  188. Public Property Get Report() As Object
  189.     On Error GoTo ReportErr
  190.  
  191.     'your code goes here...
  192.  
  193.     Exit Property
  194. ReportErr:
  195.     Call RaiseError(MyUnhandledError, "clsServer:Report Property")
  196. End Property
  197.  
  198. '##ModelId=338FA2530294
  199. Public Property Set Report(ByVal vData As Object)
  200.     On Error GoTo ReportErr
  201.  
  202.     'your code goes here...
  203.  
  204.     Exit Property
  205. ReportErr:
  206.     Call RaiseError(MyUnhandledError, "clsServer:Report Property")
  207. End Property
  208.  
  209. '##ModelId=338FA2540140
  210. Public Property Get ExportOptions() As Object
  211.     On Error GoTo ExportOptionsErr
  212.  
  213.     'your code goes here...
  214.  
  215.     Exit Property
  216. ExportOptionsErr:
  217.     Call RaiseError(MyUnhandledError, "clsServer:ExportOptions Property")
  218. End Property
  219.  
  220. '##ModelId=338FA25402BC
  221. Public Property Set ExportOptions(ByVal vData As Object)
  222.     On Error GoTo ExportOptionsErr
  223.  
  224.     'your code goes here...
  225.  
  226.     Exit Property
  227. ExportOptionsErr:
  228.     Call RaiseError(MyUnhandledError, "clsServer:ExportOptions Property")
  229. End Property
  230.  
  231. '##ModelId=338FA255012C
  232. Public Property Get DatabaseTable() As Object
  233.     On Error GoTo DatabaseTableErr
  234.  
  235.     'your code goes here...
  236.  
  237.     Exit Property
  238. DatabaseTableErr:
  239.     Call RaiseError(MyUnhandledError, "clsServer:DatabaseTable Property")
  240. End Property
  241.  
  242. '##ModelId=338FA25502B2
  243. Public Property Set DatabaseTable(ByVal vData As Object)
  244.     On Error GoTo DatabaseTableErr
  245.  
  246.     'your code goes here...
  247.  
  248.     Exit Property
  249. DatabaseTableErr:
  250.     Call RaiseError(MyUnhandledError, "clsServer:DatabaseTable Property")
  251. End Property
  252.  
  253. '##ModelId=338FA2560122
  254. Public Property Get Database() As Object
  255.     On Error GoTo DatabaseErr
  256.  
  257.     'your code goes here...
  258.  
  259.     Exit Property
  260. DatabaseErr:
  261.     Call RaiseError(MyUnhandledError, "clsServer:Database Property")
  262. End Property
  263.  
  264. '##ModelId=338FA25602A8
  265. Public Property Set Database(ByVal vData As Object)
  266.     On Error GoTo DatabaseErr
  267.  
  268.     'your code goes here...
  269.  
  270.     Exit Property
  271. DatabaseErr:
  272.     Call RaiseError(MyUnhandledError, "clsServer:Database Property")
  273. End Property
  274.  
  275. '##ModelId=338FA2570118
  276. Public Property Get Application() As Object
  277.     On Error GoTo ApplicationErr
  278.  
  279.     'your code goes here...
  280.  
  281.     Exit Property
  282. ApplicationErr:
  283.     Call RaiseError(MyUnhandledError, "clsServer:Application Property")
  284. End Property
  285.  
  286. '##ModelId=338FA257029E
  287. Public Property Set Application(ByVal vData As Object)
  288.     On Error GoTo ApplicationErr
  289.  
  290.     'your code goes here...
  291.  
  292.     Exit Property
  293. ApplicationErr:
  294.     Call RaiseError(MyUnhandledError, "clsServer:Application Property")
  295. End Property
  296.  
  297. '##ModelId=338FA355024E
  298. Private Sub Class_Initialize()
  299.     #If DebugMode Then
  300.         'get the next available class ID, and print out
  301.         'that the class was created successfully
  302.         mlClassDebugID = GetNextClassDebugID()
  303.         Debug.Print "'" & TypeName(Me) & "' instance " & CStr(mlClassDebugID) & " created"
  304.     #End If
  305. End Sub
  306.  
  307. '##ModelId=338FA355032A
  308. Private Sub Class_Terminate()
  309.     #If DebugMode Then
  310.     'the class is being destroyed
  311.         Debug.Print "'" & TypeName(Me) & "' instance " & CStr(mlClassDebugID) & " is terminating"
  312.     #End If
  313. End Sub
  314.  
  315. #If DebugMode Then
  316.     '##ModelId=338FA8D9000A
  317.     Public Property Get ClassDebugID() As Long
  318.         'if we are in debug mode, surface this property that consumers can query
  319.         ClassDebugID = mlClassDebugID
  320.     End Property
  321. #End If
  322.