formeditleibie.vb

来自「用VB开发了一个超市管理系统」· VB 代码 · 共 42 行

Public Class Formeditleibie

    Private _fenleino As String
    Sub New(ByVal fenleino As String)
        _fenleino = fenleino
        InitializeComponent()
    End Sub
    Private Sub BtOK_Clik(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btok.Click
        If Trim(txtfenleiname.Text) = "" Then
            MsgBox("商品分类名不能为空!", MsgBoxStyle.Exclamation, "信息框")
            Exit Sub
        End If
        Dim Tempspfl As spfl
        Tempspfl = New spfl(txtfenleino.Text, txtfenleiname.Text)
        Tempspfl.Updatespfl()
        Close()
    End Sub
    Private Sub BtnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btexit.Click
        Close()
    End Sub

    Private Sub Frmedit_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim DTable As DataTable
        DTable = spfl.Loadspfl("fenleino", _fenleino, "")
        txtfenleino.Text = DTable.Rows(0)("商品分类号").ToString
        txtfenleiname.Text = DTable.Rows(0)("商品分类名").ToString
    End Sub

    Private Sub txtfenleino_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtfenleino.KeyPress
        If e.KeyChar = Chr(13) Then
            txtfenleiname.Focus()
        End If
    End Sub

    Private Sub txtfenleiname_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtfenleiname.KeyPress
        If e.KeyChar = Chr(13) Then
            btok.Focus()
        End If
    End Sub


End Class