quitsearchform.vb

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

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

    '定义货物列表dataset
    Dim Ds As DataSet
    '定义退货类
    Dim QuitClass As ClassLibrary.QuitSearchClass

    Private Sub QuitSearchForm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        QuitSearchFormJStyleComboBox.Text = "="
        QuitSearchFormCStyleComboBox.Text = "="
    End Sub

    Private Sub QuitSearchFormSearchButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles QuitSearchFormSearchButton.Click
        QuitClass = New ClassLibrary.QuitSearchClass
        Dim DStyle As Short = 1
        If QuitSearchFormYDateCheckBox.Checked = True Then
            If QuitSearchFormPointRadioButton.Checked = True Then
                DStyle = 1
            ElseIf QuitSearchFormFromRadioButton.Checked = True Then
                DStyle = 2
            End If
        Else
            DStyle = 3
        End If
        Ds = QuitClass.QuitSearch(Trim(QuitSearchFormNumberTextBox.Text), Trim(QuitSearchFormNameTextBox.Text), Trim(QuitSearchFormGNumberTextBox.Text), Trim(QuitSearchFormGNameTextBox.Text), Trim(QuitSearchFormJineTextBox.Text), Trim(QuitSearchFormCountTextBox.Text), Trim(QuitSearchFormUserTextBox.Text), Trim(QuitSearchFormJStyleComboBox.Text), Trim(QuitSearchFormCStyleComboBox.Text), DStyle, Trim(QuitSearchFormStartDateTimePicker.Value.Date), Trim(QuitSearchFormEndDateTimePicker.Value.Date))
        '将数据绑到记录集
        QuitSearchFormDataGridView.DataSource = Ds.Tables(0)
    End Sub

    Private Sub QuitSearchFormYDateCheckBox_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles QuitSearchFormYDateCheckBox.CheckedChanged
        If QuitSearchFormYDateCheckBox.Checked = True Then
            QuitSearchFormPointRadioButton.Enabled = True
            QuitSearchFormFromRadioButton.Enabled = True
            QuitSearchFormStartDateTimePicker.Enabled = True
            QuitSearchFormEndDateTimePicker.Enabled = True
        Else
            QuitSearchFormPointRadioButton.Enabled = False
            QuitSearchFormFromRadioButton.Enabled = False
            QuitSearchFormStartDateTimePicker.Enabled = False
            QuitSearchFormEndDateTimePicker.Enabled = False
        End If
    End Sub

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

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

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