pb常用代码

最新推荐文章于 2019-09-30 11:01:36 发布

dgqnmz

最新推荐文章于 2019-09-30 11:01:36 发布

阅读量591

点赞数

CC 4.0 BY-SA版权

本文链接：https://blog.youkuaiyun.com/dgqnmz/article/details/17471885

本文介绍了一种使用DataWindow组件进行数据库交互的方法，包括窗口状态检查、数据更新提交、虚拟数据窗口创建及数据复制等操作。同时展示了通过SQL语句定制数据查询的过程。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

//------------------------------------窗口是否打开
isValid(w_main)
//------------------------------------update
if dw_1.update() >0 then
   COMMIT;
else
   ROLLBACK;
end if

Sleep(1000)

//-----------oldnew
string old,new
old=dw_1.describe("datawindow.table.select")
new=old +' where ztid = ' + "'" + string(ztid) + "'"
new = new + " and id='"+string(id)+"'"
dw_1.object.datawindow.table.select=new
if dw_1.retrieve() >0 then
end if
dw_1.object.datawindow.table.select=old
//--------------------------------------------
child_km2.settransobject(sqlca)
old=child_km2.describe("datawindow.table.select")
new='where jzdw = '+"'"+string(ztdw)+"'" +" and Length(id) ="+'7' + " and left(id,4)= " + "'"+string(id)+"'"+ "and year(nd) =" +"'" +string(nd) + "'"+ ' and xs =' + "'"+'y'+"'"
new=old+new
dw_1.object.km2.object.datawindow.table.select=new
if child_km2.retrieve() =0 then
dw_1.object.km2.object.datawindow.table.select=old
//--------------------------------------------------
cb_1.TriggerEvent(Clicked!)
//------------------------------------退出当次循环
Continue;
//传参数
OpenWithParm( w_tv, ls_Name + ',' + 'Z' )
ls_Name = Message.StringParm
CloseWithReturn( Parent, ls_Name )
//------------------------------------设置焦点
dw_2.setfocus()
dw_2.scrolltorow(i)
dw_2.setcolumn('rq')
//------------------------------------创建虚拟数据窗口
DataStore lds_dw
lds_dw = Create datastore
lds_dw.DataObject = 'd_kc'
lds_dw.SetTransObject( sqlca )
//------------------------------------copyrows
dw_1.RowsCopy( 1, dw_1.RowCount(), primary!,lds_dw, 1, primary! )

select count(*) into :row from companyinfo_jingjiren where gid=:qjgid;
declare yb_splb cursor for
select jjrname from companyinfo_jingjiren where   gid = :qjgid;
select jjrname into :row from companyinfo_jingjiren where gid=:qjgid;
open yb_splb;
for i = 1 to row
   fetch yb_splb into :mc;
   ddlb_12.additem(mc)
next
close yb_splb;
重画

dw_1.setredraw(true)