|
conn.Open() 与数据库相连以后，获取用户输入的用户名及密码信息，相关代码为： paper51.com With comm.Parameters http://www.paper51.com .Add(New SqlClient.SqlParameter("@name",SqlDbType.Char)).Value copyright paper51.com = UsernameTextBox.Text copyright paper51.com .Add(NewSqlClient.SqlParameter("@PassWord",SqlDbType.Decimal)).Value= PasswordTextBox.Text http://www.paper51.com
.Add(NewSqlClient.SqlParameter("ReturnValue",SqlDbType.Int)).Direction paper51.com
=ParameterDirection.ReturnValue http://www.paper51.com End With copyright paper51.com
然后再将获取的信息与信息表里的信息进行比较，做出是否登录的判断，如果用户名和密码不相匹配的话，则无法登录。相关代码为： 内容来自论文无忧网 www.paper51.com Dim dr As String copyright paper51.com dr = CStr(comm.ExecuteScalar) copyright paper51.com
If dr <> "" Then 内容来自论文无忧网 www.paper51.com
MessageBox.Show("已经登录了", dr.ToString + "用户号",MessageBoxButtons.OK,MessageBoxIcon.Information, MessageBoxDefaultButton.Button3) 内容来自论文无忧网 www.paper51.com flag = True 内容来自论文无忧网 www.paper51.com Else http://www.paper51.com flag = False copyright paper51.com MessageBox.Show("登录失败", "请先登录",MessageBoxButtons.YesNo, MessageBoxIcon.Error, MessageBoxDefaultButton.Button1) paper51.com OK.Enabled = False copyright paper51.com Me.Close() http://www.paper51.com End If 内容来自www.paper51.com
4.2用户信息管理模块的设计 paper51.com 添加用户信息页面主要实现对新用户的信息进行添加的功能。因为本系统涉及到对用户的财务信息进行相关的管理，这些信息对于用户来说应该是相当机密相当重要的。所以，本系统添加的用户只能够是家庭内部成员。在以后需要的情况下，可以由已经存在的拥护从数据库中添加新的用户。从下图中，我们可以看到添加用户信息的界面中的各个需要添加的信息项： copyright paper51.com
paper51.com
图4 用户信息管理界面示意图 内容来自www.paper51.com
|