home *** CD-ROM | disk | FTP | other *** search
/ Microsoft Internet Business Development Kit / PRODUCT_CD.iso / sqlsvr / ppc / devmdi.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-10-02  |  3.2 KB  |  110 lines
  1. VERSION 4.00
  2. Begin VB.Form DevMDI 
  3.    BackColor       =   &H00C0C0C0&
  4.    Caption         =   "Manage Devices"
  5.    ClientHeight    =   2745
  6.    ClientLeft      =   1365
  7.    ClientTop       =   3390
  8.    ClientWidth     =   6360
  9.    Height          =   3150
  10.    Left            =   1305
  11.    LinkTopic       =   "Form1"
  12.    MDIChild        =   -1  'True
  13.    ScaleHeight     =   2745
  14.    ScaleWidth      =   6360
  15.    Top             =   3045
  16.    Width           =   6480
  17.    Begin Threed.SSPanel toolbar 
  18.       Align           =   1  'Align Top
  19.       Height          =   405
  20.       Left            =   0
  21.       TabIndex        =   1
  22.       Top             =   0
  23.       Width           =   6360
  24.       _version        =   65536
  25.       _extentx        =   11218
  26.       _extenty        =   714
  27.       _stockprops     =   15
  28.    End
  29.    Begin GraphLib.Graph DevChart 
  30.       Height          =   2085
  31.       Left            =   270
  32.       TabIndex        =   0
  33.       Top             =   270
  34.       Width           =   5775
  35.       _version        =   65536
  36.       _extentx        =   10186
  37.       _extenty        =   3678
  38.       _stockprops     =   96
  39.       autoinc         =   0
  40.       bottomtitle     =   "Devices"
  41.       graphstyle      =   3
  42.       graphtype       =   4
  43.       legendstyle     =   1
  44.       numsets         =   2
  45.       randomdata      =   1
  46.       colordata       =   0
  47.       extradata       =   0
  48.       extradata[]     =   0
  49.       fontfamily      =   4
  50.       fontfamily[0]   =   2
  51.       fontfamily[1]   =   2
  52.       fontfamily[2]   =   2
  53.       fontfamily[3]   =   2
  54.       fontsize        =   4
  55.       fontsize[0]     =   300
  56.       fontsize[1]     =   150
  57.       fontsize[2]     =   100
  58.       fontsize[3]     =   100
  59.       fontstyle       =   4
  60.       fontstyle[0]    =   2
  61.       fontstyle[1]    =   2
  62.       fontstyle[2]    =   2
  63.       fontstyle[3]    =   2
  64.       graphdata       =   0
  65.       graphdata[]     =   5
  66.       labeltext       =   0
  67.       legendtext      =   2
  68.       legendtext[0]   =   "Space Used"
  69.       legendtext[1]   =   "Space Available"
  70.       patterndata     =   0
  71.       symboldata      =   0
  72.       xposdata        =   0
  73.       xposdata[]      =   0
  74.    End
  75. Attribute VB_Name = "DevMDI"
  76. Attribute VB_Creatable = False
  77. Attribute VB_Exposed = False
  78. Private Sub Form_Load()
  79.   ' set form title
  80.   DevMDI.Caption = "\\" + OServer.Name + "- Devices"
  81.   Dim ii As Integer
  82.   ' create Device object
  83.   Set MyDevice = CreateObject("SQLOLE.Device")
  84.   ' set chart parameters
  85.   DevChart.NumPoints = OServer.Devices.Count
  86.   DevChart.NumSets = 2
  87.   DevChart.ThisSet = 1
  88.   ii = 0
  89.   ' chart all Devices on the OServer
  90.   For Each MyDevice In OServer.Devices
  91.         ii = ii + 1
  92.         DevChart.ThisPoint = ii
  93.         DevChart.LabelText = MyDevice.Name
  94.         spac = MyDevice.SpaceAvailable
  95.         DevChart.ThisSet = 1
  96.         DevChart.GraphData = MyDevice.Size - spac
  97.         DevChart.ThisSet = 2
  98.         DevChart.GraphData = spac
  99.   Next
  100. End Sub
  101. Private Sub Form_Resize()
  102. ' resize chart to size of MDI
  103. If WindowState <> 1 Then
  104.     DevChart.Left = 0
  105.     DevChart.Top = Toolbar.Height
  106.     DevChart.Width = DevMDI.Width
  107.     DevChart.Height = DevMDI.Height - 400 - Toolbar.Height
  108. End If
  109. End Sub
  110.