new

More documents

Recommendations

Info

10.OWNER UPDTAE DETAILS Private Sub Combo1_Click() Call CONNECT rs.Open "select * from tbl_owner where flatno = '" + Combo1.Text + "'", cn, adOpenDynamic, adLockPessimistic Text1.Text = rs.Fields("Name") Text2.Text = rs.Fields("Mobile") Text3.Text = rs.Fields("Email") Text4.Text = rs.Fields("Tenents") Text5.Text = rs.Fields("Parking") End Sub Private Sub Command1_Click() Call CONNECT rs.Open "select * from tbl_owner where flatno = '" + Combo1.Text + "'", cn, adOpenDynamic, adLockPessimistic rs.Fields("Name") = Text1.Text rs.Fields("Mobile") = Text2.Text rs.Fields("Email") = Text3.Text rs.Fields("Tenents") = Text4.Text rs.Fields("Parking") = Text5.Text rs.Update MsgBox ("Successfully updated") MDIForm1.Show End Sub Private Sub Command2_Click() Call CONNECT
s.Open "select * from tbl_owner where flatno = '" + Combo1.Text + "'", cn, adOpenDynamic, adLockPessimistic rs.Delete MsgBox ("Succesfully deleted") End Sub Private Sub Form_Load() bindcombo End Sub Public Function bindcombo() Call CONNECT rs.Open "select * from tbl_flat1 where Status = 'booked' ", cn, adOpenDynamic, adLockPessimistic While rs.EOF = False Combo1.AddItem (rs.Fields("Flat_no")) rs.MoveNext Wend End Function
Page 2 and 3: SAINTGITS COLLEGE OF APPLIED SCIENC
Page 4 and 5: TABLE OF CONTENTS. Chapter Title Pa
Page 6 and 7: INTRODUCTION
Page 8 and 9: Each type of users has their own ri
Page 10 and 11: SYSTEM ANALYSIS & REQUIREMENT SPECI
Page 12 and 13: Software requirements. OPERATING SY
Page 14 and 15: SYSTEM DESIGN AND DEVELOPMENT
Page 16 and 17: used for structured analysis. It ha
Page 18 and 19: Figure:3, Level 1 Figure:4, Level 1
Page 20 and 21: Figure:6, Level 1.4 Figure:7, Level
Page 22 and 23: Figure:8, Level 1 Figure:9, Level 1
Page 25 and 26: Figure:11, level 1.3
Page 27 and 28: Table3: tbl_book FIELD NAME DATATYP
Page 29 and 30: Table 7: tbl_main FIELD NAME DATATY
Page 31 and 32: mnubooking.Visible = False mnurent.
Page 33 and 34: End Sub Private Sub mnuupdate_Click
Page 35 and 36: Else MsgBox ("invalid username or p
Page 37 and 38: End Sub Private Sub Check4_Click()
Page 39 and 40: Text2.Text = rs.Fields("flatno") Te
Page 41 and 42: Text8.Text = Val(Text6.Text) - Val(
Page 43 and 44: s.Open "select * from tbl_flat1 whe
Page 45 and 46: Dim tm1 Private Sub Check1_Click()
Page 47: s.Fields("Parking") = t2 If Check5.
Page 51 and 52: CHA PT ER 4. TESTING 4.1 TESTING ME
Page 53 and 54: data and the developed system has r
Page 55 and 56: CHA PT ER 5. IMPLEMENTATION & MAINT
Page 57 and 58: Visual basic is the favorite progra
Page 59 and 60: SQL can delete records from a datab
Page 61 and 62: Figure 14: add owner Figure 15: boo
Page 63 and 64: Figure 17:flat booking
Page 65 and 66: Figure 20:login Figure 21: Maintena
Page 67 and 68: Figure 24: rent view
Page 69 and 70: CHA PT ER 6. CONCLUSION & FUTURE SC

new

You also want an ePaper? Increase the reach of your titles

Delete template?

Save as template?