教材管理系统设计.docx
- 文档编号:1211842
- 上传时间:2022-10-19
- 格式:DOCX
- 页数:57
- 大小:176.30KB
教材管理系统设计.docx
《教材管理系统设计.docx》由会员分享,可在线阅读,更多相关《教材管理系统设计.docx(57页珍藏版)》请在冰豆网上搜索。
教材管理系统设计
教材管理系统设计
教材管理信息系统
1.1系统需求分析
学校每个学期都要购进大量的教材,然后发放给学生。
目前许多学校是以班
级为单位,统一向学生发放教材,然后收取书款。
学生每学期开学都需要购买教材。
目前,在我国大部分大、中、小学都是以班级为单位,统一向学校购买教材。
首先
学校根据每学期所开设的课程,向各书商或出版社购进课本,然后学生以班级为单位向学校领书交费。
这项工作现在在大部分学校还是手工操作,工作起来效率很低,并且不能及时了解教材库存和领取的具体情况。
同时由于不可避免的人为因
素,可能造成教材收费出错等情况。
针对这种情况,为了更好地适应当前学校管理
的需求,避免手工管理存在的这些弊端,开发了本教材管理系统。
学校通过使用本
系统,可以实现教材收费、领取的自动管理。
本系统主要包含4大功能,分别是教材的入库管理,学生的书费管理,系统管理以及综合查询。
本系统使用McrosoftAccess数据库作为后台的数据管理系统,利用ADO数据库组件连接后台数据库。
开发采用的是Delphi7,它是由Borland公司开发的Windows程序开发环境。
1.2系统总体设计
1.2.1系统层次模块设计
根据系统所要实现的功能要求,不同的用户具有不同的操作权限,本系统主要划分为用户登录功能模块、系统管理功能模块、书费管理功能模块、教材出入库管理
模块和综合功能查询模块。
系统模块图如图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教材出入库历史表
字段名称数据类型说明
id自动编号主键
教材名文本
出版社文本获奖情况文本出版年月日期/时间经办单位文本
经办人文本上期数量数字整型本次数量数字整型本期数量数字整型教材单位文本使用说明日期/时间入库时间日期/时间
说明文本
操作员文本最后修改时间日期/时间
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:
TObject);
var
-5-
Adodataset1:
TAdoDataset;
begin
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.AddParameter;
adodataset1.Parameters[1].name:
='password';
adodataset1.Parameters[1].DataType:
=ftstring;
Adodataset1.Parameters[1].Direction:
=pdinput;
adodataset1.Parameters[1].Value:
=edit2.text;
adodataset1.active:
=true;
ifadodataset1.Recordset.RecordCount=1then
begin
username:
=edit1.Text;
qx[1]:
=adodataset1.FieldByName('权限一').asboolean;
qx[2]:
=adodataset1.FieldByName('权限二').asboolean;
qx[3]:
=adodataset1.FieldByName('权限三').asboolean;
qx[4]:
=adodataset1.FieldByName('权限四').asboolean;
close;
end
else
begin
Application.MessageBox('您输入的用户名或密码错误,请检查!
','提示信
息',mb_ok);
i:
=i-1;
edit1.text:
='';
edit2.text:
='';
edit1.SetFocus;
end;
ifi=0then
begin
username:
='';
close;
end;
adodataset1.Active:
=false;
-6-
end;
procedureTCheckUserForm.FormActivate(Sender:
TObject);
begin
i:
=3;
edit1.text:
='';
edit2.Text:
='';
edit1.SetFocus;
end;
end.
1.3.2、系统主界面
通过单击相应的菜单项或者相应的工具条即可进入该功能管理。
单击“系统管理”菜单,将弹出如下图所示的下拉菜单,包括操作员管理工作、密码修改、系统初始化、班级管理、单位信息、退出6个子菜单。
单击相应子菜单将弹出对应的管理窗体。
系统主界面运行图如下:
图3-2系统界面图
1.3.3、系统管理功能模块
该功能模块主要是进行操作员管理、密码修改、系统初始化、班级管理、单位信
息管理和退出。
其中,操作员管理包括新增、删除操作员和修改操作员的信息与
权限。
(1)操作员管理
用到组件有:
bitbtn1、bitbtn2、groupbox1、groupbox2、groupbox3、adoconection1
等。
-7-
图3-3操作员管理图
主要代码如下:
procedureTOperatorForm.BitBtn2Click(Sender:
TObject);begin
close;
end;
procedureTOperatorForm.FormActivate(Sender:
TObject);begin
RadioButton1.Checked:
=true;
initiate;
Edit1.SetFocus;
end;
procedureTOperatorForm.Edit1Exit(Sender:
TObject);var
AdoDataset1:
TAdoDataSet;
begin
ifedit1.text<>''then
begin
adodataset1:
=TAdoDataSet.Create(self);
adodataset1.Connection:
=adoconnection1;
adodataset1.Close;
adodataset1.CommandType:
=cmdtext;
adodataset1.CommandText:
='select*from操作用户表where用户名
=:
username';
adodataset1.Parameters.clear;
adodataset1.Parameters.AddParameter;
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 教材 管理 系统 设计