home *** CD-ROM | disk | FTP | other *** search
/ Computer Buyer 1998 October / dpcb1098.iso / Business / Maxim / MAX5 / data.z / Choice.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1998-05-10  |  3.3 KB  |  99 lines

  1. VERSION 5.00
  2. Begin VB.Form Choice 
  3.    Caption         =   "Choices for a new Client"
  4.    ClientHeight    =   2880
  5.    ClientLeft      =   60
  6.    ClientTop       =   345
  7.    ClientWidth     =   3930
  8.    LinkTopic       =   "Form1"
  9.    ScaleHeight     =   2880
  10.    ScaleWidth      =   3930
  11.    StartUpPosition =   1  'CenterOwner
  12.    Begin VB.OptionButton Option3 
  13.       Caption         =   "&Individual"
  14.       Height          =   255
  15.       Left            =   600
  16.       TabIndex        =   6
  17.       Top             =   1320
  18.       Value           =   -1  'True
  19.       Width           =   2295
  20.    End
  21.    Begin VB.OptionButton Option4 
  22.       Caption         =   "Con&tact of a new Company entry"
  23.       Height          =   255
  24.       Left            =   600
  25.       TabIndex        =   5
  26.       Top             =   1680
  27.       Width           =   2775
  28.    End
  29.    Begin VB.CommandButton Command2 
  30.       Cancel          =   -1  'True
  31.       Caption         =   "&Cancel"
  32.       Height          =   375
  33.       Left            =   2160
  34.       TabIndex        =   4
  35.       Top             =   2160
  36.       Width           =   1095
  37.    End
  38.    Begin VB.CommandButton Command1 
  39.       Caption         =   "&OK"
  40.       Default         =   -1  'True
  41.       Height          =   375
  42.       Left            =   600
  43.       TabIndex        =   3
  44.       Top             =   2160
  45.       Width           =   1215
  46.    End
  47.    Begin VB.OptionButton Option2 
  48.       Caption         =   "Co&ntact of the current entry"
  49.       Height          =   255
  50.       Left            =   600
  51.       TabIndex        =   1
  52.       Top             =   960
  53.       Width           =   2775
  54.    End
  55.    Begin VB.OptionButton Option1 
  56.       Caption         =   "&Company"
  57.       Height          =   255
  58.       Left            =   600
  59.       TabIndex        =   0
  60.       Top             =   600
  61.       Width           =   2295
  62.    End
  63.    Begin VB.Label Label1 
  64.       Caption         =   "What kind of Record should this be?"
  65.       Height          =   255
  66.       Left            =   480
  67.       TabIndex        =   2
  68.       Top             =   120
  69.       Width           =   4095
  70.    End
  71. Attribute VB_Name = "Choice"
  72. Attribute VB_GlobalNameSpace = False
  73. Attribute VB_Creatable = False
  74. Attribute VB_PredeclaredId = True
  75. Attribute VB_Exposed = False
  76. '==========================================================================
  77. '  This code and information is provided "as is" without warranty of any
  78. '  kind, either expressed or implied, including but not limited to the
  79. '  implied warranties of merchantability and/or fitness for a particular
  80. '  purpose..
  81. '  Copyright (c) 1998  Multiactive Software Inc.  All Rights Reserved.
  82. '==========================================================================
  83. Private Sub Command1_Click()
  84. If Option1.Value = True Then
  85.     ClientInsertType = 1        'If Company
  86. ElseIf Option2.Value = True Then
  87.     ClientInsertType = 2        'If Contact of the current entry
  88. ElseIf Option3.Value = True Then
  89.     ClientInsertType = 3        'If Individual
  90. ElseIf Option4.Value = True Then
  91.     ClientInsertType = 4        'If Contact of a new Company entry
  92. End If
  93. Unload Me 'Unload the form
  94. End Sub
  95. Private Sub Command2_Click()
  96. ClientInsertType = 0 'User chose cancel therefore didn't pick anything
  97. Unload Me 'Unload the form
  98. End Sub
  99.