We use cookies to give you the best experience possible. By continuing we’ll assume you’re on board with our cookie policy

Hotel Reservation System

essay
The whole doc is available only for registered users

A limited time offer! Get a custom sample essay written according to your requirements urgent 3h delivery guaranteed

Order Now

INTRODUCTION

The term Information Technology or IT can be used to refer an entire industry. In reality, Information Technology is the use of computers and software to manage information. In some companies, this information refers to as Management Information Services (MIS) or simply as Information Services (IS). The Information Technology Department of a large company would be responsible for storing, protecting, processing, transmitting (if necessary), and later retrieving such information as necessarily.

With the help of Information Technology, old process of paper works are lessen, errors could be easily identified, workload will be lessen, most specially, it is not time consuming.

In this compilation, this Hotel Reservation System helps the process of checking-in or out tenants at a given time of the day. With the ease of work and easy tracing for rooms’ availability, cost, location within the hotel, in addition the days of accommodation and of course, the billing of the occupancy. This system is one of the best examples for a computer based process. It doesn’t only lessen the workload and provides accurate information needed, it also minimizes cost for the workload at hasten process. As a result, it benefits both client and management as a whole.

Hotel Reservation System is essential in a large bed-spacing Company and Businesses. Still some bed-spacing businesses do reservations manually. Management using papers and log-books to trace transactions and do reservations, billing statements store in an office which would be prone of being snuffed-out. Processes behind this workload would take time in which making clients be dismayed of the businesses’ service. Above observation statements, human interventions are highly involved and would be risky for the business’ process of doing management. As a result, this might lessen the income of the business in addition; the business might have its closure.

1
PROJECT CONTEXT

This Hotel Reservation System is a big help in the process of reducing workload at instantaneous speed. Lessens typographical error at the same time, management would have less time in issuing receipts and files needed for storing as hard copy of the transaction done. This system is Management / Server based type.

2
SCOPE AND LIMITITION

SCOPE:

This system focuses only at the following:
A. Transactions Occurred
B. Check-in / Check-out of clients and tenants
C. Billing of Transactions occurred

LIMITATION:

Management / Administrators only have the rights to add, edit, and update managerial accounts, server / employees’ account, and room details. Print transactions with Server / Employee and Costumer details involved in the process. Server / Employees only have the rights to let tenants check-in / out of occupancy. Print transactions with occupancy details involved in the process.

3
RESPECTIVE USER

Only Server / Employee in-charge in the certain bed-spacing company or business can use the system. Managers / Administrators may use only the system in checking out transactions for producing hard copy of the transactions occurred.

4
USER INTERFACE

SERVER / EMPLOYEE FORM

ADMINISTRATOR LOG-IN FORM

5

MANAGEMENT / ADMINISTRATOR FORM

REPORT

6
SQL CODES / TABLES

ADMINISTRATORS’ TABLE

ROOM SCHEDULE TABLE

7
SERVERS’ TABLE

ROOM STATUS TABLE

8
TRANSACTION TABLE

9
PROGRAM CODES

SERVER / EMPLOYEE INTERFACE

(FORM LOAD)

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load ‘TODO: This line of code loads data into the ‘DataSet11.transaction_tbl’ table. You can move, or remove it, as needed. Me.Transaction_tblTableAdapter.Fill(Me.DataSet11.transaction_tbl) ‘TODO: This line of code loads data into the ‘DataSet11.rm_sched’ table. You can move, or remove it, as needed. Me.Rm_schedTableAdapter.Fill(Me.DataSet11.rm_sched)

‘TODO: This line of code loads data into the ‘DataSet11.rm_stats’ table. You can move, or remove it, as needed. Me.Rm_statsTableAdapter.Fill(Me.DataSet11.rm_stats)
‘TODO: This line of code loads data into the ‘DataSet11.transaction_tbl’ table. You can move, or remove it, as needed. Me.Transaction_tblTableAdapter.Fill(Me.DataSet11.transaction_tbl) ‘TODO: This line of code loads data into the ‘DataSet11.rm_sched’ table. You can move, or remove it, as needed. Me.Rm_schedTableAdapter.Fill(Me.DataSet11.rm_sched)

‘TODO: This line of code loads data into the ‘DataSet11.rm_stats’ table. You can move, or remove it, as needed. Me.Rm_statsTableAdapter.Fill(Me.DataSet11.rm_stats)

ComboBox1.Text = “UnAvailable”
ComboBox1.Text = “Available”

Timer1.Interval = 1000
Timer1.Start()

TextBox4.Text = “0”
TextBox5.Text = “0”
TextBox6.Text = “0”
TextBox7.Text = “0”
TextBox8.Text = “0”
TextBox9.Text = “0”
TextBox10.Text = “0”
TextBox11.Text = “0”
TextBox12.Text = “0”
TextBox13.Text = “0”
TextBox14.Text = “0”
TextBox19.Text = “0”
TextBox20.Text = “0”
TextBox28.Text = “0”
TextBox29.Text = “0”

End Sub

10
(TABCONTROL “ROOM” – ROOM STATUS TABLE)

Private Sub DataGridView1_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellContentClick Try
Dim i As Integer
i = DataGridView1.CurrentRow.Index
Me.TextBox2.Text = DataGridView1.Item(0, i).Value Me.TextBox3.Text = DataGridView1.Item(1, i).Value Me.TextBox4.Text = DataGridView1.Item(2, i).Value Me.TextBox1.Text = DataGridView1.Item(4, i).Value Catch Excep As Exception

MessageBox.Show(Excep.Message, “Error”, MessageBoxButtons.OK, MessageBoxIcon.Error) End Try

CheckBox1.Enabled = True

TextBox5.Enabled = True
TextBox9.Enabled = True
TextBox10.Enabled = True
TextBox11.Enabled = True
TextBox12.Enabled = True
TextBox15.Enabled = True
TextBox16.Enabled = True
TextBox17.Enabled = True
TextBox18.Enabled = True
TextBox19.Enabled = True
TextBox21.Enabled = True
TextBox22.Enabled = True
TextBox23.Enabled = True
TextBox24.Enabled = False
TextBox25.Enabled = False
TextBox26.Enabled = False

Button4.Enabled = True
Button5.Enabled = False

DateTimePicker1.Enabled = True

