来自「this program is libruary design .」· 代码 · 共 115 行

*以下代码使“移动记录工具栏“可用
THISFORM.PF.BookPage.Sjmr.ENABLED=.T.
*以下代码"..."按纽不可用
THISFORM.PF.BookPage.CmdRq.ENABLED=.F.
*以下代码控制“命令按纽工具栏”中按纽的状态
THISFORM.PF.BookPage.SjAbg.Cmdadd.ENABLED=.T.
THISFORM.PF.BookPage.SjAbg.Cmdmod.ENABLED=.T.
THISFORM.PF.BookPage.SjAbg.Cmddel.ENABLED=.T.
THISFORM.PF.BookPage.SjAbg.Cmdser.ENABLED=.T.
THISFORM.PF.BookPage.SjAbg.Cmdpri.ENABLED=.T.
THISFORM.PF.BookPage.SjAbg.Cmdsave.ENABLED=.F.
THISFORM.PF.BookPage.SjAbg.Cmdcancel.ENABLED=.F.
THISFORM.PF.BookPage.SjAbg.Cmdexit.ENABLED=.T.
*以下代码控制页面中与数绑定的控件中数据的可编辑状态
THISFORM.PF.BookPage.txt 图书编号.READONLY=.T.
THISFORM.PF.BookPage.txt 图书名称.READONLY=.T.
THISFORM.PF.BookPage.txt 图书类别.READONLY=.T.
THISFORM.PF.BookPage.txt 图书作者.READONLY=.T.
THISFORM.PF.BookPage.txt 购买日期.READONLY=.T.
THISFORM.PF.BookPage.txt 出版社.READONLY=.T.
THISFORM.PF.BookPage.txt 购买价格.READONLY=.T.
*以下代码用来控制表单中页面的可用状态
THISFORM.PF.StuPage.ENABLED=.T.
THIS.ENABLED=.T.

YN=MESSAGEBOX("确定取消",4+32,"系统消息"）
IF YN=6
  TABLEREVERT(.F.)
 IF THISFORM.StuFM="cadd"
    GO THISFORM.StuOR
  ENDIF
 THISFORM.StuModeBrse()
 THISFORM.PF.StuPage.txt学号.READONLY=.T.
  THISFORM.REFRESH()
  ENDIF
_________________________________________________
DbfName="StuDbf"
DO FORM PrintLX
__________________________________________________
YN=MESSAGEBOX("确定退出"，4+32，"图书借阅管理系统"）
 IF YN=6
    THISFORM.RELEASE()
    CLEAR EVENTS
   QUIT
 ENDIF
________________________________________________
StudentNO=ALLTRIM(THISFORM.PF.StuPage.txt学号.VALUE)
 DO FORM JyRec
_____________________________________________________
SELECT BOOK
SET FILTER TO
GO TOP
THISFORM.SjFM="cbrowse"
THISFORM.SjModeBrse()
THISFORM.REFRESH()
______________________________________________________
SELECT BOOK
 IF 是否借出=.F.
 THISFORM.PF.BookPage.LbIStatus.CAPTION="在馆中"
 ELSE
YN=MESSGGEBOX("确定删除"，4+32，"图书借阅管理系统")    && 确认对话框
IF YN=6                                                 &&如果确认  
   THISFORM.SjOR=RECNO()                               &&保存记录    
   IF THISFORM.PF.BookPage.LblSatus.CAPTION="借出中"  && 如果该图书不在库中     
   MESSAGEBOX("该图书尚未归还"，48，"图书借阅管理系统")  && 不能删除                                     
 ELSE                                                   &&如果在库中
 SELECT jyRec                                           && 对图书借阅记录表进行修改
SET EXACT ON                                            && 精确比较
GO TOP                                                  && 到数据表的顶部
DO WHILE NOT EOF()
IF  图书编号=ALLTRIM(THISFORM.PF.BookPage.txt图书编号.VALUE)          &&删除所有与要删除的图书有关的记录
 DELETE
 PACK
ENDIF
 SKIP
ENDDO
SELECT Book                     && 删除图书记录
GO THISFORM.SjOR
DELETE
PACK
MESSAGEBOX("删除成功"，64，"图书借阅管理系统 ")             &&"删除成功"对话框
SET EXACT OFF
THISFORM.REFRESH()
   ENDIF
ENDIF
————————————————————————————————————————————————
DO FORM BookSer


以下代码使“移动记录工具栏”不可用
THISFORM.PF.BookPage.Sjmr.ENABLED=.F.
*以下代码"..."按纽可用
THISFORM.PF.BookPage.CmdRq.ENABLED=.T.
*以下代码控制“命令按纽工具栏”中按纽的状态
THISFORM.PF.BookPage.SjAbg.Cmdadd.ENABLED=.F.
THISFORM.PF.BookPage.SjAbg.Cmdmod.ENABLED=.F.
THISFORM.PF.BookPage.SjAbg.Cmddel.ENABLED=.F.
THISFORM.PF.BookPage.SjAbg.Cmdser.ENABLED=.F.
THISFORM.PF.BookPage.SjAbg.Cmdpri.ENABLED=.F.
THISFORM.PF.BookPage.SjAbg.Cmdsave.ENABLED=.F.
THISFORM.PF.BookPage.SjAbg.Cmdcancel.ENABLED=.T.
THISFORM.PF.BookPage.SjAbg.Cmdexit.ENABLED=.T.
*以下代码控制页面中与数绑定的控件中数据的可编辑状态
THISFORM.PF.BookPage.txt 图书编号.READONLY=.T.
THISFORM.PF.BookPage.txt 图书名称.READONLY=.F.
THISFORM.PF.BookPage.txt 图书类别.READONLY=.F.
THISFORM.PF.BookPage.txt 图书作者.READONLY=.F.
THISFORM.PF.BookPage.txt 购买日期.READONLY=.F.
THISFORM.PF.BookPage.txt 出版社.READONLY=.F.
THISFORM.PF.BookPage.txt 购买价格.READONLY=.F.
*以下代码用来控制表单中页面的可用状态
THISFORM.PF.StuPage.ENABLED=.F.
THIS.ENABLED=.T.
________________________________________________________________________
PUBLIC StudentNO,StuTJ,BookTJ,DbfName