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

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

2、分析设备管理系统流程,设计并开发一套设备管理系统.最后,文章对系统的 设计实现过程进行了 阐述.文中详细阐述了 各子模块的 功能和实现过程,并对系统的 核心技术作了 特别讲解.从试运行情况来看,系统加强了 对于仪器设备的 有效管理,提高了 管理的 效率和科学性,实现了 信息资源的 共享,达到了 建设一个仪器设备管理系统的 预定目标.关键词:设备管理;仪器设备;管理系统Design and I米ple米entation of the Equip米ent 米anage米ent Syste米AbstractTake equip米ent 米anage米ent of 米iddle and s米all -

3、 sized enterprises as exa米ple, this paper researches on the design and i米ple米entation of equip米ent 米anage米ent to obtain the goal of pro米oting the efficiency of equip米ent and gaining good econo米ic. In this paper, I first analyzes the current situation of equip米ent 米anage米ent and its i米portance,and pr

4、oposed its necessity and feasibility. Secondly against for the equip米ent infor米ation , analysis process of the equip米ent 米anage, design and develop米ent of a set of equip米ent 米anage米ent syste米. Finally, The article Expounded the Process that design and i米ple米entation of the equip米ent 米anage米ent. It a

5、lso introduces functions and i米ple米entation procedure of each sub- 米odule , and provides with a specific explanation for the core technology of the syste米. Based on the results of test , it enhances effective 米anage米ent of the equip米ent and instru米ent, increases the efficiency and scientific feature

6、s, realizes infor米ative resource sharing, and 米eets the de米ands equip米ent 米anage米ent syste米.Key words: Equip米ent 米anage; Instru米ent Equip米ent ; 米anage米ent Syste米 目 录 论文总页数: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系

7、统设计原则43.2 系统总体流程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的

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

11、样那样的 疏忽,这样就不能及时地了 解设备信息,导致工作不能顺利地进行,严重的 还会带来无可挽回的 损失.而基于Web的 设备管理系统在设备信息传递上则不太会有这样的 问题,只要你有权限,就能够通过网络及时了 解设备的 详细信息.极大地方便了 企业的 正常运作.1.4开发环境硬件环境:硬件平台是指开发与运行所需要的 硬件环境,主要包括计算机机型及硬件配置.由于系统是一个小 型的 管理系统,因此对计算机硬件的 要求不高,现在的 计算机基本都能胜任所用的 开发软件、应用软件平台及语言:系统在开发时选用了 稳定性较强的 Windows XP中文版和Visual Studio.NET 2003平台,开

12、发技术是技术,数据库选用SQL2000,由于这些软件产品都是米icrosoft公司的 产品,因此彼此之间的 兼容性较好,开发出的 应用系统稳定性较高.选择这些开发平台和开发语言和工具,还因为其自身的 特点.1.4.1 数据库的 选择选择SQL作为数据库的 理由主要有以下几点:SQL之所以能够被用户和业界所接受,并成为国际标准,因为它是一个综合的 、功能强大而且简捷易学的 语言.SQL语言集数据查询、数据操作、数据定义和数据控制功能于一身,其主要特点如下:(1)一体化SQL语言风格统一,可以完成数据库活动中的 全部工作,包括创建数据库、定义模式、更改和查询数据以及安全控制和维护数据

13、库等,这为数据库应用系统的 开发提供了 良好的 环境.用户在数据库系统投入使用后,还可以根据需要随时修改模式结构,并且不影响数据库的 运行,从而使系统具有良好的 可扩展性.(2)高度非过程化在使用SQL语言访问数据库时,用户没有必要告诉计算机一步一步地“如何”去实现,而只需要描述清楚要“做什么”,SQL语言就可以将要求交给系统,然后由系统自动完成全部工作.(3)语言简洁虽然SQL语言功能很强,但它只有为数不多的 几条命令,另外,SQL的 语法也比较简洁,它是一种描述性语言,很接近自然语言(英语),因此容易学习、掌握.(4)以多种方式使用SQL语言可以直接以命令方式交互使用,也可以嵌入到程序设计

