賬號編程

① codecademy(codecademy錛堝︿範緙栫▼鐨勬渶浣沖鉤鍙幫級)

闅忕潃浜掕仈緗戠殑鍙戝睍錛岀紪紼嬪凡緇忔垚涓轟竴縐嶈秺鏉ヨ秺鍙楁㈣繋鐨勬妧鑳姐傛棤璁烘槸鍦ㄥ伐浣滀腑榪樻槸鍦ㄦ棩甯哥敓媧諱腑錛屾帉鎻＄紪紼嬫妧鑳介兘鑳藉熷府鍔╂垜浠鏇村姞楂樻晥鍦板畬鎴愪換鍔°傚傛灉浣犳兂瀛︿範緙栫▼錛岄偅涔圕odecademy鏄涓涓闈炲父濂界殑閫夋嫨銆

Codecademy鏄涓涓鍦ㄧ嚎瀛︿範騫沖彴錛屽畠鎻愪緵浜嗗悇縐嶇紪紼嬭璦鐨勮劇▼錛屽寘鎷琍ython銆丣avaScript銆丠TML/CSS絳夈傚湪Codecademy涓婂︿範緙栫▼闈炲父綆鍗曪紝鍙闇瑕佹敞鍐屼竴涓璐﹀彿錛屽氨鍙浠ュ紑濮嬪︿範浜嗐備笅闈㈡槸Codecademy鐨勬搷浣滄ラゃ

姝ラや竴錛氭敞鍐岃處鍙

棣栧厛錛屼綘闇瑕佸湪Codecademy鐨勫畼緗戜笂娉ㄥ唽涓涓璐﹀彿銆傛敞鍐岃繃紼嬮潪甯哥畝鍗曪紝鍙闇瑕佹彁渚涗綘鐨勭數瀛愰偖浠跺湴鍧鍜屼竴涓瀵嗙爜鍗沖彲銆傚傛灉浣犲凡緇忔湁浜咷itHub鎴朑oogle璐﹀彿錛屼篃鍙浠ョ洿鎺ヤ嬌鐢ㄨ繖浜涜處鍙風櫥褰曘

姝ラや簩錛氶夋嫨璇劇▼

娉ㄥ唽鎴愬姛鍚庯紝浣犲彲浠ュ湪Codecademy鐨勪富欏典笂閫夋嫨浣犳兂瑕佸︿範鐨勮劇▼銆侰odecademy鎻愪緵浜嗗悇縐嶇紪紼嬭璦鐨勮劇▼錛屽寘鎷琍ython銆丣avaScript銆丠TML/CSS絳夈備綘鍙浠ユ牴鎹鑷宸辯殑鍏磋叮鍜岄渶奼傞夋嫨閫傚悎鑷宸辯殑璇劇▼銆

姝ラや笁錛氬︿範璇劇▼

閫夋嫨濂借劇▼鍚庯紝浣犲氨鍙浠ュ紑濮嬪︿範浜嗐侰odecademy鐨勮劇▼闈炲父閫傚悎鍒濆﹁咃紝瀹冧滑寰搴忔笎榪涳紝璁╀綘閫愭ユ帉鎻＄紪紼嬭璦鐨勫熀紜鐭ヨ瘑銆傛瘡涓璇劇▼閮藉寘鍚浜嗚稿氱粌涔犲拰欏圭洰錛岃╀綘鍙浠ュ疄璺墊墍瀛︾殑鐭ヨ瘑銆

姝ラゅ洓錛氬畬鎴愰」鐩

鍦ㄥ︿範璇劇▼鐨勮繃紼嬩腑錛屼綘浼氶亣鍒拌稿氶」鐩銆傝繖浜涢」鐩鏄疌odecademy璇劇▼鐨勯噸瑕佺粍鎴愰儴鍒嗭紝瀹冧滑璁╀綘鍙浠ュ疄璺墊墍瀛︾殑鐭ヨ瘑錛屽苟涓旇╀綘鏇村ソ鍦扮悊瑙ｇ紪紼嬭璦鐨勫伐浣滃師鐞嗐

姝ラや簲錛氬弬鍔犵ぞ鍖

Codecademy鏈変竴涓闈炲父媧昏穬鐨勭ぞ鍖猴紝浣犲彲浠ュ湪榪欓噷涓庡叾浠栧︿範鑰呬氦嫻侊紝鍒嗕韓緇忛獙鍜岄棶棰樸傜ぞ鍖轟篃鎻愪緵浜嗚稿氭湁鐢ㄧ殑璧勬簮錛岃╀綘鍙浠ユ洿濂藉湴瀛︿範緙栫▼銆

Codecademy鏄涓涓闈炲父濂界殑瀛︿範緙栫▼鐨勫鉤鍙幫紝瀹冩彁渚涗簡鍚勭嶇紪紼嬭璦鐨勮劇▼錛岃╀綘鍙浠ュ驚搴忔笎榪涘湴鎺屾彙緙栫▼鐨勫熀紜鐭ヨ瘑銆傚傛灉浣犳兂瀛︿範緙栫▼錛岄偅涔圕odecademy鏄涓涓闈炲父濂界殑閫夋嫨銆

② 怎樣用VB編寫一個登陸系統，可以注冊賬號的那種

VB編寫一個可以注冊帳號的登錄系統步驟：

