毕业设计用纸
图5-3 班级信息添加
保存信息代码如下：
??
select dept_id into :deptid from dept where dept_name=:dept;
if id=\ messagebox(\提示!\信息不全，请重新输入!\ return else int m
m=messagebox(\保存插入?\是否保存?\
if m=1 then
insert into class values (:id,:name,:dt,:deptid,:monitor,:assist,:number); messagebox(\信息\添加成功!\ dw_1.setTransObject(SQLCA) dw_1.retrieve() ??
5.2.3 教材采购模块
由教师指定需要购买的教材。此功能只能添加教师已指定的教材信息，将信息存入表buytext中，设计界面如下。
第 14 页 共23页
毕业设计用纸
图5-4 教材采购
主要代码如下：
??
if name=\Messagebox(\信息\请输入完整的信息!\end if int m
m=messagebox(\保存插入?\是否保存?\ if m=1 then
insert into buytext values
(:name,:edition,:publish,:author,:remarks); messagebox(\信息\添加成功!\?? else
messagebox(\信息\添加失败!\ end if
5.2.5 教材管理模块
该功能模块主要实现了对教材的入库，通过游标，逐条查询buytext表中的信息，当添加的信息在buytext表中存在时方可存入，否则会提示相应的信息对话框。设计界面如下。
第 15 页 共23页
毕业设计用纸
图5-5 新教材入库
主要代码如下：
??
select text_name into :tname1 from buytext
where text_edition=:edition and text_author=:author and text_publish=:publish; if trim(name)<>trim(tname1) then ??
if id=\or pubdate=\
messagebox(\提示!\信息不全，请重新输入!\ return else int m
m=messagebox(\保存插入?\是否保存?\ if m=1 then ??
messagebox(\提示!\该教材没有被教师采购!\return
end if ??
5.2.6 管理员管理模块
第 16 页 共23页
毕业设计用纸
系统管理中的管理员管理是最重要的部分，它涉及到系统的安全问题。关于此问题在本功能模块中的设计思想是：如果新用户需要注册，必须是在已有用户的登录状态下进行注册，当向数据库中插入新用户信息时，系统会检测原数据库中是否存在新用户信息，只有不存在时，