frmsal.vb

本系统利用vb.net前台开发工具sql.server做为后台数据库进行开超市进销存管理系统系统

        '
        Me.txtPrdNam.Font = New System.Drawing.Font("宋体", 10.5!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
        Me.txtPrdNam.ForeColor = System.Drawing.Color.Black
        Me.txtPrdNam.Location = New System.Drawing.Point(469, 19)
        Me.txtPrdNam.Name = "txtPrdNam"
        Me.txtPrdNam.ReadOnly = True
        Me.txtPrdNam.Size = New System.Drawing.Size(204, 23)
        Me.txtPrdNam.TabIndex = 46
        Me.txtPrdNam.Text = ""
        '
        'txtPrdId
        '
        Me.txtPrdId.Font = New System.Drawing.Font("宋体", 10.5!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
        Me.txtPrdId.ForeColor = System.Drawing.Color.Black
        Me.txtPrdId.Location = New System.Drawing.Point(93, 19)
        Me.txtPrdId.Name = "txtPrdId"
        Me.txtPrdId.Size = New System.Drawing.Size(172, 23)
        Me.txtPrdId.TabIndex = 44
        Me.txtPrdId.Text = ""
        '
        'btnAdd
        '
        Me.btnAdd.Font = New System.Drawing.Font("宋体", 10.5!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
        Me.btnAdd.ForeColor = System.Drawing.Color.Navy
        Me.btnAdd.Location = New System.Drawing.Point(688, 16)
        Me.btnAdd.Name = "btnAdd"
        Me.btnAdd.Size = New System.Drawing.Size(64, 32)
        Me.btnAdd.TabIndex = 50
        Me.btnAdd.Text = "添  加"
        '
        'lblDepotId
        '
        Me.lblDepotId.Font = New System.Drawing.Font("宋体", 10.5!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
        Me.lblDepotId.ForeColor = System.Drawing.Color.Black
        Me.lblDepotId.Location = New System.Drawing.Point(17, 99)
        Me.lblDepotId.Name = "lblDepotId"
        Me.lblDepotId.Size = New System.Drawing.Size(74, 16)
        Me.lblDepotId.TabIndex = 56
        Me.lblDepotId.Text = "商品说明:"
        '
        'lblGoodsPrice
        '
        Me.lblGoodsPrice.Font = New System.Drawing.Font("宋体", 10.5!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
        Me.lblGoodsPrice.ForeColor = System.Drawing.Color.Black
        Me.lblGoodsPrice.Location = New System.Drawing.Point(388, 60)
        Me.lblGoodsPrice.Name = "lblGoodsPrice"
        Me.lblGoodsPrice.Size = New System.Drawing.Size(72, 16)
        Me.lblGoodsPrice.TabIndex = 53
        Me.lblGoodsPrice.Text = "商品价格:"
        '
        'lblGoodsCount
        '
        Me.lblGoodsCount.Font = New System.Drawing.Font("宋体", 10.5!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
        Me.lblGoodsCount.ForeColor = System.Drawing.Color.Black
        Me.lblGoodsCount.Location = New System.Drawing.Point(17, 61)
        Me.lblGoodsCount.Name = "lblGoodsCount"
        Me.lblGoodsCount.Size = New System.Drawing.Size(74, 16)
        Me.lblGoodsCount.TabIndex = 51
        Me.lblGoodsCount.Text = "商品数量:"
        '
        'lblGoodName
        '
        Me.lblGoodName.Font = New System.Drawing.Font("宋体", 10.5!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
        Me.lblGoodName.ForeColor = System.Drawing.Color.Black
        Me.lblGoodName.Location = New System.Drawing.Point(388, 26)
        Me.lblGoodName.Name = "lblGoodName"
        Me.lblGoodName.Size = New System.Drawing.Size(72, 16)
        Me.lblGoodName.TabIndex = 45
        Me.lblGoodName.Text = "商品名称:"
        '
        'lblGoodId
        '
        Me.lblGoodId.Font = New System.Drawing.Font("宋体", 10.5!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
        Me.lblGoodId.ForeColor = System.Drawing.Color.Black
        Me.lblGoodId.Location = New System.Drawing.Point(17, 26)
        Me.lblGoodId.Name = "lblGoodId"
        Me.lblGoodId.Size = New System.Drawing.Size(74, 16)
        Me.lblGoodId.TabIndex = 43
        Me.lblGoodId.Text = "商品编号:"
        '
        'btnPrd
        '
        Me.btnPrd.Font = New System.Drawing.Font("宋体", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
        Me.btnPrd.ForeColor = System.Drawing.Color.Green
        Me.btnPrd.Location = New System.Drawing.Point(272, 19)
        Me.btnPrd.Name = "btnPrd"
        Me.btnPrd.Size = New System.Drawing.Size(24, 24)
        Me.btnPrd.TabIndex = 38
        Me.btnPrd.Text = "…"
        '
        'Label1
        '
        Me.Label1.ForeColor = System.Drawing.Color.Black
        Me.Label1.Location = New System.Drawing.Point(651, 57)
        Me.Label1.Name = "Label1"
        Me.Label1.Size = New System.Drawing.Size(16, 16)
        Me.Label1.TabIndex = 38
        Me.Label1.Text = "元"
        '
        'frmSal
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.ClientSize = New System.Drawing.Size(794, 647)
        Me.Controls.Add(Me.grbSal)
        Me.Controls.Add(Me.grbSalList)
        Me.Controls.Add(Me.dgdSal)
        Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
        Me.MaximizeBox = False
        Me.MinimizeBox = False
        Me.Name = "frmSal"
        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
        Me.Text = "销售单"
        CType(Me.dgdSal, System.ComponentModel.ISupportInitialize).EndInit()
        Me.grbSal.ResumeLayout(False)
        Me.grbSalList.ResumeLayout(False)
        Me.ResumeLayout(False)

    End Sub

#End Region
    Private Sub frmSal_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        If Me.Width > 270 Then
            dgdSal.Left = 5
            dgdSal.Top = 0
            dgdSal.Width = Me.Width - 5
            dgdSal.Height = Me.Height / 2 - 20
            dgdSal.RowHeaderWidth = 5
            dgdSal.PreferredColumnWidth = (dgdSal.Width - 10) / 7

            grbSal.Left = 15
            grbSal.Top = dgdSal.Height + 35
            grbSal.Width = Me.Width - 30
            grbSal.Height = Me.Height / 4 - 50

            grbSalList.Left = 15
            grbSalList.Top = grbSal.Height + dgdSal.Height + 40
            grbSalList.Width = Me.Width - 30
            grbSalList.Height = Me.Height / 4 + 20
            'dgdSal.Left = 230
            'dgdSal.Top = 0
            'dgdSal.Width = Me.Width - 230
            'dgdSal.Height = Me.Height / 2
            'dgdSal.RowHeaderWidth = 5
            'dgdSal.PreferredColumnWidth = dgdSal.Width / 7

            'grbSal.Left = 240
            'grbSal.Top = dgdSal.Height + 28
            'grbSal.Width = Me.Width - 280
            'grbSal.Height = Me.Height / 4 - 70

            'grbSalList.Left = 240
            'grbSalList.Top = grbSal.Height + dgdSal.Height + 30
            'grbSalList.Width = Me.Width - 280
            'grbSalList.Height = Me.Height / 4 - 10

        End If

        FreshFrm()
    End Sub
    Private Sub FreshFrm()
        txtSalEmp.Text = ""
        txtPrdId.Text = ""
        txtPrdQua.Text = ""
        txtPrdPrc.Text = ""
        txtSalMemo.Text = ""
        dgdSal.DataBindings.Clear()
        dtpSalDat.DataBindings.Clear()
        txtSalEmp.DataBindings.Clear()
        txtPrdId.DataBindings.Clear()
        txtPrdQua.DataBindings.Clear()
        txtPrdPrc.DataBindings.Clear()
        txtSalMemo.DataBindings.Clear()
        dgdSal.DataSource = salObj.Refresh
        dtpSalDat.DataBindings.Add("value", dgdSal.DataSource, "销售日期")
        txtSalEmp.DataBindings.Add("text", dgdSal.DataSource, "经手人")
        txtPrdId.DataBindings.Add("text", dgdSal.DataSource, "商品编号")
        txtPrdQua.DataBindings.Add("text", dgdSal.DataSource, "销售数量")
        txtPrdPrc.DataBindings.Add("text", dgdSal.DataSource, "销售价格")
        txtSalMemo.DataBindings.Add("text", dgdSal.DataSource, "销售说明")
        If dgdSal.VisibleRowCount > 0 Then
            strSalListID = dgdSal.Item(dgdSal.CurrentRowIndex, 0)
            SalQua = Val(dgdSal.Item(dgdSal.CurrentRowIndex, 5))
            btnDel.Enabled = True
            btnEdt.Enabled = True
        Else
            btnEdt.Enabled = False
            btnDel.Enabled = False
            dtpSalDat.Value = Today
        End If
    End Sub


    Private Sub txtPrdId_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtPrdId.TextChanged
        If Trim(txtPrdId.Text) <> "" Then
            txtPrdNam.Text = salObj.PrdIdToNam(txtPrdId.Text)
        End If
    End Sub

    Private Sub btnPrd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPrd.Click

        Dim myfrm As New frmEdtPrd


        myfrm.btnAdd.Visible = False
        myfrm.btnDel.Visible = False
        myfrm.btnEdt.Visible = False
        myfrm.btnExt.Visible = False
        myfrm.btnSav.Visible = False

        myfrm.WindowState = FormWindowState.Normal
        myfrm.TopMost = True
        myfrm.StartPosition = FormStartPosition.CenterParent
        myfrm.Text = "请双击选择商品"
        myfrm.Width = 750
        myfrm.dgdPrd.Left = 0
        myfrm.grbPrd.Left = 5
        myfrm.dgdPrd.Top = 0
        myfrm.grbPrd.Top = myfrm.dgdPrd.Height + 5
        myfrm.dgdPrd.Width = 750
        myfrm.grbPrd.Width = 730
        myfrm.grbPrd.Height = 240
        myfrm.B = True
        myfrm.ShowDialog(Me)
        txtPrdId.Text = myfrm.strPrdId

    End Sub



    Private Sub btnAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAdd.Click
        If salObj.AddSal(Trim(txtPrdId.Text), dtpSalDat.Value, Trim(txtSalEmp.Text), Trim(txtPrdQua.Text), Trim(txtPrdPrc.Text), Trim(txtSalMemo.Text)) Then
            MsgBox("数据增加成功！", MsgBoxStyle.Information)
        End If
        FreshFrm()
    End Sub

    Private Sub btnEdt_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEdt.Click
        If salObj.EdtSal(strSalListID, Trim(txtPrdId.Text), dtpSalDat.Value, Trim(txtSalEmp.Text), Trim(txtPrdQua.Text), Trim(txtPrdPrc.Text), Trim(txtSalMemo.Text)) Then
            MsgBox("数据增加成功！", MsgBoxStyle.Information)
        End If
        FreshFrm()
    End Sub


    Private Sub btnDel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDel.Click
        If MsgBox("数据删除后不可恢复，确实要删除吗？", MsgBoxStyle.YesNo + MsgBoxStyle.Question) = MsgBoxResult.No Then Exit Sub
        If salObj.DelSal(Trim(strSalListID)) Then
            MsgBox("数据删除成功！", MsgBoxStyle.Information)
        End If
        FreshFrm()
    End Sub


    Private Sub dgdSal_CurrentCellChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles dgdSal.CurrentCellChanged
        If dgdSal.VisibleRowCount > 0 Then
            strSalListID = dgdSal.Item(dgdSal.CurrentRowIndex, 0)
            SalQua = Val(dgdSal.Item(dgdSal.CurrentRowIndex, 5))
        End If
    End Sub


    Private Sub btnExt_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExt.Click
        Me.Close()
    End Sub
End Class