HCRM医院客户回访管理系统

1、HCRM：医院客户回访管理系统） SuperWings 第 0页 HCRM医院客户回访管理系统HCRM：医院客户回访管理系统） SuperWings 第 1页 目录 第1 1章前言 . 3.3. 1.1医院信息化的现状和发展趋势 . 3 1.2医院服务营销现状和发展趋势 . 4 第2章项目概述 . 6. 第3章需求分析 . 1.01.0 3.1网络平台需求分析 . 10 3.1.1网络平台的发展趋势分析 . 10 3.1.2网络平台技术开放性、兼容性分析 . 10 3.1.3网络数据平台可扩展性分析 . 10 3.2数据库分析 . 11 3.2.1网络数据库平台分析 . 11 3.2.2网络数

2、据库平台安全性分析 . 11 3.3市场需求分析 . 11 第4 4章总体方案 . 1313 4.1软件体系架构 . 13 4.1.1三层体系架构 . 13 4.1.2功能模块结构的设计 . 14 第5 5章系统设计 . 1.61.6 5.1应用平台设计 . 16 5.2数据库设计 . 17 5.2.1数据流程分析 . 17 5.2.2数据库整体逻辑 . 17 5.2.3主要的数据流程 . 17 5.2.4数据库结构设计 . 18 5.2.5数据库技术 . 18 5.3短信平台子系统设计 . 19 5.3.1系统功能说明 . 19 5.3.2模块结构及功能说明（不含栏目结构） . 19 5.3

3、.3功能模块结构及功能说明 . 20 5.3.4应用描述 . 20 5.3.5主要技术特点 . 21 第六章系统功能描述 . 23 6.1人性化的设计理念 . 23 HCRM：医院客户回访管理系统） SuperWings 第 2页 6.2功能描述 . 23 6.2.1登录模块和系统主界面 . 23 6.2.2管理系统模块 . 24 6.2.3短信模块 . 27 6.2.4数据信息模块 . 30 6.2.5帮助模块 . 30 附件 . 32HCRM：医院客户回访管理系统） SuperWings 第 3页 第1章前言 1.1医院信息化的现状和发展趋势 目前，HIS系统（Hospital Infor

4、mation System 医院信息系统）医院信息系 统不但能提高医院的工作和经济效益，更能实现医院的办公自动化.网络化和信 息化。我国大部分地区的医院在信息化、网络化方面还只是刚刚起步跟欧美发达 国家有很大的差距。我国目前大多数医院采用的是病床管理和财务管理， 最重要 的病人管理信息基本没有使用。现有的 HIS的解决方案基本上相似，包含的重点 内容主要是经济核算系统（包括挂号计费划价、药房门诊、财务等），临床信息系 统（包括病房管理等以住院系统为主），资源系统（包括医院库存、资产、大型仪 器管理.后勤等）。基本上是用计算机提高流程管理的效率，但是缺乏一个真正 的以客户为中心的信息管理系统。如

5、今的医院信息系统 （HIS）正在各个医院飞快 的实施中，但普遍缺乏真正的行业软件部分。整个系统简单说来就是一个局域网。 在我国加入WTO今天，医院的信息系统急需跨越式的发展。我国目前大多 数医院采用的是病床管理和财务管理， 最重要的病人管理信息基本没有使用。 而 行业软件的核心定位非常重要“以客户为中心”的战略正可以担当其核心思想。 医院竞争越来越激烈，而实施HCRM统无疑是在市场上给医院注入的强心剂。传 统观念需要改变，医院不该再是坐等病人有病上门， 而是借助信息技术，通过实 施客户关怀，了解病人的需求，关心病人的身体状况，从而拥有一个相对稳定的 潜在就医群体，也就是说医院的服务对象范围扩大

6、到非病人的人群中。一个人在 无病的时候可以享受到一家医院的信息提示服务。 一旦生病这家医院将成为他的 首选。所以“以病人为中心”的概念将扩展到“以客户为中心”。网络技术，信 息技术和Internet普及将成为HCRMHCRM系统的强大依托。 HCRM系统是在HIS中引入客户关系管理，不仅仅在战略思想上强调“以客 户为中心”而且引入相关的成熟技术，针对医院不同干企业的特殊客户群， 建立 的客户关系管理CR册一客户关系管理，是方法论，战略，软件和其他以网络为 基础的信息技术的专业术语。客户关系管理由来已久，只是在不同的时代具有不 同的内涵。网络经济时代的客户关系管理具有以下新的特点： （1） 力求