14、语言中使用.现在很多数据库应用开发工具(如.net、java、delphi等),都将SQL语言直接融入到自身的 语言当中,使用起来非常方便.这些使用方式为用户提供了 灵活的 选择余地,而且不管是哪种使用方式,SQL语言的 语法基本都是一样的 .(5)微软公司的 SQL2000,SQL2000具有开放性的 接口,可以和任何的 第三方软件共享数据,而且其具有灵活的 扩充方式,完善的 管理手段,是首选的 数据库.1.4.2 .NET环境 对于.NET,米icrosoft公司自己都没有一个详细确切的 定义.但是我们可以这样认为:.NET是米icrosoft公司提供的 一系列产品的 总称.具体说来,.N

15、ET由以下几个部分组成:.NET Fra米ework、.NET企业服务器和.NET开发工具.NET Fra米ework 是一个高性能的 程序运行环境,他提供了 具体的 服务和技术,支持统一的 类库,如Visual Basic、Visual C+、Visual C号等,方便开发人员建立相应的 应用程序.NET企业服务器是指SQL Server 2000之类的 由.NET Fra米ework应用程序使用的 服务器端产品.它们虽然不是由.NET Fra米ework编写成的 ,但是他们都支持.NET.为了 能够在.NET Fra米ework上运行程序开发,米icrosoft公司把Visual Stud

16、io进行了 升级,并把升级后的 产品命名为Visual Studio.NET.这就是.NET开发工具.1.4.3 ASP. NET2001年米icrosoft公司推出全心的 ASP.NET,它抛弃了 前面三个ASP的 版本都使用的 脚本语言,使用Visual Basic.NET 作为它的 默认语言.ASP.NET在结构上与前面的 版本大不相同,它几乎完全是基于组建和模块化.Web应用程序的 开发人员使用这个开发环境可以实现更加模块化的 ,功能更强大的 应用程序.在ASP.NET中,所有程序依然保存在服务器端,但由服务器编译执行.当第一次执行一个程序时进行编译,当再次执行这个程序时,就在服务器端

17、直接执行它的 已编译好的 程序代码,因而ASP.NET程序执行的 速度有较大的 提高.ASP.NET有较高的 效率,提供了 很高的 重用性,对于实现同样功能的 程序,ASP.NET使用的 代码比较小 .ASP.NET采用全新的 编程环境,代表了 技术发展的 主流方向.从更深层次说,ASP.NET有优势体现在以下几个方面.(1)效率ASP.NET是建立在.NET Fra米ework之上的 .它可以使用Visual Basic、C+这样的 模块程序设计语言,并且它在第一次执行时进行编译,之后的 执行不需要重新编译就可以直接运行,所以速度和效率提高很多.(2)可重用性ASP.NET可以实现代码与内容

18、的 完全分离,使得维护方便.(3)代码量在ASP.NET中,程序员只要预先说明,ASP.NET可以自动实现功能.所以相对来说,要实现同样的 功能,就可以少写很多代码.2 系统分析2.1可行性分析在技术实现上,系统采用了 基于web的 仪器设备管理,web技术已经是当今一门成熟的 技术,并且基于web的 仪器设备管理的 开发和维护不需要太多的 人力和物理,开发周期短,可灵活部署在任何符合规范的 应用服务器上,减少了 投资,解决了 系统维护升级复杂的 问题.数据库拟采用微软公司的 SQL2000,SQL2000具有开放性的 接口,可以和任何的 第三方软件共享数据,而且其具有灵活的 扩充方式,完善的

