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

VB+SQL server学生信息管理系统毕业论文附源代码 第14页

更新时间:2007-10-13:  来源:毕业论文
 

sBuffer = Space$(255)

lSize = Len(sBuffer)

Call GetUserName(sBuffer, lSize)

If lSize > 0 Then

txtUserName.Text = ""

 

Else

txtUserName.Text = vbNullString

End If

 

 

OK = False

miCount = 0

End Sub

 

 

Private Sub cmdCancel_Click()

OK = False

Me.Hide

End Sub

 

 

Private Sub cmdOK_Click()

Dim txtSQL As String

Dim mrc As ADODB.Recordset

Dim MsgText As String

'ToDo: create test for correct password

'check for correct password

 

UserName = ""

If Trim(txtUserName.Text = "") Then

MsgBox "没有这个用户,请重新输入用户名!", vbOKOnly + vbExclamation, "警告"

txtUserName.SetFocus

Else

txtSQL = "select * from user_Info where user_ID = '" & txtUserName.Text & "'"

Set mrc = ExecuteSQL(txtSQL, MsgText)

If mrc.EOF = True Then

MsgBox "没有这个用户,请重新输入用户名!", vbOKOnly + vbExclamation, "警告"

txtUserName.SetFocus

Else

If Trim(mrc.Fields(1)) = Trim(txtPassword.Text) Then

OK = True

mrc.Close

Me.Hide

UserName = Trim(txtUserName.Text)

Else

MsgBox "输入密码不正确,请重新输入!", vbOKOnly + vbExclamation, "警告"

txtPassword.SetFocus

txtPassword.Text = ""

End If

End If

End If

 

miCount = miCount + 1

If miCount = 3 Then

Me.Hide

End If

Exit Sub

End Sub 

 

 << 上一页  [11] [12] [13] [14] [15] [16] [17] [18] [19] [20]  ... 下一页  >> 

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

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