医院预约挂号管理系统的设计与实现毕业论文.doc

毕 业 论 文 学生姓名学生姓名学学 号号 学院学院 计算机科学与技术学院 专专 业业软件工程 题题 目目医院预约挂号管理系统的设计与实现 指导教师指导教师 姓 名 专业技术职称 学位 1 摘摘 要 要 当今的社会科技高速发展 信息技术日新月异 计算机化的医院预约挂号管 理系统已成为现代化医院运营过程中必不可少的一部分 本文介绍了医院预约挂号管理 系统的基本设计方法 详细阐述了整个应用系统的设计思路 本系统主要具备 医生信 息管理 病人信息管理 医生科室查询 预约管理等功能模块 关关 键键 词 词 医院系统的实现 SQL 数据库系统 ASP NET 2 Abstract Today s society rapid development of science and technology information technology computerized hospital appointment register management system management system has become an essential part of modern hospital operation process Hospital appointment register management system management system were introduced in this paper the basic design method in detail elaborated the design idea of the whole application system this system mainly have physician information management information management doctor department inquiry booking management function module etc Keywords the realization of the HIS hospital system SQL database system ASP NET 3 目目 录录 1 绪论 4 1 1 研究背景与意义 4 1 2 研究动机与目的 4 1 3 数据库系统简介 4 1 4 ASP NE 简述 5 2 可行性研究与应用需求分析 5 2 1 可行性研究 5 2 2 需求分析 6 3 系统分析 7 3 1 工作流程图 7 3 2 系统功能图 8 3 3 系统简介 8 4 数据库设计 9 4 1 E R 图 9 4 2 主要数据库表设计 10 5 系统实现及编码 11 5 1 系统后台的实现及其登录模块的实现 11 5 2 医生资料操作模块 23 5 3 预约管理模块 24 5 4 用户管理界面管理 31 5 5 病人管理模块 33 5 6 病人登录模块的实现 33 5 7 病人预约模块 35 5 8 查询模块 38 6 系统测试 43 总 结 44 参 考 文 献 45 致 谢 46 4 1 1 绪论绪论 1 11 1 研究背景与意义研究背景与意义 在手工业时代 企业对医院的各项管理的运作是停留在以纸 笔为主要工具的阶段 到后来 随着信息量的快速增长 这种传统的手工操作的方法已无法迅速 准确的完成 各项管理工作 当医院意识到这点之后 纷纷开始重视医院管理 进入 20 世纪之后 随 着系统 信息技术 管理工具的进步以及计算机的普及 许多医院开始利用计算机进行 预约管理 从而提高了处理的速度与精度 在计算机飞速发展的今天 将计算机这一信 息处理利器应用于医院的日常管理已是势必所然 这也将为医院预约挂号管理提供了很 多的便利 医院预约挂号管理的科学化和现代化给医院和老百姓都带来了很大的便利 主要体现在 极大提高了医院工作人员的工作效率 同时降低了管理中的漏洞 解决了 异地和不便出家门的患者看病难的问题 大大减少了人们等挂号的时间等等 1 21 2 研究动机与目的研究动机与目的 医院预约挂号管理系统是每一个医疗机构管理平常挂号业务流程不可或缺的一个管 理信息系统 它的存在解决了病人挂号难 看病难等问题 所以医院预约挂号管理系统 应该能够为每一个需要看病的患者提供充足的信息和快捷的查询手段 大大的方便了求 医困难的广大人民群众 医院预约挂号管理是现代化医院的核心环节之一 它在整个医 院管理中占有越来越重要的地位 从前 医院预约与查询管理都非常的耗时耗力 同时 由于采用手工操作 查询和统计的方式各不相同 不可避免造成一些错记漏记的错误 因此 开发这样一套医院预约挂号管理软件成为很有必要的事情 对于我们这些即 将毕业的计算机专业学生来说 也是一次将专业知识应用于现实的很有意义的实践活动 1 31 3 数据库系统数据库系统简介简介 本人设计的是一个医院预约挂号管理的数据库系统 通过这个系统管理员可以简捷 方便的对用户 医生资料进行增加 删除 查询等功能 本系统采用 SQL 建立数据库 然后建立数据源的链接 并且生成医院预约挂号管理 的数据库应用程序从而实现数据库的管理功能 SQL Structured Query Language 结构查询语言 是一个功能强大的数据库语言 SQL语句 通常用于完成一些数据库的操作任务 比如在数据库中更新数据 或者从数据库中检索 数据 使用 SQL 的常见关系数据库管理系统有 Oracle Sybase Microsoft SQL Server Access Ingres等等 4 数据库系统本质上是一个用计算机存储记录的系统 系统用户可以对这些文件执行 插 5 入数据 检索数据 更改数据 删除数据等一系列操作 图 1 1 是一个数据库系统 的简图 图 1 1 数据库系统简图 1 41 4 ASP NETASP NET 简述简述 A 是建立在通用语言运行时刻库 CLR 上的应用程序框架 他用来在服务器 端构建功能强大的 web 应用程序 A 提供了几个超越以前 web 开发模式的优点 增强的性能 强大而富有弹性 简单 易于管理 可伸缩性和有效利用性 可订制和扩展 安全性 ASP NET 一般分为两种开发语言 VB NET 和 C C 相对比较常用 因为是 NET 独有的语言 VB NET 则为以前 VB 程序设计 适合于以前 VB 程序员 ASP net 是运行一 些很平常的任务如表单的提交客户端的身份验证 分布系统和网站配置变得非常简单 另外 通用语言简化开发使把代码结合成软件简单的就像吃饭 ASP net 使用一种字符基 础的 分级的配置系统 使你服务器环境和应用程序的设置更加简单 因为配置信息都 保存在简单文本中 新的设置有可能都不需要启动本地的管理员工具就可以实现 2 2 可行性研究与应用需求分析可行性研究与应用需求分析 2 12 1 可行性研究可行性研究 该阶段通过对系统目标的初步调研和分析 提出可行性方案并进行论证 我们在这 6 里主要从技术 经济 使用等方面来分析解决问题的可行性 2 1 12 1 1 技术可行性技术可行性 通过在学校的学习 积累了一定的知识与经验 在拥有的配置不低的开发工具与硬 件与软件方面的资源 满足了本系统的要求 虽然开发人的技术水平不高 但是通过网 上插好资料与借阅学校的图书资源自主学习 ASP NET SQL Server 2005 等基本课程 以 及导师和同学的帮助 在规定的期限内能够基本完成本系统所需的开发任务 2 1 22 1 2 经济可行性经济可行性 开发人在同学的帮助下在私人笔记本上安装并且完善了所需要的开发工具和环境 大大降低了开发经费 本系统不需要专门培训系统操作人员 大大减少了投入的成本 避免了人员与金钱 时间的浪费 2 1 32 1 3 使用可行性使用可行性 本系统主要从操作方式能否被广大人民所接受使用的角度考虑 开发人尽量的简化 操作步骤 开发出便捷的操作方法与美化友好的操作界面使用户能尽快上手 功能符合 医生与患者的需求 本系统对用户要求极低 只需具备基本的计算机操作知识与素养 不需要特殊的技术能力 管理员只需定期维护后台 并且具备 SQL 的使用能力即可 2 1 42 1 4 社会可行性社会可行性 本系统是通过大量的调查研究 根据医院预约挂号的实际工作流程开发研制的 综上所述 本系统从技术 经济 使用 社会上看都是完全可靠的 2 22 2 需求分析需求分析 本系统需求分析可以从使用的人群与模块的功能两部分考虑 并且对系统的性能和硬 件环境方面做了简要说明 2 2 12 2 1 面向的用户群面向的用户群 1 求医的人群 只要有一台联网的电脑 需要求医的患者通过登录网址进入网页 注册成为用户 用户可以通过查询医生或者科室找到医生资料 选择医生进行预约挂号 还可以修改密码 查找预约信息和个人资料 2 系统管理员 管理员可以对自己的信息进行修改 还可以添加别的管理员 管理 员不仅可以对医生信息进行编辑 还可以管理病人的资料以及通过身份证号查询病人是 否存在 同时管理员还可以对预约信息进行处理 7 2 2 22 2 2 主要的模块功能分析主要的模块功能分析 本系统主要实现的功能及其特点分析 第一 医院预约挂号管理系统需要各种数据的应用 需要各种数据的管理 这里将 以 SQL Server 作为数据库开发工具来设计数据库 包括各种基本表的建立 包括医生信息表 预约挂号表 病人信息表 管理员信息表 以及各个表间的 连接等等 第二 每个系统都需要管理员进行管理 设置用户 这里将设置一个用户管理模块 实现对用户的管理 所有权负责人有权对预约信息管理员和预约人进行添加 修改和删除 以及查看用户的资料等 第三 为了提供医生资料的详细信息 专门有功能提供医生资料的输入及管理 第四 病人资料的录入方便了系统对病人相关资料的管理 第五 为了方便医生的查找 病人可以通过输入医生姓名或者所需要预约挂号的科室 查找所求的医生 并且选择日期进行预约 第六 管理员根据医生的工作时间 设置病人可以预约到医生的时间段 病人必须在 改时间段内选择预约医生的日期 3 3 系统分析系统分析 3 13 1 工作流程图工作流程图 4 选择科室 选择专家 3 预约挂号 3 修改信息 3 专家查询 3 选择科室 5 选择可预 约的医生 7 预约成功 6 选择时段 确定预约 8 就诊 图 3 1 预约挂号工作流程 8 3 23 2 系统功能图系统功能图 3 33 3 系统简介系统简介 科学技术的飞速发展 使得各行业的竞争非常激烈 医院这个行业也不例外 为了 提高管理的效率和操作的简单化 制作这预约挂号管理系统是顺应而生并且还是十分必 要的 该系统特别适用中小型医院 针对医院规模不大 人手不足等特点 并且解决了 病人 求医难 挂号难 等问题 实现了不走出家门 不用去医院排队也能预约医生 充分利用了时间 便利了广大的求医群众 合理安排了看病时间 本系统操作满足了医 院预约挂号的日常需求 操作易于上手 无需培训操作人员 节约了人力成本 我的目标就是开发一个功能实用 操作灵便 简单明了且低成本的医院预约挂号管 理系统 本系统基于ASP NET 技术 采用 SQL Server2005据库 在设计时力求作到界面简洁 风 格统一 操作简便 易于上手等特点 本系统主要包括 医生资料管理 病人资料管理 用户管理 预约管理等 具体特点 极大地提高了医务人员的工作效率 加快了病人就诊的速度 有效地解决了 看病 难 挂号难 的问题 提高了医院的综合管理水平和服务质量 图 3 2 系统功能结构 医院预约挂号管理系统 用 户 注 册 修 改 密 码 医 生 资 料 查 询 个 人 资 料 查 询 个 人 预 约 信 息 病 人 用 户 管 理 员 用 户 管 理 医 生 资 料 管 理 病 人 资 料 管 理 预 约 信 息 管 理 9 4 4 数据库设计数据库设计 4 14 1 E RE R 图图 医生与病人 管理员之间的 E R 图 真实姓名 真实姓名 预 约 医 生 医生编号 从医年限 专 长 毕业院校 医生姓名 职 称 年 龄 科 室 病 人 真实姓名 性 别 密 码 年 龄 身份证号 症 状 管 理 管理员 管理员 编号 管理员名 称 密 码 预约信息 预约时间 预约人 预约医生 科 室 专 长 预约编号 管 理 管 理 图 4 1 E R 图 10 4 24 2 主要数据库表设计主要数据库表设计 通过各种渠道分析医院预约挂号管理的基本流程 以及医生与病人之间的联系得出 E R 图 4 1 本系统采用 SQL Server 2005 数据库管理系统 并建立了名为 yuyue 的数据 库 本系统所要使用的所有数据信息都存储在这个数据库里 在设计过程中需要考虑数据完整性约束 数据库上的完整性的约束条件一般有两类 1 属性值的约束 这类约束是对属性取值的类型 范围 精度等的限制 和属性的语义有关 2 数据之间联系的约束 这类约束反映了数据之间存在的联系 在关系数据模型中指多个属性或多个元组之 间联系的约束 比如 属性之间的函数依赖 多值依赖 在许多数据模型中都是表明了 数据之间的某些依赖关系的 或者是隐式的或者是显式的 以下列举部分数据表 1 管理员表 tb user 表 4 1 管理员表 tb user 字段名数据类型长度主键否描述 idint 4 是管理员编号 usernamevarchar 50 50 管理员名称 userpwdvarchar 50 50 登录密码 usertypevarchar 50 50 评论日期 2 预约表 yuyue 表 4 2 预约表 yuyue 字段名数据类型长度主键否描述 idint 4 是预约编号 sidvarchar 50 50 病人编号 didvarchar 50 50 医生编号 varchar 50 50 3 病人表 sick 表 4 3 病人表 sick 字段名数据类型长度主键否描述 idvarchar 50 50 是昵称 passwordvarchar 50 50 登录密码 renamevarchar 50 50 真实姓名 agevarchar 50 50 年龄 sexvarchar 50 50 性别 zzvarchar 50 50 症状 Sidvarchar 50 50 身份证号 11 4 医生表 doctor 表 4 4 医生表 doctor 字段名数据类型长度主键否描述 idint 4 是医生编号 namevarchar 50 50 医生姓名 agevarchar 50 50 年龄 byyxvarchar 50 50 毕业院校 cynxvarchar 50 50 从医年限 keshivarchar 50 50 科室 zhichengvarchar 50 50 职称 zhuanchangvarchar 50 50 专长 maxvarchar 50 50 可预约数 remainvarchar 50 50 剩余预约数 operatorTimevarchar 50 50 预约开始时间 operatorvarchar 50 50 预约结束时间 5 5 系统实现及编码系统实现及编码 5 15 1 系统后台的实现及其登录模块的实现系统后台的实现及其登录模块的实现 5 1 15 1 1 系统后台实现代码系统后台实现代码 1 后台公共函数编写 描述 公用 js 函数库 var oPopup window createPopup 取指定对象的x坐标 function getx e var l e offsetLeft while e e offsetParent l e offsetLeft return l 取指定对象的y坐标 function gety e var t e offsetTop while e e offsetParent t e offsetTop 11 return t 12 显示popup窗体 c 窗体内容obj x 相对o的x坐标距离 y 相对o的y坐标距离 w 宽度 h 高度 如果设置为则自行获取默认高度 o 相对于何obj function showpopup c x y w h o oPopup document body innerHTML c innerHTML oPopup document createStyleSheet document styleSheets 0 href var popupBody oPopup document body oPopup show 0 0 w 0 h h 0 popupBody scrollHeight h oPopup hide oPopup show x y w h o 提取xml根节点 function getxmldoc url var oXMLDoc new ActiveXObject MSXML oXMLDoc url url var ooRoot oXMLDoc root return ooRoot 所有gif图片鼠标经过效果 鼠标经过后显示的图片文件名在原图片名后加 over function imgover obj if obj locked true return 如果对象被锁定 则不触发事件 if typeof obj object return false if obj tagName IMG 不是img对象则退出 return false var r re 声明变量 var ss obj src re gif b i 创建正则表达式模式 r ss replace re over gif 加上 over obj src r obj behave over 所有gif图片鼠标按下效果 鼠标按下后显示的图片文件名在原图片名后加 down 13 function imgdown obj if obj locked true return 如果对象被锁定 则不触发事件 if obj tagName IMG 不是img对象则退出 return false var r re 声明变量 var ss obj src if obj behave over re over gif b i r ss replace re down gif if obj behave re gif b i 创建正则表达式模式 r ss replace re down gif 加上 down obj src r obj behave down 所有gif图片鼠标按下效果 鼠标经过后显示的图片文件名在原图片名后加 over function imgup obj if obj locked true return 如果对象被锁定 则不触发事件 if typeof obj object return false if obj tagName IMG 不是img对象则退出 return false var r re 声明变量 var ss obj src re down gif b i 创建正则表达式模式 r ss replace re over gif obj src r obj behave over 所有gif图片鼠标移出效果 鼠标经过后显示的图片文件名在原图片名后去掉 over function imgout obj if typeof obj object return false if obj tagName IMG 不是img对象则退出 return false var r re 声明变量 var r ss obj src if obj behave over 14 re over gif b i r ss replace re gif if obj behave down re down gif b i r ss replace re gif obj src r obj behave 所有样式表鼠标经过效果 鼠标经过后原样式表在后加over function classover obj if obj locked true return 如果对象被锁定 则不触发事件 if typeof obj object return false if obj behave over return var ss obj className var r ss over 加上over obj className r obj behave over 所有样式表鼠标移出效果 鼠标移出后原样式表在后去掉over function classout obj if obj locked true return 如果对象被锁定 则不触发事件 if typeof obj object return false var r re 声明变量 var ss obj className if obj behave over re over b i 创建正则表达式模式 r ss replace re if obj behave down re down b i 创建正则表达式模式 r ss replace re obj className r obj behave 所有样式表鼠标按下效果 鼠标按下后原样式表在后加上down 15 function classdown obj if obj locked true return 如果对象被锁定 则不触发事件 if typeof obj object return false var r re 声明变量 var ss obj className re over b i 创建正则表达式模式 r ss replace re down obj className r obj behave down 所有样式表鼠标释放效果 鼠标释放后原样式表在后 function classup obj if obj locked true return 如果对象被锁定 则不触发事件 if typeof obj object return false var r re 声明变量 var ss obj className re down b i 创建正则表达式模式 r ss replace re over obj className r obj behave over 检查日期正确性 function chkDateTime str var reg d 1 4 d 1 2 d 1 2 var r str match reg if r null return false var d new Date r 1 r 2 r 3 if d getFullYear r 1 return false if d getMonth r 2 return false if d getDate r 3 return false return true 16 2 多文档窗口代码实现 最终呈现的界面如下图所示 图 5 1 后台管理主界面 描述 多文档窗口 function mywin this winlist new Array 窗口列表 this maxWins 20 最大窗口数 this tagTitleWidth 150 标签宽度 this indentWidth 10 标签缩进宽度 this currentwin null this addwin addwin 新建窗口方法 this removewin removewin 移除窗体 this removeall removeall 移除所有窗 体 this activewin activewin 激活窗口 this container container this padLeft padLeft 标题离左边缘的距离 this padRight padRight 标题离右边缘的距离 this scrollWidth scrollWidth function container url title for var i 0 i clientwidth titlelist style marginLeft clientwidth padleft if padright clientwidth titlelist style marginLeft mleft if padleft mleft 1 this activewin this winlist con return if this winlist length this maxWins alert 超过最大窗口数限制 this maxWins 请先关闭部分窗口 return false oDIV window document createElement TABLE this winlist this winlist length oDIV 往列表内添加窗体对象 oDIV url url oDIV title title oDIV index this winlist length oDIV className win oDIV width 100 oDIV height 100 oDIV cellSpacing 0 oDIV insertRow insertCell innerHTML var oTitle window document createElement SPAN oTitle className wintitle oTitle style width this tagTitleWidth oTitle style backgroundImage url images tab2 gif oTitle style left this winlist length 1 0 this winlist this winlist length 2 wintitle style pixelLeft this indentWidth oTitle title title title subStr title 16 oTitle innerHTML title null unkown windows title oTitle win oDIV oTitle onclick new Function win activewin this win if this currentwin null this currentwin wintitle style backgroundImage url images tab1 gif 19 this currentwin style display none this currentwin wintitle style zIndex this currentwin index oDIV style zIndex this maxWins 1 oTitle style zIndex this maxWins 1 oDIV wintitle oTitle titlelist insertAdjacentElement beforeEnd oTitle var scrollwidth this scrollWidth if scrollwidth titlelist parentElement clientWidth titlelist style marginLeft titlelist parentElement clientWidth scrollwidth mywindows insertAdjacentElement beforeEnd oDIV this currentwin oDIV return oDIV function scrollWidth var n this winlist length var scrollwidth this tagTitleWidth n this indentWidth n 1 return scrollwidth function removewin obj 移除窗体 if obj null return var temparr new Array var afterwin false for var i 0 i 0 i this removewin this winlist i function tabScroll direction tabScrollStop direction right tabMoveRight tabMoveLeft function tabMoveRight tabMove right 8 timer setTimeout tabMoveRight 10 function tabMoveLeft tabMove left 8 timer setTimeout tabMoveLeft 10 function tabScrollStop clearTimeout timer timer null function tabMove direction speed var mleft parseInt titlelist style marginLeft if isNaN mleft mleft 0 if direction right if titlelist parentElement clientWidth titlelist parentElement scrollWidth tabScrollStop return else titlelist style marginLeft mleft speed else 21 if mleft speed 0 titlelist style marginLeft 0 tabScrollStop return else titlelist style marginLeft mleft speed var timer null var win null var wins new Array function init win new mywin 新建对象 function AddWin Url Title wins wins length win addwin Url Title 添加窗体 function subStr str len var strlength 0 var newstr for var i 0 i 1000 strlength 2 else strlength 1 if strlength len newstr break else newstr str substr i 1 return newstr 22 5 1 25 1 2 后台登录实现后台登录实现 系统管理员只有输入正确的用户名及密码之后才可以进入系统的相关界面进行系统的 操作 相关说明如下 1 界面 图 5 2 系统登录界面 protected void loginuser Click object sender EventArgs e string username TextBox1 Text string userpwd TextBox2 Text try if DbHelperSQL GetSingle select count from tb user where username username and userpwd userpwd ToString 1 Session username username Response Redirect manage index htm else Response Write alert 用户名或者密码错误 请重新输入 history back return catch Exception ex Response Write alert 用户名或者密码错误 请重新输入 history back 23 return 5 25 2 医生资料操作模块医生资料操作模块 医生资料的录入及编辑删除等操作是系统的核心内容 只有输入正确的医生资料 才 能方便用户进行医生预约管理 如下为相关操作的界面 图 5 3 医生管理界面 图 5 4 医生资料输入界面 24 DeleteCommand DELETE FROM doctor WHERE id id InsertCommand INSERT INTO doctor name age byyx cynx keshi zhicheng zhuanchang VALUES name age byyx cynx keshi zhicheng zhuanchang SelectCommand SELECT FROM doctor UpdateCommand UPDATE doctor SET name name age age byyx byyx cynx cynx keshi keshi zhicheng zhicheng zhuanchang zhuanchang WHERE id id protected void Button1 Click object sender EventArgs e DbHelperSQL ExecuteSql string Format insert into doctor values 0 1 2 3 4 5 6 7 8 TextBox1 Text TextBox2 Text TextBox3 Text TextBox4 Text TextBox5 Text TextBox6 Text TextBox7 Text TextBox8 Text TextBox9 Text GridView1 DataBind MyDiv Visible false protected void LinkButton1 Click object sender EventArgs e MyDiv Visible MyDiv Visible 5 35 3 预约管理模块预约管理模块 管理员可以在预约管理模块对预约信息进行删除修改等方面的操作 预约管理界面 如下图所示 25 图 5 5 预约管理模块界面 DeleteCommand DELETE FROM yuyue WHERE id id InsertCommand INSERT INTO yuyue sid did date VALUES sid did date SelectCommand select yuyue id yuyue sid yuyue date name age byyx cynx keshi zhicheng zhuanchang from yuyue doctor where did doctor id 由于医生看病的时间很灵活 有时候会因为出差或者其他原因 那几天或几个月不 能给病人看病 所以有了医生的预约时间设置 当某医生出现以上这种情况时 管理员 应及时给该医生设置一个可以看病时间段 避免病人因为不知情而预约了该医生 如下 图所示 26 图 5 6 医生时间预约设置 输入专家姓名后 依次点击选择按钮 会立刻跳出图 5 日期选择 分别正确选择一 个日期即可 注意开始与结束时间的顺序 图 5 7 日期选择 27 选择日期 normal BACKGROUND C1DA90 today font weight bold BACKGROUND white satday color green BACKGROUND E2F3C0 sunday color red BACKGROUND A8C373 days font size 12px font weight bold BACKGROUND A8C373 中文月份 如果想显示英文月份 修改下面的注释 var months new Array January February March April May June July August September October November December var months new Array 一月 二月 三月 四月 五月 六月 七月 八月 九月 十月 十一月 十二月 var daysInMonth new Array 31 28 31 30 31 30 31 31 30 31 30 31 中文周如果想显示英文的 修改下面的注释 var days new Array Sunday Monday Tuesday Wednesday Thursday Friday Saturday var days new Array 日 一 二 三 四 五 六 function getDays month year 下面的这段代码是判断当前是否是闰年的 if 1 month return 0 year 4 else return daysInMonth month function getToday 得到今天的年 月 日 this now new Date this year this now getFullYear this month this now getMonth this day this now getDate today new getToday function newCalendar today new getToday var parseYear parseInt document all year document all year selectedIndex text var newCal new Date parseYear document all month selectedIndex 1 var day 1 var startDay newCal getDay 28 var daily 0 if today year newCal getFullYear var tableCal document all calendar tBodies dayList var intDaysInMonth getDays newCal getMonth newCal getFullYear for var intWeek 0 intWeek tableCal rows length intWeek for var intDay 0 intDay 0 daily else cell innerText function resetCalendar today new getToday var parseYear parseInt document all year document all year selectedIndex text var newCal new Date parseYear document all month selectedIndex 1 var day 1 var startDay newCal getDay var daily 0 if today year newCal getFullYear var tableCal document all calendar tBodies dayList var intDaysInMonth getDays newCal getMonth newCal getFullYear for var intWeek 0 intWeek tableCal rows length intWeek for var intDay 0 intDay 0 daily else cell innerText function getDate var sDate 这段代码处理鼠标点击的情况 if TD event srcElement tagName if event srcElement innerText var kss fromstr var kss var monthStr document all month value var dateStr event srcElement innerText if monthStr length 1 monthStr 0 monthStr if dateStr length 1 dateStr 0 dateStr sDate document all year value monthStr dateStr var targetDiv eval opener document frmAnnounce kss targetDiv value sDate alert targetDiv window close 30 for var intLoop 0 intLoop months length intLoop document write months intLoop for var intLoop today year 50 intLoop today year 30 intLoop document write intLoop document write days 0 for var intLoop 1 intLoop days length 1 intLoop document write days intLoop document write days intLoop for var intWeeks 0 intWeeks 6 intWeeks document write for var intDays 0 intDays days length intDays document write document write 31 window returnValue function cancel window close function doChangeColor if event srcElement tagName TD var sValue document all txtValue value if document all event srcElement id innerText resetCalendar if sValue document all sValue style background CFF488 event srcElement style background white document all txtValue value event srcElement id 5 45 4 用户管理界面管理用户管理界面管理 在该界面中 每个系统都需要管理员进行管理 设置用户 这里将设置一个用户管理 模块 实现对用户的管理 所有权负责人有权对预约信息管理员进行添加 修改和删除 以及查看用户的资料 设置用户的权限 用户的信息包括 用户编号 姓名 性别 联 系电话 权限等 以及各种管理员对自己密码的修改 界面如下图 32 图 5 8 用户管理界面 DeleteCommand DELETE FROM tb user WHERE id id InsertCommand INSERT INTO tb user username userpwd VALUES username userpwd SelectCommand SELECT id username us