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

附:主程序* 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
onecamel
Rank: 1
等 级:新手上路
帖 子:16
专家分:0
注 册:2007-2-3
收藏
得分:0 
非常感谢!

http://hi.baidu.com/一只骆驼
2007-03-25 16:24
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.011990 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved