Hotel Reservation System (VB.NET)

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.

Tags

Comments

Submitted bytruliuyuon Tue, 06/09/2009 - 09:12

Hi, Can you not use crystal reports 8.5 for the reporting? I'm doing a similar project, and your code is a very good reference! But I'm wondering would you be able to modify the code not to use crystal reports? my email:[email protected] Please let me know your opinions, let's discuss! Thank you very much
Submitted byAnonymous (not verified)on Thu, 06/11/2009 - 11:02

what is the different between vb.net 2005 and vb.net 2008 thank you...
Submitted byadminon Fri, 06/12/2009 - 11:41

In reply to by Anonymous (not verified)

Visit Microsoft website for more info on the difference between this two version.

Este es un excelente Programa mi consulta es si me puede enviar este programa en vb.net 2003 o vb.net 2005. Muchas gracias
Submitted byAnonymous (not verified)on Fri, 06/26/2009 - 18:52

can you help me with my thesis.. hotel reservation system with sms i think your program is the best source i can have for now.. thanks please contact me [email protected] thanks in advance..
Submitted byAnonymous (not verified)on Sat, 06/27/2009 - 03:43

This is an excellent program my query is if I can send this program in vb.net 2003 my query is if I can send this program in vb.net 2003 or 2005 Thank you very much Thank you very much.
Submitted byadminon Sat, 06/27/2009 - 18:53

In reply to by Anonymous (not verified)

May be in 2005. But you cannot degrade the code to 2003. I am using datagridview control which is not available in version 2003.
Submitted byAnonymous (not verified)on Tue, 06/30/2009 - 22:03

sir can i ask? does vb.net create web based projects? ? is it run through browser? ? thanks^^
Submitted byAnonymous (not verified)on Wed, 07/01/2009 - 00:08

im my techer give me a problem about Printing reports; he didnt teach us how; Id try my research and still he's not satisfied to my work: T[VB-6] Using MS ACCESS as database platform Can you help me. just a little sample. tnx n GOD BLESS [email protected]
Submitted byadminon Wed, 07/01/2009 - 15:15

In reply to by Anonymous (not verified)

What kind of reports he/she needs? A crystal reports or data report?
Submitted byAnonymous (not verified)on Thu, 07/02/2009 - 21:42

is this program run through browser? ? ?
Submitted byAnonymous (not verified)on Fri, 07/03/2009 - 21:28

thanks very mush for your work. i want to do a project like yours but using sql2000 database. so please help me on connecting to sql2000.
Submitted byadminon Sat, 07/04/2009 - 10:54

In reply to by Anonymous (not verified)

If you just need on how to connect to sql server 2000 then I suggest you take a lot at my enrollment system source code.
Submitted byAnonymous (not verified)on Wed, 07/08/2009 - 12:38

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 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
Submitted byAnonymous (not verified)on Sat, 07/11/2009 - 00:39

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.
Submitted byAnonymous (not verified)on Sun, 07/12/2009 - 10:20

Are the codes for application system supported in web based system in vb.net. ? thanks
Submitted byevilyunaon Sun, 07/12/2009 - 11:44

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
Submitted byevilyunaon Sun, 07/12/2009 - 11:46

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
Submitted byAnonymous (not verified)on Sun, 07/12/2009 - 12:08

