frmagent.vb

humar resourse management

        Me.OleDbUpdateCommand1.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.OleDbUpdateCommand1.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.OleDbUpdateCommand1.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.OleDbUpdateCommand1.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.OleDbUpdateCommand1.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.OleDbUpdateCommand1.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.OleDbUpdateCommand1.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.OleDbUpdateCommand1.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.OleDbUpdateCommand1.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))
        '
        'OleDbConnection2
        '
        Me.OleDbConnection2.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"
        '
        'OleDbConnection1
        '
        Me.OleDbConnection1.ConnectionString = "Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Registry Path=;Jet OLEDB:Database L" & _
        "ocking Mode=1;Jet OLEDB:Database Password=;Data Source=""D:\DOTNET\vbnet\Part2\Ma" & _
        "npower.mdb"";Password=;Jet OLEDB:Engine Type=5;Jet OLEDB:Global Bulk Transactions" & _
        "=1;Provider=""Microsoft.Jet.OLEDB.4.0"";Jet OLEDB:System database=;Jet OLEDB:SFP=F" & _
        "alse;Extended Properties=;Mode=Share Deny None;Jet OLEDB:New Database Password=;" & _
        "Jet OLEDB:Create System Database=False;Jet OLEDB:Don't Copy Locale on Compact=Fa" & _
        "lse;Jet OLEDB:Compact Without Replica Repair=False;User ID=Admin;Jet OLEDB:Encry" & _
        "pt Database=False"
        '
        'Label11
        '
        Me.Label11.BackColor = System.Drawing.SystemColors.Control
        Me.Label11.FlatStyle = System.Windows.Forms.FlatStyle.Flat
        Me.Label11.Font = New System.Drawing.Font("Arial Narrow", 16.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Label11.ForeColor = System.Drawing.Color.Black
        Me.Label11.Location = New System.Drawing.Point(341, 8)
        Me.Label11.Name = "Label11"
        Me.Label11.Size = New System.Drawing.Size(125, 24)
        Me.Label11.TabIndex = 29
        Me.Label11.Text = "Agent Details"
        '
        'frmAgent
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 13)
        Me.BackColor = System.Drawing.SystemColors.Control
        Me.ClientSize = New System.Drawing.Size(806, 490)
        Me.Controls.Add(Me.Label11)
        Me.Controls.Add(Me.btnCancel)
        Me.Controls.Add(Me.btnDelete)
        Me.Controls.Add(Me.dgAgent)
        Me.Controls.Add(Me.pnlDetails)
        Me.Controls.Add(Me.btnClose)
        Me.Controls.Add(Me.btnSave)
        Me.Controls.Add(Me.btnEdit)
        Me.Controls.Add(Me.btnNew)
        Me.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedToolWindow
        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
        Me.MaximizeBox = False
        Me.MinimizeBox = False
        Me.Name = "frmAgent"
        Me.ShowInTaskbar = False
        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
        Me.Text = "     Agent Details"
        Me.TransparencyKey = System.Drawing.Color.White
        Me.pnlDetails.ResumeLayout(False)
        CType(Me.Ds1, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.dgAgent, System.ComponentModel.ISupportInitialize).EndInit()
        Me.ResumeLayout(False)

    End Sub

