vb 6.0 + access制作登陆界面&超详细讲解&(适合新手)

《vb 6.0 + access制作登陆界面&超详细讲解&(适合新手)》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、VB6.0+Access制作登陆界面&超详细讲解&（适合新手）前段时间，我也为用VB6.0制作登陆界面而痛苦，为此，我没少上百度，没少查资料，终于，现在大功告成了，现在我也来分享一下我的个人经验！（在说步骤之前，我要着重强调，要完成本实例，首先得进行的步骤是“工程”——>“引用”——>MicrosoftActiveXDataObjects2.XLibrary,即ADO(建议用2.6往上)）步骤一：建立数据库要想用Access中存放的帐号数据来登陆，肯定要先有存放帐号密码的数据库吧，这里假设我们用到的数据库为Test，其中有一

2、张表，叫做test_info，表中有两个字段，分别是userID和password，分别存放登陆帐号和密码。步骤二：新建窗体①在VB中，本就有现成的登陆窗体，我们可以直接选择，当然，也可以创建一个空白的窗体，我们自己添加内容（即“控件”），然后Caption属性设置为“登陆”或者“login”，当然，也可以自己随意添加，主要用来让窗口显示我们希望的标题。②建立登陆界面，肯定是想登陆成功后进入另一个界面，因此，我们需要再添加一个窗体，用来验证登陆是否成功，在这里，我们将这个窗体的Name(名称)属性设为默认的Form2步骤三：

3、设置窗体首先向新建的窗体分别添加两个Label控件、两个TextBox控件和两个CommandButton，各控件属性如下表：控件属性属性值Label1Caption用户名AutoSizeTrueLabel2Caption密码AutoSizeTrueText1TextNULLText2PasswordChar*TextNULLCommand1Caption确定Command2Caption取消如果想让按下回车就默认选择“确定”按钮，只需将Command1的Default属性更改为True即可，设置好后的窗体如下图步骤四:填写

4、代码（最重要的一步）说到代码，我想就是大家最关切的问题了，那我就具体来说说这个代码吧，首先双击窗体，打开代码编辑界面，输入如下代码：PrivateSubForm_Load()‘此段代码的主要作用是当窗体打开时就连接数据库DimconnAsNewADODB.ConnectionDimconnectionstringAsStringConnectionstring="Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&"E:Test.mdb;PersistSecurityInfo=Fal

5、se"‘将DataSource处的路径改为你本机数据库所在路径即可conn.OpenconnectionstringEndSub接着双击“确定”，同样的，输入如下代码：PrivateSubCommand1_Click()DimsqlAsStringDimconnAsNewADODB.ConnectionDimrs_loginAsNewADODB.RecordsetIfTrim(Text1.Text)=""Then‘检测用户名正确与否MsgBox"用户名不能为空，请重新输入！",vbOkOnly+vbExclamation,"

6、错误"Text1.SetFocusElsesql="select*fromTestwheretest_info='"&Text1.Text&"'"rs_login.Opensql,conn,adOpenKeyset,adLockPessimisticIfrs_login.EOF=TrueThenMsgBox"用户名不存在，请重新输入！",vbOkOnly+vbExclamation,"错误"Text1=""Text1.SetFocusElse‘检测密码正确与否IfTrim(rs_login.Fields(1))=Trim(T

7、ext2)Thenrs_login.CloseUnloadMeForm2.ShowElseMsgBox"密码错误，请重新输入！",vbOKOnly+vbExclamation,"错误"Text2.SetFocusEndIfEndIfEndIfEndSub最后双击“取消”按钮，输入如下代码：PrivateSubCommand2_Click()MsgBox"您已成功退出！",vbOkOnly+vbExclamation,"提示"UnloadMeEndSub如果想加入三次输入错误就退出的功能，这个倒网上找个小代码加入Command

8、_Click()就行了，思路是定义一个变量，赋初值为0，错误一次，这个变量增加1，如果这个变量等于3了，就UnloadMe。步骤五：启动（F5）有了上面的步骤，接下来就是检验成果的阶段了，当然，我知道，跟着我的步骤来，难免还是会出现登陆不上的错误，而到了这个时候，就是考验你的耐心与细心的时