reserveform.vb

千寻销售系统 文件说明：一个采用三层结构的分部式应用程序

                    End Select
                End If
            End If
        End If
    End Sub

    Private Sub Refurbish()
        '注册远程代理
        ReserveClass = New ClassLibrary.ReserveClass
        Ds = ReserveClass.Refurbish
        '将数据绑到记录集
        ReserveFormDataGridView.DataSource = Ds.Tables(0)
    End Sub

#End Region

#Region " 文本框事件代码 "

    Private Sub ReserveFormNumberTextBox_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles ReserveFormNumberTextBox.GotFocus
        '
        TB = ReserveFormNumberTextBox

        ReserveFormHelpListBox.Visible = True
        ReserveFormHelpListBox.Top = ReserveFormNumberTextBox.Top
        '调用函数
        If ReserveFormNumberTextBox.Focus = True Then
            ListDatarows(Trim(ReserveFormNumberTextBox.Text))
        End If

    End Sub

    Private Sub ReserveFormNumberTextBox_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ReserveFormNumberTextBox.TextChanged
        '调用函数
        If ReserveFormNumberTextBox.Focus = True Then
            ListDatarows(Trim(ReserveFormNumberTextBox.Text))
        End If
    End Sub

    Private Sub ReserveFormNameTextBox_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles ReserveFormNameTextBox.GotFocus
        '
        TB = ReserveFormNameTextBox

        ReserveFormHelpListBox.Visible = True
        ReserveFormHelpListBox.Top = ReserveFormNameTextBox.Top
        '调用函数
        If ReserveFormNameTextBox.Focus = True Then
            ListDatarows(Trim(ReserveFormNameTextBox.Text))
        End If

    End Sub

    Private Sub ReserveFormNameTextBox_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ReserveFormNameTextBox.TextChanged
        '调用函数
        If ReserveFormNameTextBox.Focus = True Then
            ListDatarows(Trim(ReserveFormNameTextBox.Text))
        End If
    End Sub

    Private Sub ReserveFormGroupNumberTextBox_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles ReserveFormGroupNumberTextBox.GotFocus
        ReserveFormHelpListBox.Visible = False

    End Sub

    Private Sub ReserveFormGroupNumberTextBox_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ReserveFormGroupNumberTextBox.TextChanged

    End Sub

    Private Sub ReserveFormGroupTextBox_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles ReserveFormGroupTextBox.GotFocus
        ReserveFormHelpListBox.Visible = False

    End Sub

    Private Sub ReserveFormGroupTextBox_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ReserveFormGroupTextBox.TextChanged

    End Sub

    Private Sub ReserveFormNnitTextBox_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles ReserveFormNnitTextBox.GotFocus
        ReserveFormHelpListBox.Visible = False

    End Sub

    Private Sub ReserveFormNnitTextBox_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ReserveFormNnitTextBox.TextChanged

    End Sub

    Private Sub ReserveFormDanweiTextBox_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles ReserveFormDanweiTextBox.GotFocus
        ReserveFormHelpListBox.Visible = False

    End Sub

    Private Sub ReserveFormDanweiTextBox_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ReserveFormDanweiTextBox.TextChanged

    End Sub

    Private Sub ReserveFormCountTextBox_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles ReserveFormCountTextBox.GotFocus
        ReserveFormHelpListBox.Visible = False

    End Sub


    Private Sub ReserveFormCountTextBox_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ReserveFormCountTextBox.TextChanged

    End Sub

    Private Sub ReserveFormSCountTextBox_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles ReserveFormSCountTextBox.GotFocus
        ReserveFormHelpListBox.Visible = False

    End Sub

    Private Sub ReserveFormSCountTextBox_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ReserveFormSCountTextBox.TextChanged

    End Sub

    Private Sub ReserveFormReserveTextBox_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles ReserveFormReserveTextBox.GotFocus
        ReserveFormHelpListBox.Visible = False

    End Sub

    Private Sub ReserveFormReserveTextBox_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ReserveFormReserveTextBox.TextChanged

    End Sub

    Private Sub ReserveFormIDTextBox_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles ReserveFormIDTextBox.GotFocus
        ReserveFormHelpListBox.Visible = False

    End Sub

    Private Sub ReserveFormIDTextBox_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ReserveFormIDTextBox.TextChanged

    End Sub

