reserveform.vb

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

Imports System.Data.SqlClient
Imports System.Runtime.Remoting
Public Class ReserveForm

    '定义货物列表dataset
    Dim Ds As DataSet
    '定义订售货物类
    Dim ReserveClass As ClassLibrary.ReserveClass
    '
    Dim GoodsDataRows As DataRow()
    '定义当前文本框
    Dim TB As TextBox

#Region " 说明代码 "

    Private Sub ReserveFormNumberTextBox_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles ReserveFormNumberTextBox.MouseEnter
        '说明
        ReserveFormExplainTextBox.Text = "输入货物编号"
    End Sub

    Private Sub ReserveFormNumberTextBox_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles ReserveFormNumberTextBox.MouseLeave
        '说明
        ReserveFormExplainTextBox.Text = ""
    End Sub

    Private Sub ReserveFormNameTextBox_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles ReserveFormNameTextBox.MouseEnter
        '说明
        ReserveFormExplainTextBox.Text = "输入货物名称"
    End Sub

    Private Sub ReserveFormNameTextBox_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles ReserveFormNameTextBox.MouseLeave
        '说明
        ReserveFormExplainTextBox.Text = ""
    End Sub

    Private Sub ReserveFormGroupNumberTextBox_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles ReserveFormGroupNumberTextBox.MouseEnter
        '说明
        ReserveFormExplainTextBox.Text = "货物所属类别编号"
    End Sub

    Private Sub ReserveFormGroupNumberTextBox_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles ReserveFormGroupNumberTextBox.MouseLeave
        '说明
        ReserveFormExplainTextBox.Text = ""
    End Sub

    Private Sub ReserveFormGroupTextBox_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles ReserveFormGroupTextBox.MouseEnter
        '说明
        ReserveFormExplainTextBox.Text = "货物所属类别名称"
    End Sub

    Private Sub ReserveFormGroupTextBox_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles ReserveFormGroupTextBox.MouseLeave
        '说明
        ReserveFormExplainTextBox.Text = ""
    End Sub

    Private Sub ReserveFormNnitTextBox_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles ReserveFormNnitTextBox.MouseEnter
        '说明
        ReserveFormExplainTextBox.Text = "货物单价"
    End Sub

    Private Sub ReserveFormNnitTextBox_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles ReserveFormNnitTextBox.MouseLeave
        '说明
        ReserveFormExplainTextBox.Text = ""
    End Sub

    Private Sub ReserveFormDanweiTextBox_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles ReserveFormDanweiTextBox.MouseEnter
        '说明
        ReserveFormExplainTextBox.Text = "货物使用的计量单位"
    End Sub

    Private Sub ReserveFormDanweiTextBox_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles ReserveFormDanweiTextBox.MouseLeave
        '说明
        ReserveFormExplainTextBox.Text = ""
    End Sub

    Private Sub ReserveFormCountTextBox_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles ReserveFormCountTextBox.MouseEnter
        '说明
        ReserveFormExplainTextBox.Text = "出售货物数量"
    End Sub

    Private Sub ReserveFormCountTextBox_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles ReserveFormCountTextBox.MouseLeave
        '说明
        ReserveFormExplainTextBox.Text = ""
    End Sub

    Private Sub ReserveFormSCountTextBox_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles ReserveFormSCountTextBox.MouseEnter
        '说明
        ReserveFormExplainTextBox.Text = "出售货物库存数量"
    End Sub

    Private Sub ReserveFormSCountTextBox_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles ReserveFormSCountTextBox.MouseLeave
        '说明
        ReserveFormExplainTextBox.Text = ""
    End Sub

    Private Sub ReserveFormReserveTextBox_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles ReserveFormReserveTextBox.MouseEnter
        '说明
        ReserveFormExplainTextBox.Text = "订货人名称"
    End Sub

    Private Sub ReserveFormReserveTextBox_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles ReserveFormReserveTextBox.MouseLeave
        '说明
        ReserveFormExplainTextBox.Text = ""
    End Sub

    Private Sub ReserveFormIDTextBox_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles ReserveFormIDTextBox.MouseEnter
        '说明
        ReserveFormExplainTextBox.Text = "订货人身份证"
    End Sub

    Private Sub ReserveFormIDTextBox_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles ReserveFormIDTextBox.MouseLeave
        '说明
        ReserveFormExplainTextBox.Text = ""
    End Sub

    Private Sub ReserveFormReserveButton_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles ReserveFormReserveButton.MouseEnter
        '说明
        ReserveFormExplainTextBox.Text = "订购货物"
    End Sub

    Private Sub ReserveFormReserveButton_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles ReserveFormReserveButton.MouseLeave
        '说明
        ReserveFormExplainTextBox.Text = ""
    End Sub

    Private Sub ReserveFormCancelButton_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles ReserveFormCancelButton.MouseEnter
        '说明
        ReserveFormExplainTextBox.Text = "清空"
    End Sub

    Private Sub ReserveFormCancelButton_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles ReserveFormCancelButton.MouseLeave
        '说明
        ReserveFormExplainTextBox.Text = ""
    End Sub

    Private Sub ReserveFormExitButton_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles ReserveFormExitButton.MouseEnter
        '说明
        ReserveFormExplainTextBox.Text = "退出窗体"
    End Sub

    Private Sub ReserveFormExitButton_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles ReserveFormExitButton.MouseLeave
        '说明
        ReserveFormExplainTextBox.Text = ""
    End Sub

    Private Sub ReserveFormHelpListBox_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles ReserveFormHelpListBox.MouseEnter
        '说明
        ReserveFormExplainTextBox.Text = "选择列表"
    End Sub

    Private Sub ReserveFormHelpListBox_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles ReserveFormHelpListBox.MouseLeave
        '说明
        ReserveFormExplainTextBox.Text = ""
    End Sub

    Private Sub ReserveFormDataGridView_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles ReserveFormDataGridView.MouseEnter
        '说明
        ReserveFormExplainTextBox.Text = "数据列表"
    End Sub

    Private Sub ReserveFormDataGridView_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles ReserveFormDataGridView.MouseLeave
        '说明
        ReserveFormExplainTextBox.Text = ""
    End Sub

