VB设备管理系统设计+需求分析+可行性分析(15)
时间:2016-11-23 19:01 来源:毕业论文 作者:毕业论文 点击:次
参考文献 [1] 郑阿奇.Visual Basic实用教程（第2版）[M].北京：电子工业出版社,2004.1.20. [2] 杨忠宝. VB语言程序设计教程[M].北京：人民邮电出版社,2010.12.15. [3] 刘韬.Visual Basic6.0数据库系统开发导航[M].北京：人民邮电出版社,2003.56.112. [4] 郑阿奇. SQL Server 实用教程（第2版）[M].北京：电子工业出版社,2005.7.18. [5] 林卓然.VB语言程序设计(第2版)[M] .北京：电子工业出版社,2009.25.87 [6] 王珊,萨师煊.数据库系统概论(第4版)[M].北京：高等教育出版社,2006.37. [7] 沈洪,施明利,江鸿宾.VB程序设计案例汇编[M].北京：清华大学出版社,2010.34.54. [8]姚茂群. Access 2003数据库案例教程[M].北京：科学出版社,2010.1.15. [9] 神龙工作室. Access 2003从入门到精通[M].北京：人民邮电出版社,2011.112.143. [10] 李佳，范俊弟，邓剑民. Access2003数据库应用[M].北京：人民邮电出版社,2006.242.247. [11] S.K. Gupta , V.K. Agrawal , S.N. Singh ,V. Seshadri , David Mills , An experimental investigation on a fluidized motion conveying system，2006 [12] Bill Evjen ,Billy Hollis，Professional Visual Basic 2008，Wiley Publishing,2008. [13] Bob Reselman , Richard Peasley , Wayne Pruchniak .Visual Basic 6.0 使用指南[M].北京：电子工业出版社,2002.132.137. [14] 苏思瑜.设备管理系统的设计与实现[D].武汉：华中科技大学.2004. [15] 袁五星.学生档案管理系统的设计[D] .上海：上海应用技术学院,2012. 附录 登录界面： Dim cnt As Integer Dim Conn As New ADODB.Connection Private Sub command1_Click() Dim sql As String Dim rs_login As New ADODB.Recordset If Trim(Text1.Text) = "" Then MsgBox "没有这个用户", vbOKOnly + vbExclamation, "" Text1.SetFocus Else sql = "select * from登录界面 where 用户名='" & Text1.Text & "'" rs_login.Open sql, conn, adOpenKeyset, adLockPessimistic If rs_login.EOF = True Then MsgBox "没有这个用户", vbOKOnly + vbExclamation, "" Text1.SetFocus Else If Trim(rs_login.Fields(1)) = Trim(Text2.Text) Then userID = Text1.Text rs_login.Close Unload Me 主界面.Show Else MsgBox "密码不正确", vbOKOnly + vbExclamation, "" Text2.SetFocus End If End If End If cnt = cnt + 1 If cnt = 3 Then Unload Me End If Exit Sub End Sub Private Sub Command2_Click() Unload Me End Sub Private Sub Form_Load() Dim connectionstring As String connectionstring = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & App. Path & "设备管理系统.mdb " & "Persist Security Info=False" conn.Open connectionstring cnt = 0 End Sub 主界面： Private Sub 基本信息_Click() 设备基本信息.Show Unload Me End Sub Private Sub 领用登记_Click() 设备领用登记.Show Unload Me End Sub Private Sub 领用_Click() 领用报表.Show Unload Me End Sub Private Sub 消耗_Click() (责任编辑：qin) |