聊天系统的设计与开发
这个是郑州大学的06及学生的一个毕业设计
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click If TextBox1.Text = "" Then MsgBox("用户名或密码输入错误!") Else Dim dblink As New SqlCeConnection("Data Source=|DataDirectory|\人事管理系统.sdf") Dim selectstring As String selectstring = "SELECT password FROM 管理员 WHERE (usename = '" + TextBox1.Text + "')" dblink.Open() Dim sql As New SqlCeCommand(selectstring, dblink) If sql.ExecuteScalar Is Nothing Then Me.Hide() Me.Text = TextBox1.Text TextBox2.Text = "" MsgBox("欢迎你" + Me.Text + "登录") 用户登录类型.Show() ElseIf TextBox2.Text = sql.ExecuteScalar Then Me.Hide() Me.Text = TextBox1.Text TextBox2.Text = "" MsgBox("欢迎你" + Me.Text + "登录") 用户登录类型.Show() Else MsgBox("你输入的账号或密码错误") TextBox2.Text = "" End If dblink.Close() End If