frmpur.vb

超市进销存管理系统的源码。基于.NET平台

        '
        'txtPrdPrc
        '
        Me.txtPrdPrc.Font = New System.Drawing.Font("宋体", 10.5!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
        Me.txtPrdPrc.ForeColor = System.Drawing.Color.Black
        Me.txtPrdPrc.Location = New System.Drawing.Point(472, 54)
        Me.txtPrdPrc.Name = "txtPrdPrc"
        Me.txtPrdPrc.Size = New System.Drawing.Size(180, 23)
        Me.txtPrdPrc.TabIndex = 54
        Me.txtPrdPrc.Text = ""
        '
        'txtPrdQua
        '
        Me.txtPrdQua.Font = New System.Drawing.Font("宋体", 10.5!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
        Me.txtPrdQua.ForeColor = System.Drawing.Color.Black
        Me.txtPrdQua.Location = New System.Drawing.Point(96, 54)
        Me.txtPrdQua.Name = "txtPrdQua"
        Me.txtPrdQua.Size = New System.Drawing.Size(202, 23)
        Me.txtPrdQua.TabIndex = 52
        Me.txtPrdQua.Text = ""
        '
        'txtPrdNam
        '
        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(472, 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(96, 19)
        Me.txtPrdId.Name = "txtPrdId"
        Me.txtPrdId.ReadOnly = True
        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(689, 20)
        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(20, 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(391, 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(20, 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(391, 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(20, 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(275, 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(654, 57)
        Me.Label1.Name = "Label1"
        Me.Label1.Size = New System.Drawing.Size(16, 16)
        Me.Label1.TabIndex = 38
        Me.Label1.Text = "元"
        '
        'frmPur
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.ClientSize = New System.Drawing.Size(794, 647)
        Me.Controls.Add(Me.grbPur)
        Me.Controls.Add(Me.grbPurList)
        Me.Controls.Add(Me.dgdPur)
        Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
        Me.MaximizeBox = False
        Me.MinimizeBox = False
        Me.Name = "frmPur"
        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
        Me.Text = "采购单"
        CType(Me.dgdPur, System.ComponentModel.ISupportInitialize).EndInit()
        Me.grbPur.ResumeLayout(False)
        Me.grbPurList.ResumeLayout(False)
        Me.ResumeLayout(False)

    End Sub

#End Region

    Private Sub frmPur_Load(ByVal sender As System.Object, ByVal e As _
            System.EventArgs) Handles MyBase.Load
        '调整窗体中控件的大小和位置
        If Me.Width > 270 Then

            dgdPur.Left = 5
            dgdPur.Top = 0
            dgdPur.Width = Me.Width - 5
            dgdPur.Height = Me.Height / 2 - 20
            dgdPur.RowHeaderWidth = 5
            dgdPur.PreferredColumnWidth = (dgdPur.Width - 10) / 8

            grbPur.Left = 15
            grbPur.Top = dgdPur.Height + 35
            grbPur.Width = Me.Width - 30
            grbPur.Height = Me.Height / 4 - 50

            grbPurList.Left = 15
            grbPurList.Top = grbPur.Height + dgdPur.Height + 40
            grbPurList.Width = Me.Width - 30
            grbPurList.Height = Me.Height / 4 + 20

        End If
        '调用自定义过程设置各个控件的显示内容
        FreshFrm()
    End Sub



    Private Sub FreshFrm()
        '先清除文本框显示的内容
        txtPurEmp.Text = ""
        txtSupId.Text = ""
        txtPrdId.Text = ""
        txtPrdQua.Text = ""
        txtPrdPrc.Text = ""
        txtPurMemo.Text = ""
        '清除数据绑定
        dgdPur.DataBindings.Clear()
        dtpPurDat.DataBindings.Clear()
        txtPurEmp.DataBindings.Clear()
        txtSupId.DataBindings.Clear()
        txtPrdId.DataBindings.Clear()
        txtPrdQua.DataBindings.Clear()
        txtPrdPrc.DataBindings.Clear()
        txtPurMemo.DataBindings.Clear()
        '重新设数据绑定
        dgdPur.DataSource = purObj.Refresh
        dtpPurDat.DataBindings.Add("value", dgdPur.DataSource, "采购日期")
        txtPurEmp.DataBindings.Add("text", dgdPur.DataSource, "经手人")
        txtSupId.DataBindings.Add("text", dgdPur.DataSource, "供应商编号")
        txtPrdId.DataBindings.Add("text", dgdPur.DataSource, "商品编号")
        txtPrdQua.DataBindings.Add("text", dgdPur.DataSource, "采购数量")
        txtPrdPrc.DataBindings.Add("text", dgdPur.DataSource, "采购价格")
        txtPurMemo.DataBindings.Add("text", dgdPur.DataSource, "采购说明")
        If dgdPur.VisibleRowCount > 0 Then
            '有数据时记录采购单编号和库存数量，并设置按钮状态
            strPurListID = dgdPur.Item(dgdPur.CurrentRowIndex, 0)
            PurQua = Val(dgdPur.Item(dgdPur.CurrentRowIndex, 5))
            btnDel.Enabled = True
            btnEdt.Enabled = True
        Else
            '设置按钮状态
            btnDel.Enabled = False
            btnEdt.Enabled = False
            dtpPurDat.Value = Today
        End If
    End Sub


    Private Sub dgdPur_CurrentCellChanged(ByVal sender As Object, ByVal e As _
            System.EventArgs) Handles dgdPur.CurrentCellChanged
        '记录当前采购记录的采购单编号和采购数量，以便做出修改时对照
        If dgdPur.VisibleRowCount > 0 Then
            strPurListID = dgdPur.Item(dgdPur.CurrentRowIndex, 0)
            PurQua = Val(dgdPur.Item(dgdPur.CurrentRowIndex, 5))
        End If
    End Sub

    Private Sub btnSup_Click(ByVal sender As System.Object, ByVal e As _
            System.EventArgs) Handles btnSup.Click
        '调用frmEdtSup窗体,通过双击供应商记录选择
        Dim myfrm As New frmEdtSup
        '设置标志变量
        myfrm.B = True
        myfrm.ShowDialog()
        '返回选择的供应商编号
        txtSupId.Text = myfrm.strSupId
    End Sub


    Private Sub txtSupId_TextChanged(ByVal sender As System.Object, ByVal e As _
            System.EventArgs) Handles txtSupId.TextChanged
        '供应商编号变化时改变供应商名称
        If Trim(txtSupId.Text) <> "" Then
            txtSupNam.Text = purObj.SupIdToNam(Trim(txtSupId.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.B = True
        myfrm.ShowDialog(Me)
        txtPrdId.Text = myfrm.strPrdId

    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 = purObj.PrdIdToNam(txtPrdId.Text)
        End If
    End Sub








    Private Sub btnAdd_Click(ByVal sender As System.Object, ByVal e As _
            System.EventArgs) Handles btnAdd.Click
        If purObj.AddPur(Trim(txtPrdId.Text), Trim(txtSupId.Text), _
            dtpPurDat.Value, Trim(txtPurEmp.Text), Trim(txtPrdQua.Text), _
            Trim(txtPrdPrc.Text), Trim(txtPurMemo.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 purObj.EdtPur(strPurListID, Trim(txtPrdId.Text), Trim(txtSupId.Text), dtpPurDat.Value, Trim(txtPurEmp.Text), Trim(txtPrdQua.Text), Trim(txtPrdPrc.Text), Trim(txtPurMemo.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 purObj.DelPur(Trim(strPurListID)) Then
            MsgBox("数据删除成功！", MsgBoxStyle.Information)
        End If
        FreshFrm()


    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