区内医院地理信息管理系统毕业设计 摘要【摘要】随着技术的发展，通过图形图像的形式来表达计算机系统信息内容和主题是其他表现方式所无法比拟的。区内医院地理管理系统从其外在表现来说是一种功能强大的电子地图，操作方便灵活。我们可以通过电脑地图直观地查询医院所在区位的地理信息位置、分布情况以及其他相关信息。它迅速、直观、简洁、精准，为市民提供了更具人性化的服务。基本上搭起了数字化基础框架平台。使计算机系统的应用更直观、更容易理解和更生动形象化。使现代化管理更上一个台阶。区内医院地理管理系统，改变了长期以来广大市民靠地图来查询医院地理位置的模式，实现了基础的计算机动态管理。我们还可以随时对区内医院地理位置的信息进行增加、删除以及变更。为市民提供全方位的服务。本系统将根据城市的地理位置对医院信息进行常规设置（包括添加、查看、修改、删除），方便用户查找详细的医院信息资源。本系统在设计的时候应该满足以下几个目标： l 系统最大限度地实现了易安装性、易维护性和易操作性。 l 系统运行稳定、安全可靠。 l 软件结构清晰，功能一目了然。 l 根据地理位置对医院进行添加及删除，方便顾客查看的同时也避免因医院发生变动给顾客带来不便。 l 简单、快捷的医院信息查询。 l 根据需要随时对医院详细信息进行增加、修改、删除等操作。【关键词】 电子地图 区内医院地理信息管理系统 0 引言随着技术的发展，通过图形图像的形式来表达计算机系统信息内容和主题是其他表现方式所无法比拟的。区内医院地理管理系统从其外在表现来说是一种功能强大的电子地图，操作方便灵活。我们可以通过电脑地图直观地查询医院所在区位的地理信息位置、分布情况以及其他相关信息。它迅速、直观、简洁、精准，为市民提供了更具人性化的服务。基本上搭起了数字化基础框架平台。使计算机系统的应用更直观、更容易理解和更生动形象化。使现代化管理更上一个台阶。区内医院地理管理系统，改变了长期以来广大市民靠地图来查询医院地理位置的模式，实现了基础的计算机动态管理。我们还可以随时对区内医院地理位置的信息进行增加、删除以及变更。为市民提供全方位的服务。 1 需求分析 1.1 需求分析通过市场调查，要求本系统具有以下功能： l 界面友好、操作方便灵活。 l 强大的医院信息查询功能，最大限度地满足您的需要。 l 规范、完善的基础信息设置。 l 依据医院的变动情况对医院信息可增加、可删除，确保信息的准确。 1.2 可行性分析随着医疗事业的不断发展，为顾客提供方便、快捷、周到的查询服务已迫在眉捷，根据顾客的需求，本系统将地理位置与各大医院的实际情况结合，开发了功能强大的电子地图式医院信息管理系统，功能强大的电子地图式信息查询系统，操作方便灵活，图形化显示界面是其他表现方式所无法比拟的，它将多系列、枯燥的数据源，通过图形的点，线，面表现方式，将数据迅速直观，简了又极其精确的表现出来，更深层次的提高了计算机应用管理水平。是顾客搜寻医疗部门信息的首选。 2 总体设计 2.1 项目规划区内医院地理信息管理系统是一个典型的医院信息查询系统，系统主要实现的功能包括：医院的添加、删除以及对医院详细信息的添加、查看及修改。以最大的限度满足顾客对医疗信息的需求。规划系统功能模块如下： l 医疗部分的添加及删除 l 对医院重命名 l 添加及修改医院的详细信息 2.2 系统功能结构区内医院地理信息管理系统的功能结构如图1所示。若图片无法显示请联系QQ3710167 3 系统设计 3.1 设计目标本系统将根据城市的地理位置对医院信息进行常规设置（包括添加、查看、修改、删除），方便用户查找详细的医院信息资源。本系统在设计的时候应该满足以下几个目标： l 系统最大限度地实现了易安装性、易维护性和易操作性。 l 系统运行稳定、安全可靠。 l 软件结构清晰，功能一目了然。 l 根据地理位置对医院进行添加及删除，方便顾客查看的同时也避免因医院发生变动给顾客带来不便。 l 简单、快捷的医院信息查询。 l 根据需要随时对医院详细信息进行增加、修改、删除等操作。 3.2 开发及运行环境系统开发平台：Microsoft Visual FoxPro 6.0。运行平台：Windows XP/ Windows 2000/ Windows 2003 分辨率：最佳效果1024×768像素 3.3 数据库设计本系统采用的是Visual FoxPro自带的数据库，数据库文件名为database。由于篇幅所限，关于数据库中的数据表请参见附录B。 4 主要功能模块设计 4.1 程序主界面的设计程序主界面的设计的好坏往往会影响到软件的整体形象，因此首先要处理好主程序窗体的设计问题。这一点非常重要，因此这使很多的程序开发者都付出自己很多的心思与汗水。主程序窗体界面也包含着整个系统程序所要完成的主要功能。区内医院地理管理系统主程序运行结果如图2所示。若图片无法显示请联系QQ3710167 图2 主程序运行结果 1．表单设计（1）新建一个表单，将表单的名称设置为“Form1”，BorderStyle属性设置为“3-可调边框（默认）”，设置Picture属性，为表单添加图片，设置Caption属性为“区内医院地理信息管理”，设置ShowWindown属性为“2-设为顶层表单”，设置TitleBar属性为“0-关闭”，设置WindowState属性为“2-最大化”，设置ShowTips属性为“True”。（2）在表单上添加Shape控件、Timer控件、Image控件（3）设置控件的属性，其重要属性如表1所示。表1 重要属性及值对象属性值 ShapeBackStyle透明 TimerEnabledTrue TimerInterval0 ImageStretch0剪载（默认值） ImagePicture=sys(5)+sys(2003)+"\images\滚动\img_1.JPG" ImageKeyPreview.F. ImageShowWindow2-作为顶层表单 ImageWindowState2-最大化 2．代码设计 Map控件的Init事件中添加如下代码设置图片控件的picture属性。
区内医院地理信息管理系统毕业设计 This.Picture=Sys(5)+Sys(2003)+"\Images\长春.JPG" Map控件的MouseDown事件的相关程序代码如下所示： LPARAMETERS nButton, nShift, nXCoord, nYCoord *获取鼠标的坐标值 cbuff=space(16) mymouse=GetCursorPos(@cBuff) MouseX=ASC(substr(cBuff,2,1))*256+ASC(substr(cBuff,1,1)) MouseY=ASC(substr(cBuff,6,1))*256+ASC(substr(cBuff,5,1)) Flag=.T. *改变光标的形状 thisform.Map.MousePointer=99 thisform.Map.MouseICON=sys(5)+sys(2003)+"\Images\mycursor.CUR" Map控件的MouseMove事件的相关程序代码如下所示： LPARAMETERS nButton, nShift, nXCoord, nYCoord MyX=nXCoord MyY=nYCoord Map控件的MouseUp事件的相关程序代码如下所示： LPARAMETERS nButton, nShift, nXCoord, nYCoord Flag=.F. *恢复光标为系统默认光标 thisform.Map.MousePointer=0 Form1表单中的load事件的相关程序代码如下所示： Set Safety OFF public x,y,Down_x,Down_y,MouseX,MouseY,Flag,Ctrl_Count,MyX,MyY,Flag_Init public formname formname=thisform Store 0 To MouseX,MouseY Declare integer GetCursorPos in user32 String@ lpPoint &&声明API函数 *获取鼠标的坐标值 cbuff=space(16) mymouse=GetCursorPos(@cBuff) MouseX=ASC(substr(cBuff,2,1))*256+ASC(substr(cBuff,1,1)) MouseY=ASC(substr(cBuff,6,1))*256+ASC(substr(cBuff,5,1)) Store .F. To Flag,Flag_Init Ctrl_Count=3 Timer1控件中的Timer事件的相关程序代码如下所示： Open Database Database\Database.dbc &&打开数据库文件 Use Database\Tab_Create *获取鼠标的坐标值 cbuff=space(16) mymouse=GetCursorPos(@cBuff) x=ASC(substr(cBuff,2,1))*256+ASC(substr(cBuff,1,1)) y=ASC(substr(cBuff,6,1))*256+ASC(substr(cBuff,5,1)) **************鼠标移动到屏幕边缘时，图片自动移动****************** if X=0 and thisform.Map.left<0 thisform.Map.left=thisform.Map.left+7 &&地图向右移 Go Top Do While !Eof() CtrlName=Alltrim(Tab_Create.名称) Thisform.&CtrlName..Left=thisform.&CtrlName..left+7 SKIP EndDo endif if Y=0 and thisform.Map.top<0 thisform.Map.top=thisform.Map.top+7 &&地图向下移 Go Top Do While !Eof() CtrlName=Alltrim(Tab_Create.名称) Thisform.&CtrlName..Top=thisform.&CtrlName..Top+7 SKIP EndDo endif if X>thisform.left+thisform.width and thisform.Map.left+thisform.Map.width>thisform.width thisform.Map.left=thisform.Map.left-7 &&地图向左移 Go Top Do While !Eof() CtrlName=Alltrim(Tab_Create.名称) Thisform.&CtrlName..Left=thisform.&CtrlName..left-7 SKIP EndDo endif if Y>thisform.top+thisform.height and thisform.Map.top+thisform.Map.height>thisform.height thisform.Map.top=thisform.Map.top-7 &&地图向下移 Go Top Do While !Eof() CtrlName=Alltrim(Tab_Create.名称) Thisform.&CtrlName..Top=thisform.&CtrlName..Top-7 SKIP EndDo endif ****************拖动图时，图片跟随鼠标时实移动********************* If Flag=.T. If MouseX!=X OR MouseY!=Y thisform.Map.left=thisform.Map.left-MouseX+x thisform.Map.top=thisform.Map.top-MouseY+y *医院位置随地图移动 Go Top Do While !Eof() CtrlName=Alltrim(Tab_Create.名称) Thisform.&CtrlName..Left=thisform.&CtrlName..left-MouseX+x Thisform.&CtrlName..Top=thisform.&CtrlName..Top-MouseY+y SKIP EndDo *到左边界时 If Thisform.Map.Left>0 Thisform.Map.Left=0 Go Top Do While !Eof() CtrlName=Alltrim(Tab_Create.名称) Thisform.&CtrlName..Left=Tab_Create.X值-24 SKIP EndDo Endif *到上边界时 If Thisform.Map.Top>0 Thisform.Map.Top=0 Go Top Do While !Eof() CtrlName=Alltrim(Tab_Create.名称) Thisform.&CtrlName..Top=Tab_Create.Y值-23 SKIP EndDo Endif *到底边界时 If ABS(Thisform.Map.Top)+Thisform.Height>Thisform.Map.Height Thisform.Map.Top=-(Thisform.Map.Height-Thisform.Height) Go Top Do While !Eof() CtrlName=Alltrim(Tab_Create.名称) Thisform.&CtrlName..Top=Thisform.Height-(Thisform.Map.Height-Tab_Create.Y值)-23 SKIP EndDo Endif *到右边界时 If ABS(Thisform.Map.Left)+Thisform.Width>Thisform.Map.Width Thisform.Map.Left=-(Thisform.Map.Width-Thisform.Width) Go Top Do While !Eof() CtrlName=Alltrim(Tab_Create.名称) Thisform.&CtrlName..Left=Thisform.Width-(Thisform.Map.Width-Tab_Create.X值)-24 SKIP EndDo Endif MouseX=ASC(substr(cBuff,2,1))*256+ASC(substr(cBuff,1,1)) MouseY=ASC(substr(cBuff,6,1))*256+ASC(substr(cBuff,5,1)) Endif Endif Use Close Database Timer2控件中的Timer事件的相关程序代码如下所示： If Flag_Init=.F. SET PROCEDURE TO MyProg &&打开过程文件 Do AddCtrl with thisform &&调用过程显示医院信息 Flag_Init=.T. Endif This.Interval=0
区内医院地理信息管理系统毕业设计 4.2 系统登录界面设计运行区内医院地理管理程序时，将进入“系统登录”界面，其运行结果如图3所示 若图片无法显示请联系QQ3710167 图3 系统登录运行结果 1．表单设计（1）新建一个表单，将表单的名称设置为“Form1”，Caption属性设置为“系统登录”、AutoCenter属性为“True”，设置WindowState属性为“0-普通”，设置WindowType属性为“0-无模式”，设置ShowWindow属性为“2-作为顶层表单”。（2）在表单中添加Label控件、Text控件、Command控件。（3）设置表单、控件的属性，其重要属性如表2所示。表2 重要属性及值对象属性值 LabelAutoSizeTrue TextBackStyle1-不透明 TextBorderColor255,255,255 TextSpecialEffect1-平面 2．代码设计登录按钮中的Click事件的相关代码如下所示：
区内医院地理信息管理系统毕业设计 if empty(alltrim(thisform.manager.value)) messagebox("请输入管理员名称！",48,"系统提示！") else if empty(thisform.PWD.value) messagebox("请输入密码！",48,"系统提示！") return else no=0 Open Database Database\Database.dbc &&打开数据库文件 Use Database\tab_manager set exact on &&设置字符精确比较 locat for 管理员名称=alltrim(thisform.manager.value) &&定位记录 if found() if alltrim(tab_manager.密码)==alltrim(thisform.PWD.value) UserStatus=.T. thisform.release do form form/区内医院地理信息管理 else no=no+1 if no>=3 messagebox("登录失败！",16,"系统提示！") _screen.visible=.t. _screen.top=0 quit &&关闭表单 else messagebox("您输入的密码不正确！",16,"系统提示！") thisform.PWD.value="" thisform.PWD.setfocus() endif endif else no=no+1 if no>=3 messagebox("登录失败！",16,"系统提示！") _screen.visible=.t. _screen.top=0 quit &&关闭表单 else messagebox("您输入的管理员名称错误！",16,"系统提示！") thisform.manager.value="" thisform.PWD.value="" thisform.manager.setfocus() endif endif endif endif use Close Database 取消按钮中的click事件下的相关程序代码如下所示： thisform.manager.value="" thisform.PWD.value="" thisform.manager.setfocus() 普通用户进入按钮的click事件的相关程序代码如下所示： thisform.release UserStatus=.F. do form form/区内医院地理信息管理退出按钮的click事件的相关程序代码如下所示： _screen.visible=.t. _screen.top=0 quit &&关闭表单
区内医院地理信息管理系统毕业设计 4.3 添加新医院模块程序设计通过单击鼠标右键可以进行新医院的添加操作，此时将弹出一个添加新医院的窗体，在相应的文件框中输入所要添加的新医院名称，再单击“确定”按钮将成功地添加所指定的新医院。添加新医院程序设计结果如图4所示。若图片无法显示请联系QQ3710167 图4 添加新医院设计结果 1．表单设计（1）新建一个表单，将窗体的名称设置为“Form1”，BorderStyle属性设置为“2-固定对话框”，设置Caption属性为“添加新医院”，设置ShowWindow属性设为“1-在顶层表单中”，设置WindwType属性为“1-模式”设置AutoCenter属性为“True”。（2）在表单上添加Label控件、Text控件、Command控件。（3）设置控件的属性，其重要属性如表3所示。表3 重要属性及值对象属性值 LabelAutoSizeTrue TextSpecialEffect0-3维 CommandColorScheme1-用户窗口 2．代码设计通过单击确定按钮成功添加新医院，其关键代码如下所示： If !Empty(Alltrim(Thisform.Text1.Value)) HospitalName=Alltrim(Thisform.Text1.Value) Thisform.Release SET PROCEDURE TO MyProg &&打开过程文件 Do CreateHospital &&调用过程创建新医院 Endif 附录A 参考文献 1．《Visual Basic精彩编程200例》机械工业出版社 赛奎春、高春艳等 2003年1月 2．《Visual Basic数据库开发实例解析》机械工业出版社 刘志铭、高春艳等 2003年8月 3．《Visual FoxPro数据库开发实例解析》机械工业出版社 王晶莹、王国辉等 2003年9月 4．《Power Builder数据库开发实例解析》机械工业出版社 华传铭、张振坤等 2003年9月 5．《Delphi数据库开发实例解析》机械工业出版社 赛奎春、郑骁鹏等 2004年2月 6．《PowerBuilder 精彩编程200例》机械工业出版社 张振坤、李文立等 2004年9月 7．《Visual FoxPro 精彩编程200例》机械工业出版社 王国辉、董韶华等 2004年9月 8．《ASP数据库开发实例解析》机械工业出版社 李严、于亚芳、王国辉 2004年12月 9．《Delphi工程应用与项目实践》机械工业出版社 宋坤、赵智勇等 2005年1月 10．《Visual Basic工程应用与项目实践》机械工业出版社 高春艳、李俊民等 2005年1月 11．《Visual C＋＋工程应用与项目实践》机械工业出版社 张雨、阮伟良等 2005年1月 12．《JSP工程应用与项目实践》机械工业出版社 陈威、白伟明、李楠 2005年2月 13．《ASP工程应用与项目实践》机械工业出版社 王国辉、牛强、李南南 2005年4月 14．《Visual Basic 信息系统开发实例精选》机械工业出版社 高春艳、李俊民、张耀庭等 2005年7月 15．《ASP 信息系统开发实例精选》机械工业出版社 王国辉、牛强、李南南等 2005年7月 16．《Delphi 信息系统开发实例精选》机械工业出版社 宋坤、赵智勇、刘强等 2005年7月 17．《Visual foxpro数据库开发关键技术与实例应用》人民邮电出版社 周桓、张雨、王国辉 2004年5月 18．《Power Builder数据库开发关键技术与实例应用》人民邮电出版社 刘志铭、张振坤、冯文萃 2004年5月 19．《Delphi数据库开发关键技术与实例应用》人民邮电出版社 赛奎春、陈紫鸿、宋昆 2004年5月 20．《Visual basic数据库开发关键技术与实例应用》人民邮电出版社 高春艳、李艳 2004年5月 21．《Visual C++ 管理信息系统完整项目实例剖析》人民邮电出版社 明日科技 2005年7月 22．《Visual Basic 管理信息系统完整项目实例剖析》人民邮电出版社 明日科技 2005年7月 23．《PowerBuilder 管理信息系统完整项目实例剖析》人民邮电出版社 明日科技 2005年7月 24．《Visual FoxPro管理信息系统完整项目实例剖析》人民邮电出版社 明日科技 2005年7月 25．《SQL Server数据库开发实例解析》机械工业出版社 宋昆、李严等 2006年1月 26．《Access数据库开发实例解析》机械工业出版社 李俊民、高春燕等 2006年1月 27．《Visual Basic数据库系统开发完全手册》人民邮电出版社 明日科技王春才、高春艳、李俊民 2006年3月 28．《Visual C++ 数据库系统开发完全手册》人民邮电出版社 明日科技 王端、于速、张雨 2006年3月 29．《Delphi数据库系统开发完全手册》人民邮电出版社 明日科技 宋坤、邹天思 2006年3月 30．《JSP数据库系统开发完全手册》人民邮电出版社 明日科技 王国辉、李文立、杨亮 2006年3月 31．《Visual Basic数据库系统开发案例精选》人民邮电出版社 明日科技 高春艳、李俊民、刘彬彬 2006年5月 32．《Delphi 数据库系统开发案例精选》人民邮电出版社 明日科技 李文立、刘强、梁冰 2006年5月 33．《ASP数据库系统开发案例精选》人民邮电出版社 明日科技 孙明丽、邹天思、盖天宇 2006年5月 34．《JSP数据库系统开发案例精选》人民邮电出版社 明日科技 王国辉、王易 2006年5月
区内医院地理信息管理系统毕业设计附录B 数据表表4 tab_create数据表字段名数据类型长度索引名称字符型20升序标题字符型50 x值数值型4 y值数值型4 表5 tab_hospital数据表字段名数据类型长度索引编号字符型20升序名称字符型50 地址字符型100 电话字符型20 负责人字符型10 院长字符型10 规模字符型50 电子信箱字符型100 网址字符型100 月用药量字符型200 表6 tab_manager数据表字段名数据类型长度索引管理员名称字符型20升序密码字符型30 附录C 文件架构主文件架构如图5所示。若图片无法显示请联系QQ3710167