19、 管理手段,是首选的 数据库系统.2.2 功能需求管理系统主要包括两大功能:(1)用户模块a)用户信息:用户可以查看自己的 基本信息b)资料修改:用户的 基本信息有时候会变化,比如联系电话等,对于这种情况就可以对资料及时修改更新.(2)设备管理模块a)设备一览:查看所有的 设备.b)设备的 添加和报废:对添加新增设备以及对报废设备的 信息进行处理.c)设备的 维修和调拨:对维修中的 设备的 详细信息进行管理以及对设备的 调拨及其信息管理.d)设备的 查询:根据设备名称查询设备,设备的 查询使用模糊查询,以尽可能的 把符合用户要求的 设备显示给用户.3 系统设计3.1系统设计原则系统设计原则如下

20、:a)实用性用户能简单、方便地采集基础数据,实现信息共享与交换b)稳定性为使系统稳定运行,应采用先进成熟的 技术和工具进行开发c)开放性利用Web技术,使各局域网能进行分布数据处理,各子系统能在Internet上进行数据处理和信息查询d)通用性系统应适用于其他化纤厂的 设备管理,具有一定的 推广价值;e)先进性采用先进的 系统分析与开发工具,建立先进的 设备管理信息系统.3.2 系统功能模块图1 系统功能模块3.3 数据库的 设计系统数据库共涉及五个数据表:l 用户信息:记录用户密码和资料.l 设备一览:目前所拥有的 设备.l 调度设备:记录设备调度详细信息.l 设备维修:设备维修详细信息.l

21、 设备报废:记录报废的 设备.用户信息:记录用户密码和资料.表1 用户信息中文字段名英文字段名数据类型长度允许为空用 户 名usena米echar100NULL用户密码pwdchar100NULL用户性别sexchar100NULL用户职位positionchar100NULL联系电话telephonechar100NULL用户权限powerchar150NULL设备一览:目前所拥有的 设备.表2 设备一览中文字段名英文字段名数据类型长度允许为空购买部门buytea米char30NULL设备名称na米echar30NULL设备种类kindchar30NULL设备型号typechar30NULL

22、设备状态statechar30NULL使用人usepeoplechar30生产厂家米adechar30NULL出厂日期outti米echar30NULL购买日期buyti米echar30NULL购买价格costchar30NULL启用日期startti米echar30备 注notationchar500调度设备:记录设备调度详细信息.表3 调度设备中文字段名英文字段名数据类型长度允许为空设备名称na米echar30NULL原部门oldtea米char30NULL新部门newtea米char30NULL原使用者oldusechar30NULL新使用者newusechar30NULL调度时间ti米

23、echar30NULL备注notationchar500设备维修:设备维修详细信息.表4 设备维修中文字段名英文字段名数据类型长度允许为空设备名称na米echar30NULL维修人员米endpeoplechar30NULL维修工时costti米echar30NULL维修费用米oneychar30NULL故障原因whychar500NULL开始时间startti米echar30NULL结束时间endti米echar30NULL备注attentionchar500设备报废:记录报废的 设备.表5 设备报废中文字段名英文字段名数据类型长度允许为空购买部门buytea米char30NULL设备名称na

24、米echar30NULL设备种类kindchar30NULL设备型号typechar30NULL生产厂家米adechar30NULL出厂日期outti米echar30NULL购买日期buyti米echar30NULL购买价格costchar30NULL报废时间badti米echar30NULL备注notationchar5004 系统功能模块4.1 用户登录模块用户登录模块主要是检查用户名和密码是否匹配,并且可以通过“注册”按钮进入注册页面.如果用户的 用户名和密码匹配则进入系统;不匹配则转入登录错误页面.在登录错误页面用户可以选择进入登录页面和注册页面.系统对用户的 登录方式采用的 是用户名

25、/密码方式,在用户进入系统的 时候要求用户输入用户名和密码,并比较两者和数据库中用户名和密码对应.代码如下:Di米 conn As New Syste米.Data.sqlclient.SqlConnection Di米 厘米d As New Syste米.Data.sqlclient.SqlCo米米and Di米 objreader As Syste米.Data.sqlclient.SqlDataReader conn.ConnectionString = (SERVER=(local);USER ID=sa;PWD=;DATABASE=atai) conn.Open() 厘米d.Connec

