找回密码  加入

AUTOIT CN

搜索
查看: 28432|回复: 11

[交流] Autoit|用户登入&注册窗口|Access数据库操作(网上搜到的)

[复制链接]
发表于 2011-8-23 20:44:21 | 显示全部楼层 |阅读模式
#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)
发表于 2012-12-18 15:09:25 | 显示全部楼层
坐一下沙发,更要支持一下...
发表于 2013-6-23 17:59:11 | 显示全部楼层
坐一下沙发,更要支持一下...
发表于 2013-7-16 08:37:08 | 显示全部楼层
怎么连接不上数据库
发表于 2013-10-20 18:20:38 | 显示全部楼层
支持下~~~~~~~~~~~~~~~~~
发表于 2014-3-15 00:03:47 | 显示全部楼层
雷锋精神传天下!
发表于 2014-5-28 09:52:33 | 显示全部楼层
好东西,感谢分享
发表于 2014-6-30 14:26:39 | 显示全部楼层
下载试试,学习有帮助
发表于 2017-3-13 12:20:01 | 显示全部楼层
不能用,只是空壳
发表于 2018-4-12 14:45:03 | 显示全部楼层
谢谢分享谢谢分享谢谢分享谢谢分享
发表于 2018-4-12 16:06:25 | 显示全部楼层
学习学习!
发表于 2018-9-22 09:52:30 | 显示全部楼层
感谢分享,收藏
您需要登录后才可以回帖 登录 | 加入

本版积分规则

QQ|小黑屋|手机版|AUTOIT CN ( 鲁ICP备15028933号-3 )谷歌 百度

GMT+8, 2018-10-16 19:12 , Processed in 0.090419 second(s), 14 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表