南邮住院课程设计报告

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

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

2．费用录入，用于录入病人每天费用清单，包括编号、姓名、护理等级、结算日期、护理费、床位费、注射费、药费、治疗费、手术费等，同时可浏览、添加、删除、编辑记录。

3．费用查询，提供主从界面，当在主表中浏览病人信息时，从表中将显示当前对应记录病人的所有费用记录。

4．总费用统计，在此页面中单击“开始统计”按钮，表格中将依次显示各病人的预交押金、总费用以及剩余或赊欠的费用，同时，文本框将显示催款名单，若无人欠款，将显示“没有任何病人赊欠费用”。

四．具体设计本次实验以SQL Server 2000为后台数据库，以delphi7.0为前端开发工具，OS为WinXP sp1系统。

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

分别为登录，导航，住院登记，费用录入，信息查询和总揽统计。

五．详细设计系统自动生成的：1.p rogram Project1;usesForms,Unit1 in 'Unit1.pas' {Form1},Unit3 in 'Unit3.pas' {Form3},Unit4 in 'Unit4.pas' {Form4},Unit5 in 'Unit5.pas' {Form5},Unit7 in 'Unit7.pas' {Form7},Unit2 in 'Unit2.pas' {Form2};{$R *.res}beginApplication.Initialize;Application.CreateForm(TForm1, Form1);Application.CreateForm(TForm3, Form3);Application.CreateForm(TForm4, Form4);Application.CreateForm(TForm5, Form5);Application.CreateForm(TForm7, Form7);Application.CreateForm(TForm2, Form2);Application.Run;end.2.Form1登陆界面确认按钮被单击判断edit1和edit2的数据，当为admin密码为admin进入导航（管理员权限）为123密码为123，进入普通用户界面仅支持查询procedure TForm1.Button1Click(Sender: TObject);beginif edit1.Text = '' thenbeginshowmessage('账号不能为空');exit;end;if edit2.Text = '' thenbeginshowmessage('密码不能为空');exit;end;if (Edit1.Text = 'admin') and (Edit2.Text = 'admin') thenbeginForm4.Button1.Enabled := True; //from4下的空间Button1属性Enabled为true，admin可调用。

若为false则没有权限，下同。

