免费vc++医药管理系统+论文

;thisform.pageframe1.page4.text6.value=''
          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

首页上一页 3 4 5 6 7 下一页尾页 6/7/7

免费vc++医药管理系统+论文(六)