图书管理系统毕业设计论文详细附录.docx

1、图书管理系统毕业设计论文详细附录附录1. 系统用户登陆表单定义保存允许用户最大登陆次数和当前登陆次数的变量PROCEDURE loadpublic nMaxLogTimes &定义一个全局变量保存允许的最大登录次数nMaxLogTimes=3 &设置最大允许的登录次数public nLogTimes &定义一个全局变量保存当前登录次数nLogTimes=0 &设置登录次数的初始值ENDPROC实现登录信息验证PROCEDURE Command1.Click*首先检查是否超过允许的最多登录次数nLogTimes=nLogTimes+1 &当前登录次数加1if nLogTimesnMaxLogTi

2、mes *在超过允许的最多登录次数时显示提示信息，并关闭登录对话框 cstr=你已超过允许的最多登录次数，登录对话框将关闭 messagebox(cstr,16,用户登录验证) &显示提示 thisform.release &关闭登录对话框else *在允许的最多登录次数范围内，首先获得用户输入的登录信息 cName=alltrim(thisform.txtName.value) cPassword=alltrim(thisform.txtPassword.value) *检验用户名是否存在 locate for alltrim(编号)=cname if not found() message

3、box(用户名输入错误！,16,用户登录验证) thisform.txtName.selstart=0 thisform.txtName.sellength=len(cName) thisform.txtName.setfocus return endif *在用户名正确时，检查口令是否正确 if alltrim(口令)=cPassword *显示登录信息通过验证的信息 messagebox(登录成功!,64,用户登录验证) thisform.release &关闭登录对话框 *保存当前用户信息，下列变量在系统主文件中定义 capp_currentuser=cname capp_current

4、pwd=cpassword capp_currentpop=权限 lapp_Logon=.T. &lapp_Logon设置为.T.表示登录成功 else messagebox(口令输入错误！,16,用户登录验证) thisform.txtPassword.value= thisform.txtPassword.setfocus endifendifENDPROC实现取消登录功能PROCEDURE Command2.Clicknr=messagebox(你选择了退出登录，是否退出？,68,用户登录)if nr=6 thisform.release &关闭登录对话框表单endifENDPROC在登

5、录对话框关闭时执行清理操作PROCEDURE Unload*从内存释放保存允许的最大登录次数和当前登录次数的变量RELEASE nMaxLogTimes,nLogTimesclear events &清除事件循环ENDPROC表示当前日期的功能PROCEDURE Initthisform.txtdate.value=date()ENDPROC2. 创建记录导航条类首记录PROCEDURE cmdTop.Click*在当前表中有记录时才执行改变当前记录操作if reccount()0 go top &使第一条记录成为当前记录endifthisform.refresh &刷新表单，显示当前记录数据

6、ENDPROC前一记录PROCEDURE CmdPre.Click*在当前表中有记录时才执行改变当前记录操作if reccount()0 skip -1 &使前一个记录成为当前记录 if bof() go top &如果记录指针指向文件开头，则使第一个记录成为当前记录 endifendifthisform.refresh &刷新表单，显示当前记录数据 ENDPROC 后一记录PROCEDURE cmdNext.Click*在当前表中有记录时才执行改变当前记录操作if reccount()0 skip &使后一个记录成为当前记录 if eof() go bottom &如果记录指针指向文件末尾，

7、则使最后一个记录成为当前记录 endifendifthisform.refresh &刷新表单，显示当前记录数据 ENDPROC 尾记录 PROCEDURE cmdBottom.Click*在当前表中有记录时才执行改变当前记录操作if reccount()0 go bottom &使最后一个记录成为当前记录endifthisform.refresh &刷新表单，显示当前记录数据DENPROCmynavigatorde的初始化事件过程PROCEDURE InitThisform,mynavigator1.cmdTop.click ENDPROC3. 实现系统用户数据管理功能 实现添加记录功能 P

8、ROCEDURE cmdAdd.Click *取消各个文本框数据绑定属性，在保存后再恢复thisform.txt编号.controlsource=thisform.txt编号.value=thisform.txt口令.controlsource=thisform.txt口令.value=thisform.txt权限.controlsource=thisform.txt权限.value=*取消文本框的只读属性thisform.txt编号.readonly=.f.thisform.txt口令.readonly=.f.thisform.txt权限.readonly=.f.thisform.isadd

9、ing=.T. &设置添加状态标志thisform.caption=系统用户数据管理-添加 &修改表单标题thisform.mynavigator1.enabled=.f. &禁用记录导航条thisform.cmdadd.enabled=.f. &禁用添加按钮thisform.cmdedit.enabled=.f. &禁用修改按钮thisform.cmddelete.enabled=.f. &禁用删除按钮thisform.cmdexit.enabled=.f. &禁用退出按钮 ENDPROC实现修改记录功能PROCEDURE cmdEdit.Clickif reccount()1 return

