教材管理系统设计.docVIP

教材管理信息系统 1.1系统需求分析 学校每个学期都要购进大量的教材,然后发放给学生。目前许多学校是以班级为单位,统一向学生发放教材,然后收取书款。学生每学期开学都需要购买教材。目前,在我国大部分大、中、小学都是以班级为单位,统一向学校购买教材。首先学校根据每学期所开设的课程,向各书商或出版社购进课本,然后学生以班级为单位向学校领书交费。这项工作现在在大部分学校还是手工操作,工作起来效率很低,并且不能及时了解教材库存和领取的具体情况。同时由于不可避免的人为因素,可能造成教材收费出错等情况。针对这种情况,为了更好地适应当前学校管理的需求,避免手工管理存在的这些弊端,开发了本教材管理系统。学校通过使用本系统,可以实现教材收费、领取的自动管理。本系统主要包含4大功能,分别是教材的入库管理,学生的书费管理,系统管理以及综合查询。本系统使用 Access数据库作为后台的数据管理系统,利用ADO数据库组件连接后台数据库。开发采用的是Delphi,它是由Borland公司开发的Windows程序开发环境。根据系统所要实现的功能要求,不同的用户具有不同的操作权限,本系统主要划分为用户登录功能模块、系统管理功能模块、书费管理功能模块、教材出入库管理模块和综合功能查询模块。系统模块图如图1所示。图 系统模块图下面分别对功能模块进行介绍。此模块主要用于实现登录用户的身份和权限认证。用户输入正确的密码后,系统根据用户所具有的权限,允许用户进行合法和操作。在该窗体上,输入正确的用户名和密码,将进入到教材管理系统中。但根据用户的权限不同,所提供的操作也不同。本系统具有4个功能模块,分别对应4种权限,管理权、收费权、出入库权和查询权。只有同时具有这4种权限,系统功能才完全开放,否则没有权限操作的菜单和工具条变成灰色,不可用。 3-1用户登陆图 用户登陆主要代码 （1）用户主要登陆模块代码（checkuser.pas） procedure TCheckUserForm.BitBtn2Click(Sender: TObject); begin Close; end; procedure TCheckUserForm.BitBtn1Click(Sender: TObject); var Adodataset1:TAdoDataset; begin AdoDataSet1:=TAdoDataset.Create(self); adoDataset1.Connection:=adoconnection1; adodataset1.CommandType:=cmdtext; Adodataset1.CommandText:=select * from 操作用户表 where 用户名=:username and 密码=: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; if adodataset1.Recordset.RecordCount=1 then begin username:=edit1.Text; qx[1]:=adodataset1.FieldByName(权限一).asboolean; qx[2]:=adodataset1.FieldByName(权限二).asboolean; qx[3]:=adodataset1.FieldByName(权限三).asboolean; qx[4]:=adodata