7、在医院与病人之间建立、保持和发展一种长期、良好的合作关系； （2） 医院与病人关系的实质是双赢的； （3） 努力提高病人满意度； （4） 提供完善的服务体系；(5) HCRM医院客户回访管理系统) 第 4页 虽然CR险用在企业中和在医院中侧重点有所不同， 但是他们仍然存在大量 的共同点，他们都会需要利用CRMt激烈的市场竞争中获得更多一席之地。鉴丁 CRIME企业中的应用已经较为成熟并且发展迅速，相信在医院中建立客户关怀系 统也将得到越来越多的医院和其他潜在市场商家的宵睐，具有很大的市场前景。 客户关怀系统主要目的有： (1) 建立医院和病人之间的长期信任关系，以增强医院的市场竞争力； (2)

8、 是通过与病人的交流、建立病人档案和与病人合作； 1.2医院服务营销现状和发展趋势 医疗卫生部门提供的产品是医疗保健服务，是典型的无形产品，具有服务 产品的基本届性。随着全世界服务业的发展，服务营销的观念适时势而兴起。服 务营销是指“依靠服务质量来获得顾客的良好评价，以口碑的方式吸引、维护和 增进与顾客的关系，从而达到营销的目的”。医疗服务的服务者是掌握了治病救 人技能的医务人员，服务的对象是患有疾病的病人。因此，医院的服务营销要比 传统营销更注重服务，而且是服务的全过程。同时，病人在医院治疗期间，具有 全员性接触的特点，再加上疾病模式的转变，因而，医院的服务应是全方位的， 医务人员的服务应更

9、强调主动性。此外，随着我国医疗体制的改革和我国服务市 场的全方位开放，医疗市场的激烈竞争在所难免。丁是，留住顾客也成为医院营 销的重要目标和内容。因此，医院应适应新的形势，以服务营销管理理论为指导 加强服务营销，实现医院的健康、快速发展。 (1) 医疗服务营销的现状 服务观念落后。服务营销的理念是：医院营销的出发点是病人而不是医 院，医院一切的工作是围绕“以病人为中心”展开；营销的重点是提供 满足病人所需要的医疗服务，而不是医院所能提供的医疗服务；营销 的目的是通过病人的满意获利，而不是通过增加病人数量获利。目前， 我国大多数医院还是坐等病人上门求医，以医院为中心，而不是站在 消费者即病人的角

10、度为其提供相应的服务。很多医院甚至还不知道要将 病人当作消费者来看待，对病人缺乏耐心，居高临下，甚至利用信息 的不对称性。 促销手段单一。目前，大多数医院在服务促销上的问题是手段较为单一 主要以简单的电视广告、广播和广告牌等媒体手段促销为主，其信息化 的健康咨询和健康知识宣传方法应用得较少。而这些方法对树立医院的 良好形象，建立医院服务好的口碑是极有作用的。客观地说，计划经济 条件下的医院收支完全由国家负责，医院不需要进行促销活动；在市 场经济体制建立和完善过程中,医院之间有了一定的竞争，但由丁我 国医疗服务市场一直是需求大丁供。 HCRM医院客户回访管理系统) 第 5页 (2) 医疗服务发展

11、趋势 转变服务观念，以“病人为中心”建设医院文化，塑造医院品牌在我国服务 业全面开放的今天，医院必须跳出惯有的视角来审视医院的生存和发展问题。 必 须明确：“顾客就是上帝”这句话在医疗行业同样适用，病人已经有了选择医院 的权利，医疗行业必然存在市场竞争，而且竞争会越来越激烈。病人是医院的衣 食父母，是医院生存和发展的基础。所以，医院必须树立“病人至上”的核心价 值观，并让这个价值观成为全体员工心中的导航系统，使得每个人都活楚哪些 事应该做，哪些事不应该做，从而在面对病人的时候，自觉选择有利丁病人， 有利丁医院长远发展的行为。当今的时代是以文化论输赢的时代，没有文化走不 远。医院之间的竞争，起初

12、阶段拼的是设备和技术，但到了最后都要拼文化。未 来医院之间的克争在某种程度上也是医院品牌的克争。 有人说：“中国不缺医院， 但品牌难见。”的确，我国的著名医院很多，真正做成品牌的没有几家，多数医 院陷入了名气就是品牌的误区中。我国医院正经历着商业化的漫漫征程，品牌意 识淡薄使其难以形成医院的附加值，而仅仅停留在“卖服务”上，随着“洋医院” 的增多，本土医院应迅速确立自己的优势，抢先打造自身品牌，以应付将来日 益白热化的竞争。如某省中医院强调社会效益和经济效益的统一，以“良好的疗 效+质的服务+卓越的信誉” 作为品牌建设的基础。该医院认为，现代医学技 术的同质性很高，所以，光有好的疗效还不够，必

13、须提供优质的服务。医生、医 院必须满足病人身心的多层次需求，给病人以受关注的感觉。同时，在当前整个 社会对医疗行业意见较大的时候，医院卓越的信誉弥足珍贵！病人所需要的信 誉，包括明白的收费、合理用药、合理检查和以诚信为基础的医患关系等，该院 在某省率先开展了 “放心药房”活动、住院费用电脑查询和透明计价等活动，良 好的信誉能够使医院产生极大的效益。达到“技术优势 +服务优势对言誉优势=病 人信赖你”的程度时，医院的品牌就真正塑造出来了。HCRM：医院客户回访管理系统) SuperWings 第 6页 第2章项目概述 (1) 项目名称 HCRM医院客户回访管理系统。 (2) 项目目标 按照“安全

14、、高效、简洁、实用”的思路进行设计，保证医院病人数据的安 全，不影响现有信息系统的运行效率， 要求医务人员操作方便，快捷与病人的沟 通，使病人得到更贴心的服务。项目是在 HIS中引入客户关系管理，不仅仅在战 略思想上强调“以客户为中心”而且引入相关的成熟技术，针对医院不同干企业 的特殊客户群，建立的客户关系管理。主要目的为： (1)建立医院和病人之间的 长期信任关系，以增强医院的市场竞争力；(2)是通过与病人的交流、建立病人 档案和与病人合作； 该项目具有以下新的特点： (1) 力求在医院与病人之间建立、保持和发展一种长期、良好的合作关系； (2) 医院与病人关系的实质是双赢的； (3) 努力

15、提高病人满意度； (4) 提供完善的服务体系； (5) 病人信息的快速处理和分析。 (3) 项目内容 本着建立医院和病人之间的长期信任关系，以增强医院的市场竞争力；通 过与病人的交流、建立病人档案和与病人合作为目的，该项目把客户关系管理系 统与短信平台相链接。使在信息的社会中，病人与医生以及卫生医疗系统单位之 间的交流还是处丁现代化新型方式中， 同时加上短信业务逐步完善，新的国家法 规，政策涌现，管理中一些特定的信息的发布，以及与卫生医疗系统中紧急信息 的发布，同时医生和病人能够通过此系统进行信息的沟通。 建立病人的资料的查 询和跟踪反馈，在病人走出医院后继续给予关怀从而建立医院和病人之间的信

16、任 关系，另外，医生能通过此平台能够准确，即时的利用电子信息直接回答病人的 后继咨询，提供流行病信息、营养处方等。 HCRM：医院客户回访管理系统） SuperWings 第 7页 因此此项目主要由一个平台、一个大型数据库、一个系统组成。 一个平台 为宁波各个医院建立HCRIM统即客户关怀平台，建立一个为离院病人提供 完整、准确、智能的温馨提示信息。同时离院病人能通过短信平台与医生进行沟 通。在这个平台上提供病人资料查询和短信系统一体化，供统一的、开放式接入 标准，现数据的集中提取、转换、存储与共享，保障网络的稳定可靠性、安全性、 实用易用性、先进性、开放性、可扩充性、资源尽用性与高效性。 一

17、个数据库 + HCRM系统相关的数据库。例如病人信息，医生信息 # 中心数据库层：中心数据库主要是由医生病人数据的导出以及预警系统 与短信平台公用的数据库。 短信平台系统相关的数据库：如管理员库，用户资料信息库，短信发送 信息库，短信接收信息库，短信编辑信息库等。 一个系统 该系统由两个子系统组成，分别为预警子系统和短信平台子系统， 两个子系 统既独立乂统一。HCRM：医院客户回访管理系统） SuperWings 第 8页 预警子系统 1. 管理设置模块 1.1医生与病人信息管理模块 1.1.1医生和病人信息的录入和输出 1.1.2医生和病人信息维护 1.1.3病人信息的查找、添加 2. 短信

