wincit/regis.frm

   1 VERSION 4.00
   2 Begin VB.Form Registration
   3    Appearance      =   0  'Flat
   4    BackColor       =   &H00C0C0C0&
   5    BorderStyle     =   3  'Fixed Dialog
   6    Caption         =   "Registration"
   7    ClientHeight    =   3660
   8    ClientLeft      =   2820
   9    ClientTop       =   3105
  10    ClientWidth     =   6420
  11    ClipControls    =   0   'False
  12    ControlBox      =   0   'False
  13    BeginProperty Font
  14       name            =   "MS Sans Serif"
  15       charset         =   0
  16       weight          =   700
  17       size            =   8.25
  18       underline       =   0   'False
  19       italic          =   0   'False
  20       strikethrough   =   0   'False
  21    EndProperty
  22    ForeColor       =   &H80000008&
  23    Height          =   4065
  24    Left            =   2760
  25    LinkTopic       =   "Form1"
  26    MaxButton       =   0   'False
  27    MDIChild        =   -1  'True
  28    MinButton       =   0   'False
  29    ScaleHeight     =   3660
  30    ScaleWidth      =   6420
  31    Top             =   2760
  32    Width           =   6540
  33    Begin VB.CommandButton cancel_button
  34       Appearance      =   0  'Flat
  35       BackColor       =   &H80000005&
  36       Caption         =   "&Cancel"
  37       Height          =   492
  38       Left            =   5160
  39       TabIndex        =   10
  40       Top             =   3120
  41       Width           =   1212
  42    End
  43    Begin VB.CommandButton save_button
  44       Appearance      =   0  'Flat
  45       BackColor       =   &H80000005&
  46       Caption         =   "&Save"
  47       Height          =   492
  48       Left            =   3840
  49       TabIndex        =   14
  50       Top             =   3120
  51       Width           =   1212
  52    End
  53    Begin VB.TextBox Phone
  54       Appearance      =   0  'Flat
  55       BackColor       =   &H00C0C0C0&
  56       Height          =   288
  57       Left            =   1560
  58       TabIndex        =   12
  59       Top             =   2520
  60       Width           =   1692
  61    End
  62    Begin VB.TextBox ZIP
  63       Appearance      =   0  'Flat
  64       BackColor       =   &H00C0C0C0&
  65       Height          =   288
  66       Left            =   1560
  67       TabIndex        =   7
  68       Top             =   2160
  69       Width           =   1212
  70    End
  71    Begin VB.TextBox TheState
  72       Appearance      =   0  'Flat
  73       BackColor       =   &H00C0C0C0&
  74       Height          =   288
  75       Left            =   1560
  76       TabIndex        =   6
  77       Top             =   1800
  78       Width           =   612
  79    End
  80    Begin VB.TextBox City
  81       Appearance      =   0  'Flat
  82       BackColor       =   &H00C0C0C0&
  83       Height          =   288
  84       Left            =   1560
  85       TabIndex        =   5
  86       Top             =   1440
  87       Width           =   2772
  88    End
  89    Begin VB.TextBox Address
  90       Appearance      =   0  'Flat
  91       BackColor       =   &H00C0C0C0&
  92       Height          =   288
  93       Left            =   1560
  94       TabIndex        =   4
  95       Top             =   1080
  96       Width           =   4692
  97    End
  98    Begin VB.TextBox RealName
  99       Appearance      =   0  'Flat
 100       BackColor       =   &H00C0C0C0&
 101       Height          =   288
 102       Left            =   1560
 103       TabIndex        =   0
 104       Top             =   720
 105       Width           =   4692
 106    End
 107    Begin VB.Label UserName
 108       Alignment       =   2  'Center
 109       Appearance      =   0  'Flat
 110       BackColor       =   &H00FFFFFF&
 111       BackStyle       =   0  'Transparent
 112       BeginProperty Font
 113          name            =   "MS Sans Serif"
 114          charset         =   0
 115          weight          =   700
 116          size            =   18
 117          underline       =   0   'False
 118          italic          =   0   'False
 119          strikethrough   =   0   'False
 120       EndProperty
 121       ForeColor       =   &H80000008&
 122       Height          =   492
 123       Left            =   120
 124       TabIndex        =   13
 125       Top             =   120
 126       Width           =   6252
 127    End
 128    Begin VB.Label Label6
 129       Alignment       =   1  'Right Justify
 130       Appearance      =   0  'Flat
 131       BackColor       =   &H80000005&
 132       BackStyle       =   0  'Transparent
 133       Caption         =   "Telephone:"
 134       ForeColor       =   &H80000008&
 135       Height          =   252
 136       Left            =   0
 137       TabIndex        =   11
 138       Top             =   2520
 139       Width           =   1452
 140    End
 141    Begin VB.Label Label5
 142       Alignment       =   1  'Right Justify
 143       Appearance      =   0  'Flat
 144       BackColor       =   &H80000005&
 145       BackStyle       =   0  'Transparent
 146       Caption         =   "State/Province:"
 147       ForeColor       =   &H80000008&
 148       Height          =   252
 149       Left            =   0
 150       TabIndex        =   9
 151       Top             =   1800
 152       Width           =   1452
 153    End
 154    Begin VB.Label Label4
 155       Alignment       =   1  'Right Justify
 156       Appearance      =   0  'Flat
 157       BackColor       =   &H80000005&
 158       BackStyle       =   0  'Transparent
 159       Caption         =   "ZIP Code:"
 160       ForeColor       =   &H80000008&
 161       Height          =   252
 162       Left            =   0
 163       TabIndex        =   8
 164       Top             =   2160
 165       Width           =   1452
 166    End
 167    Begin VB.Label Label3
 168       Alignment       =   1  'Right Justify
 169       Appearance      =   0  'Flat
 170       BackColor       =   &H80000005&
 171       BackStyle       =   0  'Transparent
 172       Caption         =   "City/Town:"
 173       ForeColor       =   &H80000008&
 174       Height          =   252
 175       Left            =   0
 176       TabIndex        =   3
 177       Top             =   1440
 178       Width           =   1452
 179    End
 180    Begin VB.Label Label2
 181       Alignment       =   1  'Right Justify
 182       Appearance      =   0  'Flat
 183       BackColor       =   &H80000005&
 184       BackStyle       =   0  'Transparent
 185       Caption         =   "Address:"
 186       ForeColor       =   &H80000008&
 187       Height          =   252
 188       Left            =   0
 189       TabIndex        =   2
 190       Top             =   1080
 191       Width           =   1452
 192    End
 193    Begin VB.Label Label1
 194       Alignment       =   1  'Right Justify
 195       Appearance      =   0  'Flat
 196       BackColor       =   &H00FFFFFF&
 197       BackStyle       =   0  'Transparent
 198       Caption         =   "Real name:"
 199       ForeColor       =   &H80000008&
 200       Height          =   252
 201       Left            =   0
 202       TabIndex        =   1
 203       Top             =   720
 204       Width           =   1452
 205    End
 206 End
 207 Attribute VB_Name = "Registration"
 208 Attribute VB_Creatable = False
 209 Attribute VB_Exposed = False
 210
 211 Private Sub cancel_button_Click()
 212     Unload Registration
 213     Load RoomPrompt
 214 End Sub
 215
 216 Private Sub Form_Load()
 217     Show
 218     Registration.WindowState = 0
 219     Registration.Top = Int((MainWin.Height - Registration.Height) / 3)
 220     Registration.Left = Int((MainWin.Width - Registration.Width) / 2)
 221     DoEvents
 222
 223     If begin_trans() = True Then
 224         serv_puts ("GREG _SELF_")
 225         a$ = serv_gets()
 226         If Left$(a$, 1) = "1" Then
 227             UserName.Caption = Right$(a$, Len(a$) - 4)
 228             b% = 0
 229             Do
 230                 a$ = serv_gets()
 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$
 237                 b% = b% + 1
 238                 Loop Until a$ = "000"
 239             End If
 240         Call end_trans
 241         End If
 242
 243 End Sub
 244
 245 Private Sub save_button_Click()
 246
 247     If begin_trans() = True Then
 248         serv_puts ("REGI")
 249         a$ = serv_gets()
 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)
 255             serv_puts (ZIP.Text)
 256             serv_puts (Phone.Text)
 257             serv_puts ("000")
 258             End If
 259         Call end_trans
 260         need_regis% = 0
 261         Unload Registration
 262         Load RoomPrompt
 263         End If
 264
 265 End Sub
 266