评价网 > 科教论文 > 工学毕业论文 > 计算机论文 > 正文

免费vc++医药管理系统+论文(一)毕业论文(6)

2013-07-02 01:03 ;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