学生信息管理系统详细设计说明书(5)

f=thisform.pageframe1.学生管理.text6.value=允借天数

g=thisform.pageframe1.学生管理.text7.value=允借次数

N=MESSAGEBOX("是否确认删除？？？"+CHR(13)+CHR(13)+"单位编号： "+a+CHR(13)+"学号： "+b+chr(13)+"姓名： "+c+chr(13)+"办证日期： "+d+chr(13)+"有效期限： "+e;

+chr(13)+"允借天数： "+f+chr(13)+"允借次数： "+g,4+32+256,"学生管理")

*N=MESSAGEBOX("是否确认删除？？？"+CHR(13)+CHR(13)+单位编号： "+szh+chr(13)+"姓名： "+xm,4+32+256,"学生管理")

IF N=6

DELETE FROM xs WHERE 单位编号=a

ENDIF

SELECT * FROM xs INTO CURSOR XSTEMP WHERE NOT DELETED()

SELECT XSTEMP

GOTO TOP

THISFORM.PAGEFRAME1.学生管理.TEXT1.VALUE=单位编号

THISFORM.PAGEFRAME1.学生管理.TEXT2.VALUE=学号

THISFORM.PAGEFRAME1.学生管理.TEXT3.VALUE=姓名

THISFORM.PAGEFRAME1.学生管理.TEXT4.VALUE=办证日期

THISFORM.PAGEFRAME1.学生管理.TEXT5.VALUE=有效期限

THISFORM.PAGEFRAME1.学生管理.TEXT6.VALUE=允借天数

THISFORM.PAGEFRAME1.学生管理.TEXT7.VALUE=允借次数

浏览：

OPR=THISFORM.PAGEFRAME1.学生管理

IF THIS.CAPTION="浏览"

THIS.CAPTION="关闭浏览"

OPR.GRID1.VISIBLE=.T.

OPR.GRID1.COLUMNCOUNT=8