blob: 49806a695ea20cf0a85253dcaa8e6fffbbe58675 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
|
VERSION 5.00
Begin VB.Form frmNewDatabase2
BorderStyle = 5 'Sizable ToolWindow
Caption = "Computers"
ClientHeight = 2895
ClientLeft = 2850
ClientTop = 3450
ClientWidth = 6240
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 3166.406
ScaleMode = 0 'User
ScaleWidth = 6359.712
ShowInTaskbar = 0 'False
StartUpPosition = 2 'CenterScreen
Begin VB.ComboBox Combo1
Height = 315
Left = 2400
TabIndex = 7
Text = "Combo1"
Top = 360
Width = 1455
End
Begin VB.VScrollBar VScroll2
Height = 255
Left = 4560
TabIndex = 6
Top = 375
Width = 135
End
Begin VB.TextBox Text1
Height = 285
Left = 4080
TabIndex = 5
Text = "4"
Top = 360
Width = 375
End
Begin VB.CommandButton cmdCancel
Cancel = -1 'True
Caption = "Cancel"
Height = 305
Left = 1320
TabIndex = 3
Top = 2400
Width = 1140
End
Begin VB.CommandButton cmdFinish
Caption = "Finish"
Enabled = 0 'False
Height = 305
Left = 5040
TabIndex = 2
Top = 2400
Width = 1140
End
Begin VB.CommandButton cmdBack
Caption = "Back"
Default = -1 'True
Enabled = 0 'False
Height = 305
Left = 2640
TabIndex = 0
Top = 2400
Width = 1140
End
Begin VB.CommandButton cmdNext
Caption = "Next"
Height = 305
Left = 3720
TabIndex = 1
Top = 2400
Width = 1140
End
Begin VB.Label Label5
Caption = "Computer"
Height = 255
Left = 2400
TabIndex = 9
Top = 0
Width = 975
End
Begin VB.Label Label4
Caption = "Node id"
Height = 255
Left = 4080
TabIndex = 8
Top = 120
Width = 615
End
Begin VB.Label Label1
Caption = "Database node 1"
Height = 255
Left = 240
TabIndex = 4
Top = 420
Width = 2415
End
Begin VB.Line Line1
BorderColor = &H80000003&
X1 = 122.302
X2 = 6237.41
Y1 = 2493.75
Y2 = 2493.75
End
End
Attribute VB_Name = "frmNewDatabase2"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Sub Form_Resize()
If Me.Width < 6375 Then Me.Width = 6375
cmdCancel.Left = Me.ScaleWidth - 5136 + 400
cmdBack.Left = Me.ScaleWidth - 3897 + 400
cmdNext.Left = Me.ScaleWidth - 2883 + 400
cmdFinish.Left = Me.ScaleWidth - 1643 + 400
Line1.X2 = Me.ScaleWidth - 480 + 400
cmdCancel.Top = Me.ScaleHeight - 375
cmdBack.Top = Me.ScaleHeight - 375
cmdNext.Top = Me.ScaleHeight - 375
cmdFinish.Top = Me.ScaleHeight - 375
Line1.Y1 = Me.ScaleHeight - 475
Line1.Y2 = Me.ScaleHeight - 475
End Sub
Private Sub cmdCancel_Click()
'set the global var to false
'to denote a failed login
Unload Me
End Sub
|
