home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 7 / 07.iso / c / c480 / 21.ddi / EDITSUBF.FR_ / EDITSUBF.bin (.txt)
Encoding:
Visual Basic Form  |  1993-02-14  |  11.1 KB  |  344 lines
  1. VERSION 2.00
  2. Begin Form EditSubForm 
  3.    BackColor       =   &H00FFFFFF&
  4.    BorderStyle     =   3  'Fixed Double
  5.    Caption         =   "Address Correction Box"
  6.    ControlBox      =   0   'False
  7.    FontBold        =   -1  'True
  8.    FontItalic      =   0   'False
  9.    FontName        =   "MS Sans Serif"
  10.    FontSize        =   18
  11.    FontStrikethru  =   0   'False
  12.    FontUnderline   =   0   'False
  13.    ForeColor       =   &H00000000&
  14.    Height          =   3840
  15.    Left            =   975
  16.    LinkMode        =   1  'Source
  17.    LinkTopic       =   "Form1"
  18.    ScaleHeight     =   3435
  19.    ScaleWidth      =   7605
  20.    Top             =   1635
  21.    Width           =   7725
  22.    Begin VBedit BName 
  23.       BackColor       =   &H00FFFFFF&
  24.       CellHeight      =   600
  25.       CellWidth       =   360
  26.       CombBaseLine    =   500
  27.       CombColor       =   &H00000000&
  28.       CombEndHeight   =   120
  29.       CombEndMarker   =   0   'False
  30.       CombHeight      =   420
  31.       CombStyle       =   1  'Box Style
  32.       FontBold        =   -1  'True
  33.       FontItalic      =   0   'False
  34.       FontName        =   "MS Serif"
  35.       FontSize        =   18
  36.       FontStrikethru  =   0   'False
  37.       FontUnderline   =   0   'False
  38.       ForeColor       =   &H00000000&
  39.       Height          =   615
  40.       InflateBottom   =   180
  41.       InflateLeft     =   180
  42.       InflateRight    =   180
  43.       InflateTop      =   240
  44.       Left            =   1080
  45.       TabIndex        =   0
  46.       Top             =   240
  47.       Version         =   268435458
  48.       Width           =   6375
  49.    End
  50.    Begin VBedit BAddr 
  51.       BackColor       =   &H00FFFFFF&
  52.       CellHeight      =   600
  53.       CellWidth       =   360
  54.       CombBaseLine    =   500
  55.       CombColor       =   &H00000000&
  56.       CombEndHeight   =   120
  57.       CombEndMarker   =   0   'False
  58.       CombHeight      =   420
  59.       CombStyle       =   1  'Box Style
  60.       FontBold        =   -1  'True
  61.       FontItalic      =   0   'False
  62.       FontName        =   "MS Serif"
  63.       FontSize        =   18
  64.       FontStrikethru  =   0   'False
  65.       FontUnderline   =   0   'False
  66.       ForeColor       =   &H00000000&
  67.       Height          =   615
  68.       InflateBottom   =   180
  69.       InflateLeft     =   180
  70.       InflateRight    =   180
  71.       InflateTop      =   240
  72.       Left            =   1080
  73.       TabIndex        =   1
  74.       Top             =   960
  75.       Version         =   268435458
  76.       Width           =   6375
  77.    End
  78.    Begin VBedit BPhone 
  79.       BackColor       =   &H00FFFFFF&
  80.       CellHeight      =   600
  81.       CellWidth       =   360
  82.       CharSet         =   16644
  83.       CombBaseLine    =   500
  84.       CombColor       =   &H00000000&
  85.       CombEndHeight   =   120
  86.       CombEndMarker   =   0   'False
  87.       CombHeight      =   420
  88.       CombStyle       =   1  'Box Style
  89.       FontBold        =   -1  'True
  90.       FontItalic      =   0   'False
  91.       FontName        =   "MS Serif"
  92.       FontSize        =   18
  93.       FontStrikethru  =   0   'False
  94.       FontUnderline   =   0   'False
  95.       ForeColor       =   &H00000000&
  96.       Height          =   615
  97.       Index           =   0
  98.       InflateBottom   =   180
  99.       InflateLeft     =   180
  100.       InflateRight    =   180
  101.       InflateTop      =   240
  102.       Left            =   1440
  103.       TabIndex        =   2
  104.       Top             =   1740
  105.       Version         =   268435458
  106.       Width           =   1215
  107.    End
  108.    Begin VBedit BPhone 
  109.       BackColor       =   &H00FFFFFF&
  110.       CellHeight      =   600
  111.       CellWidth       =   360
  112.       CharSet         =   16644
  113.       CombBaseLine    =   500
  114.       CombColor       =   &H00000000&
  115.       CombEndHeight   =   120
  116.       CombEndMarker   =   0   'False
  117.       CombHeight      =   420
  118.       CombStyle       =   1  'Box Style
  119.       FontBold        =   -1  'True
  120.       FontItalic      =   0   'False
  121.       FontName        =   "MS Serif"
  122.       FontSize        =   18
  123.       FontStrikethru  =   0   'False
  124.       FontUnderline   =   0   'False
  125.       ForeColor       =   &H00000000&
  126.       Height          =   615
  127.       Index           =   1
  128.       InflateBottom   =   180
  129.       InflateLeft     =   180
  130.       InflateRight    =   180
  131.       InflateTop      =   240
  132.       Left            =   2880
  133.       TabIndex        =   3
  134.       Top             =   1740
  135.       Version         =   268435458
  136.       Width           =   1275
  137.    End
  138.    Begin VBedit BPhone 
  139.       BackColor       =   &H00FFFFFF&
  140.       CellHeight      =   600
  141.       CellWidth       =   360
  142.       CharSet         =   16644
  143.       CombBaseLine    =   500
  144.       CombColor       =   &H00000000&
  145.       CombEndHeight   =   120
  146.       CombEndMarker   =   0   'False
  147.       CombHeight      =   420
  148.       CombStyle       =   1  'Box Style
  149.       FontBold        =   -1  'True
  150.       FontItalic      =   0   'False
  151.       FontName        =   "MS Serif"
  152.       FontSize        =   18
  153.       FontStrikethru  =   0   'False
  154.       FontUnderline   =   0   'False
  155.       ForeColor       =   &H00000000&
  156.       Height          =   555
  157.       Index           =   2
  158.       InflateBottom   =   180
  159.       InflateLeft     =   180
  160.       InflateRight    =   180
  161.       InflateTop      =   240
  162.       Left            =   4320
  163.       TabIndex        =   4
  164.       Top             =   1740
  165.       Version         =   268435458
  166.       Width           =   1635
  167.    End
  168.    Begin CommandButton Command2 
  169.       Caption         =   "Submit Corrections"
  170.       Default         =   -1  'True
  171.       FontBold        =   -1  'True
  172.       FontItalic      =   0   'False
  173.       FontName        =   "MS Sans Serif"
  174.       FontSize        =   9.75
  175.       FontStrikethru  =   0   'False
  176.       FontUnderline   =   0   'False
  177.       Height          =   615
  178.       Left            =   1080
  179.       TabIndex        =   5
  180.       Top             =   2520
  181.       Width           =   2415
  182.    End
  183.    Begin CommandButton Command1 
  184.       Cancel          =   -1  'True
  185.       Caption         =   "Cancel"
  186.       FontBold        =   -1  'True
  187.       FontItalic      =   0   'False
  188.       FontName        =   "MS Sans Serif"
  189.       FontSize        =   9.75
  190.       FontStrikethru  =   0   'False
  191.       FontUnderline   =   0   'False
  192.       Height          =   615
  193.       Left            =   4080
  194.       TabIndex        =   6
  195.       Top             =   2520
  196.       Width           =   2415
  197.    End
  198.    Begin Label Label1 
  199.       BackColor       =   &H00FFFFFF&
  200.       Caption         =   "Name"
  201.       FontBold        =   -1  'True
  202.       FontItalic      =   0   'False
  203.       FontName        =   "MS Sans Serif"
  204.       FontSize        =   9.75
  205.       FontStrikethru  =   0   'False
  206.       FontUnderline   =   0   'False
  207.       ForeColor       =   &H00000000&
  208.       Height          =   255
  209.       Index           =   1
  210.       Left            =   300
  211.       TabIndex        =   7
  212.       Top             =   360
  213.       Width           =   735
  214.    End
  215.    Begin Label Label1 
  216.       BackColor       =   &H00FFFFFF&
  217.       Caption         =   "Address"
  218.       FontBold        =   -1  'True
  219.       FontItalic      =   0   'False
  220.       FontName        =   "MS Sans Serif"
  221.       FontSize        =   9.75
  222.       FontStrikethru  =   0   'False
  223.       FontUnderline   =   0   'False
  224.       ForeColor       =   &H00000000&
  225.       Height          =   255
  226.       Index           =   2
  227.       Left            =   120
  228.       TabIndex        =   8
  229.       Top             =   1080
  230.       Width           =   855
  231.    End
  232.    Begin Label Label1 
  233.       BackColor       =   &H00FFFFFF&
  234.       Caption         =   "--"
  235.       FontBold        =   -1  'True
  236.       FontItalic      =   0   'False
  237.       FontName        =   "MS Sans Serif"
  238.       FontSize        =   29.25
  239.       FontStrikethru  =   0   'False
  240.       FontUnderline   =   0   'False
  241.       ForeColor       =   &H00000000&
  242.       Height          =   495
  243.       Index           =   6
  244.       Left            =   4080
  245.       TabIndex        =   12
  246.       Top             =   1680
  247.       Width           =   315
  248.    End
  249.    Begin Label Label1 
  250.       BackColor       =   &H00FFFFFF&
  251.       Caption         =   "("
  252.       FontBold        =   -1  'True
  253.       FontItalic      =   0   'False
  254.       FontName        =   "MS Sans Serif"
  255.       FontSize        =   24
  256.       FontStrikethru  =   0   'False
  257.       FontUnderline   =   0   'False
  258.       ForeColor       =   &H00000000&
  259.       Height          =   645
  260.       Index           =   4
  261.       Left            =   1275
  262.       TabIndex        =   10
  263.       Top             =   1710
  264.       Width           =   255
  265.    End
  266.    Begin Label Label1 
  267.       BackColor       =   &H00FFFFFF&
  268.       Caption         =   ")"
  269.       FontBold        =   -1  'True
  270.       FontItalic      =   0   'False
  271.       FontName        =   "MS Sans Serif"
  272.       FontSize        =   24
  273.       FontStrikethru  =   0   'False
  274.       FontUnderline   =   0   'False
  275.       ForeColor       =   &H00000000&
  276.       Height          =   615
  277.       Index           =   5
  278.       Left            =   2640
  279.       TabIndex        =   11
  280.       Top             =   1710
  281.       Width           =   255
  282.    End
  283.    Begin Label Label1 
  284.       BackColor       =   &H00FFFFFF&
  285.       Caption         =   "Phone"
  286.       FontBold        =   -1  'True
  287.       FontItalic      =   0   'False
  288.       FontName        =   "MS Sans Serif"
  289.       FontSize        =   9.75
  290.       FontStrikethru  =   0   'False
  291.       FontUnderline   =   0   'False
  292.       ForeColor       =   &H00000000&
  293.       Height          =   255
  294.       Index           =   3
  295.       Left            =   240
  296.       TabIndex        =   9
  297.       Top             =   1860
  298.       Width           =   795
  299.    End
  300.    Begin Label ElemNum 
  301.       BackColor       =   &H00FFFFFF&
  302.       BorderStyle     =   1  'Fixed Single
  303.       Enabled         =   0   'False
  304.       FontBold        =   -1  'True
  305.       FontItalic      =   0   'False
  306.       FontName        =   "MS Sans Serif"
  307.       FontSize        =   9.75
  308.       FontStrikethru  =   0   'False
  309.       FontUnderline   =   0   'False
  310.       ForeColor       =   &H00000000&
  311.       Height          =   255
  312.       Left            =   6420
  313.       TabIndex        =   13
  314.       Top             =   1920
  315.       Visible         =   0   'False
  316.       Width           =   735
  317.    End
  318. Sub Command1_Click ()
  319.     Rem --- Restore Previous Form and Hide
  320.     GestFrm.BackColor = &HFFFFFF
  321.     For i% = 0 To 8
  322.         GestFrm.HEditArr(i%).BackColor = &HFFFFFF
  323.     Next i%
  324.     GestFrm.Enabled = True
  325.     EditSubForm.Hide
  326. End Sub
  327. Sub Command2_Click ()
  328.     Rem --- Save Changes of Data
  329.     first% = Val(ElemNum.Caption)
  330.     GestFrm.HEditArr(first%).Text = BName.Text
  331.     GestFrm.HEditArr(first% + 1).Text = BAddr.Text
  332.     BPhone(0).Text = BPhone(0).Text + "   "
  333.     BPhone(1).Text = BPhone(1).Text + "   "
  334.     BPhone(2).Text = BPhone(2).Text + "   "
  335.     GestFrm.HEditArr(first% + 2).Text = "(" + Left$(BPhone(0).Text, 3) + ") " + Left$(BPhone(1).Text, 3) + "-" + Left$(BPhone(2).Text, 4)
  336.     Rem --- Restore Previous form and Hide
  337.     GestFrm.BackColor = &HFFFFFF
  338.     For i% = 0 To 8
  339.         GestFrm.HEditArr(i%).BackColor = &HFFFFFF
  340.     Next i%
  341.     GestFrm.Enabled = True
  342.     Unload EditSubForm
  343. End Sub
  344.