仪器设备管理系统设计与实现-ASP语言毕业设计

1、分类号:TP315 U D C:D10621-407-(20XX) 6053-0密 级:公 开 编 号:20XX031267XX科技大学学位论文仪器设备管理系统设计与实现论文作者姓名:张林太申请学位专业:计算机科学与技术申请学位类别:工学学士指导教师姓名(职称):王敏论文提交日期:20XX年06月09日第 1 页 共 26 页仪器设备管理系统设计与实现摘 要文中以某中小型企业的设备管理为例,对设备管理系统的设计与应用进行研究,旨在通过设备管理系统提高内部设备的利用率及实现其最大的经济效益。文中首先对设备管理的现状及其重要性进行了分析,分析实现设备管理信息系统的必要性与可行性。其次针对所需要设备

2、信息,分析设备管理系统流程,设计并开发一套设备管理系统。最后,文章对系统的设计实现过程进行了阐述。文中详细阐述了各子模块的功能和实现过程,并对系统的核心技术作了特别讲解。从试运行情况来看,系统加强了对于仪器设备的有效管理,提高了管理的效率和科学性,实现了信息资源的共享,达到了建设一个仪器设备管理系统的预定目标。关键词:设备管理；仪器设备；管理系统Design and Implementation of the Equipment Management SystemAbstractTake equipment management of middle and small - sized ente

3、rprises as example, this paper researches on the design and implementation of equipment management to obtain the goal of promoting the efficiency of equipment and gaining good economic. In this paper, I first analyzes the current situation of equipment management and its importance,and proposed its

4、necessity and feasibility. Secondly against for the equipment information , analysis process of the equipment manage, design and development of a set of equipment management system. Finally, The article Expounded the Process that design and implementation of the equipment management. It also introdu

5、ces functions and implementation procedure of each sub- module , and provides with a specific explanation for the core technology of the system. Based on the results of test , it enhances effective management of the equipment and instrument, increases the efficiency and scientific features, realizes

6、 informative resource sharing, and meets the demands equipment management system.Key words: Equipment manage; Instrument Equipment ; Management System 目 录 论文总页数:21页1 引言11.1 课题背景11.2 国内外研究现状11.3 课题研究的意义11.4开发环境21.4.1 数据库的选择21.4.2 .NET环境31.4.3 ASP. NET32 系统分析42.1可行性分析42.2 功能需求43 系统设计43.1系统设计原则43.2 系统总

7、体流程53.3 数据库的设计54 系统功能模块74.1 用户登录模块74.2 用户注册模块84.3 设备一览模块104.4 设备调度模块134.5 设备维修模块144.6 设备报废模块154.7 用户信息模块164.8 资料修改模块17总 结18参考文献18致 谢20声 明211 引言 1.1 课题背景设备管理是一项非常重要的工作。大多数设备管理办法是设备采购进来以后,将设备的基本情况和相关信息登记存档,然后将档案存档。以后档案基本就没人维护,如设备位置变迁、检修情况、设备当前运行状态等信息根本不会体现在设备台帐上,即设备跟踪信息不能及时体现在设备档案上。管理各项材料信息不仅效率低下,而且容易

8、出错,安全性很差。并且在实际操作中,数据的查找和维护都不容易实现,容易发生差错,导致了管理费用增加,服务质量难以得到保证,从而影响企业的竞争力。使用设备管理系统,个人并能随时查询设备当前情况和历史情况,对设备的可靠性分析有直接作用,设备信息管理和出入库记录的快速高校检索,使操作简单安全,提供工作效率和质量。使管理人员从手工计算、统计工作中解脱出来。1.2 国内外研究现状随着计算机技术在设备管理系统得到广泛应用,各式各样的设备管理系统,在各种不同性质、不同类型、不同规模的设备管理中发挥着越来越重要的作用。如何利用计算机技术和网络通讯技术,对设备资源进行科学的管理、有效的开发、实现资源共享、实现设

9、备的现代化管理,是企业重要工作内容之一。上网搜索会发现,目前国内开发、使用的设备管理系统已经很多,从总体上说国内的设备管理系统已进入应用完善阶段。 伴随着全球网络化的迅速发展,设备管理的自动化逐步走向网络化。所以设备管理系统必须具备有强劲的网络化功能,现在使用的设备管理系统大都只局限单位内使用,不具有网上互联功能,网络性能远远跟不上网络信息时代的步伐。设备管理系统要实现联机使用,要能为使用者能够联机查看和查询。信息社会的到来,网络化已成为现代设备管理发展的必然结果。1.3 课题研究的意义与传统管理方式相比较,基于Web的设备管理系统能更加有效地进行信息管理。基于Web的设备管理系统应用Web数

