Source Code 1994 March

home *** CD-ROM | disk | FTP | other *** search

/ Source Code 1994 March / Source_Code_CD-ROM_Walnut_Creek_March_1994.iso / win3 / programr / vbasic / loanapp.exe / LOANF9.FRM (.txt) < prev next >

Wrap

Visual Basic Form | 1993-07-22 | 13.2 KB | 417 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 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