新建 文本文档.txt

来自「学生信息管理系统」· 文本 代码 · 共 26 行

integer a,b
a=p_1.x
b=p_1.y
do until a<(w_huanying.width - 300)
	a++
p_1.draw(a,b)
loop
do until b<(this.height/2)
		b++
	p_1.draw(a,b)
loop
do until a>p_1.x
	a --
	p_1.draw(a,b)
loop
do until b>p_1.y
		b --
	   p_1.draw(a,b)
loop


tab_1.tabpage_3.dw_1.settransobject(sqlca)
tab_1.tabpage_3.dw_1.retrieve()
tab_1.tabpage_4.dw_2.settransobject(sqlca)
tab_1.tabpage_4.dw_2.retrieve()