***打印按钮的 Click事件代码***
report form ydcj environment preview
***退出按钮的 Click事件代码***
thisform.release
系统管理模块下有:修改密码和关于系统2个功能。
用户可以使用修改密码对初始密码的修改,也可以使用退出按钮退出系统。
关于系统是简单介绍了本系统的基本功能与制作人信息
修改密码界面如下图所示
**mmxg.scx**
***确认修改按钮的 Click事件代码***
local lcUser,lcPass,lcPass1
m.lcUser = allt(thisform.combo1.value)
m.lcPass = allt(thisform.text1.value)
m.lcPass1 = allt(thisform.text2.value)
if m.lcPass != m.lcPass1
messagebox("两次输入密码不相同,不能修改!")
else
locate for allt(yhm) = m.lcUser
repl mm with m.lcPass
messagebox("口令修改成功!")
thisform.release
endif
***放弃修改按钮的 Click事件代码***
thisform.release
关于系统界面如下图所示
if na=6
clear events
quit
else
thisform.release
endif
上一页 [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] 下一页