|
2. 借阅管理表单(bought.scx) 内容来自www.paper51.com 借阅书籍时在此表中填入相关信息记录所借书籍的借阅日期 copyright paper51.com http://www.paper51.com 控 件 内容来自www.paper51.com 属 性 内容来自www.paper51.com
功 能 paper51.com “借书登记” copyright paper51.com Command1 http://www.paper51.com 用户借书时输入图书数据.借书日期,记录数据 http://www.paper51.com
“还书确定” http://www.paper51.com Command2 paper51.com 通过输入所归还图书信息进行还书操作. 内容来自www.paper51.com “图书续借” 内容来自论文无忧网 www.paper51.com Command4 copyright paper51.com 图书的续借(未完成) 内容来自论文无忧网 www.paper51.com “返回主页” http://www.paper51.com Command3 paper51.com 返回在主菜单 http://www.paper51.com 部分代码如下: http://www.paper51.com <1>”借书登记”部分 内容来自www.paper51.com
hyh1=thisform.text1.value http://www.paper51.com xm1=thisform.text2.value copyright paper51.com txm1=thisform.text3.value copyright paper51.com sm1=thisform.text4.value paper51.com zz1=thisform.text5.value 内容来自www.paper51.com cbdw1=thisform.text6.value 内容来自论文无忧网 www.paper51.com jsrq1=thisform.text7.value copyright paper51.com hsrq1=thisform.text8.value 内容来自论文无忧网 www.paper51.com iflen(allt(hyh1))!=0 and len(allt(txm1))!=0 and !empty(jsrq1) paper51.com selectjyb http://www.paper51.com locatefor txm=txm1 内容来自www.paper51.com
iffound() 内容来自论文无忧网 www.paper51.com
messagebox("该书已借出去,请以后来借!",0+64) 内容来自www.paper51.com thisform.text3.value="" copyright paper51.com return 内容来自www.paper51.com
endif 内容来自论文无忧网 www.paper51.com countfor hyh=hyh1 to jss 内容来自论文无忧网 www.paper51.com
ifjss<5 内容来自论文无忧网 www.paper51.com appendblank paper51.com replacehyh with hyh1 内容来自论文无忧网 www.paper51.com replacexm with xm1 http://www.paper51.com replacetxm with txm1 copyright paper51.com replacesm with sm1 paper51.com
replacezz with zz1 copyright paper51.com replacecbdw with cbdw1 http://www.paper51.com replacejsrq with jsrq1 paper51.com replacehsrq with hsrq1 copyright paper51.com messagebox("借书已登记完毕!") 内容来自www.paper51.com selecttsb 内容来自www.paper51.com replacejyzt with "借出" for txm=txm1 http://www.paper51.com else paper51.com messagebox("借书已超过5本,不能再借") paper51.com
endif http://www.paper51.com thisform.text1.value="" paper51.com
thisform.text2.value="" http://www.paper51.com thisform.text3.value="" 内容来自论文无忧网 www.paper51.com thisform.text4.value="" 内容来自www.paper51.com
thisform.text5.value="" copyright paper51.com thisform.text6.value="" paper51.com thisform.text7.value={} 内容来自论文无忧网 www.paper51.com thisform.text8.value={} http://www.paper51.com
else http://www.paper51.com messagebox("请输入学号和条形码和借书日期") http://www.paper51.com
endif 内容来自论文无忧网 www.paper51.com thisform.refresh 内容来自www.paper51.com thisform.text1.setfocus 内容来自www.paper51.com
输入相应条件,可查阅会员信息.图书借阅信息 内容来自论文无忧网 www.paper51.com
控 件 paper51.com 属 性 paper51.com 功 能 内容来自论文无忧网 www.paper51.com “条件查询” copyright paper51.com Command1 http://www.paper51.com 输入会员或图书的相关信息进行查询 内容来自论文无忧网 www.paper51.com “重新查询” 内容来自论文无忧网 www.paper51.com Command3 内容来自www.paper51.com 清楚之前输入信息.再重新输入新的数据查询 paper51.com
“返回主页” 内容来自www.paper51.com Command2 copyright paper51.com 返回在主菜单 内容来自www.paper51.com
部分代码如下: paper51.com
<1>”条件查询”代码 http://www.paper51.com cx1="select* from hy into cursor table_hy" 内容来自论文无忧网 www.paper51.com cx2="" 内容来自论文无忧网 www.paper51.com iflen(allt(thisform.text1.value))!=0 内容来自www.paper51.com cx2="hyh=allt(thisform.text1.value)" 内容来自www.paper51.com endif http://www.paper51.com iflen(allt(thisform.text2.value))!=0 内容来自www.paper51.com iflen(allt(cx2))!=0 http://www.paper51.com cx2=cx2+"and "+"xm=allt(thisform.text2.value)" copyright paper51.com
else copyright paper51.com cx2="xm=allt(thisform.text2.value)" paper51.com endif copyright paper51.com
endif copyright paper51.com iflen(allt(thisform.combo1.value))!=0 copyright paper51.com iflen(allt(cx2))!=0 paper51.com cx2=cx2+"and "+"xb=allt(thisform.combo1.value)" 内容来自论文无忧网 www.paper51.com
else copyright paper51.com cx2="xb=allt(thisform.combo1.value)" paper51.com endif http://www.paper51.com endif paper51.com iflen(allt(thisform.combo2.value))!=0 paper51.com iflen(allt(cx2))!=0 内容来自www.paper51.com cx2=cx2+"and "+"nj=allt(thisform.combo2.value)" 内容来自www.paper51.com
else copyright paper51.com cx2="nj=allt(thisform.combo2.value)" http://www.paper51.com
endif copyright paper51.com
|