教材管理系统设计Word下载.docx
《教材管理系统设计Word下载.docx》由会员分享，可在线阅读，更多相关《教材管理系统设计Word下载.docx（57页珍藏版）》请在冰豆网上搜索。
根据系统所要实现的功能要求,不同的用户具有不同的操作权限,本系统主要划分为用户登录功能模块、系统管理功能模块、书费管理功能模块、教材出入库管理
模块和综合功能查询模块。
系统模块图如图1所示。
教材管理系统
系统管理书费管理出入库管理综合查询
操作员管理缴退教学教书库领
密码修改纳回材生师费存书
书书入领领查查查系统初始化费费库书书询询询
班级管理
单位信息
退出
图2-1系统模块图
-1-
1.2.2系统流程图
开始
启动界面
Y用户登陆
系统管理
书费管理
出入库管理
综合查询
结束
图2-2教材管理系统流程图
1.2.3数据库设计
教材管理系统使用McrosoftAccess数据库，数据库名称为“教材系统”，包
含以下6个表：
班级表、操作用户表、单位信息表、教材表、教材出入库历史表、
学生书费历史库。
下面分别介绍以上各表的结构。
1、操作用户表
用来存储操作员信息。
表1-1操作用户表
字段名称数据类型说明
用户名文本主键
密码文本
所在单位文本
权限一是/否
权限二是/否
-2-
权限三是/否
权限四是/否
操作员文本最后修改时间日期/时间
2、班级表
班级表用来保存班级的一些信息。
表1-2班级表
班级名文本主键
入学时间日期/时间
所在院系文本
班长文本班长联系电话文本
班主任文本班主任联系电话文本
学费货币
所学专业文本
班级人数数字整型
3、单位信息表
单位信息表用于存储进书单位的信息。
表2-3单位信息表
单位名文本主键
负责人文本
联系电话文本
书费货币
4、教材表
教材表用于存储教材的基本信息。
表1-4教材表
id自动编号主键
教材名文本
出版社文本
-3-
作者文本
获奖情况文本出版年月日期/时间
订书单位文本
经办人文本教材数量数字整型教材单价货币使用说明文本入库时间日期/时间
说明文本
5、教材出入库历史表
教材出入库历史表用于教材购入和领出信息的存储。
1-5教材出入库历史表
出版社文本获奖情况文本出版年月日期/时间经办单位文本
经办人文本上期数量数字整型本次数量数字整型本期数量数字整型教材单位文本使用说明日期/时间入库时间日期/时间
6、学生书费历史库
学生书费历史库表用于对学生订书领书的基本信息存储。
表1-6学生书费历史表
id自动编号主键班级名文本上期费用货币
-4-
本次费用货币
本期费用货币
经办人文本
操作员文本
最后修改时间日期/时间
班级人数数字
1.3系统详细设计
下面分别对各个功能模块进行介绍。
1.3.1、用户登录功能模块
此模块主要用于实现登录用户的身份和权限认证。
用户输入正确的密码后,系统根据用户所具有的权限,允许用户进行合法和操作。
在该窗体上,输入正确的用户名和密码,将进入到教材管理系统中。
但根据用户的权限不同,所提供的操作也不同。
本系统具有4个功能模块,分别对应4种权限,管理权、收费权、出入库权和
查询权。
只有同时具有这4种权限,系统功能才完全开放,否则没有权限操作的菜单和工具条变成灰色,不可用。
用到组件有：
bitbtn1、bitbtn2、edit1、edit2、lable1、lable2、adoconection1
3-1用户登陆图
用户登陆主要代码
（1）用户主要登陆模块代码（checkuser.pas）
procedureTCheckUserForm.BitBtn2Click（Sender:
TObject）;
begin
Close;
end;
procedureTCheckUserForm.BitBtn1Click（Sender:
var
-5-
Adodataset1:
TAdoDataset;
AdoDataSet1:
=TAdoDataset.Create（self）;
adoDataset1.Connection:
=adoconnection1;
adodataset1.CommandType:
=cmdtext;
Adodataset1.CommandText:
='
select*from操作用户表where用户名
=:
usernameand密码=:
password'
;
adodataset1.close;
Adodataset1.Parameters.Clear;
Adodataset1.Parameters.AddParameter;
adodataset1.Parameters[0].name:
username'
adodataset1.Parameters[0].DataType:
=ftstring;
Adodataset1.Parameters[0].Direction:
=pdinput;
adodataset1.Parameters[0].Value:
=edit1.text;
adodataset1.Parameters[1].name:
adodataset1.Parameters[1].DataType:
Adodataset1.Parameters[1].Direction:
adodataset1.Parameters[1].Value:
=edit2.text;
adodataset1.active:
=true;
ifadodataset1.Recordset.RecordCount=1then
username:
=edit1.Text;
qx[1]:
=adodataset1.FieldByName（'
权限一'
）.asboolean;
qx[2]:
权限二'
qx[3]:
权限三'
qx[4]:
权限四'
close;
end
else
Application.MessageBox（'
您输入的用户名或密码错误，请检查！
'
'
提示信
息'
mb_ok）;
i:
=i-1;
edit1.text:
edit2.text:
edit1.SetFocus;
ifi=0then
adodataset1.Active:
=false;
-6-
procedureTCheckUserForm.FormActivate（Sender:
=3;
edit2.Text:
end.
1.3.2、系统主界面
通过单击相应的菜单项或者相应的工具条即可进入该功能管理。
单击“系统管理”菜单,将弹出如下图所示的下拉菜单,包括操作员管理工作、密码修改、系统初始化、班级管理、单位信息、退出6个子菜单。
单击相应子菜单将弹出对应的管理窗体。
系统主界面运行图如下：
图3-2系统界面图
1.3.3、系统管理功能模块
该功能模块主要是进行操作员管理、密码修改、系统初始化、班级管理、单位信
息管理和退出。
其中,操作员管理包括新增、删除操作员和修改操作员的信息与
权限。
（1）操作员管理
bitbtn1、bitbtn2、groupbox1、groupbox2、groupbox3、adoconection1
等。
-7-
图3-3操作员管理图
主要代码如下：
procedureTOperatorForm.BitBtn2Click（Sender:
begin
procedureTOperatorForm.FormActivate（Sender:
RadioButton1.Checked:
initiate;
Edit1.SetFocus;
procedureTOperatorForm.Edit1Exit（Sender:
var
AdoDataset1:
TAdoDataSet;
ifedit1.text<
>
then
adodataset1:
=TAdoDataSet.Create（self）;
adodataset1.Connection:
adodataset1.Close;
adodataset1.CommandText:
adodataset1.Parameters.clear;
adodataset1.Parameters.AddParameter;
升级会员 