5。5.7
系统管理
这一个模块主要完成对用户、用户权限以及数据安全、数据备份、数据恢复的功能和确定该用户是否是合法用户,根据权限合法用户又分系统负责人
各一般用户。一般用户可以修改自己的密码,而系统负责人还可以进行增删用户的操作。(如下图)
系统登录界面
:command
代码:use 。\database\
user_pswd
cname
=alltrim
(thisform.pageframe1.page1.text1。value)
cpassword
=alltrim
(thisform。pageframe1.page1.text2。value)
set order to
tms_user
seek
cname
ifalltrim
(user_pswd.tms_user
)<〉cname
orlen(cname
)=0cMessageTitle
=’消息窗口
’ cMessageText
=&#039;
用户名错误,请重新输入
’ nDialogType
=4+32
nAnswer
=messagebox
(cMessageText,nDialogType,cMe ...
附件列表