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

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