医院进销存系统设计报告.doc

山东交通学院 面向对象语言课程设计 医院药品进销存系统医院药品进销存系统 院 系 信息工程系 专 业 信息类 班 级 信息 083 姓 名 李志浩 学 号 080810314 指导教师 庞希愚 时 间 9 月 14 日至 9 月 27 日 课课 程程 设设 计计 任任 务务 书书 题题 目目 医院药品进销存管理系统医院药品进销存管理系统 系系 部部 信息工程系信息工程系 专专 业业 信息类信息类 班班 级级 信息信息 083 学生姓名学生姓名 李志浩李志浩 学学 号号 080810314 9 月月 14 日至日至 9 月月 27 日日 共共 2 周周 指导教师指导教师 签字签字 系系 主主 任任 签字签字 2009 年年 9 月月 25 日日 一 设计目的设计目的 学生根据所学的数据库原理与程序设计的知识 能够针对一个小型的数据库管 理系统 进行系统的需求分析 系统设计 数据库设计 编码 测试等 完成题目 要求的功能 从而达到掌握开发的一个小型数据库系统的目的 二 设计内容设计内容 1 必须设计的数据表 药品分类代码表 药品库存表 供货商信息表 采购信 息表等 2 功能模块 1 新药品的入库 2 过期药品的出库登记 处理记录 3 药品库存检索 4 供货商信息检索 5 药品采购记录管理 6 药品用药说明信息管理 7 输出相应的数据报表 三 设计完成后提交的文件设计完成后提交的文件 1 课程设计报告 3000 5000 字 纸质打印稿及电子版 1 需求分析 功能模块层次图 2 系统设计 包括详细设计和界面设计 3 代码设计 主要功能函数 4 测试记录 测试各项功能的正确性 容错性 5 课程设计总结 2 系统程序演示 3 课程设计任务书 四 进度计划四 进度计划 9 月 14 15 日 熟悉 Visual C 6 0 创建基于 MFC APPWizard exe SQLSERVER2000 MFC ODBC 数据库开发技术的环境 9 月 15 17 日 学习 MFC ODBC 数据库的有关知识 9 月 18 21 日 初步建立数据库 用 MFC ODBC 连接数据源 9 月 22 23 日 完善数据库 初步写代码 9 月 23 26 日 完成程序 五 主要参考资料五 主要参考资料 1 贺怀清 VISUAL C 程序设计及应用 M 电子出版社出版 2 王珊 数据库系统简明教程 M 北京 高等教育出版社 成 绩 评 定 表 口试 答辩 成 绩 报告成绩总评成绩 摘 要 随着国家的政治经济政策的优化改革 使得国内中小企业得以蓬勃发展 可是 随着企业的发展 客户数量的的为断增多 财务工作繁杂化 库存产品零乱等一系 列问题也接踵而至 给企业经营者运作带来了很大的困扰 信息技术的迅猛发展 科学经营管理观念的迅速传播 使中小企业经营者逐渐认识到转变企业经营管理理 念 改善企业经营管理模式是企业适应时代的发展急需解决的问题 现代管理 应 该建立在真实 有效的数据信息基础之上 应该是一种科学的 理性的管理体制 而这种管理与经营的联系与互助 又必须依赖于计算机的强大的数据统计功能 计 算机管理系统便是实际的企业进销问题与计算机强大数据统计功能相结合的产物 管理系统解决的了商业企业商品的进 销 存一系列操作流程中的数据信息的处理 问题 提供一系列的数据分析 帮助经营者合理的调整各个经营运作环节的运作节 奏 并对商品流转过程进行了全程跟踪管理 相应款项流通的全程记录管理和票据 信息统计的管理 因此进销存管理系统的全面应用 规范业务流程 提高了企业的 管理水平 提高资金流动的透明度 加快商品资金周转速度 进而全面提高了企业 的经营水平 进而全面提升了企业的经济效益 关键词关键词 进销存 数据库 触发器 记录集 抄録抄録 使用 国 政治 経済政策 繁栄 国内 中小企業 改革 最適化 使用 国 政治 経済政策 繁栄 国内 中小企業 改革 最適化 企業 金融業務 在庫管理 問題 障害 一連 複 企業 金融業務 在庫管理 問題 障害 一連 複 雑 続 企業 演算子 多 実行 向上 雑 続 企業 演算子 多 実行 向上 顧客 数 開発 情報技術 急速 発展 科学的管理法 顧客 数 開発 情報技術 急速 発展 科学的管理法 急速 広 中小企業 演算子 変更 経営 実現 急速 広 中小企業 演算子 変更 経営 実現 企業 経営 改良来 企業 問題 解決 必要 企業 経営 改良来 企業 問題 解決 必要 適応 開発 近代的 管理 効果的 適応 開発 近代的 管理 効果的 管理 操作 連絡先 相互扶助 彼 強力 管理 操作 連絡先 相互扶助 彼 強力 頼 科学的合理的 管理 統計関数 必 頼 科学的合理的 管理 統計関数 必 要 基 必要 管理 要 基 必要 管理 販売事業 本当 問題 強力 統計機能製品 組 合 販売事業 本当 問題 強力 統計機能製品 組 合 商業企業 商品 輸入販売 管理 商業企業 商品 輸入販売 管理 処理 問題 業務 一連 分析 範囲 提供維持 処理 問題 業務 一連 分析 範囲 提供維持 操作 合理的 部分 操作 調整 演算子 支援 操作 合理的 部分 操作 調整 演算子 支援 商品転送 管理追跡 資金管理統計情報 楽器 流 全 商品転送 管理追跡 資金管理統計情報 楽器 流 全 体 対応 管理 請求書発行管理 包括的 体 対応 管理 請求書発行管理 包括的 標準化 企業 管理 向上 標準化 企業 管理 向上 総合的 企業 管理 向上 資本 流 財 資本回転速 総合的 企業 管理 向上 資本 流 財 資本回転速 度 上 透明性 向上 企業 全体的 経済効率 向上 度 上 透明性 向上 企業 全体的 経済効率 向上 請求書発行 請求書発行 目录目录 1 课程设计概述 1 1 1 VISUAL C 6 0 概述 1 1 2 VISUAL C 6 0 运行环境 1 1 3 SQL SERVER 2000 数据库概述 2 1 4 医药进销存管理系统系统概述 3 2 系统需求分析 3 3 总体设计 4 3 1 项目规划 4 3 2 系统结构功能 5 3 3 系统设计 5 3 3 1 数据库概要说明 5 3 3 2 数据库逻辑结构 6 4 功能模块设计 8 4 1 登陆框设计 8 4 2 主菜单模块设计 9 4 3 新药入库模块设计 10 4 4 过期药品出库模块设计 12 4 5 库存药品查询模块设计 14 4 6 采购商信息管理模块设计 17 4 7 药品采购信息查询模块设计 19 5 系统测试 23 6 设计体会 27 前前 言言 随着计算机技术的发展 可视编程技术占有了越来越重要的作用 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 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 运行环境 图 1 2 Visual C 6 0 运行环境 信息 083李志浩 080810314 2 1 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 应用程序可以快速交付 并且 客户只需最少的安装和管理开销即可实现这些应用程序 山东交通学院课程设计报告 3 1 4 医药进销存管理系统系统概述 系统主要为登陆 登陆后可以浏览 查询 添加 删除药品信息外还可以对销售 记录进行浏览 删除 添加 修改 本系统是根据中小企业的实际需求而开发的 完 全能够实现药品入库 销售管理 通过本系统可以达到以下目标 系统运行稳定 安全可靠 界面设计美观 人机交互界面友好 信息查询灵活 方便 快捷 准确 数据存储安全可靠 强大的报表预览 打印功能 信息安全保密 本系统可以基本满足中小企业的需求 简单易操作 2 系统需求分析 企业经营如逆水行舟不进则退 每一个努力发展的企业都明白 先进管理的重要 作用 引进先进管理系统使企业经营变得规范 合理 进销存管理系统无论是在功能 设计还是业务流程上都尽可能做到满足经营管理运作流程的需求 并且操作方便 功 能强大 即使操作者对计算机知识一窍不通也能一用就会 它强化库存管理 规范业 务流程 提高资金管理的透明度 加快商品资金周转 是企业经营管理中数据分析中 必不可少的管理工具 根据市场的需求 要求系统具有以下功能 1 新药品的入库 2 过期药品的出库登记 处理记录 3 药品库存检索 4 供货商信息检索 5 药品采购记录管理 6 药品用药说明信息管理 7 输出相应的数据报表 系统主要为登陆 登陆后可以浏览 查询 添加 删除药品信息外还可以对销售 记录进行浏览 删除 添加 修改 本系统是根据中小企业的实际需求而开发的 完 全能够实现药品入库 销售管理 通过本系统可以达到以下目标 系统运行稳定 安全可靠 界面设计美观 人机交互界面友好 信息查询灵活 方便 快捷 准确 数据存储安全可靠 强大的报表预览 打印功能 信息安全保密 信息 083李志浩 080810314 4 开发及运行环境 硬件要求 CPU 300MHz 以上的处理器 内存 128MB 推荐 256MB 硬盘 150MB 以上剩余空间 显示像素 最低 800 600 最佳效果 1024 768 软件要求 操作系统 Windows2000 NT XP Vista 数据库 SQL Server2000 3 总体设计 3 1 项目规划 根据需求分析 设计系统框架 进销存系统由 部分组成 设计各部分具体功能 如下 1 药品信息模块 包括药品代码 名称 分类等 2 供货商信息模块 包括供货商代码 供货商名 地址 联系电话 3 库存模块 包括药品名称 药品代码 库存量 处理日期 4 采购信息模块 包括药品代码 采购量 采购日期 采购总价 主治症状 5 过期药品处理模块 包括药品代码 处理量 过期时间 6 用户密码模块 包括用户名 密码 山东交通学院课程设计报告 5 3 2 系统结构功能 医院药品 进销存系统 登录 药品 信息 录入 药品 信息 添加 药品 信息 查询 新药 登记 库存 查询 药品 信息 查询 采购 信息 管理 采购 录入 供货 商查 询 处理 记录 库存 查询 入库 过期 处理 信息 添加 信息 查询 销售 查询 打印 进程 供货 商查 询 供货 商添 加 供货 商修 改 供货 商删 除 用户 密码 图 2 1 系统结构功能图 3 3 系统设计 3 3 1 数据库概要说明 本系统采用 SQL Server 2000 数据库 系统数据库名为医院药品进销存系统 中共 包含 28 个表 其中作为临时表的有 20 个 作为数据存储表的有 8 个 下图所示的即为本系统中数据库的数据表结构图 该数据表结构图包含系统所有 数据表 可以清晰地反应数据库信息 信息 083李志浩 080810314 6 图 2 2 数据表结构图 3 3 2 数据库逻辑结构 3 3 2 1 原始表设计 表 2 1 药品分类代码表 字段中文名字段名类型长度 类别leibiechar10 药品代码yaodaimachar10 药品名称yaomingchar30 表 2 2 供货商信息表 字段中文名字段名类型长度 供货商代码 shangdaimachar10 供货商名称 shangmingchar40 供货商地址 addresschar50 山东交通学院课程设计报告 7 供货商电话 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 信息 083李志浩 080810314 8 4 功能模块设计 4 1 登陆框设计 图 3 1 登陆界面 登录按钮的代码 UpdateData true mimaset set set m strFilter Format id s m id set m mima TrimRight set Open if m id IsEmpty MessageBox 用户名不能为空 提示 MB ICONSTOP return if m mima IsEmpty MessageBox 密码不能为空 提示 MB ICONSTOP return if set IsEOF set m id TrimRight set m mima TrimRight if set m mima m mima 山东交通学院课程设计报告 9 menu Dlg Dlg DoModal else MessageBox 密码错误 提示 MB ICONSTOP else MessageBox 用户名不正确 提示 MB ICONSTOP 4 2 4 2 主菜单模块设计主菜单模块设计 图 3 2 功能选择窗口 子菜单选择按钮代码 shuru Dlg Dlg DoModal 其余按钮代码相同 信息 083李志浩 080810314 10 4 3 新药入库模块设计 图 3 3 供货商信息查询窗口 新药注册按钮的代码 UpdateData TRUE if m id IsEmpty MessageBox 药品代码不能为空 提示 MB ICONSTOP shuruset set set m strFilter Format id s m id set Open if set IsEOF set AddNew 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 chulishijian m time set Update m list InsertItem 0 set m id m list SetItemText 0 1 set m name 山东交通学院课程设计报告 11 m list SetItemText 0 2 set m zongjia m list SetItemText 0 3 set m shuliang m list SetItemText 0 4 set m zhengzhuang CString strTmp strTmp Format d d d set m chulishijian GetYear set m chulishijian GetMonth set m chulishijian G etDay m list SetItemText 0 5 strTmp else MessageBox 此药品已存在 提示 MB ICONSTOP set Close 新药录入复选框的代码 UpdateData true GetDlgItem IDC EDIT2 EnableWindow m bEnabled GetDlgItem IDC EDIT4 EnableWindow m bEnabled GetDlgItem IDC EDIT5 EnableWindow m bEnabled 新药入库按钮代码 UpdateData TRUE if m id IsEmpty MessageBox 药品代码不能为空 提示 MB ICONSTOP shuruset set set m strFilter Format id s m id set Open if set IsEOF set Edit set m shuliang m shuliang set Update m list InsertItem 0 set m id m list SetItemText 0 1 set m name m list SetItemText 0 2 set m zongjia m list SetItemText 0 3 set m shuliang m list SetItemText 0 4 set m zhengzhuang CString strTmp strTmp Format d d d set m chulishijian GetYear set m chulishijian GetMonth set m chulishijian G etDay m list SetItemText 0 5 strTmp else MessageBox 仓库内没有该药品 请先进行新药注册 提示 MB ICONSTOP 信息 083李志浩 080810314 12 取消按钮的代码 OnCancel 4 4 过期药品出库模块设计 3 3 过期药品出库页面 录入按钮的代码 UpdateData true m list DeleteAllItems chukuset set shuruset set1 int flag 1 if m id IsEmpty m name IsEmpty m riqi IsEmpty m shuliang IsEmpty flag 0 for int i 0 i m id GetLength i char c c m id GetAt i if c 9 flag 0 山东交通学院课程设计报告 13 if flag 0 MessageBox 有选项未填写或填写有误 提示 MB ICONSTOP return else set1 m strFilter Format id s m id set1 Open if set1 IsEOF MessageBox 仓库内没有此药品 提示 MB ICONSTOP return else set1 Delete set1 Requery set1 Close set Open set AddNew 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 SetItemText 0 1 set m name m list SetItemText 0 2 set m shuliang m list SetItemText 0 3 set m riqi set Close UpdateData false MessageBox 添加成功 提示 MB OK 删除出库按钮 UpdateData true m list DeleteAllItems chukuset set int n 1 set Open set MoveFirst while set IsEOF 信息 083李志浩 080810314 14 set m id TrimRight if set m id m id set Delete set Requery n 0 set MoveNext if n 1 MessageBox 没有此药品 警告 MB ICONSTOP else MessageBox 删除成功 警告 MB OK set Close 山东交通学院课程设计报告 15 4 5 库存药品查询模块设计 图 3 5 库存药品查询窗口 查询按钮的代码同上 UpdateData jiansuo1 set m list DeleteAllItems if m choose 0 if m cha IsEmpty MessageBox 请输入查询内容 提示 MB ICONSTOP return else set m strFilter Format id s m cha set Open if set IsEOF MessageBox 没有该药品 提示 MB ICONSTOP return 信息 083李志浩 080810314 16 else int n m list GetItemCount 获取总行数 m list InsertItem n set m id 重新添加一行 参数 n 插入项的索 引值 后面为插入的字符串 m list SetItemText n 1 set m name n 行索引 1 列索引 最后为 文本字符串 m list SetItemText n 2 set m zongjia m list SetItemText n 3 set m shuliang m list SetItemText n 4 set m zhengzhuang CString strTmp strTmp Format d d d set m chulishijian GetYear set m chulishijian GetMonth set m chulishijian G etDay m list SetItemText n 5 strTmp set Close else if m choose 1 if m cha IsEmpty MessageBox 请输入查询内容 提示 MB ICONSTOP return else int n 0 set Open set MoveFirst while set IsEOF set m name TrimRight if set m name m cha m list InsertItem n set m id 重新添加一行 参数 n 插入项的索 引值 后面为插入的字符串 m list SetItemText n 1 set m name n 行索引 1 列索引 最后为 文本字符串 m list SetItemText n 2 set m zongjia m list SetItemText n 3 set m shuliang m list SetItemText n 4 set m zhengzhuang 山东交通学院课程设计报告 17 CString strTmp strTmp Format d d d set m chulishijian GetYear set m chulishijian GetMonth set m chulishijian G etDay m list SetItemText n 5 strTmp n set MoveNext set Close if n 0 MessageBox 没有该药品 提示 MB ICONSTOP else MessageBox 请选择查找类型 提示 MB ICONSTOP 4 6 采购商信息管理模块设计 3 6 采购商信息管理模块界面 信息 083李志浩 080810314 18 修改按钮代码 UpdateData true shangset set int n 0 set Open set MoveFirst while set IsEOF set m id TrimRight if set m id m chaid MessageBox 已找到采购商信息 确定修改吗 提示 MB OKCANCEL 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 n 1 set MoveNext set Close if n 0 MessageBox 未找到采购商信息 请确认信息正确性 提示 MB ICONSTOP 删除按钮代码 UpdateData true m list DeleteAllItems shangset set int n 1 set Open set MoveFirst while set IsEOF set m id TrimRight if set m id m chaid set Delete set Requery n 0 山东交通学院课程设计报告 19 set MoveNext if n 1 MessageBox 没有此供货商 警告 MB ICONSTOP else MessageBox 删除成功 警告 MB OK set Close 4 7 药品采购信息查询模块设计 3 7 药品采购信息查询界面 查询按钮代码 m list DeleteAllItems 信息 083李志浩 080810314 20 UpdateData TRUE if m chaid IsEmpty MessageBox 搜索信息不能为空 提示 MB ICONSTOP return caigouset set int n 0 set m strFilter Format id s m chaid set Open if set IsEOF MessageBox 此药品不存在 提示 MB ICONSTOP return else m list InsertItem 0 set m id 重新添加一行 参数 n 插入项的索引值 后面 为插入的字符串 m list SetItemText 0 1 set m name n 行索引 1 列索引 最后为 文本字符串 m list SetItemText 0 2 set m fenlei set Close UpdateData false 录入代码查询 UpdateData TRUE caigouset set if m id IsEmpty m name IsEmpty MessageBox 信息不能为空 提示 MB ICONSTOP return set Open set AddNew set m id m id set m name m name if m a 0 set m fenlei 处方药 else if m a 1 set m fenlei 处方药 else MessageBox 请选择药品类型 提示 MB ICONSTOP 山东交通学院课程设计报告 21 return set Update set MoveLast m list InsertItem 0 set m id m list SetItemText 0 1 set m name m list SetItemText 0 2 set m fenlei set Close UpdateData false MessageBox 添加成功 提示 MB OK 删除代码查询 UpdateData TRUE caigouset set if m id IsEmpty m name IsEmpty MessageBox 信息不能为空 提示 MB ICONSTOP return set Open set AddNew set m id m id set m name m name if m a 0 set m fenlei 处方药 else if m a 1 set m fenlei 处方药 else MessageBox 请选择药品类型 提示 MB ICONSTOP return set Update set MoveLast m list InsertItem 0 set m id m list SetItemText 0 1 set m name m list SetItemText 0 2 set m fenlei set Close UpdateData false MessageBox 添加成功 提示 MB OK 信息 083李志浩 080810314 22 BOOL chuku OnInitDialog CDialog OnInitDialog TODO Add extra initialization here m list InsertColumn 0 药品代码 LVCFMT LEFT 100 m list InsertColumn 1 药品名称 LVCFMT LEFT 100 m list InsertColumn 2 处理数量 LVCFMT LEFT 90 m list InsertColumn 3 处理日期 LVCFMT LEFT 120 chukuset set int n 0 set Open while set IsEOF m list InsertItem n set m id 重新添加一行 参数 n 插入项的索引值 后面 为插入的字符串 m list SetItemText n 1 set m name n 行索引 1 列索引 最后为 文本字符串 m list SetItemText n 2 set m shuliang m list SetItemText n 3 set m riqi set MoveNext n set Close return TRUE return TRUE unless you set the focus to a control EXCEPTION OCX Property Pages should return FALSE 山东交通学院课程设计报告 23 打印按钮代码 CWnd cWnd cWnd GetDlgItem IDOK if KillTimer 0 SetTimer 0 100 NULL cWnd SetWindowText 手动 else cWnd SetWindowText 自动 5 系统测试 进入如图 3 1 所示的登录界面后 根据数据库设计的用户密码表 如果密码输入不正确 或 是用户名错误 都会弹出 用户名或密码有误 的窗口 进入如图 3 2 所示的选择界面 有 5 个选项 我主要设计的是药品入库 药品出库和仓库管 信息 083李志浩 080810314 24 理这几个按钮 单击进货商管理按钮 跳出如图 4 1 所示的窗口 这个窗口能够管理供货商 信息 图 4 1 信息管理窗口 此窗口可以完成添加 修改 删除 查询的功能 录入的功能 按照要求在各个编辑框输入信息 单击录入则录入信息 若输入的药品代码已 存在 或信息填写不准确 就会跳出 此供货商已存在 则会弹出如图 5 1 提示对话框 5 1 提示对话框 添好信息后 若单击录入按钮 如果信息填写正确就会添加到列表控件里