开发工具:
文件大小: 717kb
下载次数: 0
上传时间: 2009-06-17
详细说明： VB+SQL教学管理系统哦rivate 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 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 ...展开收缩
(系统自动生成,下载前可以参看下载内容)
下载文件列表
相关说明
- 本站资源为会员上传分享交流与学习,如有侵犯您的权益,请联系我们删除.
- 本站是交换下载平台，提供交流渠道，下载内容来自于网络，除下载问题外，其它问题请自行百度。
- 本站已设置防盗链，请勿用迅雷、QQ旋风等多线程下载软件下载资源，下载后用WinRAR最新版进行解压.
- 如果您发现内容无法下载，请稍后再次尝试；或者到消费记录里找到下载记录反馈给我们.
- 下载后发现下载的内容跟说明不相乎，请到消费记录里找到下载记录反馈给我们，经确认后退回积分.
- 如下载前有疑问，可以通过点击"提供者"的名字，查看对方的联系方式，联系对方咨询.
