毕业设计用纸
图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页
毕业设计用纸
系统管理中的管理员管理是最重要的部分，它涉及到系统的安全问题。关于此问题在本功能模块中的设计思想是：如果新用户需要注册，必须是在已有用户的登录状态下进行注册，当向数据库中插入新用户信息时，系统会检测原数据库中是否存在新用户信息，只有不存在时，说明新用户可以注册，否则系统会弹出相应信息提示。具体方法如下。
管理员添加由当前已登录管理员操作，输入相应信息会将新管理员信息存入表users中,用户名为主键，通过游标，对已有用户名进行查询，如果当前数据库中没有此用户名信息，方可添加该管理员，设计界面如下。
图5-6 管理员添加
添加管理员的代码如下：
??
if pwd1 <> pwd2 then
messagebox(\提示\重复密码不正确，请重新输入!\ return end if int m
m=messagebox(\保存?\是否保存?\if m=1 then
??
messagebox(\信息\添加成功!\
else
messagebox(\信息\添加失败!\end if
5.3 本章小结
第 17 页 共23页