新建 文本文档.txt

来自「可以帮助交通部门管理车辆肇事后的相关事宜」· 文本 代码 · 共 36 行

Private Sub cmdok_Click()
    If Option1.Value = True Then
        查询界面.Show
        Form2.Hide
    ElseIf Option2.Value = True Then
        Label1.Enabled = True
        Text1.Enabled = True
        Label2.Enabled = True
        Text2.Enabled = True
        Data1.Recordset.FindFirst "用户名='" & Text1.Text & "'"
            If Data1.Recordset!密码 = Text2.Text Then
                 Form2.Text1.SetFocus
                 进入界面.Show
                 Form2.Hide
                 Text1.Text = ""
                 Text2.Text = ""
    
Else
    msg = MsgBox("用户名或密码错误")
    Text1.Text = ""
    Text2.Text = ""
    Text1.SetFocus


If Text1.Text = "" Then
MsgBox "请输入用户名"
ElseIf Text2.Text = "" Then



MsgBox "请输入密码"
End If
End If
End If

End Sub