orderseek.vb

vb.net+sql进销存管理系统

        Me.Label2.Name = "Label2"
        Me.Label2.Size = New System.Drawing.Size(72, 23)
        Me.Label2.TabIndex = 1
        Me.Label2.Text = "日期（后）"
        Me.Label2.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
        '
        'Label1
        '
        Me.Label1.Location = New System.Drawing.Point(16, 24)
        Me.Label1.Name = "Label1"
        Me.Label1.Size = New System.Drawing.Size(72, 23)
        Me.Label1.TabIndex = 0
        Me.Label1.Text = "日期（前）"
        Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
        '
        'dgOrder
        '
        Me.dgOrder.DataMember = ""
        Me.dgOrder.HeaderForeColor = System.Drawing.SystemColors.ControlText
        Me.dgOrder.Location = New System.Drawing.Point(8, 128)
        Me.dgOrder.Name = "dgOrder"
        Me.dgOrder.ReadOnly = True
        Me.dgOrder.Size = New System.Drawing.Size(432, 224)
        Me.dgOrder.TabIndex = 3
        Me.dgOrder.TableStyles.AddRange(New System.Windows.Forms.DataGridTableStyle() {Me.DataGridTableStyle1})
        '
        'DataGridTableStyle1
        '
        Me.DataGridTableStyle1.DataGrid = Me.dgOrder
        Me.DataGridTableStyle1.GridColumnStyles.AddRange(New System.Windows.Forms.DataGridColumnStyle() {Me.DataGridTextBoxColumn1, Me.DataGridTextBoxColumn2, Me.DataGridTextBoxColumn3, Me.DataGridTextBoxColumn4, Me.DataGridTextBoxColumn5, Me.DataGridTextBoxColumn6, Me.DataGridTextBoxColumn7})
        Me.DataGridTableStyle1.HeaderForeColor = System.Drawing.SystemColors.ControlText
        Me.DataGridTableStyle1.MappingName = ""
        '
        'DataGridTextBoxColumn1
        '
        Me.DataGridTextBoxColumn1.Format = ""
        Me.DataGridTextBoxColumn1.FormatInfo = Nothing
        Me.DataGridTextBoxColumn1.HeaderText = "编号"
        Me.DataGridTextBoxColumn1.MappingName = "ORDERNO"
        Me.DataGridTextBoxColumn1.Width = 50
        '
        'DataGridTextBoxColumn2
        '
        Me.DataGridTextBoxColumn2.Format = ""
        Me.DataGridTextBoxColumn2.FormatInfo = Nothing
        Me.DataGridTextBoxColumn2.HeaderText = "日期"
        Me.DataGridTextBoxColumn2.MappingName = "ORDERDATE"
        Me.DataGridTextBoxColumn2.Width = 75
        '
        'DataGridTextBoxColumn3
        '
        Me.DataGridTextBoxColumn3.Format = ""
        Me.DataGridTextBoxColumn3.FormatInfo = Nothing
        Me.DataGridTextBoxColumn3.HeaderText = "商品"
        Me.DataGridTextBoxColumn3.MappingName = "CATEGORYNAME"
        Me.DataGridTextBoxColumn3.Width = 50
        '
        'DataGridTextBoxColumn4
        '
        Me.DataGridTextBoxColumn4.Format = ""
        Me.DataGridTextBoxColumn4.FormatInfo = Nothing
        Me.DataGridTextBoxColumn4.HeaderText = "数量"
        Me.DataGridTextBoxColumn4.MappingName = "ORDERCOUNT"
        Me.DataGridTextBoxColumn4.Width = 50
        '
        'DataGridTextBoxColumn5
        '
        Me.DataGridTextBoxColumn5.Format = ""
        Me.DataGridTextBoxColumn5.FormatInfo = Nothing
        Me.DataGridTextBoxColumn5.HeaderText = "处理者"
        Me.DataGridTextBoxColumn5.MappingName = "USERNAME"
        Me.DataGridTextBoxColumn5.Width = 50
        '
        'DataGridTextBoxColumn6
        '
        Me.DataGridTextBoxColumn6.Format = ""
        Me.DataGridTextBoxColumn6.FormatInfo = Nothing
        Me.DataGridTextBoxColumn6.HeaderText = "结果"
        Me.DataGridTextBoxColumn6.MappingName = "RESULT"
        Me.DataGridTextBoxColumn6.Width = 75
        '
        'DataGridTextBoxColumn7
        '
        Me.DataGridTextBoxColumn7.Format = ""
        Me.DataGridTextBoxColumn7.FormatInfo = Nothing
        Me.DataGridTextBoxColumn7.HeaderText = "备注"
        Me.DataGridTextBoxColumn7.MappingName = "REMARK"
        Me.DataGridTextBoxColumn7.Width = 50
        '
        'OrderSeek
        '
        Me.AcceptButton = Me.btOK
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.ClientSize = New System.Drawing.Size(448, 358)
        Me.Controls.Add(Me.GroupBox1)
        Me.Controls.Add(Me.dgOrder)
        Me.MaximizeBox = False
        Me.Name = "OrderSeek"
        Me.Text = "订单查询"
        Me.GroupBox1.ResumeLayout(False)
        CType(Me.dgOrder, System.ComponentModel.ISupportInitialize).EndInit()
        Me.ResumeLayout(False)

    End Sub

