home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / nivb / acct.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-05-07  |  2.1 KB  |  61 lines
  1. VERSION 2.00
  2. Begin Form AcctForm 
  3.    Caption         =   "Test NetWare Accounting Services"
  4.    ClientHeight    =   2265
  5.    ClientLeft      =   2010
  6.    ClientTop       =   1500
  7.    ClientWidth     =   7305
  8.    Height          =   2670
  9.    Left            =   1950
  10.    LinkMode        =   1  'Source
  11.    LinkTopic       =   "Form2"
  12.    ScaleHeight     =   2265
  13.    ScaleWidth      =   7305
  14.    Top             =   1155
  15.    Width           =   7425
  16.    Begin ListBox ServerList 
  17.       FontBold        =   -1  'True
  18.       FontItalic      =   0   'False
  19.       FontName        =   "Courier"
  20.       FontSize        =   9.75
  21.       FontStrikethru  =   0   'False
  22.       FontUnderline   =   0   'False
  23.       Height          =   1590
  24.       Left            =   120
  25.       TabIndex        =   1
  26.       Top             =   120
  27.       Width           =   7095
  28.    End
  29.    Begin CommandButton OKButton 
  30.       Caption         =   "&OK"
  31.       Default         =   -1  'True
  32.       Height          =   375
  33.       Left            =   3240
  34.       TabIndex        =   0
  35.       Top             =   1800
  36.       Width           =   855
  37.    End
  38. Sub Form_Load ()
  39.     For connID% = 1 To 8
  40.         'for each connection in workstation's file server name table
  41.         'get the table entry, then see if it's null
  42.         
  43.         serverName$ = String$(48, 0)
  44.         If (IsConnectionIDInUse(connID%) = 1) Then
  45.             GetFileServerName connID%, serverName$
  46.             serverName$ = Left$(serverName$, InStr(serverName$, Chr$(0)) - 1)
  47.             If (Len(serverName$) > 20) Then
  48.                 serverName$ = Left$(serverName$, 20)
  49.             End If
  50.             If (AccountingInstalled(connID%) = 1) Then
  51.                 ServerList.AddItem Str$(connID%) + "  " + serverName$ + String$(22 - Len(serverName$), " ") + " Accounting Installed"
  52.             Else
  53.                 ServerList.AddItem Str$(connID%) + "  " + serverName$ + String$(22 - Len(serverName$), " ") + " Accounting Not Installed"
  54.             End If
  55.         End If
  56.     Next connID%
  57. End Sub
  58. Sub OKButton_Click ()
  59.     Unload AcctForm
  60. End Sub
  61.