详细设计实验报告模板 门诊管理系统.doc

实验（实习）报告实验（实习）名称 详细设计 日期 12.10 得分 指导教师 系 专业 年级 班次姓名学号 一、 实验目的以概要设计为基础，通过对门诊管理系统系统的详细设计，掌握算法描述工具的使用，能够完成每个模块的算法设计和数据结构的设计。能够独立完成一个门诊管理系统信息系统的详细设计工作。二、 实验要求应用软件工程课程中介绍的详细设计的方法和技术确定门诊管理系统系统中每个模块的算法，能够应用常用设计技术和方法完成相关设计工作。为后续编码阶段提供依据和指导。三、 实验内容完成门诊管理系统系统的详细设计，确定系统中每个模块的算法。.四、 实验步骤1. 背景2. 程序（模块）系统的组织结构3. 各程序(模块)的设计说明4. 模块相互关系表五、 实验总结1. 1I.开发人员:沈天威II.指导老师：李振宏 2. 程序（模块）系统的组织结构：5.3. 登录模块用于验证用户的登录。不同的用户成功登录后显示的窗体是不一样的。这是每个系统都应该具有的功能，在这里我要特别的介绍一下了。别小看了一个普通的登录模块，它包含的用户需求可以是有几十条的。比如：用户不能重复登录，输入三次密码错误后，应该锁定用户的账号，记住密码功能等等。程序设计代码：Public Class LoginForm1 TODO: 插入代码，以使用提供的用户名和密码执行自定义的身份验证 (请参见 /fwlink/?LinkId=35339)。 随后自定义主体可附加到当前线程的主体，如下所示: My.User.CurrentPrincipal = CustomPrincipal 其中 CustomPrincipal 是用于执行身份验证的 IPrincipal 实现。 随后，My.User 将返回 CustomPrincipal 对象中封装的标识信息 如用户名、显示名等 Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click Me.Close() End Sub Private Sub Cancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel.Click End Me.Close() End Sub Private Sub LoginForm1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load End SubEnd Class主键面模块设计：程序设计代码：Public Class Form1 Dim xml As System.Xml.XmlDocument Dim nodeset As System.Xml.XmlNode Dim nodeget As System.Xml.XmlNode Dim elm As System.Xml.XmlElement Private Structure info Dim info1 As String Dim info2 As String Dim info3 As String Dim info4 As String Dim info5 As String Dim info6 As String Dim info7 As String Dim info8 As String End Structure Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click End End Sub Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click Dim ghinfo As info 1 = TextBox1.Text 2 = TextBox2.Text 3 = TextBox3.Text 4 = TextBox4.Text 5 = TextBox5.Text 6 = TextBox6.Text 7 = TextBox7.Text 8 = TextBox8.Text setinfo(ghinfo, gh) End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load LoginForm1.ShowDialog() Dim xmldec As System.Xml.XmlDeclaration Dim elm1 As System.Xml.XmlElement Dim elm2 As System.Xml.XmlElement Dim xml1 As System.Xml.XmlDocument Dim xml2 As System.Xml.XmlDocument xml1 = New System.Xml.XmlDocument xml2 = New System.Xml.XmlDocument If (Not System.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) End If If (Not System.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) End If End Sub Private Function setinfo(ByVal data As info, ByVal code As String) Dim root As System.Xml.XmlNode Dim node As System.Xml.XmlElement xml = New System.Xml.XmlDocument xml.Load(code + .xml) root = xml.SelectSingleNode(code) node = xml.CreateElement(node) node.SetAttribute(info1, 1) node.SetAttribute(info2, 2) node.SetAttribute(info3, 3) node.SetAttribute(info4, 4) node.SetAttribute(info5, 5) node.SetAttribute(info6, 6) node.SetAttribute(info7, 7) node.SetAttribute(info8, 8) root.AppendChild(node) xml.Save(code + .xml) MsgBox(信息添加成功！, MsgBoxStyle.OkOnly, 提示) End Function Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Dim kyinfo As info 1 = TextBox9.Text 2 = TextBox10.Text 3 = TextBox11.Text 4 = TextBox12.Text 5 = TextBox13.Text 6 = TextBox14.Text 7 = TextBox15.Text 8 = TextBox16.Text setinfo(kyinfo, ky) End Sub Private Function getinfo(ByVal str As String, ByVal code As String, ByRef ret As info) Dim root As System.Xml.XmlNode Dim nodelist As System.Xml.XmlNodeList Dim node As System.Xml.XmlElement Dim ret As info xml = New System.Xml.XmlDocument xml.Load(code + .xml) root = xml.SelectSingleNode(code) nodelist = xml.SelectSingleNode(code).ChildNodes If (str ) Then For Each node In nodelist If (node.GetAttribute(info1) = str Or node.GetAttribute(info8) = str) Then 1 = node.GetAttribute(info1) 2 = node.GetAttribute(info2) 3 = node.GetAttribute(info3) 4 = node.GetAttribute(info4) 5 = node.GetAttribute(info5) 6 = node.GetAttribute(info6) 7 = node.GetAttribute(info7) 8 = node.GetAttribute(info8) End If Next End If End Function Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click Dim str As String Dim ghinfo As info str = TextBox1.Text getinfo(str, gh, ghinfo) TextBox1.Text = 1 TextBox2.Text = 2 TextBox3.Text = 3 TextBox4.Text = 4 TextBox5.Text = 5 TextBox6.Text = 6 TextBox7.Text = 7 TextBox8.Text = 8 End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim str As String Dim ghinfo As info str = TextBox16.Text getinfo(str, ky, ghinfo) TextBox9.Text = 1 TextBox10.Text = 2 TextBox11.Text = 3 TextBox12.Text = 4 TextBox13.Text = 5 TextBox14.Text = 6 TextBox15.Text = 7 TextBox16.Text = 8 End SubEnd Class门诊管理vbproj Debug AnyCPU 8.0.50727 2.0 29BC2906-E18B-4CEB-9ED5-0EB6B808726D WinExe 门诊管理.My.MyApplication 门诊管理 门诊管理 WindowsForms true full true true binDebug 门诊管理.xml 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022 pdbonly false true true binRelease 门诊管理.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 Resou