travel management system project in vb net free download
#1

tour management system..or travel management system..
Reply
#2

travel management system project in vb net free download

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.

[cc lang=”vb”] 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
[/cc]
Reply

Important Note..!

If you are not satisfied with above reply ,..Please

ASK HERE

So that we will collect data for you and will made reply to the request....OR try below "QUICK REPLY" box to add a reply to this page
Popular Searches: asp net pdf travel project, travel management system project in asp net, travel tourism ppt report free download, vb net synopsis on online travel and tourism management system, project travel websites free download, travel management system project in php free download, travel management web application code download in php,

[-]
Quick Reply
Message
Type your reply to this message here.

Image Verification
Please enter the text contained within the image into the text box below it. This process is used to prevent automated spam bots.
Image Verification
(case insensitive)

Possibly Related Threads...
Thread Author Replies Views Last Post
  power plant instrumentation by krishnaswamy pdf free download 3 23,777 10-02-2019, 07:00 PM
Last Post:
  karmakshetra epaper in bengali this week pdf free download 5 12,921 01-02-2019, 11:28 PM
Last Post:
  optical networks by rajiv ramaswami free download 3 11,238 20-11-2018, 07:25 AM
Last Post:
  free download machine design 2 jbk das book pdf 2 11,018 30-05-2018, 11:39 AM
Last Post: [email protected]
  free download internal combustion engine by mathur sharma pdf 3 9,459 26-12-2017, 10:41 AM
Last Post: jaseela123d
  design of machine elements by jbk das pdf free download 4 11,686 04-12-2017, 03:07 PM
Last Post: jaseela123d
  vlsi textbook pdf by bakshi free download 4 9,520 25-10-2017, 03:02 PM
Last Post: pinky
  veta spoken english books pdf free download 3 2,148 20-09-2017, 07:33 AM
Last Post: Guest
  free download source code for online movie ticket booking in java 2 18,493 15-08-2017, 03:21 PM
Last Post: Morshed
  jelet book pdf file free download 4 5,924 28-06-2017, 10:01 PM
Last Post: Guest

Forum Jump: