登陆界面设计.docVIP

登陆界面设计 在说步骤之前，我要着重强调，要完成本实例，首先得进行的步骤是 “工程” —— “引用”—— Microsoft ActiveX Data Objects 2.X Library ,即ADO 建议用2.6往上 ） 步骤一：建立数据库 要想用SQL中存放的帐号数据来登录，肯定要先有存放帐号密码的数据表，假设我们的数据库为 Test，其中有一张表，叫做 test_users ，表中有两个字段，分别是userID 和 password ，分别存放登陆帐号和密码。 步骤二：新建窗体 ①在VB中，本就有现成的登陆窗体，可以直接选择，当然，也可以创建一个空白的窗体，开发者添加内容（即“控件”），然后Caption 属性设置为“登录”或者“login”，当然，也可以自己随意添加，主要用来让窗口显示我们希望的标题。 ②建立登陆界面，肯定是想登录成功后进入另一个界面，因此，我们需要再添加一个窗体，用来验证登录是否成功，在这里，我们将这个窗体的Name 名称 属性设为默认的 Form2； 步骤三：设置窗体 首先向新建的窗体分别添加两个 Label 控件、两个 TextBox 控件和两个 CommandButton，各控件属性如下表： 控件 属性 属性值 Label1 Caption 用户名 AutoSize True Label2 Caption 密码 AutoSize True Text1 Text NULL Text2 PasswordChar * Text NULL Command1 Caption 确定 Command2 Caption 取消 如果想让按下回车就默认选择“确定”按钮，只需将 Command1 的Default 属性更改为 True 即可，设置好后的窗体如下图 步骤四:填写代码（最重要的一步） 首先双击窗体，打开代码编辑界面，输入如下代码： Private Sub Form_Load ‘此段代码的主要作用是当窗体打开时就连接数据库 Dim conn As New ADODB.Connection Dim connectionstring As String Connectionstring Provider SQLOLEDB.1;User ID sa;password ; Data Source 127.0.0.1;Initial Catalog Test1 conn.Open connectionstring End Sub 注释： 其中：‘User ID 代表本机SQL 的登陆帐号；password 是密码；Data Source代表数据源，在本例中，你还可将 127.0.0.1改为 local 或者你的SQL 服务器名称； Intitial Catalog就是你要连接的数据库名称。 接着双击“确定”，同样的，输入如下代码： Private Sub Command1_Click Dim sql As String Dim conn As New ADODB.Connection Dim rs_login As New ADODB.Recordset If Trim Text1.Text Then ‘检测用户名正确与否 MsgBox 用户名不能为空，请重新输入！, vbOkOnly + vbExclamation, 错误 Text1.SetFocus Else sql select * from Test where test_users Text1.Text rs_login.Open sql, conn, adOpenKeyset, adLockPessimistic If rs_login.EOF True Then MsgBox 用户名不存在，请重新输入！,vbOkOnly + vbExclamation , 错误 Text1 Text1.SetFocus Else ‘检测密码正确与否 If Trim rs_login.Fields 1 Trim Text2 Then rs_login.Close Unload Me Form2.Show Else MsgBox 密码错误，请重新输入！, vbOKOnly + vbExclamation, 错误 Text2.SetFocus End If End If End If End Sub 最后双击“取消”按钮，输入如下代码