new

More documents

Recommendations

Info

s.Fields("Total_amount") = Text9.Text rs.Fields("Advance") = Text10.Text rs.Fields("Balance_amt") = Text11.Text If Check1.Value = 1 Then s = "By cash" ElseIf Check2.Value = 1 Then s = "By cheque" End If rs.Fields("Transaction_mode") = s rs.Fields("Book_date") = Date rs.Fields("Status") = "Booked" rs.Update MsgBox ("Successfully booked") rs.Close End Sub Private Sub Text10_Change() Text11.Text = Val(Text9.Text) - Val(Text10.Text) End Sub 6.BOOKING UPDATE DETAILS Private Sub Combo1_Click() Call CONNECT rs.Open "select * from tbl_book where Name = '" + Combo1.Text + "'", cn, adOpenDynamic, adLockPessimistic Text1.Text = rs.Fields("Book_date")
Text2.Text = rs.Fields("flatno") Text5.Text = rs.Fields("Total_residents") Text6.Text = rs.Fields("Total_amount") Text7.Text = rs.Fields("Advance") Text8.Text = rs.Fields("Balance_amt") rs.Update End Sub Private Sub Command1_Click() Call CONNECT rs.Open "select * from tbl_book where Name = '" + Combo1.Text + "'", cn, adOpenDynamic, adLockPessimistic rs.Fields("Book_date") = Text1.Text rs.Fields("flatno") = Text2.Text rs.Fields("Total_residents") = Text5.Text rs.Fields("Total_amount") = Text6.Text rs.Fields("Advance") = Text7.Text rs.Fields("Balance_amt") = Text8.Text rs.Update MsgBox ("Successfully updated") End Sub Public Function bindcombo() Call CONNECT rs.Open "select * from tbl_book", cn, adOpenDynamic, adLockPessimistic While rs.EOF = False Combo1.AddItem (rs.Fields("Name")) 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: End Sub Private Sub Check4_Click()
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 and 48: s.Fields("Parking") = t2 If Check5.
Page 49 and 50: s.Open "select * from tbl_owner whe
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

Create successful ePaper yourself

Delete template?

Save as template?