免費論壇 繁體 | 簡體
Sclub交友聊天~加入聊天室當版主
分享
Board logo

標題: 簡易帳密登入的程式 [打印本頁]

作者: yeazzz3x2c1    時間: 2011-11-16 22:50     標題: 簡易帳密登入的程式

假設帳號為"1"(可自行更改)
密碼為"2"

材料:表單2個  TEXT2個(圖中顯示abl)

TEXT1就是帳號輸入處
TEXT2就是密碼輸入處
  1. '管理員 ~葉~ 編輯

  2. If Text1.Text = "" Then '判斷使用者是否有輸入文字
  3. MsgBox "帳號不可空白!", 0 + 64, "訊息" '這裡告知使用者必須輸入文字
  4. Else '如果使用者有輸入文字
  5. If Text1.Text = "1" Then '如果使用者在帳號欄裡輸入的是"1"
  6. If Text2.Text = "2" Then '如果使用者在密碼欄裡輸入的是"2"
  7. Form2.Show '承上,如果帳號與密碼輸入正確,開啟主程式表單!      此行代表開啟FORM2(表單)
  8. Unload Me '關閉這個表單(在此代表FORM1)
  9. Else '如果使用者密碼輸入的不是"2"
  10. MsgBox "帳號或密碼錯誤", 0 + 64, "訊息" '告知使用者帳號或密碼輸入錯誤
  11. End If '結束密碼判斷
  12. Else '如果帳號不是輸入1
  13. MsgBox "帳號或密碼錯誤", 0 + 64, "訊息" '告知使用者帳號或密碼輸入錯誤
  14. End If '結束帳號判斷
  15. End If '結束帳號空白判斷
  16. '管理員 ~葉~ 編輯
複製代碼
註:如果MSGBOX遭到錯誤判斷,請將"、"改為","(可能因為系統的關西,發完文章他會自動轉換)

影片:[youtube1=WXaoBIPUwcQ,600]439[/youtube1]

實際上...還有更簡單的方法...↓
  1. '管理員 ~葉~ 編輯
  2. '設帳號為1 密碼為2
  3. If Text1.Text = "" Then '判斷使用者是否有輸入文字
  4. MsgBox "帳號不可空白!", 0 + 64, "訊息" '這裡告知使用者必須輸入文字
  5. Else '如果使用者有輸入文字
  6. If Text1.Text = "1" And Text2.Text = "2" Then
  7. Form2.Show '如果帳號與密碼輸入正確,開啟主程式表單!      此行代表開啟FORM2(表單)
  8. Unload Me '關閉這個表單(在此代表FORM1)
  9. Else '如果使用者密碼帳號或密碼輸入錯誤
  10. MsgBox "帳號或密碼錯誤", 0 + 64, "訊息" '告知使用者帳號或密碼輸入錯誤
  11. End If '結束帳號密碼判斷
  12. End If '結束帳號空白判斷
複製代碼
註:如果MSGBOX遭到錯誤判斷,請將"、"改為","(可能因為系統的關西,發完文章他會自動轉換)
2014/12/22
經過3年的修煉哈哈哈(?)
本人也透過互相學習進步了~
突然看到這篇文章=))
就用現在微不足道的功力再修改一下
變成~
  1. If Text1.text = "" or Text2.text = "" Then _
  2. MsgBox "帳號或密碼不可空白!", 0 + 64, "訊息" : Exit Sub '這裡告知使用者必須輸入文字
  3. If Text1.text <> "1" or Text2.text <> "2" Then _
  4. MsgBox "帳號或密碼錯誤", 0 + 64, "訊息" : Exit Sub '告知使用者帳號或密碼輸入錯誤
  5. Form2.Show
  6. 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. '設帳號為1 密碼為2 第2組:帳號為3 密碼為4
  3. If Text1.Text = "" Then '判斷使用者是否有輸入文字
  4. MsgBox "帳號不可空白!", 0 + 64, "訊息" '這裡告知使用者必須輸入文字
  5. Else '如果使用者有輸入文字
  6. If Text1.Text = "1" And Text2.Text = "2" OR Text1.Text = "3" And Text2.Text = "4" Then '這裡如果要新增更多組帳密就給他一直OR下去拉~
  7. Form2.Show '如果帳號與密碼輸入正確,開啟主程式表單!      此行代表開啟FORM2(表單)
  8. Unload Me '關閉這個表單(在此代表FORM1)
  9. Else '如果使用者密碼帳號或密碼輸入錯誤
  10. MsgBox "帳號或密碼錯誤", 0 + 64, "訊息" '告知使用者帳號或密碼輸入錯誤
  11. End If '結束帳號密碼判斷
  12. 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