按键精灵翻页代码怎么写？求大神指点_软件运维

FindPic fanyeX,fanyeY,fanye1X,fanye1Y,"Attachment:\3221.bmp",1,intX2,intY2

FindPic fanyeX,fanyeY,fanye1X,fanye1Y,"Attachment:\12.bmp",1,intX3,intY3

FindPic fanyeX,fanyeY,fanye1X,fanye1Y,"Attachment:\21.bmp",1,intX4,intY4

FindPic fanyeX,fanyeY,fanye1X,fanye1Y,"Attachment:\321.bmp",1,intX1,intY1

If intX1 > 0 And intY1 > 0 Then

Call shouye()

ElseIf intX2 > 0 And intY2 > 0 Then

Call xiayiye()

ElseIf intX3 > 0 And intY3 > 0 Then

Call xiayiye（）

ElseIf intX4 > 0 And intY4 > 0 Then

Call shouye()

Else

MessageBox "没有找到图片"

End If

完成。

*在屏幕的右下方显示当前记录在数据库的位置状态。

EXEC SQL SELECT COUNT(*) INTO

:RECORD-COUNT-PSENDMAP

FROM CVTIOPR

WHERE (TABLE_NO = :H-TABLE-NO

AND SEQ_NO >:H-SEQ-NO)

OR TABLE_NO >:H-TABLE-NO

END-EXEC.

EXEC CICS ENTER TRACEID(10) FROM(RECORD-COUNT-PSENDMAP)

END-EXEC.

IF(RECORD-COUNT-PSENDMAP <= 10)

MOVE '...底部' TO LOCATTRO

ELSE

MOVE '更多...' TO LOCATTRO

END-IF.

EXEC SQL OPEN CURSOR_PREPARE END-EXEC.

MOVE '_____' TO PRITBNOI.

PERFORM VARYING I FROM 1 BY 1

UNTIL I >10 OR SQLCODE = 1403

EXEC SQL FETCH CURSOR_PREPARE INTO

:H-TABLE-NO,

:H-SEQ-NO,

:H-TARGET-CODE,

:H-DESCRIPTION

END-EXEC

*对取到的数据记录逐项地显示在指定位置上。

MOVE SQLCODE TO SQLCODE-L

MOVE SQLCODE-L(5:5) TO SQLCODE-L

EXEC CICS ENTER TRACEID(23) FROM(SQLCODE-L) END-EXEC

EXEC CICS ENTER TRACEID(24) FROM(H-TABLE-NO) END-EXEC

EXEC CICS ENTER TRACEID(25) FROM(H-SEQ-NO) END-EXEC

EXEC CICS ENTER TRACEID(26) FROM(H-DESCRIPTION)

END-EXEC

EXEC CICS ENTER TRACEID(27) FROM(H-CONCAT-TBNO-SEQNO)

END-EXEC

IF(SQLCODE NOT = 1403)

MOVE '_' TO PRMOPT(I)

MOVE H-TABLE-NO TO PRMTBN(I)

MOVE DFHBMASF TO PRMTBNA(I)

MOVE H-SEQ-NO TO PRMSEQ(I)

MOVE DFHBMASF TO PRMSEQA(I)

MOVE H-TARGET-CODE TO PRMTGN(I)

MOVE DFHBMASF TO PRMTGNA(I)

MOVE H-DESCRIPTION TO PRMDSC(I)

MOVE DFHBMASF TO PRMDSCA(I)

ELSE

COMPUTE I = I - 1

END-IF

END-PERFORM.

*对于数据记录不满10行,未填写数据的记录区以空格代替。

PERFORM VARYING H FROM I BY 1

UNTIL H >10

MOVE SPACES TO PRMOPT(H)

MOVE SPACES TO PRMTBN(H)

MOVE SPACES TO PRMSEQ(H)

MOVE SPACES TO PRMTGN(H)

MOVE SPACES TO PRMDSC(H)

END-PERFORM.

*记录下当前数据记录的起始和结束位。

MOVE PRMTBN(1) TO COMM-CURR-FIRST-TABLE.

MOVE PRMSEQ(1) TO COMM-CURR-FIRST-SEQ.

IF(RECORD-COUNT-PSENDMAP >10)

MOVE H-TABLE-NO TO COMM-CURR-LAST-TABLE

MOVE H-SEQ-NO TO COMM-CURR-LAST-SEQ

END-IF.

*将第一行记录的数据编码显示在数据编码检索位置上。

MOVE PRMTBN(1) TO PRITBNOI.

EXEC SQL CLOSE CURSOR_PREPARE END-EXEC.

<%@LANGUAGE="VBSCRIPT" CODEPAGE="CP_ACP"%>

Dim Cnn, StrCnn

Set Cnn = Server.CreateObject("ADODB.Connection")

StrCnn = "driver={SQL server}server=127.0.0.1UID=saPWD=DATABASE=test"

Cnn.Open StrCnn

Dim rs,StrSQL

Set rs = server.CreateObject("ADODB.Recordset")

StrSQL = "select ID,Name,English_Name,case Sex when '0' then 'Male' else 'Female' end Sex,TelePhone_NO,"

StrSQL = StrSQL &"case Department_NO when '0' then 'BOI100' when '1' then 'B0R100' when '2' then 'B0R200' else 'B0R300' end Department_NO ,Hometown "

StrSQL = StrSQL &" from TBL_2006Member"

rs.Open StrSQL, Cnn,adopenstatic

<html>

<head>

<title>prdshow</title>

</head>

<body>

rs.pagesize=5

page=clng(request("page"))

if page<1 then page=1 end if

if page>rs.pagecount then page=rs.pagecount end if %>

<p>Aopen2006校招新人资料：</p><table width="75%" border="1">

<tr>

</tr>

rs.absolutepage=page

for ipage=1 to rs.pagesize

<tr>

</tr>

rs.movenext

if rs.eof then exit for

</table>

if page<>1 then

response.write "<a href=prdshow.asp?page=1>第一页</a>"

response.write "<a href=prdshow.asp?page="&(page-1) &">上一页</a>"

end if

if page<>rs.pagecount then

response.write "<a href=prdshow.asp?page=" &(page+1) &">下一页</a>"

response.write "<a href=prdshow.asp?page=" &rs.pagecount &">最后一页</a>"

end if

<form >

输入页面<select name="page">

<%i=1

do while i<rs.pagecount+1

i=i+1

loop%>

</select>

</form>

页次：<font color="blue"><%=page%>/<%=rs.pagecount%></font>

</p></div>

</body>

</html>

欢迎分享，转载请注明来源：内存溢出

原文地址: https://outofmemory.cn/yw/7948464.html

按键精灵翻页代码怎么写？求大神指点

发表评论

评论列表（0条）

按键精灵 翻页代码怎么写？求大神指点

发表评论

评论列表（0条）

按键精灵翻页代码怎么写？求大神指点