[pb课程设计]图书管理系统

[pb课程设计]图书管理系统内容摘要：

mima= then 9 //修改用户的密码 UPDATE 操作员表 SET 密码 = : WHERE 操作员表 .用户名 = :。 messagebox(密码修改成功。 ,请记住新密码，下次登录时请使用新密码。 ,Information!,ok!,2) else messagebox(错误。 ,用户名或密码错误，请重新输入。 ,exclamation!,ok!,2) end if end if 关 闭 //关闭该窗体 close(parent) 5．挂失 /解锁会员卡 图 6 挂失 /解锁会员卡 搜索 按钮脚本 (sqlca) (会员编号 =39。 +trim()+39。 ) () if ()1 then messagebox(查找失败。 ,找不到该会员的记录。 ) end if 更新 按钮脚本 if ()=1 then 10 mit。 messagebox(成功。 ,更新数据库成功。 ) else rollback。 messagebox(失败。 ,更新数据库失败。 ) end if 6．打印会员卡 图 7 打印会员卡 搜索 按钮脚本 (sqlca) (会员编号 =39。 +trim()+39。 ) () if ()1 then messagebox(查找失败。 ,找不 到该会员的记录。 ) end if 打印 按钮脚本 //定义一个打印工作 long job //打开打印设置 job = PrintOpen(一份数据文档 ) //指定打印数据窗口 PrintDataWindow(job, dw_1) //关闭打印工作 11 PrintClose(job) 7． 借还图书界面 图 8 借还图书界面 借书 按钮脚本 //显示特定会员和图书的借阅记录 //显示特定会员和图书的借阅记录 (sqlca) (会员编号 =39。 +trim()+39。 ) () (sqlca) (会员编号 =39。 +trim()+39。 and 图书编号 =39。 +trim()+39。 ) () (sqlca) (图书编号 =39。 +trim()+39。 ) () //得到记录的总行书 int m,n,I //得到借书记录总行数和图书当前行号 if ()=1 and ()=1 then i=() m=() n=() if [n]0 and [i]=否 then //插入借书记录 (m+1) (m+1) 12 [m+1]= [m+1]= [m+1]= string(today()) [m+1]= 未归还 //库存减 1 [n]= [n]1 //更新数据库 if ()=1 and ()=1 then mit。 messageb。