教材管理系统设计文档格式.docx
- 文档编号:968423
- 上传时间:2023-04-29
- 格式:DOCX
- 页数:67
- 大小:221.95KB
教材管理系统设计文档格式.docx
《教材管理系统设计文档格式.docx》由会员分享,可在线阅读,更多相关《教材管理系统设计文档格式.docx(67页珍藏版)》请在冰点文库上搜索。
字段名称
数据类型
说明
用户名
文本
主键
密码
所在单位
权限一
是/否
权限二
权限三
权限四
操作员
最后修改时间
日期/时间
2、班级表
班级表用来保存班级的一些信息。
表1-2班级表
班级名
入学时间
所在院系
班长
班长联系电话
班主任
班主任联系电话
学费
货币
所学专业
班级人数
数字
整型
3、单位信息表
单位信息表用于存储进书单位的信息。
表2-3单位信息表
单位名
负责人
联系电话
书费
4、教材表
教材表用于存储教材的基本信息。
表1-4教材表
id
自动编号
教材名
出版社
作者
获奖情况
出版年月
订书单位
经办人
教材数量
教材单价
使用说明
入库时间
5、教材出入库历史表
教材出入库历史表用于教材购入和领出信息的存储。
1-5教材出入库历史表
经办单位
上期数量
本次数量
本期数量
教材单位
6、学生书费历史库
学生书费历史库表用于对学生订书领书的基本信息存储。
表1-6学生书费历史表
上期费用
本次费用
本期费用
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
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
begin
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;
end;
ifi=0then
adodataset1.Active:
=false;
procedureTCheckUserForm.FormActivate(Sender:
=3;
edit2.Text:
end.
1.3.2、系统主界面
通过单击相应的菜单项或者相应的工具条即可进入该功能管理。
单击“系统管理”菜单,将弹出如下图所示的下拉菜单,包括操作员管理工作、密码修改、系统初始化、班级管理、单位信息、退出6个子菜单。
单击相应子菜单将弹出对应的管理窗体。
系统主界面运行图如下:
图3-2系统界面图
1.3.3、系统管理功能模块
该功能模块主要是进行操作员管理、密码修改、系统初始化、班级管理、单位信息管理和退出。
其中,操作员管理包括新增、删除操作员和修改操作员的信息与权限。
(1)操作员管理
bitbtn1、bitbtn2、groupbox1、groupbox2、groupbox3、adoconection1等。
图3-3操作员管理图
主要代码如下:
procedureTOperatorForm.BitBtn2Click(Sender:
procedureTOperatorForm.FormActivate(Sender:
RadioButton1.Checked:
initiate;
Edit1.SetFocus;
procedureTOperatorForm.Edit1Exit(Sender:
AdoDataset1:
TAdoDataSet;
ifedit1.text<
>
then
adodataset1:
=TAdoDataSet.Create(self);
adodataset1.Connection:
adodataset1.Close;
adodataset1.CommandText:
adodataset1.Parameters.clear;
adodataset1.Parameters.AddParameter;
adodataset1.Parameters[0].Name:
adodataset1.Parameters[0].Direction:
ifradiobutton1.Checkedthen
application.MessageBox('
用户名重复,请重新输入!
=adodataset1.fieldbyname('
密码'
).asstring;
edit3.text:
所在单位'
edit4.text:
操作员'
maskedit1.text:
=datetostr(adodataset1.fieldbyname('
最后修改时间'
).asDatetime);
CheckBox1.Checked:
CheckBox2.Checked:
CheckBox3.Checked:
CheckBox4.Checked:
ifnotRadioButton1.Checkedthen
没有该用户名,请检查!
procedureTOperatorForm.RadioButton1Click(Sender:
procedureTOperatorForm.BitBtn1Click(Sender:
AdoQuery1:
TAdoQuery;
adoquery1:
=TAdoQuery.Create(self);
adoquery1.Connection:
adoquery1.close;
ifradiobutton2.Checkedthen
adoquery1.sql.Clear;
adoquery1.sql.add('
update操作用户表set密码=:
password,所在单位=:
units,权限一=:
qx1,权限二=:
qx2,权限三=:
qx3,权限四=:
qx4,操作员=:
operator,最后修改时间=:
lastdatewhere用户名=:
);
adoquery1.Parameters.Clear;
adoquery1.Parameters.AddParameter;
adoquery1.Parameters[0].name:
adoquery1.Parameters[0].DataType:
adoquery1.Parameters[0].Direction:
adoquery1.Parameters[0].Value:
adoquery1.Parameters[1].name:
units'
adoquery1.Parameters[1].DataType:
adoquery1.Parameters[1].Direction:
adoquery1.Parameters[1].Value:
=edit3.text;
adoquery1.Parameters[2].name:
qx1'
adoquery1.Parameters[2].DataType:
=ftboolean;
adoquery1.Parameters[2].Direction:
adoquery1.Parameters[2].Value:
=checkbox1.checked;
adoquery1.Parameters[3].name:
qx2'
adoquery1.Parameters[3].DataType:
adoquery1.Parameters[3].Direction:
adoquery1.Parameters[3].Value:
=checkbox2.checked;
adoquery1.Parameters[4].name:
qx3'
adoquery1.Parameters[4].DataType:
adoquery1.Parameters[4].Direction:
adoquery1.Parameters[4].Value:
=checkbox3.checked;
adoquery1.Parameters[5].name:
qx4'
adoquery1.Parameters[5].DataType:
adoquery1.Parameters[5].Direction:
adoquery1.Parameters[5].Value:
=checkbox4.checked;
adoquery1.Parameters[6].name:
operator'
adoquery1.Parameters[6].DataType:
adoquery1.Parameters[6].Direction:
adoquery1.Parameters[6].Value:
=edit4.text;
adoquery1.Parameters[7].name:
lastdate'
adoquery1.Parameters[7].DataType:
=ftdatetime;
adoquery1.Parameters[7].Direction:
adoquery1.Parameters[7].Value:
=StrToDate(maskedit1.text);
adoquery1.Parameters[8].name:
adoquery1.Parameters[8].DataType:
adoquery1.Parameters[8].Direction:
adoquery1.Parameters[8].Value:
adoquery1.ExecSQL;
elseif(radiobutton1.Checked)and(edit1.text<
)then
adoquery1.sql.clear;
insertinto操作用户表(用户名,密码,所在单位,权限一,权限二,权限三,权限四,操作员,最后修改时间)values(:
username,:
password,:
units,:
qx1,:
qx2,:
qx3,:
qx4,:
operator,:
lastdate)'
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 教材 管理 系统 设计