VERSION 4.00
Begin VB.Form DBMDI 
   BackColor       =   &H00C0C0C0&
   Caption         =   "Manage Databases"
   ClientHeight    =   3870
   ClientLeft      =   2670
   ClientTop       =   3225
   ClientWidth     =   6600
   Height          =   4275
   Left            =   2610
   LinkTopic       =   "Form1"
   MDIChild        =   -1  'True
   ScaleHeight     =   3870
   ScaleWidth      =   6600
   Top             =   2880
   Width           =   6720
   Begin Threed.SSPanel toolbar 
      Align           =   1  'Align Top
      Height          =   405
      Left            =   0
      TabIndex        =   1
      Top             =   0
      Width           =   6600
      _version        =   65536
      _extentx        =   11642
      _extenty        =   714
      _stockprops     =   15
      Begin Threed.SSCommand Command1 
         Height          =   285
         Left            =   180
         TabIndex        =   2
         Top             =   60
         Width           =   975
         _version        =   65536
         _extentx        =   1720
         _extenty        =   503
         _stockprops     =   78
         caption         =   "&Backup"
         bevelwidth      =   1
         outline         =   0   'False
      End
   End
   Begin GraphLib.Graph DBChart 
      Height          =   3315
      Left            =   330
      TabIndex        =   0
      Top             =   540
      Width           =   5775
      _version        =   65536
      _extentx        =   10186
      _extenty        =   5847
      _stockprops     =   96
      autoinc         =   0
      bottomtitle     =   "Databases"
      graphstyle      =   3
      graphtype       =   4
      legendstyle     =   1
      numsets         =   2
      randomdata      =   1
      colordata       =   0
      extradata       =   0
      extradata[]     =   0
      fontfamily      =   4
      fontfamily[0]   =   2
      fontfamily[1]   =   2
      fontfamily[2]   =   2
      fontfamily[3]   =   2
      fontsize        =   4
      fontsize[0]     =   300
      fontsize[1]     =   150
      fontsize[2]     =   100
      fontsize[3]     =   100
      fontstyle       =   4
      fontstyle[0]    =   2
      fontstyle[1]    =   2
      fontstyle[2]    =   2
      fontstyle[3]    =   2
      graphdata       =   0
      graphdata[]     =   5
      labeltext       =   0
      legendtext      =   2
      legendtext[0]   =   "Space Used"
      legendtext[1]   =   "Space Available"
      patterndata     =   0
      symboldata      =   0
      xposdata        =   0
      xposdata[]      =   0
   End
End
Attribute VB_Name = "DBMDI"
Attribute VB_Creatable = False
Attribute VB_Exposed = False

Private Sub Command1_Click()
Backup.Show 1

End Sub


Private Sub Command122_Click()

End Sub

Private Sub Form_Load()
' set form title
  DBMDI.Caption = "\\" + OServer.Name + "- Databases"
    
  Dim ii As Integer
' create database object
  Set MyDB = CreateObject("SQLOLE.Database")
  
' set chart parameters
  DBChart.NumPoints = OServer.Databases.Count
  DBChart.NumSets = 2
  DBChart.ThisSet = 1
  ii = 0
  
' chart all databases on the OServer
  For Each MyDB In OServer.Databases
        ii = ii + 1
        DBChart.ThisPoint = ii
        DBChart.LabelText = MyDB.Name       ' name
        spac = MyDB.SpaceAvailableInMB  '/ 1024    ' convert to MB
        DBChart.ThisSet = 1
        DBChart.GraphData = MyDB.Size - spac        ' calc space used
        DBChart.ThisSet = 2
        DBChart.GraphData = spac
  Next

End Sub

Private Sub Form_Resize()
' resize chart to fill MDI
If WindowState <> 1 Then
    DBChart.Left = 0
    DBChart.Top = Toolbar.Height
    DBChart.Width = DBMDI.Width
    DBChart.Height = DBMDI.Height - 400 - Toolbar.Height
End If

End Sub