1.VB6.0 帐号登录代码
2.VB登陆窗体代码。系统数据库呢是登录b登access的 数据库名为data 有一个登陆表 有两个字段名 用户名 密码
3.VB中，如果登录界面的框源用户名称是jenny，密码是码v面设码12345，点确定按钮就进入一个主界面，录界pso源码程序代码是计代微信伴侣 源码什么？急！

VB6.0 帐号登录代码

       æ–¹æ³•ä¸€ï¼š

       å¯åŠ¨çª—体为程序的主窗体，然后在主窗体的load事件中

       me.hide

       ç™»é™†çª—体名称.show

       ç„¶åŽåœ¨ç™»é™†çª—体中的登陆按钮代码

       if text1.text = "登陆账号" and text2.text = "登陆密码" then

       ä¸»çª—体名称.show

       me.close

       else

       msgbox"密码不正确"

       end sub

       end if

       æ–¹æ³•äºŒï¼š

       é¦–先启动的登陆窗体，登陆窗体的登陆按钮代码：

       if text1.text = "登陆账号" and text2.text = "登陆密码" then

       ä¸»çª—体名称.show

       me.hide

       else

       msgbox"密码不正确"

       end sub

       end if

VB登陆窗体代码。系统数据库呢是登录b登access的 数据库名为data 有一个登陆表 有两个字段名 用户名 密码

       Microsoft Data Environment Instance 1.0

       Microsoft ActiveX Objects 2.5 Library

       因为你要用Access数据库，码v面设码所以需要在工程中添加控件。录界

       建立Access数据库，计代在这个vb工程文件夹新建一个文件夹，系统online judge php源码命名为table，登录b登然后将这个Access数据库文件放入table文件夹中。框源

       源代码：

       Private Con_Access As Connections

       Private Sub Form_Load()

           Set Con_Access = New Connection

           With Con_Access

               .Provider = "microsoft.jet.oledb.4.0"

               .ConnectionString = App.Path & "\table\ship.mdb"

               .Open

           End With

       End Sub

       Private Sub cmdOK_Click()

           Dim cmd As New Command

           Dim rd As New Recordset

           cmd.ActiveConnection = Con_Access

           cmd.CommandText = "select username,userpassword from usertable where username='" & Text1.Text & "'"

           On Error GoTo db_error

           Set rd = cmd.Execute

           On Error GoTo 0

           If rd.EOF Then

               MsgBox "用户名不存在。",展示相册网站源码 vbOKOnly + vbInformation, "错误"

               Exit Sub

           End If

       db_error:

           MsgBox Err.Description, vbOKOnly + vbInformation, "错误"

       End Sub

       Private Sub cmdCancel_Click()

           End

       End Sub

       已经附上截图了，如果还有疑问，发电邮给我rearguard_zero@hotmail.com

VB中，如果登录界面的用户名称是jenny，密码是网站crm源码下载，点确定按钮就进入一个主界面，程序代码是什么？急！

       登陆界面为form1，加一个Text1，输入用户名，text2，输入密码，一个按钮，用来登陆，进入的主界面为form2，代码如下

       Private sub command1_click()

       if text1.text="jenny" and text2.text="" then

       form2.show

       else

       msgbox ("用户名不存在或密码错误！")

       end if

       end sub