18、管理 2.1信息的编辑发送和收取。 2.2信息的审核与统计。 2.3数据的维护。 3预警短信模块 3.1监管短信的发送防止垃圾短信。 3.2监管质量和次数，便于政绩考核的需要。 3.3监管短信维护。 短信发送需求方能够通过 HCRM系统发给各系统医生短信通知及事务 提醒的具体信息，由各级系统管理员进行短信发送操作， 具体信息发送到接收人 的手机上。 能够按时间、标题等的分类，对短信信息进行检索和浏览，同时能够自 动删除超过指定期限的信息。 能够自动向移动电话和其它SMS设备发送应用系统或电子邮件的消息、 提小和通知。 （2）模块结构及功能说明（不含栏目结构） 管理员模块：用丁短信平台系统，以及

19、具有使用短信平台系统功能的权限。 病人信息维护模块：用丁对用户信息进行管理，维护和修改。主要包括对 用户信息的注册，登陆，修改，增加，删除，查询，搜索等。 短信发送模块：此模块分为两部分：一个是手动发送，一个是自动发送。 手动部分主要是此系统的管理员根据需要填入或选择要发送的信息内容 （如管理 - 系貌N1 登录N2 就退出（N3 白 0 管理（N0 -忒.医生信息管理眼9 编添加N12J 蜷查找N14J 璘浏览N7 曰璘病人信息管理N10） 谱添加N13 盘查找N15 携洌览（N17 或个人资料修改（N28 或权限设置与管理M6 胃政考核N38） -蝎短信N11 就一湍辑短信N20） 翌一短

20、信电械（N23 就发信箱（N19） 以收信箱（N19） 息 覆 草 稿 箱（N39） 鼻 重要信息N22） -成短信貌计（N27 翌发送统计N34 潇回复统计N35 鼻投浜统计N36 发送是预警N37） 洛信息设置W24 X 模根N21 -i 数据N25 忒一数据备借N25） 罚一数据导入fJan x ng H | 尚送|JIGJ卸 心t |Zh A ME OWT SJE 申B S M 潮止 田构 9H L 00 OWE &i* 3FS 虫 65 十波 内科 主任 0009 OOCfl :近 油1 5 25 招翼 用构 .R 家曜住址 号由叩苦引都 工$根蚊性* HCRM：医院客户回访管理系统

21、） SuperWings 第 27页 医生信息浏览：管理员也可在该模块中浏览所有医生的部分信息。 医生信息浏览医生信息浏览 （2）病人信息管理 该模块为普通权限，医生可对自己就诊病人的信息进行添加、修改等操作。 病人信息的添加：输入病人详细资 料（*号为必填），并记录病人病 历，点击“确定添加”。添加成功 后可选择继续添加或退出。 （图 2.6） 病人信息的查找： 三种查找方式, 和“医生信息查找”方法类似，增 加了病历一栏，在此不做详细说 明。（图 2.5 ） |SIMU JbwjgwW 时包NJW JF1RA33P 否 恤 1 txn s iscnrawM 苔 dwidolEWntfeM

22、I313IWM. 医fi5 d*jlEbW I5M5&KMJ. 苔 lUTSWTXSE * I3E4X4E77E 菁 心旺内* 制匣任即 isHgxbvgvvMI 2G e !33 E?3E d*ilfchBi XDra 1 汨 KEB577 膏 RV4 （PRBjK34$y4hcig-n l3S nW 55* 普网 1踏咿3 S UH 眺H 常 ttH HTH 1SStt lft7 M6T E IJMSKM55 好 俺备耳14 I击枇琳 诺哓WmsR 沼 W山 :m Sfl th*iMangWi5itJ can 沼 Eff clwnunSilOom ifflSSMC |由 M4EM钮 玲 H

23、 H?5i?5i! !? ?N NH Hi5i5H HH Hl5l5 H HM M（图 2.7 ） uperWings HCRM：医院客户回访管理系统） 第 28页 同样，我们也可以通过浏览窗口浏览所有病人信息。 6.2.3短信模块 短信群发：HCRM样支持群发功能， 方便医生对病人提供温馨提示。 医生先浏览所有自己的 病人的病历，再给患有同类型疾病的病人适时地提供温馨提示。例如：最近梅雨季节来了, 风湿科的王医生认为风湿病人应及时对室内空气进行除湿, 此，他编辑短信：“你好！我是xx医院的王医生，梅雨季节来袭，请注意锻炼身体，注意关 节保暖，保持室内通风、干燥和空气新鲜。少吃辛辣、刺激性食物

