免费vc++医药管理系统+文档(五)

最新活动：微信集50个赞就可获取任意一篇钻石会员文档。详情见微信集赞换文档

免费vc++医药管理系统+文档(五) 2.value)
indept=alltrim(thisform.pageframe1.page1.text3.value)
indoct=alltrim(thisform.pageframe1.page1.text4.value)
inroom=alltrim(thisform.pageframe1.page1.text5.value)
select patient_name as 药品名称,;
patient_gender as 分类,;
patient_date_start as 入库时间,;
patient_dept as 剂型,;
patient_state as 英文名称,;
patient_doc as 单价,;
patient_room as 存量,;
patient_bed as 助记符;
from patient;
where patient_name=inname;
and patient_date_start=indate;
and patient_dept=indept;
and patient_doc=indoct;
and patient_room=inroom

inname=alltrim(thisform.pageframe1.page3.text1.value)
indate=alltrim(thisform.pageframe1.page3.text2.value)
indept=alltrim(thisform.pageframe1.page3.text3.value)
indoct=alltrim(thisform.pageframe1.page3.text4.value)
inroom=alltrim(thisform.pageframe1.page3.text5.value)
select patient_name as 药品名称,;
patient_gender as 分类,;
patient_date_start as 入库时间,;
patient_dept as 剂型,;
patient_state as 英文名称,;
patient_doc as 单价,;
patient_room as 存量,;
patient_bed as 助记符;
from patient;
where patient_name=inname;
and patient_date_start=indate;
and patient_dept=indept;
and patient_doc=indoct;
and patient_room=inroom;

inname=alltrim(thisform.pageframe1.page4.text1.value)
ingend=alltrim(thisform.pageframe1.page4.text2.value)
indate=alltrim(thisform.pageframe1.page4.text3.value)
indept=alltrim(thisform.pageframe1.page4.text4.value)
instat=alltrim(thisform.pageframe1.page4.text5.value)
indoct=alltrim(thisform.pageframe1.page4.text6.value)
inroom=alltrim(thisform.pageframe1.page4.text7.value)
inbedd=alltrim(thisform.pageframe1.page4.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()
          insert into patient values (inname,ingend,indate,indept,instat,indoct,inroom,inbedd)
          messagebox("添加完毕",48,"操作成功")
          else
          messagebox("药品名称重复",48,"错误")
          endif
          thisform.pageframe1.page4.text1.value=''
          thisform.pageframe1.page4.text2.value=''
          thisform.pageframe1.page4.text3.value=''
          thisform.pageframe1.page4.text4.value=''
          thisform.pageframe1.page4.text5.value=''

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

免费vc++医药管理系统+文档(五)由毕业论文网（www.huoyuandh.com）会员上传。