图书馆信息管理系统课程设计(9)

2、添加响应代码

（1）“进入系统”按钮控件的click事件

LOCATE FOR ALLTRIM(user.uname)==ALLTRIM(Thisform.Text2.Value) uname=user.uname

upassword=user.upassword

IF LEN(ALLTRIM(Thisform.Text2.Value))<>0 AND; LEN(ALLTRIM(Thisform.Text1.Value))<>0 LOCATE FOR ALLTRIM(user.uname)== ; ALLTRIM(Thisform.Text2.Value)

IF ALLTRIM(user.upassword)==ALLTRIM(Thisform.text1.Value) Thisform.Release

DO FORM 图书馆信息管理系统主界面.scx ELSE

MESSAGEBOX("密码不正确,请重新输入",0,"提示！") Thisform.Text1.Value="" Thisform.Text1.SetFocus ENDIF ELSE

MESSAGEBOX("密码或用户名不能为空，请重新输入",0,"提示！") Thisform.Text1.SetFocus ENDIF

（2）“退出系统”按钮的click事件

yn=MESSAGEBOX("您确定退出吗？",4+32,"系统信息") IF yn=6

thisform.Release CLEAR EVENTS QUIT Endif

另外，管理员相关信息如表所示