blob: 3fa1fd4c4e8b58acdc6a5b21c9edfb41a07f0d3f (
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
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
|
VERSION 5.00
Begin VB.Form frmNewDatabase1
BorderStyle = 5 'Sizable ToolWindow
Caption = "Nodes"
ClientHeight = 3000
ClientLeft = 2850
ClientTop = 3450
ClientWidth = 6240
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 3281.25
ScaleMode = 0 'User
ScaleWidth = 6359.712
ShowInTaskbar = 0 'False
StartUpPosition = 2 'CenterScreen
Begin VB.TextBox textApiNodes
Height = 285
Left = 2760
TabIndex = 12
Text = "4"
Top = 1665
Width = 375
End
Begin VB.VScrollBar VScroll1
Height = 255
Left = 3240
TabIndex = 11
Top = 1680
Width = 135
End
Begin VB.OptionButton Option4
Alignment = 1 'Right Justify
Caption = "1"
Height = 375
Left = 2760
TabIndex = 10
Top = 1020
Width = 375
End
Begin VB.OptionButton Option3
Alignment = 1 'Right Justify
Caption = "4"
Height = 375
Left = 3960
TabIndex = 9
Top = 360
Width = 375
End
Begin VB.OptionButton Option2
Alignment = 1 'Right Justify
Caption = "2"
Height = 375
Left = 3360
TabIndex = 8
Top = 360
Width = 375
End
Begin VB.OptionButton Option1
Alignment = 1 'Right Justify
Caption = "1"
Height = 375
Left = 2760
TabIndex = 7
Top = 360
Value = -1 'True
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 Label3
Caption = "No of api nodes"
Height = 255
Left = 240
TabIndex = 6
Top = 1680
Width = 2415
End
Begin VB.Label Label2
Caption = "No of management nodes"
Height = 255
Left = 240
TabIndex = 5
Top = 1080
Width = 2415
End
Begin VB.Label Label1
Caption = "No of database nodes"
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 = "frmNewDatabase1"
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
Private Sub Option1_Click()
Option2.Value = False
Option3.Value = False
End Sub
Private Sub Option2_Click()
Option1.Value = False
Option3.Value = False
End Sub
Private Sub Option3_Click()
Option1.Value = False
Option2.Value = False
End Sub
Private Sub Option4_Click()
Option4.Value = True
End Sub
Private Sub textApiNodes_Validate(Cancel As Boolean)
'If Not isnumber(textApiNodes.Text) Then Cancel = False
End Sub
|