仓酷云

标题: MSSQL编程：窗体静态效果的完成 [打印本页]

作者: 精灵巫婆 时间: 2015-1-16 22:30
标题: MSSQL编程：窗体静态效果的完成
如果WHERE子句的查询条件里使用比较操作符LIKE和REGEXP，MySQL只有在搜索模板的第一个字符不是通配符的情况下才能使用索引。比如说，如果查询条件是LIKEabc%‘，MySQL将使用索引；如果查询条件是LIKE%abc’，MySQL将不使用索引。静态
比来用pb做了一个触摸屏的程序，项目组请求窗口显现封闭的时分有点静态效果，因而我就写了以下的程序，供人人参考自创。

-------------------------------------------------------------------------------------
//完成封闭窗体时的静态效果
//---------------------------------------------------------
//函数名：gf_closequery
//参数申明:
//windowwindow范例,挪用窗口的名字
//closetypeinteger范例,窗口封闭体例,value=0~10
//---------------------------------------------------------
//声名部分变量
intli_x,li_y,li_width,li_height,li_ceny,li_cenx,li_xminusy,li_wminush
Integerli_gd

//掏出以后窗口的坐标值、巨细值
li_x=window.x
li_y=window.y
li_width=window.width
li_height=window.height

//设置窗体封闭前的动画效果
//关头是看哪一个值产生了变更――x、y、h、w
CHOOSECASEclosetype
CASE0//closetype=0,从下到上渐渐消散
forli_gd=li_heightto0step-1
window.height=li_gd
window.show()
next
CASE1//closetype=1,从上到下渐渐消散
forli_gd=li_ytoli_height+li_ystep1
window.y=li_gd
window.height=li_height+li_y-li_gd
window.show()
next
CASE2//closetype=2,从右到左渐渐消散
forli_gd=li_widthto0step-1
window.width=li_gd
next
CASE3//closetype=3,从左到右渐渐消散
forli_gd=li_xtoli_x+li_widthstep1
window.x=li_gd
window.width=li_x+li_width-li_gd
window.show()
next
case4//closetype=4,从高低向两头挤压渐渐消散
li_ceny=li_y+li_height/2
forli_gd=li_ytoli_cenystep1
window.y=li_gd
window.height=li_height-2*(li_gd-li_y)
next
case5//closetype=5,从摆布向两头挤压渐渐消散
li_cenx=li_x+li_width/2
forli_gd=li_xtoli_cenxstep1
window.x=li_gd
window.width=li_width-2*(li_gd-li_x)
next
case6//closetype=6,从左上->右下
forli_gd=li_ytoli_height+li_ystep1
window.y=li_gd
window.height=li_height+li_y-li_gd
ifwindow.x<li_x+li_widththen
window.x=li_x+(li_gd-li_y)
else
window.x=li_x+li_width
endif
ifwindow.width>0then
window.width=li_x+li_width-window.x
else
window.width=0
endif
next
window.x=li_x+li_width
window.y=li_height+li_y
window.width=0
window.height=0
window.show()
case7//closetype=7,从右下->左上
forli_gd=li_heightto0step-1
window.height=li_gd
ifwindow.width>0then
window.width=li_width-(li_height-li_gd)
else
window.width=0
endif
next
window.x=li_x
window.y=li_y
window.width=0
window.height=0
window.show()
case8//closetype=8,从右上->左下
forli_gd=li_ytoli_height+li_ystep1
window.y=li_gd
window.height=li_height+li_y-li_gd
ifwindow.width>0then
window.width=li_width-(li_gd-li_y)
else
window.width=0
endif
next
window.x=li_x
window.y=li_height+li_y
window.width=0
window.height=0
window.show()
case9//closetype=9,从左下->右上
forli_gd=li_xtoli_x+li_widthstep1
window.x=li_gd
window.width=li_width+li_x-li_gd
ifwindow.height>0then
window.height=li_height-(li_gd-li_x)
else
window.height=0
endif
next
window.x=li_x+li_width
window.y=li_y
window.width=0
window.height=0
window.show()
case10//closetype=10,从四周到两头
li_ceny=li_y+li_height/2
li_cenx=li_x+li_width/2
forli_gd=li_ytoli_cenystep1
window.y=li_gd
window.height=li_height-2*(li_gd-li_y)
ifwindow.x<li_x+li_cenxthen
window.x=li_x+(li_gd-li_y)
else
window.x=li_x+li_cenx
endif
ifwindow.width>0then
window.width=li_width-2*(li_gd-li_y)
else
window.width=0
endif
next
window.x=li_cenx
window.y=li_ceny
window.width=0
window.height=0
window.show()
caseelse
window.show()
window.width=li_width
window.height=li_height
window.x=li_x
window.y=li_y
ENDCHOOSE
return0
***********************************
//挪用该函数在窗体的closequery事务中
gf_closequery(w_main,mod(integer(string(now(),"ss")),11))
-------------------------------------------------------------------------------------
下面是封闭时的效果，窗体翻开时的静态效果的语句跟下面的差未几，在此就不写啦，假如有必要的能够告知我，我独自发送。感谢。
恢复到之前的某个状态，是需要数据的。这数据可以是a)回滚步骤或者b)操作之前的数据状态原文。

作者: 透明 时间: 2015-1-19 13:27
多走走一此相关论坛，多看一些实例开发，多交流0经验，没什么的，我也是刚学没多久!加油

作者: 乐观 时间: 2015-1-24 13:13
我们学到了什么？思考问题的时候从表的角度来思考问

作者: 爱飞 时间: 2015-2-1 15:31
同样会为索引视图等应用带来麻烦。看看行级和事务级的快照数据放在tempdb中，就能感觉到目前架构的尴尬。

作者: 小妖女 时间: 2015-2-7 07:12
至于淘汰的问题，只能说在你的项目周期之内，微软应该都不会倒闭。

作者: 山那边是海 时间: 2015-2-21 01:01
SP4是一个累积性的ServicePack，包含自以前的ServicePack发布以来所有的修补程序（包括MS03-031安全公告）。

作者: 小女巫 时间: 2015-3-6 19:30
连做梦都在想页面结构是怎么样的，绝非虚言

作者: 莫相离 时间: 2015-3-13 06:35
很多书籍啊，不过个人认为看书太慢，还不如自己学。多做实际的东西，就会遇到很多问题，网上搜下解决问题。不断重复这个过程，在配合sql的F1功能。

作者: 柔情似水 时间: 2015-3-20 15:19
可能有的朋友会抱怨集成的orderby，其实如果使用ranking函数,Orderby是少不了的。如果担心Orderby会影响效率，可以为orderby的字段建立聚集索引，查询计划会忽略orderby操作（因为本来就是排序的嘛）。

欢迎光临仓酷云 (http://ckuyun.com/)