10、据库,对信息数据以数据库形式表示,更容易更新和管理。传统的管理方式往往以表格的形式进行管理,一旦数据过于庞大,要对这些数据进行管理时,就要花费大量的时间,而且很容易出错。对于基于Web的设备管理系统就不会有这样的问题。它利用计算机来处理信息数据的管理和更新,不仅提高了工作效率,减少了脑力和体力劳动,还大大提高了工作的准确性,不易出错。除此之外,基于Web的设备管理系统还能够及时传递设备信息。在传统的管理方式上,一旦要了解设备的信息时,由于时间和地域等原因的限制,并且人工操作时,难免会有这样那样的疏忽,这样就不能及时地了解设备信息,导致工作不能顺利地进行,严重的还会带来无可挽回的损失。而基于We

11、b的设备管理系统在设备信息传递上则不太会有这样的问题,只要你有权限,就能够通过网络及时了解设备的详细信息。极大地方便了企业的正常运作。1.4开发环境硬件环境:硬件平台是指开发与运行所需要的硬件环境,主要包括计算机机型及硬件配置。由于系统是一个小型的管理系统,因此对计算机硬件的要求不高,现在的计算机基本都能胜任所用的开发软件、应用软件平台及语言:系统在开发时选用了稳定性较强的Windows XP中文版和Visual Studio.NET 20XX平台,开发技术是技术,数据库选用SQL20XX,由于这些软件产品都是Microsoft公司的产品,因此彼此之间的兼容性较好,开发出的应用系

12、统稳定性较高。选择这些开发平台和开发语言和工具,还因为其自身的特点。1.4.1 数据库的选择选择SQL作为数据库的理由主要有以下几点:SQL之所以能够被用户和业界所接受,并成为国际标准,因为它是一个综合的、功能强大而且简捷易学的语言。SQL语言集数据查询、数据操作、数据定义和数据控制功能于一身,其主要特点如下:(1)一体化SQL语言风格统一,可以完成数据库活动中的全部工作,包括创建数据库、定义模式、更改和查询数据以及安全控制和维护数据库等,这为数据库应用系统的开发提供了良好的环境。用户在数据库系统投入使用后,还可以根据需要随时修改模式结构,并且不影响数据库的运行,从而使系统具有良好的可扩展性。

13、(2)高度非过程化在使用SQL语言访问数据库时,用户没有必要告诉计算机一步一步地“如何”去实现,而只需要描述清楚要“做什么”,SQL语言就可以将要求交给系统,然后由系统自动完成全部工作。(3)语言简洁虽然SQL语言功能很强,但它只有为数不多的几条命令,另外,SQL的语法也比较简洁,它是一种描述性语言,很接近自然语言(英语),因此容易学习、掌握。(4)以多种方式使用SQL语言可以直接以命令方式交互使用,也可以嵌入到程序设计语言中使用。现在很多数据库应用开发工具(如.net、java、delphi等),都将SQL语言直接融入到自身的语言当中,使用起来非常方便。这些使用方式为用户提供了灵活的选择余地

14、,而且不管是哪种使用方式,SQL语言的语法基本都是一样的。(5)微软公司的SQL20XX,SQL20XX具有开放性的接口,可以和任何的第三方软件共享数据,而且其具有灵活的扩充方式,完善的管理手段,是首选的数据库。1.4.2 .NET环境 对于.NET,Microsoft公司自己都没有一个详细确切的定义。但是我们可以这样认为:.NET是Microsoft公司提供的一系列产品的总称。具体说来,.NET由以下几个部分组成:.NET Framework、.NET企业服务器和.NET开发工具。.NET Framework 是一个高性能的程序运行环境,他提供了具体的服务和技术,支持统一的类库,如Visua

15、l Basic、Visual C+、Visual C#等,方便开发人员建立相应的应用程序。.NET企业服务器是指SQL Server 20XX之类的由.NET Framework应用程序使用的服务器端产品。它们虽然不是由.NET Framework编写成的,但是他们都支持.NET。为了能够在.NET Framework上运行程序开发,Microsoft公司把Visual Studio进行了升级,并把升级后的产品命名为Visual Studio.NET。这就是.NET开发工具。1.4.3 ASP. NET20XX年Microsoft公司推出全心的ASP.NET,它抛弃了前面三个ASP的版本都使用