Study
Submitted byAnonymous (not verified)on Mon, 07/13/2009 - 17:42

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: Imports System.Data.OleDb Public Class addcust Dim da As OleDbDataAdapter Dim ds As DataSet Dim cmd As OleDbCommand Dim cmd1 As OleDbCommand Dim cid As Integer Dim rc As Integer Dim s As String Dim r As String Dim ch As Integer Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Module1.connect() If TextBox1.Text = "" Then MsgBox("Please, Enter a Customer's First Name") Exit Sub End If If TextBox2.Text = "" Then MsgBox("Please, Enter a Customer's Last Name") Exit Sub End If If TextBox3.Text = "" Then MsgBox("Please, Enter a Office Address") Exit Sub End If If TextBox4.Text = "" Then MsgBox("Please, Enter a Home Address") Exit Sub End If 'If DateTimePicker. = "" Then 'MsgBox("Please, Enter a Date Of Birth") 'Exit Sub 'End If If ComboBox2.Text = "" Then MsgBox("Please, Enter a Gender") Exit Sub End If If TextBox5.Text = "" Then MsgBox("Please, Enter a Email ID") Exit Sub End If If TextBox6.Text = "" Then MsgBox("Please, Enter a Office Phone") Exit Sub End If If TextBox7.Text = "" Then MsgBox("Please, Enter a Home Phone") Exit Sub End If If TextBox8.Text = "" Then MsgBox("Please, Enter a Account Number") Exit Sub End If If ComboBox3.Text = "" Then MsgBox("Please, Enter a Account type") Exit Sub End If 'If TextBox9.Text = "" Then 'MsgBox("Please, Enter a ATM Number") 'Exit Sub 'End If If TextBox10.Text = "" Then MsgBox("Please, Enter a Balance") Exit Sub End If If ComboBox3.Text = "" Then MsgBox("Please, Enter a Date") Exit Sub End If If TextBox13.Text = "" Then MsgBox("Please, Enter a Name1") Exit Sub End If If TextBox14.Text = "" Then MsgBox("Please, Enter a Name2") Exit Sub End If If TextBox15.Text = "" Then MsgBox("Please, Enter a Name3") Exit Sub End If 'If MsgBox("Are You Sure ? ", MsgBoxStyle.YesNo, "Confirm") = MsgBoxResult.Yes Then If ComboBox1.Text = "Personal" Then 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 & "'" Else 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 & "'" '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)) cmd = New OleDbCommand(s, conn) conn.Open() cmd.ExecuteNonQuery() MsgBox("Record has been entered") Button1.Enabled = False End If End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click custview.Show() Me.Close() End Sub Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click OpenFileDialog1.Title = "Get Image" OpenFileDialog1.ShowDialog() If (TextBox11.Text.Trim() "") Then PictureBox1.Image = Image.FromFile(TextBox11.Text) End If End Sub Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click PictureBox1.Image = Nothing End Sub Private Sub TextBox11_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox11.TextChanged End Sub Private Sub OpenFileDialog1_FileOk(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles OpenFileDialog1.FileOk TextBox11.Text = OpenFileDialog1.FileName End Sub Private Sub Label13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label13.Click End Sub Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged If ComboBox1.Text = "Personal" Then GroupBox3.Enabled = False Else GroupBox3.Enabled = True End If End Sub Private Sub GroupBox3_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GroupBox3.Enter End Sub End Class Plz correct this one. Thanx, Regards, Sandeep
Submitted byAnonymous (not verified)on Wed, 07/15/2009 - 02:15

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].

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.
Submitted byAnonymous (not verified)on Thu, 07/16/2009 - 19:44

sir good day i have a problem can plz help me to creat a program using c++ to create a compuiter games. thnx
Submitted byAnonymous (not verified)on Thu, 07/16/2009 - 20:21

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]
Submitted byAnonymous (not verified)on Fri, 07/17/2009 - 13:21

is it ok if i use vb & ms access in making an online resrvetion system?how cn i link it 2 each other?
Submitted byadminon Wed, 07/22/2009 - 13:42

In reply to by Anonymous (not verified)

This is possible but not recommended. Instead either use PHP/MySQL or ASP/MS Access/MS SQL.
Submitted byAnonymous (not verified)on Mon, 07/20/2009 - 16:25

Please send me the VB.net 2005 code as i don't have VB.net 2008. Thanks in advance.
Submitted byAnonymous (not verified)on Mon, 08/03/2009 - 21:59

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.
Submitted byAnonymous (not verified)on Mon, 08/03/2009 - 22:14

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.

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.

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

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?

Add new comment