毕业论文论文范文课程设计实践报告法律论文英语论文教学论文医学论文农学论文艺术论文行政论文管理论文计算机安全
您现在的位置: 毕业论文 >> 论文 >> 正文

学生信息管理系统毕业论文和原代码 第31页

更新时间:2007-9-25:  来源:毕业论文

Set mrc = ExecuteSQL(txtSQL, MsgText)

While (mrc.EOF = False)

If Trim(mrc.Fields(0)) = Trim(Text1(0)) Then

MsgBox "用户已经存在,请重新输入用户名!", vbOKOnly + vbExclamation, "警告"

Text1(0).SetFocus

Text1(0).Text = ""

Text1(1).Text = ""

Text1(2).Text = ""

Exit Sub

Else

mrc.MoveNext

End If

Wend

End If

 

If Trim(Text1(1).Text) <> Trim(Text1(2).Text) Then

MsgBox "两次输入密码不一样,请确认!", vbOKOnly + vbExclamation, "警告"

Text1(1).SetFocus

Text1(1).Text = ""

Text1(2).Text = ""

Exit Sub

 

Else

If Text1(1).Text = "" Then

MsgBox "密码不能为空!", vbOKOnly + vbExclamation, "警告"

Text1(1).SetFocus

Text1(1).Text = ""

Text1(2).Text = ""

Else

mrc.AddNew

mrc.Fields(0) = Trim(Text1(0).Text)

mrc.Fields(1) = Trim(Text1(1).Text)

mrc.Update

mrc.Close

Me.Hide

MsgBox "添加用户成功!", vbOKOnly + vbExclamation, "添加用户"

End If

End If

End Sub

 

.........................................................................................................

 << 上一页  [31] [32] [33] [34] [35] [36] [37] [38] [39] [40]  ... 下一页  >> 

学生信息管理系统毕业论文和原代码 第31页下载如图片无法显示或论文不完整,请联系qq752018766
设为首页 | 联系站长 | 友情链接 | 网站地图 |

copyright©751com.cn 辣文论文网 严禁转载
如果本毕业论文网损害了您的利益或者侵犯了您的权利,请及时联系,我们一定会及时改正。