home *** CD-ROM | disk | FTP | other *** search
- VERSION 5.00
- Begin VB.Form Choice
- Caption = "Choices for a new Client"
- ClientHeight = 2880
- ClientLeft = 60
- ClientTop = 345
- ClientWidth = 3930
- LinkTopic = "Form1"
- ScaleHeight = 2880
- ScaleWidth = 3930
- StartUpPosition = 1 'CenterOwner
- Begin VB.OptionButton Option3
- Caption = "&Individual"
- Height = 255
- Left = 600
- TabIndex = 6
- Top = 1320
- Value = -1 'True
- Width = 2295
- End
- Begin VB.OptionButton Option4
- Caption = "Con&tact of a new Company entry"
- Height = 255
- Left = 600
- TabIndex = 5
- Top = 1680
- Width = 2775
- End
- Begin VB.CommandButton Command2
- Cancel = -1 'True
- Caption = "&Cancel"
- Height = 375
- Left = 2160
- TabIndex = 4
- Top = 2160
- Width = 1095
- End
- Begin VB.CommandButton Command1
- Caption = "&OK"
- Default = -1 'True
- Height = 375
- Left = 600
- TabIndex = 3
- Top = 2160
- Width = 1215
- End
- Begin VB.OptionButton Option2
- Caption = "Co&ntact of the current entry"
- Height = 255
- Left = 600
- TabIndex = 1
- Top = 960
- Width = 2775
- End
- Begin VB.OptionButton Option1
- Caption = "&Company"
- Height = 255
- Left = 600
- TabIndex = 0
- Top = 600
- Width = 2295
- End
- Begin VB.Label Label1
- Caption = "What kind of Record should this be?"
- Height = 255
- Left = 480
- TabIndex = 2
- Top = 120
- Width = 4095
- End
- Attribute VB_Name = "Choice"
- Attribute VB_GlobalNameSpace = False
- Attribute VB_Creatable = False
- Attribute VB_PredeclaredId = True
- Attribute VB_Exposed = False
- '==========================================================================
- ' This code and information is provided "as is" without warranty of any
- ' kind, either expressed or implied, including but not limited to the
- ' implied warranties of merchantability and/or fitness for a particular
- ' purpose..
- ' Copyright (c) 1998 Multiactive Software Inc. All Rights Reserved.
- '==========================================================================
- Private Sub Command1_Click()
- If Option1.Value = True Then
- ClientInsertType = 1 'If Company
- ElseIf Option2.Value = True Then
- ClientInsertType = 2 'If Contact of the current entry
- ElseIf Option3.Value = True Then
- ClientInsertType = 3 'If Individual
- ElseIf Option4.Value = True Then
- ClientInsertType = 4 'If Contact of a new Company entry
- End If
- Unload Me 'Unload the form
- End Sub
- Private Sub Command2_Click()
- ClientInsertType = 0 'User chose cancel therefore didn't pick anything
- Unload Me 'Unload the form
- End Sub
-