1.用户注册:检验用户名;注册(并将信息导入表“用户密码表”);重写(已输入的东西删除);用户名限制为字母和数字(6-12)
答案:
(1)在用户注册窗体上的Text1控件后加一个名为“校验”的标签控件
(2)在用户注册窗体的加载事件中写如下代码:
Private Sub Form_Load()
Me.校验.Caption = ""
Me.Text1.InputMask = "aaaaaaaaaaaa"
End Sub
(3)在Text1控件的更新后事件中写如下代码:
Private Sub Text1_AfterUpdate()
If Nz(DLookup("用户名", "用户密码表", "用户名='" & Me.Text1.Value & "'"), "") = "" Then
Me.校验.Caption = "可用"
Else
Me.校验.Caption = "用户名已存在"
Me.Text1.Value = Null
End If
End Sub