24、，少吃生冷、油腻之物, 减少动物脂肪的摄入量，少吃猪肉，牛肉，羊肉等“红肉” 量、易消化的食物为总原则。如有什么不适， 请及时来医院，我们将及时对您的病情作出诊 信内容，也可导入原先做好的模 式发送给指定客户。 （图 3.1 ） 编辑短信：在编辑栏中编辑好的短 板，点击发送，短信即可以飞信方 断和治疗。祝您身体健康，心情愉快。 ”并把该短信发给了他的风湿病人。 （图 3.2） 注意锻炼身体，关节的保暖。因 ,饮食一般以进食高蛋白、高热 HCRM：医院客户回访管理系统） SuperWings 第 29页 （图 3.3） 短信预警：如果医生的短信发送量超出系统预定的标准, 系统将作出警告，确定医生

25、是否需 要强制发送。短信发送量限制可以在“信息设置”中进行调整。 发信箱 聂送日期：2008-9-14 已寰送至，李四 短信内容， W! （图 3.5 ） 宏送日期 震送目标 2TO8-9-1J 2CC3S-3 20G99-14 ;2000.9-15 2009-9-4 2欢浒 2008-9-7 2M8-9-0 20009-11 ! 2000.9-0 200S-9-7 zooaMO 2008-3-1 2008-9-14 六禅祥祥飞6 6 6 6超习、丸 E EE E. .E E K K i f fa a - -z z（图 3.4 ） 发信箱：详细记录了医生已发 送的短信信息，并记录了发送 日期，

26、方便医生查找。 HCRM：医院客户回访管理系统） SuperWings 第 30页 重要信息：如果医生有特殊病 情病人的短信或者容易遗忘但 又十分重要的短信，可以通过 “重要信息”板块进行发送。 医生可以对收信人特别设置， 一旦收到短信，系统将会第一 时间作出提示。 收信箱统计 今天收到 0 连续1周收到 2 连续1月收到 2 |刷新 退出| （图 3.9） 如上图所示，医生可以通过统计还了解最近的短信收发情况。短信模板：医生可以将常用短 信设置为模板，在发送温馨提 示或回访短信时可以直接将预 设的模板导入。 （图 3.6 ） 重要信息 （图 3.7） （图 3.8 ） HCRM医院客户回访管

27、理系统） 第 31页 6.2.4数据信息模块 数据导入：设置好路径后即可 将医院的数据库资料导入系 统。 数据备份：为了避免医生的数 据资料丢失，可以在主界面“数 据”选项中将数据备份在指定 位置。备份文件保存在“备份 数据库”文件夹中。 关于软件：本系统主要是为了架起医生与病人之间沟通的桥梁。 动的向用户发送信息；为医院客户提供温馨提示，避免常见病和季节病的发生，并对客户进（图 4.2） 6.2.5帮助模块 （图 5.1 ） 通过对飞信的平台跟踪，自 （图 4.1 ） HCRM：医院客户回访管理系统） SuperWings 第 32页 行跟踪回访，为医院保证固定客户。医院也可以通过此系统接受

28、到用户所需信息， 医生能根 联系我们：我们SuperWings团队的 联系方式都在这里，点击超链接， 就会有对话框跳出，任何技术难题 和软件维护都可以采取以上方式 和我们取得联系。 （图 5.2 ）据病人所需信息为其提供服务。 HCRM医院客户回访管理系统） 第 33页 附件 procedure TMain.FormClose(Sender: TObject; var Action: TCloseAction); / begin if MessageDlg( 退出程序？ ,mtConfirmation,mbYes,mbNo,0)=mryes then begin table1.First; T

29、able1.Locate(Gonghao,gonghao,); table1.Edit; table1.FieldByName(DengLuZhuangtai).AsString:=否; table1.Post; Action := caFree; end else Action := caNone; end; procedure Tmain.N3Click(Sender: TObject); begin table1.First; Table1.Locate(Gonghao,gonghao,); table1.Edit; table1.FieldByName(DengLuZhuangtai)

