1000 Projects

Travel Management System Project in Vb.Net

June 27, 2012

The main objective of developing & designing this Travel Management System Project in Vb.Net is to create online website for Travel agency’s. Travel agency is an effective mediator for passengers and travel companies. Here Passengers can book seats online with the help of this VB.Net web application. This project total size is more than 5 MB and providing all features from scratch level. All Students can download this Travel Management System for project reference purpose and make some modifications to improve their VB.net Coding Knowledge to develop a unique final year VB.net web application.


Here We are providing Sample Source code for Agent Type VB.net file, Save it as Agent_Type.vb in Travel Management System Project source code folder.

Imports System.data.oledb
Public Class Agent_Type
Inherits System.Windows.Forms.Form
Dim cmd, cmd1, cmd2 As New OleDbCommand
Dim da As New OleDbDataAdapter("select * from agent_type", con)
Dim ds As New DataSet
Dim t As New Form1
Dim recmode As EnuRecstatus
#Region " Windows Form Designer generated code "

Public Sub New()
MyBase.New()

'This call is required by the Windows Form Designer.
InitializeComponent()

'Add any initialization after the InitializeComponent() call

End Sub

'Form overrides dispose to clean up the component list.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub

'Required by the Windows Form Designer
Private components As System.ComponentModel.IContainer

