Hotel Reservation System (VB.NET)

Submitted by: 
Visitors have accessed this post 524072 times.

Welcome back to the updated version of Hotel Reservation System (VB.NET). I have an important update that includes all report that can be seen in VB 6.0 version. I have also fix some minor bugs.
To access VB 6.0 version please click Hotel Reservation System.
The features are the same as the version 1.0 but only upgraded to Visual Basic.NET 2008. You will learn in this program's source code the technique I have used to connect to the database.
Basic features:

  1. Guest reservation
  2. Billing System
  3. Change room
  4. Multiple account per room
  5. Guest report
  6. Other charges

This program (executable and source code) is release under the GNU License to protect the future development of this application.
This will still remain free so everybody may benefit from this program.
If you find this program or source code usefull please don't forget to donate. Your contribution is very much appreciated for the future development of this program.
Account Info:
Username: admin Password: admin
For the database password please read What is the database password.


Note: Due to the size or complexity of this submission, the author has submitted it as a .zip file to shorten your download time. After downloading it, you will need a program like Winzip to decompress it.

Virus note: All files are scanned once-a-day by SourceCodester.com for viruses, but new viruses come out every day, so no prevention program can catch 100% of them.

FOR YOUR OWN SAFETY, PLEASE:

1. Re-scan downloaded files using your personal virus checker before using it.
2. NEVER, EVER run compiled files (.exe's, .ocx's, .dll's etc.)--only run source code.

Comments

Sir, pls help me.

we have a project in data structures 2.
we are obliged to maka a project that is due for final exam.
i was assigned to make any sample applications related to heap and code it using java GUI. I really dont know how to.

pls tel me what are those examples related to my projects.
i think reservation system is one example. but i want it to be in java code. pls

tnx.
3rd year IT Student
University of Cebu

please help me on my project using vb.net. We will make a banking system with these transactions. Client Registration - check/current/savings, deposit, withdrawal, inquire. thanks.

Dea Sir

i have downloaded to vb express 2008
i have download your creation Hotel management system also
but i cant run the program sir.....
in the project property
wat is the path???
after i enter the username and the password admin i still cant login into the system the wrong password message coming out.wat i purpose to do?????to make the program run....?
please tell me the path of this system
y the password wrong message coming even i already enter the username and the password????
please guide meeeeeeeeeeeeee???????????
please sir????????????????????

I want to Run this Project in Vb 2008.
Can u tell me which file i have to run..
Plz help me
give ur gmail or any other email id
mine is [email protected]

Run the Enrollment System.sln

Actually here i have Hotel Management System.sln
Can i run this file..in Vb 2008

helo! i would like to ask a help directly from you about multi column reporting in crystal report xi. the image can be viewed from the url below.

http://crystal-report-multicolumn.blogspot.com/

i really need a help.

yol

Hi,

I really wanted to help you but I have so many work to be done at this time. Most of them are paid service.

I can do this if you are willing to pay.

I cannot give priority for free services right now except for the free source code that I am maintaining every week.

Please use the Contact menu above if you are willing.

and how much will it cost sir?

Please use the contact form to email me.

i have already emailed you sir.

yul

hi,
when i want to open reports, display Database Login....

what's user and password?

It should open without requiring a password.

I'll gonna check this tomorrow if there's a problem like this.

I had have downloaded the Hotel Management and then noted that TableManager in ur source code. i want to make like you
but i don't know to how to create.
Please help me to create that one.
Thanks you so much.

Sir I am new to vb express 2008.
I have downloaded the zip file of Hotel Management System created by you. I donot know how to run this programme. I tried to double click .sln file but did not work.
Pleaes guide me how i can run this programe.
Kindly guide.
Thanks

Sir
I am a newbee to this vb express 2008.
i have downloaded your creation of Hotel Management System zip file.
Please guide me how i can run this programme. I tried double clicking .sln file but did not work.
Also please let me know the password of the database file.
Please guide me.
Thanks so much.

Visual Basic Express 2008 does not support crystal reports that's why you can run this program.

Upgrade to professional or team edition.

Anyway i want to update my data like ur interface (Room_Type).
But i am mot be able to update. when try to type code
Me.TableAdapterManager.UpdateAll(Me.HotelDataSet) it said i still missing TableAdapterManager.
So where should i find it?

Anyway i saw it, but i still wonder where you get it from? is it Store Procedures?

In ur Project VB.Net 2005 Hotel Reservation. In Room type i notice that there are TableDataManager for used for many time. Where does it from ?
Hope you show me soon.

You can find it under the toolbar at the left sidebar of your VB Editor.

hi sir.

i'm still a neophyte on vb.net. and our instructor gave us a project and this is banking system. the scenario is like this, a user will create account after creating account you will register. and the user will choose what transaction she/he wants. if he chose deposit he will input the amount and his/her money will increase depending upon the inputted amount. help me on this. these are the transactions. create account/register, deposit/withdrawal/balance inquiry, edit, view information and exit. the user should be able to see the other accounts of the other users. only the management should see the information using the database.

This is a big project and I cannot help you on this matter.

oh no. just a simple bank transaction

hi sir!

can you help me concerning this banking system for vb.net
that have these transactions. withdrawal, deposit, create and edit account, inquire and view account but will also use access database. But for that transactions the user will not be able to view the information of the other users only the management can view all the information. thanks.

Please send me the VB.net 2005 code as i don't have VB.net 2008. Thanks in advance.

Upgrade or DIE!

is it ok if i use vb & ms access in making an online resrvetion system?how cn i link it 2 each other?

This is possible but not recommended. Instead either use PHP/MySQL or ASP/MS Access/MS SQL.

YEAH,CUD WE HAVE MORE NOT THESE localhost(wampserver).any tutorial on this?

this is arron, ahhm... we have a prelim exam and i want your help..
this is the problem..
in form there is only one text box and 4 command button..
the function of first button is(1)left(2)right(3)len(4)function..

when you put a integer in a textbox
the (4)function could output the msgbox a words of integer you input on a textbox..

how can i solve that problem?
when i input a integer in textbox the msgbox of command (4)function is integer also!!

i want is for example:i input in a textbox "1" then
i want the msgbox is "one"

thats it...

hope you reply.!! i need it so please!!!!

thanks

you can send the source code in this email add [email protected]

You mean "Changing number to words"

Click the link above.

sir good day
i have a problem
can plz help me to creat a program using c++
to create a compuiter games.
thnx

Could you tell how to save image into SQL? and then how to retrieve it from SQL using VB2008?

Although this is possible but I don't recommend it. The size of your sql database will become bigger and bigger if you continue saving images.

Instead use the technique I have made here. Look at it at the forum under visual basic language.

Good Day Sir, here's my problem.. uhmm iam in my 4th year now and our dean required us to develop a database program which is we choose a record keeping database for cooperative. uhmm sir-- right now iam using visual basic 6. and iam having a hard time how will i make an output for print in VB6, they said it is cystal report, but i have no idea how to work on it. Sir i really need your help, can u give me a lil bit of video tut. -- i knw its to much but please do help me.
heres my e-add [email protected]

Hi,
In vb.net2008 if we want to disable/enable the groupbox
as per condition.Then how its possible when we used save button.how its insert into database.following is the code:

  1. Imports System.Data.OleDb
  2. Public Class addcust
  3. Dim da As OleDbDataAdapter
  4. Dim ds As DataSet
  5. Dim cmd As OleDbCommand
  6. Dim cmd1 As OleDbCommand
  7. Dim cid As Integer
  8. Dim rc As Integer
  9. Dim s As String
  10. Dim r As String
  11. Dim ch As Integer
  12.  
  13.  
  14.  
  15. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  16. Module1.connect()
  17. If TextBox1.Text = "" Then
  18. MsgBox("Please, Enter a Customer's First Name")
  19. Exit Sub
  20. End If
  21. If TextBox2.Text = "" Then
  22. MsgBox("Please, Enter a Customer's Last Name")
  23. Exit Sub
  24. End If
  25. If TextBox3.Text = "" Then
  26. MsgBox("Please, Enter a Office Address")
  27. Exit Sub
  28. End If
  29. If TextBox4.Text = "" Then
  30. MsgBox("Please, Enter a Home Address")
  31. Exit Sub
  32. End If
  33. 'If DateTimePicker. = "" Then
  34. 'MsgBox("Please, Enter a Date Of Birth")
  35. 'Exit Sub
  36. 'End If
  37. If ComboBox2.Text = "" Then
  38. MsgBox("Please, Enter a Gender")
  39. Exit Sub
  40. End If
  41. If TextBox5.Text = "" Then
  42. MsgBox("Please, Enter a Email ID")
  43. Exit Sub
  44. End If
  45. If TextBox6.Text = "" Then
  46. MsgBox("Please, Enter a Office Phone")
  47. Exit Sub
  48. End If
  49. If TextBox7.Text = "" Then
  50. MsgBox("Please, Enter a Home Phone")
  51. Exit Sub
  52. End If
  53. If TextBox8.Text = "" Then
  54. MsgBox("Please, Enter a Account Number")
  55. Exit Sub
  56. End If
  57. If ComboBox3.Text = "" Then
  58. MsgBox("Please, Enter a Account type")
  59. Exit Sub
  60. End If
  61. 'If TextBox9.Text = "" Then
  62. 'MsgBox("Please, Enter a ATM Number")
  63. 'Exit Sub
  64. 'End If
  65. If TextBox10.Text = "" Then
  66. MsgBox("Please, Enter a Balance")
  67. Exit Sub
  68. End If
  69. If ComboBox3.Text = "" Then
  70. MsgBox("Please, Enter a Date")
  71. Exit Sub
  72. End If
  73. If TextBox13.Text = "" Then
  74. MsgBox("Please, Enter a Name1")
  75. Exit Sub
  76. End If
  77. If TextBox14.Text = "" Then
  78. MsgBox("Please, Enter a Name2")
  79. Exit Sub
  80. End If
  81.  
  82. If TextBox15.Text = "" Then
  83. MsgBox("Please, Enter a Name3")
  84. Exit Sub
  85. End If
  86. 'If MsgBox("Are You Sure ? ", MsgBoxStyle.YesNo, "Confirm") = MsgBoxResult.Yes Then
  87. If ComboBox1.Text = "Personal" Then
  88. s = "insert into addcust(first_name,last_name,office_add,home_add,d_o_b,gender,email_id,office_ph,home_ph,account_no,acc_type,balance,date,acc_desc) values('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "','" & dtp1.Value & "','" & ComboBox2.Text & "','" & TextBox5.Text & "'," & CInt(TextBox6.Text) & "," & CInt(TextBox7.Text) & ",'" & TextBox8.Text & "','" & ComboBox3.Text & "'," & CInt(TextBox9.Text) & ",'" & dtp2.Value & "'," & CInt(TextBox10.Text) & ",'" & ComboBox1.Text & "'"
  89.  
  90. Else
  91. s = "insert into addcust values('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "','" & dtp1.Value & "','" & ComboBox2.Text & "','" & TextBox5.Text & "'," & CInt(TextBox6.Text) & "," & CInt(TextBox7.Text) & ",'" & TextBox8.Text & "','" & ComboBox3.Text & "'," & CInt(TextBox9.Text) & ",'" & dtp2.Value & "'," & CInt(TextBox10.Text) & ",'" & ComboBox1.Text & "','" & TextBox13.Text & "','" & TextBox14.Text & "','" & TextBox15.Text & "'"
  92. 's = InsertRecords("banking", "first_name", Trim(TextBox1.Text), "last_name", Trim(TextBox2.Text), "office_add", Trim(TextBox3.Text), "home_add", Trim(TextBox4.Text), "d_o_b", (dtp1.Value), "gender", Trim(ComboBox2.Text), "email_id", Trim(TextBox5.Text), "office_ph", CInt(TextBox6.Text), "home_ph", CInt(TextBox7.Text), "account_no", Trim(TextBox8.Text), "acc_type", ComboBox3.Text, "balace", Trim(TextBox9.Text), "date", dtp2.Value, "acc_desc", ComboBox1.Text, "name1", Trim(TextBox13.Text), "name2", Trim(TextBox14.Text), "name3", Trim(TextBox15.Text), "pix", Trim(TextBox11.Text))
  93. cmd = New OleDbCommand(s, conn)
  94. conn.Open()
  95.  
  96. cmd.ExecuteNonQuery()
  97. MsgBox("Record has been entered")
  98. Button1.Enabled = False
  99. End If
  100. End Sub
  101.  
  102. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
  103. custview.Show()
  104. Me.Close()
  105. End Sub
  106.  
  107. Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
  108.  
  109. OpenFileDialog1.Title = "Get Image"
  110. OpenFileDialog1.ShowDialog()
  111. If (TextBox11.Text.Trim() <> "") Then
  112. PictureBox1.Image = Image.FromFile(TextBox11.Text)
  113. End If
  114. End Sub
  115.  
  116. Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
  117. PictureBox1.Image = Nothing
  118. End Sub
  119.  
  120. Private Sub TextBox11_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox11.TextChanged
  121.  
  122. End Sub
  123.  
  124. Private Sub OpenFileDialog1_FileOk(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles OpenFileDialog1.FileOk
  125. TextBox11.Text = OpenFileDialog1.FileName
  126. End Sub
  127.  
  128. Private Sub Label13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label13.Click
  129.  
  130. End Sub
  131.  
  132. Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
  133. If ComboBox1.Text = "Personal" Then
  134. GroupBox3.Enabled = False
  135. Else
  136. GroupBox3.Enabled = True
  137. End If
  138. End Sub
  139.  
  140. Private Sub GroupBox3_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GroupBox3.Enter
  141.  
  142. End Sub
  143. End Class

Plz correct this one.
Thanx,
Regards,
Sandeep

I tested your code and it seems it is working fine.

Study

good day sir^_^
i am newly in java,,

and my prof, ask me to do a program

i dont know wer to start because I am noob in java
can you do me a favor plese help me to make this one
her is the output Sir, but i dont know we to start;
can you make this..please" then i will going to review the code nalang^_^.. thanks poh..

-------------------------
Enter number of quizes:
--------------------------
\\then the number og quizes will display

\\example

quizes 1:_____\\input number
quizes 2:_____\\input number
quizes 3:_____\\input number
quizes average is:__________

Enter attendance:______\\
assignment/seatwork:____\\
laboratory exircise:____\\

prelim exam:________

prelim grade is:_______
General wrtten average is:___
-----------------------------------------------------------
i hope you can help me Sir,, i need the Code very urgent^_^ her's my email add" [email protected] "

thank you so much and more power

good day sir^_^
i am newly in java,,

and my prof, ask me to do a program

i dont know wer to start because I am noob in java
can you do me a favor plese help me to make this one
her is the output Sir, but i dont know we to start;
can you make this..please" then i will going to review the code nalang^_^.. thanks poh..

-------------------------
Enter number of quizes:
--------------------------
\\then the number og quizes will display

\\example

quizes 1:_____\\input number
quizes 2:_____\\input number
quizes 3:_____\\input number
quizes average is:__________

Enter attendance:______\\
assignment/seatwork:____\\
laboratory exircise:____\\

prelim exam:________

prelim grade is:_______
General wrtten average is:___
-----------------------------------------------------------
i hope you can help me Sir,, i need the Code very urgent^_^ her's my email add" [email protected] "

thank you so much and more power

Are the codes for application system supported in web based system in vb.net. ? thanks

This program is not ready to be distributed.

I loaded it into VB 6 Pro and got error after error after error.

It would be easier to just start from scratch than to try to
repair this.

LOL. How can you open a VB.NET project on a VB 6.0?

Hi,
I have a project in vb.net 2008.In my project,i want a welcome window when the user login with his user name and password.I have the coding in vb6 of welcome pop up window.its a pop up window which shows the type of user,time and date.its opened when the user login and closed when the user log out.I want to convert this coding in vb.net 2008.some of these coding is converted but its not running.plz help me to convert this coding in vb.net2008.will u plz do this.i really need it very urgent.following is the coding:

'Const HWND_TOPMOST = -1
'Const HWND_NOTOPMOST = -2
'Const SWP_NOSIZE = &H1
'Const SWP_NOMOVE = &H2
'Const SWP_NOACTIVATE = &H10
'Const SWP_SHOWWINDOW = &H40

Private Declare Sub SetWindowPos Lib "User32" (ByVal hWnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long)
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Dim i As Integer
Private Sub popup()
On Error Resume Next
Picture1.Visible = True
i = Me.Height
Me.Height = 0
While Me.Height < i
Me.Height = Me.Height + 2
Me.Top = Me.Top - 2
DoEvents
Wend
End Sub
Private Sub popdown()
On Error Resume Next
i = Me.Height
While Me.Height > 500
Me.Height = Me.Height - 2
Me.Top = Me.Top + 2
DoEvents
Wend
End Sub
Private Sub Form_Activate()
On Error Resume Next
mdi_start.Enabled = False
lbl_user.Caption = login
lbl_time.Caption = "Login at:" & Format$(Now, "hh:mm:ss AM/PM")
lbl_day.Caption = "Today:" & Format$(Date, "dd-MMM-yy")
Call popup
'SetWindowPos Me.hWnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOACTIVATE Or SWP_SHOWWINDOW Or SWP_NOMOVE Or SWP_NOSIZE
'Sleep welcometime 'Wait for 1 Seconds
'Call popdown
main_menu.Enabled = True
'Unload Me
End Sub

Private Sub Form_KeyPress(KeyAscii As Integer)
Unload Me
End Sub

Private Sub Form_Load()
On Error Resume Next
Me.Left = Screen.Width - (Me.Width + 50)
Me.Top = Screen.Height - 450 '450 assumed height for taskbar
Picture1.Visible = False
End Sub

Private Sub Label1_Click()

End Sub

Thanx,
Regards,
sandeep

Most of the code above are not already supported in VB.NET.

Hi,
will u plz tell me,in vb.net which codes supported for that pop up window.like in vb.net2008 screen widh or size is not supported.plz its very urgent.

Thanx,
Regards,
Sandeep

As of now I do not know how to do this.

Pages

Add new comment

Filtered HTML

  • Web page addresses and e-mail addresses turn into links automatically.
  • You may insert videos with [video:URL]
  • Allowed HTML tags: <a> <em> <strong> <cite> <blockquote> <code> <ul> <ol> <li> <dl> <dt> <dd> <table> <tr> <td> <th> <img> <h1> <h2> <h3> <iframe> [video]
  • You can enable syntax highlighting of source code with the following tags: <code>, <blockcode>, <asp>, <c>, <cpp>, <csharp>, <css>, <html4strict>, <java>, <javascript>, <mysql>, <php>, <python>, <sql>, <vb>, <vbnet>. The supported tag styles are: <foo>, [foo].
  • Lines and paragraphs break automatically.

Plain text

  • No HTML tags allowed.
  • Lines and paragraphs break automatically.
CAPTCHA
This question is for testing whether or not you are a human visitor and to prevent automated spam submissions.