orderform.vb

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

        '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 = 60
        '
        '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 = 75
        '
        'Label3
        '
        Me.Label3.Font = New System.Drawing.Font("宋体", 18.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
        Me.Label3.ForeColor = System.Drawing.Color.Red
        Me.Label3.Location = New System.Drawing.Point(496, 8)
        Me.Label3.Name = "Label3"
        Me.Label3.Size = New System.Drawing.Size(192, 24)
        Me.Label3.TabIndex = 3
        Me.Label3.Text = "订单管理"
        Me.Label3.TextAlign = System.Drawing.ContentAlignment.TopCenter
        '
        'OrderForm
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.CancelButton = Me.btCancel
        Me.ClientSize = New System.Drawing.Size(692, 266)
        Me.Controls.Add(Me.Label3)
        Me.Controls.Add(Me.dgOrder)
        Me.Controls.Add(Me.GroupBox1)
        Me.MaximizeBox = False
        Me.Name = "OrderForm"
        Me.Text = "订单管理"
        Me.GroupBox1.ResumeLayout(False)
        CType(Me.dgOrder, System.ComponentModel.ISupportInitialize).EndInit()
        Me.ResumeLayout(False)

    End Sub

#End Region

    Private Sub OrderForm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.BindDg()

        Dim dt As DataTable = Sample02.GetDataTable("SELECT CATEGORYNAME FROM CATEGORY ORDER BY CATEGORYNAME")

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

        Me.cbGoods.Text = String.Empty
        Me.SetDefault()

    End Sub

    Private Sub MenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem1.Click
        Dim Row As Int16 = Me.dgOrder.CurrentCell.RowNumber

        Dim no As String = Me.dgOrder.Item(Row, 0)
        Dim Result As String = Me.dgOrder.Item(Row, 5)

        Dim rForm As New ResultForm
        rForm.no = no.Trim()
        rForm.Result = Result.Trim()

        rForm.ShowDialog()

        If rForm.DialogResult = DialogResult.OK And rForm.flag Then
            Me.BindDg()
        End If

    End Sub

    Private Sub MenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem2.Click
        Dim Row As Int16 = Me.dgOrder.CurrentCell.RowNumber

        Dim no As String = Me.dgOrder.Item(Row, 0)
        Dim Remark As String

        If Me.dgOrder.Item(Row, 6) Is System.DBNull.Value Then
            Remark = String.Empty
        Else
            Remark = Me.dgOrder.Item(Row, 6)
        End If

        Dim rForm As New RemarkForm
        rForm.no = no.Trim()
        rForm.Remark = Remark.Trim()

        rForm.ShowDialog()

        If rForm.DialogResult = DialogResult.OK And rForm.flag Then
            Me.BindDg()
        End If

    End Sub

    Private Sub dtPicker_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles dtPicker.ValueChanged
        Me.tbDate.Text = Me.dtPicker.Value.ToShortDateString().Trim()
    End Sub

    Private Sub btOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btOK.Click

        Dim sCount As Int16 = 0

        If Me.cbGoods.Text.Trim() = String.Empty Then
            MessageBox.Show("商品不能为空")
            Me.cbGoods.Focus()
            Return
        End If

        If Me.tbCount.Text.Trim() = String.Empty Then
            MessageBox.Show("数量不能为空")
            Me.tbCount.Focus()
            Return
        End If

        Try
            sCount = Int16.Parse(Me.tbCount.Text.Trim())
        Catch
            MessageBox.Show("数量格式不对")
            Me.tbCount.Focus()
            Return
        End Try

        If sCount <= 0 Then
            MessageBox.Show("数量必须为正整数")
            Me.tbCount.Focus()
            Return
        End If

        Dim sDate As String = Me.tbDate.Text.Trim()
        Dim Goods As String = Me.GetGoodsNo(Me.cbGoods.Text.Trim())
        Dim Count As String = Me.tbCount.Text.Trim()
        Dim Remark As String = Me.tbRemark.Text.Trim()

        Dim sql As String = "INSERT INTO ORDERNOTE (ORDERDATE,CATEGORY,ORDERCOUNT,HANDLER,RESULT,REMARK) VALUES(" + sDate + "," + Goods + "," + Count + ",'" + Sample02.UserId.Trim() + "',0,'" + Remark + "')"
        Dim SqlCmd As New SqlCommand(sql, Sample02.SqlCon)

        Try
            Sample02.SqlCon.Open()
            SqlCmd.ExecuteNonQuery()
            MessageBox.Show("增加成功")
            Me.SetDefault()
            Me.BindDg()
        Catch ex As Exception
            MessageBox.Show("增加失败")
            Sample02.WriteErr(ex)
        End Try
    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 btCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btCancel.Click
        Me.Close()
    End Sub

    Private Sub BindDg()

        Dim dtNew As DataTable
        Dim SqlAda As New SqlDataAdapter
        Dim SqlCmd As New SqlCommand("SELECT * FROM ORDERVIEW", 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)
            Me.dgOrder.CurrentCell = New DataGridCell(0, 1)

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

    End Sub

    Private Sub SetDefault()
        Me.dtPicker.Value = System.DateTime.Now()
        Me.tbDate.Text = System.DateTime.Now.ToShortDateString()
        Me.cbGoods.Text = String.Empty
        Me.tbCount.Text = String.Empty
        Me.tbRemark.Text = String.Empty
    End Sub

    Private Function GetGoodsNo(ByVal GoodsName As String) As String

        Dim no As String = String.Empty

        Try

            Dim sql As String = "SELECT CATEGORYNO FROM CATEGORY WHERE CATEGORYNAME = '" + GoodsName.Trim() + "'"
            Dim dt As DataTable = Sample02.GetDataTable(sql)

            If dt.Rows.Count <> 0 Then
                no = dt.Rows(0)(0).ToString().Trim()
            End If
        Catch ex As Exception
            Sample02.WriteErr(ex)
            no = String.Empty
        End Try

        Return no

    End Function


End Class