求给作完了的软件加个登陆密码

ldj777

在完成的软件加一个密码,要求点击软件后出现密码的窗口,如果密码正确载入软件主界面,如果错误则销毁,求这一过程的写法

浪子小刀

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_窗口1

子程序名	返回值类型	公开	备 注
密码错误

_启动窗口.销毁 ()

子程序名	返回值类型	公开	备 注
_窗口1_将被销毁

_启动窗口.销毁 ()

.版本 2<br /> <br /> .程序集 窗口程序集_窗口1<br /> <br /> .子程序 密码错误<br /> <br /> _启动窗口.销毁 ()<br /> <br /> <br /> .子程序 _窗口1_将被销毁<br /> <br /> _启动窗口.销毁 ()

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

载入 (窗口1, , 真)

.版本 2<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 载入 (窗口1, , 真)

窗口1结束之前是不会载入启动窗口的。
在窗口1程序集里面判断。

依然是海洋

新建 WinRAR 压缩文件.rar (1.19 KB, 下载次数: 3)

2014-11-7 10:30 上传

点击文件名下载附件

依然是海洋

  

变量名	类 型	静态	数组	备 注
密码	文本型

密码 ＝ “12345”  ' 需要设置什么密码直接改这里就好了
如果 (编辑框1.内容 ＝ 密码)
信息框 (“密码正确”, #信息图标, )
载入 (窗口1, , 真)
信息框 (“密码错误，请重新输入”, #警告图标, )

.版本 2<br /> <br /> .局部变量 密码, 文本型<br /> <br /> 密码 ＝ “12345”  ' 需要设置什么密码直接改这里就好了<br /> .如果 (编辑框1.内容 ＝ 密码)<br />     信息框 (“密码正确”, #信息图标, )<br />     载入 (窗口1, , 真)<br /> .否则<br />     信息框 (“密码错误，请重新输入”, #警告图标, )<br /> .如果结束

ldj777

依然是海洋 发表于 2014-11-7 10:30

软件已经完成了,启动窗口被用了,你这个命令是入在启动窗口的,我要的是在窗口1是登陆窗口,然后进入启动窗口,要是先启动窗口我也会写,呵呵

ldj777

是给已完成的,是作好的软件加个登陆密码,我表达的不清楚??

SHIELD

参考这个帖子：http://bbs.125.la/thread-13754666-1-1.html
软件主窗口的可视设置为假

密码正确后载入你的软件主窗口  然后把软件主窗口的可视设置为真，

最后把密码窗口的可视设置为假

yjsai

.版本 2

.子程序 __启动窗口_创建完毕
.局部变量 n, 文本型

_启动窗口.可视 ＝ 假

输入框 (“请输入密码”, , “”, n, 4)
.如果 (n ＝ “love”)
    _启动窗口.可视 ＝ 真
.否则
    结束 ()
.如果结束