毕业论文图书管理系统源代码.doc

登录窗体代码:
Imports
Public Class FormDengLu
Dim biaozhi As Boolean
Private Sub ButtonDengLu_Click(ByVal sender As Object, ByVal e As ) Handles
= "user id=sa;password=;initial catalog=重庆新华电脑学校图书管理系统;data source=(local)"
()
Dim sqlcomm As New SqlCommand
Dim sqlds As New DataSet
Dim sqldapt As New SqlDataAdapter
= "select * from userinfo where username='" & & "' and password='" & & "'"
= sqlconn
= sqlcomm
(sqlds, "userinfo")
If ("userinfo"). = 0 Then
If ("用户名或密码错误", "错误提示"Then
= ""
= ""
()
End If
Else
biaozhi = True
()

End If
End Sub
Private Sub FormDengLu_FormClosing(ByVal sender As Object, ByVal e AsHandles
If biaozhi = False Then
End
End If
End Sub
Private Sub FormDengLu_Shown(ByVal sender As Object, ByVal e As ) Handles
()
= New Bitmap( & "\picture\")
= New Bitmap( & "\picture\")
= New Bitmap( & "\picture\")
= "用户登录提示:" & vbCrLf & vbCrLf & "系统默认用户名" & vbCrLf & vbCrLf & "admin,密码admin"
= New Bitmap( & "\picture\")
= New Bitmap( & "\picture\")
End Sub
Private Sub ButtonTuiChu