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=''
