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 / LOANF8.FRM (.txt) < prev next >

Wrap

Visual Basic Form | 1993-07-22 | 13.2 KB | 419 lines

VERSION 2.00 Begin Form Form8 BackColor = &H00808080& ClientHeight = 4620 ClientLeft = 375 ClientTop = 1590 ClientWidth = 8880 ControlBox = 0 'False Height = 5025 Left = 315 LinkMode = 1 'Source LinkTopic = "Form8" MaxButton = 0 'False MinButton = 0 'False ScaleHeight = 4620 ScaleWidth = 8880 Top = 1245 Width = 9000 Begin CommandButton Command2 Caption = "Cancel" Height = 300 Left = 4995 TabIndex = 24 Top = 4110 Width = 3000 End Begin CommandButton Command1 Caption = "Ok" Height = 300 Left = 885 TabIndex = 23 Top = 4110 Width = 2940 End Begin PictureBox Picture7 Height = 900 Left = 45 ScaleHeight = 870 ScaleWidth = 8730 TabIndex = 6 Top = 2985 Width = 8760 Begin VBedit BEditF8 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 = 2475 TabIndex = 22 Top = 330 Version = 268435458 Width = 6195 End Begin VBedit BEditF8 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 Co-Borrower):" Height = 225 Left = 45 TabIndex = 13 Top = 45 Width = 3480 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 = 240 Index = 3 Left = 1560 TabIndex = 27 Top = 585 Width = 1215 End Begin CheckBox Check1 Caption = "Married" Height = 240 Index = 2 Left = 1560 TabIndex = 26 Top = 315 Width = 975 End Begin CheckBox Check1 Caption = "Single" Height = 240 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 BEditF8 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 = 45 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 BEditF8 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 = 405 TabIndex = 20 Top = 315 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 BEditF8 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 = "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 BEditF8 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 BEditF8 CellHeight = 480 CellWidth = 360 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 = "Borrower's Name (include Jr. or Sr. if applicable):" Height = 225 Left = 45 TabIndex = 7 Top = 45 Width = 4230 End End Sub Check1_Click (Index As Integer) If Form8.Visible = True Then If Form8.Check1(Index).Value = 1 Then For i = 1 To 3 If i <> Index Then Form8.Check1(i).Value = 0 End If Next i End If End If End Sub Sub Command1_Click () MainRec.G.G1 = Form8.BEditF8(1).Text MainRec.G.G2 = Form8.BEditF8(2).Text MainRec.G.G3 = Form8.BEditF8(3).Text MainRec.G.G4 = Form8.BEditF8(4).Text MainRec.G.G5 = Form8.BEditF8(5).Text MainRec.G.G6 = Form8.BEditF8(6).Text MainRec.G.G7 = Form8.BEditF8(7).Text For i = 1 To 3 If Form8.Check1(i).Value = 1 Then MainRec.G.GC1 = i MainRec.G.G8 = Form8.Check1(i).Caption Exit For Else MainRec.G.GC1 = 0 MainRec.G.G8 = "" End If Next i UpdateLabelG Form8.Hide End Sub Sub Command2_Click () Form8.Hide End Sub Sub Form_Load () Form8.Left = 300 Form8.Top = (Screen.Height - Form8.Height) / 2 End Sub