1.VB登陆窗体代码。源码数据库呢是登录access的 数据库名为data 有一个登陆表 有两个字段名 用户名 密码
VB登陆窗体代码。数据库呢是源码策划公司源码access的 数据库名为data 有一个登陆表 有两个字段名 用户名 密码
新建vb工程,然后点击“工程”-->“引用”,登录在以下两个选项前挑勾:Microsoft Data Environment Instance 1.0
Microsoft ActiveX Objects 2.5 Library
因为你要用Access数据库,源码.neterp源码所以需要在工程中添加控件。登录源码 返利
建立Access数据库,源码在这个vb工程文件夹新建一个文件夹,登录命名为table,源码然后将这个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
已经附上截图了,如果还有疑问,源码nxp 源码发电邮给我rearguard_zero@hotmail.com
登录登录2024-12-24 08:36
2024-12-24 07:58
2024-12-24 07:44
2024-12-24 07:38
2024-12-24 07:27
2024-12-24 07:22