frmselllist.vb

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

        '
        Me.grbSellListDetail.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
                    Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.grbSellListDetail.Controls.Add(Me.btnDel)
        Me.grbSellListDetail.Controls.Add(Me.btnSave)
        Me.grbSellListDetail.Controls.Add(Me.btnAdd)
        Me.grbSellListDetail.Controls.Add(Me.linklbGoods)
        Me.grbSellListDetail.Controls.Add(Me.lblDepotId)
        Me.grbSellListDetail.Controls.Add(Me.txbDepot)
        Me.grbSellListDetail.Controls.Add(Me.lblUnit)
        Me.grbSellListDetail.Controls.Add(Me.txbPrice)
        Me.grbSellListDetail.Controls.Add(Me.lblGoodId)
        Me.grbSellListDetail.Controls.Add(Me.lblName)
        Me.grbSellListDetail.Controls.Add(Me.txbGoodsName)
        Me.grbSellListDetail.Controls.Add(Me.txbGoodsUnit)
        Me.grbSellListDetail.Controls.Add(Me.lblGoodsCount)
        Me.grbSellListDetail.Controls.Add(Me.txbGoodsId)
        Me.grbSellListDetail.Controls.Add(Me.txbGoodsCount)
        Me.grbSellListDetail.Controls.Add(Me.linklbDepot)
        Me.grbSellListDetail.Controls.Add(Me.lblGoodsPrice)
        Me.grbSellListDetail.Location = New System.Drawing.Point(8, 98)
        Me.grbSellListDetail.Name = "grbSellListDetail"
        Me.grbSellListDetail.Size = New System.Drawing.Size(632, 62)
        Me.grbSellListDetail.TabIndex = 72
        Me.grbSellListDetail.TabStop = False
        Me.grbSellListDetail.Text = "销售单明细"
        '
        'btnDel
        '
        Me.btnDel.Location = New System.Drawing.Point(584, 35)
        Me.btnDel.Name = "btnDel"
        Me.btnDel.Size = New System.Drawing.Size(37, 24)
        Me.btnDel.TabIndex = 74
        Me.btnDel.Text = "删除"
        '
        'btnSave
        '
        Me.btnSave.Location = New System.Drawing.Point(528, 35)
        Me.btnSave.Name = "btnSave"
        Me.btnSave.Size = New System.Drawing.Size(40, 24)
        Me.btnSave.TabIndex = 73
        Me.btnSave.Text = "修改"
        '
        'btnAdd
        '
        Me.btnAdd.Location = New System.Drawing.Point(472, 35)
        Me.btnAdd.Name = "btnAdd"
        Me.btnAdd.Size = New System.Drawing.Size(37, 24)
        Me.btnAdd.TabIndex = 71
        Me.btnAdd.Text = "添加"
        '
        'dgdOrderList
        '
        Me.dgdOrderList.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
                    Or System.Windows.Forms.AnchorStyles.Left) _
                    Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.dgdOrderList.CaptionVisible = False
        Me.dgdOrderList.DataMember = ""
        Me.dgdOrderList.HeaderForeColor = System.Drawing.SystemColors.ControlText
        Me.dgdOrderList.Location = New System.Drawing.Point(8, 172)
        Me.dgdOrderList.Name = "dgdOrderList"
        Me.dgdOrderList.Size = New System.Drawing.Size(632, 113)
        Me.dgdOrderList.TabIndex = 72
        '
        'ImageList1
        '
        Me.ImageList1.ImageSize = New System.Drawing.Size(16, 16)
        Me.ImageList1.ImageStream = CType(resources.GetObject("ImageList1.ImageStream"), System.Windows.Forms.ImageListStreamer)
        Me.ImageList1.TransparentColor = System.Drawing.Color.Transparent
        '
        'ToolBar1
        '
        Me.ToolBar1.Buttons.AddRange(New System.Windows.Forms.ToolBarButton() {Me.tbbSave, Me.tbbConfirm})
        Me.ToolBar1.DropDownArrows = True
        Me.ToolBar1.ImageList = Me.ImageList1
        Me.ToolBar1.Location = New System.Drawing.Point(0, 0)
        Me.ToolBar1.Name = "ToolBar1"
        Me.ToolBar1.ShowToolTips = True
        Me.ToolBar1.Size = New System.Drawing.Size(648, 28)
        Me.ToolBar1.TabIndex = 73
        '
        'tbbSave
        '
        Me.tbbSave.ImageIndex = 0
        Me.tbbSave.ToolTipText = "保存销售单"
        '
        'tbbConfirm
        '
        Me.tbbConfirm.ImageIndex = 1
        Me.tbbConfirm.ToolTipText = "确认销售单"
        '
        '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.lblRateText)
        Me.grbTax.Controls.Add(Me.txbWithoutTax)
        Me.grbTax.Controls.Add(Me.lblTax)
        Me.grbTax.Controls.Add(Me.lblWithoutTax)
        Me.grbTax.Controls.Add(Me.txbTotal)
        Me.grbTax.Controls.Add(Me.lblTotal)
        Me.grbTax.Controls.Add(Me.txbTax)
        Me.grbTax.Controls.Add(Me.lblRateValue)
        Me.grbTax.Location = New System.Drawing.Point(8, 288)
        Me.grbTax.Name = "grbTax"
        Me.grbTax.Size = New System.Drawing.Size(632, 42)
        Me.grbTax.TabIndex = 74
        Me.grbTax.TabStop = False
        '
        'grbSellList
        '
        Me.grbSellList.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
                    Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.grbSellList.Controls.Add(Me.lblWorker)
        Me.grbSellList.Controls.Add(Me.lblClientName)
        Me.grbSellList.Controls.Add(Me.txbClientId)
        Me.grbSellList.Controls.Add(Me.linklbClient)
        Me.grbSellList.Controls.Add(Me.txbClientName)
        Me.grbSellList.Controls.Add(Me.lblClientId)
        Me.grbSellList.Controls.Add(Me.cbbWorker)
        Me.grbSellList.Controls.Add(Me.txtListMaker)
        Me.grbSellList.Controls.Add(Me.lblListMaker)
        Me.grbSellList.Controls.Add(Me.txbOrderDate)
        Me.grbSellList.Controls.Add(Me.lblSellDate)
        Me.grbSellList.Location = New System.Drawing.Point(8, 33)
        Me.grbSellList.Name = "grbSellList"
        Me.grbSellList.Size = New System.Drawing.Size(632, 63)
        Me.grbSellList.TabIndex = 75
        Me.grbSellList.TabStop = False
        Me.grbSellList.Text = "销售单"
        '
        'lblWorker
        '
        Me.lblWorker.Location = New System.Drawing.Point(333, 16)
        Me.lblWorker.Name = "lblWorker"
        Me.lblWorker.Size = New System.Drawing.Size(45, 14)
        Me.lblWorker.TabIndex = 82
        Me.lblWorker.Text = "业务员"
        '
        'lblClientName
        '
        Me.lblClientName.Location = New System.Drawing.Point(176, 40)
        Me.lblClientName.Name = "lblClientName"
        Me.lblClientName.Size = New System.Drawing.Size(55, 14)
        Me.lblClientName.TabIndex = 81
        Me.lblClientName.Text = "客户名称"
        '
        'txbClientId
        '
        Me.txbClientId.Location = New System.Drawing.Point(71, 34)
        Me.txbClientId.Name = "txbClientId"
        Me.txbClientId.Size = New System.Drawing.Size(96, 21)
        Me.txbClientId.TabIndex = 80
        Me.txbClientId.Text = ""
        '
        'linklbClient
        '
        Me.linklbClient.Location = New System.Drawing.Point(336, 40)
        Me.linklbClient.Name = "linklbClient"
        Me.linklbClient.Size = New System.Drawing.Size(40, 14)
        Me.linklbClient.TabIndex = 79
        Me.linklbClient.TabStop = True
        Me.linklbClient.Text = "选择"
        '
        'txbClientName
        '
        Me.txbClientName.Location = New System.Drawing.Point(231, 32)
        Me.txbClientName.Name = "txbClientName"
        Me.txbClientName.ReadOnly = True
        Me.txbClientName.Size = New System.Drawing.Size(96, 21)
        Me.txbClientName.TabIndex = 78
        Me.txbClientName.Text = ""
        '
        'lblClientId
        '
        Me.lblClientId.Location = New System.Drawing.Point(31, 39)
        Me.lblClientId.Name = "lblClientId"
        Me.lblClientId.Size = New System.Drawing.Size(49, 14)
        Me.lblClientId.TabIndex = 77
        Me.lblClientId.Text = "客户号"
        '
        'cbbWorker
        '
        Me.cbbWorker.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
        Me.cbbWorker.Location = New System.Drawing.Point(379, 10)
        Me.cbbWorker.Name = "cbbWorker"
        Me.cbbWorker.Size = New System.Drawing.Size(57, 20)
        Me.cbbWorker.TabIndex = 76
        '
        'txtListMaker
        '
        Me.txtListMaker.Location = New System.Drawing.Point(230, 8)
        Me.txtListMaker.Name = "txtListMaker"
        Me.txtListMaker.Size = New System.Drawing.Size(96, 21)
        Me.txtListMaker.TabIndex = 75
        Me.txtListMaker.Text = ""
        '
        'lblListMaker
        '
        Me.lblListMaker.Location = New System.Drawing.Point(186, 16)
        Me.lblListMaker.Name = "lblListMaker"
        Me.lblListMaker.Size = New System.Drawing.Size(42, 14)
        Me.lblListMaker.TabIndex = 74
        Me.lblListMaker.Text = "制单人"
        '
        'txbOrderDate
        '
        Me.txbOrderDate.Location = New System.Drawing.Point(71, 9)
        Me.txbOrderDate.Name = "txbOrderDate"
        Me.txbOrderDate.Size = New System.Drawing.Size(96, 21)
        Me.txbOrderDate.TabIndex = 73
        Me.txbOrderDate.Text = ""
        '
        'lblSellDate
        '
        Me.lblSellDate.Location = New System.Drawing.Point(16, 15)
        Me.lblSellDate.Name = "lblSellDate"
        Me.lblSellDate.Size = New System.Drawing.Size(56, 14)
        Me.lblSellDate.TabIndex = 72
        Me.lblSellDate.Text = "售货日期"
        '
        'frmSellList
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.ClientSize = New System.Drawing.Size(648, 341)
        Me.Controls.Add(Me.grbSellList)
        Me.Controls.Add(Me.grbTax)
        Me.Controls.Add(Me.grbSellListDetail)
        Me.Controls.Add(Me.ToolBar1)
        Me.Controls.Add(Me.dgdOrderList)
        Me.Name = "frmSellList"
        Me.Text = "销售单"
        Me.grbSellListDetail.ResumeLayout(False)
        CType(Me.dgdOrderList, System.ComponentModel.ISupportInitialize).EndInit()
        Me.grbTax.ResumeLayout(False)
        Me.grbSellList.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 frmSellList_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.txtListMaker.Text = UserName
        Me.txbOrderDate.Text = Date.Now.ToShortDateString
        Dim db As DataBase = New DataBase
        Me.cbbWorker.DataSource = db.RunSelectSQL("select 业务员号,姓名 from 业务员清单")
        Me.cbbWorker.ValueMember = "业务员号"
        Me.cbbWorker.DisplayMember = "姓名"
        db.Dispose()
        InitTable()
        Dim ts As New DataGridTableStyle
        Dim aColumnTextColumn As DataGridNoActiveCellColumn
        Dim numCols As Integer = dtSellList.Columns.Count
        Dim i As Integer
        For i = 0 To numCols - 1
            aColumnTextColumn = New DataGridNoActiveCellColumn
            aColumnTextColumn.MappingName = dtSellList.Columns(i).ColumnName
            aColumnTextColumn.HeaderText = dtSellList.Columns(i).ColumnName
            aColumnTextColumn.NullText = ""
            ts.GridColumnStyles.Add(aColumnTextColumn)
        Next
        ts.ReadOnly = True
        ts.AllowSorting = False
        ts.MappingName = dtSellList.TableName
        Me.dgdOrderList.TableStyles.Add(ts)

        Me.dgdOrderList.DataSource = Me.dtSellList.DefaultView
        Me.dtSellList.DefaultView.AllowNew = False
    End Sub

    Private Sub linklbGoods_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles linklbGoods.Click
        Try
            Dim dlgGoods As frmGoodsInfo = New frmGoodsInfo
            dlgGoods.tbbDel.Enabled = False
            dlgGoods.bClose = True
            dlgGoods.tbbSave.Enabled = False
            dlgGoods.ShowDialog()
            Dim result() As String = dlgGoods.SetInfo().Split("|")
            Me.txbGoodsId.Text = result(0)
            Me.txbGoodsName.Text = result(1)
            Me.txbGoodsUnit.Text = result(0)
        Catch ex As Exception

        End Try
    End Sub
    Private Sub linklbClient_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles linklbClient.Click
        Try
            Dim dlgClient As frmClientInfo = New frmClientInfo
            dlgClient.tbbDel.Enabled = False
            dlgClient.tbbSave.Enabled = False
            dlgClient.bClose = True
            dlgClient.ShowDialog()
            Dim result() As String = dlgClient.SetInfo().Split("|")
            Me.txbClientId.Text = result(0)
            Me.txbClientName.Text = result(1)
        Catch ex As Exception
        End Try

    End Sub

    Private Sub linklbDepot_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles linklbDepot.LinkClicked
        Try
            Dim frm As frmDepotSelect = New frmDepotSelect(Me.txbGoodsId.Text)