10、 &在无记录时直接返回endif*取消各个文本框数据绑定属性，在保存后再恢复thisform.txt编号.controlsource=thisform.txt口令.controlsource=thisform.txt权限.controlsource=thisform.iseditting=.T. &设置修改状态标志thisform.caption=系统用户数据管理-修改 &修改表单标题thisform.mynavigator1.enabled=.f. &禁用记录导航条thisform.cmdadd.enabled=.f. &禁用添加按钮thisform.cmdedit.enabled=.f.

11、&禁用修改按钮thisform.cmddelete.enabled=.f. &禁用删除按钮thisform.cmdexit.enabled=.f. &禁用退出按钮*取消文本框的只读属性thisform.txt编号.readonly=.f.thisform.txt口令.readonly=.f.thisform.txt权限.readonly=.f.ENDPROC实现退出添加或修改状态功能PROCEDURE cmdEsc.Click*退出当前修改或添加状态if thisform.isadding or thisform.iseditting nRecno=recno() &记录当前记录编号 *恢复各

12、个文本框数据绑定属性 thisform.txt编号.controlsource=sysuserdata.编号 thisform.txt口令.controlsource=sysuserdata.口令 thisform.txt权限.controlsource=sysuserdata.权限 go nrecno thisform.refresh *清除编辑和添加状态标记 thisform.isadding=.f. thisform.iseditting=.f. *恢复文本框的只读属性 thisform.txt编号.readonly=.t. thisform.txt口令.readonly=.t. thi

13、sform.txt权限.readonly=.t. thisform.caption=系统用户数据管理-浏览 &修改表单标题 thisform.mynavigator1.enabled=.t. &重新启用记录导航条 thisform.cmdexit.enabled=.t. &重新启用退出按钮 thisform.cmdadd.enabled=.t. &重新启用添加按钮 thisform.cmdedit.enabled=.t. &重新启用修改按钮 thisform.cmddelete.enabled=.t. &重新启用删除按钮endifENDPROC实现保存记录功能PROCEDURE cmdSave

14、.Click*判断当前是否处于添加或编辑状态if not (thisform.isadding or thisform.iseditting) return &在不处于添加或编辑状态时不执行保存操作endif*执行保存记录操作，首先获得输入cNum=alltrim(thisform.txt编号.value)cPwd=alltrim(thisform.txt口令.value)cPop=alltrim(thisform.txt权限.value)if empty(cNum) &验证编号是否为空 messagebox(编号不能为空！,16,系统用户数据管理) thisform.txt编号.value=

