quitform.vb

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

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

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

#Region " 说明代码 "

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

    Private Sub QuitFormNumberTextBox_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles QuitFormNumberTextBox.MouseLeave
        '说明
        QuitFormExplainTextBox.Text = ""
    End Sub

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

    Private Sub QuitFormNameTextBox_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles QuitFormNameTextBox.MouseLeave
        '说明
        QuitFormExplainTextBox.Text = ""
    End Sub

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

    Private Sub QuitFormGroupNumberTextBox_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles QuitFormGroupNumberTextBox.MouseLeave
        '说明
        QuitFormExplainTextBox.Text = ""
    End Sub

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

    Private Sub QuitFormGroupTextBox_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles QuitFormGroupTextBox.MouseLeave
        '说明
        QuitFormExplainTextBox.Text = ""
    End Sub

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

    Private Sub QuitFormNnitTextBox_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles QuitFormNnitTextBox.MouseLeave
        '说明
        QuitFormExplainTextBox.Text = ""
    End Sub

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

    Private Sub QuitFormDanweiTextBox_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles QuitFormDanweiTextBox.MouseLeave
        '说明
        QuitFormExplainTextBox.Text = ""
    End Sub

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

    Private Sub QuitFormCountTextBox_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles QuitFormCountTextBox.MouseLeave
        '说明
        QuitFormExplainTextBox.Text = ""
    End Sub

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

    Private Sub QuitFormSCountTextBox_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles QuitFormSCountTextBox.MouseLeave
        '说明
        QuitFormExplainTextBox.Text = ""
    End Sub

    Private Sub QuitFormQuitButton_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles QuitFormQuitButton.MouseEnter
        '说明
        QuitFormExplainTextBox.Text = "出售货物"
    End Sub

    Private Sub QuitFormQuitButton_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles QuitFormQuitButton.MouseLeave
        '说明
        QuitFormExplainTextBox.Text = ""
    End Sub

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

    Private Sub QuitFormCancelButton_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles QuitFormCancelButton.MouseLeave
        '说明
        QuitFormExplainTextBox.Text = ""
    End Sub

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

    Private Sub QuitFormExitButton_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles QuitFormExitButton.MouseLeave
        '说明
        QuitFormExplainTextBox.Text = ""
    End Sub

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

    Private Sub QuitFormHelpListBox_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles QuitFormHelpListBox.MouseLeave
        '说明
        QuitFormExplainTextBox.Text = ""
    End Sub

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

    Private Sub QuitFormDataGridView_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles QuitFormDataGridView.MouseLeave
        '说明
        QuitFormExplainTextBox.Text = ""
    End Sub

#End Region

#Region " 自定义代码 "

    Private Sub ListDatarows(ByVal i As String)

        QuitFormHelpListBox.Items.Clear()
        '判断当前textbox控件
        Dim NameTemp As String = Nothing
        Dim NumberTemp As Short
        Select Case TB.Name
            Case QuitFormNumberTextBox.Name
                NameTemp = "number"
                NumberTemp = 1
            Case QuitFormNameTextBox.Name
                NameTemp = "name"
                NumberTemp = 2
            Case QuitFormGroupNumberTextBox.Name
                NameTemp = "groupnumber"
                NumberTemp = 3
            Case QuitFormGroupTextBox.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
                    QuitFormHelpListBox.Items.Add(GoodsDataRows(temp)(NumberTemp))
                Next
                If GoodsDataRows.Length = 1 And i = Trim(QuitFormHelpListBox.Items(0)) Then
                    Select Case TB.Name
                        Case QuitFormNumberTextBox.Name
                            QuitFormGroupNumberTextBox.Text = Trim(GoodsDataRows(0)(3))
                            QuitFormGroupTextBox.Text = Trim(GoodsDataRows(0)(4))
                            QuitFormDanweiTextBox.Text = Trim(GoodsDataRows(0)(5))
                            QuitFormNnitTextBox.Text = Trim(GoodsDataRows(0)(6))
                            QuitFormSCountTextBox.Text = Trim(GoodsDataRows(0)(7))
                            QuitFormNameTextBox.Text = Trim(GoodsDataRows(0)(2))

                        Case QuitFormNameTextBox.Name
                            QuitFormGroupNumberTextBox.Text = Trim(GoodsDataRows(0)(3))
                            QuitFormGroupTextBox.Text = Trim(GoodsDataRows(0)(4))
                            QuitFormDanweiTextBox.Text = Trim(GoodsDataRows(0)(5))
                            QuitFormNnitTextBox.Text = Trim(GoodsDataRows(0)(6))
                            QuitFormSCountTextBox.Text = Trim(GoodsDataRows(0)(7))
                            QuitFormNumberTextBox.Text = Trim(GoodsDataRows(0)(1))