reservesearchform.vb

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

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

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

    Private Sub ReserveSearchForm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ReserveSearchFormJStyleComboBox.Text = "="
        ReserveSearchFormCStyleComboBox.Text = "="
    End Sub

    Private Sub ReserveSearchFormSearchButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ReserveSearchFormSearchButton.Click
        ReserveClass = New ClassLibrary.ReserveSearchClass
        Dim DStyle As Short = 1
        If ReserveSearchFormYDateCheckBox.Checked = True Then
            If ReserveSearchFormPointRadioButton.Checked = True Then
                DStyle = 1
            ElseIf ReserveSearchFormFromRadioButton.Checked = True Then
                DStyle = 2
            End If
        Else
            DStyle = 3
        End If
        Ds = ReserveClass.ReserveSearch(Trim(ReserveSearchFormNumberTextBox.Text), Trim(ReserveSearchFormNameTextBox.Text), Trim(ReserveSearchFormGNumberTextBox.Text), Trim(ReserveSearchFormGNameTextBox.Text), Trim(ReserveSearchFormJineTextBox.Text), Trim(ReserveSearchFormCountTextBox.Text), Trim(ReserveSearchFormUserTextBox.Text), Trim(ReserveSearchFormReserveNameTextBox.Text), Trim(ReserveSearchFormReserveIDTextBox.Text), Trim(ReserveSearchFormJStyleComboBox.Text), Trim(ReserveSearchFormCStyleComboBox.Text), DStyle, Trim(ReserveSearchFormStartDateTimePicker.Value.Date), Trim(ReserveSearchFormEndDateTimePicker.Value.Date))
        '将数据绑到记录集
        ReserveSearchFormDataGridView.DataSource = Ds.Tables(0)
    End Sub

    Private Sub ReserveSearchFormYDateCheckBox_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ReserveSearchFormYDateCheckBox.CheckedChanged
        If ReserveSearchFormYDateCheckBox.Checked = True Then
            ReserveSearchFormPointRadioButton.Enabled = True
            ReserveSearchFormFromRadioButton.Enabled = True
            ReserveSearchFormStartDateTimePicker.Enabled = True
            ReserveSearchFormEndDateTimePicker.Enabled = True
        Else
            ReserveSearchFormPointRadioButton.Enabled = False
            ReserveSearchFormFromRadioButton.Enabled = False
            ReserveSearchFormStartDateTimePicker.Enabled = False
            ReserveSearchFormEndDateTimePicker.Enabled = False
        End If
    End Sub

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

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

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