TextBox5.Text = “0”
TextBox6.Text = “0”
TextBox7.Text = “0”
TextBox8.Text = “0”
TextBox9.Text = “0”
TextBox10.Text = “0”
TextBox11.Text = “0”
TextBox12.Text = “0”
TextBox13.Text = “0”
TextBox14.Text = “0”
TextBox19.Text = “0”
TextBox20.Text = “0”
TextBox28.Text = “0”
TextBox29.Text = “0”
TextBox15.Clear()
TextBox16.Clear()
TextBox17.Clear()
TextBox18.Clear()
TextBox27.Clear()

CheckBox1.CheckState = 0

TextBox29.Enabled = False
Button7.Enabled = False

End Sub

(TABCONTROL “ROOMS OCCUPATION” – TRANSACTIONS TABLE)

If TextBox28.Text = 0 Then
Button5.Enabled = True
End If
Try
Dim x As Integer
x = DataGridView3.CurrentRow.Index

Me.TextBox1.Text = DataGridView3.Item(0, x).Value Me.TextBox15.Text = DataGridView3.Item(16, x).Value Me.TextBox16.Text = DataGridView3.Item(17, x).Value Me.TextBox17.Text = DataGridView3.Item(18, x).Value Me.TextBox18.Text = DataGridView3.Item(19, x).Value Me.TextBox19.Text = DataGridView3.Item(20, x).Value Me.TextBox20.Text = DataGridView3.Item(21, x).Value Me.TextBox27.Text = DataGridView3.Item(19, x).Value Me.TextBox28.Text = DataGridView3.Item(21, x).Value Me.TextBox30.Text = DataGridView3.Item(21, x).Value

Catch ex As Exception

End Try

CheckBox1.Enabled = False

TextBox1.Enabled = False
TextBox2.Enabled = False
TextBox3.Enabled = False
TextBox4.Enabled = False
TextBox5.Enabled = False
TextBox6.Enabled = False
TextBox7.Enabled = False
TextBox8.Enabled = False
TextBox9.Enabled = False
TextBox10.Enabled = False
TextBox11.Enabled = False
TextBox12.Enabled = False
TextBox13.Enabled = False
TextBox14.Enabled = False
TextBox15.Enabled = False
TextBox16.Enabled = False
TextBox17.Enabled = False
TextBox18.Enabled = False
TextBox19.Enabled = False
TextBox20.Enabled = False
TextBox21.Enabled = False
TextBox22.Enabled = False
TextBox23.Enabled = False
TextBox23.Enabled = False
TextBox24.Enabled = True
TextBox25.Enabled = True
TextBox26.Enabled = True
TextBox29.Enabled = True

Button4.Enabled = False
Button7.Enabled = True

DateTimePicker1.Enabled = False

End Sub

(COMBOBOX1 BUTTON)

Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged Call connect()
Dim SQLDA As New SqlClient.SqlDataAdapter
Dim DS As New DataSet1
Try
If ComboBox1.Text = “Available” Then
SQLDA = New SqlClient.SqlDataAdapter(“SELECT * FROM rm_stats where Status = ‘” & ComboBox1.Text & “‘”, SQLCONN) DS.Reset()
SQLDA.Fill(DS, “rm_stats”)
Me.DataGridView1.DataSource = DS.Tables(“rm_stats”) Else
SQLDA = New SqlClient.SqlDataAdapter(“SELECT * FROM rm_stats where Status = ‘” & ComboBox1.Text & “‘”, SQLCONN) DS.Reset()
SQLDA.Fill(DS, “rm_stats”)
Me.DataGridView1.DataSource = DS.Tables(“rm_stats”)

End If
Catch Excep As Exception
MessageBox.Show(Excep.Message, “Error”, MessageBoxButtons.OK, MessageBoxIcon.Error) End Try
SQLCONN.Close()

TextBox1.Clear()
TextBox2.Clear()
TextBox3.Clear()

TextBox4.Text = “0”
TextBox5.Text = “0”
TextBox6.Text = “0”
TextBox7.Text = “0”
TextBox8.Text = “0”
TextBox9.Text = “0”
TextBox10.Text = “0”
TextBox11.Text = “0”
TextBox12.Text = “0”
TextBox13.Text = “0”
TextBox14.Text = “0”
TextBox19.Text = “0”
TextBox20.Text = “0”
TextBox28.Text = “0”
TextBox29.Text = “0”

TextBox15.Clear()
TextBox16.Clear()
TextBox17.Clear()

CheckBox1.CheckState = 0

TextBox21.Clear()
TextBox22.Clear()
TextBox23.Clear()

End Sub

(TABCONTROL “ROOM” – ROOM STATUS TABLE “REFRESH” BUTTON)

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Call connect()

Dim SQLDA As New Data.SqlClient.SqlDataAdapter
Dim DS As New DataSet1

SQLDA = New Data.SqlClient.SqlDataAdapter(“SELECT * FROM rm_stats WHERE Status = ‘” & ComboBox1.Text & “‘”, SQLCONN) DS.Reset()
SQLDA.Fill(DS, “rm_stats”)
Me.DataGridView1.DataSource = DS.Tables(“rm_stats”)
SQLCONN.Close()

End Sub

(TABCONTROL “ROOMS OCCUPATION” –
ROOM SCHEDULE TABLE “REFRESH” BUTTON)

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Call connect()

Dim SQLDA As New Data.SqlClient.SqlDataAdapter
Dim DS As New DataSet1
SQLDA = New Data.SqlClient.SqlDataAdapter(“SELECT * FROM rm_sched”, SQLCONN) DS.Reset()
SQLDA.Fill(DS, “rm_sched”)
Me.DataGridView2.DataSource = DS.Tables(“rm_sched”)

SQLCONN.Close()

End Sub

(TABCONTROL “ROOMS OCCUPATION” –
TRANSACTION TABLE “REFRESH” BUTTON)

Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click Call connect()

Dim SQLDA As New Data.SqlClient.SqlDataAdapter
Dim DS As New DataSet1

SQLDA = New Data.SqlClient.SqlDataAdapter(“SELECT * FROM transaction_tbl”, SQLCONN) DS.Reset()
SQLDA.Fill(DS, “transaction_tbl”)
Me.DataGridView3.DataSource = DS.Tables(“transaction_tbl”)

