Autoit|用户登入&注册窗口|Access数据库操作(网上搜到的）

test10942

#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("Q  Q", 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)

au3x

坐一下沙发，更要支持一下...

fqvip2

坐一下沙发，更要支持一下...

huangwei

怎么连接不上数据库

snailyyy

支持下~~~~~~~~~~~~~~~~~

hollandmfq

雷锋精神传天下！

QUESTION789

好东西，感谢分享

tjbcjb

下载试试，学习有帮助

zpmc123

不能用，只是空壳

cg594

谢谢分享谢谢分享谢谢分享谢谢分享

寒号鸟

学习学习！

xixin1314

感谢分享，收藏

gywxdn

学习一下，感谢！

120268323

我现在正在学习数据库
看看老师的分享