计算机毕业设计介绍：
4.7 用户信息维护页面（frmUserList）
点击用户管理里的用户信息管理，显示用户信息维护页面，包括用户帐号，添加、删除、清空和取消按钮。
|
以下是引用片段：
Private Sub btn添加_Click()
'添加用户
If ExecSql("select * from 用户 where 用户帐号='" & Me.Text3.Text & "'").RecordCount > 0 Then
MsgBox "用户帐号重复,不能添加!"
Exit Sub
End If
Dim strResult As String
strResult = Exec_SqL("insert into 用户(用户帐号,用户密码) values ('" & Trim(Me.Text3.Text) & "','000000')")
If strResult <> "OK" Then
MsgBox strResult
Exit Sub
End If
Call initForm
End Sub
Private Sub UserControl11_Click()
'删除用户信息
Dim strResult As String
strResult = Exec_SqL("delete from 用户 where 用户帐号='" & Trim(Me.Text3.Text) & "'")
If strResult <> "OK" Then
MsgBox strResult
Exit Sub
End If
Call initForm
End Sub
|
〖资料来源:计算机毕业论文 www.xiaoniu168.com〗
第11页为计算机毕业论文部分......