Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim id, pw As String
        id = TextBox1.Text
        pw = TextBox2.Text
        If id = "jack" And pw = "luck007" Then
            MsgBox("歡迎進入圖書資訊系統", , "系統提示")
        Else
            MsgBox("帳號或密碼輸入錯誤", , "系統提示")
        End If
    End Sub

請注意:密碼欄要隱藏

文章標籤
全站熱搜
創作者介紹
創作者 台中家商 小柯 的頭像
台中家商 小柯

小柯的文章貼簿

台中家商 小柯 發表在 痞客邦 留言(0) 人氣(2)