#End Region

    Private Sub Agent_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        DA.Fill(Ds1, "Agent")
        txtName.ReadOnly = True
        btnSave.Enabled = False
        btnCancel.Enabled = False
        btnEdit.Enabled = False
        btnDelete.Enabled = False
    End Sub
    Private Sub btnNew_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnNew.Click
        Operation = "NEW"
        Clear()
        ROFalse()
        btnEdit.Enabled = False
        btnDelete.Enabled = False
        btnNew.Enabled = False
        btnSave.Enabled = True
        btnCancel.Enabled = True
        dgAgent.Enabled = False
    End Sub
    Private Sub btnEdit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEdit.Click
        Operation = "EDIT"
        ROFalse()
        btnEdit.Enabled = False
        btnNew.Enabled = False
        btnCancel.Enabled = True
        btnSave.Enabled = True
        btnDelete.Enabled = False
        dgAgent.Enabled = False
    End Sub
    Private Sub dgAgent_CurrentCellChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles dgAgent.CurrentCellChanged
        btnEdit.Enabled = True
        btnDelete.Enabled = True
        cid = Val(dgAgent.Item(dgAgent.CurrentRowIndex(), 0).ToString())
    End Sub
    Dim TmpTable As DataTable
    Dim TmpRow As DataRow
    Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSave.Click
        oDetails = New Details
        Store()
        Dim iStatus As Boolean = oValidation.Field(oDetails, "Agent")
        If iStatus Then
            TmpTable = Ds1.Tables("Agent")
            If Operation = "NEW" Then
                TmpRow = TmpTable.NewRow()
                TmpRow("Name") = txtName.Text
                TmpRow("ContactPerson") = txtContact.Text
                TmpRow("Address") = txtAddress.Text
                TmpRow("City") = txtCity.Text
                TmpRow("Pincode") = txtPincode.Text
                TmpRow("Phone") = txtPhone.Text
                TmpRow("Mobile") = txtMobile.Text
                TmpRow("Fax") = txtFax.Text
                TmpRow("Email") = txtEmail.Text
                TmpTable.Rows.Add(TmpRow)
            Else
                If Operation = "EDIT" Then
                    TmpRow = TmpTable.Rows.Find(cid)
                    TmpRow.BeginEdit()
                    TmpRow("Name") = txtName.Text
                    TmpRow("ContactPerson") = txtContact.Text
                    TmpRow("Address") = txtAddress.Text
                    TmpRow("City") = txtCity.Text
                    TmpRow("Pincode") = txtPincode.Text
                    TmpRow("Phone") = txtPhone.Text
                    TmpRow("Mobile") = txtMobile.Text
                    TmpRow("Fax") = txtFax.Text
                    TmpRow("Email") = txtEmail.Text
                    TmpRow.EndEdit()
                End If
            End If
            DAUpdate()
            ROTrue()
            Operation = ""
            btnNew.Enabled = True
            btnClose.Enabled = True
            btnCancel.Enabled = False
            btnSave.Enabled = False
            dgAgent.Enabled = True
        End If
    End Sub
    Sub ROTrue()
        txtName.ReadOnly = True
        txtContact.ReadOnly = True
        txtAddress.ReadOnly = True
        txtCity.ReadOnly = True
        txtPincode.ReadOnly = True
        txtPhone.ReadOnly = True
        txtFax.ReadOnly = True
        txtMobile.ReadOnly = True
        txtEmail.ReadOnly = True
    End Sub
    Sub ROFalse()
        txtName.ReadOnly = False
        txtContact.ReadOnly = False
        txtAddress.ReadOnly = False
        txtCity.ReadOnly = False
        txtPincode.ReadOnly = False
        txtPhone.ReadOnly = False
        txtFax.ReadOnly = False
        txtMobile.ReadOnly = False
        txtEmail.ReadOnly = False
    End Sub
    Sub DAUpdate()
        DA.Update(Ds1, "Agent")
        DA.Fill(Ds1, "Agent")
    End Sub
    Private Sub btnDelete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDelete.Click
        TmpTable = Ds1.Tables("Agent")
        TmpRow = TmpTable.Rows.Find(cid)
        If (MessageBox.Show("Do You Want to Delete the Current Record ?", "Delete Confirmation", MessageBoxButtons.YesNo, MessageBoxIcon.Question, MessageBoxDefaultButton.Button2) = DialogResult.Yes) Then
            TmpRow.Delete()
            DAUpdate()
        End If
    End Sub
    Private Sub btnCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCancel.Click
        btnNew.Enabled = True
        btnClose.Enabled = True
        btnCancel.Enabled = False
        btnSave.Enabled = False
        dgAgent.Enabled = True
        ROTrue()
        Clear()
        DAUpdate()
    End Sub
    Private Sub btnClose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClose.Click
        Me.Close()
    End Sub
    Sub Clear()
        txtName.Text = ""
        txtContact.Text = ""
        txtAddress.Text = ""
        txtCity.Text = ""
        txtPincode.Text = ""
        txtPhone.Text = ""
        txtFax.Text = ""
        txtMobile.Text = ""
        txtEmail.Text = ""
    End Sub
    Sub Store()
        oDetails.AgName = txtName.Text
        oDetails.AgContact = txtContact.Text
        oDetails.AgAddress = txtAddress.Text
        oDetails.AgCity = txtCity.Text
        oDetails.AgPincode = txtPincode.Text
        oDetails.AgPhone = txtPhone.Text
        oDetails.AgMobile = txtMobile.Text
        oDetails.AgFax = txtFax.Text
        oDetails.AgEmail = txtEmail.Text
    End Sub

    Private Sub dgAgent_Navigate(ByVal sender As System.Object, ByVal ne As System.Windows.Forms.NavigateEventArgs) Handles dgAgent.Navigate

    End Sub
End Class