home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
DP Tool Club 8
/
CDASC08.ISO
/
VRAC
/
LOANAPP.ZIP
/
LOANF9.FRM
< prev
next >
Wrap
Text File
|
1993-07-22
|
13KB
|
422 lines
VERSION 2.00
Begin Form Form9
BackColor = &H00808080&
ClientHeight = 4620
ClientLeft = 405
ClientTop = 1575
ClientWidth = 8880
ControlBox = 0 'False
Height = 5025
Left = 345
LinkMode = 1 'Source
LinkTopic = "Form8"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 4620
ScaleWidth = 8880
Top = 1230
Width = 9000
Begin CommandButton Command2
Caption = "Cancel"
Height = 300
Left = 4995
TabIndex = 24
Top = 4110
Width = 3000
End
Begin CommandButton Command1
Caption = "Ok"
Height = 315
Left = 885
TabIndex = 23
Top = 4110
Width = 3000
End
Begin PictureBox Picture7
Height = 900
Left = 45
ScaleHeight = 870
ScaleWidth = 8730
TabIndex = 6
Top = 2985
Width = 8760
Begin VBedit BEditF9
CellHeight = 480
CellWidth = 360
CharSet = 16652
CombBaseLine = 390
CombEndHeight = 120
CombEndMarker = 0 'False
CombHeight = 60
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 9.75
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 495
Index = 7
InflateBottom = 180
InflateLeft = 180
InflateRight = 180
InflateTop = 240
Left = 2490
TabIndex = 22
Top = 330
Version = 268435458
Width = 6195
End
Begin VBedit BEditF9
CellHeight = 480
CellWidth = 360
CharSet = 16652
CombBaseLine = 390
CombEndHeight = 120
CombEndMarker = 0 'False
CombHeight = 60
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 9.75
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 495
Index = 6
InflateBottom = 180
InflateLeft = 180
InflateRight = 180
InflateTop = 240
Left = 810
TabIndex = 21
Top = 330
Version = 268435458
Width = 960
End
Begin Label Label10
Caption = "Ages:"
Height = 240
Left = 1920
TabIndex = 15
Top = 525
Width = 555
End
Begin Label Label9
Caption = "Number:"
Height = 225
Left = 45
TabIndex = 14
Top = 525
Width = 750
End
Begin Label Label7
Caption = "Dependents (not listed by Borrower):"
Height = 225
Left = 45
TabIndex = 13
Top = 45
Width = 3165
End
End
Begin PictureBox Picture6
Height = 900
Left = 5760
ScaleHeight = 870
ScaleWidth = 3030
TabIndex = 5
Top = 2010
Width = 3060
Begin CheckBox Check1
Caption = "Separated"
Height = 225
Index = 3
Left = 1560
TabIndex = 27
Top = 585
Width = 1185
End
Begin CheckBox Check1
Caption = "Married"
Height = 225
Index = 2
Left = 1560
TabIndex = 26
Top = 315
Width = 990
End
Begin CheckBox Check1
Caption = "Single"
Height = 225
Index = 1
Left = 1560
TabIndex = 25
Top = 45
Width = 900
End
Begin Label Label6
Caption = "Marital Status:"
Height = 210
Left = 135
TabIndex = 12
Top = 330
Width = 1305
End
End
Begin PictureBox Picture3
Height = 900
Left = 45
ScaleHeight = 870
ScaleWidth = 5370
TabIndex = 2
Top = 2010
Width = 5400
Begin VBedit BEditF9
CellHeight = 480
CellWidth = 360
CharSet = 16652
CombBaseLine = 390
CombEndHeight = 120
CombEndMarker = 0 'False
CombHeight = 60
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 9.75
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 495
Index = 3
InflateBottom = 180
InflateLeft = 180
InflateRight = 180
InflateTop = 240
Left = 75
TabIndex = 18
Top = 330
Version = 268435458
Width = 5280
End
Begin Label Label3
Caption = "Home Phone Number (area code):"
Height = 225
Left = 45
TabIndex = 9
Top = 45
Width = 2940
End
End
Begin PictureBox Picture5
Height = 900
Left = 6945
ScaleHeight = 870
ScaleWidth = 1830
TabIndex = 4
Top = 1035
Width = 1860
Begin VBedit BEditF9
CellHeight = 480
CellWidth = 360
CharSet = 16652
CombBaseLine = 390
CombEndHeight = 120
CombEndMarker = 0 'False
CombHeight = 60
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 9.75
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 495
Index = 5
InflateBottom = 180
InflateLeft = 180
InflateRight = 180
InflateTop = 240
Left = 420
TabIndex = 20
Top = 330
Version = 268435458
Width = 975
End
Begin Label Label5
Alignment = 2 'Center
Caption = "Years in School:"
Height = 225
Left = 45
TabIndex = 11
Top = 45
Width = 1740
End
End
Begin PictureBox Picture4
Height = 900
Left = 4755
ScaleHeight = 870
ScaleWidth = 1830
TabIndex = 3
Top = 1035
Width = 1860
Begin VBedit BEditF9
CellHeight = 480
CellWidth = 360
CharSet = 16652
CombBaseLine = 390
CombEndHeight = 120
CombEndMarker = 0 'False
CombHeight = 60
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 9.75
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 510
Index = 4
InflateBottom = 180
InflateLeft = 180
InflateRight = 180
InflateTop = 240
Left = 210
TabIndex = 19
Top = 315
Version = 268435458
Width = 1425
End
Begin Label Label4
Alignment = 2 'Center
Caption = "Co-Borrower's Age:"
Height = 210
Left = 45
TabIndex = 10
Top = 45
Width = 1740
End
End
Begin PictureBox Picture2
Height = 900
Left = 45
ScaleHeight = 870
ScaleWidth = 4380
TabIndex = 1
Top = 1035
Width = 4410
Begin VBedit BEditF9
CellHeight = 480
CellWidth = 360
CharSet = 16652
CombBaseLine = 390
CombEndHeight = 120
CombEndMarker = 0 'False
CombHeight = 60
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 9.75
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 495
Index = 2
InflateBottom = 180
InflateLeft = 180
InflateRight = 180
InflateTop = 240
Left = 45
TabIndex = 17
Top = 330
Version = 268435458
Width = 4290
End
Begin Label Label2
Caption = "Social Security Number:"
Height = 225
Left = 45
TabIndex = 8
Top = 45
Width = 2115
End
End
Begin PictureBox Picture1
Height = 900
Left = 45
ScaleHeight = 870
ScaleWidth = 8760
TabIndex = 0
Top = 60
Width = 8790
Begin VBedit BEditF9
CellHeight = 480
CellWidth = 360
CharSet = 16651
CombBaseLine = 390
CombEndHeight = 120
CombEndMarker = 0 'False
CombHeight = 60
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 9.75
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 495
Index = 1
InflateBottom = 180
InflateLeft = 180
InflateRight = 180
InflateTop = 240
Left = 45
TabIndex = 16
Top = 330
Version = 268435458
Width = 8670
End
Begin Label Label1
Caption = "Co-Borrower's Name (include Jr. or Sr. if applicable):"
Height = 225
Left = 45
TabIndex = 7
Top = 45
Width = 4515
End
End
End
Sub Check1_Click (Index As Integer)
If Form9.Visible = True Then
If Form9.Check1(Index).Value = 1 Then
For i = 1 To 3
If i <> Index Then
Form9.Check1(i).Value = 0
End If
Next i
End If
End If
End Sub
Sub Command1_Click ()
MainRec.H.H1 = Form9.BEditF9(1).Text
MainRec.H.H2 = Form9.BEditF9(2).Text
MainRec.H.H3 = Form9.BEditF9(3).Text
MainRec.H.H4 = Form9.BEditF9(4).Text
MainRec.H.H5 = Form9.BEditF9(5).Text
MainRec.H.H6 = Form9.BEditF9(6).Text
MainRec.H.H7 = Form9.BEditF9(7).Text
For i = 1 To 3
If Form9.Check1(i).Value = 1 Then
MainRec.H.HC1 = i
MainRec.H.H8 = Form9.Check1(i).Caption
Exit For
Else
MainRec.H.HC1 = 0
MainRec.H.H8 = ""
End If
Next i
UpdateLabelH
Form9.Hide
End Sub
Sub Form_Load ()
Form9.Left = 300
Form9.Top = (Screen.Height - Form9.Height) / 2
End Sub