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

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

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