#End Region

    Private sql As String = "SELECT * FROM ORDERVIEW"

    Private Sub OrderSeek_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim dt_G As DataTable = Sample02.GetDataTable("SELECT CATEGORYNAME FROM CATEGORY ORDER BY CATEGORYNAME")
        Dim dt_U As DataTable = Sample02.GetDataTable("SELECT USERNAME FROM [USER] ORDER BY USERNAME")

        For Each dr As DataRow In dt_G.Rows
            Me.cbGoods.Items.Add(dr(0))
        Next

        For Each dr As DataRow In dt_U.Rows
            Me.cbHandler.Items.Add(dr(0))
        Next

        Me.cbGoods.Text = String.Empty
        Me.cbHandler.Text = String.Empty

        Me.SetDefault()
    End Sub

    Private Sub dtPicker1_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles dtPicker1.ValueChanged
        Me.tbDate1.Text = Me.dtPicker1.Value.ToShortDateString()
    End Sub

    Private Sub dtPicker2_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles dtPicker2.ValueChanged
        Me.tbDate2.Text = Me.dtPicker2.Value.ToShortDateString()
    End Sub

    Private Sub btOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btOK.Click
        If (Me.tbDate1.Text.Trim() = String.Empty) <> (Me.tbDate2.Text.Trim() = String.Empty) Then
            MessageBox.Show("日期不能只填一个")
            Return
        Else
            sql = Me.GetSql().Trim()
            Me.BindDg()

            sql = "SELECT * FROM ORDERVIEW"
        End If
    End Sub

    Private Sub btBack_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btBack.Click
        Me.SetDefault()
    End Sub

    Private Sub BindDg()

        Dim dtNew As DataTable
        Dim SqlAda As New SqlDataAdapter
        Dim SqlCmd As New SqlCommand(sql, Sample02.SqlCon)

        Dim ds As New DataSet

        Try
            SqlAda.SelectCommand = SqlCmd
            ds.Clear()
            SqlAda.Fill(ds)

            Me.dgOrder.TableStyles(0).MappingName = ds.Tables(0).TableName.Trim()
            Me.dgOrder.DataSource = ds.Tables(0)

        Catch ex As Exception
            Sample02.WriteErr(ex)
        End Try

    End Sub

    Private Sub SetDefault()
        sql = "SELECT * FROM ORDERVIEW"
        Me.BindDg()

        Me.dtPicker1.Value = System.DateTime.Now
        Me.dtPicker2.Value = System.DateTime.Now
        Me.tbDate1.Text = String.Empty
        Me.tbDate2.Text = String.Empty
        Me.cbGoods.Text = String.Empty
        Me.cbHandler.Text = String.Empty
        Me.cbStatus.Text = String.Empty
    End Sub

    Private Function GetSql() As String
        Dim w As String = "WHERE"

        If Me.tbDate1.Text.Trim() <> String.Empty Then
            w += " ORDERDATE BETWEEN '" + Me.tbDate1.Text.Trim() + "' and '" + Me.tbDate2.Text.Trim() + "' "
        End If

        If Me.cbGoods.Text.Trim() <> String.Empty Then
            w += " CATEGORYNAME = '" + Me.cbGoods.Text.Trim() + "'"
        End If

        If Me.cbHandler.Text.Trim() <> String.Empty Then
            w += " USERNAME = '" + Me.cbHandler.Text.Trim() + "'"
        End If

        If w.Trim() = "WHERE" Then
            Return "SELECT * FROM ORDERVIEW"
        Else
            Return "SELECT * FROM ORDERVIEW" + " " + w
        End If
    End Function
End Class