管理系统登陆界面

bugaosuni1314

  

窗口程序集名	保 留	保 留	备 注
启动窗口程序集
变量名	类 型	数组	备 注
f1	整数型		"帮助键"
f2	整数型		"音乐开关"
密码	文本型
f3	整数型		"增加音量"
f4	整数型		"减少音量"

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

变量名	类 型	静态	数组	备 注
次数	整数型

XP风格 (2)
如果真 (注册项是否存在 ( #现行用户, “Software\Microsoft\Windows\hyjx\xsgl\time”))
次数 ＝ 取数值注册项 ( #现行用户, “Software\Microsoft\Windows\hyjx\xsgl\time”, )
如果 (取小时 (取现行时间 ()) － 次数 ＜ 2)
信息框 (“由于密码错误！您被限制登陆2小时！”, 0, )
_启动窗口.销毁 ()
删除注册项 ( #现行用户, “Software\Microsoft\Windows\hyjx\xsgl\time”)


' 判断记住密码否
如果真 (注册项是否存在 ( #现行用户, “Software\Microsoft\Windows\hyjx\xsgl\jzdmm”))
透明标签1.标记 ＝ 取文本注册项 ( #现行用户, “Software\Microsoft\Windows\hyjx\xsgl\jzdmm”, )
密码编辑框.内容 ＝ 透明标签1.标记
密码选择框.选中 ＝ 真

媒体播放1.打开 (取运行目录 () ＋ “\mp3\明天会更好.mp3”)
媒体播放1.播放 (-1, _启动窗口.取窗口句柄 ())
f1 ＝ 注册热键 (_启动窗口.取窗口句柄 (), 标签1.取窗口句柄 (), 0, #F1键 )
f2 ＝ 注册热键 (_启动窗口.取窗口句柄 (), 标签1.取窗口句柄 (), 0, #F2键 )
f3 ＝ 注册热键 (_启动窗口.取窗口句柄 (), 标签1.取窗口句柄 (), 0, #F3键 )
f4 ＝ 注册热键 (_启动窗口.取窗口句柄 (), 标签1.取窗口句柄 (), 0, #F4键 )
' 判断是否首次运行，若真设置默认密码"caoyutan"
如果 (注册项是否存在 ( #现行用户, “Software\Microsoft\Windows\hyjx\xsgl\sum”))
次数 ＝ 取数值注册项 ( #现行用户, “Software\Microsoft\Windows\hyjx\xsgl\sum”, )
透明标签2.标题 ＝ “欢迎您第” ＋ 到文本 (次数) ＋ “次使用本系统！”
写注册项 ( #现行用户, “Software\Microsoft\Windows\hyjx\xsgl\sum”, 次数 ＋ 1)
写注册项 ( #现行用户, “Software\Microsoft\Windows\hyjx\xsgl\sum”, 1)
写注册项 ( #现行用户, “Software\Microsoft\Windows\hyjx\xsgl\mm”, “caoyutan”)
信息框 (“欢迎您首次使用本系统！” ＋ #换行符 ＋ “请进行初始设置！”, 0, )

密码 ＝ 取文本注册项 ( #现行用户, “Software\Microsoft\Windows\hyjx\xsgl\mm”, )

子程序名	返回值类型	公开	备 注
_标签1_反馈事件	整数型
参数名	类 型	参考	可空	数组	备 注
参数一	整数型
参数二	整数型

变量名	类 型	静态	数组	备 注
左音	整数型
右音	整数型

如果真 (参数一 ＝ f1)
信息框 (“默认登陆密码：caoyutan” ＋ #换行符 ＋ “登陆后请修改密码，切记！切记！” ＋ #换行符 ＋ “密码错误3次，将限制登陆2小时！” ＋ #换行符 ＋ “正确登陆后可自动消除限制！” ＋ #换行符 ＋ “f2键音乐开关！” ＋ #换行符 ＋ “f3,f4 音量增减！”, 0, )
如果真 (参数一 ＝ f2)
如果 (登陆按钮.标记 ＝ “暂停”)
登陆按钮.标记 ＝ “播放”
媒体播放1.暂停 ()
登陆按钮.标记 ＝ “暂停”
媒体播放1.播放 (1000, )


如果真 (参数一 ＝ f3)
媒体播放1.取音量 (左音, 右音)
媒体播放1.置音量 (左音 ＋ 15, 右音 ＋ 15)

如果真 (参数一 ＝ f4)
媒体播放1.取音量 (左音, 右音)
如果真 (媒体播放1.置音量 (左音 － 15, 右音 － 15))
' 信息框 (左音, 0, )

子程序名	返回值类型	公开	备 注
_登陆按钮_被单击

变量名	类 型	静态	数组	备 注
重试次数	短整数型
小时	短整数型

重试次数 ＝ 重试次数 ＋ 1
如果真 (密码编辑框.内容 ≠ 密码)
如果 (3 － 重试次数 ＝ -1)
信息框 (“由于密码错误！您已被限时登陆2小时！”, 0, )
小时 ＝ 取小时 (取现行时间 ())
写注册项 ( #现行用户, “Software\Microsoft\Windows\hyjx\xsgl\time”, 小时)
_启动窗口.销毁 ()
信息框 (“密码错误，您还有” ＋ 到文本 (3 － 重试次数) ＋ “次机会！”, 0, )
返回 ()


_启动窗口.可视 ＝ 假
媒体播放1.关闭 ()
载入 (系统窗口, , 真)

子程序名	返回值类型	公开	备 注
_密码编辑框_按下某键	逻辑型
参数名	类 型	参考	可空	数组	备 注
键代码	整数型
功能键状态	整数型

如果真 (键代码 ＝ #回车键 )
如果真 (密码编辑框.内容 ＝ “”)
信息框 (“请输入正确的密码！”, 0, )
密码编辑框.获取焦点 ()
返回 ()

_登陆按钮_被单击 ()

子程序名	返回值类型	公开	备 注
_密码选择框_被单击

如果真 (密码编辑框.内容 ＝ “”)
信息框 (“请输入正确的密码！”, 0, )
密码编辑框.获取焦点 ()
密码选择框.选中 ＝ 假
返回 ()

如果 (密码选择框.选中 ＝ 真)
写注册项 ( #现行用户, “Software\Microsoft\Windows\hyjx\xsgl\jzdmm”, 密码编辑框.内容)
密码编辑框.获取焦点 ()
删除注册项 ( #现行用户, “Software\Microsoft\Windows\hyjx\xsgl\jzdmm”)
密码编辑框.内容 ＝ “”

i支持库列表	支持库注释
xplib	XP风格界面库
iext	扩展界面支持库一
eMMedia	多媒体支持库
shellEx	扩展功能支持库一

.版本 2<br /> .支持库 xplib<br /> .支持库 iext<br /> .支持库 eMMedia<br /> .支持库 shellEx<br /> <br /> .程序集 启动窗口程序集<br /> .程序集变量 f1, 整数型, , , "帮助键"<br /> .程序集变量 f2, 整数型, , , "音乐开关"<br /> .程序集变量 密码, 文本型<br /> .程序集变量 f3, 整数型, , , "增加音量"<br /> .程序集变量 f4, 整数型, , , "减少音量"<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 次数, 整数型<br /> <br /> XP风格 (2)<br /> .如果真 (注册项是否存在 (#现行用户, “Software\Microsoft\Windows\hyjx\xsgl\time”))<br />     次数 ＝ 取数值注册项 (#现行用户, “Software\Microsoft\Windows\hyjx\xsgl\time”, )<br />     .如果 (取小时 (取现行时间 ()) － 次数 ＜ 2)<br />         信息框 (“由于密码错误！您被限制登陆2小时！”, 0, )<br />         _启动窗口.销毁 ()<br />     .否则<br />         删除注册项 (#现行用户, “Software\Microsoft\Windows\hyjx\xsgl\time”)<br /> <br />     .如果结束<br /> <br /> .如果真结束<br /> <br /> ' 判断记住密码否<br /> .如果真 (注册项是否存在 (#现行用户, “Software\Microsoft\Windows\hyjx\xsgl\jzdmm”))<br />     透明标签1.标记 ＝ 取文本注册项 (#现行用户, “Software\Microsoft\Windows\hyjx\xsgl\jzdmm”, )<br />     密码编辑框.内容 ＝ 透明标签1.标记<br />     密码选择框.选中 ＝ 真<br /> <br /> .如果真结束<br /> <br /> <br /> <br /> 媒体播放1.打开 (取运行目录 () ＋ “\mp3\明天会更好.mp3”)<br /> 媒体播放1.播放 (-1, _启动窗口.取窗口句柄 ())<br /> <br /> f1 ＝ 注册热键 (_启动窗口.取窗口句柄 (), 标签1.取窗口句柄 (), 0, #F1键)<br /> f2 ＝ 注册热键 (_启动窗口.取窗口句柄 (), 标签1.取窗口句柄 (), 0, #F2键)<br /> f3 ＝ 注册热键 (_启动窗口.取窗口句柄 (), 标签1.取窗口句柄 (), 0, #F3键)<br /> f4 ＝ 注册热键 (_启动窗口.取窗口句柄 (), 标签1.取窗口句柄 (), 0, #F4键)<br /> <br /> ' 判断是否首次运行，若真设置默认密码"caoyutan"<br /> .如果 (注册项是否存在 (#现行用户, “Software\Microsoft\Windows\hyjx\xsgl\sum”))<br />     次数 ＝ 取数值注册项 (#现行用户, “Software\Microsoft\Windows\hyjx\xsgl\sum”, )<br />     透明标签2.标题 ＝ “欢迎您第” ＋ 到文本 (次数) ＋ “次使用本系统！”<br />     写注册项 (#现行用户, “Software\Microsoft\Windows\hyjx\xsgl\sum”, 次数 ＋ 1)<br /> .否则<br />     写注册项 (#现行用户, “Software\Microsoft\Windows\hyjx\xsgl\sum”, 1)<br />     写注册项 (#现行用户, “Software\Microsoft\Windows\hyjx\xsgl\mm”, “caoyutan”)<br />     信息框 (“欢迎您首次使用本系统！” ＋ #换行符 ＋ “请进行初始设置！”, 0, )<br /> .如果结束<br /> <br /> 密码 ＝ 取文本注册项 (#现行用户, “Software\Microsoft\Windows\hyjx\xsgl\mm”, )<br /> <br /> <br /> .子程序 _标签1_反馈事件, 整数型<br /> .参数 参数一, 整数型<br /> .参数 参数二, 整数型<br /> .局部变量 左音, 整数型<br /> .局部变量 右音, 整数型<br /> <br /> .如果真 (参数一 ＝ f1)<br />     信息框 (“默认登陆密码：caoyutan” ＋ #换行符 ＋ “登陆后请修改密码，切记！切记！” ＋ #换行符 ＋ “密码错误3次，将限制登陆2小时！” ＋ #换行符 ＋ “正确登陆后可自动消除限制！” ＋ #换行符 ＋ “f2键音乐开关！” ＋ #换行符 ＋ “f3,f4 音量增减！”, 0, )<br /> <br /> .如果真结束<br /> .如果真 (参数一 ＝ f2)<br />     .如果 (登陆按钮.标记 ＝ “暂停”)<br />         登陆按钮.标记 ＝ “播放”<br />         媒体播放1.暂停 ()<br />     .否则<br />         登陆按钮.标记 ＝ “暂停”<br />         媒体播放1.播放 (1000, )<br /> <br />     .如果结束<br /> <br /> .如果真结束<br /> <br /> .如果真 (参数一 ＝ f3)<br />     媒体播放1.取音量 (左音, 右音)<br />     媒体播放1.置音量 (左音 ＋ 15, 右音 ＋ 15)<br /> <br /> .如果真结束<br /> <br /> <br /> .如果真 (参数一 ＝ f4)<br />     媒体播放1.取音量 (左音, 右音)<br />     .如果真 (媒体播放1.置音量 (左音 － 15, 右音 － 15))<br />         ' 信息框 (左音, 0, )<br />     .如果真结束<br /> <br /> .如果真结束<br /> <br /> <br /> <br /> <br /> .子程序 _登陆按钮_被单击<br /> .局部变量 重试次数, 短整数型, 静态<br /> .局部变量 小时, 短整数型<br /> <br /> 重试次数 ＝ 重试次数 ＋ 1<br /> .如果真 (密码编辑框.内容 ≠ 密码)<br />     .如果 (3 － 重试次数 ＝ -1)<br />         信息框 (“由于密码错误！您已被限时登陆2小时！”, 0, )<br />         小时 ＝ 取小时 (取现行时间 ())<br />         写注册项 (#现行用户, “Software\Microsoft\Windows\hyjx\xsgl\time”, 小时)<br />         _启动窗口.销毁 ()<br />     .否则<br />         信息框 (“密码错误，您还有” ＋ 到文本 (3 － 重试次数) ＋ “次机会！”, 0, )<br />         返回 ()<br /> <br />     .如果结束<br /> <br /> .如果真结束<br /> <br /> _启动窗口.可视 ＝ 假<br /> 媒体播放1.关闭 ()<br /> <br /> 载入 (系统窗口, , 真)<br /> <br /> <br /> .子程序 _密码编辑框_按下某键, 逻辑型<br /> .参数 键代码, 整数型<br /> .参数 功能键状态, 整数型<br /> <br /> .如果真 (键代码 ＝ #回车键)<br />     .如果真 (密码编辑框.内容 ＝ “”)<br />         信息框 (“请输入正确的密码！”, 0, )<br />         密码编辑框.获取焦点 ()<br />         返回 ()<br />     .如果真结束<br /> <br />     _登陆按钮_被单击 ()<br /> <br /> .如果真结束<br /> <br /> <br /> .子程序 _密码选择框_被单击<br /> <br /> .如果真 (密码编辑框.内容 ＝ “”)<br />     信息框 (“请输入正确的密码！”, 0, )<br />     密码编辑框.获取焦点 ()<br />     密码选择框.选中 ＝ 假<br />     返回 ()<br /> .如果真结束<br /> <br /> .如果 (密码选择框.选中 ＝ 真)<br />     写注册项 (#现行用户, “Software\Microsoft\Windows\hyjx\xsgl\jzdmm”, 密码编辑框.内容)<br />     密码编辑框.获取焦点 ()<br /> .否则<br />     删除注册项 (#现行用户, “Software\Microsoft\Windows\hyjx\xsgl\jzdmm”)<br />     密码编辑框.内容 ＝ “”<br /> <br /> .如果结束

张升

感谢分享。

胖子葛格

感谢大神分享~！

xmtian

感谢分享。

SMTHU

感谢楼主 收藏了

罗泠雨人

感谢分享

原始世界

感谢分享

小虎来了

感谢分享啊

please

感谢分享，支持开源！！！

shuya1

谢谢你的分享.赞一个