#End Region

#Region " 自定义代码 "

    Private Sub ListDatarows(ByVal i As String)

        ReserveFormHelpListBox.Items.Clear()
        '判断当前textbox控件
        Dim NameTemp As String = Nothing
        Dim NumberTemp As Short
        Select Case TB.Name
            Case ReserveFormNumberTextBox.Name
                NameTemp = "number"
                NumberTemp = 1
            Case ReserveFormNameTextBox.Name
                NameTemp = "name"
                NumberTemp = 2
            Case ReserveFormGroupNumberTextBox.Name
                NameTemp = "groupnumber"
                NumberTemp = 3
            Case ReserveFormGroupTextBox.Name
                NameTemp = "[group]"
                NumberTemp = 4
        End Select
        '判断名称编号是否为空
        If i <> "" Then
            GoodsDataRows = Ds.Tables(0).Select(NameTemp & " like '" & i & "%'")
            '判断找到数据是否为空
            If GoodsDataRows.Length > 0 Then
                Dim temp As Integer
                '为列表添加数据
                For temp = 0 To GoodsDataRows.Length - 1
                    ReserveFormHelpListBox.Items.Add(GoodsDataRows(temp)(NumberTemp))
                Next
                If GoodsDataRows.Length = 1 And i = Trim(ReserveFormHelpListBox.Items(0)) Then
                    Select Case TB.Name
                        Case ReserveFormNumberTextBox.Name
                            ReserveFormGroupNumberTextBox.Text = Trim(GoodsDataRows(0)(3))
                            ReserveFormGroupTextBox.Text = Trim(GoodsDataRows(0)(4))
                            ReserveFormDanweiTextBox.Text = Trim(GoodsDataRows(0)(5))
                            ReserveFormNnitTextBox.Text = Trim(GoodsDataRows(0)(6))
                            ReserveFormSCountTextBox.Text = Trim(GoodsDataRows(0)(7))
                            ReserveFormNameTextBox.Text = Trim(GoodsDataRows(0)(2))

                        Case ReserveFormNameTextBox.Name
                            ReserveFormGroupNumberTextBox.Text = Trim(GoodsDataRows(0)(3))
                            ReserveFormGroupTextBox.Text = Trim(GoodsDataRows(0)(4))
                            ReserveFormDanweiTextBox.Text = Trim(GoodsDataRows(0)(5))
                            ReserveFormNnitTextBox.Text = Trim(GoodsDataRows(0)(6))
                            ReserveFormSCountTextBox.Text = Trim(GoodsDataRows(0)(7))
                            ReserveFormNumberTextBox.Text = Trim(GoodsDataRows(0)(1))