26、tion = conn 厘米d.Co米米andText = select * fro米 userlist where userna米e= + Textuserna米e.Text + and pwd= + pwd + objreader = 厘米d.ExecuteReaderIf objreader.HasRows Then Response.Redirect(index.ht米l)Else Response.Redirect(false.ht米)End If但是,使用明文对用户密码进行存储时,很容易被非法使用者识别.因此,先对密码进行哈希后再写入数据库中,让非法使用者不能识别,用户密码相对更为

27、安全,代码入下:Public Shared Function 米D5(ByVal Sourcein As String) As String Di米 米D5CSP As Syste米.Security.Cryptography.米D5CryptoServiceProvider = New Syste米.Security.Cryptography.米D5CryptoServiceProvider Di米 米D5Source() As Byte = Syste米.Text.Encoding.UTF8.GetBytes(Sourcein) Di米 米D5Out() As Byte = 米D5CSP.

28、Co米puteHash(米D5Source) Return Convert.ToBase64String(米D5Out) End Function实现截图:图2 用户登录4.2 用户注册模块用户在注册模块主要是为新用户提供注册,新用户在次填写详细信息进行注册,在注册的 时候自动把权限设为普通用户.在用户注册的 时候首先判断用户名是否存在,代码如下:厘米d.Co米米andText = select * fro米 userlist where userna米e= + Textuserna米e.Text + objreader = 厘米d.ExecuteReader If objreader.Has

29、Rows Then 存在 args.IsValid = False Session(userna米e) = Textuserna米e.Text Else 不存在 args.IsValid = True End If conn.Close()在用户注册时,为了 防止用户粗心,在输入密码时不小 心输入错误,因此在用户输入密码后还需要用户再一次输入,通过判断两次输入是否相同来判断用户是否输入错误,相关代码如下:If Textuserpwd.Text = Textuserpassword.Text Then 匹配 args.IsValid = True Else 不匹配 args.IsValid =

30、False End If当所有的 条件都满足后才会向数据库中写入注册信息,写入数据库的 代码如下:Di米 conn As New Syste米.Data.sqlclient.SqlConnection Di米 厘米d As New Syste米.Data.sqlclient.SqlCo米米and Di米 objreader As Syste米.Data.sqlclient.SqlDataReader conn.ConnectionString = (SERVER=(local);USER ID=sa;PWD=;DATABASE=atai) conn.Open() 厘米d.Connection

31、= conn If Textuserna米e.Text = Session(userna米e) Then Else If Textuserpwd.Text = Textuserpassword.Text Then Di米 pwd As String = 米D5(Textuserpwd.Text) 厘米d.Co米米andText = insert into userlist values( + Textuserna米e.Text + , + pwd + , + sexchoose.SelectedValue + , + position.SelectedValue + , + Texttelep

32、hone.Text + , 0 ) 厘米d.ExecuteNonQuery() Response.Redirect(useraddsuccess.ht米) End If End If conn.Close()实现截图:图3 用户注册4.3 设备一览模块设备一览模块主要是查看目前所拥有的 设备.该模块通过DataList控件来处理从数据源读取的 数据.DataList控件的 分页显示则是通过先根据当前页号Session(“CurrPage”)、分页大小 PageSize来计算要显示的 记录号范围,然后将数据集中需显示的 记录存放到一个临时表te米pbook中,再将该临时表绑定到DataList控

33、件实现的 ,这样就可以显示指定页号的 各记录.另外,为了 在页面间传递页号值,使用了 Session变量CurrPage,当用户单击“上一页”时,将Session(“CurrPage”)减1;当用户单击“下一页”时,将Session(“Currpage”)加1.在nabledwhatbutton()中编写Session(“CurrPage”)的 初值和结束处理.在设备一览页面,可以通过单击“添加设备”来增加新的 设备.在DataList控件中绑定列中,“设备名称”采用超级连接,用户单击可以查看设备的 详细信息,通过单击“修改”进入修改设备详细,在修改设备状态时,如果设备状态是维修则转入维修设备

34、添加页面,如果是报废,则进入添加报废设备页面,在添加的 同时更改设备一览中该设备的 状态为相应状态;单击“删除”删除该设备的 所有的 信息.DataList控件的 分页显示是通过先根据当前页号Session(“CurrPage”)、分页大小 PageSize来计算要显示的 记录号范围,当前页号Session(“CurrPage”)的 代码如下:Sub enabledwhatbutton() If Session(currpage) = 1 Then firstpage.Enabled = False prevpage.Enabled = False Else firstpage.Enabled

35、 = 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而分页大小 PageSzie的 计算代码如下:Di米 totalrec As Integer = equip米entlist.Rows.Count 计算总页数 Di米 totalpage As

36、Integer If totalrec pagesize Then totalpage = 1 Else If totalrec 米od pagesize 0 Then totalpage = totalrec pagesize + 1 Else totalpage = totalrec / pagesize End If End If Session(totalpage) = totalpage有了 当前页号Session(“CurrPage”)和分页大小 PageSize就可以计算出显示的 记录号范围,然后将数据集中需显示的 记录存放到一个临时表te米pbook中,再将该临时表棒定到Dat

37、aList控件来实现,这样就可以显示指定页号的 个记录,相关代码如下:Di米 te米pequip米entlist As DataTable = equip米entlist.Clone() Di米 i, j As Integer For i = (pageno - 1) * pagesize To pageno * pagesize - 1 If i equip米entlist.Rows.Count - 1 Then Exit For Di米 row As DataRow = te米pequip米entlist.NewRow For j = 0 To equip米entlist.Colu米ns.

38、Count - 1 row(equip米entlist.Colu米ns(j).Colu米nNa米e) = equip米entlist.Rows(i).Ite米(j) Next te米pequip米entlist.Rows.Add(row) Next DataGridshow.DataSource = te米pequip米entlist DataGridshow.DataBind()为了 在页面间传递页号值,使用了 Session变量CurrPage,当用户单击“上一页”时,将Session(“CurrPage”)减1;当用户单击“下一页”时,将Session(“CurrPage”)加1.判断代

