数据传值

评价:
0
(0用户)

B定义结构体:S_YH_PARM

说明:dw_name(数据窗口名),columnname(列名)

通过数据窗口传递制作新增,修改,保存窗口

1.主窗口刷新代码:

dw_name.settransobject(sqlca)//连接数据库

dw_name.retrieve() //刷新数据窗口

2.主窗口新增按钮代码:

long il_row //定义行变量il_row

s_yh_parm yh_parm

yh_parm.busi=’add’

yh_parm.columnname=’0′

openwithparm(w_name,yh_parm)//打开新增窗口w_name

il_row=0//行变量赋值为0

dw_name.retrieve()//刷新数据窗口

3.主窗口数据显示代码:

long il_row//定义行变量il_row

if row=0 or dw_name.rowcount()<row then return//判断当前行数

dw_name.selectrow(0,false)

dw_name.selectrow(row,true)

il_row=row

4.新增主窗口代码:

s_yh_parm yh_pram

yh_parm=message.powerobjrctparm

dw_name.settransobject(sqlca)//连接数据库

if yh_parm.busi=’add’ then//判断是否为添加状态

dw_name.retrieve(”)//刷新数据窗口

dw_name.insertrow(1)//插入一行

else

dw_name.retrieve(yh_parm.columnname)

end if

5.新增窗口保存按钮代码:

sqlca.autocommit=false//设置数据提交方式为手动

dw_name.update()//更新数据窗口

if sqlca.sqlcode<>0 then //判断数据更新状态

rollback;//回滚数据

messagebox(‘系统提示’,’保存失败!’+sqlca.sqlerrtext)//提示数据保存失败

return//返回窗口

end if//结束

commit;//连接数据库

messagebox(‘系统提示’,‘保存成功!’+sqlca.sqlerrtext)//提示保存成功

dw_name.reset()//刷新数据窗口

dw_name.insertrow(1)//插入一行数据

本文出自:https://www.cnblogs.com/hanhande-cainiao/p/13260547.html

注册并通过认证的用户才可以进行评价!

admin:系统自动奖励,+10,