资料信息管理系统资料室管理人员功能的信息量大，数据安全性和保密性要求最高，本功能实现对资料信息，借阅者信息，总体借阅情况信息的管理和统计，工作人员和管理人员信息查看和维护．资料室管理员可以浏览，查询，添加，删除，修改，统计资料的基本信息．浏览，查询，添加，删除和修改图书资料借阅者的基本信息，浏览和查询，统计图书资料室的借阅信息，但不能添加，删除和修改借阅信息，这部分功能应该由资料室工作人员完成．
设计不同用户的操作权限和登录方法．
对所有用户开放的资料查询．
借阅者维护借阅者个人信息．
借阅者查看个人借阅情况信息．
维护借阅者个人密码．
维护图书信息．
维护工作人员和管理人员信息．
维护借阅者信息．
经过上述系统功能分析和需求总结，考虑到将来功能上的扩展，设计如下面所示的数据项和数据结构．
资料信息：包括资料编号，资料名称，资料类型，资料数量，借出数量，资料来源，保密级别，借阅时限．
借阅信息：包含借阅编号，资料编号，用户编号，借出日期，归还日期，归还期限，说明等．
用户信息：包含编号，姓名，性别，部门，借阅级别．
系统用户信息：包含用户名，密码，姓名，系统用户管理，用户权限管理，用户信息管理，用户信息浏览等．
资料分类信息：包含分类编号，分类名称等．
部门信息：包含部门编号，部门名称等．
“资料信息管理”表单的“ModeControl”方法：
*——声明本地变量
LOCAL bModify,bBrowse,OK
*——使用本地变量存储属性值
bModify=THISFORM.bModify
bBrowse=THISFORM.bBrowse
*——对属性赋初值
OK=.T.
*——根据变量的值来设置控件的状态
 *——移动记录工具栏
THISFORM.MyMove.Enabled=.NOT. bModify
 *——查询工具栏
THISFORM.MySearch.Enabled=.NOT. bModify
 *——表格控件
THISFORM.Grid1.Enabled=.NOT. bModify
 *——控制工具栏中“保存”和”取消”按钮
THISFORM.MyAdmin.CmdSave.Enabled=bBrowse
THISFORM.MyAdmin.CmdCancel.Enabled=bBrowse
 *——控制工具栏中其他按钮
THISFORM.MyAdmin.CmdNew.Enabled=.NOT. bModify
THISFORM.MyAdmin.CmdExit.Enabled=.NOT. bModify
THISFORM.MyAdmin.CmdModify.Enabled=.NOT.bModify
THISFORM.MyAdmin.cmdDelete.Enabled=.NOT. bModify
 *——表单中与数据绑定的控件
THISFORM.txt资料编号.ReadOnly=.NOT.bModify
THISFORM.txt资料名称.ReadOnly=.NOT. bModify
THISFORM.cmb资料类型.Enabled=bModify
THISFORM.spin资料数量.ReadOnly=.NOT. bModify
THISFORM.txt资料来源.ReadOnly=.NOT. bModify
THISFORM.spin保密级别.ReadOnly=.NOT. bModify
THISFORM.spin借阅时限.ReadOnly=.NOT. bModify
THISFORM.cmb所属部门.Enabled=bModify
THISFORM.txt内容简介.ReadOnly=.NOT. bModify
THISFORM.Cmdsel.Visible=bModify
 *——权限管理相关
IF bDataAdmin=.F.
 THISFORM.MyAdmin.CmdModify.Enabled=.F.
 THISFORM.MyAdmin.CmdNew.Enabled=.F.
 THISFORM.MyAdmin.CmdDelete.Enabled=.F.
ENDIF
“资料信息管理”表单的“Init”事件代码：
SELECT DataInfo
SET FILTER TO
THISFORM.bModify=.F.
THISFORM.bBrowse=.F.
THISFORM.ModeControl
THISFORM.Refresh
“资料信息管理”表单的“Refresh”事件代码：
*——选择所在的工作区
SELECT DataInfo
*——如果表为空
IF EOF() .AND. BOF() OR RECCOUNT()=0
 THISFORM.bModify=.T.
 THISFORM.bBrowse=.F.
 THISFORM.ModeControl
 IF bDataAdmin=.T.
  THISFORM.MyAdmin.CmdNew.Enabled=.T.
 ENDIF
 THISFORM.MyAdmin.CmdExit.Enabled=.T.
ENDIF
【新增】按钮的“Click”事件代码：
*——选择“资料信息”表所在的工作区
SELECT DataInfo
*——保存记录号
THISFORM.OldRecord=RECNO()
*——到末记录
GO BOTTOM
*——声明本地变量
LOCAL sNum
*——数据表最后一条记录的值
sNum=DataInfo.资料编号
*——数据表末尾新增记录
APPEND BLANK
*——新增记录的“资料编号”值为自动增加的值
THISFORM.txt资料编号.Value=AutoAdd(sNum)
*——表单进入修改状态
THISFORM.bModify=.T.
THISFORM.bBrowse=.T.
THISFORM.ModeControl
*——新增记录的“存档日期”值为系统当前日期
THISFORM.txt存档日期.Value=Date()
*——刷新表单
THISFORM.Refresh
【修改】按钮的“Click”事件代码：
*——选择“资料信息”表所在的工作区
SELECT DataInfo
*——保存记录指针位置
THISFORM.OldRecord=RECNO()
*——表单进入修改状态
THISFORM.bModify=.T.
THISFORM.bBrowse=.T.
THISFORM.ModeControl
*——刷新表单
THISFORM.Refresh
【删除】按钮的“Click”事件代码：
*——确认对话框
YN=MESSAGEBOX("确定删除",4+32,"资料管理系统")
*——如果确认
IF YN=6
 *——设置表格控件的数据源为空
 THISFORM.Grid1.RecordSource=NULL
 SELECT DataInfo
 *——逻辑删除
 DELETE
 *——物理删除
系统的简单介绍如上，大家要是还有什么不明白的地方，请咨询我们站www.bysj999.com的客服人员

(需要该计算机毕业设计论文的,请联系我们在线客服QQ:599057179)-本设计为全套资料