皮皮网

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

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 有一个登陆表 有两个字段名 用户名 密码

       新建vb工程，然后点击“工程”-->“引用”，框源在以下两个选项前挑勾：

       Microsoft Data Environment Instance 1.0

       Microsoft ActiveX Objects 2.5 Library

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

       建立Access数据库，计代在这个vb工程文件夹新建一个文件夹，系统403错误页源码命名为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 "用户名不存在。",max币源码下载 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，密码是天空之城mud源码，点确定按钮就进入一个主界面，程序代码是什么？急！

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

       Private sub command1_click()

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

       form2.show

       else

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

       end if

       end sub