VB+SQL教学管理系统实现代码示例
Private Sub cmdok_Click() Dim txtsql As String Dim mrc As ADODB.Recordset Dim msgtext As String If Trim(txtusername.Text) = "" Then MsgBox "请输入用户名称!", vbOKOnly, "警告" Exit Sub End If '判断输入的密码是否一致If Trim(txtpassword1.Text) Trim(txtpassword2.Text) Then MsgBox "两次输入密码不一样,请确认!", vbOKOnly, "警告" Exit Sub End If Len(txtpassword1.Text) = 0 Then MsgBox "输入密码不能为空!", vbOKOnly, "警告" Exit Sub End If txtsql = "select*from user_info where user_ID ='" & txtusername.Text & "'" Set mrc = executesql(txtsql, msgtext) If mrc.EOF Then mrc.addnew mrc.fields("user_ID") = Trim(txtusername.Text) mrc.Update MsgBox "添加用户成功!", vbOKOnly, "添加用户" Else MsgBox "用户已经存在,请重新输入用户名!", vbOKOnly, "警告" Exit Sub End If Private Sub cmbcancel_click() Unload Me End Sub
文件大小：716.71KB
评论区