入库管理图片按钮的代码为：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
用户密码