数据库原理试验四-数据库的安全性.pptVIP

数据库原理 实验四 数据库的安全性 请在前面实验的基础上，实现系统的最外层安全保护措施：用户标识和鉴别。 注：这里所给的内容仅供给同学们参考，希望能起到抛砖引玉的作用。具体详细的实现还要依靠自己。 用户标识和鉴别是系统提供的最外层安全保护措施。其方法是由系统提供一定的方式让用户标识自己的名字或身份。每次用户要求进入系统时，由系统进行核对，通过鉴定后才提供系统使用权。例如，使用用户名和口令。 例如： 系统维护模块的表单包括： (1) 进入系统表单 (2) 口令维护表单 说明：需要在数据库中建立一张表：用户（用户编号，用户姓名，用户身份，口令） 口令维护 简单参考代码为: combo1.click thisform.text2.value=用户.用户名称 thisform.text3.value=‘’ thisform.text4.value=‘’ thisform.text5.value=‘’ text3.valid m.encryption=‘’ if not alltrim(thisform.text3.value)=‘’ for I=1 to len(alltrim(thisform.text3.value)) m.encryption= m.encryption+chr(asc(substr(alltrim(thisform.text3.value),I,1))+1) endfor endif if not alltrim(用户.口令)= alltrim(m.encryption) messagebox(“口令不对！”) return .f. m.flag=.f. else m.flag=.t. endif if m.flag=.t. mand1.enabled=.t. else mand1.enabled=.f. endif 这一过程实际上是对用户输入的原口令进行加密的过程！ Text5.lostfocus 过程代码： If not alltrim(thisform.text4.value)=alltrim(thisform.text5.value) messagebox(“口令不对！”) thisform.text4.setfocus() endif 这一过程实际上是对用户输入的新口令进行对照的过程 对于确定按钮command1.click 的代码为: m.encryption=‘’ if not alltrim(thisform.text4.value)=‘’ for I=1 to len(alltrim(thisform.text4.value)) m.encryption= m.encryption+chr(asc(substr(alltrim(thisform.text4.value),I,1))+1) endfor replace 用户.口令 with m.entryption endif 这一过程实际上是对用户输入的新口令进行加密,并将加密后的新口令存储在用户字典中去的过程！ 进入系统提示：这里的程序只是一个身份的验证，至于验证之后执行系统的什么功能，需要你自己确定并实现。 登陆按钮的作用可以选择以下任意一个完成: 判断用户输入的信息，若对则进入整个系统，若错则进行错误提示，让其重新输入，可限定不超过三次。 根据用户输入的信息，若对，则根据用户的身份提供相应的功能。若错，则进行错误提示，让其重新输入，可以限定不超过3次。 口令输入后的简单参考代码为: m.encryption=‘’ if not alltrim(thisform.口令1.value)=‘’ for I=1 to len(alltrim(thisform.口令1.value)) m.encryption= m.encryption+chr(asc(substr(alltrim(thisform.口令1.value),I,1))+1)// endfor endif //以上是把输入的口令加密操作后赋值给m.encryption// if not alltrim(用户.口令)= alltrim(m.encryption) messagebox(“口令不对！”)//比较判断是否相等// return .f. m.flag=.f. else m.flag=.t. endif if m.flag=.t. mand1.enabled=.t. else mand1.enabled=.f. endif * 登陆 * *