productcategoriesform.vb

来自「清华大学出版社出版的 移动应用开发宝典 张大威（2008）的附书源代码」· VB 代码 · 共 26 行

Public Class ProductCategoriesForm

    Private ProductCategoryResultSet As SQLCEDataSourceQuickUI.ProductCategoryResultSet
    Private Sub ProductCategoriesForm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'TODO: Delete this line of code to remove the default AutoFill for 'SQLCEDataSourceQuickUI.ProductCategoryResultSet'.
        ProductCategoryResultSet = New SQLCEDataSourceQuickUI.ProductCategoryResultSet
        ProductCategoryResultSet.Bind(Me.ProductCategoryResultSetBindingSource)

    End Sub

    Private Sub ProductCategoryResultSetDataGrid_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ProductCategoryResultSetDataGrid.Click
        ShowEditDialog()
    End Sub

    Private Sub newMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles newMenuItem.Click
        ProductCategoryResultSetBindingSource.AddNew()
        ShowEditDialog()
    End Sub

    Private Function ShowEditDialog()
        Dim productcategoryEditViewDialog As ProductCategoryEditViewDialog = _
        productcategoryEditViewDialog.Instance(Me.ProductCategoryResultSetBindingSource)
        productcategoryEditViewDialog.ShowDialog()

    End Function
End Class