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

  1. 首頁 > 云知道 > >

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

云知道


################################################################################
# #
# 版本號: Ver 1.0 研制時間:2001.2.15 #
# #
################################################################################
globals
define winopened char(1)
define thrmenu array[4] of char(16)
define popmenu array[4,5] of char(14)
define hlpmenu array[4,5] of char(60)
define poprowno array[4] of smallint
define maxmenuno smallint
define menuno, currow, rstart smallint
define p_branch_no char(6)
define p_branch_name char(60)
define p_today char(13)
define p_clerk_code char(10)
define p_clerk_pass char(15)
end globals
main
options message line last,
comment line last-2,
error line last,
prompt line last-1,
form line first 1,
input wrap,
accept key interrupt
options delete key control-o
options insert key control-i
options next key control-n
options previous key control-p
options accept key control-z
defer interrupt
# set isolation to dirty read
# set lock mode to wait 5
# whenever error continue
# call startlog("err.log")

let p_branch_no = arg_val(1)
let p_clerk_code = arg_val(2)
let p_clerk_pass = arg_val(3)
call initmenu()
open window mtwin at 2,2 with 1 rows,78 columns attribute(border)
open window mswin at 5,2 with 18 rows,78 columns attribute(border)
while true
call dispmenu(0)
case menuno
when 1
case currow
when 1
when 2
when 3
when 4
when 5 exit while
end case
when 2
case currow
when 1
when 2
when 3
when 4
when 5 exit while
end case
when 3
case currow
when 1
when 2
when 3
when 4
when 5 exit while
end case
when 4
case currow
when 1
when 2
when 3
when 4
when 5 exit while
end case
end case
end while
close window popwin
close window mswin
close window mtwin
end main#####################################################
# 函數(shù)名稱: initmenu() #
# 作 用: 初始化菜單函數(shù) #
#####################################################
function initmenu()
define i smallint
let menuno = 1
let currow = 1
let rstart = 4
initialize thrmenu to null
initialize popmenu to null let maxmenuno = 4 let thrmenu[1] = " A.柜面處理模塊 "
let thrmenu[2] = " B.數(shù)據(jù)報表模塊 "
let thrmenu[3] = " C.參數(shù)維護(hù)模塊 "
let thrmenu[4] = " D.系統(tǒng)幫助模塊 "

let poprowno[1] = 5
let popmenu[1,1] = "1.原始數(shù)據(jù)維護(hù)"
let popmenu[1,2] = "2.日清日結(jié)處理"
let popmenu[1,3] = "3.傭金數(shù)據(jù)查詢"
let popmenu[1,4] = "4.綜合查詢處理"
let popmenu[1,5] = "E.退 出"let hlpmenu[1,1] = "對各機(jī)構(gòu)的原始數(shù)據(jù)進(jìn)行查詢、增、刪、改處理"
let hlpmenu[1,2] = "對各機(jī)構(gòu)錄入的數(shù)據(jù)進(jìn)行日清日潔處理"
let hlpmenu[1,3] = "對各機(jī)構(gòu)的業(yè)務(wù)員,部門進(jìn)行傭金統(tǒng)計處理"
let hlpmenu[1,4] = "對各機(jī)構(gòu)的數(shù)據(jù)進(jìn)行綜合查詢處理"
let hlpmenu[1,5] = "退出柜面處理系統(tǒng)"

let poprowno[2] = 5
let popmenu[2,1] = "1.傭金統(tǒng)計報表"
let popmenu[2,2] = "2.個人統(tǒng)計報表"
let popmenu[2,3] = "3.部門統(tǒng)計報表"
let popmenu[2,4] = "4.機(jī)構(gòu)統(tǒng)計報表"
let popmenu[2,5] = "E.退 出"let hlpmenu[2,1] = "對各機(jī)構(gòu)業(yè)務(wù)員的傭金信息進(jìn)行打印處理"
let hlpmenu[2,2] = "分機(jī)構(gòu)對業(yè)務(wù)員進(jìn)行綜合統(tǒng)計"
let hlpmenu[2,3] = "分機(jī)構(gòu)對部門進(jìn)行綜合統(tǒng)計"
let hlpmenu[2,4] = "分機(jī)構(gòu)進(jìn)行綜合統(tǒng)計"
let hlpmenu[2,5] = "退出柜面處理系統(tǒng)"let poprowno[3] = 5
let popmenu[3,1] = "1.機(jī)構(gòu)部門維護(hù)"
let popmenu[3,2] = "2.人員信息維護(hù)"
let popmenu[3,3] = "3.險種信息維護(hù)"
let popmenu[3,4] = "4.傭金參數(shù)維護(hù)"
let popmenu[3,5] = "E.退 出"

let hlpmenu[3,1] = "設(shè)定機(jī)構(gòu)、部門信息"
let hlpmenu[3,2] = "設(shè)業(yè)務(wù)員基本信息"
let hlpmenu[3,3] = "設(shè)定大類險種、明細(xì)險種及交費(fèi)方式信息"

推薦閱讀