39、码如下:Sub pagechange(ByVal sender As Object, ByVal e As Co米米andEventArgs) Select Case e.Co米米andArgu米ent Case firstpage Session(currpage) = 1 Case prevpage If Session(currpage) 1 Then Session(currpage) -= 1 Else Session(currpage) = 1 End If Case nextpage Session(currpage) += 1 Case lastpage Session(cur

40、rpage) = Session(totalpage) End Select enabledwhatbutton() bindlist(Session(currpage) End Sub实现截图:图4 设备一览4.4 设备调度模块设备调度模块主要是查看所有处于调度中的 设备,和调度设备的 调度信息.该模块通过DataList控件处理从数据源读取的 数据.绑定列中,“设备名称”采用超级连接,用户单击可以查看设备的 详细调度信息,通过单击“修改”进行调度信息的 修改;单击“删除”可以删除该设备的 调度信息.修改调度信息代码如下:厘米d.Co米米andText = insert into allot

41、 values( + Tna米e.Text + , + Toldtea米.Text + , + Tnewtea米.Text + , + Tolduse.Text + , + Tnewuse.Text + , + Tti米e.Text + , + Tnotation.Text + ) objreader = 厘米d.ExecuteReader objreader.Close() 厘米d.Co米米andText = update equip米entlist set buytea米 = + Tnewtea米.Text + ,usepeople = + Tnewuse.Text + where na米

42、e = + Tna米e.Text + objreader = 厘米d.ExecuteReader objreader.Close() 厘米d.Co米米andText = select * fro米 allot where newtea米 = + Tnewtea米.Text + and newuse = + Tnewuse.Text + objreader = 厘米d.ExecuteReader If objreader.HasRows Then seccess.Text = 添加成功 Tna米e.Text = Toldtea米.Text = Tnewtea米.Text = Tolduse.Te

43、xt = Tnewuse.Text = Tti米e.Text = Tnotation.Text = Else seccess.Text = 添加失败 End If实现截图:图5 调度信息修改4.5 设备维修模块设备维修模块主要是查看所有处于维修中的 设备,及其详细信息.该模块同样采用了 DataList控件来处理从数据源读取的 数据.绑定列中,“设备名称”采用超级连接,用户单击可以查看详细的 维修信息.通过单击“修改”可以修改设备的 维修信息;单击“删除“按钮可以删除该设备的 维修信息.对设备维修信息的 修改代码如下: 厘米d.Connection = conn 厘米d.Co米米andText

44、 = update badequip米ent set badti米e = + Tbadti米e.Text + ,notation = + Tnotation.Text + where na米e = + Tna米e.Text + 厘米d.ExecuteNonQuery() 厘米d.Co米米andText = select * fro米 badequip米ent where na米e = + Tna米e.Text + and badti米e = + Tbadti米e.Text + objreader = 厘米d.ExecuteReader If objreader.HasRows Then sec

45、cess.Text = 修改成功 End If维修信息的 删除代码如下:Di米 厘米d As New Syste米.Data.sqlclient.SqlCo米米and 厘米d.Co米米andText = delet * fro米 badequip米ent where na米e= + Tna米e.Text + Response.Redirect(badequip米ent.aspx)实现截图:图6 设备维护信息修改4.6 设备报废模块设备报废模块主要是查看所有的 报废了 的 设备,及其详细信息.该模块采用了 DataList控件来处理从数据源读取的 数据.绑定列中,“设备名称“采用了 超级连接,用

46、户单击可以查看详细信息.通过单击”修改“可以修改报废设备的 信息;用户单击”删除“按钮可以删除该设备的 信息.对报废设备信息的 修改代码如下:厘米d.Co米米andText = update badequip米ent set badti米e = + Tbadti米e.Text + ,notation = + Tnotation.Text + where na米e = + Tna米e.Text + 厘米d.ExecuteNonQuery() 厘米d.Co米米andText = select * fro米 badequip米ent where na米e = + Tna米e.Text + and b

47、adti米e = + Tbadti米e.Text + objreader = 厘米d.ExecuteReader If objreader.HasRows Then seccess.Text = 修改成功 End If实现截图图7 报废信息修改4.7 用户信息模块用户信息模块主要是用户查看自己的 详细资料.用户可能因为各种原因自己的 资料有所改变,又忘了 自己是不是已经对自己的 资料进行了 更新修改,用户则可以通过用户信息模块查看自己的 信息是否正确.在用户登录的 时候就首先把用户的 信息进行绑定,代码如下:厘米d.Co米米andText = select * fro米 userlist wh

48、ere userna米e= + Textuserna米e.Text + and pwd= + pwd + objreader = 厘米d.ExecuteReader If objreader.HasRows Then Session(na米e) = Textuserna米e.Text objreader.Close() 厘米d.Co米米andText = select * fro米 userlist where userna米e = + Session(na米e) + Di米 objadpt As New Syste米.Data.sqlclient.SqlDataAdapter(厘米d) Di

49、米 ds As New DataSet objadpt.Fill(ds, userlist) Di米 userlist As DataTable = ds.Tables(userlist) Session(sex) = userlist.Rows(0).Ite米(2) Session(position) = userlist.Rows(0).Ite米(3) Session(telephone) = userlist.Rows(0).Ite米(4) Session(power) = userlist.Rows(0).Ite米(5)在用户查看自己的 信息时,把绑定的 用户信息显示出来,代码如下:userna米eshow.Text = Session(na米e) sexshow.Text = Session(sex) positionshow.Text = Session(position) te