图书馆借阅管理系统—免费毕业设计论文

图书馆借阅管理系统—免费毕业设计论文内容摘要：

SKIP ENDDO SELECT Student amp。 amp。 在“学生信息”数据表中删除记录 GO DELETE PACK MESSAGEBOX（“删除成功”， 64，“图书借阅管理系统”） amp。 amp。 “删除成功”对话框 SELECT Student GO TOP ENDIF （） SET EXACT OFF ENDIF 3． 3． 5 学生资料的保存 “ 命令按钮工具栏”中“保存”按钮的作用是检查表单中个数据栏中的数据输入完整情况，如果无误，则保存记录。 “ 保存”按钮的 click事件代码如下： LOCAL OK amp。 amp。 声明一个本地变量 OK=.T. amp。 amp。 假设个数据栏中无数据 无误 DO ASE CASE EMPTY(ALLTRIM( .VALUE) MESSAGEBOX（“学号不能为空”， 48，“图书借阅管理系统”） .SETFOCUS() OK=.F. CASE EMPTY(ALLTRIM( 姓名 .VALUE) MESSAGEBOX（“姓名不能为空”， 48，“图书借阅管理系统”） .SETFOCUS() OK=.F. CASE EMPTY( .VALUE) MESSAGEBOX（“系别不能为空”， 48，“图书借阅管理系统”） . Cmb学号 .SETFOCUS() OK=.F. CASE EMPTY(ALLTRIM( .VALUE) MESSAGEBOX（“地址不能为空”， 48，“图书借阅管理系统”） .SETFOCUS() OK=.F. CASE EMPTY(ALLTRIM( .VALUE) MESSAGEBOX（“电话不能为空”， 48，“图书借阅管理系统”） .SETFOCUS() OK=.F. ENDCASE IF OK=.T. amp。 amp。 如果各数据栏无误为空 YN=MESSAGEBOX(“确定保存”， 4+32，“图书借阅管理系统” ) amp。 amp。 弹出确认对话框 IF YN=6 amp。 amp。 如果确认 CanSave=.F. amp。 amp。 试图保存 MESSAGEBOX(“学号错误”， 48，“图书借阅管理系统” ) amp。 amp。 如果保存失败 . SETFOCUS() ELSE MESSAGEBOX(“保存成功”， 64，“图书借阅管理系统” ) amp。 amp。 如果保存成功 () IF =“ cmod” GO ELSE .READONLY=.T. ENDIF ENDIF () ENDIF ENDIF 3． 3． 6 取消 “ 命令按钮工具栏”中“取消”按钮的作用是删除表单的数据缓冲区的数据，并且使当前页面回到浏览状态。 “ 取消”按钮的 click事件代码如下： YN=MESSAGEBOX（“确定取消”， 4+32，“系统消息”） TF YN=6 TABLEREVERT（ .F.） TF =“ cadd” GO ENDIF ()。 READONLY=.T. () ENDIF 3． 3． 7 学生资料的打印 “ 命令按钮工具栏”中“打印”按钮的作用是将“ DbfName”全局变量赋值，表明要进行打印的是“学生信息表”并调用“选 择打印类型”表单。 “ 取消”按钮的 click事件代码如下： DbfName=“ StuDbf” DO FORM 图 学生资料的打印 3． 3． 8 借还书 读者可以通过“借还书”按扭来实现借书和还书。 并可以在此查看过期未还的图书和图书的排行榜。 SELECT Student = RECNO() amp。 amp。 将记录编号储存 DO FORM Input WITH 输入书号 ,AA9999 TO BookNO amp。 amp。 调用输入表单 SET EXACT ON amp。 amp。 改为精确比较 IF BookNO amp。 amp。 表示有输入图书编号 SELECT Book LOCATE FOR 图书编号 =BookNO IF NOT FOUND() amp。 amp。 表示找不到时 MESSAGEBOX(无此书号 ,48,信息窗口 ) SELECT Student GO amp。 amp。 回到原记录 ELSE IF 是否借出 =.T. MESSAGEBOX(书已借出 ,48,信息窗口 ) SELECT Student GO amp。 amp。 回到原记录 ELSE SELECT JyRec COUNT FOR 学号 =ALLTRIM( .VALUE) AND EMPTY(归还日期 ) TO YjNO IF YjNO=7 MESSAGEBOX(可借书数据目己满 ,48,信息窗口 ) SELECT Student GO amp。 amp。 回到原记录 ELSE SELECT BOOK REPLACE 是否借出 WITH .T.,借阅次数 WITH 借阅次数 +1 FOR 图书编号=BookNO INSERT INTO JyRec ( 学号 , 图 书 编 号 , 借阅日期 ) VALUES (ALLTRIM( .VALUE),BookNO,DATE()) MESSAGEBOX(借出成功 ,64,信息窗口 ) SELECT Student GO amp。 amp。 回到原记录 ENDIF ENDIF ENDIF ENDIF () amp。 amp。 重新显示表单上各对象的数据 SET EXACT OFF amp。 amp。 改回模糊比较 图 读者借还书 表单中“过期”按扭的作用是调用“过期图书”表单，其 Click 事件代码如下： DO FORM Outdate 图 过期图书列表 表单中“排行”按扭的作用是调用“图书借阅排行榜”表单，其 Click 事件代码如下： DO FORM Topten 图 书籍借阅排行榜 3． 3． 9 退出 “退出”（ Cmdexti）按扭的 Click 事件代码如下： YN=MESSAGEBOX(“确定退出”， 4+32，“图书借阅管理系统” ) IF YN=6 () CLEAR EVENTS QUIT ENDIF “学生信息”页面中“借还书”（ Cmdjh）按扭的作用是将页面中当前记录的“学号”值赋给全局变量“ StudentNO”， 并调用“读者借书记录”表单。 “借还书”（ Cmdjh）按扭的 Click 事件代码如下： StudentNO=ALLTRIM（ 学号 .VALUE） DO FORM JyRec 3． 4“书籍资料”模块 3． 4． 1 .添加“书籍信息” 在“书籍信息”（ BookPage）页面被激 活时，表单中的当前数据工作期应该变为“图书信息”数据表所在的工作期，将可能由其他表单对该数据表设置的过滤条件去掉，同时要使该页面进入浏览状态。 添加该页面的“ Activate”事件代码如下： SELECT BOOK SET FILTER TO GO TOP =“ cbrowse” （） （） 由于该页面要在刷新表单时，显示表单中当前记录的书籍是否借出，故添加该页面的Refresh 事件代码 如下： SELECT BOOK IF 是否借出 =.F. =“在馆中” ELSE =“借出中” ENDIF 在“书籍信息”（ BookPage）页面在可通过添加的 MonthView 控件（ SjOleRq）来输入图书的购买日期，在该页面处于非浏览状态时单击“。 ”按扭即可调用该软件。 添加“。 ”（ Cmdrp）按扭的 Click 事件代码如下： =.T. 如果要从“ SjOleRq”控件中获得日期值还需要添加“ SjOleRq”的“ DateClick”事件代码如下： *** ActiveX 控件事件 *** LPARAMETERS dateclicked 购买日期 .VALUE=dateclicked 购买日期 .REFRESH() =.F. 添加“ SjOleRq”的“ MouseDown 事件代码如下： *** ActiveX 控件事件 *** LPARAMETERS button, shift, x, y IF button=2 =.F. ENDIF 3． 4． 2 增加书籍 “增加”（ Cmdadd）按扭的 Click 事件代码如下： SELECT Book =RECNO() GO BOTTOM APPEND BLANK =cadd () 图书编号 .READONLY=.F. () 图 增加书籍资料 3． 4． 3 修改书籍 “修改”（ Cmdmod）按扭的 Click 事件代码如下： =RECNO() =cmod () () 3． 4． 4 删除书籍 “删除”（ Cmddel）事件代码如下： YN=MESSAGEBOX(确 定删除 ,4+32,图书借阅管理系统 ) amp。 amp。 确认对话框 IF YN=6 amp。 amp。 如果确认 =RECNO() amp。 amp。 保存记录号 IF =借出中 amp。 amp。 如果该图书不在库中 MESSAGEBOX(该图书尚未归还 ,48,图书借阅管理系统 )amp。 amp。 不能删除 ELSE amp。 amp。 如果在库中 SELECT JyRec amp。 amp。 对图书借阅记录表进行修改 SET EXACT ON amp。 amp。 精确比较 GO TOP amp。 amp。 到数据表的顶部 DO WHILE NOT EOF() amp。 amp。 删除所有与要删除的图书有关的记录 IF 图书编号 =ALLTRIM( 图书编号 .VALUE) DELETE PACK ENDIF SKIP ENDDO SELECT Book amp。 amp。 删除图书记录 GO DELETE PACK MESSAGEBOX(删除成功 ,64,图书借阅管理系统 )amp。 amp。 “删除成功”对话框 SET EXACT OFF () ENDIF ENDIF 图 删除图书资料 3． 4． 5 查询书籍 “查询”按扭（ Cmdser）的 Click 事件代码如下： DO FORM BookSer 图 查询图书 图 查询结果 3． 4． 6 书籍的保存 “保存”（ Cmdsave）按扭的 Click 事件代码如下： LOCAL OK OK=.T. DO C。