毕业设计用纸

图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页