'NOTE: The following procedure is required by the Windows Form Designer
'It can be modified using the Windows Form Designer.
'Do not modify it using the code editor.
Friend WithEvents Tabview As System.Windows.Forms.TabPage
Friend WithEvents Tabentry As System.Windows.Forms.TabPage
Friend WithEvents dbg As System.Windows.Forms.DataGrid
Friend WithEvents TXT_AGENTNAME As System.Windows.Forms.TextBox
Friend WithEvents TXT_AGENTID As System.Windows.Forms.TextBox
Friend WithEvents Label2 As System.Windows.Forms.Label
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
Friend WithEvents tbc_agenttypemaster As System.Windows.Forms.TabControl
Private Sub InitializeComponent()
Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(Agent_Type))
Me.tbc_agenttypemaster = New System.Windows.Forms.TabControl
Me.Tabview = New System.Windows.Forms.TabPage
Me.dbg = New System.Windows.Forms.DataGrid
Me.Tabentry = New System.Windows.Forms.TabPage
Me.GroupBox1 = New System.Windows.Forms.GroupBox
Me.TXT_AGENTNAME = New System.Windows.Forms.TextBox
Me.TXT_AGENTID = New System.Windows.Forms.TextBox
Me.Label2 = New System.Windows.Forms.Label
Me.Label1 = New System.Windows.Forms.Label
Me.tbc_agenttypemaster.SuspendLayout()
Me.Tabview.SuspendLayout()
CType(Me.dbg, System.ComponentModel.ISupportInitialize).BeginInit()
Me.Tabentry.SuspendLayout()
Me.GroupBox1.SuspendLayout()
Me.SuspendLayout()
'
'tbc_agenttypemaster
'
Me.tbc_agenttypemaster.Controls.Add(Me.Tabview)
Me.tbc_agenttypemaster.Controls.Add(Me.Tabentry)
Me.tbc_agenttypemaster.Font = New System.Drawing.Font("Verdana", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.tbc_agenttypemaster.Location = New System.Drawing.Point(0, 0)
Me.tbc_agenttypemaster.Name = "tbc_agenttypemaster"
Me.tbc_agenttypemaster.SelectedIndex = 0
Me.tbc_agenttypemaster.Size = New System.Drawing.Size(272, 136)
Me.tbc_agenttypemaster.TabIndex = 3
'
'Tabview
'
Me.Tabview.Controls.Add(Me.dbg)
Me.Tabview.Location = New System.Drawing.Point(4, 22)
Me.Tabview.Name = "Tabview"
Me.Tabview.Size = New System.Drawing.Size(264, 110)
Me.Tabview.TabIndex = 0
Me.Tabview.Text = "View"
'
'dbg
'
Me.dbg.CaptionVisible = False
Me.dbg.DataMember = ""
Me.dbg.HeaderForeColor = System.Drawing.SystemColors.ControlText
Me.dbg.Location = New System.Drawing.Point(8, 8)
Me.dbg.Name = "dbg"
Me.dbg.ReadOnly = True
Me.dbg.Size = New System.Drawing.Size(248, 80)
Me.dbg.TabIndex = 0
'
'Tabentry
'
Me.Tabentry.Controls.Add(Me.GroupBox1)
Me.Tabentry.Location = New System.Drawing.Point(4, 22)
Me.Tabentry.Name = "Tabentry"
Me.Tabentry.Size = New System.Drawing.Size(264, 110)
Me.Tabentry.TabIndex = 1
Me.Tabentry.Text = "Entry / Edit"
'
'GroupBox1
'
Me.GroupBox1.Controls.Add(Me.TXT_AGENTNAME)
Me.GroupBox1.Controls.Add(Me.TXT_AGENTID)
Me.GroupBox1.Controls.Add(Me.Label2)
Me.GroupBox1.Controls.Add(Me.Label1)
Me.GroupBox1.Location = New System.Drawing.Point(0, 0)
Me.GroupBox1.Name = "GroupBox1"
Me.GroupBox1.Size = New System.Drawing.Size(264, 104)
Me.GroupBox1.TabIndex = 0
Me.GroupBox1.TabStop = False
'
'TXT_AGENTNAME
'
Me.TXT_AGENTNAME.Location = New System.Drawing.Point(128, 64)
Me.TXT_AGENTNAME.MaxLength = 25
Me.TXT_AGENTNAME.Name = "TXT_AGENTNAME"
Me.TXT_AGENTNAME.Size = New System.Drawing.Size(128, 21)
Me.TXT_AGENTNAME.TabIndex = 1
Me.TXT_AGENTNAME.Text = ""
'
'TXT_AGENTID
'
Me.TXT_AGENTID.Location = New System.Drawing.Point(128, 24)
Me.TXT_AGENTID.MaxLength = 5
Me.TXT_AGENTID.Name = "TXT_AGENTID"
Me.TXT_AGENTID.Size = New System.Drawing.Size(48, 21)
Me.TXT_AGENTID.TabIndex = 0
Me.TXT_AGENTID.Text = ""
'
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.Location = New System.Drawing.Point(8, 64)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(117, 17)
Me.Label2.TabIndex = 1
Me.Label2.Text = "Agent Type Name *"
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Location = New System.Drawing.Point(8, 24)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(96, 17)
Me.Label1.TabIndex = 0
Me.Label1.Text = "Agent Type Id *"
'
'Agent_Type
'
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.ClientSize = New System.Drawing.Size(272, 133)
Me.Controls.Add(Me.tbc_agenttypemaster)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedSingle
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.MaximizeBox = False
Me.MinimizeBox = False
Me.Name = "Agent_Type"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "Agent Type "
Me.tbc_agenttypemaster.ResumeLayout(False)
Me.Tabview.ResumeLayout(False)
CType(Me.dbg, System.ComponentModel.ISupportInitialize).EndInit()
Me.Tabentry.ResumeLayout(False)
Me.GroupBox1.ResumeLayout(False)
Me.ResumeLayout(False)

End Sub

#End Region
Private Sub Agent_Type_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
' Tool Bar buttons enabled and disabled while form load

Dim objfrmmdi As Object
objfrmmdi = Me.MdiParent
objfrmmdi.setfrmload()

'*****************************Form Load*****************
tbc_agenttypemaster.SelectedTab = Tabentry
TXT_AGENTID.ReadOnly = True
TXT_AGENTNAME.ReadOnly = True
End Sub
Public Sub lock()
'Locks The Controls
TXT_AGENTID.ReadOnly = True
TXT_AGENTNAME.ReadOnly = True
End Sub
Public Sub clearproc()
'**********************Textboxes Clearing***************
Dim ctrl As Control
For Each ctrl In Me.GroupBox1.Controls
If TypeOf ctrl Is TextBox Then
ctrl.Text = ""
End If
Next
End Sub
Public Sub NEWPROC()
'**********************Form Status As New Mode**********
recmode = Module1.EnuRecstatus.Recnew
'**********************Clears The Controls**************
clearproc()
'**********************Unlock The Controls**************
TXT_AGENTID.ReadOnly = False
TXT_AGENTNAME.ReadOnly = False
TXT_AGENTID.Focus()
End Sub
Public Sub saveproc()
If TXT_AGENTID.Text = "" Then
MsgBox("YOU MUST ENTER THE AGENT TYPE ID", MsgBoxStyle.OKOnly, Prjtitle)
TXT_AGENTID.Focus()
Exit Sub
End If
If TXT_AGENTNAME.Text = "" Then
MsgBox("YOU MUST ENTER THE AGENT NAME", MsgBoxStyle.OKOnly, Prjtitle)
TXT_AGENTNAME.Focus()
Exit Sub
End If
Label1.Focus()
'********Database Checking Record is Exist or Not*******
Try
If recmode = Module1.EnuRecstatus.Recnew Then
Openconnection()
Dim X As Integer = 0
cmd = New OleDbCommand("SELECT COUNT(*) FROM AGENT_TYPE WHERE AGENTTYPEID='" & TXT_AGENTID.Text & " '", con)
X = cmd.ExecuteScalar
If X <> 0 Then
MsgRecexist()
clearproc()
lock()
Exit Sub
Else
cmd1 = New OleDbCommand("insert into agent_type values('" & TXT_AGENTID.Text & "','" & TXT_AGENTNAME.Text & "')", con)
cmd1.ExecuteNonQuery()
lock()
End If
ElseIf recmode = Module1.EnuRecstatus.Recedit Then
Openconnection()
cmd2 = New OleDbCommand("update Agent_Type set agenttypname ='" & TXT_AGENTNAME.Text & "' WHERE AGENTTYPEID='" & TXT_AGENTID.Text & "'", con)
cmd2.ExecuteNonQuery()
lock()
End If
MsgSav()
clearproc()
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.OKOnly, Prjtitle)
CloseConnection()
Exit Sub
Finally
CloseConnection()
End Try

