1. Visual Basic .NET
  2. Hotel Reservation System (VB.NET)

Hotel Reservation System (VB.NET)

Submitted by admin on Sunday, February 8, 2009 - 12:31.
Language
Visual Basic .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
hotel
vb.net

Comments

Submitted by truliuyu on 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 by Anonymous (not verified) on Thu, 06/11/2009 - 11:02

what is the different between vb.net 2005 and vb.net 2008 thank you...

Submitted by admin on Fri, 06/12/2009 - 11:41

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 by Anonymous (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 by Anonymous (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 by admin on Sat, 06/27/2009 - 18:53

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 by Anonymous (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 by admin on Wed, 07/01/2009 - 15:14

Yes. You have the option of what project you want to create under the file menu.

Submitted by Anonymous (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 by admin on Wed, 07/01/2009 - 15:15

What kind of reports he/she needs? A crystal reports or data report?

Submitted by Anonymous (not verified) on Thu, 07/02/2009 - 21:42

is this program run through browser? ? ?

Submitted by admin on Fri, 07/03/2009 - 11:17

Nope. This is a desktop application.

Submitted by Anonymous (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 by admin on Sat, 07/04/2009 - 10:54

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 by Anonymous (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 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

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

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

Study

Submitted by Anonymous (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:
  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

Submitted by Anonymous (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 by Anonymous (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 by Anonymous (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 by Anonymous (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 by admin on Wed, 07/22/2009 - 13:42

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

Submitted by Anonymous (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 by Anonymous (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 by Anonymous (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.

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

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

About text formats