form1.vb

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

Public Class Form1
    Private Sub button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If Label5.Text = TxtAttachCode.Text Then
            User = New tbuser(Trim(txtno.Text), txtPassWord.Text)
            If User.LoginConfirm Then
                'Dim Frmobj As New Form2()
                Frmobj.Show() '显示主窗体
                Frmobj.Mnu_xt.Enabled = True
                Frmobj.Mnu_qt.Enabled = True
                Frmobj.Mnu_ht.Enabled = True
                Frmobj.Mnu_sp.Enabled = True
                Me.Finalize()
            Else
                MsgBox("输入错误，请重试", MsgBoxStyle.Critical, "信息框")
                Label5.Text = tbuser.AttachCode
                Exit Sub
            End If
        Else
            MsgBox("输入错误，请重试", MsgBoxStyle.Critical, "信息框")
            Label5.Text = tbuser.AttachCode
            Exit Sub
        End If
        Me.Close()
    End Sub

    Private Sub form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Label5.Text = tbuser.AttachCode
    End Sub

    Private Sub button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        End
    End Sub
    Private Sub txtno_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtno.KeyPress
        If e.KeyChar = Chr(13) Then
            txtPassWord.Focus()
        End If
    End Sub
    Private Sub txtPassWord_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtPassWord.KeyPress
        If e.KeyChar = Chr(13) Then
            TxtAttachCode.Focus()
        End If
    End Sub
    Private Sub TxtAttachCode_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TxtAttachCode.KeyPress
        If e.KeyChar = Chr(13) Then
            Button1.Focus()
        End If
    End Sub

End Class