2 Begin VB.Form Registration
4 BackColor = &H00C0C0C0&
5 BorderStyle = 3 'Fixed Dialog
6 Caption = "Registration"
11 ClipControls = 0 'False
14 name = "MS Sans Serif"
20 strikethrough = 0 'False
22 ForeColor = &H80000008&
33 Begin VB.CommandButton cancel_button
35 BackColor = &H80000005&
43 Begin VB.CommandButton save_button
45 BackColor = &H80000005&
53 Begin VB.TextBox Phone
55 BackColor = &H00C0C0C0&
64 BackColor = &H00C0C0C0&
71 Begin VB.TextBox TheState
73 BackColor = &H00C0C0C0&
82 BackColor = &H00C0C0C0&
89 Begin VB.TextBox Address
91 BackColor = &H00C0C0C0&
98 Begin VB.TextBox RealName
100 BackColor = &H00C0C0C0&
107 Begin VB.Label UserName
108 Alignment = 2 'Center
110 BackColor = &H00FFFFFF&
111 BackStyle = 0 'Transparent
113 name = "MS Sans Serif"
119 strikethrough = 0 'False
121 ForeColor = &H80000008&
128 Begin VB.Label Label6
129 Alignment = 1 'Right Justify
131 BackColor = &H80000005&
132 BackStyle = 0 'Transparent
133 Caption = "Telephone:"
134 ForeColor = &H80000008&
141 Begin VB.Label Label5
142 Alignment = 1 'Right Justify
144 BackColor = &H80000005&
145 BackStyle = 0 'Transparent
146 Caption = "State/Province:"
147 ForeColor = &H80000008&
154 Begin VB.Label Label4
155 Alignment = 1 'Right Justify
157 BackColor = &H80000005&
158 BackStyle = 0 'Transparent
159 Caption = "ZIP Code:"
160 ForeColor = &H80000008&
167 Begin VB.Label Label3
168 Alignment = 1 'Right Justify
170 BackColor = &H80000005&
171 BackStyle = 0 'Transparent
172 Caption = "City/Town:"
173 ForeColor = &H80000008&
180 Begin VB.Label Label2
181 Alignment = 1 'Right Justify
183 BackColor = &H80000005&
184 BackStyle = 0 'Transparent
186 ForeColor = &H80000008&
193 Begin VB.Label Label1
194 Alignment = 1 'Right Justify
196 BackColor = &H00FFFFFF&
197 BackStyle = 0 'Transparent
198 Caption = "Real name:"
199 ForeColor = &H80000008&
207 Attribute VB_Name = "Registration"
208 Attribute VB_Creatable = False
209 Attribute VB_Exposed = False
211 Private Sub cancel_button_Click()
216 Private Sub Form_Load()
218 Registration.WindowState = 0
219 Registration.Top = Int((MainWin.Height - Registration.Height) / 3)
220 Registration.Left = Int((MainWin.Width - Registration.Width) / 2)
223 If begin_trans() = True Then
224 serv_puts ("GREG _SELF_")
226 If Left$(a$, 1) = "1" Then
227 UserName.Caption = Right$(a$, Len(a$) - 4)
231 If b% = 2 Then RealName.Text = a$
232 If b% = 3 Then Address.Text = a$
233 If b% = 4 Then City.Text = a$
234 If b% = 5 Then TheState.Text = a$
235 If b% = 6 Then ZIP.Text = a$
236 If b% = 7 Then Phone.Text = a$
238 Loop Until a$ = "000"
245 Private Sub save_button_Click()
247 If begin_trans() = True Then
250 If Left$(a$, 1) = "4" Then
251 serv_puts (RealName.Text)
252 serv_puts (Address.Text)
253 serv_puts (City.Text)
254 serv_puts (TheState.Text)
256 serv_puts (Phone.Text)