| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 877 人关注过本帖
标题:急,急,急!速求帮助
只看楼主 加入收藏
lifeng0614
Rank: 1
等 级:新手上路
帖 子:5
专家分:0
注 册:2007-9-5
收藏
 问题点数:0 回复次数:6 
急,急,急!速求帮助


我是初学者,最近自己做了一个小程序,但是有些地方不足,希望能给予赐教!
按照我的创作本意,我是想在程序运行时,先运行我设计登陆界面,然后在运行菜单界面,但是我开始运行的时候却无法实现以上功能,这是我的主程序,你给纠正一下吧!
clear all
close all
local ljsys,lj
ljsys=sys(16)
lj=substr(ljsys,at(":",ljsys)-1)
cd left(lj,rat("\",lj))
deactivate window "kjzygl"
do setting
do form yhdl

read events
_screen.caption="课件资源管理系统"
read events
do resetting
这是我做的登陆界面里的确定代码:
use user
cx=alltrim(thisform.text1.value)
cy=alltrim(thisform.text2.value)
set order to user_ID
seek cx
if cx==""
messagebox("用户名不能为空,请重新输入!",4+32,"提示信息")
thisform.text1.value=""
thisform.text2.value=""
thisform.text1.setfocus
else
if alltrim(user.user_ID)==cx
if alltrim(user_pd)==cy
do form xtct
_screen.visible=.t.
thisform.release
else
messagebox("密码错误,请重新输入!",0+32,"提示信息")
thisform.text2.value=""
thisform.text2.setfocus
endif
else
messagebox("用户名错误,请重新输入!",0+32,"提示信息")
thisform.text1.value=""
thisform.text1.setfocus
endif
endif

2007-09-05 14:46
啸凡
Rank: 8Rank: 8
等 级:贵宾
威 望:45
帖 子:1356
专家分:885
注 册:2006-2-22
收藏
得分:0 
本论坛上有几篇关于主程序的文章,你自己搜索出来看看。
另外,不知道您有没通过项目管理器把你的主程序设置为主文件?

两人行已有我师……
2007-09-05 19:45
lifeng0614
Rank: 1
等 级:新手上路
帖 子:5
专家分:0
注 册:2007-9-5
收藏
得分:0 
首先谢谢一楼的大哥。
你所指的那些文章我已经看过了,但是按照上面的做法作了以后还是不行!
我也设主程序了阿!
2007-09-06 11:53
Tiger5392
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:88
帖 子:2775
专家分:2237
注 册:2006-5-17
收藏
得分:0 
表单的确定代码:
If !Used('user.dbf')
Use user in 0
EndIf
cx=alltrim(thisform.text1.value)
cy=alltrim(thisform.text2.value)
if Empty(cx) Or Empty(cy)
messagebox("用户名或密码不能为空,请重新输入!",4+32,"提示信息")
thisform.text1.value=""
thisform.text2.value=""
thisform.text1.setfocus
else
Select user
Locate All For Alltrim(user.User_ID)==cx And Alltrim(user.user_PD)==cy
if Eof()
messagebox("用户名或密码错误,请重新输入!",0+32,"提示信息")
thisform.text1.value=""
thisform.text2.value=""
thisform.text1.setfocus
else
do form xtct
_screen.visible=.t.
thisform.release
endif
endif

感言:学以致用。 博客:http://www./blog/user14/65009/index.shtml email:Tiger5392@
2007-09-06 16:58
lifeng0614
Rank: 1
等 级:新手上路
帖 子:5
专家分:0
注 册:2007-9-5
收藏
得分:0 
楼上的兄弟,我试过了,结果一样啊!
登陆以后还是无法进入菜单界面啊?
我想登陆代码没问题啊!
2007-09-07 07:44
lifeng0614
Rank: 1
等 级:新手上路
帖 子:5
专家分:0
注 册:2007-9-5
收藏
得分:0 
是不是我的主程序有问题啊?????????
2007-09-07 07:44
花花公子
Rank: 4
等 级:贵宾
威 望:10
帖 子:609
专家分:0
注 册:2007-6-7
收藏
得分:0 
以下是引用lifeng0614在2007-9-7 7:44:02的发言:
楼上的兄弟,我试过了,结果一样啊!
登陆以后还是无法进入菜单界面啊?
我想登陆代码没问题啊!

晕,登录的时候有什么错误提示,你说清楚点行不?


[glow=150,blue,2] 该珍惜的,好好把握;该舍去的,不再留恋; 该执著的,永不怨悔;该面对的,绝不逃避。[/glow]
2007-09-07 11:08
快速回复:急,急,急!速求帮助
数据加载中...
 
   



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

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