16、的脚本语言,使用Visual Basic.NET 作为它的默认语言。ASP.NET在结构上与前面的版本大不相同,它几乎完全是基于组建和模块化。Web应用程序的开发人员使用这个开发环境可以实现更加模块化的,功能更强大的应用程序。在ASP.NET中,所有程序依然保存在服务器端,但由服务器编译执行。当第一次执行一个程序时进行编译,当再次执行这个程序时,就在服务器端直接执行它的已编译好的程序代码,因而ASP.NET程序执行的速度有较大的提高。ASP.NET有较高的效率,提供了很高的重用性,对于实现同样功能的程序,ASP.NET使用的代码比较小。ASP.NET采用全新的编程环境,代表了技术发展的主流方向

17、。从更深层次说,ASP.NET有优势体现在以下几个方面。(1)效率ASP.NET是建立在.NET Framework之上的。它可以使用Visual Basic、C+这样的模块程序设计语言,并且它在第一次执行时进行编译,之后的执行不需要重新编译就可以直接运行,所以速度和效率提高很多。(2)可重用性ASP.NET可以实现代码与内容的完全分离,使得维护方便。(3)代码量在ASP.NET中,程序员只要预先说明,ASP.NET可以自动实现功能。所以相对来说,要实现同样的功能,就可以少写很多代码。2 系统分析2.1可行性分析在技术实现上,系统采用了基于web的仪器设备管理,web技术已经是当今一门成熟的技

18、术,并且基于web的仪器设备管理的开发和维护不需要太多的人力和物理,开发周期短,可灵活部署在任何符合规范的应用服务器上,减少了投资,解决了系统维护升级复杂的问题。数据库拟采用微软公司的SQL20XX,SQL20XX具有开放性的接口,可以和任何的第三方软件共享数据,而且其具有灵活的扩充方式,完善的管理手段,是首选的数据库系统。2.2 功能需求管理系统主要包括两大功能:(1)用户模块a)用户信息:用户可以查看自己的基本信息b)资料修改:用户的基本信息有时候会变化,比如联系TEL等,对于这种情况就可以对资料及时修改更新。(2)设备管理模块a)设备一览:查看所有的设备。b)设备的添加和报废:对添加新增

19、设备以及对报废设备的信息进行处理。c)设备的维修和调拨:对维修中的设备的详细信息进行管理以及对设备的调拨及其信息管理。d)设备的查询:根据设备名称查询设备,设备的查询使用模糊查询,以尽可能的把符合用户要求的设备显示给用户。3 系统设计3.1系统设计原则系统设计原则如下:a)实用性用户能简单、方便地采集基础数据,实现信息共享与交换b)稳定性为使系统稳定运行,应采用先进成熟的技术和工具进行开发c)开放性利用Web技术,使各局域网能进行分布数据处理,各子系统能在Internet上进行数据处理和信息查询d)通用性系统应适用于其他化纤厂的设备管理,具有一定的推广价值;e)先进性采用先进的系统分析与开发工

20、具,建立先进的设备管理信息系统。3.2 系统功能模块图1 系统功能模块3.3 数据库的设计系统数据库共涉及五个数据表:l 用户信息:记录用户密码和资料。l 设备一览:目前所拥有的设备。l 调度设备:记录设备调度详细信息。l 设备维修:设备维修详细信息。l 设备报废:记录报废的设备。用户信息:记录用户密码和资料。表1 用户信息中文字段名英文字段名数据类型长度允许为空用 户 名usenamechar100NULL用户密码pwdchar100NULL用户性别sexchar100NULL用户职位positionchar100NULL联系TELtelephonechar100NULL用户权限powerc

21、har150NULL设备一览:目前所拥有的设备。表2 设备一览中文字段名英文字段名数据类型长度允许为空购买部门buyteamchar30NULL设备名称namechar30NULL设备种类kindchar30NULL设备型号typechar30NULL设备状态statechar30NULL使用人usepeoplechar30生产厂家madechar30NULL出厂日期outtimechar30NULL购买日期buytimechar30NULL购买价格costchar30NULL启用日期starttimechar30备 注notationchar500调度设备:记录设备调度详细信息。表3 调度设