End Sub
Public Sub editproc()
'************************To Edit Record*****************
recmode = Module1.EnuRecstatus.Recedit
'Lock Controls
TXT_AGENTID.ReadOnly = True
'Unlock Control
TXT_AGENTNAME.ReadOnly = False

End Sub
Public Sub delproc()
'************************To Delete Record***************
Try
If MsgDelAlert() = vbNo Then Exit Sub
Dim x As Integer
Openconnection()
Dim str1 As String
str1 = "select count(*) from agentmaster where agenttypeid='" & TXT_AGENTID.Text & "'"
cmd = New OleDb.OleDbCommand(str1, con)
x = cmd.ExecuteScalar
If x >= 1 Then
'Record is Mapped in Master Table
MsgRecUsed()
Exit Sub
Else
Dim str As String = "delete from agent_type where agenttypeid='" & TXT_AGENTID.Text & "'"
cmd = New OleDbCommand(str, con)
cmd.ExecuteNonQuery()
MsgDel()
lock()
End If
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.OKOnly, Prjtitle)
CloseConnection()
Exit Sub
Finally
clearproc()
CloseConnection()
End Try
End Sub

Public Sub CLOSEPROC()
'Form Closing
Me.Close()
End Sub
Private Sub Tbc_click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tbc_agenttypemaster.Click
ds.Clear()
'Data Grid Filling
If tbc_agenttypemaster.SelectedTab.Text = "View" Then
da.Fill(ds, "AGENT_TYPE")
dbg.DataSource = ds.Tables("AGENT_TYPE")
End If
End Sub
Private Sub dbg_DoubleClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles dbg.DoubleClick
'Filling Of TextBoxes
Dim i As String
Dim k As Integer
Dim dr As OleDb.OleDbDataReader
'Lock The Controls
TXT_AGENTID.ReadOnly = True
TXT_AGENTNAME.ReadOnly = True
k = dbg.CurrentRowIndex
i = dbg.Item(k, 0)
Openconnection()
cmd = New OleDbCommand("select * from agent_type where agenttypeid='" & i & "'", con)
dr = cmd.ExecuteReader
dr.Read()
TXT_AGENTID.Text = dr(0)
TXT_AGENTNAME.Text = dr(1)
tbc_agenttypemaster.SelectedTab = Tabentry
CloseConnection()
'Tool Bar buttons enabled and disabled while viewing the record.
Dim objfrmmdi1 As Object
objfrmmdi1 = Me.MdiParent
objfrmmdi1.setdblclick()

End Sub

Private Sub TXT_AGENTID_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TXT_AGENTID.KeyPress
'TextBox takes only Text and Number
textandnumbers(e)
End Sub

Private Sub TXT_AGENTNAME_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TXT_AGENTNAME.KeyPress
'It Takes only text
textonly(e)
End Sub

Private Sub TXT_AGENTID_Leave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TXT_AGENTID.Leave
'Converts First letter into Caps
firstcap(TXT_AGENTID)
End Sub

Private Sub TXT_AGENTNAME_Leave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TXT_AGENTNAME.Leave
'Converts First letter into Caps
firstcap(TXT_AGENTNAME)
End Sub
End Class

Click Here to Download the Travel Management System Project in Vb.Net with Abstract, PPT, paper presentation, Seminar Topic, Documentation and Project report.

 


The following two tabs change content below.
Hi, Find more on FB...

Latest posts by Ramesh Gavva/Kasarla shanthan (see all)

posted in .Net Projects, CSE Mini Projects, CSE Projects with Source Code, VB projects by Ramesh Gavva/Kasarla shanthan

Follow comments via the RSS Feed | Leave a comment | Trackback URL


‹‹‹ Travel Management System Project

Soft Computing Technique (PLE) for Target Tracking ›››

Custom Search

Leave Your Comment

 
Copyright 2014 | Powered by 1000Projects.org | Developed by WikiHands.