productssummaryviewdialog.vb

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

Public Class ProductsSummaryViewDialog

    Private Sub EditMenuItemMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EditMenuItemMenuItem.Click
        Dim productsEditViewDialog As DisconnectedServiceAgentExample.ProductsEditViewDialog = DisconnectedServiceAgentExample.ProductsEditViewDialog.Instance(Me.ProductsBindingSource)
        productsEditViewDialog.ShowDialog()
        Me.Close()

    End Sub

    Private Sub ProductsSummaryViewDialog_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyDown
        If (e.KeyCode = System.Windows.Forms.Keys.Up) Then
            Me.AutoScrollPosition = New System.Drawing.Point(0, ((0 - Me.AutoScrollPosition.Y) _
                            - 16))
            e.Handled = True
        End If
        If (e.KeyCode = System.Windows.Forms.Keys.Down) Then
            Me.AutoScrollPosition = New System.Drawing.Point(0, ((0 - Me.AutoScrollPosition.Y) _
                            + 16))
            e.Handled = True
        End If
        If (e.KeyCode = System.Windows.Forms.Keys.Up) Then
            'Up
        End If
        If (e.KeyCode = System.Windows.Forms.Keys.Down) Then
            'Down
        End If
        If (e.KeyCode = System.Windows.Forms.Keys.Left) Then
            'Left
        End If
        If (e.KeyCode = System.Windows.Forms.Keys.Right) Then
            'Right
        End If
        If (e.KeyCode = System.Windows.Forms.Keys.Enter) Then
            'Enter
        End If

    End Sub

    Private Sub OrderMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OrderMenuItem.Click
        Dim ordResultSet As OrdersResultSet = New OrdersResultSet()
        Using ordResultSet
            ordResultSet.AddOrdersRecord(0, Int32.Parse(Me.ProductIdLabel1.Text), 1)

            Dim dlg As OrderProductDialog = New OrderProductDialog(ordResultSet)
            If dlg.ShowDialog() = DialogResult.Cancel Then
                ' Delete the record we just added
                ordResultSet.ReadLast()
                ordResultSet.DeleteRecord()
            End If
        End Using

    End Sub
End Class