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)
4.6 系统初始化权限认证界面
open事件代码为 connect;
dw_1.settransobject(sqlca) dw_1.retrieve(1)
确认按钮的代码为 string querytj
querytj=\用户名\用户密码\
14
dw_1.setfilter(querytj) Filter(dw_1) dw_1.retrieve(1)
sle_1.text=string(dw_1.RowCount()) if dw_1.RowCount()=0 then
MessageBox(\警告\对不起,权限认证出现错误，请确认你是否为合法用户并重新检验!\else
open(wd_xtcshwindow) close(wd_systeminitwindow) end if
4.7 数据初始化界面
本部分的初始化代码为 connect using sqlca; dw_1.settransobject(sqlca) dw_1.update(); dw_1.retrieve() sle_1.text=''
15