图片附件: 游客没有浏览图片的权限,请
登录 或
注册
在插入按钮的下面。写了dw_1.ScrollToRow(dw_1.insertRow(0))
cb_insert.TriggerEvent(Clicked!)
在保存按妞下面写了: dw_1.accepttext()
if dw_1.modifiedcount() + dw_1.deletedcount() > 0 then
if dw_1.update()=1 then //如果修改成功
commit ; //提交事务
messagebox('提示','数据保存成功!')
else
rollback ; //回滚事务
messagebox('提示','数据保存错误。', stopsign!)
end if
else
messagebox('提示','数据没有修改过,没有必要保存!',stopsign!)
end if
在窗口的OPEN事件中写了:
dw_1.SetTransObject(SQLCA) //设置事务对象
dw_1.Retrieve() //检索数据
if Lower(gs_userid) <> 'tssa' then //不是超级用户
cb_insert.Enabled = False //不允许新建用户
cb_delete.Enabled = False //不允许删除用户
cb_pri.Enabled = False //不允许为用户分配权限
dw_1.SetFilter("userid='" + gs_userid + "'") //只显示当前用户。
dw_1.Filter()
end if
在数据窗口的 rowfocuschanged下写了:
this.SelectRow(0,False)
This.SelectRow(CurrentRow,True)
在数据窗口的 losefocus事件下写了:
this.accepttext()
当然。删除。权限。关闭按妞的代码就没有写上来了。