Form4.Button2.Enabled := True;Form4.Button3.Enabled := True;Form4.Button4.Enabled := True;Form7.Button2.Enabled := True;Form4.Show;endelse//对于普通用户"123"而言只有查询的权限if(Edit1.Text = '123') and (Edit2.Text = '123') thenbeginForm4.Button1.Enabled := False;Form4.Button2.Enabled := False;Form7.Button2.Enabled := false;Form4.Show;exit;End//判断帐号密码是否正确elsebeginshowmessage('账号密码不正确');endend;3.导航界面ForM4procedure TForm4.Button1Click(Sender: TObject);beginForm5.show;end;procedure TForm4.Button2Click(Sender: TObject);beginForm7.show;end;procedure TForm4.Button3Click(Sender: TObject);beginForm2.show;end;procedure TForm4.Button4Click(Sender: TObject);beginForm3.Show;end;单击不同按钮则进入不同的界面进行操作（普通用户按钮124不可用）4.Form5住院登记文本框输入相符内容，点登记则完成登记登记按钮代码如下procedure TForm5.Button2Click(Sender: TObject); begin//先做好保护工作if edit1.Text = '' thenbeginshowmessage('编号不能为空!');exit;end;//先查看是否已经有病人信息ADOQuery1.Close;ADOQuery1.SQL.Clear;ADOQuery1.SQL.Add('select *');ADOQuery1.SQL.Add('from 医院信息');ADOQuery1.SQL.Add('where 编号='''+Edit1.Text+ '''');ADOQuery1.Prepared;ADOQuery1.Open;ADOQuery1.Active:=true;if ADOQuery1.RecordCount>0 thenbegin//有该信息就弹出一个提示框，然后推出该函数的执行messageBox(0,'已有该病人的信息','Error!',mb_OK);exit;end;//当不存在该病人信息时ADOQuery1.Close;ADOQuery1.SQL.Clear;ADOQuery1.SQL.Add('insert into 基本信息 values(');ADOQuery1.SQL.Add(''''+Edit1.Text+''''+','); //编号ADOQuery1.SQL.Add(''''+Edit2.Text+''''+','); //姓名ADOQuery1.SQL.Add(''''+Edit3.Text+''''+','); //性别ADOQuery1.SQL.Add(''''+Edit4.Text+''''+','); //年龄ADOQuery1.SQL.Add(''''+Edit5.Text+''''+','); //工作单位ADOQuery1.SQL.Add(''''+Edit7.Text+''''+','); //病房号ADOQuery1.SQL.Add(''''+Edit8.Text+''''+','); //床号 ADOQuery1.SQL.Add(''''+edit10.text+''''+','); //住院日期ADOQuery1.SQL.Add(''''+Edit9.Text+''''+')'); //病因 ADOQuery1.ExecSQL;//把DBGrid框的内容进行更新ADOQuery2.Close;ADOQuery2.Open;ADOQuery2.Active:=true;end;查询功能：输入对应编号，在文本框中显示相应信息；procedure TForm5.Button6Click(Sender: TObject);beginif edit1.Text = '' thenbeginshowmessage('编号不能为空!');exit;end;ADOQuery1.Close;ADOQuery1.SQL.Clear;ADOQuery1.SQL.Add('select *');ADOQuery1.SQL.Add('from 基本信息');ADOQuery1.SQL.Add('where 编号='''+Edit1.Text+'''');ADOQuery1.Prepared;ADOQuery1.Open;ADOQuery1.Active:=true;if ADOQuery1.RecordCount=0 thenbegin//有该信息就弹出一个提示框，然后推出该函数的执行 messageBox(0,'没有该病人的信息','Error!',mb_OK); exit;end;ADOQuery1.Close;Adoquery1.sql.clear;Adoquery1.sql.add('select 编号 from 基本信息 where 编号=''' + Edit1.Text + '''');Adoquery1.Open;Edit1.text:=adoquery1.fieldbyname('编号').AsString;ADOQuery1.Close;Adoquery1.sql.clear;Adoquery1.sql.add('select 姓名 from 基本信息 where 编号=''' + Edit1.Text + '''');Adoquery1.Open;edit2.text:=adoquery1.fieldbyname('姓名').AsString;ADOQuery1.Close;Adoquery1.sql.clear;Adoquery1.sql.add('select 性别 from 基本信息 where 编号=''' + Edit1.Text + '''');Adoquery1.Open;Edit3.text:=adoquery1.fieldbyname('性别').AsString;ADOQuery1.Close;Adoquery1.sql.clear;Adoquery1.sql.add('select 年龄 from 基本信息 where 编号=''' + Edit1.Text + '''');Adoquery1.Open;Edit4.text:=adoquery1.fieldbyname('年龄').AsString;ADOQuery1.Close;Adoquery1.sql.clear;Adoquery1.sql.add('select 工作单位 from 基本信息 where 编号=''' + Edit1.Text + '''');Adoquery1.Open;Edit5.text:=adoquery1.fieldbyname('工作单位').AsString;ADOQuery1.Close;Adoquery1.sql.clear;Adoquery1.sql.add('select 住院日期 from 基本信息 where 编号=''' + Edit1.Text + '''');Adoquery1.Open;edit10.text:=adoquery1.fieldbyname('住院日期').AsString;ADOQuery1.Close;Adoquery1.sql.clear;Adoquery1.sql.add('select 病房号 from 基本信息 where 编号=''' + Edit1.Text + '''');Adoquery1.Open;Edit7.text:=adoquery1.fieldbyname('病房号').AsString;ADOQuery1.Close;Adoquery1.sql.clear;Adoquery1.sql.add('select 床号 from 基本信息 where 编号=''' + Edit1.Text + '''');Adoquery1.Open;Edit8.text:=adoquery1.fieldbyname('床号').AsString;ADOQuery1.Close;Adoquery1.sql.clear;Adoquery1.sql.add('select 病因 from 基本信息 where 编号=''' + Edit1.Text + '''');Adoquery1.Open;Edit9.text:=adoquery1.fieldbyname('病因').AsString;end;（同样能将信息输出到右边的DBGrid1里）修改按钮：功能：先查询，将要修改的数据填写到对面文本框，点修改即可，对应DBGRID也会修改并显示修改后的内容。