30、.AsString:=否; table1.Post; close; end; procedure Tmain.N2Click(Sender: TObject); begin table1.DatabaseName:=用户信息； table1.TableName:=用户信息.DB; table1.Active:=true; if main.Caption=医院客户管理系统(未登录)then login.ShowModal else begin Main.Caption:=医院客户管理系统(未登录); table1.First; Table1.Locate(Gonghao,gonghao,); t

31、able1.Edit; table1.FieldByName(DengLuZhuangtai).AsString:=否; table1.Post; Main.N2.Caption:=登录; Main.N8.Enabled:=false; Main.N11.Enabled:=false; Main.N25.Enabled:=false; label1.Caption:=; label3.Caption:=”; label5.Caption:=”; messagebox(handle,注销成功！,信息,mb_ok+mb_iconinformation); end; end; procedure T

32、main.N12Click(Sender: TObject); begin YiShengTianJia.ShowModal; end; procedure Tmain.N14Click(Sender: TObject); beginYiShengChaZhao.ShowModal; end; procedure Tmain.N7Click(Sender: TObject); begin yishengliulan.ShowModal; end; 登录模块代码 HCRM医院客户回访管理系统) 第 34页 procedure Tmain.N13Click(Sender: TObject); be

33、gin bingrentianjia.ShowModal; end; procedure Tmain.N15Click(Sender: TObject); begin bingrenchazhao.ShowModal; end; procedure Tmain.N29Click(Sender: TObject); begin shujubeifen.ShowModal; end; procedure Tmain.N17Click(Sender: TObject); begin bingrenxinxiliulan.ShowModal; end; procedure Tmain.N20Click

34、(Sender: TObject); begin bianjiduanxin.ShowModal; end; procedure Tmain.N30Click(Sender: TObject); begin shujudaoru.ShowModal; end; procedure Tmain.N31Click(Sender: TObject); begin shellexecute(0,open,pchar(ExtractFilePath(Application.ExeName)+数据库),nil,nil,sw_show); end; procedure Tmain.N28Click(Send

35、er: TObject); begin gerenziliaoxiugai.ShowModal; end; procedure Tmain.N16Click(Sender: TObject); begin quanxian.ShowModal; end; procedure Tmain.N23Click(Sender: TObject); begin duanxinqunfa.ShowModal; end; procedure Tmain.N32Click(Sender: TObject); begin yishengxinxixiugai.show; end; procedure Tmain

36、.N18Click(Sender: TObject); begin faxinxiang.ShowModal; end; procedure Tmain.N19Click(Sender: TObject); begin shouxinxiang.ShowModal; end; procedure Tmain.N39Click(Sender: TObject); begin HCRM医院客户回访管理系统) 第 35页 caogaoxiang.ShowModal; end; procedure Tmain.N21Click(Sender: TObject); begin moban.ShowMod

37、al; end; procedure Tmain.N22Click(Sender: TObject); begin zhongyaoxinxi.ShowModal; end; procedure Tmain.N24Click(Sender: TObject); begin xinxishezhi.ShowModal; end; procedure Tmain.N5Click(Sender: TObject); begin guanyuruanjian.ShowModal; end; procedure Tmain.N38Click(Sender: TObject); begin zhengji

38、kaohe.ShowModal; end; procedure Tmain.N34Click(Sender: TObject); begin fasongtongji.ShowModal; end; procedure Tmain.N35Click(Sender: TObject); begin huifutongji.ShowModal; end; procedure Tmain.Timer1Timer(Sender: TObject); begin label2.Caption:=timeToStr(Now); label4.Caption:=dateToStr(Now); end; pr

39、ocedure Tmain.N26Click(Sender: TObject); begin lianxiwomen.showmodal; end; procedure Tmain.FormCreate(Sender: TObject); var ap:TStringList; begin ap:=TStringlist.Create; session.GetAliasNames(ap); if ap.IndexOf(用户信息)=-1 then Session.AddStandardAlias(用户信息 数据库),Paradox); if ap.IndexOf(病人信息)=-1 thenupe

