|
2.3 数据采集： 任意输入数据作为初始测试。 内容来自论文无忧网 www.paper51.com 3．功能需求： http://www.paper51.com
3.1 功能划分： http://www.paper51.com 图书管理系统主要实现以下七方面的功能： 内容来自www.paper51.com a.查询 b.图书借还 c.图书入库 d.环境管理 内容来自www.paper51.com 3.2 功能描述： 内容来自论文无忧网 www.paper51.com 可以对读者进行新增删除 copyright paper51.com 图书管理包括查询、借还、入库、和备份还原等方面功能。 内容来自论文无忧网 www.paper51.com
图书入库，主要实现入库登记。 内容来自论文无忧网 www.paper51.com 图书借阅，进行借书登记（此操作由管理员完成）；当用户要查询自己的借阅情况时，可进行借阅查询。 内容来自www.paper51.com 安全性需求： 内容来自论文无忧网 www.paper51.com
不同用户的权限不同，只有管理员能进行图书的入库，读者的增删等。读者仅能实现对读书的租借归还和查询等功能。管理员就可赋予新的管理权限。每位用户根据自己的身份不同，开启的功能也不同。管理员有权力行使所有的管理功能，普通用户只能进行一般的查询。 内容来自论文无忧网 www.paper51.com
内容来自www.paper51.com w_main程序代码： 内容来自www.paper51.com
char a,c,d 内容来自www.paper51.com
long ll_wx,ll_wy,ll_wh,ll_ww // workspaceextents http://www.paper51.com select flag 内容来自论文无忧网 www.paper51.com
into :d paper51.com from sz; http://www.paper51.com
opensheet(w_back,this,0,layered!) 内容来自论文无忧网 www.paper51.com select bmp http://www.paper51.com into :c copyright paper51.com from sz; 内容来自论文无忧网 www.paper51.com choose case c copyright paper51.com case '0' http://www.paper51.com w_back.abc('a.jpg') copyright paper51.com case '1' 内容来自论文无忧网 www.paper51.com w_back.abc('b.jpg') 内容来自www.paper51.com case '2' http://www.paper51.com w_back.abc('c.jpg') 内容来自www.paper51.com case '3' 内容来自论文无忧网 www.paper51.com w_back.abc('d.jpg') copyright paper51.com end choose 内容来自www.paper51.com select start copyright paper51.com into :a 内容来自论文无忧网 www.paper51.com
from sz; http://www.paper51.com if a='1' then 内容来自www.paper51.com OpenSheet(w_ptlogin,w_main,0,Original!) 内容来自论文无忧网 www.paper51.com w_ptlogin.move(1080,640) paper51.com //m_main.m_初始系统.m_读者登入.triggerevent clicked() 内容来自论文无忧网 www.paper51.com
end if 内容来自论文无忧网 www.paper51.com
if a='2' then paper51.com
OpenSheet(w_gjlogin,w_main,0,Original!) copyright paper51.com
w_gjlogin.move(1080,640) paper51.com end if http://www.paper51.com http://www.paper51.com ll_wx = this.workspacex( ) http://www.paper51.com ll_wy = this.workspacey( ) paper51.com ll_wh = this.workspaceheight( ) copyright paper51.com ll_ww = this.workspacewidth( ) copyright paper51.com open(iw_popup_time) 内容来自www.paper51.com
iw_popup_time.move(ll_wx + ll_ww- iw_popup_time.width -10 copyright paper51.com 读者登陆窗口界面及其代码w_pllogin: paper51.com
paper51.com
Click事件（确认）：time d_date 内容来自www.paper51.com d_date=now() 内容来自论文无忧网 www.paper51.com integer flag=0 copyright paper51.com string ls_no,ff 内容来自论文无忧网 www.paper51.com ff=string(d_date) copyright paper51.com //sle_no.text='' copyright paper51.com
//sle_name.text='' http://www.paper51.com open pt; 内容来自www.paper51.com
if ii_time<3 then 内容来自论文无忧网 www.paper51.com do http://www.paper51.com
fetch pt into:ls_no,:ls_name; http://www.paper51.com IFsle_no.text=ls_no or sle_name.text=ls_name THEN http://www.paper51.com m_main.m_1.m_2.enabled=true copyright paper51.com messagebox('Welcome!','欢迎你的到来，'+ls_name+'!') paper51.com close pt; 内容来自www.paper51.com flag=1; 内容来自论文无忧网 www.paper51.com m_main.m_1.m_还书处理.enabled=true 内容来自www.paper51.com m_main.m_1.m_当前借阅.enabled=true copyright paper51.com
m_main.m_书库操作.m_书库修改.enabled=false http://www.paper51.com m_main.m_读者操作.m_读者管理.enabled=false paper51.com m_main.m_用户管理.m_管理入口.enabled=false copyright paper51.com w_main.title='图书馆管理系统---当前读者： '+ls_name http://www.paper51.com exit 内容来自论文无忧网 www.paper51.com 内容来自论文无忧网 www.paper51.com end if copyright paper51.com loop while sqlca.sqlcode<>100; 内容来自www.paper51.com close pt; 内容来自www.paper51.com
if flag=0 then paper51.com MessageBox('登录错误','输入有误，请重新输入!') paper51.com sle_no.setfocus() paper51.com
ii_time++ paper51.com end if 内容来自www.paper51.com
else 内容来自论文无忧网 www.paper51.com MessageBox('登录错误','对不起，你无权使用本系统!') copyright paper51.com
close(w_ptlogin) 内容来自论文无忧网 www.paper51.com end if http://www.paper51.com name=ls_name copyright paper51.com if flag=1 then close(w_ptlogin) paper51.com click事件（取消）：close(parent) copyright paper51.com
管理员登陆窗口及其代码： http://www.paper51.com
paper51.com
Click事件（确认）代码： http://www.paper51.com integer flag=0 内容来自www.paper51.com string ls_ps 内容来自www.paper51.com //sle_name.text='' 内容来自论文无忧网 www.paper51.com
//sle_pw.text='' 内容来自www.paper51.com
open abc; 内容来自论文无忧网 www.paper51.com
if ii_time<3 then 内容来自www.paper51.com do paper51.com |