计算机应用 | 古代文学 | 市场营销 | 生命科学 | 交通物流 | 财务管理 | 历史学 | 毕业 | 哲学 | 政治 | 财税 | 经济 | 金融 | 审计 | 法学 | 护理学 | 国际经济与贸易
计算机软件 | 新闻传播 | 电子商务 | 土木工程 | 临床医学 | 旅游管理 | 建筑学 | 文学 | 化学 | 数学 | 物理 | 地理 | 理工 | 生命 | 文化 | 企业管理 | 电子信息工程
计算机网络 | 语言文学 | 信息安全 | 工程力学 | 工商管理 | 经济管理 | 计算机 | 机电 | 材料 | 医学 | 药学 | 会计 | 硕士 | 法律 | MBA
现当代文学 | 英美文学 | 通讯工程 | 网络工程 | 行政管理 | 公共管理 | 自动化 | 艺术 | 音乐 | 舞蹈 | 美术 | 本科 | 教育 | 英语 |

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

2013-07-02 01:03
导读:.setfocus endif case nAnswer=7 endcase inname=alltrim(thisform.pageframe1.page6.text1.value) cMessageTitle='管理系统' cMessageText='确定要删除吗?' nDialogType=4+32 nAnswer=messagebox(cMess
.setfocus 
           endif
  case nAnswer=7
 endcase


inname=alltrim(thisform.pageframe1.page6.text1.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()
           messagebox("该记录不存在",48,"错误")
         else
            thisform.pageframe1.page2.grdpatient.recordsource='' 
            use patient exclusive     
              delete from patient where patient_name = inname
              pack
               thisform.pageframe1.page2.grdpatient.recordsource='patient'
              thisform.pageframe1.page2.grdpatient.refresh
              messagebox("删除完毕",48,"操作成功")
           endif
  case nAnswer=7
 endcase
参考文献
1]Microsoft Corporation.Visual FoxPro6.0中文版程序员指南[M].北京希望电脑公司,1998.1.
[2]屈景辉,林永超等.Visual FoxPro程序设计教程[M].西安电子科技大学出版社,2000. (转载自http://zw.NSEaC.com科教作文网)
[3]刘瑞新.Visual FoxPro3.0使用教程[M].电子工业出版社,1998.

上一篇:免费vc++图书馆管理系统(一)毕业论文 下一篇:没有了