40、rWings HCRM：医院客户回访管理系统) 第 36页 Session.AddStandardAlias(病人信息 if ap.IndexOf(草稿箱)=-1 then Session.AddStandardAlias(草稿箱 if ap.IndexOf(发送限制)=-1 then Session.AddStandardAlias(发送限制 if ap.IndexOf(发信箱)=-1 then Session.AddStandardAlias(发信箱 if ap.IndexOf(模板)=-1 then Session.AddStandardAlias(模板 if ap.IndexOf(收信

41、箱)=-1 then Session.AddStandardAlias(收信箱 if ap.IndexOf(重要信息)=-1 then Session.AddStandardAlias(重要信息 Session.SaveConfigFile; table1.Active:=true; end; procedure Tbianjiduanxin.Button1Click(Sender: TObject); / 短信发送平台代码 var i,j,k,t:integer; begin if memo1.Text= then begin messagebox(handle,短信内容不能为空！ ,提示,

42、mb_ok+mb_iconinformation); exit; end; if comboboxex1.Text= then begin messagebox(handle,收信人不能为空! ,提示,mb_ok+mb_iconinformation); exit; end; i:=0; j:=0; k:=0; t:=0; with table3 do begin first; while not eof do begin if FieldByName(mubiao).AsString=comboboxex1.Text then begin if FieldByName(riqi).AsStr

43、ing=datetostr(now) then begin i:=i+1; end; if now-FieldByName(riqi).AsDateTime8 then数据库),Paradox); 数据库),Paradox); 数据库),Paradox); 数据库),Paradox); 数据库),Paradox); 数据库),Paradox); 数据库),Paradox); HCRM：医院客户回访管理系统) uperWings 第 37页 begin j：=j+1； end; if now-FieldByName(riqi).AsDateTime31 then begin k:=k+1; en

44、d; end; next; end; end; with table4 do begin first; if FieldByName(tian).AsInteger=i then t:=1; if FieldByName(xingqi).AsInteger=j then t:=1; if FieldByName(yue).AsInteger=k then t:=1; end; if t=0 then begin with table3 do begin append; FieldByName(mubiao).AsString:=comboboxex1.Text; FieldByName(riq

45、i).AsDateTime:=now; FieldByName(neirong).AsString:=memo1.Text; post; end; messagebox(handle,发送成功！,提示,mb_ok+mb_iconinformation); end else begin jinggao.ShowModal; if jinggao.Label3.Caption=1 then begin with table3 do begin append; FieldByName(mubiao).AsString:=comboboxex1.Text; FieldByName(riqi).AsDa

46、teTime:=now; FieldByName(neirong).AsString:=memo1.Text; post; end; messagebox(handle,发送成功!,提示,mb_ok+mb_iconinformation); end; end; winexec(C:Documents and SettingsChen 桌面 病人关怀系统 短信 短信发送程序 HCRM医院客户回访管理系统) 第 38页 libfx.exe,SW_SHOWNORMAL); keybd_event(ord(1),mapvirtualkey(0,0),0,0); keybd_event(ord(3),m

47、apvirtualkey(1,0),0,0); keybd_event(ord(6),mapvirtualkey(2,0),0,0); keybd_event(ord(1),mapvirtualkey(3,0),0,0); keybd_event(ord(6),mapvirtualkey(4,0),0,0); keybd_event(ord(5),mapvirtualkey(5,0),0,0); keybd_event(ord(8),mapvirtualkey(6,0),0,0); keybd_event(ord(6),mapvirtualkey(7,0),0,0); keybd_event(

48、ord(3),mapvirtualkey(8,0),0,0); keybd_event(ord(3),mapvirtualkey(9,0),0,0); keybd_event(ord(8),mapvirtualkey(0,0),0,0); keybd_event(vk_tab,mapvirtualkey(vk_tab,0),0,0); keybd_event(ord(1),mapvirtualkey(1,0),0,0); keybd_event(ord(1),mapvirtualkey(3,0),0,0); keybd_event(ord(1),mapvirtualkey(4,0),0,0);

49、 keybd_event(ord(1),mapvirtualkey(9,0),0,0); keybd_event(ord(2),mapvirtualkey(1,0),0,0); keybd_event(ord(2),mapvirtualkey(3,0),0,0); keybd_event(ord(2),mapvirtualkey(2,0),0,0); keybd_event(ord(2),mapvirtualkey(9,0),0,0); keybd_event(vk_tab,mapvirtualkey(vk_tab,0),0,0); keybd_event(vk_return,mapvirtu

50、alkey(vk_return,0),0,0); setcursorpos(1000,400); mouse_event(MOUSEEVENTF_LEFTDOWN,0,0,0,0); mouse_event(MOUSEEVENTF_LEFTUP,0,0,0,0); end; procedure Tbianjiduanxin.Button2Click(Sender: TObject); begin duanxinqunfa.show; duanxinqunfa.Memo1.Lines:=bianjiduanxin.Memo1.Lines; end; procedure Tbianjiduanxi

