frmorderlist.vb

VB.NET开发的进销存系统,数据库SQLSERVER

        Me.dgdOrderList.DataMember = ""
        Me.dgdOrderList.HeaderForeColor = System.Drawing.SystemColors.ControlText
        Me.dgdOrderList.Location = New System.Drawing.Point(8, 176)
        Me.dgdOrderList.Name = "dgdOrderList"
        Me.dgdOrderList.Size = New System.Drawing.Size(642, 120)
        Me.dgdOrderList.TabIndex = 57
        '
        'lblRateValue
        '
        Me.lblRateValue.Location = New System.Drawing.Point(512, 17)
        Me.lblRateValue.Name = "lblRateValue"
        Me.lblRateValue.Size = New System.Drawing.Size(40, 16)
        Me.lblRateValue.TabIndex = 66
        Me.lblRateValue.Text = "17"
        '
        'lblRateText
        '
        Me.lblRateText.Location = New System.Drawing.Point(456, 17)
        Me.lblRateText.Name = "lblRateText"
        Me.lblRateText.Size = New System.Drawing.Size(40, 16)
        Me.lblRateText.TabIndex = 65
        Me.lblRateText.Text = "税率"
        '
        'txbTax
        '
        Me.txbTax.Location = New System.Drawing.Point(376, 13)
        Me.txbTax.Name = "txbTax"
        Me.txbTax.ReadOnly = True
        Me.txbTax.Size = New System.Drawing.Size(48, 21)
        Me.txbTax.TabIndex = 64
        Me.txbTax.Text = "0"
        '
        'txbWithoutTax
        '
        Me.txbWithoutTax.Location = New System.Drawing.Point(248, 13)
        Me.txbWithoutTax.Name = "txbWithoutTax"
        Me.txbWithoutTax.ReadOnly = True
        Me.txbWithoutTax.Size = New System.Drawing.Size(48, 21)
        Me.txbWithoutTax.TabIndex = 63
        Me.txbWithoutTax.Text = "0"
        '
        'txbTotal
        '
        Me.txbTotal.Location = New System.Drawing.Point(88, 13)
        Me.txbTotal.Name = "txbTotal"
        Me.txbTotal.ReadOnly = True
        Me.txbTotal.Size = New System.Drawing.Size(48, 21)
        Me.txbTotal.TabIndex = 60
        Me.txbTotal.Text = "0"
        '
        'lblTax
        '
        Me.lblTax.Location = New System.Drawing.Point(336, 18)
        Me.lblTax.Name = "lblTax"
        Me.lblTax.Size = New System.Drawing.Size(32, 16)
        Me.lblTax.TabIndex = 62
        Me.lblTax.Text = "税额"
        '
        'lblWithoutTax
        '
        Me.lblWithoutTax.Location = New System.Drawing.Point(168, 18)
        Me.lblWithoutTax.Name = "lblWithoutTax"
        Me.lblWithoutTax.Size = New System.Drawing.Size(72, 11)
        Me.lblWithoutTax.TabIndex = 61
        Me.lblWithoutTax.Text = "不含税金额"
        '
        'lblTotal
        '
        Me.lblTotal.Location = New System.Drawing.Point(16, 18)
        Me.lblTotal.Name = "lblTotal"
        Me.lblTotal.Size = New System.Drawing.Size(56, 16)
        Me.lblTotal.TabIndex = 59
        Me.lblTotal.Text = "合计金额"
        '
        'grbTax
        '
        Me.grbTax.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
                    Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.grbTax.Controls.Add(Me.lblWithoutTax)
        Me.grbTax.Controls.Add(Me.txbTax)
        Me.grbTax.Controls.Add(Me.lblTotal)
        Me.grbTax.Controls.Add(Me.lblRateValue)
        Me.grbTax.Controls.Add(Me.lblRateText)
        Me.grbTax.Controls.Add(Me.txbWithoutTax)
        Me.grbTax.Controls.Add(Me.txbTotal)
        Me.grbTax.Controls.Add(Me.lblTax)
        Me.grbTax.Location = New System.Drawing.Point(8, 296)
        Me.grbTax.Name = "grbTax"
        Me.grbTax.Size = New System.Drawing.Size(640, 40)
        Me.grbTax.TabIndex = 67
        Me.grbTax.TabStop = False
        '
        'grbOrderList
        '
        Me.grbOrderList.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
                    Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.grbOrderList.Controls.Add(Me.txbSupplyId)
        Me.grbOrderList.Controls.Add(Me.txbSupplyName)
        Me.grbOrderList.Controls.Add(Me.txbListMaker)
        Me.grbOrderList.Controls.Add(Me.txbOrderDate)
        Me.grbOrderList.Controls.Add(Me.lblSupplyName)
        Me.grbOrderList.Controls.Add(Me.linklbSupply)
        Me.grbOrderList.Controls.Add(Me.lblSupplyId)
        Me.grbOrderList.Controls.Add(Me.lblWorker)
        Me.grbOrderList.Controls.Add(Me.lblListMaker)
        Me.grbOrderList.Controls.Add(Me.lblOrderDate)
        Me.grbOrderList.Controls.Add(Me.cbbWorker)
        Me.grbOrderList.Location = New System.Drawing.Point(8, 30)
        Me.grbOrderList.Name = "grbOrderList"
        Me.grbOrderList.Size = New System.Drawing.Size(640, 64)
        Me.grbOrderList.TabIndex = 68
        Me.grbOrderList.TabStop = False
        Me.grbOrderList.Text = "进货单"
        '
        'txbSupplyId
        '
        Me.txbSupplyId.Location = New System.Drawing.Point(80, 32)
        Me.txbSupplyId.Name = "txbSupplyId"
        Me.txbSupplyId.Size = New System.Drawing.Size(96, 21)
        Me.txbSupplyId.TabIndex = 34
        Me.txbSupplyId.Text = ""
        '
        'txbSupplyName
        '
        Me.txbSupplyName.Location = New System.Drawing.Point(241, 32)
        Me.txbSupplyName.Name = "txbSupplyName"
        Me.txbSupplyName.ReadOnly = True
        Me.txbSupplyName.Size = New System.Drawing.Size(96, 21)
        Me.txbSupplyName.TabIndex = 32
        Me.txbSupplyName.Text = ""
        '
        'txbListMaker
        '
        Me.txbListMaker.Location = New System.Drawing.Point(241, 8)
        Me.txbListMaker.Name = "txbListMaker"
        Me.txbListMaker.Size = New System.Drawing.Size(96, 21)
        Me.txbListMaker.TabIndex = 29
        Me.txbListMaker.Text = ""
        '
        'txbOrderDate
        '
        Me.txbOrderDate.Location = New System.Drawing.Point(80, 8)
        Me.txbOrderDate.Name = "txbOrderDate"
        Me.txbOrderDate.Size = New System.Drawing.Size(96, 21)
        Me.txbOrderDate.TabIndex = 27
        Me.txbOrderDate.Text = ""
        '
        'lblSupplyName
        '
        Me.lblSupplyName.Location = New System.Drawing.Point(176, 39)
        Me.lblSupplyName.Name = "lblSupplyName"
        Me.lblSupplyName.Size = New System.Drawing.Size(72, 16)
        Me.lblSupplyName.TabIndex = 35
        Me.lblSupplyName.Text = "供货商名称"
        '
        'linklbSupply
        '
        Me.linklbSupply.Location = New System.Drawing.Point(348, 39)
        Me.linklbSupply.Name = "linklbSupply"
        Me.linklbSupply.Size = New System.Drawing.Size(32, 16)
        Me.linklbSupply.TabIndex = 33
        Me.linklbSupply.TabStop = True
        Me.linklbSupply.Text = "选择"
        '
        'lblSupplyId
        '
        Me.lblSupplyId.Location = New System.Drawing.Point(24, 39)
        Me.lblSupplyId.Name = "lblSupplyId"
        Me.lblSupplyId.Size = New System.Drawing.Size(56, 16)
        Me.lblSupplyId.TabIndex = 31
        Me.lblSupplyId.Text = "供货商号"
        '
        'lblWorker
        '
        Me.lblWorker.Location = New System.Drawing.Point(344, 15)
        Me.lblWorker.Name = "lblWorker"
        Me.lblWorker.Size = New System.Drawing.Size(43, 17)
        Me.lblWorker.TabIndex = 30
        Me.lblWorker.Text = "业务员"
        '
        'lblListMaker
        '
        Me.lblListMaker.Location = New System.Drawing.Point(199, 15)
        Me.lblListMaker.Name = "lblListMaker"
        Me.lblListMaker.Size = New System.Drawing.Size(48, 17)
        Me.lblListMaker.TabIndex = 28
        Me.lblListMaker.Text = "制单人"
        '
        'lblOrderDate
        '
        Me.lblOrderDate.Location = New System.Drawing.Point(24, 16)
        Me.lblOrderDate.Name = "lblOrderDate"
        Me.lblOrderDate.Size = New System.Drawing.Size(56, 17)
        Me.lblOrderDate.TabIndex = 26
        Me.lblOrderDate.Text = "进货日期"
        '
        'frmOrderList
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.ClientSize = New System.Drawing.Size(656, 341)
        Me.Controls.Add(Me.grbOrderList)
        Me.Controls.Add(Me.grbTax)
        Me.Controls.Add(Me.grbOrderListDetail)
        Me.Controls.Add(Me.ToolBar1)
        Me.Controls.Add(Me.dgdOrderList)
        Me.Name = "frmOrderList"
        Me.Text = "进货单"
        Me.grbOrderListDetail.ResumeLayout(False)
        CType(Me.dgdOrderList, System.ComponentModel.ISupportInitialize).EndInit()
        Me.grbTax.ResumeLayout(False)
        Me.grbOrderList.ResumeLayout(False)
        Me.ResumeLayout(False)

    End Sub

