成绩：数据库技术与应用课程设计题目：医院门诊挂号系统班级：软件2班姓名：林苾湲学号：20112723日期：评语：签字：1系统总体设计方案1.1系统实现目标本系统是一个功能强大、操作使用简单、智能化、可扩展性、集成有效性和垮平台的医院门诊挂号系统。1.2系统功能模块设计图1.2.1功能模块其中各模块的信息维护还包括对各类信息的增删改查操作。后台管理（权限管理）若为超级管理员，则可进行用户的增删改查由于多组合查询功能比较简单，只需输入相关查询的条件即可进行多组合模糊查询，因此在此并没有画出查询子系统的总体结构。1.3数据库设计1.3.1数据库表设计数据库表的命名是用表名的英文或英文缩写，编程实现简单易记。(1)用户信息表Tuser：保存系统使用者的信息，包括用户名及其密码。(2)医生资料表TDoctor:保存医生信息，包括医生所属的科室。(3)科室资料表TDepartment:保存科室分类信息，如分为内科、外科。(4)病人信息表TPatient:保存病人的基本信息，以后可以重复使用。(5)门诊挂号表TRegister:保存门诊病人挂号的信息。(6)门诊挂号类型表TRegisterType:保存门诊挂号类型分类信息及其挂号价格，如普通号、专家号。1.3.2数据库表设计格式说明在前章介绍的实体以及实体之间关系的基础上，形成数据库中表以及各个表之间的关医院门诊挂号系统信息维护门诊管理院长查询医生信息维护科室信息维护首次挂号就诊卡挂号科室挂号量后台信息维护系。医院门诊管理系统数据库中各个表格的设计结果如下面的几个表格所示。每个表格表示在数据库中的一个表。表1-1用户信息表Tuser编号字段名字段代码字段类型允许为空主键外键1用户名UidVarchar(50)NY2姓名UnameVarchar(50)Y3密码UpwdVarchar(50)N4身份证UIDcardVarchar(50)Y表1-2医生资料表TDoctor编号字段名字段代码字段类型允许为空主键外键1医生编号DidVarchar(10)NY2姓名DnameVarchar(50)Y3性别DgenderVarchar(10)Y4身份证DidcardVarchar(20)Y5出生日期DbirthdaydateY6所属科室编号DpmtidVarchar(5)YY7电话DtelVarchar(11)Y表1-3科室资料表TDepartment编号字段名字段代码字段类型允许为空主键外键1科室编号DpmtidVarchar(50)NY2科室名称DpmtnameWarchar(50)N表1-4病人信息表TPatient编号字段名字段代码字段类型允许为空主键外键1病人编号（就诊卡号）PidVarchar(20)NY2姓名PnameVarchar(50)Y3性别PgenderVarchar(10)Y4身份证PidcardVarchar(20)Y5出生日期PbirthdaydateY7电话PtelVarchar(11)Y表1-5门诊挂号表TRegister编号字段名字段代码字段类型允许为空主键外键1挂号RidVarchar(20)NY2病人编号PidVarchar(20)YY3挂号类型编号RtypeidVarchar(10)YY4科室编号DpmtidVarchar(5)YY5医生编号DidVarchar(10)YY6挂号日期RegistDateDatetimeY表1-6门诊挂号类型表TRegisterType编号字段名字段代码字段类型允许为空主键外键1类型编号RtypeidVarchar(10)NY2类型名称Rtypenamevarchar(50)Y3价格RegpriceMoneyY2系统实现2.1PB11.5和SQLSERVER2012连接PB11.5和SQLSERVER2012连接方式有两种，一种是通过ODBC数据源连接数据库，另一种是MSSSQLSERVER专用接口连接数据库。前者首先在计算机ODBC数据源管理器中创建新的数据源，设置好DataSourceName(数据源名称)和DataBase（数据库文件名），然后在PB中建立数据库配置文件（配置文件就是命名了的一组连接到特定数据源或数据库的参数），输入ProfileName(配置文件的名字)和DataSource（定义好的ODBC数据源），点击Connect按钮即可。此外，在通过专用接口连接数据库时还可以使用配置参数文件连接数据库。配置参数文件主要包含数据库名，服务器地址，登录名，登录密码等内容。2.2应用系统的对象在应用程序对象的Open事件中输入如下代码：SQLCA.DBMS="ODBC"SQLCA.AutoCommit=FalseSQLCA.DBParm="ConnectString='DSN=hmis;UID=hisl;PWD=123456'"//连接数据库ConnectusingSQLCA;ifsqlca.sqlcode<>0THENmessagebox("数据库连接出错",SQLCA.SQLerrtext)elseopen(w_login)endif应用程序运行后连接数据库，数据库连接好后就出现系统登录界面，否则退出系统，直至数据库连接成功.在应用程序对象的变量定义窗口中，定...
