日本免费全黄少妇一区二区三区-高清无码一区二区三区四区-欧美中文字幕日韩在线观看-国产福利诱惑在线网站-国产中文字幕一区在线-亚洲欧美精品日韩一区-久久国产精品国产精品国产-国产精久久久久久一区二区三区-欧美亚洲国产精品久久久久

  1. 首頁 > 云知道 > >

informix-4gl 7.2編寫的通用菜單函數(shù)( 二 )

云知道


let hlpmenu[3,4] = "設定各明細險種的傭金參數(shù)"
let hlpmenu[3,5] = "退出柜面處理系統(tǒng)"

let poprowno[4] = 5
let popmenu[4,1] = "1.系統(tǒng)版本信息"
let popmenu[4,2] = "2.系統(tǒng)開發(fā)環(huán)境"
let popmenu[4,3] = "3.系統(tǒng)操作指南"
let popmenu[4,4] = "4.信息反饋簡介"
let popmenu[4,5] = "E.退 出"let hlpmenu[4,1] = "顯示柜面處理系統(tǒng)的相關版本信息"
let hlpmenu[4,2] = "顯示柜面處理系統(tǒng)的開發(fā)及應用環(huán)境"
let hlpmenu[4,3] = "顯示柜面處理系統(tǒng)的各種操作指南"
let hlpmenu[4,4] = "顯示本系統(tǒng)的信息反饋方式或獲取相關資料"
let hlpmenu[4,5] = "退出柜面處理系統(tǒng)"let winopened = "N"
end function#####################################################
# 函數(shù)名稱: dispmenu() #
# 作 用: 顯示菜單函數(shù) #
# 參 數(shù): oper: = 0 顯示菜單和選擇 #
#####################################################
function dispmenu(oper)
define oper smallint
define i,j,k smallint
define answ char(1)
define cstart smallint
while true
current window is mtwin
let p_today = today using " mmm dd,yyyy "
#display p_today at 1,66 attribute(reverse,underline)
display "作者: 大夢 " at 1,66 attribute(reverse,underline)
for i = 1 to 4
let j = (i-1) * 161
display thrmenu[i] at 1,j
end for
let j = (menuno-1) * 161
display thrmenu[menuno] at 1,j attribute(reverse)
if currow <> 0 then
let cstart = (menuno-1)*163
let i = poprowno[menuno]1
if winopened = "N" then
open window popwin at rstart, cstart with i rows , 14 columns attribute (border,prompt line i)
let winopened = "Y"
else
current window is popwin
end if
for i = 1 to poprowno[menuno]
display popmenu[menuno,i] at i,1
end for
display popmenu[menuno,currow] at currow,1 attribute(reverse)

end if
if oper = 1 then
return
end if
while true
prompt " 請 選 擇：" for char answ
on key (up)
if currow = 1 then
display popmenu[menuno,currow] at currow,1
let currow = poprowno[menuno]
else
if currow <> 1 and currow <> 0 then
display popmenu[menuno,currow] at currow,1
let currow = currow - 1
end if
end if
display popmenu[menuno,currow] at currow,1 attribute(reverse)

on key (down)
if currow = poprowno[menuno] then
display popmenu[menuno,currow] at currow,1
let currow = 1
else
if currow <> poprowno[menuno] and currow <> 0 then
display popmenu[menuno,currow] at currow,1
let currow = currow1
end if
end if
display popmenu[menuno,currow] at currow,1 attribute(reverse)
on key (left)
if winopened = "Y" then
close window popwin
let winopened = "N"
end if
if menuno > 1 then
let menuno = menuno - 1
else
let menuno = maxmenuno
end if
if poprowno[menuno] <> 0 then
let currow = 1
else
let currow = 0
end if
exit whileon key (tab,right)
if winopened = "Y" then
close window popwin
let winopened = "N"
end if
if menuno < maxmenuno then
let menuno = menuno1
else
let menuno = 1
end if
if poprowno[menuno] <> 0 then
let currow = 1
else
let currow = 0
end if
exit while【informix-4gl 7.2編寫的通用菜單函數(shù)】on key (control-z,return)
return
end prompt
if answ matches "[Ee]" then
let currow = poprowno[menuno]
return
end if
case
when answ matches "[Aa]"
if winopened = "Y" then
close window popwin
let winopened = "N"
end if
let menuno = 1
exit while
when answ matches "[Bb]"
if winopened = "Y" then
close window popwin
let winopened = "N"
end if
let menuno = 2
exit while
when answ matches "[Cc]"
if winopened = "Y" then
close window popwin
let winopened = "N"
end if
let menuno = 3
exit while
when answ matches "[Dd]"
if winopened = "Y" then
close window popwin
let winopened = "N"

推薦閱讀