TC[5.0] 表格脚本模拟分页滚动

apq0001

这里使用的例子代码为最新TC5.0版本开发，下载地址页面连接为：http://121.40.16.104:84/

用到了标签控件的API：

标签设置颜色("标签0",#ff00ff,2) // 设置背景透明（0：设置文本颜色，1：设置背景颜色，2：设置背景为透明，此时颜色参数被忽略）

首先看看效果展示：




脚本代码如下：（复制的代码被消除了高亮，大家还是下载附件看源码比较醒目）

1. 
   
2. // 5个快捷标签
   
3. var nAllStaticIndex = 5
   
4. // 控制真实背景色的位置,其实设为1,表示custom1
   
5. var nBaseIndex = 1
   
6. // 指定标签滚动时背景的居中位置,一般为标签数量的一半居中,计算方式为: nAllStaticIndex / 2 + 1
   
7. var nMidIndex = 3
   
8. // 是否需要重新校准,默认0表示false
   
9. var isUpdate = 0
   
10. 
    
11. // 初始化标签
    
12. function initData( &nMyIndex, nAllIndex, strStaticName, nColor )
    
13.     // 设定默认颜色
    
14.     for(var i = 1; i <= nAllIndex; i++)
    
15.         staticsetcolor(""&strStaticName&i,0,2) // 设置透明色
    
16.         staticsettext(""&strStaticName&i,""&i)
    
17.     end
    
18.     staticsetcolor(""&strStaticName&1,nColor,1)
    
19.     // 初始化参数
    
20.     nMyIndex = 1
    
21. end
    
22. 
    
23. // 校准标签
    
24. function updateStatic( &nMyIndex, nAllIndex, strStaticName, strGridName )
    
25.     // 得到此时高亮背景标签代表的页数
    
26.     var nPage = staticgettext(""&strStaticName&nMyIndex)
    
27.     if(nMyIndex < nMidIndex)// 如果在左边
    
28.         // 这里校准左边
    
29.         // 如果最左边的标签页数 > 1 并且可以腾出间隔位置的话,
    
30.         // 则调整标签显示数字
    
31.         // 否则调整为 1 2 3 ...
    
32.         var nLeftSpace = nMidIndex - 1
    
33.         if(staticgettext(""&strStaticName&1) > 1 && staticgettext(""&strStaticName&1) - nLeftSpace > 0)
    
34.             for(var i = 1; i <= nAllIndex; i++)
    
35.                 if(i < nMidIndex)
    
36.                     var nData = nPage - (nMidIndex - i)
    
37.                     staticsettext(""&strStaticName&i,""&nData)
    
38.                 elseif(i == nMidIndex)
    
39.                     staticsettext(""&strStaticName&i,""&nPage)
    
40.                 else
    
41.                     var nData = nPage + (i - nMidIndex)
    
42.                     staticsettext(""&strStaticName&i,""&nData)
    
43.                 end
    
44.             end
    
45.             nMyIndex = nMidIndex
    
46.         else
    
47.             for(var i = 1; i <= nAllIndex; i++)
    
48.                 staticsettext(""&strStaticName&i,""&i)
    
49.             end
    
50.             nMyIndex = nAllIndex - nPage // 所有标签个数 - (当前背景标签代表的表格页面索引和第一页之间的差值)
    
51.         end
    
52.     else
    
53.         // 这里校准右边
    
54.         // 如果最右边的标签页数 ＋ nMidIndex <= 总分页数并且可以腾出间隔位置的话,
    
55.         // 则调整标签显示数字
    
56.         // 否则调整为 ...nAllindex - 1,nAllIndex
    
57.         var nRightSpace = nAllIndex - nMidIndex
    
58.         var nGridPages = gridgetallpagecount(""&strGridName)
    
59.         if(staticgettext(""&strStaticName&nAllIndex) < nGridPages && staticgettext(""&strStaticName&nAllIndex) + nRightSpace <= nGridPages)
    
60.             for(var i = 1; i <= nAllIndex; i++)
    
61.                 if(i < nMidIndex)
    
62.                     var nData = nPage - (nMidIndex - i)
    
63.                     staticsettext(""&strStaticName&i,""&nData)
    
64.                 elseif(i == nMidIndex)
    
65.                     staticsettext(""&strStaticName&i,""&nPage)
    
66.                 else
    
67.                     var nData = nPage + (i - nMidIndex)
    
68.                     staticsettext(""&strStaticName&i,""&nData)
    
69.                 end
    
70.             end
    
71.             nMyIndex = nMidIndex
    
72.         else
    
73.             for(var i = 1; i <= nAllIndex; i++)
    
74.                 staticsettext(""&strStaticName&i,""&(nGridPages - nAllIndex + i))
    
75.             end
    
76.             nMyIndex = nAllIndex - (nGridPages - nPage)
    
77.         end
    
78.     end
    
79.     // 将校准设为false
    
80.     isUpdate = 0
    
81. end
    
82. 
    
83. 
    
84. // 向前跳转
    
85. function goPrev( &nMyIndex, nAllIndex, strStaticName, strGridName, nColor )
    
86.     if(staticgettext(""&strStaticName&nMidIndex) < 1)
    
87.         return
    
88.     end
    
89.    
    
90.     // 显示表格分页数据
    
91.     gridshowprevpagedata("grid")
    
92.    
    
93.     // 显示表格序号跳转
    
94.     // 停止条件:真实位置处于最前 且 第一个标签 ＝ 页数1
    
95.     if(nMyIndex == 1 && staticgettext(""&strStaticName&nMyIndex) == 1)
    
96.         return
    
97.     end
    
98.    
    
99.     var nPrevControl = 0
    
100.    
     
101.     // 设定默认颜色
     
102.     for(var i = 1; i <= nAllIndex; i++)
     
103.         staticsetcolor(""&strStaticName&i,0,2) // 设置透明色
     
104.     end
     
105.    
     
106.     // 如果点击了自定义标签显示页面,则需要重新校准标签的数字和背景
     
107.     if(isUpdate)
     
108.         updateStatic( nMyIndex, nAllIndex, strStaticName, strGridName )
     
109.     end
     
110.    
     
111.     // 控制标签滚动
     
112.     if(staticgettext(""&strStaticName&1) > 1 && nMyIndex == nMidIndex)
     
113.         nPrevControl = 1
     
114.         for(var i = 1; i <= nAllIndex; i++)
     
115.             var m = staticgettext(""&strStaticName&i)
     
116.             staticsettext(""&strStaticName&i,""&(m-1))
     
117.         end
     
118.     end
     
119.    
     
120.    
     
121.     if(nMyIndex > nMidIndex || staticgettext(""&strStaticName&1)  == 1)
     
122.         if(!nPrevControl)
     
123.             nMyIndex--
     
124.         end
     
125.         
     
126.     end
     
127.    
     
128.     staticsetcolor(""&strStaticName&nMyIndex,nColor,1)
     
129. end
     
130. 
     
131. // 向后跳转
     
132. function goNext( &nMyIndex, nAllIndex, strStaticName, strGridName, nColor )
     
133.     if(staticgettext(""&strStaticName&nMidIndex) > gridgetallpagecount(""&strGridName))
     
134.         return
     
135.     end
     
136.    
     
137.     // 显示表格分页数据
     
138.     gridshownextpagedata("grid")
     
139.    
     
140.     // 停止滚动条件:真实位置已经到最后,且 最后一个标签 ＝ 表格所有页数
     
141.     if(nMyIndex == nAllIndex && staticgettext(""&strStaticName&nMyIndex) == gridgetallpagecount(""&strGridName))
     
142.         return
     
143.     end
     
144.    
     
145.     var nNextControl = 0
     
146.    
     
147.     // 设定默认颜色
     
148.     for(var i = 1; i <= nAllIndex; i++)
     
149.         staticsetcolor(""&strStaticName&i,0,2) // 设置透明色
     
150.     end
     
151.    
     
152.     // 如果点击了自定义标签显示页面,则需要重新校准标签的数字和背景
     
153.     if(isUpdate)
     
154.         updateStatic( nMyIndex, nAllIndex, strStaticName, strGridName )
     
155.     end
     
156.    
     
157.     // 控制标签滚动,如果最后一个标签 < 表格总分页,则对标签数字进行更新模拟滚动效果
     
158.     if(staticgettext(""&strStaticName&nAllIndex) < gridgetallpagecount(""&strGridName) && nMyIndex == nMidIndex)
     
159.         nNextControl = 1
     
160.         for(var i = 1; i <= nAllIndex; i++)
     
161.             var m = staticgettext(""&strStaticName&i)
     
162.             staticsettext(""&strStaticName&i,""&(m+1))
     
163.         end
     
164.     end
     
165.    
     
166.     // 如果真实位置 < 指定的居中位置则移动其背景色位置,或者最后一个标签已经超出表格分页
     
167.     if(nMyIndex < nMidIndex || staticgettext(""&strStaticName&nAllIndex) >= gridgetallpagecount("grid"))
     
168.         if(!nNextControl)
     
169.             nMyIndex++
     
170.         end
     
171.         
     
172.     end
     
173.    
     
174.     staticsetcolor(""&strStaticName&nMyIndex,nColor,1)
     
175. end
     
176. 
     
177. // 快捷标签跳转
     
178. function goCustom( nMyIndex, nAllIndex, strStaticName, strGridName, nColor )
     
179.     if(nMyIndex > gridgetallpagecount(""&strGridName) || nMyIndex < 1)
     
180.         return
     
181.     end
     
182.    
     
183.     // 设定默认颜色
     
184.     for(var i = 1; i <= nAllIndex; i++)
     
185.         staticsetcolor(""&strStaticName&i,0,2) // 设置透明显示
     
186.     end
     
187.     staticsetcolor(""&strStaticName&nMyIndex,nColor,1) // 取消透明显示
     
188.     gridshowcustompagedata(""&strGridName,staticgettext(""&strStaticName&nMyIndex)-1)
     
189.     nBaseIndex = nMyIndex
     
190.    
     
191.     // 需要校准
     
192.     isUpdate = 1
     
193. end
     
194. 
     
195. // 自选页面跳转
     
196. function goSkip( &nMyIndex, nAllIndex, strStaticName, strGridName, nColor )
     
197.     var nPage = staticgettext("custom"&nMyIndex) // 标签高亮背景对应的表格页号
     
198.     var nSkipPage = editgettext("editskip")        // 要跳转到的表格页号
     
199.    
     
200.     if(nSkipPage > nPage )
     
201.         // 向后跳转
     
202.         for(var i = 0; i < nSkipPage - nPage; i++)
     
203.             goNext(nBaseIndex,nAllStaticIndex,strStaticName,strGridName,nColor)
     
204.         end
     
205.     else
     
206.         // 向前跳转
     
207.         for(var i = 0; i < nPage - nSkipPage; i++)
     
208.             goPrev(nBaseIndex,nAllStaticIndex,strStaticName,strGridName,nColor)
     
209.         end
     
210.     end
     
211. end
     
212. 
     
213. 
     
214. // 填充数据
     
215. 功能 按钮0_点击()
     
216.     // 1 查询数据库表得到存储结果ret_arr
     
217.     var ret,ret_arr,err
     
218.     ret = sqlitesqlarray("rc:myTest","select * from emp",ret_arr)
     
219.     // 2 填充结果数据到表格
     
220.     gridfillarraydata("grid",ret_arr)
     
221.    
     
222.     initData(nBaseIndex,nAllStaticIndex,"custom",#ff0000)
     
223. 结束
     
224. 
     
225. // 设置分页显示
     
226. 功能 按钮1_点击()
     
227.     //这里添加你要执行的代码
     
228.     var nRow = editgettext("editrows")
     
229.     gridsetshowpagemode("grid",nRow)
     
230.    
     
231.     initData(nBaseIndex,nAllStaticIndex,"custom",#ff0000)
     
232. 结束
     
233. 
     
234. 
     
235. 
     
236. 
     
237. // 显示上一页数据
     
238. 功能 按钮2_点击()
     
239.     //这里添加你要执行的代码
     
240.    
     
241.     gridgetcurpageindex("grid")
     
242.    
     
243.     goPrev(nBaseIndex,nAllStaticIndex,"custom","grid",#ff0000)
     
244. 结束
     
245. 
     
246. 
     
247. 
     
248. // 显示下一页数据
     
249. 功能 按钮3_点击()
     
250.     //这里添加你要执行的代码
     
251.    
     
252.     gridgetcurpageindex("grid")
     
253.    
     
254.     goNext(nBaseIndex,nAllStaticIndex,"custom","grid",#ff0000)
     
255. 结束
     
256. 
     
257. 
     
258. // 退出分页显示
     
259. 功能 按钮8_点击()
     
260.     //这里添加你要执行的代码
     
261.     gridcancelshowpagemode("grid")
     
262.    
     
263.     initData(nBaseIndex,nAllStaticIndex,"custom",#ff0000)
     
264. 结束
     
265. 
     
266. 
     
267. 功能 custom1_点击()
     
268.     //这里添加你要执行的代码
     
269.     goCustom(1,nAllStaticIndex,"custom","grid",#ff0000)
     
270. 结束
     
271. 
     
272. 
     
273. 功能 custom2_点击()
     
274.     //这里添加你要执行的代码
     
275.     goCustom(2,nAllStaticIndex,"custom","grid",#ff0000)
     
276. 结束
     
277. 
     
278. 
     
279. 功能 custom3_点击()
     
280.     //这里添加你要执行的代码
     
281.     goCustom(3,nAllStaticIndex,"custom","grid",#ff0000)
     
282. 结束
     
283. 
     
284. 
     
285. 功能 custom4_点击()
     
286.     //这里添加你要执行的代码
     
287.     goCustom(4,nAllStaticIndex,"custom","grid",#ff0000)
     
288. 结束
     
289. 
     
290. 
     
291. 功能 custom5_点击()
     
292.     //这里添加你要执行的代码
     
293.     goCustom(5,nAllStaticIndex,"custom","grid",#ff0000)
     
294. 结束
     
295. 
     
296. 
     
297. 功能 按钮4_点击()
     
298.     //这里添加你要执行的代码
     
299.     goSkip(nBaseIndex,nAllStaticIndex,"custom","grid",#ff0000)
     
300. 结束
     

复制代码

脚本代码解析：

1. // 5个快捷标签
   
2. var nAllStaticIndex = 5
   
3. // 控制真实背景色的位置,其实设为1,表示custom1
   
4. var nBaseIndex = 1
   
5. // 指定标签滚动时背景的居中位置,一般为标签数量的一半居中,计算方式为: nAllStaticIndex / 2 + 1
   
6. var nMidIndex = 3
   
7. // 是否需要重新校准,默认0表示false
   
8. var isUpdate = 0

复制代码

1.定义 var nAllStaticIndex = 5  表示有5个快捷标签，点击可跳转到对应页面


2.var nBaseIndex = 1 表示跳转的当前页面的红色背景对应的标签，由于代码里面使用了 ""&strStaticName&nMyIndex 连接符形式拼接控件名称，所以这里的起始索引对应的是标签控件的名称，标签名称从“custom1”到“custom5”


3.var nMidIndex = 3 表示当表格分页数大于快捷标签数量时，分页滚动时标签的红色背景应处于居中位置，此时标签的数字发生变动而背景颜色位置不变，这个数字我本来是使用 nAllStaticIndex / 2 + 1 赋值的，但是脚本不支持动态变量赋值，所以这里需要手动计算，最好标签数量为奇数，这样就有居中的效果


4.var isUpdate = 0 是否需要重新校准，当分页数量大于快捷标签数量时，点击靠前或靠后的标签跳转页面后，再点击上页或者下页则对应的标签背景需要重新校准，所以需要一个变量进行控制


脚本自定义功能函数分析：


// 初始化标签
function initData( &nMyIndex, nAllIndex, strStaticName, nColor )

// 校准标签
function updateStatic( &nMyIndex, nAllIndex, strStaticName, strGridName )

// 向前跳转
function goPrev( &nMyIndex, nAllIndex, strStaticName, strGridName, nColor )

// 向后跳转
function goNext( &nMyIndex, nAllIndex, strStaticName, strGridName, nColor )

// 快捷标签跳转，对应点击标签后跳转
function goCustom( nMyIndex, nAllIndex, strStaticName, strGridName, nColor )

// 自选页面跳转，对应编辑框输入页面数字后跳转
function goSkip( &nMyIndex, nAllIndex, strStaticName, strGridName, nColor )

以上6个功能函数将表格的API和标签的数字/背景变化封装了一层，童鞋们也可以单独拆解实现自己想要的功能，这里介绍下参数的意义：

nMyIndex: 对应全局变量 nBaseIndex 表示真实的背景位置
nAllIndex: 对应全局变量nAllStaticIndex 表示标签总数
strStaticName：表示标签名称的数字之前的字符串，例如标签命名 custom1,则这里就是 "custom"，注意本实例里面的标签命名是很有规律的
strGridName：表示表格控件的名称
nColor ：表示标签背景颜色



实例附件： 表格模拟分页滚动效果.rar (1.61 MB, 下载次数: 669)

2015-4-29 10:56 上传

点击文件名下载附件

itcfan

{:soso_e179:}