home *** CD-ROM | disk | FTP | other *** search
/ Microsoft Internet Business Development Kit / PRODUCT_CD.iso / sqlsvr / alpha / dmodemo.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-05-19  |  23.6 KB  |  716 lines
  1. VERSION 4.00
  2. Begin VB.Form DMODemo 
  3.    BackColor       =   &H00C0C0C0&
  4.    BorderStyle     =   3  'Fixed Dialog
  5.    Caption         =   "Microsoft SQL Server 6.0 - ""Personal"" DBA"
  6.    ClientHeight    =   6420
  7.    ClientLeft      =   1695
  8.    ClientTop       =   1920
  9.    ClientWidth     =   6480
  10.    Height          =   7110
  11.    Icon            =   "DMODemo.frx":0000
  12.    Left            =   1635
  13.    LinkTopic       =   "Form1"
  14.    MaxButton       =   0   'False
  15.    MinButton       =   0   'False
  16.    ScaleHeight     =   6420
  17.    ScaleWidth      =   6480
  18.    Top             =   1290
  19.    Width           =   6600
  20.    Begin VB.TextBox Text1 
  21.       BackColor       =   &H00FFFFFF&
  22.       BeginProperty Font 
  23.          name            =   "Arial"
  24.          charset         =   1
  25.          weight          =   700
  26.          size            =   18
  27.          underline       =   0   'False
  28.          italic          =   -1  'True
  29.          strikethrough   =   0   'False
  30.       EndProperty
  31.       ForeColor       =   &H00800000&
  32.       Height          =   540
  33.       Index           =   1
  34.       Left            =   2100
  35.       TabIndex        =   30
  36.       TabStop         =   0   'False
  37.       Text            =   " DBA"
  38.       Top             =   90
  39.       Width           =   1065
  40.    End
  41.    Begin VB.TextBox Text1 
  42.       BackColor       =   &H00800000&
  43.       BeginProperty Font 
  44.          name            =   "Arial"
  45.          charset         =   1
  46.          weight          =   700
  47.          size            =   18
  48.          underline       =   0   'False
  49.          italic          =   -1  'True
  50.          strikethrough   =   0   'False
  51.       EndProperty
  52.       ForeColor       =   &H00FFFFFF&
  53.       Height          =   540
  54.       Index           =   0
  55.       Left            =   180
  56.       TabIndex        =   29
  57.       TabStop         =   0   'False
  58.       Text            =   " Personal"
  59.       Top             =   90
  60.       Width           =   1935
  61.    End
  62.    Begin VB.Line Line1 
  63.       BorderColor     =   &H000000FF&
  64.       X1              =   180
  65.       X2              =   3180
  66.       Y1              =   660
  67.       Y2              =   660
  68.    End
  69.    Begin Threed.SSPanel StatusBar 
  70.       Align           =   2  'Align Bottom
  71.       Height          =   315
  72.       Left            =   0
  73.       TabIndex        =   25
  74.       Top             =   6105
  75.       Width           =   6480
  76.       _version        =   65536
  77.       _extentx        =   11430
  78.       _extenty        =   556
  79.       _stockprops     =   15
  80.       borderwidth     =   0
  81.       bevelinner      =   1
  82.       alignment       =   1
  83.    End
  84.    Begin Threed.SSFrame SSFrame3 
  85.       Height          =   1455
  86.       Left            =   120
  87.       TabIndex        =   21
  88.       Top             =   690
  89.       Width           =   6105
  90.       _version        =   65536
  91.       _extentx        =   10769
  92.       _extenty        =   2566
  93.       _stockprops     =   14
  94.       caption         =   "Login Information"
  95.       forecolor       =   8421504
  96.       BeginProperty font {FB8F0823-0164-101B-84ED-08002B2EC713} 
  97.          name            =   "MS Sans Serif"
  98.          charset         =   1
  99.          weight          =   400
  100.          size            =   9.75
  101.          underline       =   0   'False
  102.          italic          =   0   'False
  103.          strikethrough   =   0   'False
  104.       EndProperty
  105.       shadowstyle     =   1
  106.       Begin Threed.SSCommand bConnect 
  107.          Default         =   -1  'True
  108.          Height          =   345
  109.          Left            =   4110
  110.          TabIndex        =   31
  111.          Top             =   240
  112.          Width           =   1425
  113.          _version        =   65536
  114.          _extentx        =   2514
  115.          _extenty        =   609
  116.          _stockprops     =   78
  117.          caption         =   "&Connect"
  118.          bevelwidth      =   1
  119.          outline         =   0   'False
  120.       End
  121.       Begin Threed.SSPanel SSPanel1 
  122.          Height          =   345
  123.          Index           =   2
  124.          Left            =   2040
  125.          TabIndex        =   28
  126.          Top             =   210
  127.          Width           =   1965
  128.          _version        =   65536
  129.          _extentx        =   3466
  130.          _extenty        =   609
  131.          _stockprops     =   15
  132.          caption         =   "SSPanel1"
  133.          bevelouter      =   1
  134.          autosize        =   3
  135.          Begin VB.TextBox MyServer 
  136.             Height          =   315
  137.             Left            =   15
  138.             TabIndex        =   1
  139.             Top             =   15
  140.             Width           =   1935
  141.          End
  142.       End
  143.       Begin Threed.SSPanel SSPanel1 
  144.          Height          =   345
  145.          Index           =   1
  146.          Left            =   2040
  147.          TabIndex        =   27
  148.          Top             =   570
  149.          Width           =   1965
  150.          _version        =   65536
  151.          _extentx        =   3466
  152.          _extenty        =   609
  153.          _stockprops     =   15
  154.          caption         =   "SSPanel1"
  155.          bevelouter      =   1
  156.          autosize        =   3
  157.          Begin VB.TextBox MyLogin 
  158.             Height          =   315
  159.             Left            =   15
  160.             TabIndex        =   2
  161.             Top             =   15
  162.             Width           =   1935
  163.          End
  164.       End
  165.       Begin Threed.SSPanel SSPanel1 
  166.          Height          =   345
  167.          Index           =   0
  168.          Left            =   2040
  169.          TabIndex        =   26
  170.          Top             =   930
  171.          Width           =   1965
  172.          _version        =   65536
  173.          _extentx        =   3466
  174.          _extenty        =   609
  175.          _stockprops     =   15
  176.          caption         =   "SSPanel1"
  177.          bevelouter      =   1
  178.          autosize        =   3
  179.          Begin VB.TextBox MyPassword 
  180.             Height          =   315
  181.             Left            =   15
  182.             TabIndex        =   3
  183.             Top             =   15
  184.             Width           =   1935
  185.          End
  186.       End
  187.       Begin VB.Label Label1 
  188.          BackColor       =   &H00C0C0C0&
  189.          Caption         =   "Password:"
  190.          BeginProperty Font 
  191.             name            =   "MS Sans Serif"
  192.             charset         =   1
  193.             weight          =   400
  194.             size            =   9.75
  195.             underline       =   0   'False
  196.             italic          =   0   'False
  197.             strikethrough   =   0   'False
  198.          EndProperty
  199.          Height          =   255
  200.          Index           =   2
  201.          Left            =   210
  202.          TabIndex        =   24
  203.          Top             =   930
  204.          Width           =   1185
  205.       End
  206.       Begin VB.Label Label1 
  207.          BackColor       =   &H00C0C0C0&
  208.          Caption         =   "Login:"
  209.          BeginProperty Font 
  210.             name            =   "MS Sans Serif"
  211.             charset         =   1
  212.             weight          =   400
  213.             size            =   9.75
  214.             underline       =   0   'False
  215.             italic          =   0   'False
  216.             strikethrough   =   0   'False
  217.          EndProperty
  218.          Height          =   255
  219.          Index           =   1
  220.          Left            =   210
  221.          TabIndex        =   23
  222.          Top             =   600
  223.          Width           =   795
  224.       End
  225.       Begin VB.Label Label1 
  226.          BackColor       =   &H00C0C0C0&
  227.          Caption         =   "Server:"
  228.          BeginProperty Font 
  229.             name            =   "MS Sans Serif"
  230.             charset         =   1
  231.             weight          =   400
  232.             size            =   9.75
  233.             underline       =   0   'False
  234.             italic          =   0   'False
  235.             strikethrough   =   0   'False
  236.          EndProperty
  237.          Height          =   255
  238.          Index           =   0
  239.          Left            =   210
  240.          TabIndex        =   22
  241.          Top             =   300
  242.          Width           =   795
  243.       End
  244.    End
  245.    Begin Threed.SSFrame SSFrame2 
  246.       Height          =   1995
  247.       Left            =   90
  248.       TabIndex        =   12
  249.       Top             =   3990
  250.       Width           =   6105
  251.       _version        =   65536
  252.       _extentx        =   10769
  253.       _extenty        =   3519
  254.       _stockprops     =   14
  255.       caption         =   "Objects in Database"
  256.       forecolor       =   8421504
  257.       BeginProperty font {FB8F0823-0164-101B-84ED-08002B2EC713} 
  258.          name            =   "MS Sans Serif"
  259.          charset         =   1
  260.          weight          =   400
  261.          size            =   9.75
  262.          underline       =   0   'False
  263.          italic          =   0   'False
  264.          strikethrough   =   0   'False
  265.       EndProperty
  266.       shadowstyle     =   1
  267.       Begin VB.PictureBox Radios 
  268.          Appearance      =   0  'Flat
  269.          BackColor       =   &H00C0C0C0&
  270.          BorderStyle     =   0  'None
  271.          Enabled         =   0   'False
  272.          ForeColor       =   &H80000008&
  273.          Height          =   1455
  274.          Left            =   120
  275.          ScaleHeight     =   1455
  276.          ScaleWidth      =   2370
  277.          TabIndex        =   14
  278.          TabStop         =   0   'False
  279.          Top             =   510
  280.          Width           =   2370
  281.          Begin VB.OptionButton DBType 
  282.             BackColor       =   &H00C0C0C0&
  283.             Caption         =   "Tables"
  284.             BeginProperty Font 
  285.                name            =   "MS Sans Serif"
  286.                charset         =   1
  287.                weight          =   400
  288.                size            =   9.75
  289.                underline       =   0   'False
  290.                italic          =   0   'False
  291.                strikethrough   =   0   'False
  292.             EndProperty
  293.             Height          =   345
  294.             Index           =   0
  295.             Left            =   0
  296.             TabIndex        =   18
  297.             TabStop         =   0   'False
  298.             Top             =   0
  299.             Value           =   -1  'True
  300.             Width           =   1935
  301.          End
  302.          Begin VB.OptionButton DBType 
  303.             BackColor       =   &H00C0C0C0&
  304.             Caption         =   "Views"
  305.             BeginProperty Font 
  306.                name            =   "MS Sans Serif"
  307.                charset         =   1
  308.                weight          =   400
  309.                size            =   9.75
  310.                underline       =   0   'False
  311.                italic          =   0   'False
  312.                strikethrough   =   0   'False
  313.             EndProperty
  314.             Height          =   345
  315.             Index           =   1
  316.             Left            =   0
  317.             TabIndex        =   17
  318.             TabStop         =   0   'False
  319.             Top             =   330
  320.             Width           =   1935
  321.          End
  322.          Begin VB.OptionButton DBType 
  323.             BackColor       =   &H00C0C0C0&
  324.             Caption         =   "Stored Procedures"
  325.             BeginProperty Font 
  326.                name            =   "MS Sans Serif"
  327.                charset         =   1
  328.                weight          =   400
  329.                size            =   9.75
  330.                underline       =   0   'False
  331.                italic          =   0   'False
  332.                strikethrough   =   0   'False
  333.             EndProperty
  334.             Height          =   345
  335.             Index           =   2
  336.             Left            =   0
  337.             TabIndex        =   16
  338.             TabStop         =   0   'False
  339.             Top             =   660
  340.             Width           =   2175
  341.          End
  342.          Begin VB.OptionButton DBType 
  343.             BackColor       =   &H00C0C0C0&
  344.             Caption         =   "UserDefined Datatypes"
  345.             BeginProperty Font 
  346.                name            =   "MS Sans Serif"
  347.                charset         =   1
  348.                weight          =   400
  349.                size            =   9.75
  350.                underline       =   0   'False
  351.                italic          =   0   'False
  352.                strikethrough   =   0   'False
  353.             EndProperty
  354.             Height          =   345
  355.             Index           =   3
  356.             Left            =   0
  357.             TabIndex        =   15
  358.             TabStop         =   0   'False
  359.             Top             =   990
  360.             Width           =   2415
  361.          End
  362.       End
  363.       Begin VB.ListBox TheList 
  364.          Height          =   1395
  365.          Left            =   2580
  366.          Sorted          =   -1  'True
  367.          TabIndex        =   13
  368.          TabStop         =   0   'False
  369.          Top             =   450
  370.          Width           =   3375
  371.       End
  372.       Begin VB.Label Label2 
  373.          BackColor       =   &H00C0C0C0&
  374.          Caption         =   "Object Type:"
  375.          BeginProperty Font 
  376.             name            =   "MS Sans Serif"
  377.             charset         =   1
  378.             weight          =   400
  379.             size            =   9.75
  380.             underline       =   0   'False
  381.             italic          =   0   'False
  382.             strikethrough   =   0   'False
  383.          EndProperty
  384.          Height          =   255
  385.          Left            =   150
  386.          TabIndex        =   20
  387.          Top             =   300
  388.          Width           =   1305
  389.       End
  390.       Begin VB.Label ObjectLabel 
  391.          BackColor       =   &H00C0C0C0&
  392.          Caption         =   "Object List:"
  393.          BeginProperty Font 
  394.             name            =   "MS Sans Serif"
  395.             charset         =   1
  396.             weight          =   400
  397.             size            =   9.75
  398.             underline       =   0   'False
  399.             italic          =   0   'False
  400.             strikethrough   =   0   'False
  401.          EndProperty
  402.          Height          =   255
  403.          Left            =   2580
  404.          TabIndex        =   19
  405.          Top             =   180
  406.          Width           =   2895
  407.       End
  408.    End
  409.    Begin Threed.SSFrame SSFrame1 
  410.       Height          =   1815
  411.       Left            =   120
  412.       TabIndex        =   0
  413.       Top             =   2130
  414.       Width           =   6105
  415.       _version        =   65536
  416.       _extentx        =   10769
  417.       _extenty        =   3201
  418.       _stockprops     =   14
  419.       caption         =   "Server information"
  420.       forecolor       =   8421504
  421.       BeginProperty font {FB8F0823-0164-101B-84ED-08002B2EC713} 
  422.          name            =   "MS Sans Serif"
  423.          charset         =   1
  424.          weight          =   400
  425.          size            =   9.75
  426.          underline       =   0   'False
  427.          italic          =   0   'False
  428.          strikethrough   =   0   'False
  429.       EndProperty
  430.       shadowstyle     =   1
  431.       Begin VB.ComboBox DeviceList 
  432.          Enabled         =   0   'False
  433.          Height          =   300
  434.          Left            =   2610
  435.          Style           =   2  'Dropdown List
  436.          TabIndex        =   5
  437.          Top             =   300
  438.          Width           =   3225
  439.       End
  440.       Begin VB.ComboBox LoginList 
  441.          Enabled         =   0   'False
  442.          Height          =   300
  443.          Left            =   2610
  444.          Style           =   2  'Dropdown List
  445.          TabIndex        =   7
  446.          Top             =   660
  447.          Width           =   3225
  448.       End
  449.       Begin VB.ComboBox RemoteList 
  450.          Enabled         =   0   'False
  451.          Height          =   300
  452.          Left            =   2610
  453.          Style           =   2  'Dropdown List
  454.          TabIndex        =   9
  455.          Top             =   1020
  456.          Width           =   3225
  457.       End
  458.       Begin VB.ComboBox DBList 
  459.          Enabled         =   0   'False
  460.          Height          =   300
  461.          Left            =   2610
  462.          Style           =   2  'Dropdown List
  463.          TabIndex        =   11
  464.          Top             =   1380
  465.          Width           =   3225
  466.       End
  467.       Begin VB.Label Label1 
  468.          BackColor       =   &H00C0C0C0&
  469.          Caption         =   "Devices:"
  470.          BeginProperty Font 
  471.             name            =   "MS Sans Serif"
  472.             charset         =   1
  473.             weight          =   400
  474.             size            =   9.75
  475.             underline       =   0   'False
  476.             italic          =   0   'False
  477.             strikethrough   =   0   'False
  478.          EndProperty
  479.          Height          =   255
  480.          Index           =   4
  481.          Left            =   240
  482.          TabIndex        =   10
  483.          Top             =   330
  484.          Width           =   1095
  485.       End
  486.       Begin VB.Label Label1 
  487.          BackColor       =   &H00C0C0C0&
  488.          Caption         =   "Logins"
  489.          BeginProperty Font 
  490.             name            =   "MS Sans Serif"
  491.             charset         =   1
  492.             weight          =   400
  493.             size            =   9.75
  494.             underline       =   0   'False
  495.             italic          =   0   'False
  496.             strikethrough   =   0   'False
  497.          EndProperty
  498.          Height          =   255
  499.          Index           =   5
  500.          Left            =   240
  501.          TabIndex        =   8
  502.          Top             =   660
  503.          Width           =   1095
  504.       End
  505.       Begin VB.Label Label1 
  506.          BackColor       =   &H00C0C0C0&
  507.          Caption         =   "Remote Servers:"
  508.          BeginProperty Font 
  509.             name            =   "MS Sans Serif"
  510.             charset         =   1
  511.             weight          =   400
  512.             size            =   9.75
  513.             underline       =   0   'False
  514.             italic          =   0   'False
  515.             strikethrough   =   0   'False
  516.          EndProperty
  517.          Height          =   255
  518.          Index           =   6
  519.          Left            =   240
  520.          TabIndex        =   6
  521.          Top             =   1020
  522.          Width           =   1245
  523.       End
  524.       Begin VB.Label Label1 
  525.          BackColor       =   &H00C0C0C0&
  526.          Caption         =   "Database:"
  527.          BeginProperty Font 
  528.             name            =   "MS Sans Serif"
  529.             charset         =   1
  530.             weight          =   400
  531.             size            =   9.75
  532.             underline       =   0   'False
  533.             italic          =   0   'False
  534.             strikethrough   =   0   'False
  535.          EndProperty
  536.          Height          =   255
  537.          Index           =   3
  538.          Left            =   270
  539.          TabIndex        =   4
  540.          Top             =   1410
  541.          Width           =   1095
  542.       End
  543.    End
  544.    Begin VB.Menu mfile 
  545.       Caption         =   "File"
  546.       Begin VB.Menu mexit 
  547.          Caption         =   "&Exit"
  548.       End
  549.    End
  550.    Begin VB.Menu mhelp 
  551.       Caption         =   "&Help"
  552.       Begin VB.Menu mabout 
  553.          Caption         =   "&About"
  554.       End
  555.    End
  556. Attribute VB_Name = "DMODemo"
  557. Attribute VB_Creatable = False
  558. Attribute VB_Exposed = False
  559. Dim CurrentType As Integer
  560. Dim Connected As Integer
  561. ''Dim OServer As New SQLOLE.SQLServer
  562. Private Sub bClose_Click()
  563.    If Connected = True Then
  564.      MousePointer = 11
  565.      OServer.DisConnect
  566.      MousePointer = 0
  567.    End If
  568.     Unload DMODemo
  569.  '  End
  570. End Sub
  571. Private Sub bConnect_Click()
  572. If bConnect.Caption = "&Connect" Then
  573.     If MyServer.Text = "" Then
  574.         MsgBox "Enter a valid server name, login ID and password. Then press Connect.", 64, "Microsoft SQL Server"
  575.         Exit Sub
  576.     End If
  577.     MousePointer = 11
  578.     StatusBar.Caption = "Connecting to \\" + MyServer.Text
  579.     ' connect to the specified
  580.     On Error Resume Next    ' temporarily turn off errorchecking
  581.      OServer.Connect ServerName:=MyServer.Text, _
  582.                         Login:=MyLogin.Text, _
  583.                         Password:=MyPassword.Text
  584.    If Err <> 0 Then
  585.           MsgBox Err.Description + " (Press F1 for Help)", 16, Err.Source & " Error", _
  586.           Err.HelpFile, Err.HelpContext
  587.           MousePointer = 0
  588.           Exit Sub
  589.     End If
  590.     MousePointer = 11
  591.     On Error GoTo 0
  592.     StatusBar.Caption = "Connected to \\" + OServer.Name
  593. ' list all databases on the OServer
  594.   StatusBar.Caption = "Get Database List"
  595.   For Each MyDB In OServer.Databases
  596.         ' always check that the database is accessable
  597.         ' (database are inaccessible when being Loaded)
  598.         If MyDB.Status <> SQLOLEDBStat_Inaccessible Then
  599.             DBList.AddItem MyDB.Name
  600.         Else
  601.             MsgBox "Database: """ + MyDB.Name + " "" is Inaccessible at this time ", 16, "Microsoft SQL Server"
  602.         End If
  603.   Next
  604.             
  605. ' List all devices on server
  606.   StatusBar.Caption = "Get Device List"
  607.   Dim MyDevice As SQLOLE.Device
  608.   For Each MyDevice In OServer.Devices
  609.      DeviceList.AddItem MyDevice.Name
  610.   Next
  611. 'List all Logins on Server
  612.   StatusBar.Caption = "Get Logins List"
  613.   Dim MyLogins As SQLOLE.Login
  614.   For Each MyLogins In OServer.Logins
  615.      LoginList.AddItem MyLogins.Name
  616.   Next
  617. 'List all RemoteServers
  618.   StatusBar.Caption = "Get RemoteServers List"
  619.   Dim MyRemote As SQLOLE.RemoteServer
  620.   For Each MyRemote In OServer.RemoteServers
  621.      RemoteList.AddItem MyRemote.Name
  622.   Next
  623.             
  624. ' set control properties
  625.   Connected = True
  626.   bConnect.Caption = "Disconnect"
  627.   Radios.Enabled = True
  628.   TheList.Enabled = True
  629.   DeviceList.Enabled = True
  630.   DeviceList.ListIndex = 0
  631.   LoginList.Enabled = True
  632.   LoginList.ListIndex = 0
  633.   RemoteList.Enabled = True
  634.   RemoteList.ListIndex = 0
  635.   DBList.Enabled = True
  636.   StatusBar.Caption = "Get Object List"
  637.   DBList.ListIndex = 0
  638.   StatusBar.Caption = ""
  639.   MousePointer = 0
  640. Else ' disconnect from server
  641.   MousePointer = 11
  642.   Connected = False
  643.   OServer.DisConnect
  644.   bConnect.Caption = "Connect"
  645.   DeviceList.Clear
  646.   LoginList.Clear
  647.   RemoteList.Clear
  648.   DBList.Clear
  649.   TheList.Clear
  650.   DBList.Enabled = False
  651.   DeviceList.Enabled = False
  652.   LoginList.Enabled = False
  653.   RemoteList.Enabled = False
  654.   Radios.Enabled = False
  655.   TheList.Enabled = False
  656.   StatusBar.Caption = "Not Connected"
  657.   MousePointer = 0
  658. End If
  659. End Sub
  660. Private Sub DBList_Click()
  661.  '  MousePointer = 11
  662.    DisplayList (CurrentType)
  663.  '  MousePointer = 0
  664. End Sub
  665. Private Sub Form_Load()
  666. ''   Set OServer = CreateObject("SQLOLE.SQLServer")
  667. Dim OServer As New SQLOLE.SQLServer
  668. Connected = False
  669. End Sub
  670. Sub DisplayList(Index As Integer)
  671. Dim MyDB As String
  672. TheList.Clear
  673. MyDB = DBList.Text
  674. ObjectLabel = OServer.Name + "." + MyDB
  675. Select Case Index
  676. Case 0 ' tables
  677.     ObjectList TheObjectType:=SQLOLEObj_UserTable, MyDataBase:=MyDB
  678.     ObjectLabel = ObjectLabel + " Tables"
  679. Case 1 ' views
  680.     ObjectList TheObjectType:=SQLOLEObj_View, MyDataBase:=MyDB
  681.     ObjectLabel = ObjectLabel + " Views"
  682. Case 2 ' stored procedures
  683.     ObjectList TheObjectType:=SQLOLEObj_StoredProcedure, MyDataBase:=MyDB
  684.     ObjectLabel = ObjectLabel + " Stored Procedures"
  685. Case 3 ' user defined datatypes
  686.     ObjectList TheObjectType:=SQLOLEObj_UserDefinedDatatype, MyDataBase:=MyDB
  687.     ObjectLabel = ObjectLabel + " UDDTs"
  688. End Select
  689. End Sub
  690. Private Sub mabout_Click()
  691. fAbout.Show 1
  692. End Sub
  693. Private Sub DBType_Click(Index As Integer)
  694.     MousePointer = 11
  695.     CurrentType = Index
  696.     DisplayList (Index)
  697.     MousePointer = 0
  698. End Sub
  699. Sub ObjectList(TheObjectType As Long, MyDataBase As String)
  700.   Dim MyObject As Object
  701.   For Each MyObject In OServer.Databases(MyDataBase).ListObjects(ObjectTypes:=TheObjectType)
  702.        TheList.AddItem MyObject.Name
  703.   Next
  704. End Sub
  705. Private Sub mexit_Click()
  706.    If Connected = True Then
  707.      MousePointer = 11
  708.      OServer.DisConnect
  709.      MousePointer = 0
  710.    End If
  711.     Unload DMODemo
  712.  '  End
  713. End Sub
  714. Private Sub SSCommand1_Click()
  715. End Sub
  716.