15、 thisform.txt编号.setfocus returnendifif empty(cpwd) &验证口令是否为空 messagebox(口令不能为空！,16,系统用户数据管理) thisform.txt口令.value= thisform.txt口令.setfocus returnendifif not (cpop=chr(48) or cpop=chr(49) &验证权限代码是否有效 messagebox(权限代码只能为0或1！,16,系统用户数据管理) thisform.txt权限.setfocus returnendif*定义一个变量用于表示编号是否被使用*检查添加的编号是否已被

16、使用nRecno=recno() &记录当前记录编号locate for 编号=cNumif found() if thisform.isadding messagebox(编号：+cnum+已被使用！,16,系统用户数据管理) thisform.txt编号.setfocus return else if nrecnorecno() messagebox(编号：+cnum+已被使用！,16,系统用户数据管理) thisform.txt编号.setfocus return endif endifendif*将通过验证的数据保存到sysuserdata表if thisform.isadding i

17、nsert into sysuserdata (编号,口令,权限) values (cnum,cpwd,cpop)else replace 编号 with cnum, 口令 with cpwd, 权限 with cpop RECORD nrecnoendif*恢复各个文本框数据绑定属性thisform.txt编号.controlsource=sysuserdata.编号thisform.txt口令.controlsource=sysuserdata.口令thisform.txt权限.controlsource=sysuserdata.权限 *恢复文本框的只读属性thisform.txt编号.r

18、eadonly=.t.thisform.txt口令.readonly=.t.thisform.txt权限.readonly=.t.*使新添加的记录或被修改记录成为当前记录if thisform.isadding go bottomelse go nrecnoendifthisform.refresh*清除编辑和添加状态标记thisform.isadding=.f.thisform.iseditting=.f.thisform.caption=系统用户数据管理-浏览 &修改表单标题thisform.mynavigator1.enabled=.t. &重新启用记录导航条thisform.cmdex

19、it.enabled=.t. &重新启用退出按钮thisform.cmdadd.enabled=.t. &重新启用添加按钮thisform.cmdedit.enabled=.t. &重新启用修改按钮thisform.cmddelete.enabled=.t. &重新启用删除按钮messagebox(数据保存成功,64,系统用户数据管理)ENDPROC实现删除记录功能PROCEDURE cmdDelete.Clickif reccount()1 return &在无记录时直接返回endif if messagebox(是否删除当前记录,36,系统用户数据管理)=6 &选择删除记录 nrecno=

20、recno() &记录当前记录编号 delete &对记录作删除标记 pack &彻底删除当前记录 *使被删除记录的下一条记录成为当前记录 if reccount()=1 go top else if nrecno=reccount()+1 go bottom else go nrecno endif endif thisform.refreshendifENDPROC实现关闭表单功能PROCEDURE cmdExit.Clickif messagebox(是否退出系统用户数据管理？,36,系统用户数据管理)=6 thisform.release &关闭系统用户数据管理表单endifENDPR

21、OC4. 实现当前用户口令修改功能实现表单初始化PROCEDURE Iint*显示用户编号thisform.txtNum.value=capp_currentuser*显示用户口令select sysuserdatalocate for alltrim(编号)=capp_currentuserthisform.txtOldPwd.value=口令ENDPROC实现清除口令功能PROCEDURE cmdClear.Click*清除新口令thisform.txtnewpwd1.value=thisform.txtnewpwd2.value=ENDPROC实现保存新口令功能PROCEDURE cmd

22、Save.Click*检查两次输入的口令是否相同with thisform IF .txtnewpwd1.value.txtnewpwd2.value messagebox(两次输入的新口令不相同,16,口令修改) .txtnewpwd1.setfocus return endif *获得输入的新口令 cpwd=alltrim(.txtnewpwd1.text) *修改口令 select sysuserdata replace 口令 with cpwd while 编号=capp_currentuser capp_currentpwd=cpwd messagebox(口令修改成功,64,口令修

23、改) .txtoldpwd.value=cpwd .txtnewpwd1.value= .txtnewpwd2.value=endwithENDPROC实现关闭表单功能PROCEDURE cmdExit.Clickif messagebox(是否退出口令修改？,36,口令修改)=6 thisform.release &关闭口令修改表单endifENDPROC5. 实现读者类型管理功能初始化表单PROCEDURE Iint*打开读者类型表readertypeuse datareadertype*在表单中显示原来的读者类型数据*显示特殊读者类型数据go topthisform.text2.valu

24、e=借书量thisform.text3.value=借书期thisform.text4.value=有效期*显示馆员类型数据skipthisform.text6.value=借书量thisform.text7.value=借书期thisform.text8.value=有效期*显示教师类型数据skipthisform.text10.value=借书量thisform.text11.value=借书期thisform.text12.value=有效期*显示学生类型数据skipthisform.text14.value=借书量thisform.text15.value=借书期thisform.te

25、xt16.value=有效期ENDPROC实现保存功能PROCEDURE command1.Clickwith thisformif reccount()=0 *保存特殊读者类型数据 insert into readertype (类号,借书量,借书期,有效期); values (0,.text2.value,.text3.value,.text4.value) *保存馆员类型数据 insert into readertype (类号,借书量,借书期,有效期); values (1,.text6.value,.text7.value,.text8.value) *保存教师类型数据 insert

26、 into readertype (类号,借书量,借书期,有效期); values (2,.text10.value,.text11.value,.text12.value) *保存学生类型数据 insert into readertype (类号,借书量,借书期,有效期); values (3,.text14.value,.text15.value,.text16.value)else *保存特殊读者类型数据 replace 借书量 with .text2.value,借书期 with .text3.value,有效期 with .text4.value; for 类号=0 *保存馆员类型数

27、据 replace 借书量 with .text6.value,借书期 with .text7.value,有效期 with .text8.value; for 类号=1 *保存教师类型数据 replace 借书量 with .text10.value,借书期 with .text11.value,有效期 with .text12.value; for 类号=2 *保存学生类型数据 replace 借书量 with .text14.value,借书期 with .text15.value,有效期 with .text16.value; for 类号=3endifendwithmessagebo

28、x(数据保存成功,64,读者类型管理)ENDPROC实现关闭表单功能PROCEDURE command1.Clickif messagebox(是否退出读者类型管理？,36,读者类型管理)=6 thisform.release &关闭读者类型管理表单endifENDPROC6. 实现读者数据管理功能实现添加记录功能PROCEDURE command1.Click*取消各个文本框数据绑定属性，在保存后再恢复thisform.txt证号.controlsource=thisform.txt证号.value=thisform.txt类号.controlsource=thisform.txt类号.value=thisform.txt姓名.controlsource=thisform.txt姓名.value=thisform.txt部门.controlsource=thisform.txt部门.value=thisform.txt时间.controlsource=thisform.txt时间.value=*取消文本框的只读属性thisform.txt证号.readonly=.F.thisform.txt类号.readonly=.F.thisform.txt姓名.readonly=.F.thisform.txt部门.readonly=.F.thisform.txt时间.read