1）1）首先需要用資料庫軟體（如ACCESS軟體）建立一個資料庫，新建幾個表，用以記錄帳號密碼的表、登錄日誌表和其他與此有關的所需要的表等。

2）VB新建數據工程，此時VB6集成調試環境左邊工具箱內已載入了有關資料庫編程必須的控制項。

3）然後在FORM1窗體中添加ADO數據控制項，右鍵-ADODC1控制項屬性頁-使用連接字元串，選生成，在提供者選項中選合適的OLE DB連接資料庫等。在ADODC1控制項屬性頁使用連接字元串空白文本窗口中就有一長串字元串，注意該字元串可復制到程序代碼用於編程。

ADODC1控制項屬性頁的數據源內有命令文本（sql）編寫窗口可編寫SQL查詢語言。該窗口的SQL語句可復制到程序代碼用於編程。

4）可以將SQL查詢語句賦值給ADO數據控制項的RecordSource屬性實現。

5）數據的輸入、修改等可靈活應用文本框或數據表格控制項與ADO數據控制項通過代碼綁定。

6）想使用ADO數據對象，也可將ADO數據控制項所寫的代碼較方便的移植給ADO數據對象。

以下是用ADO數據對象編寫的登錄和注冊的代碼：

1）標准模塊代碼：

OptionExplicit
PublicloginnameAsString
PubliccnAsNewADODB.Connection'定義資料庫的連接存放數據和代碼
PublicrsAsNewADODB.Recordset
PublicsqlAsString
PublicNewnameAsString

2）注冊窗體代碼：

OptionExplicit
DimPasswordAsString

PrivateSubText1_KeyPress(KeyAsciiAsInteger)
IfKeyAscii=13AndText1<>""Then
sql="select*from用戶管理where用戶名='"&Text1.Text&"'"'and密碼='"&Text2.Text&"'"
cn.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&App.Path&"datadata.mdb;PersistSecurityInfo=False"
cn.Open
rs.CursorLocation=adUseClient
rs.Opensql,cn,adOpenDynamic,adLockOptimistic
Ifrs.EOF=TrueThen'沒有該用戶名可以注冊
MsgBox"用戶名可以注冊!"
rs.Close
cn.Close
Newname=Text1.Text
Text4=Newname
Text2.SetFocus
Else
MsgBox"該用戶名已經存在，換名注冊!"
Text1.Text=""
Text1.SetFocus
EndIf
EndIf
ExitSub
finish:
MsgBoxErr.Description
EndSub

PrivateSubText2_KeyPress(KeyAsciiAsInteger)
IfKeyAscii=13AndText2<>""Then
Password=Text2.Text
Text5=Password
Text3.SetFocus
EndIf
EndSub

PrivateSubText3_KeyPress(KeyAsciiAsInteger)
IfKeyAscii=13AndText3.Text=Text2.TextThen
Command3.Enabled=True
Command3.SetFocus
ElseIfKeyAscii=13AndText3.Text<>Text2.TextThen
Text3=""
Text3.SetFocus
EndIf
EndSub

PrivateSubCommand1_Click()
UnloadMe
EndSub

PrivateSubCommand3_Click()
sql="select*from用戶管理"
cn.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&App.Path&"datadata.mdb;PersistSecurityInfo=False"
cn.Open
rs.CursorLocation=adUseClient
rs.Opensql,cn,adOpenDynamic,adLockOptimistic
rs.AddNew
rs.Fields(0)=Newname
rs.Fields(1)=Password
rs.Update
rs.Close
cn.Close
Command3.Enabled=False
EndSub

3）登錄窗體代碼：

OptionExplicit
DimpnumAsInteger

PrivateSubCommand1_Click()
OnErrorGoTofinish'防錯代碼，防止意外而導致的退出
sql="select*from用戶管理where用戶名='"&Text1.Text&"'and密碼='"&Text2.Text&"'"
cn.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&App.Path&"datadata.mdb;PersistSecurityInfo=False"
cn.Open
rs.CursorLocation=adUseClient
rs.Opensql,cn,adOpenDynamic,adLockOptimistic
'以上使用最通用的方法來查詢資料庫中是否有匹配的記錄
Ifrs.EOF=TrueThen'如果沒有記錄則說明用戶或密碼為錯誤的
Ifpnum<2Then'pnum就是密碼驗證次數，當次數超過3次，系統會自動保護退出
pnum=pnum+1
MsgBox"用戶名或密碼錯誤!",vbInformation,"錯誤次數："&pnum
rs.Close
cn.Close
Text1.Text=""
Text2.Text=""
Text1.SetFocus
ExitSub
Else
MsgBox"用戶名或密碼錯誤超過三次,系統會自動退出",vbInformation,"提示"
End
EndIf
Else
loginname=rs.Fields(0)
Form1.Show
rs.Close
cn.Close
EndIf
ExitSub
finish:
MsgBoxErr.Description
rs.Close
cn.Close
EndSub

PrivateSubText2_KeyPress(KeyAsciiAsInteger)
IfKeyAscii=13Then'獲取按鍵，如果是回車就運行image_click按鈕的內容
CallCommand1_Click
EndIf
EndSub
PrivateSubText1_KeyPress(KeyAsciiAsInteger)
IfKeyAscii=13Then
Text2.SetFocus
EndIf
EndSub

PrivateSubCommand2_Click()
End
EndSub

PrivateSubCommand3_Click()
frmZhuce.Show
EndSub