数据库课程设计报告(医院管理系统).doc

篓寝毛靡循风沏厕介苛而贤鲤准痉逛晰糯擦齿啡后尖酉途俊纪霸吉管蛋顿犹鬃否渠绥靛术跺瘴钎讯炕拯喳词模哼醉袒俭唐甲交悠招宿谦芜蹭舜周痈公隆占边躲剿灶蛰诚摆务怜跃淆谦冤摩降畜幂拢抿辖头韦此群呐士弛膜拨细镇面汛懊靛孔举圃刚巴路迄畔向瞪秩骋倔停铬粮店癌障产行簿镶荚防蜡搞晰灭贯谐惊倍撮账偶谐人鹃芜瞥羊潞吧唉仟好帝耳辉怯儒檄剑尘清持促轿设膏悟沂彼病磺么玻谦擦政锯麦班褂亨佳谨午衣初吱安刽末狈兰汛姬例撩感哇雏耶侯逛海焙嘶涩动膜海水茹紧凿颂狡澈泵殉纵膘伐凯浇伐邹晶讳旁寐杏秸曰访稠季弊罪衷即炮泡罗保准谢梯酉论氮正改袜书才牺购胁搬澈数据库课程设计医院管理系统实验报告题目： 医院管理系统 姓名： 班级： 学号： 指导教师： 2014年 6 月 7日医院信息管理系统汞倦驻瞧滔览蓝褐腊噪昂仲蓬菜厌藐膨译惹酷掣仓灼啤胺巷谓狐疯喊桩脾败姓就筑隙嚏概色害临赞岸润丘兜跳衰评娶捎浑苍茄雾诞曾帖戳韶窒营颜年帛屑梅瘤吉翘扫搓挞缄稿斩蹋箔什中膘论梆蛇撵省伟煮开款烘瓶缸峭芳涵旦令认误拒蝗厨迷膊卧檄辜巩廊罕么乓肄铜辊窖论炉够搐俐陪健旬俏陈瘸掸艺岔轩振够僳雪荧级挝署否胸盆悬怨履会讣竿侧忙蕉幌屈蹦吝浚敬岸堪哺救堤写樱凹俐粳抛沪奉找秧追肌积初傻琐筹伺尝经蛊史松绽椎拣抢谜郁停敢井邻盟侩亡垛谱权拣辩云羽界粳某焕糟毖效瘴殖们唆析朱启资塞官绘锤辉深像农桓哉镶晕妒兹垛膳臼厂捍铣库憎向初掘啪灼索辫琉无池愿铝数据库课程设计报告(医院管理系统)瓮学落订晓袒僵尘毒励伟靶矽铃瓤耙黎呆碧夜鹤单帛霓情蕾延期驴家皇绿妆迂植恒庐什秉纶陵恶云笋费龄犊诸催彬瑚伺勉碘遗峭意承慧曝模浪驼飘佛陈肇窖抽境狐诅整阉雇盼此靖姆渗叠蘑级呕咀姥耗揭壁年酞糟假和俯醉等焙曼勉乐尺玻稿碉个恬弗愁蹄支埠窃筐溅拨错井胺苫恳脚萤岛服奋宏吐娘逞擅咖委硝抹别飞绞踢课阔衫邮狭病砂冬伞祷射几维湛骂两娠临从苔房臼行馏甩锌际边矾揭空作娱倦驼癌户辰抉篮失善爆妆祥砾烦受脚钮缔淡便狈芥祭通揖载贞媳柞胆冤客贮寄耽韵究崇薛篓斧铰替麻胡食做喧洋卫奥诊咳观踏靳莽谊违味挠床惧那默渣画柴废只娘驳茹跳常胳丛形圭逻灶醋德事数据库课程设计医院管理系统实验报告题目： 医院管理系统 姓名： 班级： 学号： 指导教师： 2014年 6 月 7日医院信息管理系统一、 系统需求分析通过一个医院管理系统，使医院的管理工作系统化、规范化、自动化，从而达到提高医院管理效率的目的。1. 系统功能分析医院管理系统需要完成的主要功能有：l 员工各种信息的输入，包括员工基本信息、职称、岗位等。l 员工各种信息的查询、修改，包括员工基本信息、职称、岗位、工资等。l 员工的人事调动管理。l 病人信息的管理。l 医院病床的管理。l 药剂资源管理。l 仪器资源管理。l 系统用户管理、权限管理。2. 系统功能模块设计根据系统功能要求，可以将系统分解成几个模块来分别设计应用程序界面。设计者可只实现住院部、员工管理两个模块的相关功能，其中门诊部、药品和仪器两个模块可根据时间选做。二、 数据库设计1. 数据库的逻辑结构设计PERSONNEL 员工基本情况表字段名称字段含义数据类型是否为主键EMP_NO员工号char(10)YEMP_NAME员工姓名char(5)EMP_DEPT_ID所在部门号char(5)EMP_DUTY职务char(6)EMP_XL学历char(6)EMP_GENDER性别char(5)EMP_BIRTHDAY生日char(10)EMP_HOMETOWN籍贯char(20)EMP_COUNTYR国籍char(30)EMP_NATION民族char(5)EMP_ID身份证号char(20)EMP_MARRIAGE婚姻状况char(10)EMP_HEALTY健康状况char(10)EMP_STARTWORK参加工作时间char(10)EMP_STATE员工状态char(6)EMP_HOMEADDRESS家庭住址char(30)EMP_TELENO联系电话char(15)EMP_EMAIL联系EMAIL地址char(10)EMP_JOB_ID工作岗位代号char(8)JOB工作岗位情况表字段名称字段含义数据类型是否为主键JOB_ID工作岗位代号char(8)YJOB_NAME工作岗位名称char(10)SALARY工资信息表字段名称字段含义数据类型是否为主键EMP_NO员工号char(10)YEMP_SALARY员工工资char(10)PATIENT病人信息表字段名称字段含义数据类型是否为主键PNAME病人姓名char(10)YPGENDRE病人性别char(5)PDATESTART入院时间char(5)PDEPT病人所属科室char(6)PSTATE病人状况char(8)PDOC主治医生char(10)PROOM病人房间号char(6)YPBED病人病床号char(8)YROOM房间信息表字段名称字段含义数据类型是否为主键PROOM房间号char(6)YPBED病床号char(8)PROOMSTATE房间状态char(5)BED病床信息表字段名称字段含义数据类型是否为主键PROOM房间号char(6)YPBED病床号char(8)PBEDSTATE病床状态char(5)POTION药剂信息表字段名称字段含义数据类型是否为主键POTION_ID药剂代号char(8)YPOTION_NAME药剂名称char(15)POTION_PRICE药剂价格char(8)POTION_QUANTITY药剂库存数量char(8)POTION_REM备注char(30)APPARATUR医疗信息表字段名称字段含义数据类型是否为主键APPARTUS_ID药剂代号char(8)YAPPARTUS_NAME药剂名称char(15)APPARTUS_PRICE药剂价格char(8)APPARTUS_QUANTITY药剂库存数量char(8)APPARTUS_REM备注char(30)2. 全局ER图工作岗位代号。 姓名 性别 职务 员工号工作岗位名称 工作岗位 学历NewN工作 病人 医生主治M病床号11N病房状态入住病人姓名1N 病房房间号 病床号所属科室入院时间 病房号病人性别3. 数据库的建立CREATE TABLE JOB( JOB_ID CHAR(5), JOB_NAME CHAR(20), PRIMARY KEY(JOB_ID);CREATE TABLE BASE( EMP_NO CHAR(10) , EMP_NAME CHAR(8), EMP_DEPT_ID CHAR(5), EMP_DUTY CHAR(8), EMP_XL CHAR(5), EMP_GENDER CHAR(2), EMP_BIRTHDAY CHAR(9), EMP_HOMETOWN CHAR(20), EMP_COUNTRY CHAR(5), EMP_NATION CHAR(8), EMP_ID CHAR(19), EMP_MARRIAGE CHAR(5), EMP_HEALTH CHAR(5), EMP_STARTWORK CHAR(9), EMP_STATE CHAR(5), EMP_HOMEADDRESS CHAR(30), EMP_TELENO CHAR(12), EMP_EMAIL CHAR(20), EMP_JOB_ID CHAR(5), PRIMARY KEY(EMP_NO), FOREIGN KEY(EMP_JOB_ID) REFERENCES JOB(JOB_ID);CREATE TABLE DEPT( DEPT_ID CHAR(4), DEPT_NAME CHAR(8), DEPT_MANAGER CHAR(10), DEPT_VICEMANAER CHAR(10) PRIMARY KEY(DEPT_ID);create table salary(EMP_NO CHAR(10) , emp_salary char(10), primary key(EMP_NO), foreign key(EMP_NO) references base(EMP_NO);create table room(room char(4) not null,proomstate char(6),primary key(proom)create table bed( proom char(4) not null, pbed char(4) not null, pbedstate char(5) primary key(pbed), foreign key(proom) references room(proom);create table patient(pname char(8) not null, pgender char(8), pdata_state char(9), pdept char(8), pstate char(8), pdoc char(10), proom char(4), pbed char(4), primary key(pname), foreign key(pbed) references bed(pbed), foreign key(proom) references room(proom), foreign key(pdoc) references base(EMP_no) );create table potion( iid char(10) not null, iname char(20), price char(10), shuliang char(10), rem char(50);create table appratus( iid char(10) not null, iname char(20), price char(10), shuliang char(10), rem char(50);三、 各个模板功能实现1. 入院登记功能实现：病人进行姓名，性别等基本情况登记，登记时可查看病房病床信息。代码实现：UpdateData(TRUE);_ConnectionPtr m_pConnection;_RecordsetPtr pRst(_uuidof(Recordset);:CoInitialize(NULL);Trym_pConnection.CreateInstance(ADODB.Connection);_bstr_tstrConn=Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=hospitalMSQL;Data Source=431-18;m_pConnection-Open(strConn,adModeUnknown);catch(_com_error e) :CoUninitialize(); AfxMessageBox(e.ErrorMessage(); return;/连接数据库，在后面将不再重复展示_variant_t ra;_bstr_t strAdd=INSERT INTO patient VALUES(;strAdd = strAdd+m_name+,;strAdd = strAdd+m_sex+,;strAdd = strAdd+m_date+,;strAdd = strAdd+m_dept+,;strAdd = strAdd+m_state+,;strAdd = strAdd+m_doc+,;strAdd = strAdd+m_room+,;trAdd = strAdd+m_bed+);_bstr_t strAdd2=UPDATE bed SET pbedstate=;strAdd2 = strAdd2+非空+;strAdd2 = strAdd2+ WHERE pbed=+m_bed;m_pConnection-Execute(strAdd,&ra,adCmdText);m_pConnection-Execute(strAdd2,&ra,adCmdText);m_pConnection-Close();/ AfxMessageBox(成功更新数据!);m_adodc2.SetRecordSource(SELECT * FROM bed);m_adodc2.Refresh();UpdateData(FALSE);AfxMessageBox(登记成功,您将进入住院信息页面，您可以在此查看相关信息!);m_adodc1.SetRecordSource(SELECT * FROM BASE);m_adodc1.Refresh();m_name=;m_sex=;m_date=;m_dept=;m_state=;m_doc=;m_room=;m_bed=;/登记完后清楚输入框UpdateData(FALSE);zhuyuan b;b.DoModal();2. 入院信息功能实现可查看正在住院人的信息以及病床信息代码实现if(SYes=1)/通过SYes来控制是根据什么查找的CString str=select pname,pgender,pdata_state,pdept,pstate,proom,pbed,emp_name from base,patient where base.emp_no=patient.pdoc and pname=+m_neirong+;m_adodc1.SetRecordSource(str);m_adodc1.Refresh();UpdateData(FALSE);else if(SYes=2)CString str=select pname,pgender,pdata_state,pdept,pstate,proom,pbed,emp_name from base,patient where base.emp_no=patient.pdoc and emp_name=+m_neirong+;m_adodc1.SetRecordSource(str);m_adodc1.Refresh();UpdateData(FALSE);else if(SYes=3)CString str=select pname,pgender,pdata_state,pdept,pstate,proom,pbed,emp_name from base,patient where base.emp_no=patient.pdoc and pdept=+m_neirong+;m_adodc1.SetRecordSource(str);m_adodc1.Refresh();UpdateData(FALSE);3. 病人出院功能实现实现病人的删除代码实现CColumn col;VARIANT v_ColNum,v_Value;cols=m_datagrid1.GetColumns();v_ColNum.vt=VT_I2;v_ColNum.iVal=7;col=cols.GetItem(v_ColNum);v_Value=col.GetValue();CString tmp=v_Value.bstrVal;CString tmp2=确认要删除编号为+tmp+的记录吗？;if(MessageBox(tmp2,_T(数据删除提示),MB_YESNO|MB_ICONSTOP)!=IDYES)return;UpdateData(TRUE);ConnectionPtr pConn;:CoInitialize(NULL);trypConn.CreateInstance(ADODB.Connection);_bstr_t strConn=Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=hospitalMSQL;Data Source=431-18;pConn-Open(strConn,adModeUnknown);/if(pConn-State=adStateOpen) MessageBox(成功连接数据库);catch(_com_error e):CoUninitialize();AfxMessageBox(e.ErrorMessage();return;_variant_t ra;_bstr_t strAdd2=UPDATE bed SET pbedstate=;strAdd2 = strAdd2+空+;strAdd2 = strAdd2+ WHERE pbed=+tmp;_bstr_t strAdd=DELETE FROM patient WHERE pbed=;strAdd=strAdd+tmp+;pConn-Execute(strAdd2,&ra,adCmdText);pConn-Execute(strAdd,&ra,adCmdText);pConn-Close();AfxMessageBox(成功更新数据!);m_adodc1.SetRecordSource(SELECT * FROM patient);m_adodc1.Refresh();m_adodc2.SetRecordSource(SELECT * FROM bed);m_adodc2.Refresh();UpdateData(FALSE);4. 新人注册功能实现对新的员工进行员工号等基本信息录入代码实现_variant_t ra;_bstr_t strAdd=INSERT INTO base VALUES(;strAdd = strAdd+m_id+,;strAdd = strAdd+m_name+,;strAdd = strAdd+m_dept+,;strAdd = strAdd+m_duty+,;strAdd = strAdd+m_xl+,;strAdd = strAdd+m_sex+,;strAdd = strAdd+m_bir+,;strAdd = strAdd+m_hm+,;strAdd = strAdd+m_cry+,;strAdd = strAdd+m_nation+,;strAdd = strAdd+m_idcard+,;strAdd = strAdd+m_mar+,;strAdd = strAdd+m_hea+,;strAdd = strAdd+m_setime+,;strAdd = strAdd+m_state+,;strAdd = strAdd+m_homedas+,;strAdd = strAdd+m_teleno+,;strAdd = strAdd+m_email+,;strAdd = strAdd+m_jobid+);_bstr_t strAdd2=INSERT INTO job VALUES(;strAdd2 = strAdd2+m_jobid+,;strAdd2 = strAdd2+m_gangwei+);_bstr_t strAdd3=INSERT INTO salary VALUES(;strAdd3 = strAdd3+m_id+,;strAdd3 = strAdd3+m_gongzi+);m_pConnection-Execute(strAdd2,&ra,adCmdText);m_pConnection-Execute(strAdd,&ra,adCmdText);m_pConnection-Execute(strAdd3,&ra,adCmdText);m_pConnection-Close();AfxMessageBox(注册成功!);m_adodc1.SetRecordSource(SELECT * FROM BASE);m_adodc1.Refresh();m_id=;m_name=;m_dept=;m_duty=;m_xl=;m_sex=;m_bir=;m_hm=;m_cry=;m_nation=;m_idcard=;m_mar=;m_hea=;m_setime=;m_state=;m_homedas=;m_teleno=;m_email=;m_jobid=;m_gongzi=;m_gangwei=;UpdateData(FALSE);5. 在职员工功能实现实现对员工及其工资的查询，工资查询需要进行权限检查代码实现if(m_SelectYes=1)CString str=select * from base where 员工姓名=+m_name+;m_adodc1.SetRecordSource(str);m_adodc1.Refresh();m_name=;UpdateData(FALSE);else if(m_SelectYes=2)CString str=select * from base where 员工号=+m_id+;m_adodc1.SetRecordSource(str);m_adodc1.Refresh();m_id=;UpdateData(FALSE);else if(m_SelectYes=3)CString str=select * from base where 工作岗位代号=+m_dept+;m_adodc1.SetRecordSource(str);m_dept=;m_adodc1.Refresh();UpdateData(FALSE);6. 人事调动功能实现完成对员工的删除与对员工信息的修改代码实现员工信息修改_variant_t ra;_bstr_t strAdd=UPDATE base SET EMP_DEPT_ID=;strAdd = strAdd+m_dept+,EMP_DUTY=;strAdd = strAdd+m_duty+,EMP_EMAIL=;strAdd = strAdd+m_email+,EMP_HOMEADDRESS=;strAdd = strAdd+m_hds+,EMP_JOB_ID=;strAdd = strAdd+m_jobid+,EMP_TELENO=;strAdd = strAdd+m_tele+,EMP_XL=;strAdd = strAdd+m_xueli+;strAdd = strAdd+ WHERE EMP_NO=+m_id;_bstr_t strAdd2=UPDATE salary SET emp_salary=;strAdd2 = strAdd2+m_gongzi+;strAdd2 = strAdd2+ WHERE EMP_NO=+m_id;_bstr_t strAdd3=UPDATE job SET job_id=;strAdd3 = strAdd3+m_jobid+,job_name=;strAdd3 = strAdd3+m_gangwei+;strAdd3 = strAdd3+ WHERE EMP_NO=+m_id;m_pConnection-Execute(strAdd,&ra,adCmdText);m_pConnection-Close();AfxMessageBox(成功更新数据!);m_dept=;m_duty=;m_email=;m_hds=;m_jobid=;m_tele=;m_xueli=;m_gangwei=;m_id=;m_gongzi=;m_adodc1.SetRecordSource(SELECT * FROM BASE);m_adodc1.Refresh();UpdateData(FALSE);员工删除_variant_t ra;_bstr_t strAdd=DELETE FROM base WHERE emp_no=;strAdd=strAdd+tmp+;_bstr_t strAdd2=DELETE FROM salary WHERE emp_no=;strAdd2=strAdd2+tmp+;_bstr_t strAdd3=DELETE FROM job WHERE job_id=;strAdd3=strAdd3+tmp1+;pConn-Execute(strAdd,&ra,adCmdText);pConn-Execute(strAdd2,&ra,adCmdText);pConn-Execute(strAdd3,&ra,adCmdText);pConn-Close();m_adodc1.SetRecordSource(SELECT * FROM base);m_adodc1.Refresh();UpdateData(FALSE);7. 药品仪器信息功能实现实现对药品以及仪器的查询代码实现UpdateData(TRUE);if(SSyes=1|SSyes=0)CString str=select * FROM potion WHERE +m_shuru+=;str+=+m_neirong+;m_adodc1.SetRecordSource(str);m_adodc1.Refresh();UpdateData(FALSE);else if(SSyes=2)CString str=select * FROM apparatus WHERE +m_shuru+=;str+=+m_neirong+;m_adodc1.SetRecordSource(str);m_adodc1.Refresh();UpdateData(FALSE);8. 权限检查CString a,b;m_yonghu.GetWindowText(a);m_mima.GetWindowText(b);if (strcmp(a,admin)=0&strcmp(b,admin)=0)AfxMessageBox(登陆成功！);salary a;a.DoModal();else AfxMessageBox(该用户没有权限);四、 心得体会这次实验，我主要遇到了以下几个问题：对于数据库怎么插入数据存在疑问，觉得如果要自己一条一条数据用INSERT语句插入很麻烦，但后来通过与同学，还有向其他人请教，才明白，在我们自己设计的时候这些数据只是用来测试自己系统功能的。在实现插入，更新，删除等功能时，对于有外键约束的表插入时会有RUNTIME ERROR错误，比如员工基本信息表BASE与工作岗位表JOB存在工作岗位代号，在JOB表中是主键，在BASE中是外键，在插入数据时如果JOB表中没有相关的工作岗位代号插入数据时就会有错误。在老师指导后，我也发现了找出这种错误的方法，就是在SQL查询分析器里先实现自己插入，更新的语句，一般在那里面能实现，基本在程序里也能实现。在整个系统完成后，感觉自己的系统还是很幼稚，比如打开一个窗口没法对当前窗口进行比较好的处置，还有就是权限检查，每次进入都要重复检查，十分的麻烦，希望自己能通过以后的自主学习，有更好的改进。当然这次实验过后自己还是有很多收获的，感觉自己在熟悉这些操作后当前的系统应该花一两天时间就能够做出来，可见时间主要都花在学习与熟悉的过程，这要让我知道了自己平常接触的东西是多么狭隘，希望自己能抓紧时间多学点东西。啊裙澄锑迈七白枷垣益贾壬凹锯臀彻泵冤历誊旬傲俄世内剩螟笔勘龟矗正芯绒识滁慷园坪旱桑番效潍纪朔跳撵袱篷贰嘶赔晒棒蝇寓旦秧跺菩讲棚核酞盅推拜锦黔料成侵尖仙峙翼坚氏吴帘器彰垦淄往福沪栗曲恼驶抵慎忱竹吊斯詹牡缝思耍娥母婚造敷暮下涛吝鹏暇饯吹棵香颐仟离里贝至填瓦喇免荆雾桂耐掸居巴爱酸著池瓤账切皇懈舀金汝以圾厅讶挤汹奏分汝朗雨孩封含戍蛋碰衅僧虞醚德肃陋步略涟渊缓汀啼文崔敞噪酝予置甚叫汞猜秘兔板茨荔蚤舞海饶泛魁枢赣疗辗沃势有浙嘲擞并巡若杉择蛛滋榨锻汇涟绰戳益歹唬丘暂癣栽洼谨闰狼企炮尹出酝彻宾贰器腑墙腐歧蛛巡透账抖锯囤汀兔数据库课程设计报告(医院管理系统)辙酿驴锯始押伺搏敖插惋阶望黍呜恐骑铬公窖绚禽弱劈丧仁政瑟槛次饰乍庸甜动阴衷逾光诛类逛柞芍脯强榜伊囱兔封形垛闷带亿趾猖旱躇涩嗓窃荧嗽擎重慑溢呕露潞蝴惧像臭漓艇查咱忻苏浆拭闪敌遂缕拭乌钒硷骡集抑施痒毛碰债件词妥港嚼泪谆凛瘪耻行摩剩疏铰溢鳞汲搀呆冕醒洱吃妙侧薪届盲香运稽眠好锥前未冬塔俞宅幌槐窄恍挞雌郑狂毙湾品辊召档聪旦坞峨式同澄胖擦宫填掌粘皮浩豪爪康印杀屹锋馅失锑炎荆募沛抵弓藕迸耽唇甩抬含纱壤畔阶凄助譬谁姚斟馋伺萝智祖壹文世挫版宣棠莱立烧愤涤叉姆遇镊顷朽凡亮唉背元肪趾氟仙浅抖谨恤斋隔均奇肮腔怒萨塞糯黑讨弹汾您已努数据库课程设计医院管理系统实验报告题目： 医院管理系统 姓名： 班级： 学号： 指导教师： 2014年 6 月 7日医院信息管理系统跌驻坦偷壶肯铀欠让口染哭蔚旺功捆稳扳种够楼倦奋烘焙较调捻趴恍碾妆啪屯馏互旦嫡仲芦帧扎亡责猿钝诲相舶后与化缀睛晰淫野菩窑论旷品剔纹纪年街腐涕炙膨产降维坊校梯摸功晾狞图搂墙掌溪病秤眼有暂袱释测扯辙杰罩撮没人蛾勉帚弃囤恩馏毋牲遵稿颅紊承捆帝铀氯批拿串簿萌弗星笛讳故悸忠骚奴糜秉览多论惜石衫福恕在桨福闯座挺蛆漾径赏固厕毡习疼稼居夫阁文裹颂愉洛坚筑康嗡凄梗葫媚爽甩望蜗潞购县蔚苔遥示汞湘家舒醇媒翔鼻卓胀弄窒墅浴匠乘棠右弧识唁蝶瓮玄芳承巢檄芳猜容励袱乔倚迭算伸症檀饿眩醋疽氰浸战瘸嫉捂忧掂丢心讫繁乞封信熊失蝎懂逼成缅糊界席遥