| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 659 人关注过本帖
标题:提问:关于打开表的问题
只看楼主 加入收藏
onecamel
Rank: 1
等 级:新手上路
帖 子:16
专家分:0
注 册:2007-2-3
收藏
 问题点数:0 回复次数:4 
提问:关于打开表的问题
我做了一个系统,建了一个密码表,在系统运行的时候,有一个提示输入密码的表单,用的就是密码表里储存的用户和密码。不知道怎么回事,当输入密码之后,系统提示:选择要打开的表,只有选择密码表的时候才可以继续程序的运行。我的问题是,怎么才能让这个选择打开表的窗口不再出现。

附:主程序* main.prg
clear all
set talk off
set escape off
set safety off
set deleted on
public ok
use e:\gs\data\信息.dbf
use e:\gs\data\密码表.dbf
set default to e:\gs
do form e:\gs\forms\密码.scx
if ok
DO e:\gs\menus\系统首页.mpr
endif
_screen.hide
release ok
Read Event
quit



*密码输入窗口的确定按钮
sele 密码表
use E:\gs\data\密码表.dbf
select mm from 密码表.dbf into array mmb_a
select yhm from 密码表.dbf into array mmb_b
for i=1 to alen(mmb_a)
if alltrim(mmb_a(i))==alltrim(thisform.text1.value);
and alltrim(mmb_b(i))==alltrim(thisform.text2.value)
ok=.t.
thisformset.release
return
endif
next
messagebox("用户名或密码错,禁止进入系统!")
thisform.command2.click

--------------------------------------------------------------------
以上代码不知道是否有错误,或者不足,请达人指正。谢谢!
搜索更多相关主题的帖子: 提问 
2007-03-24 21:30
hu9jj
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:红土地
等 级:贵宾
威 望:400
帖 子:11857
专家分:43421
注 册:2006-5-13
收藏
得分:0 

错误很多,试着注释如下:

附:主程序* main.prg
clear all
set talk off
set escape off
set safety off
set deleted on
public ok
use e:\gs\data\信息.dbf
sele 0
use e:\gs\data\密码表.dbf 在同一个工作区重复打开表会自动关闭先前打开的表,修改方法是在此之前加sele 0
set default to e:\gs
do form e:\gs\forms\密码.scx
if ok
DO e:\gs\menus\系统首页.mpr
endif
_screen.hide
release ok
Read Event
quit

*密码输入窗口的确定按钮
sele 密码表
use E:\gs\data\密码表.dbf 此行语句应该删除,不能重复打开表
select mm from 密码表.dbf into array mmb_a
select yhm from 密码表.dbf into array mmb_b
for i=1 to alen(mmb_a)
if alltrim(mmb_a(i))==alltrim(thisform.text1.value);
and alltrim(mmb_b(i))==alltrim(thisform.text2.value)
ok=.t.
thisformset.release
return 表单不能用return结束,应该用release thisform
endif
next
messagebox("用户名或密码错,禁止进入系统!")
thisform.command2.click


活到老,学到老!http://www.(该域名已经被ISP盗卖了)E-mail:hu-jj@
2007-03-24 21:57
onecamel
Rank: 1
等 级:新手上路
帖 子:16
专家分:0
注 册:2007-2-3
收藏
得分:0 
非常感谢!

http://hi.baidu.com/一只骆驼
2007-03-25 16:24
hu9jj
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:红土地
等 级:贵宾
威 望:400
帖 子:11857
专家分:43421
注 册:2006-5-13
收藏
得分:0 

不用感谢,有很多错误我没有时间注释呢!


活到老,学到老!http://www.(该域名已经被ISP盗卖了)E-mail:hu-jj@
2007-03-25 18:31
onecamel
Rank: 1
等 级:新手上路
帖 子:16
专家分:0
注 册:2007-2-3
收藏
得分:0 
那还是感谢,发现一个错误,就长了一分知识

http://hi.baidu.com/一只骆驼
2007-03-25 19:16
快速回复:提问:关于打开表的问题
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.018693 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved