详细设计实验报告模板 门诊管理系统.docx
《详细设计实验报告模板 门诊管理系统.docx》由会员分享，可在线阅读，更多相关《详细设计实验报告模板 门诊管理系统.docx（15页珍藏版）》请在冰点文库上搜索。
详细设计实验报告模板门诊管理系统
实验（实习）报告
实验（实习）名称详细设计日期12.10得分指导教师
系专业年级班次姓名学号
一、实验目的
以概要设计为基础，通过对门诊管理系统系统的详细设计，掌握算法描述工具的使用，能够完成每个模块的算法设计和数据结构的设计。
能够独立完成一个门诊管理系统信息系统的详细设计工作。
二、实验要求
应用软件工程课程中介绍的详细设计的方法和技术确定门诊管理系统系统中每个模块的算法，能够应用常用设计技术和方法完成相关设计工作。
为后续编码阶段提供依据和指导。
三、实验内容
完成门诊管理系统系统的详细设计，确定系统中每个模块的算法。
.
四、实验步骤
1.背景
2.程序（模块）系统的组织结构
3.各程序（模块）的设计说明
4.模块相互关系表
五、实验总结
1.1
.开发人员:
沈天威
.指导老师：
李振宏
2.程序（模块）系统的组织结构：
5.
3.登录模块
用于验证用户的登录。
不同的用户成功登录后显示的窗体是不一样的。
这是每个系统都应该具有的功能，在这里我要特别的介绍一下了。
别小看了一个普通的登录模块，它包含的用户需求可以是有几十条的。
比如：
用户不能重复登录，输入三次密码错误后，应该锁定用户的账号，记住密码功能等等。
程序设计代码：
PublicClassLoginForm1
'TODO:
插入代码，以使用提供的用户名和密码执行自定义的身份验证
'（请参见
'随后自定义主体可附加到当前线程的主体，如下所示:
'My.User.CurrentPrincipal=CustomPrincipal
'其中CustomPrincipal是用于执行身份验证的IPrincipal实现。
'随后，My.User将返回CustomPrincipal对象中封装的标识信息
'如用户名、显示名等
PrivateSubOK_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesOK.Click
Me.Close（）
EndSub
PrivateSubCancel_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesCancel.Click
End
Me.Close（）
EndSub
PrivateSubLoginForm1_Load（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesMyBase.Load
EndSub
EndClass
主键面模块设计：
程序设计代码：
PublicClassForm1
DimxmlAsSystem.Xml.XmlDocument
DimnodesetAsSystem.Xml.XmlNode
DimnodegetAsSystem.Xml.XmlNode
DimelmAsSystem.Xml.XmlElement
PrivateStructureinfo
Diminfo1AsString
Diminfo2AsString
Diminfo3AsString
Diminfo4AsString
Diminfo5AsString
Diminfo6AsString
Diminfo7AsString
Diminfo8AsString
EndStructure
PrivateSubButton5_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesButton5.Click
End
EndSub
PrivateSubButton3_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesButton3.Click
DimghinfoAsinfo
ghinfo.info1=TextBox1.Text
ghinfo.info2=TextBox2.Text
ghinfo.info3=TextBox3.Text
ghinfo.info4=TextBox4.Text
ghinfo.info5=TextBox5.Text
ghinfo.info6=TextBox6.Text
ghinfo.info7=TextBox7.Text
ghinfo.info8=TextBox8.Text
setinfo（ghinfo,"gh"）
EndSub
PrivateSubForm1_Load（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesMyBase.Load
LoginForm1.ShowDialog（）
DimxmldecAsSystem.Xml.XmlDeclaration
Dimelm1AsSystem.Xml.XmlElement
Dimelm2AsSystem.Xml.XmlElement
Dimxml1AsSystem.Xml.XmlDocument
Dimxml2AsSystem.Xml.XmlDocument
xml1=NewSystem.Xml.XmlDocument
xml2=NewSystem.Xml.XmlDocument
If（NotSystem.IO.File.Exists（"gh.xml"））Then
xmldec=xml1.CreateXmlDeclaration（"1.0","gb2312",vbNullString）
xml1.AppendChild（xmldec）
elm1=xml1.CreateElement（"","gh",""）
xml1.AppendChild（elm1）
xml1.Save（"gh.xml"）
EndIf
If（NotSystem.IO.File.Exists（"ky.xml"））Then
xmldec=xml2.CreateXmlDeclaration（"1.0","gb2312",vbNullString）
xml2.AppendChild（xmldec）
elm1=xml2.CreateElement（"","ky",""）
xml2.AppendChild（elm1）
xml2.Save（"ky.xml"）
EndIf
EndSub
PrivateFunctionsetinfo（ByValdataAsinfo,ByValcodeAsString）
DimrootAsSystem.Xml.XmlNode
DimnodeAsSystem.Xml.XmlElement
xml=NewSystem.Xml.XmlDocument
xml.Load（code+".xml"）
root=xml.SelectSingleNode（code）
node=xml.CreateElement（"node"）
node.SetAttribute（"info1",data.info1）
node.SetAttribute（"info2",data.info2）
node.SetAttribute（"info3",data.info3）
node.SetAttribute（"info4",data.info4）
node.SetAttribute（"info5",data.info5）
node.SetAttribute（"info6",data.info6）
node.SetAttribute（"info7",data.info7）
node.SetAttribute（"info8",data.info8）
root.AppendChild（node）
xml.Save（code+".xml"）
MsgBox（"信息添加成功！
",MsgBoxStyle.OkOnly,"提示"）
EndFunction
PrivateSubButton2_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesButton2.Click
DimkyinfoAsinfo
kyinfo.info1=TextBox9.Text
kyinfo.info2=TextBox10.Text
kyinfo.info3=TextBox11.Text
kyinfo.info4=TextBox12.Text
kyinfo.info5=TextBox13.Text
kyinfo.info6=TextBox14.Text
kyinfo.info7=TextBox15.Text
kyinfo.info8=TextBox16.Text
setinfo（kyinfo,"ky"）
EndSub
PrivateFunctiongetinfo（ByValstrAsString,ByValcodeAsString,ByRefretAsinfo）
DimrootAsSystem.Xml.XmlNode
DimnodelistAsSystem.Xml.XmlNodeList
DimnodeAsSystem.Xml.XmlElement
'DimretAsinfo
xml=NewSystem.Xml.XmlDocument
xml.Load（code+".xml"）
root=xml.SelectSingleNode（code）
nodelist=xml.SelectSingleNode（code）.ChildNodes
If（str<>""）Then
ForEachnodeInnodelist
If（node.GetAttribute（"info1"）=strOrnode.GetAttribute（"info8"）=str）Then
ret.info1=node.GetAttribute（"info1"）
ret.info2=node.GetAttribute（"info2"）
ret.info3=node.GetAttribute（"info3"）
ret.info4=node.GetAttribute（"info4"）
ret.info5=node.GetAttribute（"info5"）
ret.info6=node.GetAttribute（"info6"）
ret.info7=node.GetAttribute（"info7"）
ret.info8=node.GetAttribute（"info8"）
EndIf
Next
EndIf
EndFunction
PrivateSubButton4_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesButton4.Click
DimstrAsString
DimghinfoAsinfo
str=TextBox1.Text
getinfo（str,"gh",ghinfo）
TextBox1.Text=ghinfo.info1
TextBox2.Text=ghinfo.info2
TextBox3.Text=ghinfo.info3
TextBox4.Text=ghinfo.info4
TextBox5.Text=ghinfo.info5
TextBox6.Text=ghinfo.info6
TextBox7.Text=ghinfo.info7
TextBox8.Text=ghinfo.info8
EndSub
PrivateSubButton1_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesButton1.Click
DimstrAsString
DimghinfoAsinfo
str=TextBox16.Text
getinfo（str,"ky",ghinfo）
TextBox9.Text=ghinfo.info1
TextBox10.Text=ghinfo.info2
TextBox11.Text=ghinfo.info3
TextBox12.Text=ghinfo.info4
TextBox13.Text=ghinfo.info5
TextBox14.Text=ghinfo.info6
TextBox15.Text=ghinfo.info7
TextBox16.Text=ghinfo.info8
EndSub
EndClass
门诊管理vbproj
xmlversion="1.0"encoding="utf-8"?
>
Debug
AnyCPU
8.0.50727
2.0
{29BC2906-E18B-4CEB-9ED5-0EB6B808726D}
WinExe
门诊管理.My.MyApplication
门诊管理
门诊管理
WindowsForms
true
full
true
true
bin\Debug\
门诊管理.xml
42016,41999,42017,42018,42019,42032,42036,42020,42021,42022
pdbonly
false
true
true
bin\Release\
门诊管理.xml
42016,41999,42017,42018,42019,42032,42036,42020,42021,42022
Form1.vb
Form
LoginForm1.vb
Form
True
Application.myapp
True
True
Resources.resx
True
Settings.settings
True
Form1.vb
Designer
Designer
LoginForm1.vb
VbMyResourcesResXFileCodeGenerator
Resources.Designer.vb
My.Resources
Designer
MyApplicationCodeGenerator
Application.Designer.vb
SettingsSingleFileGenerator
My<
升级会员 