#End Region
    Public Sub New(ByVal sUserName As String)
        MyBase.New()

        '该调用是 Windows 窗体设计器所必需的。
        InitializeComponent()

        '在 InitializeComponent() 调用之后添加任何初始化
        UserName = sUserName

    End Sub

    Private Sub linklbSupply_LinkClicked(ByVal sender As Object, _
    ByVal e As LinkLabelLinkClickedEventArgs) _
    Handles linklbSupply.LinkClicked
        Try
            '新建一个frmSupplyInfo类的对象
            Dim dlgSupply As frmSupplyInfo = New frmSupplyInfo
            dlgSupply.bClose = True
            '显示对话框
            dlgSupply.tbbSave.Enabled = False
            dlgSupply.tbbDel.Enabled = False
            dlgSupply.ShowDialog()
            '返回选中的供货商
            Dim result() As String = dlgSupply.SetInfo().Split("|")
            '根据选中的供货商设置TextBox
            txbSupplyId.Text = result(0)
            txbSupplyName.Text = result(1)
        Catch ex As Exception
            MessageBox.Show("错误")
        End Try
    End Sub

    Private Sub btnAdd_Click(ByVal sender As Object, _
    ByVal e As System.EventArgs) Handles btnAdd.Click
        '验证添加的数据是否又错误
        If Me.ValidateNew() = False Then
            MessageBox.Show("数据错误")
            Exit Sub
        End If
        '添加新的数据行
        Dim dr As DataRow = Me.dtOrderList.NewRow
        dr("货号") = Me.txbGoodsId.Text.Trim
        dr("品名") = Me.txbGoodsName.Text.Trim()
        dr("数量") = Me.txbGoodsCount.Text.Trim
        dr("单位") = Me.txbGoodsUnit.Text.Trim
        dr("单价") = Me.txbPrice.Text.Trim
        dr("仓库") = Me.cbbDepotId.SelectedItem("仓库名")
        Try
            '计算税率
            Dim total As Integer = _
            CInt(Me.txbPrice.Text.Trim) * _
            CInt(Me.txbGoodsCount.Text.Trim)
            Dim rate As Integer = CInt(Me.lblRateValue.Text.Trim)
            dr("税价合计") = total.ToString
            dr("税率") = Me.lblRateValue.Text.Trim
            dr("税额") = (total - total / (1 + rate / 100)).ToString("f")
            dr("不含税价") = (total / (1 + rate / 100)).ToString("f")
            Me.dtOrderList.Rows.Add(dr)
            SetTaxForAdd(CInt(Me.txbPrice.Text.Trim) * _
            CInt(Me.txbGoodsCount.Text.Trim))
        Catch ex As Exception
            MessageBox.Show("数据格式不正确")
        End Try
        Clear()
    End Sub

    Private Sub frmOrderList_Load(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles MyBase.Load
        txbListMaker.Text = UserName
        txbOrderDate.Text = Date.Now.ToShortDateString
        Dim db As DataBase = New DataBase
        '为cbbWorker下拉列表框设置数据源
        cbbWorker.DataSource = db.RunSelectSQL("select 业务员号,姓名 from 业务员清单")
        cbbWorker.ValueMember = "业务员号"
        cbbWorker.DisplayMember = "姓名"
        '为cbbDepotId下拉列表框设置数据源
        cbbDepotId.DataSource = db.RunSelectSQL("select 仓库号,仓库名 from 仓库清单")
        cbbDepotId.ValueMember = "仓库号"
        cbbDepotId.DisplayMember = "仓库名"
        db.Dispose()
        '新建表
        dtOrderList = New DataTable
        With dtOrderList.Columns
            .Add("货号", Type.GetType("System.String"))
            .Add("品名", Type.GetType("System.String"))
            .Add("数量", Type.GetType("System.String"))
            .Add("单位", Type.GetType("System.String"))
            .Add("单价", Type.GetType("System.String"))
            .Add("仓库", Type.GetType("System.String"))
            .Add("税价合计", Type.GetType("System.String"))
            .Add("税率", Type.GetType("System.String"))
            .Add("税额", Type.GetType("System.String"))
            .Add("不含税价", Type.GetType("System.String"))
        End With
        Dim ts As New DataGridTableStyle
        Dim aColumnTextColumn As DataGridTextBoxColumn
        Dim numCols As Integer = dtOrderList.Columns.Count
        Dim i As Integer
        For i = 0 To numCols - 1
            aColumnTextColumn = New DataGridTextBoxColumn
            With aColumnTextColumn
                .MappingName = dtOrderList.Columns(i).ColumnName
                .HeaderText = dtOrderList.Columns(i).ColumnName
                .NullText = ""
            End With
            ts.GridColumnStyles.Add(aColumnTextColumn)
        Next
        ts.MappingName = dtOrderList.TableName
        ts.ReadOnly = True
        ts.AllowSorting = False
        dgdOrderList.TableStyles.Add(ts)