home *** CD-ROM | disk | FTP | other *** search
/ Computer Buyer 1998 October / dpcb1098.iso / Business / Maxim / MAX5 / data.z / Choice.frm < prev    next >
Text File  |  1998-05-10  |  3KB  |  108 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. End
  72. Attribute VB_Name = "Choice"
  73. Attribute VB_GlobalNameSpace = False
  74. Attribute VB_Creatable = False
  75. Attribute VB_PredeclaredId = True
  76. Attribute VB_Exposed = False
  77. '==========================================================================
  78. '
  79. '  This code and information is provided "as is" without warranty of any
  80. '  kind, either expressed or implied, including but not limited to the
  81. '  implied warranties of merchantability and/or fitness for a particular
  82. '  purpose..
  83. '
  84. '  Copyright (c) 1998  Multiactive Software Inc.  All Rights Reserved.
  85. '
  86. '==========================================================================
  87.  
  88. Private Sub Command1_Click()
  89.  
  90. If Option1.Value = True Then
  91.     ClientInsertType = 1        'If Company
  92. ElseIf Option2.Value = True Then
  93.     ClientInsertType = 2        'If Contact of the current entry
  94. ElseIf Option3.Value = True Then
  95.     ClientInsertType = 3        'If Individual
  96. ElseIf Option4.Value = True Then
  97.     ClientInsertType = 4        'If Contact of a new Company entry
  98. End If
  99.  
  100. Unload Me 'Unload the form
  101. End Sub
  102.  
  103. Private Sub Command2_Click()
  104. ClientInsertType = 0 'User chose cancel therefore didn't pick anything
  105. Unload Me 'Unload the form
  106. End Sub
  107.  
  108.