Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim id$ = "jack"
        Dim pw$ = "luck007"
        If TextBox1.Text = id And TextBox2.Text = pw Then
            MsgBox("歡迎進入圖書資訊系統", , "系統提示")
        Else
            MsgBox("帳號或密碼輸入錯誤，請重新輸入", , "系統提示")
        End If
arrow
arrow
    全站熱搜
    創作者介紹
    創作者 台中家商 小柯 的頭像
    台中家商 小柯

    小柯的文章貼簿

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

    E-mail轉寄