#End Region

    Private Sub ReserveForm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        '刷新数据
        Refurbish()

        ReserveFormNumberTextBox.Focus()

    End Sub

    Private Sub ReserveFormExitButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ReserveFormExitButton.Click
        Close()
    End Sub

    Private Sub ReserveFormCancelButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ReserveFormCancelButton.Click
        ReserveFormNumberTextBox.Text = ""
        ReserveFormNameTextBox.Text = ""
        ReserveFormGroupNumberTextBox.Text = ""
        ReserveFormGroupTextBox.Text = ""
        ReserveFormDanweiTextBox.Text = ""
        ReserveFormNnitTextBox.Text = ""
        ReserveFormCountTextBox.Text = "1"
        ReserveFormSCountTextBox.Text = ""
        ReserveFormExplainTextBox.Text = ""
        ReserveFormReserveTextBox.Text = ""
        ReserveFormIDTextBox.Text = ""
        ReserveFormNumberTextBox.Focus()
        ReserveFormHelpListBox.Items.Clear()
    End Sub

    Private Sub ReserveFormReserveButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ReserveFormReserveButton.Click
        If ReserveFormNumberTextBox.Text = "" Then
            MsgBox("请输入货物编号")
        ElseIf ReserveFormNameTextBox.Text = "" Then
            MsgBox("请输入货物名称")
        ElseIf ReserveFormCountTextBox.Text = "" Then
            MsgBox("请输入货物数量")
        ElseIf ReserveFormReserveTextBox.Text = "" Then
            MsgBox("请输入订货人名称")
        ElseIf ReserveFormIDTextBox.Text = "" Then
            MsgBox("请输入订货人身份证")
        Else
            Dim Err As String = Nothing
            Dim Y As Boolean = ReserveClass.Reserve(Trim(ReserveFormNumberTextBox.Text), Trim(ReserveFormNameTextBox.Text), Val(Trim(ReserveFormCountTextBox.Text)), MainForm.UserName, Trim(ReserveFormReserveTextBox.Text), Trim(ReserveFormIDTextBox.Text), Err)
            If Y = True Then
                '清空
                ReserveFormCancelButton_Click(sender, e)
                '刷新数据
                Refurbish()
            Else
                MsgBox(Err, , "千寻工作室")
            End If
        End If
    End Sub

    Private Sub ReserveFormDataGridView_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles ReserveFormDataGridView.CellContentClick

    End Sub

    Private Sub ReserveFormDataGridView_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles ReserveFormDataGridView.Click
        'If ReserveFormDataGridView.SelectedCells(0).RowIndex < ReserveFormDataGridView.Rows.Count - 1 And ReserveFormDataGridView.SelectedCells(0).RowIndex >= 0 Then
        If ReserveFormDataGridView.SelectedCells(0).RowIndex >= 0 Then
            ReserveFormGroupNumberTextBox.Text = ReserveFormDataGridView.Item(3, ReserveFormDataGridView.SelectedCells(0).RowIndex).Value
            ReserveFormGroupTextBox.Text = ReserveFormDataGridView.Item(4, ReserveFormDataGridView.SelectedCells(0).RowIndex).Value
            ReserveFormDanweiTextBox.Text = ReserveFormDataGridView.Item(5, ReserveFormDataGridView.SelectedCells(0).RowIndex).Value
            ReserveFormNnitTextBox.Text = ReserveFormDataGridView.Item(6, ReserveFormDataGridView.SelectedCells(0).RowIndex).Value
            ReserveFormSCountTextBox.Text = ReserveFormDataGridView.Item(7, ReserveFormDataGridView.SelectedCells(0).RowIndex).Value
            ReserveFormNumberTextBox.Text = ReserveFormDataGridView.Item(1, ReserveFormDataGridView.SelectedCells(0).RowIndex).Value
        End If

    End Sub

    Private Sub ReserveFormHelpListBox_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles ReserveFormHelpListBox.DoubleClick
        If ReserveFormHelpListBox.SelectedIndex <> -1 Then
            TB.Text = Trim(ReserveFormHelpListBox.Text)
        End If
    End Sub

    Private Sub ReserveFormHelpListBox_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ReserveFormHelpListBox.SelectedIndexChanged

    End Sub

    Private Sub ReserveFormRefurbishButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ReserveFormRefurbishButton.Click
        Refurbish()
    End Sub
End Class