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