22、备中文字段名英文字段名数据类型长度允许为空设备名称namechar30NULL原部门oldteamchar30NULL新部门newteamchar30NULL原使用者oldusechar30NULL新使用者newusechar30NULL调度时间timechar30NULL备注notationchar500设备维修:设备维修详细信息。表4 设备维修中文字段名英文字段名数据类型长度允许为空设备名称namechar30NULL维修人员mendpeoplechar30NULL维修工时costtimechar30NULL维修费用moneychar30NULL故障原因whychar500NULL开始时间

23、starttimechar30NULL结束时间endtimechar30NULL备注attentionchar500设备报废:记录报废的设备。表5 设备报废中文字段名英文字段名数据类型长度允许为空购买部门buyteamchar30NULL设备名称namechar30NULL设备种类kindchar30NULL设备型号typechar30NULL生产厂家madechar30NULL出厂日期outtimechar30NULL购买日期buytimechar30NULL购买价格costchar30NULL报废时间badtimechar30NULL备注notationchar5004 系统功能模块4.1

24、 用户登录模块用户登录模块主要是检查用户名和密码是否匹配,并且可以通过“注册”按钮进入注册页面。如果用户的用户名和密码匹配则进入系统；不匹配则转入登录错误页面。在登录错误页面用户可以选择进入登录页面和注册页面。系统对用户的登录方式采用的是用户名/密码方式,在用户进入系统的时候要求用户输入用户名和密码,并比较两者和数据库中用户名和密码对应。代码如下:Dim conn As New System.Data.sqlclient.SqlConnection Dim cmd As New System.Data.sqlclient.SqlCommand Dim objreader As System.D

25、ata.sqlclient.SqlDataReader conn.ConnectionString = (SERVER=(local);USER ID=sa;PWD=;DATABASE=atai) conn.Open() cmd.Connection = conn cmd.CommandText = select * from userlist where username= + Textusername.Text + and pwd= + pwd + objreader = cmd.ExecuteReaderIf objreader.HasRows Then Response.Redirec

26、t(index.html)Else Response.Redirect(false.htm)End If但是,使用明文对用户密码进行存储时,很容易被非法使用者识别。因此,先对密码进行哈希后再写入数据库中,让非法使用者不能识别,用户密码相对更为安全,代码入下:Public Shared Function MD5(ByVal Sourcein As String) As String Dim MD5CSP As System.Security.Cryptography.MD5CryptoServiceProvider = New System.Security.Cryptography.MD5Cr

27、yptoServiceProvider Dim MD5Source() As Byte = System.Text.Encoding.UTF8.GetBytes(Sourcein) Dim MD5Out() As Byte = MD5CSP.ComputeHash(MD5Source) Return Convert.ToBase64String(MD5Out) End Function实现截图:图2 用户登录4.2 用户注册模块用户在注册模块主要是为新用户提供注册,新用户在次填写详细信息进行注册,在注册的时候自动把权限设为普通用户。在用户注册的时候首先判断用户名是否存在,代码如下:cmd.Co

28、mmandText = select * from userlist where username= + Textusername.Text + objreader = cmd.ExecuteReader If objreader.HasRows Then 存在 args.IsValid = False Session(username) = Textusername.Text Else 不存在 args.IsValid = True End If conn.Close()在用户注册时,为了防止用户粗心,在输入密码时不小心输入错误,因此在用户输入密码后还需要用户再一次输入,通过判断两次输入是否

29、相同来判断用户是否输入错误,相关代码如下:If Textuserpwd.Text = Textuserpassword.Text Then 匹配 args.IsValid = True Else 不匹配 args.IsValid = False End If当所有的条件都满足后才会向数据库中写入注册信息,写入数据库的代码如下:Dim conn As New System.Data.sqlclient.SqlConnection Dim cmd As New System.Data.sqlclient.SqlCommand Dim objreader As System.Data.sqlclie

30、nt.SqlDataReader conn.ConnectionString = (SERVER=(local);USER ID=sa;PWD=;DATABASE=atai) conn.Open() cmd.Connection = conn If Textusername.Text = Session(username) Then Else If Textuserpwd.Text = Textuserpassword.Text Then Dim pwd As String = MD5(Textuserpwd.Text) cmd.CommandText = insert into userli

31、st values( + Textusername.Text + , + pwd + , + sexchoose.SelectedValue + , + position.SelectedValue + , + Texttelephone.Text + , 0 ) cmd.ExecuteNonQuery() Response.Redirect(useraddsuccess.htm) End If End If conn.Close()实现截图:图3 用户注册4.3 设备一览模块设备一览模块主要是查看目前所拥有的设备。该模块通过DataList控件来处理从数据源读取的数据。DataList控件的

32、分页显示则是通过先根据当前页号Session(“CurrPage”)、分页大小PageSize来计算要显示的记录号范围,然后将数据集中需显示的记录存放到一个临时表tempbook中,再将该临时表绑定到DataList控件实现的,这样就可以显示指定页号的各记录。另外,为了在页面间传递页号值,使用了Session变量CurrPage,当用户单击“上一页”时,将Session(“CurrPage”)减1；当用户单击“下一页”时,将Session(“Currpage”)加1。在nabledwhatbutton()中编写Session(“CurrPage”)的初值和结束处理。在设备一览页面,可以通过单击

33、“添加设备”来增加新的设备。在DataList控件中绑定列中,“设备名称”采用超级连接,用户单击可以查看设备的详细信息,通过单击“修改”进入修改设备详细,在修改设备状态时,如果设备状态是维修则转入维修设备添加页面,如果是报废,则进入添加报废设备页面,在添加的同时更改设备一览中该设备的状态为相应状态；单击“删除”删除该设备的所有的信息。DataList控件的分页显示是通过先根据当前页号Session(“CurrPage”)、分页大小PageSize来计算要显示的记录号范围,当前页号Session(“CurrPage”)的代码如下:Sub enabledwhatbutton() If Sessio

34、n(currpage) = 1 Then firstpage.Enabled = False prevpage.Enabled = False Else firstpage.Enabled = True prevpage.Enabled = True End If If Session(currpage) = Session(totalpage) Then nextpage.Enabled = False lastpage.Enabled = False Else nextpage.Enabled = True lastpage.Enabled = True End If End Sub而分页

35、大小PageSzie的计算代码如下:Dim totalrec As Integer = equipmentlist.Rows.Count 计算总页数 Dim totalpage As Integer If totalrec pagesize Then totalpage = 1 Else If totalrec Mod pagesize 0 Then totalpage = totalrec pagesize + 1 Else totalpage = totalrec / pagesize End If End If Session(totalpage) = totalpage有了当前页号Se

36、ssion(“CurrPage”)和分页大小PageSize就可以计算出显示的记录号范围,然后将数据集中需显示的记录存放到一个临时表tempbook中,再将该临时表棒定到DataList控件来实现,这样就可以显示指定页号的个记录,相关代码如下:Dim tempequipmentlist As DataTable = equipmentlist.Clone() Dim i, j As Integer For i = (pageno - 1) * pagesize To pageno * pagesize - 1 If i equipmentlist.Rows.Count - 1 Then Exi

37、t For Dim row As DataRow = tempequipmentlist.NewRow For j = 0 To equipmentlist.Columns.Count - 1 row(equipmentlist.Columns(j).ColumnName) = equipmentlist.Rows(i).Item(j) Next tempequipmentlist.Rows.Add(row) Next DataGridshow.DataSource = tempequipmentlist DataGridshow.DataBind()为了在页面间传递页号值,使用了Sessio

38、n变量CurrPage,当用户单击“上一页”时,将Session(“CurrPage”)减1；当用户单击“下一页”时,将Session(“CurrPage”)加1。判断代码如下:Sub pagechange(ByVal sender As Object, ByVal e As CommandEventArgs) Select Case e.CommandArgument Case firstpage Session(currpage) = 1 Case prevpage If Session(currpage) 1 Then Session(currpage) -= 1 Else Sessio

