数据窗口实践一

新建数据窗口d_1,d_2,d_3

制作界面m_1,m_2和主界面m_m

查询里添加如下代码：

m_1界面open中添加

界面二

主界面open添加如下代码：

上一条添加

integer rownumber

rownumber = dw_3.scrollpriorrow()

if rownumber= 1 then
 messagebox("警告","这是第一条记录了!")
end if

 

下一条添加

integer rownumber
integer rowcount

rowcount=dw_3.rowcount()

rownumber = dw_3.scrollnextrow()

if rownumber = rowcount then
 messagebox("提示","这是最后一条记录")
end if

 

添加

dw_3.setfocus()
dw_3.scrolltorow(dw_3.insertrow(0))

保存

if update(dw_3,true,false) = 1 then
 dw_3.resetupdate()
 commit;
 messagebox("成功","保存数据成功")
else
 rollback;
 messagebox("失败","保存数据失败")
end if

 

查询

string tp
tp= "select emp_id,manager_id,emp_fname,dept_id,street from employee"
dw_3.setsqlselect(tp)
dw_3.retrieve()

退出

close(m_2)

 

 

主菜单

查询1添加

open(m_1)

查询新增添加

open(m_2)