繁體
|
簡體
Sclub交友聊天~加入聊天室當版主
(檢舉)
分享
新浪微博
QQ空间
人人网
腾讯微博
Facebook
Google+
Plurk
Twitter
Line
標題:
簡易帳密登入的程式
[打印本頁]
作者:
yeazzz3x2c1
時間:
2011-11-16 22:50
標題:
簡易帳密登入的程式
假設帳號為"1"(可自行更改)
密碼為"2"
材料:表單2個 TEXT2個(圖中顯示abl)
TEXT1就是帳號輸入處
TEXT2就是密碼輸入處
'管理員 ~葉~ 編輯
If Text1.Text = "" Then '判斷使用者是否有輸入文字
MsgBox "帳號不可空白!", 0 + 64, "訊息" '這裡告知使用者必須輸入文字
Else '如果使用者有輸入文字
If Text1.Text = "1" Then '如果使用者在帳號欄裡輸入的是"1"
If Text2.Text = "2" Then '如果使用者在密碼欄裡輸入的是"2"
Form2.Show '承上,如果帳號與密碼輸入正確,開啟主程式表單! 此行代表開啟FORM2(表單)
Unload Me '關閉這個表單(在此代表FORM1)
Else '如果使用者密碼輸入的不是"2"
MsgBox "帳號或密碼錯誤", 0 + 64, "訊息" '告知使用者帳號或密碼輸入錯誤
End If '結束密碼判斷
Else '如果帳號不是輸入1
MsgBox "帳號或密碼錯誤", 0 + 64, "訊息" '告知使用者帳號或密碼輸入錯誤
End If '結束帳號判斷
End If '結束帳號空白判斷
'管理員 ~葉~ 編輯
複製代碼
註:如果MSGBOX遭到錯誤判斷,請將"、"改為","(可能因為系統的關西,發完文章他會自動轉換)
影片:[youtube1=WXaoBIPUwcQ,600]439[/youtube1]
實際上...還有更簡單的方法...↓
'管理員 ~葉~ 編輯
'設帳號為1 密碼為2
If Text1.Text = "" Then '判斷使用者是否有輸入文字
MsgBox "帳號不可空白!", 0 + 64, "訊息" '這裡告知使用者必須輸入文字
Else '如果使用者有輸入文字
If Text1.Text = "1" And Text2.Text = "2" Then
Form2.Show '如果帳號與密碼輸入正確,開啟主程式表單! 此行代表開啟FORM2(表單)
Unload Me '關閉這個表單(在此代表FORM1)
Else '如果使用者密碼帳號或密碼輸入錯誤
MsgBox "帳號或密碼錯誤", 0 + 64, "訊息" '告知使用者帳號或密碼輸入錯誤
End If '結束帳號密碼判斷
End If '結束帳號空白判斷
複製代碼
註:如果MSGBOX遭到錯誤判斷,請將"、"改為","(可能因為系統的關西,發完文章他會自動轉換)
2014/12/22
經過3年的修煉哈哈哈(?)
本人也透過互相學習進步了~
突然看到這篇文章=))
就用現在微不足道的功力再修改一下
變成~
If Text1.text = "" or Text2.text = "" Then _
MsgBox "帳號或密碼不可空白!", 0 + 64, "訊息" : Exit Sub '這裡告知使用者必須輸入文字
If Text1.text <> "1" or Text2.text <> "2" Then _
MsgBox "帳號或密碼錯誤", 0 + 64, "訊息" : Exit Sub '告知使用者帳號或密碼輸入錯誤
Form2.Show
Unload Me
複製代碼
是不是精簡多了呢?
人都是會慢慢進步的哈哈哈
所以遇到挫折不要氣餒喔!
另外本文章的註解請勿刪除
就是愛~VB 管理員 ~葉~(2014/12/22)
作者:
love85010
時間:
2012-1-30 18:53
好強唷@@! 真想學= =
作者:
rabbit22337
時間:
2012-2-29 15:27
如果要多組帳密如何偏寫? 感謝您
作者:
yeazzz3x2c1
時間:
2012-3-1 23:07
3#
rabbit22337
那您可以使用ACCESS資料庫囉!或者你可以...
'管理員 ~葉~ 編輯
'設帳號為1 密碼為2 第2組:帳號為3 密碼為4
If Text1.Text = "" Then '判斷使用者是否有輸入文字
MsgBox "帳號不可空白!", 0 + 64, "訊息" '這裡告知使用者必須輸入文字
Else '如果使用者有輸入文字
If Text1.Text = "1" And Text2.Text = "2" OR Text1.Text = "3" And Text2.Text = "4" Then '這裡如果要新增更多組帳密就給他一直OR下去拉~
Form2.Show '如果帳號與密碼輸入正確,開啟主程式表單! 此行代表開啟FORM2(表單)
Unload Me '關閉這個表單(在此代表FORM1)
Else '如果使用者密碼帳號或密碼輸入錯誤
MsgBox "帳號或密碼錯誤", 0 + 64, "訊息" '告知使用者帳號或密碼輸入錯誤
End If '結束帳號密碼判斷
End If '結束帳號空白判斷
複製代碼
作者:
rabbit22337
時間:
2012-3-2 12:22
原來是要用"or"分開 之前都用";"都錯誤
感謝您~
作者:
yeazzz3x2c1
時間:
2012-3-4 10:53
以後有問題可以在發問喔~
作者:
rabbit22337
時間:
2012-4-5 14:10
這次我想問怎麼連結ACCESS資料庫做帳密的管理
就是可以設定這組帳密的使用期限
需要詳細步驟~就像影片那樣
感恩~
作者:
yeazzz3x2c1
時間:
2012-4-16 22:27
Access實際上我也沒有再研究,所以我也不知道怎麼寫
抱歉囉
作者:
35717453
時間:
2012-7-14 15:35
回復
4#
yeazzz3x2c1
= =lll 你地1個就寫錯了....
明明是OR你就寫成AND 0.0
作者:
yeazzz3x2c1
時間:
2012-7-16 21:44
請您只細看清楚,and是一組的,有2組以上則用or分開!
作者:
y19971017
時間:
2012-8-2 13:28
好強,THX YOU了^^
作者:
fovft
時間:
2013-8-29 22:17
原来是这样啊·········
听说这个
天天爱消除刷分
,
天天爱消除刷分工具
很不错耶 ,
http://www.onlinedown.net/soft/521198.htm
作者:
a58264792
時間:
2015-4-3 13:03
https://www.youtube.com/watch?v=9lidM3uNzVM
這傢伙直接複製貼上 把管理員改成自己 然後標題又說自製 很騙阿
歡迎光臨 就是愛~VB (http://yeazzz3x2c1.weclub.info/)
Powered by Discuz! 7.2