home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / insure2 / insured.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-05-07  |  21.2 KB  |  671 lines
  1. VERSION 2.00
  2. Begin Form Form1 
  3.    BackColor       =   &H00C0C0C0&
  4.    BorderStyle     =   3  'Fixed Double
  5.    Caption         =   "Application for Life Insurance"
  6.    ClientHeight    =   6315
  7.    ClientLeft      =   1185
  8.    ClientTop       =   1425
  9.    ClientWidth     =   7590
  10.    ControlBox      =   0   'False
  11.    ForeColor       =   &H00000000&
  12.    Height          =   6720
  13.    Left            =   1125
  14.    LinkMode        =   1  'Source
  15.    LinkTopic       =   "Form1"
  16.    MaxButton       =   0   'False
  17.    MinButton       =   0   'False
  18.    ScaleHeight     =   6315
  19.    ScaleWidth      =   7590
  20.    Top             =   1080
  21.    Width           =   7710
  22.    Begin PictureBox Panel3D2 
  23.       BackColor       =   &H00C0C0C0&
  24.       ForeColor       =   &H00000000&
  25.       Height          =   1140
  26.       Left            =   330
  27.       ScaleHeight     =   1110
  28.       ScaleWidth      =   8970
  29.       TabIndex        =   17
  30.       Top             =   5730
  31.       Width           =   9000
  32.       Begin PictureBox Command3D2 
  33.          ForeColor       =   &H00000000&
  34.          Height          =   870
  35.          Left            =   7185
  36.          Picture         =   INSURED.FRX:0000
  37.          ScaleHeight     =   840
  38.          ScaleWidth      =   1545
  39.          TabIndex        =   41
  40.          Top             =   135
  41.          Width           =   1575
  42.       End
  43.       Begin PictureBox Command3D6 
  44.          ForeColor       =   &H00000000&
  45.          Height          =   870
  46.          Left            =   5445
  47.          Picture         =   INSURED.FRX:0302
  48.          ScaleHeight     =   840
  49.          ScaleWidth      =   1545
  50.          TabIndex        =   7
  51.          Top             =   135
  52.          Width           =   1575
  53.       End
  54.       Begin PictureBox Command3D5 
  55.          ForeColor       =   &H00000000&
  56.          Height          =   870
  57.          Left            =   3720
  58.          Picture         =   INSURED.FRX:0604
  59.          ScaleHeight     =   840
  60.          ScaleWidth      =   1545
  61.          TabIndex        =   6
  62.          Top             =   135
  63.          Width           =   1575
  64.       End
  65.       Begin PictureBox Command3D4 
  66.          ForeColor       =   &H00000000&
  67.          Height          =   870
  68.          Left            =   1980
  69.          Picture         =   INSURED.FRX:0906
  70.          ScaleHeight     =   840
  71.          ScaleWidth      =   1545
  72.          TabIndex        =   5
  73.          Top             =   135
  74.          Width           =   1575
  75.       End
  76.       Begin PictureBox Command3D1 
  77.          ForeColor       =   &H00000000&
  78.          Height          =   870
  79.          Left            =   270
  80.          Picture         =   INSURED.FRX:0C08
  81.          ScaleHeight     =   840
  82.          ScaleWidth      =   1545
  83.          TabIndex        =   31
  84.          Top             =   135
  85.          Width           =   1575
  86.       End
  87.    End
  88.    Begin PictureBox Frame3D2 
  89.       ForeColor       =   &H00000000&
  90.       Height          =   1215
  91.       Left            =   360
  92.       ScaleHeight     =   1185
  93.       ScaleWidth      =   8865
  94.       TabIndex        =   0
  95.       Top             =   4485
  96.       Width           =   8895
  97.       Begin ComboBox Combo3 
  98.          BackColor       =   &H00C0C0C0&
  99.          FontBold        =   -1  'True
  100.          FontItalic      =   0   'False
  101.          FontName        =   "MS Sans Serif"
  102.          FontSize        =   13.5
  103.          FontStrikethru  =   0   'False
  104.          FontUnderline   =   0   'False
  105.          Height          =   480
  106.          Left            =   360
  107.          TabIndex        =   28
  108.          Top             =   540
  109.          Width           =   4575
  110.       End
  111.       Begin PictureBox Frame3D3 
  112.          ForeColor       =   &H00000000&
  113.          Height          =   840
  114.          Left            =   5295
  115.          ScaleHeight     =   810
  116.          ScaleWidth      =   3330
  117.          TabIndex        =   8
  118.          Top             =   195
  119.          Width           =   3360
  120.          Begin PictureBox BEdit8 
  121.             BackColor       =   &H00C0C0C0&
  122.             FontBold        =   -1  'True
  123.             FontItalic      =   0   'False
  124.             FontName        =   "MS Sans Serif"
  125.             FontSize        =   18
  126.             FontStrikethru  =   0   'False
  127.             FontUnderline   =   0   'False
  128.             Height          =   495
  129.             Left            =   1695
  130.             ScaleHeight     =   465
  131.             ScaleWidth      =   1305
  132.             TabIndex        =   4
  133.             Top             =   300
  134.             Width           =   1335
  135.          End
  136.          Begin PictureBox BEdit7 
  137.             BackColor       =   &H00C0C0C0&
  138.             FontBold        =   -1  'True
  139.             FontItalic      =   0   'False
  140.             FontName        =   "MS Sans Serif"
  141.             FontSize        =   18
  142.             FontStrikethru  =   0   'False
  143.             FontUnderline   =   0   'False
  144.             Height          =   495
  145.             Left            =   360
  146.             ScaleHeight     =   465
  147.             ScaleWidth      =   1305
  148.             TabIndex        =   3
  149.             Top             =   300
  150.             Width           =   1335
  151.          End
  152.          Begin Label Label12 
  153.             BackColor       =   &H00C0C0C0&
  154.             Caption         =   ","
  155.             FontBold        =   -1  'True
  156.             FontItalic      =   0   'False
  157.             FontName        =   "MS Sans Serif"
  158.             FontSize        =   24
  159.             FontStrikethru  =   0   'False
  160.             FontUnderline   =   0   'False
  161.             Height          =   525
  162.             Left            =   1590
  163.             TabIndex        =   19
  164.             Top             =   270
  165.             Width           =   105
  166.          End
  167.          Begin Label Label11 
  168.             BackColor       =   &H00C0C0C0&
  169.             Caption         =   "$"
  170.             FontBold        =   -1  'True
  171.             FontItalic      =   0   'False
  172.             FontName        =   "MS Sans Serif"
  173.             FontSize        =   18
  174.             FontStrikethru  =   0   'False
  175.             FontUnderline   =   0   'False
  176.             Height          =   375
  177.             Left            =   165
  178.             TabIndex        =   15
  179.             Top             =   315
  180.             Width           =   255
  181.          End
  182.       End
  183.       Begin Label Label7 
  184.          BackColor       =   &H00C0C0C0&
  185.          Caption         =   "a. Type of Policy"
  186.          Height          =   255
  187.          Left            =   360
  188.          TabIndex        =   16
  189.          Top             =   225
  190.          Width           =   2895
  191.       End
  192.    End
  193.    Begin PictureBox Frame3D1 
  194.       ForeColor       =   &H00000000&
  195.       Height          =   3825
  196.       Left            =   360
  197.       ScaleHeight     =   3795
  198.       ScaleWidth      =   8865
  199.       TabIndex        =   9
  200.       Top             =   675
  201.       Width           =   8895
  202.       Begin ComboBox Combo2 
  203.          BackColor       =   &H00C0C0C0&
  204.          FontBold        =   -1  'True
  205.          FontItalic      =   0   'False
  206.          FontName        =   "MS Sans Serif"
  207.          FontSize        =   13.5
  208.          FontStrikethru  =   0   'False
  209.          FontUnderline   =   0   'False
  210.          Height          =   480
  211.          Left            =   5580
  212.          TabIndex        =   21
  213.          Top             =   3180
  214.          Width           =   1035
  215.       End
  216.       Begin ComboBox Combo1 
  217.          BackColor       =   &H00C0C0C0&
  218.          FontBold        =   -1  'True
  219.          FontItalic      =   0   'False
  220.          FontName        =   "MS Sans Serif"
  221.          FontSize        =   13.5
  222.          FontStrikethru  =   0   'False
  223.          FontUnderline   =   0   'False
  224.          Height          =   480
  225.          Left            =   3705
  226.          TabIndex        =   20
  227.          Top             =   3150
  228.          Width           =   1035
  229.       End
  230.       Begin Frame Frame1 
  231.          BackColor       =   &H00C0C0C0&
  232.          Caption         =   "d. Date of Birth"
  233.          Height          =   750
  234.          Left            =   360
  235.          TabIndex        =   22
  236.          Top             =   2940
  237.          Width           =   2805
  238.          Begin PictureBox BEdit3 
  239.             BackColor       =   &H00C0C0C0&
  240.             FontBold        =   -1  'True
  241.             FontItalic      =   0   'False
  242.             FontName        =   "MS Sans Serif"
  243.             FontSize        =   18
  244.             FontStrikethru  =   0   'False
  245.             FontUnderline   =   0   'False
  246.             Height          =   495
  247.             Left            =   1935
  248.             ScaleHeight     =   465
  249.             ScaleWidth      =   750
  250.             TabIndex        =   27
  251.             Top             =   240
  252.             Width           =   780
  253.          End
  254.          Begin PictureBox BEdit2 
  255.             BackColor       =   &H00C0C0C0&
  256.             FontBold        =   -1  'True
  257.             FontItalic      =   0   'False
  258.             FontName        =   "MS Sans Serif"
  259.             FontSize        =   18
  260.             FontStrikethru  =   0   'False
  261.             FontUnderline   =   0   'False
  262.             Height          =   495
  263.             Left            =   1005
  264.             ScaleHeight     =   465
  265.             ScaleWidth      =   750
  266.             TabIndex        =   26
  267.             Top             =   240
  268.             Width           =   780
  269.          End
  270.          Begin PictureBox BEdit5 
  271.             BackColor       =   &H00C0C0C0&
  272.             FontBold        =   -1  'True
  273.             FontItalic      =   0   'False
  274.             FontName        =   "MS Sans Serif"
  275.             FontSize        =   18
  276.             FontStrikethru  =   0   'False
  277.             FontUnderline   =   0   'False
  278.             Height          =   495
  279.             Left            =   60
  280.             ScaleHeight     =   465
  281.             ScaleWidth      =   750
  282.             TabIndex        =   23
  283.             Top             =   240
  284.             Width           =   780
  285.          End
  286.          Begin Label Label8 
  287.             BackColor       =   &H00C0C0C0&
  288.             Caption         =   "/"
  289.             FontBold        =   -1  'True
  290.             FontItalic      =   0   'False
  291.             FontName        =   "MS Sans Serif"
  292.             FontSize        =   24
  293.             FontStrikethru  =   0   'False
  294.             FontUnderline   =   0   'False
  295.             Height          =   480
  296.             Left            =   1800
  297.             TabIndex        =   25
  298.             Top             =   225
  299.             Width           =   180
  300.          End
  301.          Begin Label Label4 
  302.             BackColor       =   &H00C0C0C0&
  303.             Caption         =   "/"
  304.             FontBold        =   -1  'True
  305.             FontItalic      =   0   'False
  306.             FontName        =   "MS Sans Serif"
  307.             FontSize        =   24
  308.             FontStrikethru  =   0   'False
  309.             FontUnderline   =   0   'False
  310.             Height          =   480
  311.             Left            =   855
  312.             TabIndex        =   24
  313.             Top             =   225
  314.             Width           =   180
  315.          End
  316.       End
  317.       Begin PictureBox HEdit2 
  318.          BackColor       =   &H00C0C0C0&
  319.          FontBold        =   -1  'True
  320.          FontItalic      =   0   'False
  321.          FontName        =   "MS Sans Serif"
  322.          FontSize        =   13.5
  323.          FontStrikethru  =   0   'False
  324.          FontUnderline   =   0   'False
  325.          Height          =   735
  326.          Left            =   360
  327.          ScaleHeight     =   705
  328.          ScaleWidth      =   8145
  329.          TabIndex        =   2
  330.          Top             =   2040
  331.          Width           =   8175
  332.       End
  333.       Begin PictureBox Frame3D5 
  334.          ForeColor       =   &H00000000&
  335.          Height          =   555
  336.          Left            =   1635
  337.          ScaleHeight     =   525
  338.          ScaleWidth      =   6855
  339.          TabIndex        =   35
  340.          Top             =   1125
  341.          Width           =   6885
  342.          Begin PictureBox Option3D3 
  343.             ForeColor       =   &H00000000&
  344.             Height          =   255
  345.             Left            =   5550
  346.             ScaleHeight     =   225
  347.             ScaleWidth      =   1050
  348.             TabIndex        =   38
  349.             Top             =   225
  350.             Width           =   1080
  351.          End
  352.          Begin PictureBox Option3D4 
  353.             ForeColor       =   &H00000000&
  354.             Height          =   255
  355.             Left            =   4035
  356.             ScaleHeight     =   225
  357.             ScaleWidth      =   1125
  358.             TabIndex        =   39
  359.             Top             =   225
  360.             Width           =   1155
  361.          End
  362.          Begin PictureBox Option3D7 
  363.             ForeColor       =   &H00000000&
  364.             Height          =   255
  365.             Left            =   2730
  366.             ScaleHeight     =   225
  367.             ScaleWidth      =   1020
  368.             TabIndex        =   40
  369.             Top             =   240
  370.             Width           =   1050
  371.          End
  372.          Begin PictureBox Option3D1 
  373.             ForeColor       =   &H00000000&
  374.             Height          =   255
  375.             Left            =   1455
  376.             ScaleHeight     =   225
  377.             ScaleWidth      =   900
  378.             TabIndex        =   36
  379.             Top             =   255
  380.             Width           =   930
  381.          End
  382.          Begin PictureBox Option3D2 
  383.             ForeColor       =   &H00000000&
  384.             Height          =   255
  385.             Left            =   225
  386.             ScaleHeight     =   225
  387.             ScaleWidth      =   780
  388.             TabIndex        =   37
  389.             Top             =   240
  390.             Width           =   810
  391.          End
  392.       End
  393.       Begin PictureBox Frame3D4 
  394.          ForeColor       =   &H00000000&
  395.          Height          =   555
  396.          Left            =   360
  397.          ScaleHeight     =   525
  398.          ScaleWidth      =   1050
  399.          TabIndex        =   32
  400.          Top             =   1125
  401.          Width           =   1080
  402.          Begin PictureBox Option3D6 
  403.             ForeColor       =   &H00000000&
  404.             Height          =   255
  405.             Left            =   615
  406.             ScaleHeight     =   225
  407.             ScaleWidth      =   360
  408.             TabIndex        =   34
  409.             Top             =   240
  410.             Width           =   390
  411.          End
  412.          Begin PictureBox Option3D5 
  413.             ForeColor       =   &H00000000&
  414.             Height          =   255
  415.             Left            =   150
  416.             ScaleHeight     =   225
  417.             ScaleWidth      =   405
  418.             TabIndex        =   33
  419.             Top             =   240
  420.             Width           =   435
  421.          End
  422.       End
  423.       Begin PictureBox BEdit1 
  424.          BackColor       =   &H00C0C0C0&
  425.          FontBold        =   -1  'True
  426.          FontItalic      =   0   'False
  427.          FontName        =   "MS Sans Serif"
  428.          FontSize        =   18
  429.          FontStrikethru  =   0   'False
  430.          FontUnderline   =   0   'False
  431.          Height          =   495
  432.          Left            =   240
  433.          ScaleHeight     =   465
  434.          ScaleWidth      =   8385
  435.          TabIndex        =   1
  436.          Top             =   480
  437.          Width           =   8415
  438.       End
  439.       Begin Label Label10 
  440.          BackColor       =   &H00C0C0C0&
  441.          Caption         =   "00283-A"
  442.          FontBold        =   -1  'True
  443.          FontItalic      =   0   'False
  444.          FontName        =   "MS Sans Serif"
  445.          FontSize        =   13.5
  446.          FontStrikethru  =   0   'False
  447.          FontUnderline   =   0   'False
  448.          Height          =   345
  449.          Left            =   7200
  450.          TabIndex        =   30
  451.          Top             =   3165
  452.          Width           =   1185
  453.       End
  454.       Begin Label Label9 
  455.          BackColor       =   &H00C0C0C0&
  456.          Caption         =   "Policy Number:"
  457.          Height          =   210
  458.          Left            =   7155
  459.          TabIndex        =   29
  460.          Top             =   2940
  461.          Width           =   1335
  462.       End
  463.       Begin Label Label5 
  464.          BackColor       =   &H00C0C0C0&
  465.          Caption         =   "f. State of Residence"
  466.          Height          =   255
  467.          Left            =   5010
  468.          TabIndex        =   13
  469.          Top             =   2835
  470.          Width           =   1845
  471.       End
  472.       Begin Label Label6 
  473.          BackColor       =   &H00C0C0C0&
  474.          Caption         =   "e. State of Birth"
  475.          Height          =   255
  476.          Left            =   3390
  477.          TabIndex        =   14
  478.          Top             =   2835
  479.          Width           =   1365
  480.       End
  481.       Begin Label Label3 
  482.          BackColor       =   &H00C0C0C0&
  483.          Caption         =   "c. List Current Occupation "
  484.          Height          =   255
  485.          Left            =   360
  486.          TabIndex        =   11
  487.          Top             =   1740
  488.          Width           =   4815
  489.       End
  490.       Begin Label Label1 
  491.          BackColor       =   &H00C0C0C0&
  492.          Caption         =   "a. Name"
  493.          Height          =   255
  494.          Left            =   315
  495.          TabIndex        =   10
  496.          Top             =   285
  497.          Width           =   780
  498.       End
  499.    End
  500.    Begin PictureBox Panel3D1 
  501.       BackColor       =   &H00C0C0C0&
  502.       FontBold        =   -1  'True
  503.       FontItalic      =   0   'False
  504.       FontName        =   "MS Sans Serif"
  505.       FontSize        =   13.5
  506.       FontStrikethru  =   0   'False
  507.       FontUnderline   =   0   'False
  508.       ForeColor       =   &H00000000&
  509.       Height          =   585
  510.       Left            =   360
  511.       ScaleHeight     =   555
  512.       ScaleWidth      =   8880
  513.       TabIndex        =   12
  514.       Top             =   75
  515.       Width           =   8910
  516.       Begin PictureBox Picture1 
  517.          AutoSize        =   -1  'True
  518.          BackColor       =   &H00C0C0C0&
  519.          BorderStyle     =   0  'None
  520.          Height          =   480
  521.          Left            =   7770
  522.          Picture         =   INSURED.FRX:0F0A
  523.          ScaleHeight     =   480
  524.          ScaleWidth      =   480
  525.          TabIndex        =   18
  526.          Top             =   60
  527.          Width           =   480
  528.       End
  529.    End
  530. Sub Command1_Click ()
  531. End Sub
  532. Sub Command3D1_Click ()
  533. form2.Show
  534. form1.Hide
  535. End Sub
  536. Sub Command3D4_Click ()
  537. form3.Show
  538. form1.Hide
  539. End Sub
  540. Sub Command3D5_Click ()
  541. report.Show
  542. form1.Hide
  543. End Sub
  544. Sub fillcombos ()
  545. combo1.AddItem "AL"
  546. combo2.AddItem "AL"
  547. combo1.AddItem "AK"
  548. combo2.AddItem "AK"
  549. combo1.AddItem "AZ"
  550. combo2.AddItem "AZ"
  551. combo1.AddItem "AR"
  552. combo2.AddItem "AR"
  553. combo1.AddItem "CA"
  554. combo2.AddItem "CA"
  555. combo1.AddItem "CO"
  556. combo2.AddItem "CO"
  557. combo1.AddItem "CT"
  558. combo2.AddItem "CT"
  559. combo1.AddItem "DE"
  560. combo2.AddItem "DE"
  561. combo1.AddItem "DC"
  562. combo2.AddItem "DC"
  563. combo1.AddItem "FL"
  564. combo2.AddItem "FL"
  565. combo1.AddItem "GA"
  566. combo2.AddItem "GA"
  567. combo1.AddItem "HI"
  568. combo2.AddItem "HI"
  569. combo1.AddItem "ID"
  570. combo2.AddItem "ID"
  571. combo1.AddItem "IL"
  572. combo2.AddItem "IL"
  573. combo1.AddItem "IN"
  574. combo2.AddItem "IN"
  575. combo1.AddItem "IA"
  576. combo2.AddItem "IA"
  577. combo1.AddItem "KS"
  578. combo2.AddItem "KS"
  579. combo1.AddItem "KY"
  580. combo2.AddItem "KY"
  581. combo1.AddItem "LA"
  582. combo2.AddItem "LA"
  583. combo1.AddItem "ME"
  584. combo2.AddItem "ME"
  585. combo1.AddItem "MD"
  586. combo2.AddItem "MD"
  587. combo1.AddItem "MA"
  588. combo2.AddItem "MA"
  589. combo1.AddItem "MI"
  590. combo2.AddItem "MI"
  591. combo1.AddItem "MN"
  592. combo2.AddItem "MN"
  593. combo1.AddItem "MS"
  594. combo2.AddItem "MS"
  595. combo1.AddItem "MO"
  596. combo2.AddItem "MO"
  597. combo1.AddItem "MT"
  598. combo2.AddItem "MT"
  599. combo1.AddItem "NE"
  600. combo2.AddItem "NE"
  601. combo1.AddItem "NV"
  602. combo2.AddItem "NV"
  603. combo1.AddItem "NH"
  604. combo2.AddItem "NH"
  605. combo1.AddItem "NJ"
  606. combo2.AddItem "NJ"
  607. combo1.AddItem "NM"
  608. combo2.AddItem "NM"
  609. combo1.AddItem "NY"
  610. combo2.AddItem "NY"
  611. combo1.AddItem "NC"
  612. combo2.AddItem "NC"
  613. combo1.AddItem "ND"
  614. combo2.AddItem "ND"
  615. combo1.AddItem "OH"
  616. combo2.AddItem "OH"
  617. combo1.AddItem "OK"
  618. combo2.AddItem "OK"
  619. combo1.AddItem "OR"
  620. combo2.AddItem "OR"
  621. combo1.AddItem "PA"
  622. combo2.AddItem "PA"
  623. combo1.AddItem "RI"
  624. combo2.AddItem "RI"
  625. combo1.AddItem "SC"
  626. combo2.AddItem "SC"
  627. combo1.AddItem "SD"
  628. combo2.AddItem "SD"
  629. combo1.AddItem "TN"
  630. combo2.AddItem "TN"
  631. combo1.AddItem "TX"
  632. combo2.AddItem "TX"
  633. combo1.AddItem "UT"
  634. combo2.AddItem "UT"
  635. combo1.AddItem "VT"
  636. combo2.AddItem "VT"
  637. combo1.AddItem "VA"
  638. combo2.AddItem "VA"
  639. combo1.AddItem "WA"
  640. combo2.AddItem "WA"
  641. combo1.AddItem "WV"
  642. combo2.AddItem "WV"
  643. combo1.AddItem "WI"
  644. combo2.AddItem "WI"
  645. combo1.AddItem "WY"
  646. combo2.AddItem "WY"
  647. combo3.AddItem "Single Indemnity"
  648. combo3.AddItem "Double Indemnity"
  649. combo3.AddItem "Schizophrenia Insurance"
  650. combo3.AddItem "Invasion Insurance"
  651. End Sub
  652. Sub Form_Load ()
  653. form1.WindowState = 2
  654. Call fillcombos
  655. End Sub
  656. Sub Option3D1_Click (value As Integer)
  657. If value = -1 Then status$ = "Married"
  658. End Sub
  659. Sub Option3D2_Click (value As Integer)
  660. If value = -1 Then status$ = "Single"
  661. End Sub
  662. Sub Option3D3_Click (value As Integer)
  663. If value = -1 Then status$ = "Widowed"
  664. End Sub
  665. Sub Option3D4_Click (value As Integer)
  666. If value = -1 Then status$ = "Separated"
  667. End Sub
  668. Sub Option3D7_Click (value As Integer)
  669. If value = -1 Then status$ = "Divorced"
  670. End Sub
  671.