39、n(currpage) = 1 End If Case nextpage Session(currpage) += 1 Case lastpage Session(currpage) = Session(totalpage) End Select enabledwhatbutton() bindlist(Session(currpage) End Sub实现截图:图4 设备一览4.4 设备调度模块设备调度模块主要是查看所有处于调度中的设备,和调度设备的调度信息。该模块通过DataList控件处理从数据源读取的数据。绑定列中,“设备名称”采用超级连接,用户单击可以查看设备的详细调度信息,通过单击

40、“修改”进行调度信息的修改；单击“删除”可以删除该设备的调度信息。修改调度信息代码如下:cmd.CommandText = insert into allot values( + Tname.Text + , + Toldteam.Text + , + Tnewteam.Text + , + Tolduse.Text + , + Tnewuse.Text + , + Ttime.Text + , + Tnotation.Text + ) objreader = cmd.ExecuteReader objreader.Close() cmd.CommandText = update equipm

41、entlist set buyteam = + Tnewteam.Text + ,usepeople = + Tnewuse.Text + where name = + Tname.Text + objreader = cmd.ExecuteReader objreader.Close() cmd.CommandText = select * from allot where newteam = + Tnewteam.Text + and newuse = + Tnewuse.Text + objreader = cmd.ExecuteReader If objreader.HasRows T

42、hen seccess.Text = 添加成功 Tname.Text = Toldteam.Text = Tnewteam.Text = Tolduse.Text = Tnewuse.Text = Ttime.Text = Tnotation.Text = Else seccess.Text = 添加失败 End If实现截图:图5 调度信息修改4.5 设备维修模块设备维修模块主要是查看所有处于维修中的设备,及其详细信息。该模块同样采用了DataList控件来处理从数据源读取的数据。绑定列中,“设备名称”采用超级连接,用户单击可以查看详细的维修信息。通过单击“修改”可以修改设备的维修信息；单击

43、“删除“按钮可以删除该设备的维修信息。对设备维修信息的修改代码如下: cmd.Connection = conn cmd.CommandText = update badequipment set badtime = + Tbadtime.Text + ,notation = + Tnotation.Text + where name = + Tname.Text + cmd.ExecuteNonQuery() cmd.CommandText = select * from badequipment where name = + Tname.Text + and badtime = + Tba

44、dtime.Text + objreader = cmd.ExecuteReader If objreader.HasRows Then seccess.Text = 修改成功 End If维修信息的删除代码如下:Dim cmd As New System.Data.sqlclient.SqlCommand cmd.CommandText = delet * from badequipment where name= + Tname.Text + Response.Redirect(badequipment.aspx)实现截图:图6 设备维护信息修改4.6 设备报废模块设备报废模块主要是查看所

45、有的报废了的设备,及其详细信息。该模块采用了DataList控件来处理从数据源读取的数据。绑定列中,“设备名称“采用了超级连接,用户单击可以查看详细信息。通过单击”修改“可以修改报废设备的信息；用户单击”删除“按钮可以删除该设备的信息。对报废设备信息的修改代码如下:cmd.CommandText = update badequipment set badtime = + Tbadtime.Text + ,notation = + Tnotation.Text + where name = + Tname.Text + cmd.ExecuteNonQuery() cmd.CommandText

46、= select * from badequipment where name = + Tname.Text + and badtime = + Tbadtime.Text + objreader = cmd.ExecuteReader If objreader.HasRows Then seccess.Text = 修改成功 End If实现截图图7 报废信息修改4.7 用户信息模块用户信息模块主要是用户查看自己的详细资料。用户可能因为各种原因自己的资料有所改变,又忘了自己是不是已经对自己的资料进行了更新修改,用户则可以通过用户信息模块查看自己的信息是否正确。在用户登录的时候就首先把用户的信

47、息进行绑定,代码如下:cmd.CommandText = select * from userlist where username= + Textusername.Text + and pwd= + pwd + objreader = cmd.ExecuteReader If objreader.HasRows Then Session(name) = Textusername.Text objreader.Close() cmd.CommandText = select * from userlist where username = + Session(name) + Dim objad

48、pt As New System.Data.sqlclient.SqlDataAdapter(cmd) Dim ds As New DataSet objadpt.Fill(ds, userlist) Dim userlist As DataTable = ds.Tables(userlist) Session(sex) = userlist.Rows(0).Item(2) Session(position) = userlist.Rows(0).Item(3) Session(telephone) = userlist.Rows(0).Item(4) Session(power) = userlist.Rows(0).Item(5)在用户查看自己的信息时,把绑定的用户信息显示出来,代码如下:usernameshow.Text = Session(name) sexshow.Text = Session(sex) positionshow.Text = Session(position) telephoneshow.Text = Session(telephone)实现截图:图8 用户信息4.8 资料修改模块资料修改模块主要是用户用来修改自己的资料。用户可能因为工作等原因资料有所改变,需要进行修改,即使更新。资料修改模块为用户提供该功能。在用户修改资料后点击修改后,使用