【文件属性】:
文件名称:VB+SQL教学管理系统
文件大小:717KB
文件格式:RAR
更新时间:2012-07-07 05:13:13
教学管理系统
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
【文件预览】:
VB
----dl.frm(6KB)
----frmcjquery.frm(8KB)
----模块.doc(51KB)
----student.frm(815B)
----FRMCJQ~1.log(143B)
----frmcjadd.log(223B)
----1_200803240113511aKeX.gif(134KB)
----frmrshz.frm(2KB)
----frmmodify.frm(3KB)
----dl.log(67B)
----frmxjquery.log(67B)
----新建 Microsoft Word 文档 (4).doc(24KB)
----MSSCCPRJ.SCC(196B)
----FRMMAIN.FRX(134KB)
----frmmain.frm(2KB)
----frmcjadd.frm(6KB)
----student_MIS.vbp(2KB)
----sj.doc(42KB)
----Student_db_Log.LDF(1024KB)
----Module1.bas(1020B)
----Register1.log(65B)
----frmAdduser.frm(4KB)
----frmcjadd.frx(33B)
----frmmain.tbk(74KB)
----frmcjmodify.frx(33B)
----student_MIS.vbw(627B)
----新建 Microsoft Word 文档 (3).doc(21KB)
----frmmain.001(74KB)
----frmxjquery.frm(10KB)
----Thumbs.db(6KB)
----frmpjf.frx(42B)
----frmxjquery.frx(21B)
----Register1.frx(193KB)
----代码大全()
--------frmadduser.txt(849B)
--------frmxjadd.txt(2KB)
--------frmxjmodify.txt(2KB)
--------module1.txt(0B)
--------frmtjcj.txt(749B)
--------frmcjadd.txt(2KB)
--------frmxjquery.txt(737B)
--------frmmain.txt(334B)
--------register.txt(642B)
----frmcjmodify.frm(6KB)
----frmxjadd.frm(6KB)
----FRMMAIN.FRT(512B)
----Register1.frm(5KB)
----frmpjf.frm(8KB)
----frmxjmodify.frm(10KB)
----Student_db_Data.MDF(1024KB)
----frmcjquery.frx(21B)
----frmmain.log(46B)
----FRMXJM~1.log(1KB)
网友评论
- 能学到很多,不错
- 用着还行的,谢谢了
- 不错的系统,可以借鉴的很多
- 还可以 用着还行