PC Shareware 2000 January

home *** CD-ROM | disk | FTP | other *** search

/ PC Shareware 2000 January / PCShareware-1-00.iso / trials / Fc7 / ABC.Z / SERVER.FRM (.txt) < prev next >

Wrap

Visual Basic Form | 1996-12-16 | 11.4 KB | 361 lines

VERSION 4.00 Begin VB.Form ServerInfo Appearance = 0 'Flat AutoRedraw = -1 'True BackColor = &H00C0C0C0& BorderStyle = 3 'Fixed Dialog ClientHeight = 4590 ClientLeft = 5595 ClientTop = 2340 ClientWidth = 3570 ClipControls = 0 'False ControlBox = 0 'False BeginProperty Font name = "MS Sans Serif" charset = 0 weight = 700 size = 12 underline = 0 'False italic = 0 'False strikethrough = 0 'False EndProperty ForeColor = &H00C0C0C0& Height = 4995 Left = 5535 LinkTopic = "Form1" MaxButton = 0 'False MinButton = 0 'False ScaleHeight = 4590 ScaleWidth = 3570 Top = 1995 Width = 3690 Begin VB.CommandButton cmdDone Appearance = 0 'Flat BackColor = &H80000005& Cancel = -1 'True Caption = "&Done" Default = -1 'True BeginProperty Font name = "MS Sans Serif" charset = 0 weight = 700 size = 8.25 underline = 0 'False italic = 0 'False strikethrough = 0 'False EndProperty Height = 375 Left = 1200 TabIndex = 10 Top = 3720 Width = 1215 End Begin VB.TextBox txtProcess Alignment = 2 'Center Appearance = 0 'Flat BackColor = &H00FFFFFF& DataField = "Processor" BeginProperty Font name = "MS Sans Serif" charset = 0 weight = 700 size = 8.25 underline = 0 'False italic = 0 'False strikethrough = 0 'False EndProperty ForeColor = &H00FF0000& Height = 285 Left = 720 TabIndex = 9 Top = 2640 Width = 2175 End Begin VB.TextBox txtUserName Alignment = 2 'Center Appearance = 0 'Flat BackColor = &H00FFFFFF& BeginProperty Font name = "MS Sans Serif" charset = 0 weight = 700 size = 8.25 underline = 0 'False italic = 0 'False strikethrough = 0 'False EndProperty ForeColor = &H00C00000& Height = 285 Left = 720 TabIndex = 8 Top = 2040 Width = 2175 End Begin VB.TextBox txtServer Alignment = 2 'Center Appearance = 0 'Flat BackColor = &H00FFFFFF& DataField = "Server" BeginProperty Font name = "MS Sans Serif" charset = 0 weight = 700 size = 8.25 underline = 0 'False italic = 0 'False strikethrough = 0 'False EndProperty ForeColor = &H00FF0000& Height = 285 Left = 720 TabIndex = 7 Top = 840 Width = 2175 End Begin VB.TextBox txtType Alignment = 2 'Center Appearance = 0 'Flat BackColor = &H00FFFFFF& DataField = "Type" BeginProperty Font name = "MS Sans Serif" charset = 0 weight = 700 size = 8.25 underline = 0 'False italic = 0 'False strikethrough = 0 'False EndProperty ForeColor = &H00FF0000& Height = 285 Left = 720 TabIndex = 6 Top = 1440 Width = 2175 End Begin VB.TextBox txtUserID Alignment = 2 'Center Appearance = 0 'Flat BackColor = &H00FFFFFF& DataField = "UserID" BeginProperty Font name = "MS Sans Serif" charset = 0 weight = 700 size = 8.25 underline = 0 'False italic = 0 'False strikethrough = 0 'False EndProperty ForeColor = &H00FF0000& Height = 285 Left = 720 TabIndex = 5 Top = 3240 Width = 2175 End Begin VB.Data Data1 Appearance = 0 'Flat Caption = "Data1" Connect = "" DatabaseName = "" Exclusive = 0 'False BeginProperty Font name = "MS Sans Serif" charset = 0 weight = 700 size = 8.25 underline = 0 'False italic = 0 'False strikethrough = 0 'False EndProperty Height = 270 Left = 1200 Options = 0 ReadOnly = -1 'True RecordsetType = 1 'Dynaset RecordSource = "Network" Top = 4920 Visible = 0 'False Width = 1140 End Begin VB.Label Label6 Alignment = 2 'Center Appearance = 0 'Flat AutoSize = -1 'True BackColor = &H00C0C0C0& Caption = "Server Information" BeginProperty Font name = "MS Sans Serif" charset = 0 weight = 700 size = 9.75 underline = 0 'False italic = 0 'False strikethrough = 0 'False EndProperty ForeColor = &H80000008& Height = 240 Left = 840 TabIndex = 0 Top = 240 Width = 1935 End Begin VB.Line Line4 X1 = 240 X2 = 3360 Y1 = 360 Y2 = 360 End Begin VB.Line Line3 X1 = 3360 X2 = 3360 Y1 = 360 Y2 = 4320 End Begin VB.Line Line2 X1 = 240 X2 = 3360 Y1 = 4320 Y2 = 4320 End Begin VB.Line Line1 X1 = 240 X2 = 240 Y1 = 360 Y2 = 4320 End Begin VB.Label Label1 Appearance = 0 'Flat AutoSize = -1 'True BackColor = &H00C0C0C0& Caption = "Server" BeginProperty Font name = "MS Sans Serif" charset = 0 weight = 700 size = 8.25 underline = 0 'False italic = 0 'False strikethrough = 0 'False EndProperty ForeColor = &H80000008& Height = 195 Left = 1440 TabIndex = 1 Top = 600 Width = 615 End Begin VB.Label Label2 Appearance = 0 'Flat AutoSize = -1 'True BackColor = &H00C0C0C0& Caption = "Type" BeginProperty Font name = "MS Sans Serif" charset = 0 weight = 700 size = 8.25 underline = 0 'False italic = 0 'False strikethrough = 0 'False EndProperty ForeColor = &H80000008& Height = 195 Left = 1560 TabIndex = 2 Top = 1200 Width = 435 End Begin VB.Label Label3 Appearance = 0 'Flat AutoSize = -1 'True BackColor = &H00C0C0C0& Caption = "User" BeginProperty Font name = "MS Sans Serif" charset = 0 weight = 700 size = 8.25 underline = 0 'False italic = 0 'False strikethrough = 0 'False EndProperty ForeColor = &H80000008& Height = 195 Left = 1560 TabIndex = 3 Top = 1800 Width = 405 End Begin VB.Label Label4 Appearance = 0 'Flat AutoSize = -1 'True BackColor = &H00C0C0C0& Caption = "Computer" BeginProperty Font name = "MS Sans Serif" charset = 0 weight = 700 size = 8.25 underline = 0 'False italic = 0 'False strikethrough = 0 'False EndProperty ForeColor = &H80000008& Height = 195 Left = 1320 TabIndex = 4 Top = 2400 Width = 810 End Begin VB.Label Label5 Appearance = 0 'Flat AutoSize = -1 'True BackColor = &H00C0C0C0& Caption = "UserID" BeginProperty Font name = "MS Sans Serif" charset = 0 weight = 700 size = 8.25 underline = 0 'False italic = 0 'False strikethrough = 0 'False EndProperty ForeColor = &H80000008& Height = 195 Left = 1440 TabIndex = 11 Top = 3000 Width = 600 End Attribute VB_Name = "ServerInfo" Attribute VB_Creatable = False Attribute VB_Exposed = False Option Explicit Dim NetSource As RECORD Dim ABC As Object Dim Chart As Object Dim ABCObject As Object Dim NewLine() As Object Dim Shape As Object Dim Shape1 As Object Dim TextTitle As Object Dim recCount As Integer Dim ChartCancelled As Integer Dim CurrentRec As String Dim FieldInfo As String Dim UserName As String Dim DataBaseFile As String Dim TestFileValid As String Dim DataBaseFileOne As Integer Dim DataBaseFileTwo As Integer Private Sub cmdDone_Click() Unload ServerInfo End Sub Private Sub Form_Load() ServerInfo.Left = (Screen.Width - Width) \ 2 ServerInfo.Top = (Screen.Height - Height) \ 2 End Sub