![]() |
travel management system project in vb net free download - Printable Version +- Free Academic Seminars And Projects Reports (https://easyreport.in) +-- Forum: Seminars Topics And Discussions (https://easyreport.in/forumdisplay.php?fid=30) +--- Forum: Engineering Seminars Topics (https://easyreport.in/forumdisplay.php?fid=7) +---- Forum: Seminar Requests (https://easyreport.in/forumdisplay.php?fid=29) +---- Thread: travel management system project in vb net free download (/showthread.php?tid=22553) |
travel management system project in vb net free download - amit - 08-16-2017 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] |