frmServerBrowser.frm
上传用户:fuyouda
上传日期:2015-08-19
资源大小:6876k
文件大小:5k
源码类别:

家庭/个人应用

开发平台:

Visual C++

  1. VERSION 5.00
  2. Begin VB.Form frmServerBrowser 
  3.    BorderStyle     =   3  'Fixed Dialog
  4.    Caption         =   "Server Browser"
  5.    ClientHeight    =   3465
  6.    ClientLeft      =   2760
  7.    ClientTop       =   3750
  8.    ClientWidth     =   6150
  9.    Icon            =   "frmServerBrowser.frx":0000
  10.    LinkTopic       =   "Form1"
  11.    MaxButton       =   0   'False
  12.    MinButton       =   0   'False
  13.    ScaleHeight     =   3465
  14.    ScaleWidth      =   6150
  15.    ShowInTaskbar   =   0   'False
  16.    StartUpPosition =   1  'CenterOwner
  17.    Begin VB.TextBox txtServerName 
  18.       Enabled         =   0   'False
  19.       Height          =   285
  20.       Left            =   1440
  21.       TabIndex        =   11
  22.       Top             =   240
  23.       Width           =   3015
  24.    End
  25.    Begin VB.TextBox txtComputer 
  26.       Height          =   270
  27.       Left            =   1440
  28.       TabIndex        =   10
  29.       Top             =   960
  30.       Width           =   3015
  31.    End
  32.    Begin VB.TextBox txtServerClassID 
  33.       Enabled         =   0   'False
  34.       Height          =   285
  35.       Left            =   1440
  36.       TabIndex        =   8
  37.       Top             =   600
  38.       Width           =   3015
  39.    End
  40.    Begin VB.CommandButton cmdFind 
  41.       Caption         =   "Refresh List"
  42.       Height          =   255
  43.       Left            =   4680
  44.       TabIndex        =   4
  45.       Top             =   1320
  46.       Width           =   1215
  47.    End
  48.    Begin VB.CheckBox ckVer1 
  49.       Caption         =   "2.0"
  50.       Height          =   255
  51.       Left            =   2760
  52.       TabIndex        =   3
  53.       Top             =   1320
  54.       Width           =   1695
  55.    End
  56.    Begin VB.ListBox listServer 
  57.       Height          =   1620
  58.       Left            =   240
  59.       TabIndex        =   2
  60.       Top             =   1680
  61.       Width           =   5655
  62.    End
  63.    Begin VB.CommandButton CancelButton 
  64.       Caption         =   "&Cancel"
  65.       Height          =   255
  66.       Left            =   4680
  67.       TabIndex        =   1
  68.       Top             =   600
  69.       Width           =   1215
  70.    End
  71.    Begin VB.CommandButton OKButton 
  72.       Caption         =   "&OK"
  73.       Default         =   -1  'True
  74.       Height          =   255
  75.       Left            =   4680
  76.       TabIndex        =   0
  77.       Top             =   240
  78.       Width           =   1215
  79.    End
  80.    Begin VB.Label Label4 
  81.       Caption         =   "Server ClassID"
  82.       Height          =   255
  83.       Left            =   240
  84.       TabIndex        =   9
  85.       Top             =   600
  86.       Width           =   1095
  87.    End
  88.    Begin VB.Label Label3 
  89.       Caption         =   "Server List:"
  90.       Height          =   255
  91.       Left            =   240
  92.       TabIndex        =   7
  93.       Top             =   1320
  94.       Width           =   1215
  95.    End
  96.    Begin VB.Label Label2 
  97.       Caption         =   "Computer"
  98.       Height          =   255
  99.       Left            =   240
  100.       TabIndex        =   6
  101.       Top             =   960
  102.       Width           =   975
  103.    End
  104.    Begin VB.Label Label1 
  105.       Caption         =   "Server Name"
  106.       Height          =   255
  107.       Left            =   240
  108.       TabIndex        =   5
  109.       Top             =   240
  110.       Width           =   975
  111.    End
  112. End
  113. Attribute VB_Name = "frmServerBrowser"
  114. Attribute VB_GlobalNameSpace = False
  115. Attribute VB_Creatable = False
  116. Attribute VB_PredeclaredId = True
  117. Attribute VB_Exposed = False
  118. Option Explicit
  119. Public ComputerName As String
  120. Public ServerName As String
  121. Public ServerClassID As String
  122. Public Version As Long
  123. Public mbReturn As Boolean
  124. Private Sub CancelButton_Click()
  125.     mbReturn = False
  126.     Unload Me
  127. End Sub
  128. Private Sub cmdFind_Click()
  129.     Dim Count, I As Long
  130.     Dim ServerNames, ServerClassIDs As Variant
  131.     
  132.     listServer.Clear
  133.     ComputerName = txtComputer.Text
  134.     txtServerName.Text = ""
  135.     txtServerClassID.Text = ""
  136.     If ckVer1.Value = 0 Then Version = 1 Else Version = 2
  137.     
  138.     Count = ASDAC_GetServers(txtComputer.Text, Version, ServerNames, ServerClassIDs)
  139.     For I = 0 To Count - 1
  140.         ServerItems(I).ServerName = ServerNames(I)
  141.         ServerItems(I).ServerClassID = ServerClassIDs(I)
  142.         listServer.AddItem ServerNames(I)
  143.     Next I
  144.     
  145. End Sub
  146. Private Sub Form_Load()
  147.     mbReturn = False
  148.     Version = 2
  149.     ckVer1.Value = 1
  150.     txtComputer.Text = ""
  151.     txtServerName.Text = ""
  152.     txtServerClassID.Text = ""
  153.     cmdFind_Click
  154. End Sub
  155. Private Sub listServer_Click()
  156.     If listServer.ListIndex = -1 Then Exit Sub
  157.     txtServerName.Text = ServerItems(listServer.ListIndex).ServerName
  158.     txtServerClassID.Text = ServerItems(listServer.ListIndex).ServerClassID
  159.     ServerName = txtServerName.Text
  160.     ServerClassID = txtServerClassID.Text
  161. End Sub
  162. Private Sub OKButton_Click()
  163.     mbReturn = True
  164.     Unload Me
  165. End Sub