|
第六章 系统具体实现 主界面实现： 功能：对所有设备进行添加，查询，修改，删除操作，对用户密码进行修改，对每条设备信息进行打印。 http://www.paper51.com
内容来自论文无忧网 www.paper51.com 数据编缉界面实现功能： http://www.paper51.com
对于设备的编号，设备名称，设备型号，制造商，国别，购买日期，单价，数量，使用单位，使用人，管理员，放置地点，已使用年限，设备来源，报年限，联系电话等记录进行录入，删除，修改，打印操作！ 内容来自www.paper51.com 数据查询界面与功能简介 copyright paper51.com
copyright paper51.com 实现对在所有的设备记录中查找某一个设备的说细信息，也可在查询完一个后点 击 http://www.paper51.com 下一个按钮对下一条记录进行查询。 http://www.paper51.com 第七章．结束语 copyright paper51.com 经过一个多月的设计和开发，设备管理信息系统基本开发完毕。其功能基本符合用户需求，能够实现固设备的基本信息的录入、更新、删除、打印等基本功能，从而实现设备的管理。对于数据的一致性的问题也通过程序进行了有效的解决。但是由于毕业设计时间较短，所以该系统还有许多不尽如人意的地方，比如联机文档比较少，用户界面不够美观，出错处理不够等多方面问题。这些都有待进一步改善。 内容来自www.paper51.com
致谢 copyright paper51.com 在本次毕业设计中，我从指导老师身上学到了很多东西。老师认真负责的工作态度，严谨的治学精神和深厚的理论水平都使我收益匪浅。他无论在理论上还是在实践中，都给与我很大的帮助，使我得到不少的提高这对于我以后的工作和学习都有一种巨大的帮助，感谢他耐心的辅导。 http://www.paper51.com 另外，在系统开发过程中助手同学也给于我很大的帮助，帮助解决了不少的难点，使得系统能及时开发完成，还有同组的同学同样给与我不少帮助，这里一并表示感谢。 copyright paper51.com
第八章．主要参考文献 paper51.com [1]Visual Basic 6.0 使用指南 copyright paper51.com 作者：Bob Reselman ,Richard Peasley , Wayne Pruchniak. paper51.com 出版社：电子工业出版社 内容来自论文无忧网 www.paper51.com
[2] 中文版Microsoft Office 97 自学通 内容来自www.paper51.com 作者：Ned Snell 内容来自论文无忧网 www.paper51.com
出版社：机械工业出版社 paper51.com
[3] Visual Basic 6.0 中文版控件大全 paper51.com 作者：Microsoft paper51.com 出版社；电子工业出版社 内容来自www.paper51.com [4] 中文Access 2000 24学时教程 http://www.paper51.com 作者：Craig Eddy ，Timothy Buchanan 内容来自论文无忧网 www.paper51.com
出版社：机械工业出版社 http://www.paper51.com 九． 程序源代码、各功能模块的程序流程图 paper51.com
――――登录界面源代码： copyright paper51.com
copyright paper51.com Private Sub Command1_Click() paper51.com If Trim(Text1.Text) = Trim(Text3.Text) AndTrim(Text2.Text) = Trim(Text4.Text) Then copyright paper51.com Form2.Show paper51.com Unload Me copyright paper51.com Else 内容来自论文无忧网 www.paper51.com
For X = 1 To 1 内容来自论文无忧网 www.paper51.com
If A1.Recordset.EOF = True Then 内容来自论文无忧网 www.paper51.com MsgBox "您输入的用户名和密码有误，请重新输入！",16, "出错：" http://www.paper51.com Text1.Text = "" 内容来自论文无忧网 www.paper51.com Text2.Text = "" copyright paper51.com
A1.Recordset.AbsolutePosition = 1 paper51.com
Else paper51.com If Trim(Text1.Text) = Trim(Text3.Text) And Trim(Text2.Text) =Trim(Text4.Text) Then paper51.com MDIForm1.Show http://www.paper51.com MDIForm1.Print Command1.Tag http://www.paper51.com copyright paper51.com MDIForm1.Tag = Text1.Text copyright paper51.com Unload Me http://www.paper51.com
Else 内容来自论文无忧网 www.paper51.com X = X - 1 内容来自www.paper51.com
A1.Recordset.MoveNext paper51.com End If paper51.com End If 内容来自论文无忧网 www.paper51.com Next X copyright paper51.com End If 内容来自www.paper51.com End Sub 内容来自www.paper51.com Private Sub Command2_Click() paper51.com Unload Me 内容来自论文无忧网 www.paper51.com End Sub 内容来自www.paper51.com |