VB设备管理系统设计+需求分析+可行性分析(15)
参考文献
[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()