SQLCONN.Close()
End Sub

(GROUPBOX “SERVER INTERFACE – “CHECKBOX” OBJECT)

Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged If CheckBox1.CheckState = 1 Then
TextBox7.Enabled = True
Else
TextBox8.Text = Val(TextBox6.Text) * 1
TextBox7.Enabled = False
TextBox7.Text = “0”
End If
End Sub

(GROUPBOX “SERVER INVTERFACE – “CLEAR” BUTTON)

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

TextBox1.Clear()
TextBox2.Clear()
TextBox3.Clear()

TextBox4.Text = “0”
TextBox5.Text = “0”
TextBox6.Text = “0”
TextBox7.Text = “0”
TextBox8.Text = “0”
TextBox9.Text = “0”
TextBox10.Text = “0”
TextBox11.Text = “0”
TextBox12.Text = “0”
TextBox13.Text = “0”
TextBox14.Text = “0”
TextBox19.Text = “0”
TextBox20.Text = “0”
TextBox28.Text = “0”
TextBox29.Text = “0”

TextBox15.Clear()
TextBox16.Clear()
TextBox17.Clear()
TextBox18.Clear()
TextBox27.Clear()

CheckBox1.CheckState = 0

End Sub

(GROUPBOX “TRANSACTION INTERFACE” – “CONFIRM” CHECK-IN BUTTON)

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click SQLCONN.Close()
Call connect()

Dim box1, box2 As Integer

box1 = Val(TextBox19.Text)
box2 = Val(TextBox14.Text)

Try
If TextBox20.Text < 0 Then
MessageBox.Show(“Transaction balance is negative, invalid transaction.”, “Error”, MessageBoxButtons.OK, MessageBoxIcon.Error) Else
If ComboBox1.Text = “UnAvailable” Or ComboBox1.Text = “” Then MessageBox.Show(“Room not selected or is UnAvailable, please choose another room.”, “Error”, MessageBoxButtons.OK, MessageBoxIcon.Error) Else

If TextBox21.Text = “” Or TextBox22.Text = “” Or TextBox23.Text = “” Then MessageBox.Show(“Please fill in server field.”, “Error”, MessageBoxButtons.OK, MessageBoxIcon.Error) Else

