数据库编程案例代码

登录窗体

Option Compare Database

Private Sub Command4_Click()

Dim str As String

Dim rs As New ADODB.Recordset

Dim fd As ADODB.Field

Set cn = CurrentProject.Connection

logname = Trim(Me!username)

pass = Trim(Me!pass)

If Len(Nz(logname)) = 0 Then '判断username文本框是否为空

MsgBox "请输入用户名"

ElseIf Len(Nz(pass)) = 0 Then '判断pass文本框是否为空

MsgBox "请输入密码"

Else

str = "select * from 用户表 where 用户名='" & logname & "'and 密码='" & pass & "'"

rs.Open str, cn, adOpenDynamic, adLockOptimistic, adCmdText

If rs.EOF Then

MsgBox "没有这个用户名或密码输入错误，请重新输入"

https://www.360docs.net/doc/d711331336.html,ername = "" '清空username文本框，为下次输入做准备

Me.pass = "" '清空pass文本框，为下次输入做准备

https://www.360docs.net/doc/d711331336.html,ername.SetFocus '使username文本框获得焦点

Else

Set fd = rs.Fields("权限")

If fd = "管理员" Then

DoCmd.Close

DoCmd.OpenForm "管理员管理界面"

MsgBox "欢迎您，管理员。但管理员界面还在建设中..."

Else

DoCmd.Close

DoCmd.OpenForm "学生信息浏览"

MsgBox "欢迎使用学生信息管理系统"

End If

End If

End If

End Sub

Private Sub Command5_Click()

DoCmd.Close

End Sub

Private Sub Command6_Click()

DoCmd.Close

DoCmd.OpenForm "注册界面"

End Sub

注册窗体

Option Compare Database

Private Sub Command6_Click()

Dim str As String, str2 As String

Dim rs As New ADODB.Recordset

Dim fd As ADODB.Field

Set cn = CurrentProject.Connection

logname = Trim(Me!Tusernew)

logpass = Trim(Me!Tpass)

If Len(Nz(logname)) = 0 Then

MsgBox "请先按要求输入注册的用户名"

Else

str = "select * from 用户表 where 用户名='" & logname & "'" rs.Open str, cn, adOpenDynamic, adLockOptimistic, adCmdText If rs.EOF Then

If Me!Tpass = Me!Tenter Then

str2 = "insert into 用户表(用户名,密码) " & "values('" & logname & "','" & logpass & "')"

DoCmd.RunSQL str2

Else

MsgBox "确认口令不正确！"

End If

Else

MsgBox "该用户名已经注册！请重新输入！"

Me!Tusernew = ""

End If

End If

End Sub

Private Sub Command7_Click()

DoCmd.Close

End Sub

Private Sub Command8_Click()

DoCmd.Close

DoCmd.OpenForm "系统登录窗体"

End Sub