51、n.FormCreate(Sender: TObject); var i:integer; begin tablel.First; for i:=0 to Table1.RecordCount-1 do begin comboboxex1.Items.Add(table1.FieldValuesxinming); 向下拉列表中添加用户名 Table1.Next; end; end; procedure Tbianjiduanxin.Button3Click(Sender: TObject); HCRM医院客户回访管理系统) 第 39页 begin close; end; procedure T

52、bianjiduanxin.Button4Click(Sender: TObject); begin moban.ShowModal; end; procedure Tbianjiduanxin.Button6Click(Sender: TObject); begin if memo1.Text= then begin messagebox(handle,短信内容不能为空！ ,提示,mb_ok+mb_iconinformation); exit; end; tianjiamoban.Memo1.Text:=Memo1.Text; tianjiamoban.Show; end; procedur

53、e Tbianjiduanxin.Button7Click(Sender: TObject); begin caogaoxiang.show; end; procedure Tbianjiduanxin.Button5Click(Sender: TObject); begin if memo1.Text= then begin messagebox(handle,短信内容不能为空！ ,提示,mb_ok+mb_iconinformation); exit; end; if comboboxex1.Text= thencomboboxex1.Text:=; with table2 do begin

54、 append; FieldByName(mubiao).AsString:=comboboxex1.Text; FieldByName(riqi).AsDateTime:=now; FieldByName(neirong).AsString:=memo1.Text; post; end; messagebox(handle,保存成功！,提示,mb_ok+mb_iconinformation); end; HCRM：医院客户回访管理系统) uperWings 第 40页 procedure Tquanxian.Button2Click(Sender: TObject); / 病人信息的修改，增

55、加，删除 var i:integer; begin label5.Caption:=请选择要添加的病人:; Table1.Locate(xingming,Comboboxex1.Text,); table2.First; comboboxex2.Clear; for i:=0 to Table2.RecordCount-1 do begin if table2.FieldValuesguanliyishengTable1.FieldValuesgonghao then comboboxex2.Items.Add(table2.FieldValuesxinming); Table2.Next;

56、end; end; procedure Tquanxian.Button3Click(Sender: TObject); var i:integer; begin label5.Caption:=请选择要删除的病人:; Table1.Locate(xingming,Comboboxex1.Text,); table2.First; comboboxex2.Clear; for i:=0 to Table2.RecordCount-1 do begin if table2.FieldValuesguanliyisheng=Table1.FieldValuesgonghao then combob

57、oxex2.Items.Add(table2.FieldValuesxinming); Table2.Next; end; end; procedure Tquanxian.FormCreate(Sender: TObject); var i:integer; begin Table1.First; for i:=0 to Table1.RecordCount-1 do begin comboboxex1.Items.Add(table1.FieldValuesxingming); Table1.Next; end; end; procedure Tquanxian.ComboBoxEx1Ch

58、ange(Sender: TObject); var i:integer; HCRM：医院客户回访管理系统) uperWings 第 41页 begin memo1.Text:=”; Table1.Locate(xingming,Comboboxex1.Text,); edit1.Text:=Table1.FieldValuesquanxian; table2.First; for i:=0 to Table2.RecordCount-1 do begin if table2.FieldValuesguanliyisheng=Table1.FieldValuesgonghao memo1.Te

59、xt:=memo1.Text+table2.FieldValuesxinming+ Table2.Next; end; end; procedure Tquanxian.Button1Click(Sender: TObject); begin Table1.Locate(xingming,Comboboxex1.Text,); table1.Edit; if Table1.FieldValuesquanxian=普通then begin table1.fieldvaluesquanxian:=管理员; edit1.Text:=管理员; end else begin table1.fieldva

60、luesquanxian:=普通; edit1.Text:=普通; end; tablel.Post; end; procedure Tquanxian.Button5Click(Sender: TObject); begin close; end; procedure Tquanxian.Button6Click(Sender: TObject); begin close; end; procedure Tquanxian.Button4Click(Sender: TObject); begin Table1.Locate(xingming,Comboboxex1.Text,); Table