sle_2.text=''
1。确认增加按钮的代码为： int hh
dw_1.InsertRow(dw_1.rowcount()+1) dw_1.scrolltorow(dw_1.rowcount())
dw_1.object.data[dw_1.rowcount(),1]=sle_1.text dw_1.object.data[dw_1.rowcount(),1]=sle_2.text hh=dw_1.update()
if hh=dw_1.rowcount() then
commit; rollback; else end if
connect using sqlca; dw_1.settransobject(sqlca) dw_1.update(); dw_1.retrieve() sle_1.text='' sle_2.text=''
2．确认删除按钮的代码为： long hh integer Net
Net=MessageBox(\注意!\删除数据不可恢复！确实要删除吗？\IF NET=1 THEN
hh=dw_1.getrow() deleterow(dw_1,hh) //dw_1.retrieve(0)
MessageBox(\提示\数据未删除，仍可使用！\
Else end if
if update(dw_1,true,false)=1 then else
rollback;
messagebox(\警告\数据保存失败!\dw_1.resetupdate() commit; dw_1.retrieve(0)
end if
16
3．第一条记录按钮的代码为： int hh
dw_1.ScrollToRow(0) hh=dw_1.GetRow()
sle_1.text=dw_1.object.data[hh,1] sle_2.text=dw_1.object.data[hh,2] 4．前一条记录按钮的代码为： int hh
dw_1.ScrollPriorRow() hh=dw_1.GetRow()
sle_1.text=dw_1.object.data[hh,1] sle_2.text=dw_1.object.data[hh,2] 5．下一条记录按钮的代码为： int hh
dw_1.ScrollNextRow() hh=dw_1.GetRow()
sle_1.text=dw_1.object.data[hh,1] sle_2.text=dw_1.object.data[hh,2] 6．最后一条记录按钮的代码为： int hh
dw_1.ScrollToRow(dw_1.RowCount()) hh=dw_1.GetRow()
sle_1.text=dw_1.object.data[hh,1] sle_2.text=dw_1.object.data[hh,2]
17
4.8 权限维护界面
本窗口open事件代码为： connect using sqlca; dw_1.settransobject(sqlca) dw_1.retrieve(1)
1．修改密码选项按钮的代码为： st_2.text='请输入原密码' st_3.text='请输入新密码' cb_1.enabled=true cb_2.enabled=false cb_3.enabled=false
2．增加用户选项按钮的代码为： st_2.text='请输入新用户名称' st_3.text='请输入新用户密码' cb_1.enabled=false cb_2.enabled=true cb_3.enabled=false
3．删除用户选项按钮的代码为： st_2.text='请输入原用户名' st_3.text='请输入原用户密码' cb_1.enabled=false
18
cb_2.enabled=false cb_3.enabled=true
4．确认修改按钮的代码为： string querytj
querytj='用户密码='+\dw_1.setfilter(querytj) Filter(dw_1) dw_1.retrieve(1)
if dw_1.RowCount()=0 then
MessageBox(\警告\对不起,权限认证出现错误，请确认你是否为合法用户并重新querytj=\用户密码<>''\dw_1.Object.data[1,2]=sle_2.text dw_1.update()
querytj=\用户密码<>''\dw_1.setfilter(querytj) Filter(dw_1) dw_1.retrieve(1) 检验!\
end if
5．确认增加按钮的代码为： string querytj
querytj='用户密码='+\dw_1.setfilter(querytj) Filter(dw_1) dw_1.retrieve(1)
if dw_1.RowCount()<>0 then else
dw_1.InsertRow(0)
dw_1.Object.data[1,1]=sle_1.text dw_1.Object.data[1,2]=sle_2.text dw_1.update()
querytj=\用户密码<>''\
19
MessageBox(\警告\对不起,权限认证出现错误，请确认你是否为合法用户并重新querytj=\用户密码<>''\dw_1.setfilter(querytj) Filter(dw_1) dw_1.retrieve(1)
检验!\
dw_1.setfilter(querytj) Filter(dw_1) dw_1.retrieve(1)
end if
6．确认删除按钮的代码为： string querytj
querytj='用户密码='+\dw_1.setfilter(querytj) Filter(dw_1) dw_1.retrieve(1)
if dw_1.RowCount()=0 then else
dw_1.deleteRow(0) dw_1.update()
querytj=\用户密码<>''\dw_1.setfilter(querytj) Filter(dw_1) dw_1.retrieve(1)
MessageBox(\警告\对不起,不存在该用户,不能删除!\querytj=\用户密码<>''\dw_1.setfilter(querytj) Filter(dw_1) dw_1.retrieve(1)
end if
4.9工程的初始化代码为
open(splash)
SQLCA.DBMS=\SQLCA.AutoCommit=true
SQLCA.DBParm=\图书库存管理数据库1;UID=dba;PWD=sql'\CONNECT; CLOSE(splash) open(wd_mainwindow)
20
总结
在本次课程设计过程中，从系统需求分析出发，得出系统分析说明书。从概要设计到详细设计，最后到模块优化，最终完成了图书库存管理系统构建的全部过程，其间收获颇多。
通过这次课程设计，我不仅巩固了很多专业知识，也学会了很多应用软件的使用，同时在动手能力方面也有很大提高，可以说收益良多，如软件开发流程、数据库设计、PB8.0的应用、调试程序、软件测试等等。
通过这次设计，我深感自己知识的匮乏和经验的不足。这次设计充分锻炼了我独立思考问题和分析解决问题的能力，是我们由理论迈向实践的重要一步。
21