Autoit|用户登入&注册窗口|Access数据库操作(网上搜到的）
#include <ButtonConstants.au3>#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
Dim $Uid
$mdb_pwd=""
$mdb_path="z.mdb"
$tblname="zzm"
#Region ### START Koda GUI section ###
$Form1 = GUICreate("登入框", 186, 131, -1, -1)
$Input1 = GUICtrlCreateInput("", 16, 16, 153, 21)
$Input2 = GUICtrlCreateInput("", 16, 52, 153, 21,$ES_PASSWORD)
$Button1 = GUICtrlCreateButton("注册", 16, 88, 65, 25)
$Button2 = GUICtrlCreateButton("登入", 104, 88, 65, 25)
$Form2 = GUICreate("注册框", 204, 215, -1, -1)
$Input01 = GUICtrlCreateInput("", 64, 16, 121, 21)
$Input02 = GUICtrlCreateInput("", 64, 54, 121, 21)
$Input03 = GUICtrlCreateInput("", 64, 93, 121, 21)
$Input04 = GUICtrlCreateInput("", 64, 131, 121, 21)
$Label1 = GUICtrlCreateLabel("用户名", 16, 20, 40, 17)
$Label2 = GUICtrlCreateLabel("密码", 16, 57, 28, 17)
$Label3 = GUICtrlCreateLabel("QQ", 16, 95, 26, 17)
$Label4 = GUICtrlCreateLabel("E-mail", 16, 132, 34, 17)
$Button01 = GUICtrlCreateButton("提交", 16, 168, 75, 25)
$Button02 = GUICtrlCreateButton("取消", 112, 168, 75, 25)
#EndRegion ### END Koda GUI section #
GUISwitch($form1)
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
GUISetState(@sw_show,$form2)
Case $Button2
if guictrlread($input1)=""Then
MsgBox(64,"提示","请输入用户名！",5)
ElseIf guictrlread($input2)="" Then
MsgBox(64,"提示","请输入密码！",5)
Else
login()
EndIf
Case $Button02
GUISetState(@SW_HIDE,$form2)
Case $Button01
reg()
EndSwitch
WEnd
func login()
$user1=guictrlread($input1)
$pass1=guictrlread($input2)
$addfld=ObjCreate("ADODB.Connection")
$addfld.open("Provider=Microsoft.Jet.OLEDB.4.0; Data Source="&$mdb_path)
$RS=ObjCreate("ADODB.Recordset")
$RS.ActiveConnection = $addfld
$RS.Open ("SELECT zzm.name, zzm.pass FROM zzm WHERE zzm.name=" &"'" & $user1 & "'")
If $RS.bof <0 Then
Msgbox(64,"提示","未注册用户,请先注册！",5)
Else
$user2=StringReplace($RS.Fields (0).value," ","")
$pass2=StringReplace($RS.Fields (1).value," ","")
while Not $RS.eof And Not $RS.bof
if @error =1 Then ExitLoop
if $user1=$user2 and $pass1=$pass2 Then
$Uid=$user1
MsgBox(64,"登入口","欢迎回来尊敬的 " & $Uid,5)
GUISetState(@SW_HIDE,$form1)
main()
Else
MsgBox(64,"错误","密码错误！",5)
EndIf
$rs.movenext
WEnd
$rs.close
$addfld.Close
EndIf
EndFunc
func reg()
$reg_user=guictrlread($input01)
$reg_pass=guictrlread($Input02)
$reg_qq=guictrlread($Input03)
$reg_email=guictrlread($Input04)
$addfld = ObjCreate("ADODB.Connection")
$addfld.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & $mdb_path & ";Jet Oledb:Database Password=" & $mdb_pwd)
$addfld.Execute("insert into zzm (name,pass,qq,e_mail) values('"&$reg_user&"','"&$reg_pass&"','"&$reg_qq&"','"&$reg_email&"')")
$addfld.close
MsgBox(4096, "提示:"," 注册成功！")
GUISetState(@SW_HIDE,$form2)
GUICtrlSetData ( $Input01 ,'')
GUICtrlSetData ( $Input02 ,'')
GUICtrlSetData ( $Input03 ,'')
GUICtrlSetData ( $Input04 ,'')
EndFunc
func main()
$Form3 = GUICreate("主窗体" & "当前用户: " & $Uid, 633, 447, -1, -1)
$Button001 = GUICtrlCreateButton("我只是个测试的！", 128, 120, 377, 161)
GUICtrlSetFont(-1, 24, 400, 0, "黑体")
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button001
exit
EndSwitch
WEnd
EndFunc
数据库z.mdb|表zzm|id(主键自动编号），name(char),pass(char),qq(int),e_mail(char) 坐一下沙发，更要支持一下... 坐一下沙发，更要支持一下... 怎么连接不上数据库 支持下~~~~~~~~~~~~~~~~~ 雷锋精神传天下！ 好东西，感谢分享 下载试试，学习有帮助 不能用，只是空壳 谢谢分享谢谢分享谢谢分享谢谢分享 学习学习！ 感谢分享，收藏 学习一下，感谢！ 我现在正在学习数据库
看看老师的分享
页:
[1]