frmagent.vb

humar resourse management

        Me.dgAgent.GridLineColor = System.Drawing.Color.Gainsboro
        Me.dgAgent.GridLineStyle = System.Windows.Forms.DataGridLineStyle.None
        Me.dgAgent.HeaderBackColor = System.Drawing.Color.MidnightBlue
        Me.dgAgent.HeaderFont = New System.Drawing.Font("Tahoma", 8.0!, System.Drawing.FontStyle.Bold)
        Me.dgAgent.HeaderForeColor = System.Drawing.Color.WhiteSmoke
        Me.dgAgent.LinkColor = System.Drawing.Color.Teal
        Me.dgAgent.Location = New System.Drawing.Point(19, 96)
        Me.dgAgent.Name = "dgAgent"
        Me.dgAgent.ParentRowsBackColor = System.Drawing.Color.Gainsboro
        Me.dgAgent.ParentRowsForeColor = System.Drawing.Color.MidnightBlue
        Me.dgAgent.SelectionBackColor = System.Drawing.Color.CadetBlue
        Me.dgAgent.SelectionForeColor = System.Drawing.Color.WhiteSmoke
        Me.dgAgent.Size = New System.Drawing.Size(768, 184)
        Me.dgAgent.TabIndex = 25
        Me.dgAgent.TableStyles.AddRange(New System.Windows.Forms.DataGridTableStyle() {Me.DataGridTableStyle1})
        '
        'DataGridTableStyle1
        '
        Me.DataGridTableStyle1.AlternatingBackColor = System.Drawing.Color.FromArgb(CType(112, Byte), CType(227, Byte), CType(252, Byte))
        Me.DataGridTableStyle1.BackColor = System.Drawing.Color.FromArgb(CType(112, Byte), CType(227, Byte), CType(252, Byte))
        Me.DataGridTableStyle1.DataGrid = Me.dgAgent
        Me.DataGridTableStyle1.GridColumnStyles.AddRange(New System.Windows.Forms.DataGridColumnStyle() {Me.ID, Me.AName, Me.Address, Me.City, Me.Pincode, Me.Phone, Me.Mobile, Me.Fax, Me.Email, Me.ContactPerson})
        Me.DataGridTableStyle1.GridLineColor = System.Drawing.Color.FromArgb(CType(84, Byte), CType(81, Byte), CType(223, Byte))
        Me.DataGridTableStyle1.HeaderBackColor = System.Drawing.Color.FromArgb(CType(84, Byte), CType(81, Byte), CType(223, Byte))
        Me.DataGridTableStyle1.HeaderForeColor = System.Drawing.Color.Yellow
        Me.DataGridTableStyle1.MappingName = "Agent"
        Me.DataGridTableStyle1.PreferredRowHeight = 32
        Me.DataGridTableStyle1.ReadOnly = True
        Me.DataGridTableStyle1.RowHeadersVisible = False
        '
        'ID
        '
        Me.ID.Format = ""
        Me.ID.FormatInfo = Nothing
        Me.ID.HeaderText = "ID"
        Me.ID.MappingName = "ID"
        Me.ID.ReadOnly = True
        Me.ID.Width = 30
        '
        'AName
        '
        Me.AName.Format = ""
        Me.AName.FormatInfo = Nothing
        Me.AName.HeaderText = "Agent Name"
        Me.AName.MappingName = "Name"
        Me.AName.ReadOnly = True
        Me.AName.Width = 150
        '
        'Address
        '
        Me.Address.Format = ""
        Me.Address.FormatInfo = Nothing
        Me.Address.HeaderText = "Address"
        Me.Address.MappingName = "Address"
        Me.Address.ReadOnly = True
        Me.Address.Width = 200
        '
        'City
        '
        Me.City.Format = ""
        Me.City.FormatInfo = Nothing
        Me.City.HeaderText = "City"
        Me.City.MappingName = "City"
        Me.City.Width = 135
        '
        'Pincode
        '
        Me.Pincode.Format = ""
        Me.Pincode.FormatInfo = Nothing
        Me.Pincode.MappingName = "Pincode"
        Me.Pincode.Width = 0
        '
        'Phone
        '
        Me.Phone.Format = ""
        Me.Phone.FormatInfo = Nothing
        Me.Phone.HeaderText = "Phone Number"
        Me.Phone.MappingName = "Phone"
        Me.Phone.ReadOnly = True
        Me.Phone.Width = 105
        '
        'Mobile
        '
        Me.Mobile.Format = ""
        Me.Mobile.FormatInfo = Nothing
        Me.Mobile.MappingName = "Mobile"
        Me.Mobile.Width = 0
        '
        'Fax
        '
        Me.Fax.Format = ""
        Me.Fax.FormatInfo = Nothing
        Me.Fax.MappingName = "Fax"
        Me.Fax.Width = 0
        '
        'Email
        '
        Me.Email.Format = ""
        Me.Email.FormatInfo = Nothing
        Me.Email.MappingName = "Email"
        Me.Email.Width = 0
        '
        'ContactPerson
        '
        Me.ContactPerson.Format = ""
        Me.ContactPerson.FormatInfo = Nothing
        Me.ContactPerson.HeaderText = "Contact Person"
        Me.ContactPerson.MappingName = "ContactPerson"
        Me.ContactPerson.ReadOnly = True
        Me.ContactPerson.Width = 140
        '
        'btnDelete
        '
        Me.btnDelete.BackColor = System.Drawing.Color.Chocolate
        Me.btnDelete.FlatStyle = System.Windows.Forms.FlatStyle.Flat
        Me.btnDelete.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.btnDelete.ForeColor = System.Drawing.Color.Black
        Me.btnDelete.Location = New System.Drawing.Point(466, 56)
        Me.btnDelete.Name = "btnDelete"
        Me.btnDelete.TabIndex = 13
        Me.btnDelete.Text = "&Delete"
        '
        'btnCancel
        '
        Me.btnCancel.BackColor = System.Drawing.Color.Chocolate
        Me.btnCancel.FlatStyle = System.Windows.Forms.FlatStyle.Flat
        Me.btnCancel.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.btnCancel.ForeColor = System.Drawing.Color.Black
        Me.btnCancel.Location = New System.Drawing.Point(566, 56)
        Me.btnCancel.Name = "btnCancel"
        Me.btnCancel.TabIndex = 14
        Me.btnCancel.Text = "Ca&ncel"
        '
        'DA
        '
        Me.DA.DeleteCommand = Me.OleDbDeleteCommand1
        Me.DA.InsertCommand = Me.OleDbInsertCommand1
        Me.DA.SelectCommand = Me.OleDbSelectCommand1
        Me.DA.TableMappings.AddRange(New System.Data.Common.DataTableMapping() {New System.Data.Common.DataTableMapping("Table", "Agent", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("Address", "Address"), New System.Data.Common.DataColumnMapping("City", "City"), New System.Data.Common.DataColumnMapping("ContactPerson", "ContactPerson"), New System.Data.Common.DataColumnMapping("Email", "Email"), New System.Data.Common.DataColumnMapping("Fax", "Fax"), New System.Data.Common.DataColumnMapping("ID", "ID"), New System.Data.Common.DataColumnMapping("Mobile", "Mobile"), New System.Data.Common.DataColumnMapping("Name", "Name"), New System.Data.Common.DataColumnMapping("Phone", "Phone"), New System.Data.Common.DataColumnMapping("Pincode", "Pincode")})})
        Me.DA.UpdateCommand = Me.OleDbUpdateCommand1
        '
        'OleDbDeleteCommand1
        '
        Me.OleDbDeleteCommand1.CommandText = "DELETE FROM Agent WHERE (ID = ?) AND (Address = ? OR ? IS NULL AND Address IS NUL" & _
        "L) AND (City = ? OR ? IS NULL AND City IS NULL) AND (ContactPerson = ? OR ? IS N" & _
        "ULL AND ContactPerson IS NULL) AND (Email = ? OR ? IS NULL AND Email IS NULL) AN" & _
        "D (Fax = ? OR ? IS NULL AND Fax IS NULL) AND (Mobile = ? OR ? IS NULL AND Mobile" & _
        " IS NULL) AND (Name = ? OR ? IS NULL AND Name IS NULL) AND (Phone = ? OR ? IS NU" & _
        "LL AND Phone IS NULL) AND (Pincode = ? OR ? IS NULL AND Pincode IS NULL)"
        Me.OleDbDeleteCommand1.Connection = Me.OleDbConnection3
        Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_ID", System.Data.OleDb.OleDbType.Integer, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "ID", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Address", System.Data.OleDb.OleDbType.VarWChar, 100, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Address", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Address1", System.Data.OleDb.OleDbType.VarWChar, 100, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Address", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_City", System.Data.OleDb.OleDbType.VarWChar, 30, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "City", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_City1", System.Data.OleDb.OleDbType.VarWChar, 30, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "City", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_ContactPerson", System.Data.OleDb.OleDbType.VarWChar, 30, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "ContactPerson", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_ContactPerson1", System.Data.OleDb.OleDbType.VarWChar, 30, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "ContactPerson", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Email", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Email", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Email1", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Email", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Fax", System.Data.OleDb.OleDbType.VarWChar, 15, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Fax", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Fax1", System.Data.OleDb.OleDbType.VarWChar, 15, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Fax", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Mobile", System.Data.OleDb.OleDbType.VarWChar, 10, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Mobile", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Mobile1", System.Data.OleDb.OleDbType.VarWChar, 10, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Mobile", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Name", System.Data.OleDb.OleDbType.VarWChar, 30, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Name", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Name1", System.Data.OleDb.OleDbType.VarWChar, 30, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Name", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Phone", System.Data.OleDb.OleDbType.VarWChar, 15, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Phone", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Phone1", System.Data.OleDb.OleDbType.VarWChar, 15, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Phone", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Pincode", System.Data.OleDb.OleDbType.VarWChar, 6, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Pincode", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Pincode1", System.Data.OleDb.OleDbType.VarWChar, 6, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Pincode", System.Data.DataRowVersion.Original, Nothing))
        '
        'OleDbConnection3
        '
        Me.OleDbConnection3.ConnectionString = "Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Registry Path=;Jet OLEDB:Database L" & _
        "ocking Mode=1;Data Source=""..\HRMS.mdb"";Jet OLEDB:Engine Type=5;Provider=""Mi" & _
        "crosoft.Jet.OLEDB.4.0"";Jet OLEDB:System database=;Jet OLEDB:SFP=False;persist se" & _
        "curity info=False;Extended Properties=;Mode=Share Deny None;Jet OLEDB:Encrypt Da" & _
        "tabase=False;Jet OLEDB:Create System Database=False;Jet OLEDB:Don't Copy Locale " & _
        "on Compact=False;Jet OLEDB:Compact Without Replica Repair=False;User ID=Admin;Je" & _
        "t OLEDB:Global Bulk Transactions=1"
        '
        'OleDbInsertCommand1
        '
        Me.OleDbInsertCommand1.CommandText = "INSERT INTO Agent(Address, City, ContactPerson, Email, Fax, Mobile, Name, Phone, " & _
        "Pincode) VALUES (?, ?, ?, ?, ?, ?, ?, ?, ?)"
        Me.OleDbInsertCommand1.Connection = Me.OleDbConnection3
        Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Address", System.Data.OleDb.OleDbType.VarWChar, 100, "Address"))
        Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("City", System.Data.OleDb.OleDbType.VarWChar, 30, "City"))
        Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("ContactPerson", System.Data.OleDb.OleDbType.VarWChar, 30, "ContactPerson"))
        Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Email", System.Data.OleDb.OleDbType.VarWChar, 50, "Email"))
        Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Fax", System.Data.OleDb.OleDbType.VarWChar, 15, "Fax"))
        Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Mobile", System.Data.OleDb.OleDbType.VarWChar, 10, "Mobile"))
        Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Name", System.Data.OleDb.OleDbType.VarWChar, 30, "Name"))
        Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Phone", System.Data.OleDb.OleDbType.VarWChar, 15, "Phone"))
        Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Pincode", System.Data.OleDb.OleDbType.VarWChar, 6, "Pincode"))
        '
        'OleDbSelectCommand1
        '
        Me.OleDbSelectCommand1.CommandText = "SELECT Address, City, ContactPerson, Email, Fax, ID, Mobile, Name, Phone, Pincode" & _
        " FROM Agent"
        Me.OleDbSelectCommand1.Connection = Me.OleDbConnection3
        '
        'OleDbUpdateCommand1
        '
        Me.OleDbUpdateCommand1.CommandText = "UPDATE Agent SET Address = ?, City = ?, ContactPerson = ?, Email = ?, Fax = ?, Mo" & _
        "bile = ?, Name = ?, Phone = ?, Pincode = ? WHERE (ID = ?) AND (Address = ? OR ? " & _
        "IS NULL AND Address IS NULL) AND (City = ? OR ? IS NULL AND City IS NULL) AND (C" & _
        "ontactPerson = ? OR ? IS NULL AND ContactPerson IS NULL) AND (Email = ? OR ? IS " & _
        "NULL AND Email IS NULL) AND (Fax = ? OR ? IS NULL AND Fax IS NULL) AND (Mobile =" & _
        " ? OR ? IS NULL AND Mobile IS NULL) AND (Name = ? OR ? IS NULL AND Name IS NULL)" & _
        " AND (Phone = ? OR ? IS NULL AND Phone IS NULL) AND (Pincode = ? OR ? IS NULL AN" & _
        "D Pincode IS NULL)"
        Me.OleDbUpdateCommand1.Connection = Me.OleDbConnection3
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Address", System.Data.OleDb.OleDbType.VarWChar, 100, "Address"))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("City", System.Data.OleDb.OleDbType.VarWChar, 30, "City"))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("ContactPerson", System.Data.OleDb.OleDbType.VarWChar, 30, "ContactPerson"))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Email", System.Data.OleDb.OleDbType.VarWChar, 50, "Email"))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Fax", System.Data.OleDb.OleDbType.VarWChar, 15, "Fax"))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Mobile", System.Data.OleDb.OleDbType.VarWChar, 10, "Mobile"))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Name", System.Data.OleDb.OleDbType.VarWChar, 30, "Name"))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Phone", System.Data.OleDb.OleDbType.VarWChar, 15, "Phone"))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Pincode", System.Data.OleDb.OleDbType.VarWChar, 6, "Pincode"))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_ID", System.Data.OleDb.OleDbType.Integer, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "ID", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Address", System.Data.OleDb.OleDbType.VarWChar, 100, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Address", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Address1", System.Data.OleDb.OleDbType.VarWChar, 100, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Address", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_City", System.Data.OleDb.OleDbType.VarWChar, 30, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "City", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_City1", System.Data.OleDb.OleDbType.VarWChar, 30, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "City", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_ContactPerson", System.Data.OleDb.OleDbType.VarWChar, 30, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "ContactPerson", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_ContactPerson1", System.Data.OleDb.OleDbType.VarWChar, 30, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "ContactPerson", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Email", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Email", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Email1", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Email", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_Fax", System.Data.OleDb.OleDbType.VarWChar, 15, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Fax", System.Data.DataRowVersion.Original, Nothing))