课程设计报告--医院住院部信息管理系统

《课程设计报告--医院住院部信息管理系统》由会员上传分享，免费在线阅读，更多相关内容在学术论文-天天文库。

1、专业课程设计报告题目：医院住院部信息管理系统专业软件工程学生姓名班级学号指导教师指导单位南京邮电大学计算机学院日期2014-6-9至2014-6-20评分细则评分项优秀良好中等差遵守机房规章制度上机时的表现学习态度程序准备情况程序设计能力团队合作精神课题功能实现情况算法设计合理性用户界面设计报告书写认真程度内容详实程度文字表达熟练程度回答问题准确度简短评语教师签名：年月日评分等级备注评分等级有五种：优秀、良好、中等、及格、不及格一、一．课题名称：医院住院部信息管理系统二．设计目标：按照软件工程的规范，以SQ

2、LServer2000为后台数据库，建议以delphi为前端开发工具，设计并实现一个医院住院部信息管理系统。三．需求描述：医院的住院部管理非常复杂，它涉及众多诸如病人的信息、每天的具体费用、住院期间的总费用等问题，因此，设计本系统，完成病人住院登记、每天费用录入、费用查询、总费用统计等功能，具体需求如下：1．住院登记，用于录入住院病人的信息，包括编号、姓名、性别、年龄、病房号、床号、住院日期、工作单位、病因、预交押金等信息，同时可浏览、添加、删除、编辑记录。2．费用录入，用于录入病人每天费用清单，包括编号、

3、姓名、护理等级、结算日期、护理费、床位费、注射费、药费、治疗费、手术费等，同时可浏览、添加、删除、编辑记录。3．费用查询，提供主从界面，当在主表中浏览病人信息时，从表中将显示当前对应记录病人的所有费用记录。4．总费用统计，在此页面中单击“开始统计”按钮，表格中将依次显示各病人的预交押金、总费用以及剩余或赊欠的费用，同时，文本框将显示催款名单，若无人欠款，将显示“没有任何病人赊欠费用”。四．具体设计本次实验以SQLServer2000为后台数据库，以delphi7.0为前端开发工具，OS为WinXPsp1系统

4、。住院部信息管理系统用一个数据库和两张表进行存储两张表的内容如下：数据库：医院住院管理表：1、基本信息表基本信息用于录入存储住院病人的信息，包括编号、姓名、性别、年龄、病房号、床号、住院日期、工作单位、病因等信息具体设置如下-23-2．医院信息表医院信息用于录入病人每天费用清单，包括编号、姓名、护理等级、预交押金，结算日期、护理费、床位费、注射费、药费、治疗费、手术费等具体设置如下其中，总费用=([手术费]+[治疗费]+[护理费]+[床位费]+[注射费]+[药费])剩余费用=([预约金]-[总费用])（当为

5、-的时候为赊欠）在前端Delphi开发中最终用到了5个form。分别为登录，导航，住院登记，费用录入，信息查询和总揽统计。五．详细设计系统自动生成的：1.programProject1;usesForms,Unit1in'Unit1.pas'{Form1},Unit3in'Unit3.pas'{Form3},Unit4in'Unit4.pas'{Form4},Unit5in'Unit5.pas'{Form5},Unit7in'Unit7.pas'{Form7},Unit2in'Unit2.pas'{Form

6、2};{$R*.res}-23-beginApplication.Initialize;Application.CreateForm(TForm1,Form1);Application.CreateForm(TForm3,Form3);Application.CreateForm(TForm4,Form4);Application.CreateForm(TForm5,Form5);Application.CreateForm(TForm7,Form7);Application.CreateForm(TFor

7、m2,Form2);Application.Run;end.2.Form1登陆界面确认按钮被单击判断edit1和edit2的数据，当为admin密码为admin进入导航（管理员权限）为123密码为123，进入普通用户界面仅支持查询procedureTForm1.Button1Click(Sender:TObject);beginifedit1.Text=''thenbeginshowmessage('账号不能为空');exit;end;ifedit2.Text=''thenbeginshowmessage(

8、'密码不能为空');exit;end;if(Edit1.Text='admin')and(Edit2.Text='admin')thenbegin-23-Form4.Button1.Enabled:=True;//from4下的空间Button1属性Enabled为true，admin可调用。若为false则没有权限，下同。Form4.Button2.Enabled:=True;Form4.Button3.Ena