endif
case nAnswer=7
endcase
inname=alltrim(thisform.pageframe1.page6.text1.value)
cMessageTitle='管理系统'
cMessageText='确定要删除吗？'
nDialogType=4+32
nAnswer=messagebox(cMessageText,nDialogType,cMessageTitle)
do case
case nAnswer=6
set order to patient_na
seek inname
if !found()
messagebox("该记录不存在",48,"错误")
else
thisform.pageframe1.page2.grdpatient.recordsource=''
use patient exclusive
delete from patient where patient_name = inname
pack
thisform.pageframe1.page2.grdpatient.recordsource='patient'
thisform.pageframe1.page2.grdpatient.refresh
messagebox("删除完毕",48,"操作成功")
endif
case nAnswer=7
endcase
参考文献
1]Microsoft Corporation.Visual FoxPro6.0中文版程序员指南[M].北京希望电脑公司，1998.1.
[2]屈景辉,林永超等.Visual FoxPro程序设计教程[M].西安电子科技大学出版社,2000.
[3]刘瑞新.Visual FoxPro3.0使用教程[M].电子工业出版社,1998.
