用PB开发的图书库存管理系统程序报告(2)

入库管理图片按钮的代码为：open(wd_password) 出库管理图片按钮的代码为：open(wd_passtsck)

数据初始化图片按钮的代码为：open(wd_systeminitwindow) 权限维护图片按钮的代码为：open(wd_passwordmaintain)

4.2 入库管理权限认证界面该窗口如下图：

本部分的open事件代码为 connect;

dw_1.settransobject(sqlca) dw_1.retrieve(1)

本窗口的确认按钮的代码为： string querytj

querytj=\用户名\\dw_1.setfilter(querytj) Filter(dw_1) dw_1.retrieve(1)

sle_1.text=string(dw_1.RowCount()) if dw_1.RowCount()=0 then else

6

用户密码

MessageBox(\警告\对不起，权限认证出现错误，请确认你是否为合法用户并重

新检验!\

open(wd_tsrkglwindow) close(wd_password)

end if

4.3图书入库管理界面 4．

部分代码如下 open事件代码为

connect using sqlca; dw_1.settransobject(sqlca) dw_1.retrieve(1)

dw_2.settransobject(sqlca) dw_2.retrieve(1)

1。 增加记录按钮的代码为： long hh1

hh1=dw_1.GetRow()

dw_2.InsertRow(dw_2.rowcount()+1)

dw_2.object.data[dw_2.rowcount(),1]=dw_1.object.data[hh1,1] dw_2.object.data[dw_2.rowcount(),2]=dw_1.object.data[hh1,2] dw_2.scrolltorow(dw_2.rowcount()) 2． 删除记录按钮的代码为：

7

long hh integer Net

Net=MessageBox(\注意!\删除数据不可恢复!确实要删除吗?\IF Net=1 THEN

hh=dw_2.getrow() deleterow(dw_2,hh) //dw_2.retrieve(0)

MessageBox(\提示\数据未删除，仍可使用!\

Else end if

3．确认操作按钮的代码为： if update(dw_2,true,false)=1 then else

rollback;

messagebox(\警告\数据保存失败!\dw_2.resetupdate() commit; dw_2.retrieve(0)

end if

4.. 第一条记录图片按钮代码为： string setting dw_1.ScrollToRow(0)

setting=\图书编号=\dw_2.setfilter(setting) Filter(dw_2) dw_2.retrieve(1)

5．。前一条记录的图片按钮的代码为： string setting Integer hh

hh=dw_1.GetRow() IF hh=1 Then else

dw_1.ScrollPriorRow() hh=dw_1.GetRow()

setting=\图书编号=\dw_2.setfilter(setting) Filter(dw_2)

8

MessageBox(\注意!\目前已经是第一条交易记录，请作其他操作\

dw_2.retrieve(1)

end if

6．。下一条记录图片按钮的 代码为： string setting Integer hh

hh=dw_1.GetRow()

IF hh=dw_1.Rowcount() Then else

dw_1.ScrollNextRow() hh=dw_1.GetRow()

setting=\图书编号=\dw_2.setfilter(setting) Filter(dw_2) dw_2.retrieve(1)

MessageBox(\注意!\目前已经是最后一条交易记录，请作其他操作\

end if

7．。最后一条记录图片按钮的代码为： string setting Integer hh

dw_1.ScrollToRow(dw_1.RowCount()) hh=dw_1.GetRow()

setting=\图书编号=\dw_2.setfilter(setting) Filter(dw_2) dw_2.retrieve(1)

8．。执行查询按钮的代码为： string tj string setting Integer hh

tj=ddlb_1.Text+\dw_1.setfilter(tj) Filter(dw_1) dw_1.retrieve() hh=dw_1.GetRow()

setting=\图书编号=\书名=\dw_2.setfilter(setting) Filter(dw_2)

9

dw_2.retrieve(0) setting=\图书编号<>''\dw_1.setfilter(setting) Filter(dw_1)

4.4 图书出库管理权限认证窗口

窗口如下

窗口open事件代码为 connect;

dw_1.settransobject(sqlca) dw_1.retrieve(1)

确认按钮代码为：string querytj

querytj=\用户名\\dw_1.setfilter(querytj) Filter(dw_1) dw_1.retrieve(1)

sle_1.text=string(dw_1.RowCount())

10

用户密码