frmedtsup.vb

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

        Me.dgdSup.BorderStyle = System.Windows.Forms.BorderStyle.None
        Me.dgdSup.CaptionBackColor = System.Drawing.Color.RoyalBlue
        Me.dgdSup.CaptionForeColor = System.Drawing.Color.White
        Me.dgdSup.CaptionVisible = False
        Me.dgdSup.DataMember = ""
        Me.dgdSup.FlatMode = True
        Me.dgdSup.Font = New System.Drawing.Font("Tahoma", 8.0!)
        Me.dgdSup.ForeColor = System.Drawing.Color.MidnightBlue
        Me.dgdSup.GridLineColor = System.Drawing.Color.RoyalBlue
        Me.dgdSup.HeaderBackColor = System.Drawing.Color.MidnightBlue
        Me.dgdSup.HeaderFont = New System.Drawing.Font("Tahoma", 8.0!, System.Drawing.FontStyle.Bold)
        Me.dgdSup.HeaderForeColor = System.Drawing.Color.Lavender
        Me.dgdSup.LinkColor = System.Drawing.Color.Teal
        Me.dgdSup.Location = New System.Drawing.Point(32, 8)
        Me.dgdSup.Name = "dgdSup"
        Me.dgdSup.ParentRowsBackColor = System.Drawing.Color.Lavender
        Me.dgdSup.ParentRowsForeColor = System.Drawing.Color.MidnightBlue
        Me.dgdSup.ReadOnly = True
        Me.dgdSup.SelectionBackColor = System.Drawing.Color.Teal
        Me.dgdSup.SelectionForeColor = System.Drawing.Color.PaleGreen
        Me.dgdSup.Size = New System.Drawing.Size(605, 157)
        Me.dgdSup.TabIndex = 21
        '
        'frmEdtSup
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.ClientSize = New System.Drawing.Size(794, 647)
        Me.Controls.Add(Me.grbSup)
        Me.Controls.Add(Me.btnDel)
        Me.Controls.Add(Me.btnAdd)
        Me.Controls.Add(Me.btnExt)
        Me.Controls.Add(Me.btnSav)
        Me.Controls.Add(Me.btnEdt)
        Me.Controls.Add(Me.dgdSup)
        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 = "frmEdtSup"
        Me.Text = "编辑供应商信息"
        Me.grbSup.ResumeLayout(False)
        CType(Me.dgdSup, System.ComponentModel.ISupportInitialize).EndInit()
        Me.ResumeLayout(False)

    End Sub

#End Region
    Dim SavAsAdd As Boolean
    Dim edtsupObj As New SCMAPP.EdtSup

    Public Function GetSqlStr(ByVal str As String) As String
        Return Replace(str, "'", "''")
    End Function
    Private Sub frmEdtPrd_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        If B = False Then


            dgdSup.Left = 5
            dgdSup.Top = 0
            dgdSup.Width = Me.Width - 5
            dgdSup.Height = 2 * Me.Height / 5
            dgdSup.RowHeaderWidth = 5
            dgdSup.PreferredColumnWidth = (dgdSup.Width - 10) / 5

            grbSup.Left = 15
            grbSup.Top = dgdSup.Height + 15
            grbSup.Width = Me.Width - 30
            grbSup.Height = Me.Height - dgdSup.Height - 90

            btnAdd.Top = dgdSup.Height + grbSup.Height + 30
            btnDel.Top = dgdSup.Height + grbSup.Height + 30
            btnEdt.Top = dgdSup.Height + grbSup.Height + 30
            btnSav.Top = dgdSup.Height + grbSup.Height + 30
            btnExt.Top = dgdSup.Height + grbSup.Height + 30
        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
            dgdSup.Left = 0
            dgdSup.Top = 0
            dgdSup.Width = Me.Width - 10
            dgdSup.Height = 2 * Me.Height / 5
            dgdSup.RowHeaderWidth = 5
            dgdSup.PreferredColumnWidth = (dgdSup.Width - 5) / 5

            grbSup.Left = 15
            grbSup.Top = dgdSup.Height + 15
            grbSup.Width = Me.Width - 30
            grbSup.Height = Me.Height - dgdSup.Height - 110
            Me.Height = Me.Height - 50

        End If
        dgdSup.DataSource = edtsupObj.Refresh
        FreshFrm(0)
    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 = ""
        txtTel.Enabled = True
        txtTel.Text = ""
        txtFax.Enabled = True
        txtFax.Text = ""
        txtAdr.Text = ""
        txtAdr.Enabled = True



        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
        txtAdr.Enabled = True
        txtTel.Enabled = True
        txtFax.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 edtsupObj.DelSup(Trim(txtID.Text)) = True Then
            dgdSup.DataSource = edtsupObj.Refresh
        End If
        FreshFrm(0)
    End Sub
    Private Sub FreshFrm(ByVal n As Integer)
        If dgdSup.VisibleRowCount > 0 Then
            btnAdd.Enabled = True
            btnSav.Enabled = False
            txtID.Enabled = False
            txtName.Enabled = False
            txtTel.Enabled = False
            txtFax.Enabled = False
            txtAdr.Enabled = False
            btnDel.Enabled = True
            btnEdt.Enabled = True
            txtID.Text = dgdSup.Item(n, 0)
            txtName.Text = dgdSup.Item(n, 1)
            txtFax.Text = dgdSup.Item(n, 2)
            txtTel.Text = dgdSup.Item(n, 3)
            txtAdr.Text = dgdSup.Item(n, 4)
        Else
            btnAdd.Enabled = True
            btnSav.Enabled = False
            txtID.Enabled = False
            txtName.Enabled = False
            txtID.Enabled = False
            txtName.Enabled = False
            txtTel.Enabled = False
            txtFax.Enabled = False
            txtAdr.Enabled = False
            btnDel.Enabled = False
            btnEdt.Enabled = False
            txtID.Text = ""
            txtName.Text = ""
            txtTel.Text = ""
            txtFax.Text = ""
            txtAdr.Text = ""


        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


    Private Sub btnSav_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSav.Click

        If SavAsAdd = True Then
            If edtsupObj.AddSup(Trim(txtName.Text), Trim(txtFax.Text), Trim(txtTel.Text), Trim(txtAdr.Text)) = True Then
                '增加操作
                dgdSup.DataSource = edtsupObj.Refresh
            End If
        Else
            '修改操作
            If edtsupObj.EdtSup(Trim(txtName.Text), Trim(txtFax.Text), Trim(txtTel.Text), Trim(txtAdr.Text), Trim(txtID.Text)) = True Then
                '修改成功，刷新表格数据源
                dgdSup.DataSource = edtsupObj.Refresh
            End If
        End If


        FreshFrm(dgdSup.CurrentRowIndex)
    End Sub




    Private Sub dgdsup_CurrentCellChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles dgdSup.CurrentCellChanged
        FreshFrm(dgdSup.CurrentCell.RowNumber)
    End Sub





    '公用变量记录供应商编号
    Public strSupId As String
    '公用变量标志是否双击关闭
    Public B As Boolean = False
    Private Sub dgdSup_DoubleClick(ByVal sender As Object, ByVal e As _
            System.EventArgs) Handles dgdSup.DoubleClick
        '双击选择供应商
        strSupId = dgdSup.Item(dgdSup.CurrentRowIndex, 0)
        If B Then Me.Close()
    End Sub
End Class