mainform.vb

讲解visual studio的应用

Public Class MainForm

    Private Sub CustomerBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CustomerBindingNavigatorSaveItem.Click
        Me.Validate()
        Me.ContactBindingSource.EndEdit()
        Me.ContactTableAdapter.Update(Me.AdventureWorksDataSet.Contact)
        Me.CustomerBindingSource.EndEdit()
        Me.CustomerTableAdapter.Update(Me.AdventureWorksDataSet.Customer)
        Me.IndividualBindingSource.EndEdit()
        Me.IndividualTableAdapter.Update(Me.AdventureWorksDataSet.Individual)

    End Sub

    Private Sub MainForm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'TODO: This line of code loads data into the 'AdventureWorksDataSet.SalesOrderHeader' table. You can move, or remove it, as needed.
        Me.SalesOrderHeaderTableAdapter.Fill(Me.AdventureWorksDataSet.SalesOrderHeader)
        'TODO: This line of code loads data into the 'AdventureWorksDataSet.Contact' table. You can move, or remove it, as needed.
        Me.ContactTableAdapter.Fill(Me.AdventureWorksDataSet.Contact)
        'TODO: This line of code loads data into the 'AdventureWorksDataSet.Individual' table. You can move, or remove it, as needed.
        Me.IndividualTableAdapter.Fill(Me.AdventureWorksDataSet.Individual)
        Me.SalesTerritoryTableAdapter.Fill(Me.AdventureWorksDataSet.SalesTerritory)
        Me.CustomerTableAdapter.Fill(Me.AdventureWorksDataSet.Customer)

        Me.ControlValidator1.AddRules(CustomerValidationRules.Instance)

    End Sub

    Private Const cCustomerType As String = "I"
    Private Sub BindingNavigatorAddNewItem_Click(ByVal sender As System.Object, _
                                                 ByVal e As System.EventArgs) _
                                               Handles BindingNavigatorAddNewItem.Click

        Me.ManyToMany1.Suspended = True

        Dim drv As DataRowView

        'Create record in the Customer table       
        drv = TryCast(Me.CustomerBindingSource.AddNew, DataRowView)
        If drv Is Nothing Then Return
        Dim cr As AdventureWorksDataSet.CustomerRow = _
                                    TryCast(drv.Row, AdventureWorksDataSet.CustomerRow)
        If cr Is Nothing Then Return
        cr.rowguid = Guid.NewGuid
        cr.CustomerType = cCustomerType
        cr.ModifiedDate = Now

        'Create record in the Contact table
        drv = TryCast(Me.ContactBindingSource.AddNew, DataRowView)
        If drv Is Nothing Then Return
        Dim ct As AdventureWorksDataSet.ContactRow = _
                                     TryCast(drv.Row, AdventureWorksDataSet.ContactRow)
        If ct Is Nothing Then Return
        ct.NameStyle = True
        ct.PasswordSalt = ""
        ct.PasswordHash = ""
        ct.rowguid = Guid.NewGuid
        ct.ModifiedDate = Now

        'Create record in the Individual table
        drv = TryCast(Me.IndividualBindingSource.AddNew, DataRowView)
        If drv Is Nothing Then Return
        Dim indiv As AdventureWorksDataSet.IndividualRow = TryCast(drv.Row, AdventureWorksDataSet.IndividualRow)
        indiv.CustomerRow = cr
        indiv.ContactRow = ct
        indiv.ModifiedDate = Now

        Me.ManyToMany1.Suspended = False
    End Sub

End Class