某毕业论文-图书管理系统-源代码.docVIP

登录窗体代码: Imports System.Data.SqlClient Public Class FormDengLu Dim biaozhi As Boolean Private Sub ButtonDengLu_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles ButtonDengLu.Click sqlconn.ConnectionString = user id=sa;password=;initial catalog=重庆新华电脑学校图书管理系统;data source=(local) sqlconn.Open() Dim sqlcomm As New SqlCommand Dim sqlds As New DataSet Dim sqldapt As New SqlDataAdapter sqlcomm.CommandText = select * from userinfo where username= TextBoxYongHu.Text and password= TextBoxMiMa.Text sqlcomm.Connection = sqlconn sqldapt.SelectCommand = sqlcomm sqldapt.Fill(sqlds, userinfo) If sqlds.Tables(userinfo).Rows.Count = 0 Then If MessageBox.Show(用户名或密码错误, 错误提示, MessageBoxButtons.OK, MessageBoxIcon.Error) = Windows.Forms.DialogResult.OK Then TextBoxYongHu.Text = TextBoxMiMa.Text = sqlconn.Close() End If Else biaozhi = True Me.Close() FormZhuJieMian.ToolStripStatusLabel2.Text = Me.TextBoxYongHu.Text End If End Sub Private Sub FormDengLu_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing If biaozhi = False Then End End If End Sub Private Sub FormDengLu_Shown(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Shown TextBoxYongHu.Focus() Me.PictureBox1.Image = New Bitmap(Application.StartupPath \picture\denglu.jpg) Me.BackgroundImage = New Bitmap(Application.StartupPath \picture\backgroudimage.jpg) Label1.Image = New Bitmap(Application.StartupPath \picture\backgroudimage.jpg) Label1.Text = 用户登录提示: vbCrLf vbCrLf 系统默认用户名 vbCrLf vbCrLf admin,密码admin Label1.Image = New Bitmap(Application.StartupPath \picture\backgroudimage.jpg) GroupBox1.BackgroundImage = New Bitmap