If TextBox1.Text = “” Or TextBox15.Text = “” Or TextBox18.Text = “” Then MessageBox.Show(“Please Check Room Number / Control# or Costumer Names’ Field.”, “Error”, MessageBoxButtons.OK, MessageBoxIcon.Error) 16

Else
If box1 0 Then
MessageBox.Show(“Balance not fully paid.”, “Error”, MessageBoxButtons.OK, MessageBoxIcon.Error) Else
If TextBox30.Text < 0 Then
MessageBox.Show(“Balance is negative.”, “Error”, MessageBoxButtons.OK, MessageBoxIcon.Error) Else
If TextBox29.Text = 0 Then
MessageBox.Show(“Invalid payment cash value.”, “Error”, MessageBoxButtons.OK, MessageBoxIcon.Error) Else

SQLCONN.Close()
Call connect()
Dim box1, box2, box3, box4, box5 As Integer Dim box6 As String

box1 = Val(TextBox28.Text)
box2 = Val(TextBox29.Text)
box3 = Val(TextBox19.Text)

box4 = box2 + box3
box5 = box1 – box2

box6 = DateTimePicker2.Value

SQLCMD.Connection = SQLCONN
SQLCMD.CommandType = CommandType.Text SQLCMD.CommandText = “UPDATE transaction_tbl SET Balance = ‘” & box5 & “‘, Cash = ‘” & box4 & “‘, CheckOut = ‘” & box6 & “‘ WHERE Control# = ‘” & TextBox18.Text & “‘ ” SQLCMD.ExecuteNonQuery()

SQLCMD.CommandText = “DELETE FROM rm_sched where Number = ‘” & TextBox1.Text & “‘” SQLCMD.ExecuteNonQuery()

MessageBox.Show(“Balance Paid, please confirm check-out for issuance of official receipt.”, “Transaction Successful”, MessageBoxButtons.OK, MessageBoxIcon.Information)

Button5.Enabled = True
Button7.Enabled = False
TextBox29.Enabled = False

End If
End If
End If

Catch ex As Exception
End Try
SQLCONN.Close()
End Sub

(GROUPBOX “TRANSACTION INTERFACE” – “CLEAR” BUTTON)

Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click TextBox21.Clear()
TextBox22.Clear()
TextBox23.Clear()
TextBox24.Clear()
TextBox25.Clear()
TextBox26.Clear()
End Sub

MANAGEMENT / ADMINISTRATOR INTERFACE

(FORM LOAD)

Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load ‘TODO: This line of code loads data into the ‘DataSet1.rm_stats’ table. You can move, or remove it, as needed. Me.Rm_statsTableAdapter.Fill(Me.DataSet1.rm_stats)

‘TODO: This line of code loads data into the ‘DataSet1.transaction_tbl’ table. You can move, or remove it, as needed. Me.Transaction_tblTableAdapter.Fill(Me.DataSet1.transaction_tbl) ‘TODO: This line of code loads data into the ‘DataSet1.admin_tbl’ table. You can move, or remove it, as needed. Me.Admin_tblTableAdapter.Fill(Me.DataSet1.admin_tbl) ‘TODO: This line of code loads data into the ‘DataSet1.server_tbl’ table. You can move, or remove it, as needed. Me.Server_tblTableAdapter.Fill(Me.DataSet1.server_tbl) ‘TODO: This line of code loads data into the ‘DataSet1.rm_stats’ table. You can move, or remove it, as needed. Me.Rm_statsTableAdapter.Fill(Me.DataSet1.rm_stats)

‘TODO: This line of code loads data into the

‘DataSet1.transaction_tbl’ table. You can move, or remove it, as needed. Me.Transaction_tblTableAdapter.Fill(Me.DataSet1.transaction_tbl) ‘TODO: This line of code loads data into the ‘DataSet1.admin_tbl’ table. You can move, or remove it, as needed. Me.Admin_tblTableAdapter.Fill(Me.DataSet1.admin_tbl) ‘TODO: This line of code loads data into the ‘DataSet1.server_tbl’ table. You can move, or remove it, as needed. Me.Server_tblTableAdapter.Fill(Me.DataSet1.server_tbl)

Timer1.Interval = 1000
Timer1.Start()

End Sub

(TABCONTROL “SERVER” – SERVERS’ TABLE)

Try
Dim i As Integer
i = DataGridView1.CurrentRow.Index
Me.TextBox1.Text = DataGridView1.Item(0, i).Value Me.TextBox2.Text = DataGridView1.Item(1, i).Value Me.TextBox3.Text = DataGridView1.Item(2, i).Value Me.TextBox4.Text = DataGridView1.Item(3, i).Value Me.TextBox5.Text = DataGridView1.Item(4, i).Value Me.TextBox6.Text = DataGridView1.Item(5, i).Value Me.TextBox7.Text = DataGridView1.Item(6, i).Value Catch Excep As Exception

MessageBox.Show(Excep.Message, “Error”, MessageBoxButtons.OK, MessageBoxIcon.Error) End Try

TextBox1.Enabled = True
TextBox2.Enabled = True
TextBox3.Enabled = True
TextBox4.Enabled = True
TextBox5.Enabled = True
TextBox6.Enabled = True
TextBox7.Enabled = True

Button1.Enabled = True
Button2.Enabled = True
Button3.Enabled = True
Button4.Enabled = True

Button8.Enabled = False
Button9.Enabled = False
Button10.Enabled = False

RadioButton1.Enabled = True
RadioButton2.Enabled = True

Call cleartransact()
Call clearroom()

End Sub
(TABCONTROL “MANAGER” – ADMINISTRATORS’ TABLE)

Private Sub DataGridView2_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView2.CellContentClick Try
Dim i As Integer
i = DataGridView2.CurrentRow.Index
Me.TextBox2.Text = DataGridView2.Item(0, i).Value Me.TextBox3.Text = DataGridView2.Item(1, i).Value Me.TextBox1.Text = DataGridView2.Item(2, i).Value Me.TextBox4.Text = DataGridView2.Item(3, i).Value
Me.TextBox5.Text = DataGridView2.Item(4, i).Value Me.TextBox6.Text = DataGridView2.Item(5, i).Value Catch Excep As Exception

MessageBox.Show(Excep.Message, “Error”, MessageBoxButtons.OK, MessageBoxIcon.Error) End Try

TextBox1.Enabled = True
TextBox2.Enabled = True
TextBox3.Enabled = True
TextBox4.Enabled = True
TextBox5.Enabled = True
TextBox6.Enabled = True

TextBox7.Enabled = False

Button1.Enabled = True
Button2.Enabled = True
Button3.Enabled = True
Button4.Enabled = True

Button8.Enabled = False
Button9.Enabled = False
Button10.Enabled = False

RadioButton1.Enabled = True
RadioButton2.Enabled = True

TextBox7.Clear()

Call cleartransact()
Call clearroom()

End Sub

(TABCONTROL “TRANSACTIONS” – TRANSACTION TABLE)

Private Sub DataGridView3_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView3.CellContentClick Try
Dim i As Integer
i = DataGridView3.CurrentRow.Index
Me.TextBox8.Text = DataGridView3.Item(0, i).Value Me.TextBox9.Text = DataGridView3.Item(1, i).Value Me.TextBox10.Text = DataGridView3.Item(2, i).Value Me.TextBox11.Text = DataGridView3.Item(3, i).Value Me.TextBox12.Text = DataGridView3.Item(4, i).Value Me.TextBox13.Text = DataGridView3.Item(5, i).Value Me.TextBox14.Text = DataGridView3.Item(6, i).Value Me.TextBox15.Text = DataGridView3.Item(7, i).Value Me.TextBox16.Text = DataGridView3.Item(8, i).Value Me.TextBox17.Text = DataGridView3.Item(9, i).Value Me.TextBox18.Text = DataGridView3.Item(10, i).Value Me.TextBox19.Text = DataGridView3.Item(11, i).Value Me.TextBox20.Text = DataGridView3.Item(12, i).Value Me.TextBox21.Text = DataGridView3.Item(13, i).Value Me.TextBox22.Text = DataGridView3.Item(14, i).Value Me.TextBox23.Text = DataGridView3.Item(15, i).Value Me.TextBox24.Text = DataGridView3.Item(16, i).Value Me.TextBox25.Text = DataGridView3.Item(17, i).Value Me.TextBox26.Text = DataGridView3.Item(18, i).Value Me.TextBox27.Text = DataGridView3.Item(19, i).Value Me.TextBox28.Text = DataGridView3.Item(20, i).Value Me.TextBox29.Text = DataGridView3.Item(21, i).Value Me.TextBox30.Text = DataGridView3.Item(22, i).Value Me.TextBox31.Text = DataGridView3.Item(23, i).Value Catch Excep As Exception

MessageBox.Show(Excep.Message, “Error”, MessageBoxButtons.OK,
MessageBoxIcon.Error) End Try

Button8.Enabled = True
Button9.Enabled = True
Button10.Enabled = True

TextBox1.Enabled = False
TextBox2.Enabled = False
TextBox3.Enabled = False
TextBox4.Enabled = False
TextBox5.Enabled = False
TextBox6.Enabled = False
TextBox7.Enabled = False

Button1.Enabled = False
Button2.Enabled = False
Button3.Enabled = False
Button4.Enabled = False

RadioButton1.Enabled = False
RadioButton2.Enabled = False

RadioButton1.Checked = False
RadioButton2.Checked = False

TextBox1.Clear()
TextBox2.Clear()
TextBox3.Clear()
TextBox4.Clear()
TextBox5.Clear()
TextBox6.Clear()
TextBox7.Clear()

Call clearroom()

End Sub
(TABCONTROL “ROOM” – ROOM STATUS TABLE)

Private Sub DataGridView4_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView4.CellContentClick Try
Dim i As Integer
i = DataGridView4.CurrentRow.Index
Me.TextBox33.Text = DataGridView4.Item(0, i).Value Me.TextBox34.Text = DataGridView4.Item(1, i).Value Me.TextBox35.Text = DataGridView4.Item(2, i).Value Me.TextBox36.Text = DataGridView4.Item(4, i).Value Catch Excep As Exception

MessageBox.Show(Excep.Message, “Error”, MessageBoxButtons.OK, MessageBoxIcon.Error) End Try

Button8.Enabled = True
Button9.Enabled = True
Button10.Enabled = True

TextBox1.Enabled = False
TextBox2.Enabled = False
TextBox3.Enabled = False
TextBox4.Enabled = False
TextBox5.Enabled = False
TextBox6.Enabled = False
TextBox7.Enabled = False

Button1.Enabled = False
Button2.Enabled = False
Button3.Enabled = False
Button4.Enabled = False

RadioButton1.Enabled = False
RadioButton2.Enabled = False

Button8.Enabled = False
Button9.Enabled = False
Button10.Enabled = False

TextBox1.Clear()
TextBox2.Clear()
TextBox3.Clear()
TextBox4.Clear()
TextBox5.Clear()
TextBox6.Clear()
TextBox7.Clear()

Call cleartransact()

End Sub

(TABCONTROL “SERVER” – “REFRESH” BUTTON)

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click Call connect()

Dim SQLDA As New Data.SqlClient.SqlDataAdapter
Dim DS As New DataSet1

SQLDA = New Data.SqlClient.SqlDataAdapter(“SELECT * FROM server_tbl”, SQLCONN) DS.Reset()
SQLDA.Fill(DS, “server_tbl”)
Me.DataGridView1.DataSource = DS.Tables(“server_tbl”) SQLCONN.Close()

TextBox1.Clear()
TextBox2.Clear()
TextBox3.Clear()
TextBox4.Clear()
TextBox5.Clear()
TextBox6.Clear()
TextBox7.Clear()

End Sub

(TABCONTROL “MANAGER” – “REFRESH” BUTTON)

Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click Call connect()

Dim SQLDA As New Data.SqlClient.SqlDataAdapter
Dim DS As New DataSet1

SQLDA = New Data.SqlClient.SqlDataAdapter(“SELECT * FROM admin_tbl”, SQLCONN) DS.Reset()
SQLDA.Fill(DS, “admin_tbl”)
Me.DataGridView2.DataSource = DS.Tables(“admin_tbl”) SQLCONN.Close()

TextBox1.Clear()
TextBox2.Clear()
TextBox3.Clear()
TextBox4.Clear()
TextBox5.Clear()
TextBox6.Clear()
TextBox7.Clear()
End Sub

(TABCONTROL “TRANSACTIONS” – “REFRESH” BUTTON)

Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click Call connect()

Dim SQLDA As New Data.SqlClient.SqlDataAdapter
Dim DS As New DataSet1

SQLDA = New Data.SqlClient.SqlDataAdapter(“SELECT * FROM transaction_tbl”, SQLCONN) DS.Reset()
SQLDA.Fill(DS, “transaction_tbl”)
Me.DataGridView3.DataSource = DS.Tables(“transaction_tbl”)

SQLCONN.Close()
End Sub

(TABCONTROL “ROOM” – “ADD” BUTTON)

Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click Try
SQLCONN.Close()
Call connect()

If TextBox33.Text = “” Or TextBox34.Text = “” Or TextBox35.Text = “” Or TextBox36.Text = “” Then MessageBox.Show(“Please fill-in all data provided.”, “Error”, MessageBoxButtons.OK, MessageBoxIcon.Error) Else

Dim box1 As String

box1 = “Available”

SQLCMD.CommandText = “INSERT INTO rm_stats VALUES(‘” & TextBox33.Text & “‘,'” & TextBox34.Text & “‘,'” & TextBox35.Text & “‘,'” & box1 & “‘,'” & TextBox36.Text & “‘)” SQLCMD.Connection = SQLCONN

SQLCMD.CommandType = CommandType.Text
SQLCMD.ExecuteNonQuery()

MessageBox.Show(“Adding room successfully! You may refresh the table.”, “Add Room Successful”, MessageBoxButtons.OK, MessageBoxIcon.Information) SQLCONN.Close()
TextBox33.Clear()
TextBox34.Clear()

TextBox35.Clear()
TextBox36.Clear()
End If

Catch Excep As Exception
MessageBox.Show(Excep.Message, “Error”, MessageBoxButtons.OK, MessageBoxIcon.Error) End Try
SQLCONN.Close()
End Sub

(TABCONTROL “ROOM” – “UPDATE” BUTTON)

Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click Try
SQLCONN.Close()
Call connect()

If TextBox33.Text = “” Or TextBox34.Text = “” Or TextBox35.Text = “” Or TextBox36.Text = “” Then MessageBox.Show(“Please fill-in all data provided.”, “Error”, MessageBoxButtons.OK, MessageBoxIcon.Error) Else

SQLCMD.CommandText = “UPDATE rm_stats SET Type = ‘” & TextBox33.Text & “‘, Location = ‘” & TextBox34.Text & “‘, Cost = ‘” &
TextBox35.Text & “‘ WHERE Number = ‘” & TextBox36.Text & “‘” SQLCMD.Connection = SQLCONN

SQLCMD.CommandType = CommandType.Text
SQLCMD.ExecuteNonQuery()

MessageBox.Show(“Updating room successfully! You may refresh the table.”, “Update Successful”, MessageBoxButtons.OK, MessageBoxIcon.Information) SQLCONN.Close()

TextBox33.Clear()
TextBox34.Clear()
TextBox35.Clear()
TextBox36.Clear()
End If

Catch Excep As Exception
MessageBox.Show(Excep.Message, “Error”, MessageBoxButtons.OK, MessageBoxIcon.Error) End Try
SQLCONN.Close()
End Sub

(TABCONTROL “ROOM” – “DELETE” BUTTON)

Private Sub Button13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button13.Click Try
SQLCONN.Close()
Call connect()

If TextBox33.Text = “” Or TextBox34.Text = “” Or TextBox35.Text = “” Or TextBox36.Text = “” Then MessageBox.Show(“Please fill-in all data provided.”, “Error”, MessageBoxButtons.OK, MessageBoxIcon.Error) Else

SQLCMD.CommandText = “DELETE FROM rm_stats where Number = ‘” & TextBox36.Text & “‘” SQLCMD.Connection = SQLCONN
SQLCMD.CommandType = CommandType.Text
SQLCMD.ExecuteNonQuery()

MessageBox.Show(“Room deleted successfully! You may refresh the table.”, “Deletion Successful”, MessageBoxButtons.OK, MessageBoxIcon.Information) SQLCONN.Close()

TextBox33.Clear()
TextBox34.Clear()
TextBox35.Clear()
TextBox36.Clear()
End If

Catch Excep As Exception
MessageBox.Show(Excep.Message, “Error”, MessageBoxButtons.OK, MessageBoxIcon.Error) End Try
SQLCONN.Close()
End Sub

(TABCONTROL “ROOM” – “REFRESH” BUTTON)

Private Sub Button14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button14.Click Call connect()

Dim SQLDA As New Data.SqlClient.SqlDataAdapter
Dim DS As New DataSet1

SQLDA = New Data.SqlClient.SqlDataAdapter(“SELECT * FROM rm_stats”, SQLCONN) DS.Reset()
SQLDA.Fill(DS, “rm_stats”)
Me.DataGridView4.DataSource = DS.Tables(“rm_stats”)
SQLCONN.Close()

TextBox33.Clear()
TextBox34.Clear()
TextBox35.Clear()
TextBox36.Clear()

End Sub

(TABCONTROL “ROOM” – “CLEAR” BUTTON)

Private Sub Button15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button15.Click Call clearroom()
End Sub

(“SUB CLEARROOM()”)
Sub clearroom()
TextBox33.Clear()
TextBox34.Clear()
TextBox35.Clear()
TextBox36.Clear()
End Sub

(GROUPBOX “ACCOUNT MANAGER” – “REGISTER” BUTTON)

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim ask As String
ask = MessageBox.Show(“Are you sure you want to register account?”, “REGISTER”, MessageBoxButtons.YesNo, MessageBoxIcon.Question) If ask = vbNo Then
Me.Show()
Else
Try
If TextBox1.Text = “” Or TextBox2.Text = “” Or TextBox3.Text = “” Or TextBox4.Text = “” Or TextBox5.Text = “” Or TextBox6.Text = “” Then MessageBox.Show(“Please fill-in all data provided.”,
“Error”, MessageBoxButtons.OK, MessageBoxIcon.Error) Else

If RadioButton2.Checked Then
SQLCONN.Close()
Call connect()

TextBox7.Enabled = True

SQLCMD.CommandText = “INSERT INTO server_tbl VALUES(‘” & TextBox1.Text & “‘,'” & TextBox2.Text & “‘,'” & TextBox3.Text & “‘,'” & TextBox4.Text & “‘,'” & TextBox5.Text & “‘,'” & TextBox6.Text & “‘,'” & TextBox7.Text & “‘)” SQLCMD.Connection = SQLCONN

SQLCMD.CommandType = CommandType.Text SQLCMD.ExecuteNonQuery()

MessageBox.Show(“Server account registered successfully! You may refresh the table.”, “Registration Successful”,
MessageBoxButtons.OK, MessageBoxIcon.Information)
SQLCONN.Close()

TextBox1.Clear()
TextBox2.Clear()
TextBox3.Clear()
TextBox4.Clear()
TextBox5.Clear()
TextBox6.Clear()
TextBox7.Clear()

Else
If RadioButton1.Checked Then
SQLCONN.Close()
Call connect()

TextBox7.Enabled = False

SQLCMD.CommandText = “INSERT INTO admin_tbl VALUES(‘” & TextBox2.Text & “‘,'” & TextBox3.Text & “‘,'” & TextBox1.Text & “‘,'” & TextBox4.Text & “‘,'” & TextBox5.Text & “‘,'” & TextBox6.Text & “‘)” SQLCMD.Connection = SQLCONN

SQLCMD.CommandType = CommandType.Text SQLCMD.ExecuteNonQuery()

MessageBox.Show(“Manager account registered successfully! You may refresh the table.”, “Registration Successful”, MessageBoxButtons.OK, MessageBoxIcon.Information) SQLCONN.Close()

TextBox1.Clear()
TextBox2.Clear()
TextBox3.Clear()
TextBox4.Clear()
TextBox5.Clear()
TextBox6.Clear()

End If
End If
End If
Catch Excep As Exception
MessageBox.Show(Excep.Message, “Error”, MessageBoxButtons.OK, MessageBoxIcon.Error) End Try
End If
SQLCONN.Close()

End Sub

(GROUPBOX “ACCOUNT MANAGER” – “DELETE” BUTTON)

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click Dim ask As String
ask = MessageBox.Show(“Are you sure you want to delete account?”,
“DELETE”, MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If ask = vbNo Then
Me.Show()
Else
Try
If TextBox1.Text = “” Or TextBox2.Text = “” Or TextBox3.Text = “” Or TextBox4.Text = “” Or TextBox5.Text = “” Or TextBox6.Text = “” Then MessageBox.Show(“Please fill-in all data provided.”, “Error”, MessageBoxButtons.OK, MessageBoxIcon.Error) Else

If RadioButton2.Checked Then
SQLCONN.Close()
Call connect()

TextBox7.Enabled = True

SQLCMD.CommandText = “DELETE FROM server_tbl where ServerID = ‘” & TextBox1.Text & “‘” SQLCMD.Connection = SQLCONN
SQLCMD.CommandType = CommandType.Text SQLCMD.ExecuteNonQuery()

MessageBox.Show(“Server account deleted successfully! You may refresh the table.”, “Deletion Successful”, MessageBoxButtons.OK, MessageBoxIcon.Information) SQLCONN.Close()

TextBox1.Clear()
TextBox2.Clear()
TextBox3.Clear()
TextBox4.Clear()
TextBox5.Clear()
TextBox6.Clear()
TextBox7.Clear()

Else
If RadioButton1.Checked Then
SQLCONN.Close()
Call connect()

TextBox7.Enabled = False

SQLCMD.CommandText = “DELETE FROM admin_tbl where AdminID = ‘” & TextBox1.Text & “‘” SQLCMD.Connection = SQLCONN
SQLCMD.CommandType = CommandType.Text SQLCMD.ExecuteNonQuery()

MessageBox.Show(“Manager account deleted successfully! You may refresh the table.”, “Deletion Successful”, MessageBoxButtons.OK, MessageBoxIcon.Information) SQLCONN.Close()

TextBox1.Clear()
TextBox2.Clear()
TextBox3.Clear()
TextBox4.Clear()
TextBox5.Clear()
TextBox6.Clear()

End If
End If
End If
Catch Excep As Exception
MessageBox.Show(Excep.Message, “Error”, MessageBoxButtons.OK, MessageBoxIcon.Error) End Try
End If
SQLCONN.Close()
End Sub

(GROUPBOX “ACCOUNT MANAGER” – “UPDATE” BUTTON)

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Dim ask As String
ask = MessageBox.Show(“Are you sure you want to update account?”, “UPDATE”, MessageBoxButtons.YesNo, MessageBoxIcon.Question) If ask = vbNo Then
Me.Show()
Else
Try
If TextBox1.Text = “” Or TextBox2.Text = “” Or TextBox3.Text = “” Or TextBox4.Text = “” Or TextBox5.Text = “” Or TextBox6.Text = “” Then MessageBox.Show(“Please fill-in all data provided.”, “Error”, MessageBoxButtons.OK, MessageBoxIcon.Error) Else

If RadioButton2.Checked Then
SQLCONN.Close()
Call connect()

TextBox7.Enabled = True

SQLCMD.CommandText = “UPDATE server_tbl SET ServerAccount = ‘” & TextBox2.Text & “‘, ServerPassword = ‘” & TextBox3.Text & “‘, FamilyName = ‘” & TextBox4.Text & “‘, FirstName = ‘” & TextBox5.Text & “‘, MiddleName = ‘” & TextBox6.Text & “‘, Contact = ‘” & TextBox7.Text & “‘ WHERE ServerID = ‘” & TextBox1.Text & “‘” SQLCMD.Connection = SQLCONN

SQLCMD.CommandType = CommandType.Text SQLCMD.ExecuteNonQuery()

MessageBox.Show(“Server account updated successfully!
You may refresh the table.”, “Update Successful”, MessageBoxButtons.OK, MessageBoxIcon.Information) SQLCONN.Close()

TextBox1.Clear()

TextBox2.Clear()
TextBox3.Clear()
TextBox4.Clear()
TextBox5.Clear()
TextBox6.Clear()
TextBox7.Clear()

Else
If RadioButton1.Checked Then
SQLCONN.Close()
Call connect()

TextBox7.Enabled = False

SQLCMD.CommandText = “UPDATE admin_tbl SET AdminAccount = ‘” & TextBox2.Text & “‘, AdminPassword = ‘” & TextBox3.Text & “‘, FamilyName = ‘” & TextBox4.Text & “‘, FirstName = ‘” & TextBox5.Text & “‘, MiddleName = ‘” & TextBox6.Text & “‘ WHERE AdminID = ‘” & TextBox1.Text & “‘” SQLCMD.Connection = SQLCONN

SQLCMD.CommandType = CommandType.Text SQLCMD.ExecuteNonQuery()

MessageBox.Show(“Manager account updated successfully! You may refresh the table.”, “Update Successful”, MessageBoxButtons.OK, MessageBoxIcon.Information) SQLCONN.Close()

TextBox1.Clear()
TextBox2.Clear()
TextBox3.Clear()
TextBox4.Clear()
TextBox5.Clear()
TextBox6.Clear()

End If
End If
End If
Catch Excep As Exception
MessageBox.Show(Excep.Message, “Error”, MessageBoxButtons.OK, MessageBoxIcon.Error) End Try
End If
SQLCONN.Close()
End Sub

(GROUPBOX “ACCOUNT MANAGER” – “CLEAR” BUTTON)

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

TextBox1.Clear()
TextBox2.Clear()
TextBox3.Clear()

TextBox4.Clear()
TextBox5.Clear()
TextBox6.Clear()
TextBox7.Clear()

End Sub

(GROUPBOX “TRANSACTION MANAGER” – “PRINT” BUTTON)

Try
If TextBox27.Text = “” Then
MessageBox.Show(“Please select a transaction to print.”, “Print Failed”, MessageBoxButtons.OK, MessageBoxIcon.Error) Else
transactionprint.Show()
End If
Catch Excep As Exception
MessageBox.Show(Excep.Message, “Error”, MessageBoxButtons.OK, MessageBoxIcon.Error) End Try
End Sub

(GROUPBOX “TRANSACTION MANAGER” – “DELETE” BUTTON)

Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click Try
If TextBox8.Text = “” Then
MessageBox.Show(“Failed to delete transaction, please select transaction to delete.”, “Error”, MessageBoxButtons.OK, MessageBoxIcon.Error) Else
Dim ask As String
ask = MessageBox.Show(“Are you sure you want to delete transaction?”, “DELETE”, MessageBoxButtons.YesNo, MessageBoxIcon.Question) If ask = vbNo Then
Me.Show()
Else
SQLCONN.Close()
Call connect()

SQLCMD.Connection = SQLCONN
SQLCMD.CommandType = CommandType.Text
SQLCMD.CommandText = “DELETE FROM transaction_tbl WHERE Control# = ‘” & TextBox27.Text & “‘” SQLCMD.ExecuteNonQuery()

MessageBox.Show(“Transaction deleted successfully! You
may refresh the table.”, “Deletion Successful”, MessageBoxButtons.OK, MessageBoxIcon.Information) SQLCONN.Close()

Call cleartransact()

End If
End If
Catch Excep As Exception
MessageBox.Show(Excep.Message, “Error”, MessageBoxButtons.OK, MessageBoxIcon.Error) End Try
SQLCONN.Close()
End Sub

(GROUPBOX “TRANSACTION MANAGER” – “CLEAR” BUTTON)

Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click Call cleartransact()
End Sub

(“SUB CLEARTRANSACT()”)

Sub cleartransact()

TextBox8.Clear()
TextBox9.Clear()
TextBox10.Clear()
TextBox11.Clear()
TextBox12.Clear()
TextBox13.Clear()
TextBox14.Clear()
TextBox15.Clear()
TextBox16.Clear()
TextBox17.Clear()
TextBox18.Clear()
TextBox19.Clear()
TextBox20.Clear()
TextBox21.Clear()
TextBox22.Clear()
TextBox23.Clear()
TextBox24.Clear()
TextBox25.Clear()
TextBox26.Clear()
TextBox27.Clear()
TextBox28.Clear()
TextBox29.Clear()
TextBox30.Clear()
TextBox31.Clear()

End Sub

MANAGEMENT / ADMINISTRATOR
LOG-IN INTERFACE

(FORM LOAD)

Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load TextBox1.Focus()
End Sub

(“LOG-IN” BUTTON)

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Try
If TextBox1.Text = “” Or TextBox2.Text = “” Then MessageBox.Show(“Fill-in all data to log-in.”, “Log-in Failed”, MessageBoxButtons.OK, MessageBoxIcon.Error) Else

SQLCONN.Close()
Call connect()
SQLCMD.Connection = SQLCONN
SQLCMD.CommandType = CommandType.Text
SQLCMD.CommandText = “SELECT * FROM admin_tbl WHERE AdminAccount LIKE ‘” & TextBox1.Text & “‘ AND AdminPassword LIKE ‘” & TextBox2.Text & “‘”

Dim rdr As SqlClient.SqlDataReader
rdr = SQLCMD.ExecuteReader
If rdr.HasRows = True Then
rdr.Read()
MessageBox.Show(“Welcome, Administrator!”, “Log-in Successful”, MessageBoxButtons.OK, MessageBoxIcon.Information) Form2.Show()
Me.Hide()
Form1.Hide()
SQLCONN.Close()

TextBox1.Clear()
TextBox2.Clear()

Else
MessageBox.Show(“Incorrect Account / Password / First Name.”, “Log-in Failed”, MessageBoxButtons.OK, MessageBoxIcon.Error) SQLCONN.Close()
End If
End If

Catch Excep As Exception
MessageBox.Show(Excep.Message, “Error”, MessageBoxButtons.OK, 38
MessageBoxIcon.Error)
End Try
SQLCONN.Close()
End Sub

(“CANCEL” BUTTON)

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Form1.Show()
Me.Hide()
TextBox1.Clear()
TextBox2.Clear()
SQLCONN.Close()
End Sub

MISCELLANEOUS FUNCTIONS

(MENUSTRIP “SERVER / EMPLOYEE INTERFACE” –
“LOG-IN ADMINISTRATOR” MENU)

Private Sub LoginAdministratorToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LoginAdministratorToolStripMenuItem.Click Form3.Show()
Me.Hide()

TextBox1.Clear()
TextBox2.Clear()
TextBox3.Clear()

TextBox4.Text = “0”
TextBox5.Text = “0”
TextBox6.Text = “0”
TextBox7.Text = “0”
TextBox8.Text = “0”
TextBox9.Text = “0”
TextBox10.Text = “0”
TextBox11.Text = “0”
TextBox12.Text = “0”
TextBox13.Text = “0”
TextBox14.Text = “0”
TextBox19.Text = “0”
TextBox20.Text = “0”
TextBox28.Text = “0”
TextBox29.Text = “0”

TextBox15.Clear()
TextBox16.Clear()
TextBox17.Clear()

CheckBox1.CheckState = 0
End Sub

(MENUSTRIP “SERVER / EMPLOYEE INTERFACE” – “EXIT” MENU)

Private Sub ExitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem.Click

Call connect()

Try
Dim ask As String
ask = MessageBox.Show(“Are you sure you want to exit program?”, “EXIT”, MessageBoxButtons.YesNo, MessageBoxIcon.Question) If ask = vbYes Then
Me.Close()
Else

Me.Show()

TextBox1.Clear()
TextBox2.Clear()
TextBox3.Clear()

TextBox4.Text = “0”
TextBox5.Text = “0”
TextBox6.Text = “0”
TextBox7.Text = “0”
TextBox8.Text = “0”
TextBox9.Text = “0”
TextBox10.Text = “0”
TextBox11.Text = “0”
TextBox12.Text = “0”
TextBox13.Text = “0”
TextBox14.Text = “0”
TextBox19.Text = “0”
TextBox20.Text = “0”
TextBox28.Text = “0”
TextBox29.Text = “0”

TextBox15.Clear()
TextBox16.Clear()
TextBox17.Clear()

CheckBox1.CheckState = 0
End If
Catch Excep As Exception
MessageBox.Show(Excep.Message, “Error”, MessageBoxButtons.OK, MessageBoxIcon.Error) End Try
SQLCONN.Close()
End Sub

(MENUSTRIP “MANAGEMENT / ADMINISTRATOR INTERFACE” –
“LOG-OUT” MENU)

Private Sub LogoutAdministratorToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
LogoutAdministratorToolStripMenuItem.Click SQLCONN.Close()
Call connect()

Try
Dim ask As String
ask = MessageBox.Show(“Are you sure you want to log-out?”, “Administrator Log-out”, MessageBoxButtons.YesNo, MessageBoxIcon.Question) If ask = vbYes Then

Form1.Show()
Me.Hide()

Else
Me.Show()
End If
Catch Excep As Exception
MessageBox.Show(Excep.Message, “Error”, MessageBoxButtons.OK, MessageBoxIcon.Error) End Try
SQLCONN.Close()
End Sub

(MENUSTRIP “MANAGEMENT / ADMINISTRATOR INTERFACE” – “EXIT” MENU)

Private Sub ExitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem.Click SQLCONN.Close()
Call connect()

Try
Dim ask As String
ask = MessageBox.Show(“Are you sure you want to exit program?”, “EXIT”, MessageBoxButtons.YesNo, MessageBoxIcon.Question) If ask = vbYes Then
Me.Close()
Else
Me.Show()
End If
Catch Excep As Exception
MessageBox.Show(Excep.Message, “Error”, MessageBoxButtons.OK, MessageBoxIcon.Error) End Try
SQLCONN.Close()
End Sub

Related Topics

We can write a custom essay

According to Your Specific Requirements

Order an essay
icon
300+
Materials Daily
icon
100,000+ Subjects
2000+ Topics
icon
Free Plagiarism
Checker
icon
All Materials
are Cataloged Well

Sorry, but copying text is forbidden on this website. If you need this or any other sample, we can send it to you via email.

By clicking "SEND", you agree to our terms of service and privacy policy. We'll occasionally send you account related and promo emails.
Sorry, but only registered users have full access

How about getting this access
immediately?

Your Answer Is Very Helpful For Us
Thank You A Lot!

logo

Emma Taylor

online

Hi there!
Would you like to get such a paper?
How about getting a customized one?

Can't find What you were Looking for?

Get access to our huge, continuously updated knowledge base

The next update will be in:
14 : 59 : 59