sellsearchform.vb

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

Imports System.Data.SqlClient
Imports System.Runtime.Remoting

Public Class SellSearchForm

    '定义货物列表dataset
    Dim Ds As DataSet
    '定义出售货物类
    Dim SellClass As ClassLibrary.SellSearchClass

    Private Sub SellSearchForm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        SellSearchFormJStyleComboBox.Text = "="
        SellSearchFormCStyleComboBox.Text = "="
    End Sub

    Private Sub SellSearchFormSearchButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SellSearchFormSearchButton.Click
        SellClass = New ClassLibrary.SellSearchClass
        Dim DStyle As Short = 1
        If SellSearchFormYDateCheckBox.Checked = True Then
            If SellSearchFormPointRadioButton.Checked = True Then
                DStyle = 1
            ElseIf SellSearchFormFromRadioButton.Checked = True Then
                DStyle = 2
            End If
        Else
            DStyle = 3
        End If
        Ds = SellClass.SellSearch(Trim(SellSearchFormNumberTextBox.Text), Trim(SellSearchFormNameTextBox.Text), Trim(SellSearchFormGNumberTextBox.Text), Trim(SellSearchFormGNameTextBox.Text), Trim(SellSearchFormJineTextBox.Text), Trim(SellSearchFormCountTextBox.Text), Trim(SellSearchFormUserTextBox.Text), Trim(SellSearchFormJStyleComboBox.Text), Trim(SellSearchFormCStyleComboBox.Text), DStyle, Trim(SellSearchFormStartDateTimePicker.Value.Date), Trim(SellSearchFormEndDateTimePicker.Value.Date))
            '将数据绑到记录集
            SellSearchFormDataGridView.DataSource = Ds.Tables(0)
    End Sub

    Private Sub SellSearchFormYDateCheckBox_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SellSearchFormYDateCheckBox.CheckedChanged
        If SellSearchFormYDateCheckBox.Checked = True Then
            SellSearchFormPointRadioButton.Enabled = True
            SellSearchFormFromRadioButton.Enabled = True
            SellSearchFormStartDateTimePicker.Enabled = True
            SellSearchFormEndDateTimePicker.Enabled = True
        Else
            SellSearchFormPointRadioButton.Enabled = False
            SellSearchFormFromRadioButton.Enabled = False
            SellSearchFormStartDateTimePicker.Enabled = False
            SellSearchFormEndDateTimePicker.Enabled = False
        End If
    End Sub

    Private Sub SellSearchFormPointRadioButton_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SellSearchFormPointRadioButton.CheckedChanged
        If SellSearchFormPointRadioButton.Checked = True Then
            Label1.Visible = False
            SellSearchFormStartDateTimePicker.Visible = False
            Label2.Visible = False
        Else
            Label1.Visible = False
            SellSearchFormStartDateTimePicker.Visible = True
            Label2.Visible = True
        End If
    End Sub

    Private Sub SellSearchFormFromRadioButton_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SellSearchFormFromRadioButton.CheckedChanged
        If SellSearchFormFromRadioButton.Checked = True Then
            Label1.Visible = True
            SellSearchFormStartDateTimePicker.Visible = True
            Label2.Visible = True
        Else
            Label1.Visible = False
            SellSearchFormStartDateTimePicker.Visible = False
            Label2.Visible = False
        End If
    End Sub

    Private Sub SellSearchFormExitButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SellSearchFormExitButton.Click
        Close()
    End Sub
End Class