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

if dw_1.RowCount()=0 then else

open(wd_tsckglwindow) close(wd_passtsck)

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

end if

4.5 图书出库管理界面

本窗口的open事件代码为 connect using sqlca; dw_1.settransobject(sqlca) dw_1.retrieve(1)

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

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

11

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．删除记录按钮的代码为： 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

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

12

else

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

setting=\图书编号=\dw_2.setfilter(setting) Filter(dw_2) 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)

13

dw_1.retrieve() hh=dw_1.GetRow()

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