frmedtprd.vb

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

        Me.btnSav.Location = New System.Drawing.Point(440, 416)
        Me.btnSav.Name = "btnSav"
        Me.btnSav.Size = New System.Drawing.Size(88, 40)
        Me.btnSav.TabIndex = 17
        Me.btnSav.Text = "保  存"
        '
        'btnEdt
        '
        Me.btnEdt.Font = New System.Drawing.Font("宋体", 15.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
        Me.btnEdt.ForeColor = System.Drawing.Color.Teal
        Me.btnEdt.Location = New System.Drawing.Point(320, 416)
        Me.btnEdt.Name = "btnEdt"
        Me.btnEdt.Size = New System.Drawing.Size(88, 40)
        Me.btnEdt.TabIndex = 16
        Me.btnEdt.Text = "编  辑"
        '
        'dgdPrd
        '
        Me.dgdPrd.AlternatingBackColor = System.Drawing.Color.GhostWhite
        Me.dgdPrd.BackColor = System.Drawing.Color.GhostWhite
        Me.dgdPrd.BackgroundColor = System.Drawing.Color.Lavender
        Me.dgdPrd.BorderStyle = System.Windows.Forms.BorderStyle.None
        Me.dgdPrd.CaptionBackColor = System.Drawing.Color.RoyalBlue
        Me.dgdPrd.CaptionForeColor = System.Drawing.Color.White
        Me.dgdPrd.CaptionVisible = False
        Me.dgdPrd.DataMember = ""
        Me.dgdPrd.FlatMode = True
        Me.dgdPrd.Font = New System.Drawing.Font("Tahoma", 8.0!)
        Me.dgdPrd.ForeColor = System.Drawing.Color.MidnightBlue
        Me.dgdPrd.GridLineColor = System.Drawing.Color.RoyalBlue
        Me.dgdPrd.HeaderBackColor = System.Drawing.Color.MidnightBlue
        Me.dgdPrd.HeaderFont = New System.Drawing.Font("Tahoma", 8.0!, System.Drawing.FontStyle.Bold)
        Me.dgdPrd.HeaderForeColor = System.Drawing.Color.Lavender
        Me.dgdPrd.LinkColor = System.Drawing.Color.Teal
        Me.dgdPrd.Location = New System.Drawing.Point(40, 8)
        Me.dgdPrd.Name = "dgdPrd"
        Me.dgdPrd.ParentRowsBackColor = System.Drawing.Color.Lavender
        Me.dgdPrd.ParentRowsForeColor = System.Drawing.Color.MidnightBlue
        Me.dgdPrd.ReadOnly = True
        Me.dgdPrd.SelectionBackColor = System.Drawing.Color.Teal
        Me.dgdPrd.SelectionForeColor = System.Drawing.Color.PaleGreen
        Me.dgdPrd.Size = New System.Drawing.Size(605, 157)
        Me.dgdPrd.TabIndex = 15
        '
        'frmEdtPrd
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.ClientSize = New System.Drawing.Size(794, 647)
        Me.Controls.Add(Me.grbPrd)
        Me.Controls.Add(Me.btnAdd)
        Me.Controls.Add(Me.btnExt)
        Me.Controls.Add(Me.btnSav)
        Me.Controls.Add(Me.btnEdt)
        Me.Controls.Add(Me.btnDel)
        Me.Controls.Add(Me.dgdPrd)
        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 = "frmEdtPrd"
        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
        Me.Text = "编辑商品资料"
        Me.grbPrd.ResumeLayout(False)
        CType(Me.dgdPrd, System.ComponentModel.ISupportInitialize).EndInit()
        Me.ResumeLayout(False)

    End Sub

#End Region
    '创建SCMDB类的对象
    '  Dim dbObj As New SCMDB.SCMDB
    '用于区分是对增加进行保存还是对编辑进行保存
    Dim SavAsAdd As Boolean
    '创建EdtPrd类的对象
    Dim edtprdObj As New SCMAPP.EdtPrd
    '区分是商品编辑中调用还是商品选择中调用
    Public B As Boolean

    Private Sub frmEdtPrd_Load(ByVal sender As System.Object, ByVal e As _
            System.EventArgs) Handles MyBase.Load
        '调整窗体中控件的位置和大小
        If B = False Then
            '商品编辑窗体
            dgdPrd.Left = 5
            dgdPrd.Top = 0
            dgdPrd.Width = Me.Width - 5
            dgdPrd.Height = 2 * Me.Height / 5 - 30
            dgdPrd.RowHeaderWidth = 5
            dgdPrd.PreferredColumnWidth = (dgdPrd.Width - 10) / 7
            grbPrd.Left = 15
            grbPrd.Top = dgdPrd.Height + 25
            grbPrd.Width = Me.Width - 30
            grbPrd.Height = Me.Height - dgdPrd.Height - 120
            btnAdd.Top = dgdPrd.Height + grbPrd.Height + 45
            btnDel.Top = dgdPrd.Height + grbPrd.Height + 45
            btnEdt.Top = dgdPrd.Height + grbPrd.Height + 45
            btnSav.Top = dgdPrd.Height + grbPrd.Height + 45
            btnExt.Top = dgdPrd.Height + grbPrd.Height + 45
        Else
            '商品选择窗体
            '功能按钮不可见
            Me.btnAdd.Visible = False
            Me.btnDel.Visible = False
            Me.btnEdt.Visible = False
            Me.btnExt.Visible = False
            Me.btnSav.Visible = False
            '设置窗体属性
            Me.TopMost = True
            Me.StartPosition = FormStartPosition.CenterParent
            Me.Text = "请双击选择商品"
            Me.FormBorderStyle = FormBorderStyle.Fixed3D
            Me.StartPosition = FormStartPosition.CenterScreen
            Me.Height = Me.Height - 50
            dgdPrd.Left = 0
            dgdPrd.Top = 0
            dgdPrd.Width = Me.Width - 10
            dgdPrd.Height = 2 * Me.Height / 5
            dgdPrd.RowHeaderWidth = 5
            dgdPrd.PreferredColumnWidth = (dgdPrd.Width - 5) / 7
            grbPrd.Left = 15
            grbPrd.Top = dgdPrd.Height + 15
            grbPrd.Width = Me.Width - 30
            grbPrd.Height = Me.Height - dgdPrd.Height - 110
            Me.Height = Me.Height - 50
        End If
        '设置表格的数据源
        dgdPrd.DataSource = edtprdObj.Refresh
        '刷新窗体中文本框和按钮等
        FreshFrm(0)
    End Sub


    Private Sub FreshFrm(ByVal n As Integer)
        If dgdPrd.VisibleRowCount > 0 Then
            '表格中有数据
            btnAdd.Enabled = True
            btnSav.Enabled = False
            txtID.Enabled = False
            txtName.Enabled = False
            cmbType.Enabled = False
            txtSize.Enabled = False
            txtNet.Enabled = False
            txtQua.Enabled = False
            txtMemo.Enabled = False
            btnDel.Enabled = True
            btnEdt.Enabled = True
            txtID.Text = dgdPrd.Item(n, 0)
            txtName.Text = dgdPrd.Item(n, 1)
            cmbType.Text = dgdPrd.Item(n, 2)
            txtSize.Text = dgdPrd.Item(n, 3)
            txtNet.Text = dgdPrd.Item(n, 4)
            txtQua.Text = dgdPrd.Item(n, 5)
            txtMemo.Text = dgdPrd.Item(n, 6)
        Else
            '表格中没有数据
            btnAdd.Enabled = True
            btnSav.Enabled = False
            txtID.Enabled = False
            txtName.Enabled = False
            cmbType.Enabled = False
            txtSize.Enabled = False
            txtNet.Enabled = False
            txtQua.Enabled = False
            txtMemo.Enabled = False
            btnDel.Enabled = False
            btnEdt.Enabled = False
            txtID.Text = ""
            txtName.Text = ""
            txtSize.Text = ""
            txtNet.Text = ""
            txtQua.Text = ""
            txtMemo.Text = ""
        End If
    End Sub


    Private Sub dgdPrd_CurrentCellChanged(ByVal sender As Object, ByVal e As _
            System.EventArgs) Handles dgdPrd.CurrentCellChanged
        FreshFrm(dgdPrd.CurrentCell.RowNumber)
    End Sub


    Private Sub btnAdd_Click(ByVal sender As System.Object, ByVal e As _
            System.EventArgs) Handles btnAdd.Click
        txtID.Enabled = False
        txtID.Text = ""
        txtName.Enabled = True
        txtName.Text = ""
        cmbType.Enabled = True
        cmbType.Text = "食品"
        txtSize.Enabled = True
        txtSize.Text = ""
        txtNet.Enabled = True
        txtNet.Text = ""
        txtQua.Enabled = False
        txtQua.Text = ""
        txtMemo.Enabled = True
        txtMemo.Text = ""
        btnAdd.Enabled = False
        btnDel.Enabled = False
        btnEdt.Enabled = False
        btnSav.Enabled = True
        SavAsAdd = True
    End Sub

    Private Sub btnEdt_Click(ByVal sender As System.Object, ByVal e As _
            System.EventArgs) Handles btnEdt.Click
        txtID.Enabled = False
        txtName.Enabled = True
        cmbType.Enabled = True
        txtSize.Enabled = True
        txtNet.Enabled = True
        txtQua.Enabled = False
        txtMemo.Enabled = True
        btnAdd.Enabled = False
        btnDel.Enabled = False
        btnEdt.Enabled = False
        btnSav.Enabled = True
        SavAsAdd = False
    End Sub

    Private Sub btnDel_Click(ByVal sender As System.Object, ByVal e As _
            System.EventArgs) Handles btnDel.Click
        If edtprdObj.DelPrd(Trim(txtID.Text)) = True Then
            dgdPrd.DataSource = edtprdObj.Refresh
        End If
        FreshFrm(0)
    End Sub



    Private Sub btnSav_Click(ByVal sender As System.Object, ByVal e As _
            System.EventArgs) Handles btnSav.Click
        If SavAsAdd = True Then
            '增加操作
            If edtprdObj.AddPrd(Trim(txtName.Text), Trim(cmbType.Text), _
                    Trim(txtSize.Text), Val(Trim(txtNet.Text)), _
                    Trim(txtMemo.Text)) = True Then
                '修改成功，刷新表格数据源
                dgdPrd.DataSource = edtprdObj.Refresh
            End If
        Else
            '修改操作
            If edtprdObj.EdtPrd(Trim(txtName.Text), Trim(cmbType.Text), _
                    Trim(txtSize.Text), Val(Trim(txtNet.Text)), _
                    Trim(txtMemo.Text), Trim(txtID.Text)) = True Then
                '修改成功，刷新表格数据源
                dgdPrd.DataSource = edtprdObj.Refresh
            End If
        End If
        '刷新窗体中控件
        FreshFrm(dgdPrd.CurrentRowIndex)
    End Sub

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






    Public strPrdId As String           ''''''''后面模块中使用

    Private Sub dgdPrd_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles dgdPrd.DoubleClick
        '''''此段程序是采购单中使用的，用于双击选择供应商
        strPrdId = dgdPrd.Item(dgdPrd.CurrentRowIndex, 0)
        If B Then Me.Close()
    End Sub
End Class