王者归来,重装上阵

Bill.Chou

# Program ID              : MAUFMIS.4GL
# ProGram_Compile    : maufmis oaufmis
# Calling Program       : remd001.4gl
# System                    :
# Author                     : Bill.Chou
# Date Written           :
# Description              :
# Amendment History : 22 MAY 00 (FOR LINUX USE)

globals "misglobal.4gl"


MAIN
        defer interrupt
        defer quit
        options
                input wrap,
                message        line last,
                prompt        line 1,
                error        line last,
                comment        line 2,
                help key        control-e,
                previous key        control-b,
                next        key        control-f,
                delete        key        control-y,
                insert        key        control-n

        call startlog("/usr/apps/chmis/mis_error.log"
        whenever error call uErrorHandle
        call uSystemInit()
        call mMaufMain()
        clear screen

END MAIN


function mMaufMain()
define        wMenuPtr, wChkRemd smallint, wPgmType char(1),
        wPgmID like mis_program.pgm_id
let wChkRemd = mChkReminder()

while true
        let rPgmRec.sPgmDesc = uGetCodeDesc("MU001"
        let rPgmRec.sPgmID   = "MENU001"
        call uDispMainWin()
        if not mMenuInit("MU001", wMenuPtr) then
                call mMenuExit()
                exit while
        end if

        if wChkRemd then
                if uConfirm("M0093" then
                        let wPgmID = "REMD001"
                end if
        else
                call mMenuGet() returning wMenuPtr, wPgmType, wPgmID
                if wPgmID = " " then
                        if uConfirm("M0035" then
                                let wPgmID = "EXITM"       
                        end if
                end if
        end if

        call mMenuExit()

        case wPgmID
          when "EXITM"
                exit while

          when " "
                exit case

          when "REMD001"
                call fRemdInit()
                call fRemdForm()
                call fRemdMenu(wChkRemd)
                call fRemdExit()

          when "MU801"
                call mRptMaint()

          when "MUACC"
                call mAcctMaint()

          when "MU999"
                call mSysUtil()

          otherwise
                call uLaunchSys(wPgmID)

        end case

        let wChkRemd = false
end while
end function


function mChkReminder()
define wExist smallint
select        count(*) into wExist from reminder
where        input_by = rUserRec.sUserID
and ( (month(rec_date) = month(TODAY  ) and day(rec_date) = day(TODAY  ))
or    (month(rec_date) = month(TODAY+1) and day(rec_date) = day(TODAY+1))
or    (month(rec_date) = month(TODAY+2) and day(rec_date) = day(TODAY+2)) )

if wExist >; 0 then
        return true
end if
return false
end function


{End of MIS Main Module}

Bill.Chou

呵~~呵~~，贴出来效果不好，缩进功能都不能了！
有空我做一个链接，提供下载！

sr1461069

就这么点代码 ？？？

Bill.Chou

[quote]原帖由 "sr1461069"]就这么点代码 ？？？[/quote 发表：

当然不是代码量有40M，只是没有地方可以上传，让大家共享4gl代码！
附系统主界面图

Bill.Chou

不过我要申明一点:在UNIX下的informix-4gl已经有一点过时了,所以我发出来让大家共享,不能商用！

amiescort

对于代码的部分，可以在发贴的时候选中代码的部分，再点击上方的code按钮，就可以让代码按照缩进方式呈现了。

感谢楼主的共享的精神！