thisform.pageframe1.page4.text7.value=''
thisform.pageframe1.page4.text8.value=''
thisform.pageframe1.page4.text1.setfocus
case nAnswer=7
endcase
inname=alltrim(thisform.pageframe1.page5.text1.value)
ingend=alltrim(thisform.pageframe1.page5.text2.value)
indate=alltrim(thisform.pageframe1.page5.text3.value)
indept=alltrim(thisform.pageframe1.page5.text4.value)
instat=alltrim(thisform.pageframe1.page5.text5.value)
indoct=alltrim(thisform.pageframe1.page5.text6.value)
inroom=alltrim(thisform.pageframe1.page5.text7.value)
inbedd=alltrim(thisform.pageframe1.page5.text8.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()
update patient set patient_gender=ingend,;
patient_date_start=indate,;
patient_dept=indept,;
patient_state=instat,;
patient_doc=indoct,;
patient_room=inroom,;
patient_bed=inbedd where patient_name=inname
messagebox("资料更新完毕",48,"操作成功")
else
messagebox("该药品名称不存在",48,"错误")
thisform.pageframe1.page5.text1.value=''
thisform.pageframe1.page5.text2.value=''
thisform.pageframe1.page5.text3.value=''
thisform.pageframe1.page5.text4.value=''
thisform.pageframe1.page5.text5.value=''
thisform.pageframe1.page5.text6.value=''
thisform.pageframe1.page5.text7.value=''
thisform.pageframe1.page5.text8.value=''
thisform.pageframe1.page5.text1
