账号编程

① 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