| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1676 人关注过本帖
标题:大家看一下以下这段程序
只看楼主 加入收藏
zxw103556710
Rank: 1
等 级:新手上路
威 望:1
帖 子:43
专家分:0
注 册:2007-8-15
收藏
 问题点数:0 回复次数:0 
大家看一下以下这段程序

string ksname
ksname=profilestring("Sysini.ini","ks","ksname","")
integer li_bed_num,i
string ls_bed_no,ls_room_no
uo_bed u_bed
datastore ds_bed
if upperbound(u_bed_list[])>0 then
for i= 1 to upperbound(u_bed_list[])
closeuserobject(u_bed_list[i])
next
end if
dw_1.settransobject(sqlca)
dw_1.retrieve(ksname)
ds_bed=create datastore
ds_bed.dataobject='d_cwgl'
ds_bed.settransobject(sqlca)
ds_bed.setfilter("deptcode='"+ksname+"'")
li_bed_num=ds_bed.retrieve()
for i=1 to li_bed_num
ls_bed_no=ds_bed.getitemstring(i,'cwcode')
ls_room_no=ds_bed.getitemstring(i,'roomcode')
//MEssageBox("",ls_bed_no)
u_bed=create uo_bed
// u_bed.st_zhu_yuan_hao.text//0
u_bed.uf_init(ls_room_no,ls_bed_no,dw_1)
u_bed_list[i]=u_bed
next
setredraw(false)
long xpos=10,ypos=10

this.setredraw(false)
for i=1 to upperbound(u_bed_list)
if xpos+u_bed_list[i].width >this.width then
xpos=10
ypos=ypos+u_bed_list[i].height+10
else
xpos=10+u_bed_list[i].width
end if
this.openuserobject(u_bed_list[i],xpos,ypos)
u_bed_list[i].visible=true
u_bed_list[i].move(xpos,ypos)
u_bed_list[i].x=xpos
u_bed_list[i].y=ypos
xpos=xpos+u_bed_list[i].width+10
next
this.setredraw(true)

搜索更多相关主题的帖子: bed ksname string 
2007-10-07 08:17
快速回复:大家看一下以下这段程序
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.033021 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved