回 帖 发 新 帖 刷新版面

主题:一个关于登陆的问题

各位好
我是一个PB新手
我写了一个登陆的程序为什么老是报错啊
各位能不能帮我写一个然后我看看是哪里的错啊
我在网吧所以不能把源程序写在这里
请各位帮帮偶

回复列表 (共8个回复)

沙发

先建一个数据表,其中要包括两个字段,user_id和user_pwd  
下面是连接的代码,你看一看吧
IF sle_1.text='' then        //如果用户名为空
    messagebox('注意','用户名不能为空')//弹出注意消息框
    sle_1.setfocus()//单行编辑框1获焦点
elseif sle_2.text=''  then//否则如果密码框为空
    messagebox('注意','密码不能为空')
    sle_2.setfocus()//密码框获得焦点
else
    g_input_time=g_input_time+1//每输入错一次用户或密码,计数加1
    g_user=sle_1.text
    g_pwd=sle_2.text
   //取出表user_info中用户为g_user的密码放到correct_pswd中
    select user_pwd into:correct_pswd from user_info where user_id=:g_user;
//用数据库中的密码和用户输入的密码比较
if g_pwd=correct_pswd then
    open(w_main)
    close(w_login)
else
    //可重输入3次
    if g_input_time>3 then
        messagebox('警告','输入用户口令次数太多,非法用户')
        close(w_login)
    else 
        messagebox('警告','输入用户口令错误,请重新输入')
    end if    
end if
end if

板凳

你在网吧,也可以玩数据库吗?

3 楼

借楼主的帖子,想请教一下,是不是在这个窗口设计中还要有一个隐含的数据窗口dw_1,连接到一个datawindow,该datawindow中要有userid和pass两个字段。
这样才能在程序主窗口中的select语句中得到正确的运行。

4 楼

非常感谢大家的帮助
呵呵,有机会请大家吃饭哦!!
好的,我会努力的!
对了我还有一个问题就是select insert 语句在pb9.0中的具体用法
我们讲的不多,所以有许多不明白之处,希望大家给予帮助!!
小忆将感激不尽!!!
也是QQ说啊418512894

5 楼

to 3楼,不用,一般用户名,权限等在登陆后就付给全局变量,以后的直接调用就行

6 楼

呵呵,谢谢了各位
我的问题以经解决了,
THANK YOU

7 楼

如果还需要其它帮助,请联系我,我的QQ727665520

8 楼

好的谢谢你了!

我来回复

您尚未登录,请登录后再回复。点此登录或注册