home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1997 July & August / Pcwk7897.iso / mgxsuite / abc.z / SERVER.FRM < prev    next >
Text File  |  1996-12-16  |  12KB  |  369 lines
  1. VERSION 4.00
  2. Begin VB.Form ServerInfo 
  3.    Appearance      =   0  'Flat
  4.    AutoRedraw      =   -1  'True
  5.    BackColor       =   &H00C0C0C0&
  6.    BorderStyle     =   3  'Fixed Dialog
  7.    ClientHeight    =   4590
  8.    ClientLeft      =   5595
  9.    ClientTop       =   2340
  10.    ClientWidth     =   3570
  11.    ClipControls    =   0   'False
  12.    ControlBox      =   0   'False
  13.    BeginProperty Font 
  14.       name            =   "MS Sans Serif"
  15.       charset         =   0
  16.       weight          =   700
  17.       size            =   12
  18.       underline       =   0   'False
  19.       italic          =   0   'False
  20.       strikethrough   =   0   'False
  21.    EndProperty
  22.    ForeColor       =   &H00C0C0C0&
  23.    Height          =   4995
  24.    Left            =   5535
  25.    LinkTopic       =   "Form1"
  26.    MaxButton       =   0   'False
  27.    MinButton       =   0   'False
  28.    ScaleHeight     =   4590
  29.    ScaleWidth      =   3570
  30.    Top             =   1995
  31.    Width           =   3690
  32.    Begin VB.CommandButton cmdDone 
  33.       Appearance      =   0  'Flat
  34.       BackColor       =   &H80000005&
  35.       Cancel          =   -1  'True
  36.       Caption         =   "&Done"
  37.       Default         =   -1  'True
  38.       BeginProperty Font 
  39.          name            =   "MS Sans Serif"
  40.          charset         =   0
  41.          weight          =   700
  42.          size            =   8.25
  43.          underline       =   0   'False
  44.          italic          =   0   'False
  45.          strikethrough   =   0   'False
  46.       EndProperty
  47.       Height          =   375
  48.       Left            =   1200
  49.       TabIndex        =   10
  50.       Top             =   3720
  51.       Width           =   1215
  52.    End
  53.    Begin VB.TextBox txtProcess 
  54.       Alignment       =   2  'Center
  55.       Appearance      =   0  'Flat
  56.       BackColor       =   &H00FFFFFF&
  57.       DataField       =   "Processor"
  58.       BeginProperty Font 
  59.          name            =   "MS Sans Serif"
  60.          charset         =   0
  61.          weight          =   700
  62.          size            =   8.25
  63.          underline       =   0   'False
  64.          italic          =   0   'False
  65.          strikethrough   =   0   'False
  66.       EndProperty
  67.       ForeColor       =   &H00FF0000&
  68.       Height          =   285
  69.       Left            =   720
  70.       TabIndex        =   9
  71.       Top             =   2640
  72.       Width           =   2175
  73.    End
  74.    Begin VB.TextBox txtUserName 
  75.       Alignment       =   2  'Center
  76.       Appearance      =   0  'Flat
  77.       BackColor       =   &H00FFFFFF&
  78.       BeginProperty Font 
  79.          name            =   "MS Sans Serif"
  80.          charset         =   0
  81.          weight          =   700
  82.          size            =   8.25
  83.          underline       =   0   'False
  84.          italic          =   0   'False
  85.          strikethrough   =   0   'False
  86.       EndProperty
  87.       ForeColor       =   &H00C00000&
  88.       Height          =   285
  89.       Left            =   720
  90.       TabIndex        =   8
  91.       Top             =   2040
  92.       Width           =   2175
  93.    End
  94.    Begin VB.TextBox txtServer 
  95.       Alignment       =   2  'Center
  96.       Appearance      =   0  'Flat
  97.       BackColor       =   &H00FFFFFF&
  98.       DataField       =   "Server"
  99.       BeginProperty Font 
  100.          name            =   "MS Sans Serif"
  101.          charset         =   0
  102.          weight          =   700
  103.          size            =   8.25
  104.          underline       =   0   'False
  105.          italic          =   0   'False
  106.          strikethrough   =   0   'False
  107.       EndProperty
  108.       ForeColor       =   &H00FF0000&
  109.       Height          =   285
  110.       Left            =   720
  111.       TabIndex        =   7
  112.       Top             =   840
  113.       Width           =   2175
  114.    End
  115.    Begin VB.TextBox txtType 
  116.       Alignment       =   2  'Center
  117.       Appearance      =   0  'Flat
  118.       BackColor       =   &H00FFFFFF&
  119.       DataField       =   "Type"
  120.       BeginProperty Font 
  121.          name            =   "MS Sans Serif"
  122.          charset         =   0
  123.          weight          =   700
  124.          size            =   8.25
  125.          underline       =   0   'False
  126.          italic          =   0   'False
  127.          strikethrough   =   0   'False
  128.       EndProperty
  129.       ForeColor       =   &H00FF0000&
  130.       Height          =   285
  131.       Left            =   720
  132.       TabIndex        =   6
  133.       Top             =   1440
  134.       Width           =   2175
  135.    End
  136.    Begin VB.TextBox txtUserID 
  137.       Alignment       =   2  'Center
  138.       Appearance      =   0  'Flat
  139.       BackColor       =   &H00FFFFFF&
  140.       DataField       =   "UserID"
  141.       BeginProperty Font 
  142.          name            =   "MS Sans Serif"
  143.          charset         =   0
  144.          weight          =   700
  145.          size            =   8.25
  146.          underline       =   0   'False
  147.          italic          =   0   'False
  148.          strikethrough   =   0   'False
  149.       EndProperty
  150.       ForeColor       =   &H00FF0000&
  151.       Height          =   285
  152.       Left            =   720
  153.       TabIndex        =   5
  154.       Top             =   3240
  155.       Width           =   2175
  156.    End
  157.    Begin VB.Data Data1 
  158.       Appearance      =   0  'Flat
  159.       Caption         =   "Data1"
  160.       Connect         =   ""
  161.       DatabaseName    =   ""
  162.       Exclusive       =   0   'False
  163.       BeginProperty Font 
  164.          name            =   "MS Sans Serif"
  165.          charset         =   0
  166.          weight          =   700
  167.          size            =   8.25
  168.          underline       =   0   'False
  169.          italic          =   0   'False
  170.          strikethrough   =   0   'False
  171.       EndProperty
  172.       Height          =   270
  173.       Left            =   1200
  174.       Options         =   0
  175.       ReadOnly        =   -1  'True
  176.       RecordsetType   =   1  'Dynaset
  177.       RecordSource    =   "Network"
  178.       Top             =   4920
  179.       Visible         =   0   'False
  180.       Width           =   1140
  181.    End
  182.    Begin VB.Label Label6 
  183.       Alignment       =   2  'Center
  184.       Appearance      =   0  'Flat
  185.       AutoSize        =   -1  'True
  186.       BackColor       =   &H00C0C0C0&
  187.       Caption         =   "Server Information"
  188.       BeginProperty Font 
  189.          name            =   "MS Sans Serif"
  190.          charset         =   0
  191.          weight          =   700
  192.          size            =   9.75
  193.          underline       =   0   'False
  194.          italic          =   0   'False
  195.          strikethrough   =   0   'False
  196.       EndProperty
  197.       ForeColor       =   &H80000008&
  198.       Height          =   240
  199.       Left            =   840
  200.       TabIndex        =   0
  201.       Top             =   240
  202.       Width           =   1935
  203.    End
  204.    Begin VB.Line Line4 
  205.       X1              =   240
  206.       X2              =   3360
  207.       Y1              =   360
  208.       Y2              =   360
  209.    End
  210.    Begin VB.Line Line3 
  211.       X1              =   3360
  212.       X2              =   3360
  213.       Y1              =   360
  214.       Y2              =   4320
  215.    End
  216.    Begin VB.Line Line2 
  217.       X1              =   240
  218.       X2              =   3360
  219.       Y1              =   4320
  220.       Y2              =   4320
  221.    End
  222.    Begin VB.Line Line1 
  223.       X1              =   240
  224.       X2              =   240
  225.       Y1              =   360
  226.       Y2              =   4320
  227.    End
  228.    Begin VB.Label Label1 
  229.       Appearance      =   0  'Flat
  230.       AutoSize        =   -1  'True
  231.       BackColor       =   &H00C0C0C0&
  232.       Caption         =   "Server"
  233.       BeginProperty Font 
  234.          name            =   "MS Sans Serif"
  235.          charset         =   0
  236.          weight          =   700
  237.          size            =   8.25
  238.          underline       =   0   'False
  239.          italic          =   0   'False
  240.          strikethrough   =   0   'False
  241.       EndProperty
  242.       ForeColor       =   &H80000008&
  243.       Height          =   195
  244.       Left            =   1440
  245.       TabIndex        =   1
  246.       Top             =   600
  247.       Width           =   615
  248.    End
  249.    Begin VB.Label Label2 
  250.       Appearance      =   0  'Flat
  251.       AutoSize        =   -1  'True
  252.       BackColor       =   &H00C0C0C0&
  253.       Caption         =   "Type"
  254.       BeginProperty Font 
  255.          name            =   "MS Sans Serif"
  256.          charset         =   0
  257.          weight          =   700
  258.          size            =   8.25
  259.          underline       =   0   'False
  260.          italic          =   0   'False
  261.          strikethrough   =   0   'False
  262.       EndProperty
  263.       ForeColor       =   &H80000008&
  264.       Height          =   195
  265.       Left            =   1560
  266.       TabIndex        =   2
  267.       Top             =   1200
  268.       Width           =   435
  269.    End
  270.    Begin VB.Label Label3 
  271.       Appearance      =   0  'Flat
  272.       AutoSize        =   -1  'True
  273.       BackColor       =   &H00C0C0C0&
  274.       Caption         =   "User"
  275.       BeginProperty Font 
  276.          name            =   "MS Sans Serif"
  277.          charset         =   0
  278.          weight          =   700
  279.          size            =   8.25
  280.          underline       =   0   'False
  281.          italic          =   0   'False
  282.          strikethrough   =   0   'False
  283.       EndProperty
  284.       ForeColor       =   &H80000008&
  285.       Height          =   195
  286.       Left            =   1560
  287.       TabIndex        =   3
  288.       Top             =   1800
  289.       Width           =   405
  290.    End
  291.    Begin VB.Label Label4 
  292.       Appearance      =   0  'Flat
  293.       AutoSize        =   -1  'True
  294.       BackColor       =   &H00C0C0C0&
  295.       Caption         =   "Computer"
  296.       BeginProperty Font 
  297.          name            =   "MS Sans Serif"
  298.          charset         =   0
  299.          weight          =   700
  300.          size            =   8.25
  301.          underline       =   0   'False
  302.          italic          =   0   'False
  303.          strikethrough   =   0   'False
  304.       EndProperty
  305.       ForeColor       =   &H80000008&
  306.       Height          =   195
  307.       Left            =   1320
  308.       TabIndex        =   4
  309.       Top             =   2400
  310.       Width           =   810
  311.    End
  312.    Begin VB.Label Label5 
  313.       Appearance      =   0  'Flat
  314.       AutoSize        =   -1  'True
  315.       BackColor       =   &H00C0C0C0&
  316.       Caption         =   "UserID"
  317.       BeginProperty Font 
  318.          name            =   "MS Sans Serif"
  319.          charset         =   0
  320.          weight          =   700
  321.          size            =   8.25
  322.          underline       =   0   'False
  323.          italic          =   0   'False
  324.          strikethrough   =   0   'False
  325.       EndProperty
  326.       ForeColor       =   &H80000008&
  327.       Height          =   195
  328.       Left            =   1440
  329.       TabIndex        =   11
  330.       Top             =   3000
  331.       Width           =   600
  332.    End
  333. End
  334. Attribute VB_Name = "ServerInfo"
  335. Attribute VB_Creatable = False
  336. Attribute VB_Exposed = False
  337.     Option Explicit
  338.     
  339.     
  340.     Dim NetSource As RECORD
  341.     Dim ABC As Object
  342.     Dim Chart As Object
  343.     Dim ABCObject As Object
  344.     Dim NewLine() As Object
  345.     Dim Shape As Object
  346.     Dim Shape1 As Object
  347.     Dim TextTitle As Object
  348.     Dim recCount As Integer
  349.     Dim ChartCancelled As Integer
  350.     Dim CurrentRec As String
  351.     Dim FieldInfo As String
  352.     Dim UserName As String
  353.     Dim DataBaseFile As String
  354.     Dim TestFileValid As String
  355.     Dim DataBaseFileOne As Integer
  356.     Dim DataBaseFileTwo As Integer
  357.  
  358. Private Sub cmdDone_Click()
  359.    Unload ServerInfo
  360. End Sub
  361.  
  362. Private Sub Form_Load()
  363.  
  364.     ServerInfo.Left = (Screen.Width - Width) \ 2
  365.     ServerInfo.Top = (Screen.Height - Height) \ 2
  366.     
  367. End Sub
  368.  
  369.