369.txt

this progarm is libruary degisn

保存（CMDSAVE）按纽的事件代码如下

LOCAL OK
OK=.T.
DO CASE


CASE EMPTY(ALLTRIM(THISFORM.PF.StuPage.txt学号.VALUE)
    MESSAGEBOX("学号不能为空"，48，"图书借阅管理系统")
    THISFORM.PF.StuPage.txt学号.SETFOCUS()
    OK=.F.
CASE EMPTY(ALLTRIM(THISFORM.PF.StuPage.txt姓名.VALUE)
    MESSAGEBOX("姓名不能为空"，48，"图书借阅管理系统")
    THISFORM.PF.StuPage.txt姓名.SETFOCUS()
    OK=.F.
CASE EMPTY(ALLTRIM(THISFORM.PF.StuPage.Cmb系别.VALUE)
    MESSAGEBOX("系别不能为空"，48，"图书借阅管理系统")
    THISFORM.PF.StuPage.Cmb系别.SETFOCUS()
    OK=.F.
CASE EMPTY(ALLTRIM(THISFORM.PF.StuPage.txt地址.VALUE)
    MESSAGEBOX("地址不能为空"，48，"图书借阅管理系统")
    THISFORM.PF.StuPage.txt地址.SETFOCUS()
    OK=.F.
CASE EMPTY(ALLTRIM(THISFORM.PF.StuPage.txt电话.VALUE)
    MESSAGEBOX("电话不能为空"，48，"图书借阅管理系统")
    THISFORM.PF.StuPage.txt电话.SETFOCUS()
    OK=.F.

ENDCASE
IF OK=.T.
    YN=MESSAGEBOX("确定保存"，4+32，"图书借阅管理系统")
    IF YN=6
        CanSave=TABLEUPDATE(.F.)
        IF CanSave=.F.
            MESSAGEBOX("学号错误"，48，"图书借阅管理系统")
            THISFORM.PF.StuPage.txt学号.SETFOCUS()
        ELSE
            MESSAGEBOX("保存成功"，64，"图书借阅管理系统")
            THISFORM,StuModeBrse()
            IF THISFORM.StuFM="cmod"
               GO THISFORM.StuOR
            ELSE
               THISFORM.PF.StuPage.txt学号.READONLY=.T.
            ENDIF
         ENDIF
         THISFORM。REFRESH()
     ENDIF 
ENDIF