home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
On Hand
/
On_Hand_From_Softbank_1994_Release_2_Disc_2_1994.iso
/
00202
/
s
/
disk3
/
editsubf.fr_
/
editsubf.bin
Wrap
Text File
|
1993-04-28
|
11KB
|
349 lines
VERSION 2.00
Begin Form EditSubForm
BackColor = &H00FFFFFF&
BorderStyle = 3 'Fixed Double
Caption = "Address Correction Box"
ControlBox = 0 'False
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 18
FontStrikethru = 0 'False
FontUnderline = 0 'False
ForeColor = &H00000000&
Height = 3840
Left = 975
LinkMode = 1 'Source
LinkTopic = "Form1"
ScaleHeight = 3435
ScaleWidth = 7605
Top = 1635
Width = 7725
Begin VBedit BName
BackColor = &H00FFFFFF&
CellHeight = 600
CellWidth = 360
CombBaseLine = 500
CombColor = &H00000000&
CombEndHeight = 120
CombEndMarker = 0 'False
CombHeight = 420
CombStyle = 1 'Box Style
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS Serif"
FontSize = 18
FontStrikethru = 0 'False
FontUnderline = 0 'False
ForeColor = &H00000000&
Height = 615
InflateBottom = 180
InflateLeft = 180
InflateRight = 180
InflateTop = 240
Left = 1080
TabIndex = 0
Top = 240
Version = 268435458
Width = 6375
End
Begin VBedit BAddr
BackColor = &H00FFFFFF&
CellHeight = 600
CellWidth = 360
CombBaseLine = 500
CombColor = &H00000000&
CombEndHeight = 120
CombEndMarker = 0 'False
CombHeight = 420
CombStyle = 1 'Box Style
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS Serif"
FontSize = 18
FontStrikethru = 0 'False
FontUnderline = 0 'False
ForeColor = &H00000000&
Height = 615
InflateBottom = 180
InflateLeft = 180
InflateRight = 180
InflateTop = 240
Left = 1080
TabIndex = 1
Top = 960
Version = 268435458
Width = 6375
End
Begin VBedit BPhone
BackColor = &H00FFFFFF&
CellHeight = 600
CellWidth = 360
CharSet = 16644
CombBaseLine = 500
CombColor = &H00000000&
CombEndHeight = 120
CombEndMarker = 0 'False
CombHeight = 420
CombStyle = 1 'Box Style
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS Serif"
FontSize = 18
FontStrikethru = 0 'False
FontUnderline = 0 'False
ForeColor = &H00000000&
Height = 615
Index = 0
InflateBottom = 180
InflateLeft = 180
InflateRight = 180
InflateTop = 240
Left = 1440
TabIndex = 2
Top = 1740
Version = 268435458
Width = 1215
End
Begin VBedit BPhone
BackColor = &H00FFFFFF&
CellHeight = 600
CellWidth = 360
CharSet = 16644
CombBaseLine = 500
CombColor = &H00000000&
CombEndHeight = 120
CombEndMarker = 0 'False
CombHeight = 420
CombStyle = 1 'Box Style
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS Serif"
FontSize = 18
FontStrikethru = 0 'False
FontUnderline = 0 'False
ForeColor = &H00000000&
Height = 615
Index = 1
InflateBottom = 180
InflateLeft = 180
InflateRight = 180
InflateTop = 240
Left = 2880
TabIndex = 3
Top = 1740
Version = 268435458
Width = 1275
End
Begin VBedit BPhone
BackColor = &H00FFFFFF&
CellHeight = 600
CellWidth = 360
CharSet = 16644
CombBaseLine = 500
CombColor = &H00000000&
CombEndHeight = 120
CombEndMarker = 0 'False
CombHeight = 420
CombStyle = 1 'Box Style
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS Serif"
FontSize = 18
FontStrikethru = 0 'False
FontUnderline = 0 'False
ForeColor = &H00000000&
Height = 555
Index = 2
InflateBottom = 180
InflateLeft = 180
InflateRight = 180
InflateTop = 240
Left = 4320
TabIndex = 4
Top = 1740
Version = 268435458
Width = 1635
End
Begin CommandButton Command2
Caption = "Submit Corrections"
Default = -1 'True
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 9.75
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 615
Left = 1080
TabIndex = 5
Top = 2520
Width = 2415
End
Begin CommandButton Command1
Cancel = -1 'True
Caption = "Cancel"
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 9.75
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 615
Left = 4080
TabIndex = 6
Top = 2520
Width = 2415
End
Begin Label Label1
BackColor = &H00FFFFFF&
Caption = "Name"
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 9.75
FontStrikethru = 0 'False
FontUnderline = 0 'False
ForeColor = &H00000000&
Height = 255
Index = 1
Left = 300
TabIndex = 7
Top = 360
Width = 735
End
Begin Label Label1
BackColor = &H00FFFFFF&
Caption = "Address"
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 9.75
FontStrikethru = 0 'False
FontUnderline = 0 'False
ForeColor = &H00000000&
Height = 255
Index = 2
Left = 120
TabIndex = 8
Top = 1080
Width = 855
End
Begin Label Label1
BackColor = &H00FFFFFF&
Caption = "--"
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 29.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
ForeColor = &H00000000&
Height = 495
Index = 6
Left = 4080
TabIndex = 12
Top = 1680
Width = 315
End
Begin Label Label1
BackColor = &H00FFFFFF&
Caption = "("
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 24
FontStrikethru = 0 'False
FontUnderline = 0 'False
ForeColor = &H00000000&
Height = 645
Index = 4
Left = 1275
TabIndex = 10
Top = 1710
Width = 255
End
Begin Label Label1
BackColor = &H00FFFFFF&
Caption = ")"
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 24
FontStrikethru = 0 'False
FontUnderline = 0 'False
ForeColor = &H00000000&
Height = 615
Index = 5
Left = 2640
TabIndex = 11
Top = 1710
Width = 255
End
Begin Label Label1
BackColor = &H00FFFFFF&
Caption = "Phone"
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 9.75
FontStrikethru = 0 'False
FontUnderline = 0 'False
ForeColor = &H00000000&
Height = 255
Index = 3
Left = 240
TabIndex = 9
Top = 1860
Width = 795
End
Begin Label ElemNum
BackColor = &H00FFFFFF&
BorderStyle = 1 'Fixed Single
Enabled = 0 'False
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 9.75
FontStrikethru = 0 'False
FontUnderline = 0 'False
ForeColor = &H00000000&
Height = 255
Left = 6420
TabIndex = 13
Top = 1920
Visible = 0 'False
Width = 735
End
End
Sub Command1_Click ()
Rem --- Restore Previous Form and Hide
GestFrm.BackColor = &HFFFFFF
For i% = 0 To 8
GestFrm.HEditArr(i%).BackColor = &HFFFFFF
Next i%
GestFrm.Enabled = True
EditSubForm.Hide
End Sub
Sub Command2_Click ()
Rem --- Save Changes of Data
first% = Val(ElemNum.Caption)
GestFrm.HEditArr(first%).Text = BName.Text
GestFrm.HEditArr(first% + 1).Text = BAddr.Text
BPhone(0).Text = BPhone(0).Text + " "
BPhone(1).Text = BPhone(1).Text + " "
BPhone(2).Text = BPhone(2).Text + " "
GestFrm.HEditArr(first% + 2).Text = "(" + Left$(BPhone(0).Text, 3) + ") " + Left$(BPhone(1).Text, 3) + "-" + Left$(BPhone(2).Text, 4)
Rem --- Restore Previous form and Hide
GestFrm.BackColor = &HFFFFFF
For i% = 0 To 8
GestFrm.HEditArr(i%).BackColor = &HFFFFFF
Next i%
GestFrm.Enabled = True
Unload EditSubForm
End Sub