登录验证密码
设计
领导形象设计圆作业设计ao工艺污水处理厂设计附属工程施工组织设计清扫机器人结构设计
Option Compare Database
Public Function getrs(ByVal strquery As String) As ADODB.Recordset
Dim rs As New ADODB.Recordset
Dim conn As New ADODB.Connection
On Error GoTo getrs_error
Set conn = CurrentProject.Connection
rs.Open strquery, conn, adOpenKeyset, adLockOptimistic
Set getrs = rs
getrs_exit:
Set rs = Nothing
Set conn = Nothing
Exit Function
getrs_error:
MsgBox (Err.Description)
Resume getrs_exit
End Function
Private Sub Form_Load()
文本 Me.1.SetFocus
文本Me.1 = ""
文本 Me.3 = ""
End Sub
命令Private Sub 5_Click()
On Error GoTo err_command9_click
Dim rs As New ADODB.Recordset
Dim str As String
Dim n As Integer
注
表
关于同志近三年现实表现材料材料类招标技术评分表图表与交易pdf视力表打印pdf用图表说话 pdf
册用户注表 册注表册用户名文本 str = "select count(.ID)from where .='" & Me.1
注表册用户密户文本 str = str & "'and .='" & Me.3 & "'"
Set rs = getrs(str)
n = rs(0)
文本文本 If Trim(Me.1) = "" Or IsNull(Me.1) Then
户户入用户名,称 MsgBox ("")
文本文本ElseIf Trim(Me.3) = "" Or IsNull(Me.3) Then
户户入用户密户,MsgBox ("")
ElseIf n <> 1 Then
用户名密户不正,确 MsgBox ("")
Else
Me.Visible = False
主窗体 DoCmd.OpenForm ""
End If
exit_command9_click:
Exit Sub
err_command9_click:
MsgBox (Err.Description)
Resume exit_command9_click
End Sub
命令 Private Sub 6_Click()
DoCmd.Quit
End Sub