医院进销存系统面向对象语言课程设计.pdf

山东変通学院面向对象语言课程设计医院药品进销存系统（院）系:信息工程系_专 业:信息类_班 级:信息083_姓 名:李志浩_学 号:080810314 指导教师:庞希愚时 间:9月14日至9月27日课程设计任务书题 目 医院药品进销存管理系统_系（部）_信息工程系_专 业_信息类_班 级_信息083_学生姓名_李志浩_学 号 _080810314_9 月_ 日至 9 月,27 日 共 2 周指导教师（签字）系主任（签字）2009 年 9 月 25日、设计目的学生根据所学的数据库原理与程序设计的知识,能够针对个小型的数据库管理 系统,进行系统的需求分析,系统设计,数据库设计,编码,测试等,完成题目要求 的功能,从而达到掌握开发的个小型数据库系统的目的。二、设计内容1.必须设计的数据表:药品分类代码表,药品库存表,供货商信息表,采购信息 表等。2.功能模块1）新药品的入库2）过期药品的出库登记,处理记录。3）药品库存检索4）供货商信息检索5）药品采购记录管理6）药品用药说明信息管理_ 7）输出相应的数据报表_三、设计完成后提交的文件1.课程设计报告（30005000字）,纸质打印稿及电子版1）需求分析（功能模块层次图）（2）系统设计（包括详细设计和界面设计）（3）代码设计（主要功能函数）（4）测试记录（测试各项功能的正确性、容错性）（5）课程设计总结2.系统程序演示。3.课程设计任务书。四、进度计划9 月 I4-15 日,熟悉 Visual C+6.0（创建基于 MFC APPWizardexe）,SQLSERVER2000,MFC ODBC数据库开发技术的环境。9月15-17日,学习MFC ODBC数据库的有关知识。9月18-21日,初步建立数据库,用MFC ODBC连接数据源。9月22-23日,完善数据库,初步写代码。9月23-26日,完成程序。五、主要参考资料1贺怀清.VISUAL C+程序设计及应用M,电子出版社出版2王珊.数据库系统简明教程川.北京:高等教育出版社成绩评定表口试（答辩）成绩报告成绩总评成绩摘要随着国家的政治经济政策的优化改革,使得国内中小企业得以蓬勃发展。可是随 着企业的发展,客户数量的的为断增多,财务工作繁杂化,库存产品零乱等系列问 题也接踵而至,给企业经营者运作带来了很大的困扰。信息技术的迅猛发展,科学经 营管理观念的迅速传播,使中小企业经营者逐渐认识到转变企业经营管理理念,改善 企业经营管理模式是企业适应时代的发展急需解决的问题。现代管理,应该建立在真 实、有效的数据信息基础之上,应该是种科学的、理性的管理体制,而这种管理与 经营的联系与互助,又必须依赖于计算机的强大的数据统计功能,计算机管理系统便 是实际的企业进销问题与计算机强大数据统计功能相结合的产物。管理系统解决的了 商业企业商品的进、销、存系列操作流程中的数据信息的处理问题,提供系列的 数据分析,帮助经营者合理的调整各个经营运作环节的运作节奏,并对商品流转过程 进行了全程跟踪管理、相应款项流通的全程记录管理和票据信息统计的管理。因此进 销存管理系统的全面应用,规范业务流程、提高了企业的管理水平,提高资金流动的 透明度,加快商品资金周转速度,进而全面提高了企业的经营水平、进而全面提升了 企业的经济效益。关键词:进销存;数据库;触发器;记录集抄録 使用、国政治経济政策、繁栄、国内中小企業改革最適化。、企業、金融業務、在庫管理問題障害、一連複 雑続、企業演算子多実行向上、顧客数開発。情報技術急速発展、科学的管理法 急速広、中小企業演算子変更経営実現、企業経営改良来企業問題解決必要 適応開発。近代的管理、効果的 管理操作、連絡先、相互扶助、彼強力、頼科学的合理的管理、統計関数必 要基必要、管理、販売事業本当問題、強力統計機能製品組合。商業企業商品輸入販売管理、処理問題、業務、一連分析範囲提供維持、操作合理的部分操作調整演算子支援、商品転送管理追跡、資金管理統計情報楽器流全 体対応管理。請求書発行管理、包括的、標準化企業管理向上、総合的企業管理向上、資本流、財資本冋転速 度上透明性向上、企業全体的経济効率向上。:請求書発行、目录1.课程设计概述.11.1.Visual C+6.0 概述.11.2.Visual C+6.0 运行环境.11.3.SQL server 2000 数据库概述.21.4.医药进销存管理系统系统概述.32.系统需求分析.33.总体设计.43.1.项目规划.43.2.系统结构功能.53.3.系统设计.53.3.1.数据库概要说明.5.3.3.2.数据库逻辑结构.6.4.功能模块设计.84.1.登陆框设计.84.2.主菜单模块设计.94.3.新药入库模块设计.104.4.过期药品出库模块设计.124.5.库存药品查询模块设计.144.6.采购商信息管理模块设计.174.7.药品采购信息查询模块设计.195.系统测试.236.设计体会.27刖 B随着计算机技术的发展,可视编程技术占有了越来越重要的作用。Visual C+6.0 是种功能强大行之有效的可视化编程工具。因此此软件是在Visual C+6.0环境下 编写的。对于我们,随着学习的深入,已经大体掌握了 Visual C+6.0环境下的程序 开发。为了将我们的编程能力提升到个更高的水平,深化面向对象的编程思维和解 决问题的能力,值此课程设计周期间,进行基于Visual C+6.0环境的软件开发,先 以字符统计软件作为开始,对Visual C+6.0环境和面向对象程序设计进行冋忆和熟 悉,使得在此基础上的下个课程设计的开发进行的更加顺利。本文档详细叙述了基于Visual C+6.0环境下的医院进销存系统软件的设计过程 以及程序源代码。本文档从概要设计,详细设计,参考源程序代码以及显示程序运行的截屏等方面 详尽的介绍了软件开发过程。此次医院进销存系统软件的开发目的学生根据所学的数据库原理与程序设计的 知识,能够针对个小型的数据库管理系统,进行系统的需求分析,系统设计,数据 库设计,编码,测试等,完成题目要求的功能,从而达到掌握开发的个小型数据库 系统的目的。本文档的安排如下:第一章 主要介绍了对面向对象C+语言以及Visual C+6.0编程环境。第二章 主要的介绍说明了药品进销存系统的编程思想和详细设计。第三章 主要对本软件进行调试,运行程序并截图,显示运行界面和结果。第四章 主要介绍了软件开发过程中遇到的些问题,对该软件进行的个总结。程序在设计的过程中遇到的问题已及时更正,但由于编者的能力和水平有限,字 符统计软件和文档中不免会出现些不期待的错误,望文档读者能够理解和体谅,并 欢迎提醒和纠正,在此表示感谢以及敬意。山东交通学院课程设计报告1.课程设计概述1.1.Visual C+6.0 概述Visual C+是微软公司的重要产品之一,是一种功能强大行之有效的可视化编程工具。它提供了 MFC类库,使用户可以方便的开发自己想实现的功能。Visual C+6.0的主要特点:(1)白动化和宏功能。(2)可以灵活地定制工具栏和菜单。(3)可以直接运行和调试程序,还可以使用宏语言来自动操作调试器。(4)支持Internet连接。(5)个新的便捷的项目系统可以允许个工作区内包含多个不同的项目类型。(6)在工作区内可以包含多个并列的工程文件。(7)可以在对话框中使用 WizardBar将程序同可视化元素联系起来。(8)Find in File命令支持两个独立的输出窗格,可以保存上一次搜索的结果。这些新特性可以更好地利用Visual C+开发工具进行Windows应用程序开发。1.2.Visual C+6.0 运行环境g Mi.XMD SAID XW XJKD BOttO侖M3 曹聃;Mj-3-a-z、-T?fi就Bh中好在文仟2中皿星果、珞1mz/.I I1图1-2 Visual C+6.0运行环境-1信息083李志浩 0808103141.3.SQL server 2000 数据库概述SQL Server是种关系型数据库系统,SQL Server 2000是在SQL Server 7.0 的基础上扩展升级的产品。该版本不仅继承了 SQL Server 7.0版本的稳定性、便 于管理和易于开发等优点。同时又比它增加了许多更先进的功能,具有可伸缩性好 与相关软件集成程度高等优点,可跨越多种平台使用。SQL Server 2000已成为目 前广为使用的数据库管理系统。SQL Server 2000的特性表现在以下4方面:1.Internet集成。SQL Server 2000数据库引擎提供完整的XML支持,允许用户使用内置的存储过程以XML格式轻松存储和检索数据。用户还可以使用XML 轻松地插入、更新和删除程序。SQL Server 2000程序设计模型与Windows DNA构 架集成,可用来开发Web应用程序。利用SQL Server 2000的English Query和 Microsoft搜索服务等功能,可在Web应用程序中实现用户友好的查询和强大的搜 索功能。2.可伸缩性和可用性。同一个数据库引擎实例可以在不同的平台上使用,从运 行 Microsoft Windows 98 的便携式电脑,到运行 Microsoft Windows 2000 的大 型多处理器服务器。SQL Server 2000企业版支持索引视图和联合服务器等功能,使其得以升级到最大Web站点所需的性能级别。3,企业级数据库功能。SQL Server 2000数据库引擎支持当今苛刻的数据处理 环境所需的功能。数据库引擎将管理上千个并发修改数据库的用户的开销减到最 小,同时,充分保护数据完整性。SQL Server 2000分布式查询使您得以象引用SQL Server 2000数据库本身的数据那样引用来自不同数据源的数据,同时分布式事务 支持充分保护任何分布式数据更新的完整性。复制不仅能使您得以维护多个数据复 本,同时还可确保单独的数据复本保持同步。4.易于安装、部署和使用。SQL Server 2000中包括一系列管理和开发工具,这些工具可简化在多个站点上安装、部署、管理和使用 SQL Server的过程。基于标准的、与Windows DNA集成的程序设计模型得到了 SQL Server 2000很好的支 持,使SQL Server数据库和数据仓库的使用成为生成强大的可伸缩系统的无缝部 分。SQL Server 2000所提供的功能使SQL Server应用程序可以快速交付,并且 客户只需最少的安装和管理开销即可实现这些应用程序。-2-山东交通学院课程设计报告1.4.医药进销存管理系统系统概述系统主要为登陆,登陆后可以浏览,查询,添加,删除药品信息外还可以对销售记 录进行浏览,删除,添加,修改。本系统是根据中小企业的实际需求而开发的,完全能 够实现药品入库、销售管理,通过本系统可以达到以下目标:系统运行稳定,安全可靠。界而设计美观,人机交互界面友好。信息查询灵活、方 便、快捷、准确,数据存储安全可靠。强大的报表预览、打印功能。信息安全保密。本 系统可以基本满足中小企业的需求,简单易操作2.系统需求分析企业经营如逆水行舟不进则退。每个努力发展的企业都明白,先进管理的重要作 用,引进先进管理系统使企业经营变得规范、合理。进销存管理系统无论是在功能设计 还是业务流程上都尽可能做到满足经营管理运作流程的需求,并且操作方便、功能强大,即使操作者对计算机知识窍不通也能一用就会。它强化库存管理,规范业务流程,提 高资金管理的透明度,加快商品资金周转,是企业经营管理中数据分析中必不可少的管 理工具。根据市场的需求,要求系统具有以下功能:1）新药品的入库。2）过期药品的出库登记、处理记录。3）药品库存检索。4）供货商信息检索。5）药品采购记录管理。6）药品用药说明信息管理。7）输出相应的数据报表。系统主要为登陆,登陆后可以浏览,查询,添加,删除药品信息外还可以对销售记 录进行浏览,删除,添加,修改。本系统是根据中小企业的实际需求而开发的,完全能 够实现药品入库、销售管理,通过本系统可以达到以下目标:系统运行稳定,安全可靠。界面设计美观,人机交互界面友好。信息查询灵活、方便、快捷、准确,数据存储安全可靠。强大的报表预览、打印功能。信息安全保密。-3-信息083李志浩 080810314开发及运行环境硬件要求CPU：300MHz以上的处理器内存:128MB,推荐256MB硬盘：150MB以上剩余空间显示像素:最低800*600,最佳效果1024*768软件要求操作系统:Windows2000/NT/XP/Vista。数据库：SQL Server2000o3.总体设计3.1.项目规划根据需求分析,设计系统框架。进销存系统由部分组成。设计各部分具体功能如 下:1）药品信息模块。包括药品代码,名称,分类等。2）供货商信息模块。包括供货商代码,供货商名,地址,联系电话。3）库存模块。包括药品名称,药品代码,库存量,处理日期。4）采购信息模块。包括药品代码,采购量,采购日期,采购总价,主治症状。5）过期药品处理模块。包括药品代码,处理量,过期时间。6）用户密码模块。包括用户名,密码。-4-山东交通学院课程设计报告3.2.系统结构功能医院药品进销存系统用户密码药品 新药信息 登记录入药品 信息添加药品 信息查询库存药品 采购采购供货处理查询 信息 信息录入 商查记录过期 商修处理1 L供货 商删 除图2.1系统结构功能图3.3.系统设计3.3.1.数据库概要说明本系统采用SQL Server 2000数据库,系统数据库名为医院药品进销存系统,中共 包含28个表,其中作为临时表的有20个,作为数据存储表的有8个。下图所示的即为本系统中数据库的数据表结构图,该数据表结构图包含系统所有数 据表。可以清晰地反应数据库信息。-5-信息083李志浩 080810314控制台粮目录)写 Microsoft SQL Servers 日SQL Server坦名称所有舍类期MB斯口却信一dbo用户2009/W17 13X)4:12 Jt(local)(Windows NT)数福宝 hospittal t tj|master口药品招曾记录表dbo用户2009/9A7 9:50:38口药品肝在表dbo用户2009/9/23 12:13:18口药品分堂代码表dbo用户2009/9/15 8:55:25t Q|model日药品岀麻表dbo用户2009/9/20 139:111 0 msdb日用户贵日裏dbo用户2009/9/17 8:59:54 Northwind口供賃期信息表dbo用户2009/9/2112:24:01 pubsESsysusersdboM2000/8/6 1:29:121 U tempdbQsystypesdbo羣统2000/8/6 1:29:12卜日testt3$y$referencesdboSM2000/8/6 1:29:12 yaopincharvdao日 sysprotectsdbo聚蟒2000/8/6 1:29:12若美聚85口?yspropertiesdbo2000/8/6 1:29:12表包？yspermissionsdbo墓统2000/8/6 1:29:12而视圉Ssysobjectsdbo系烧2000/8/6 1:29:12 sysmembersdbo蒙娩2000/8/6 1:29:12IC用户日 sysindexkeysdbo系桃2000/8/6 1:29:12国角色Q sysindexesdbo系統2000/8/6 1:29:12鹹口 sysfulltextnotifydbo系琉2000/8/6 1:29:12二默认3 sysfulttextcatalogsdbo系統2000/8/6 129:12G用户定5蜘厚3 sysforeignkeysdbo素焼2000/8/6 1:29:12a用户定义的商tl a 幽 g QCJsysfllesldbo系统2000/8/6 1:29:12_J苣連r 1台制E3 sysfllesdbo系统2000/8/6 1:29:1235ysfllegroupSdbo茶烧2000/8/6 1:29:12 11C3 sysdependsdbo黎婉2000/8/6 1:29:12 J0cH8C3 syscommentsdbo系娩2000/8/6 1:29:12二 Meta Data ServicesQsyscolumnsdbo聚銃2000/8/6 1:29:12l-1/4trvr/oxrtiocinno/onRHlSSSaMli M些.9rife 4B9K9图2.2数据表结构图3.3.2.数据库逻辑结构3.3.2.1,原始表设计:表2.1药品分类代码表字段中文名字段名类型长度类别leibiechar10药品代码yaodaimachar10药品名称yaomingchar30表2.2供货商信息表:字段中文名字段名类型长度供货商代码shangdaimachar10供货商名称shangmingchar40供货商地址addresschar50-6-山东交通学院课程设计报告供货商电话phonechar20表2.3药品库存表:字段中文名字段名类型长度药品名称yaomingchar30药品代码yaodaimachar10库存数量kucunliangfloat8药品信息yaoxinxivarchar50生产日期shengchanriqidatetime8有效期至youxiaoqizhidatetime8表2.4采购信息表:字段中文名字段名类型长度药品代码yaodaimachar10供货商代码shangdaimachar10采购数量caigouliangfloat8采购总价czongfloat8表2.5过期药品处理表字段中文名字段名类型长度药品代码yaodaimachar10处理数量chuliliangfloat8处理日期chuliriqidatetime8处理方法chulifavarchar50生产日期shenchanriqidatetime8表2.6用户密码表字段中文名字段名类型长度用户yonghuchar30密码mimachar10-7-信息083李志浩 0808103144.功能模块设计4.1.登陆框设计图3.1登陆界面登录按钮的代码:UpdateData(true);mimaset set;set.m_strFilter.Format id=%s,m_id);set.m_mima.TrimRight();set.0pen();if(m_id.IsEmpty()MessageBoxC 用户名不能为空!,提示,MB_ICONSTOP);return;)if(m_mima.IsEmpty()MessageBox(密码不能为空!,“提示,MB_ICONSTOP);return;)if(!set.IsEOFO)set.m_id.TrimRight();set.m_mima.TrimRight();if(set.m_mima=m_mima)-8-山东交通学院课程设计报告menu Dig;Dig.DoModal();elseMessageBox 密码错误!J 提示,MB_IC0NST0P);)elseMessageBox C 用户名不正确!,提示,MB_IC0NST0P);4.2.主菜单模块设计仓库信息 采购信息新购药品入库-采购商信息管理迪赠品出库药品釆购袋库存葯品査询打朝赚I 退出图3.2功能选择窗口子菜单选择按钮代码:shuru Dig;Dig.DoModal();其余按钮代码相同-9-信息083李志浩 0808103144.3.新药入库模块设计图3.3供货商信息查询窗口新药注册按钮的代码;UpdateData(TRUE);if(m_id.IsEmpty()MessageBox(药品代码不能为空!1提示,MB_ICONSTOP);shuruset set;set.m_strFilter.Format(id=%s,m_id);set.0pen();if(set.IsEOFO)set.AddNewO;set.m_id=m_id;set.m_name=m_name;set.m_zongjia=m_zongjia;set.m_shuliang=m_shuliang;set.m_zhengzhuang=m_zhengzhuang;set.m_chulishi jian=m_time;set.Update();m_list.Insertitem(0,set.m_id);m_list.SetltemText(0,1,set.m_name);-io-山东交通学院课程设计报告SetltemText(0,2,set.m_zongjia);m_list.SetltemText(0,3,set.m_shuliang);m_list.SetltemText(0,4,set.m_zhengzhuang);CString strTmp;strTmp.Format(d-%d-%d,set.m_chulishijian.GetYear(),set.m_chulishijian.GetMo nth(),set.m_chulishi jian.GetDay();m_list.SetltemText(0,5,strTmp);)elseMessageBox(此药品已存在!”提示,MB_IC0NST0P);set.Close();)新药录入复选框的代码:UpdateData(true);GetDlgItem(IDC_EDIT2)-EnableWindow(m_bEnabled);GetDlgltern(IDC_EDIT4)-EnableWindow(m_bEnabled);GetDlgltern(IDC_EDIT5)-EnableWindow(m_bEnabled);新药入库按钮代码:UpdateData(TRUE);if(m_id.IsEmpty()MessageBox(药品代码不能为空!,“提示,MB_IC0NST0P);shuruset set;set.m_strFilter.Format(/z:id=%s,m_id);set.0pen();if(!set.IsEOFO)|set.Edit();set.m_shuliang=m_shuliang;set.Update();m_list.Insertitem(0,set.m_id);m_list.SetltemText(0,1,set.m_name);m_list.SetltemText(0,2,set.m_zongjia);m_list.SetltemText(0,3,set.m_shuliang);m_list.SetltemText(0,4,set.m_zhengzhuang);CString strTmp;strTmp.Format(d-%d-%d,set.m_chulishijian.GetYear(),set.m_chulishijian.GetMo nth(),set.m_chulishi jian.GetDay();m_list.SetltemText(0,5,strTmp);elseMessageBox(仓库内没有该药品,请先进行新药注册!,提示,MB_ICONSTOP);取消按钮的代码:-11-信息083李志浩 080810314OnCancel();4.4.过期药品出库模块设计药品出库记录液 称浆服 名龍口封 品支太信5 药急太汚55过期药品资料录入I处理数里 丨处理曰期12 1109 112 1999 1录入查看全部出库药品删除出库记录退出3.3过期药品出库页面录入按钮的代码:UpdateData(true);m_list.DeleteAllItems();chukuset set;shuruset setl;int flag=l;if(m_id.IsEmpty()|m_name.IsEmpty()|m_riqi.IsEmpty()|m_shuliang.IsEmpty()flag=O;for(int i=0;im_id.GetLength();i+)char c;c=m_id.GetAt(i);if7c O I I c9)flag;)if(flag=O)-12-山东交通学院课程设计报告MessageBox（有选项未填写或填写有误!,提示,MB_IC0NST0P）;return;elsesetl.m_strFilter.Format(id=%s,m_id);setl.Open();if(setl.IsEOFO)MessageBox(仓库内没有此药品!,提示,MB_ICONSTOP);return;elsesetl.Delete();setl.Requery();)setl.Close();set.Open();set.AddNewO;set.m_id=m_id;set.m_name=m_name;set.m_shuliang=m_shuliang;set.m_riqi=m_riqi;set.Update();set.MoveLast();m_list.Insertitem(0,set.m_id);m_list.SetltemText(0,1,set.m_name);m_list.SetltemText(0,2,set.m_shuliang);m_list.SetltemText(0,3,set.m_riqi);set.Close();UpdateData(false);MessageBox(添加成功!,提示,MB_OK);删除出库按钮:UpdateData(true);m_list.DeleteAllItems();chukuset set;int n=l;set.Open();set.MoveFirst();while(!set.IsEOFO)set.m_id.TrimRight();-13-信息083李志浩 080810314if(set.m_id=m_id)set.Delete();set.Requery();n=0;set.MoveNext();)if(n=l)MessageBox(没有此药品!,警告,MB_IC0NST0P);elseMessageBox(删除成功,警告,MB_0K);set.Close();4.5.库存药品查询模块设计药品信息检索I药品价格 丨药品数里药品名称药品代码00.机制糖.213.1101.服液.12.88011.龙骨壮骨颗.一12.1788012人参胶表.100.100013.人参胶表.100.一 100019.皮炎平 20100002.三金片 14.1900HOCL P洋i_nnnn1 nnnnr、心腰!4E笔笔匣隹查询内容C药品代码请输入C药品名称查過取消显示全部库存药品-14-山东交通学院课程设计报告图3.5库存药品查询窗口 查询按钮的代码同上。UpdateData();jiansuol set;m_list.DeleteAllItems();if(m_choose=0)if(m_cha.IsEmpty()MessageBox(请输入查询内容!,提示,MB_IC0NST0P);return;)else set.m_strFilter.Format(/z id=%s,m_cha);set.Open();if(set.IsEOF()MessageBox(没有该药品!,提示,MB_ICONSTOP);return;)else int n=m_list.GetltemCount();/获取总行数m_list.Insertltem(n,set.m_id);重新添加一行,参数n:插入项的索 引值,后面为插的字符审m_list.SetltemText(n,1,set.m_name);/n:仃索引,1:列索引,最后为:文本字符审m_list.SetltemText(n,2,set.m_zongjia);m_list.SetltemText(n,3,set.m_shuliang);m_list.SetltemText(n,4,set.m_zhengzhuang);CString strTmp;strTmp.Format(d-%d-%d,set.m_chulishijian.GetYear(),set.m_chulishijian.GetMo nth(),set.m_chulishi jian.GetDay();m_list.SetltemText(n,5,strTmp);set.Close();)else if(m_choose=l)-15-信息083李志浩 080810314if(m_cha.IsEmpty()MessageBox(请输入查询内容!,提示,MB_IC0NST0P);return;)else int n=0;set.0pen();set.MoveFirst();while(!set.IsEOF()set.m_name.TrimRight);if(set.m_name=m_cha)m_list.Insertltem(n,set.m_id);重新添加一行,参数n:插入项的索 引值,后面为插入的字符审m_list.SetltemText(n,1,set.m_name);/n:行索引,1:列索引,最后为:文本字符串m_list.SetltemText(n,2,set.m_zongjia);m_list.SetltemText(n,3,set.m_shuliang);m_list.SetltemText(n,4,set.m_zhengzhuang);CString strTmp;strTmp.Format(%d-%d-%d,set.m_chulishijian.GetYear(),set.m_chulishijian.GetMo nth(),set.m_chulishi jian.GetDay();m_list.SetltemText(n,5,strTmp);n+;set.MoveNext();set.Close();if(n=0)MessageBox(没有该药品!,提示,MB_ICONSTOP);)elseMessageBox(请选择查找类型!,提示,MB_1CONSTOP);-16-山东交通学院课程设计报告4.6.米购商信息管理模块设计供货商信息 供货商代理I供货商名称L电话号码OOOOOOOOOOOOOOOO，药胶物 堂堂药医阿牛 药昌生仁蜀汇阿一 哈新永同双中东化-w尔宁京京岛州阿R 哈济北北青商东武.888888.8343842.2349823.3249873.3242356.5763453.2353656.3252543I三供货商代码!-供货商电话 供货商名称 I-供货商地址 查询修改r修改供货商代码厂名称电话 厂地址查询_退出3.6采购商信息管理模块界面修改按钮代码:UpdateData(true);shangset set;int n=0;set.Open();set.MoveFirst();while(!set.IsEOFO)set.m id.TrimRight();if(set.m_id=m_chaid)MessageBox(已找到采购商信息,确定修改吗?,提示,MB/KCANCEL);set.Edit();if(m_chechname.GetState()=1)set.m_name=m_name;if(m_chechadd.GetState()=1)set.m_address=m_add;if(m_chechphone.GetState()=1)set.m_phone=m_phone;set.Update();MessageBox(修改成功!,提示,MB OK);-17-信息083李志浩 080810314n=l;set.MoveNext();set.Close();if(n=0)MessageBox(未找到采购商信息,请确认信息正确性!,提示,MBC0NST0P);删除按钮代码:UpdateData(true);m_list.DeleteAllItems();shangset set;int n=l;set.0pen();set.MoveFirst();while(!set.IsE0F()set.m_id.TrimRight();if(set.m_id=m_chaid)set.Delete();set.Requery();n=0;)set.MoveNext();)if(n=l)MessageBox(没有此供货商!,警告,MBJCONSTOP);elseMessageBox(删除成功!,警告,MB_OK);set.Close();-18-山东交通学院课程设计报告4.7.药品米购信息查询模块设计I-I采购信息管理查询药品代码02030405060708091011121316药品:名称平酸舉酬謝阿昔洛韦片骨康胶囊 盐酸头泡他美酣.依托红毒素颗粒 阿苯达哇片 曲安奈德益康理.大黄蔗虫丸 皮肤病血毒丸 利肺片 清脑降压片 千金片 花露水乖处非处处处处非非非处处而处方处方方方方处处处方方分行药方药药药药方.空:药品药药药品代码I退出查询 录入3.?药品采购信息查询界面查询按钮代码:DeleteAllItems();UpdateData(TRUE);if(m_chaid.IsEmpty()MessageBox(搜索信息不能为空!,提示,MB_IC0NST0P);return;)caigouset set;int n=0;set.m strFilter.Format(id=，%s,m chaid);set.0pen();if(set.IsEOFO)MessageBox(此药品不存在!,提示,MB_ICONSTOP);return;elsem_list.InsertItem(0,set.m_id);重新添加一行,参数n:插入项的索引值,后面为 插入而字符审m list.SetltemText(0,1,set.m name);/n:行索引,1!列索引,最后为:文本字符串-19-信息083李志浩 080810314SetltemText(0,2,set.m_fenlei);set.Close();UpdateData(false);录入代码查询:UpdateData(TRUE);caigouset set;if(m_id.IsEmpty()|m_name.IsEmpty()MessageBox(信息不能为空!,提示,MB_IC0NST0P);return;)set.0pen();set.AddNewO;set.m_id=m_id;set.m_name=m_name;if(m_a=0)set.m_fenlei=处方药;else if(m_a=l)set.m_fenlei=处方药;elseMessageBox(请选择药品类型!,提示,MBJCONSTOP);return;)set.Update();set.MoveLast();m_list.Insertitem(0,set.m_id);m_list.SetltemText(0,1,set.m_name);m_list.SetltemText(0,2,set.m_fenlei);set.Close();UpdateData(false);MessageBox(添加成功!,提示,MB_0K);删除代码查询:UpdateData(TRUE);caigouset set;if(m_id.IsEmpty()|m_name.IsEmpty()MessageBox(信息不能为空!,提示,MBJCONSTOP);return;)set.0pen();set.AddNewO;set.m_id二m_id;set.m_name二m name;-20-山东交通学院课程设计报告if(m_a=0)set.m_fenlei=处方药;else if(m_a=l)set.m_fenlei=处方药;elseMessageBox(请选择药品类型!,提示,MB_ICONSTOP);return;)set.Update();set.MoveLast();