文件名称:
客房管理系统 vb 数据库access
开发工具:
文件大小: 1mb
下载次数: 0
上传时间: 2010-03-24
详细说明： 实验报告加源码 程序代码如下： Private Sub cmdok_Click() '检查正确的密码 '首先要对用户名特殊字符的过滤 '防止非授权用户的登陆访问 Dim s1 As String Dim i As Integer Dim j As Integer Dim a(18) As String j = Len(txtUserName.Text) s1 = txtUserName.Text Dim c As Integer c = 1 For i = 1 To j a(i) = Mid(s1, i, 1) '逐一判断字符的合格化 If a(i) = "" Then MsgBox "Error", vbOKOnly, "Error" Exit Sub ElseIf a(i) = "<" Then MsgBox "Error", vbOKOnly, "Error" Exit Sub ElseIf a(i) = "& gt;" Then MsgBox "Error", vbOKOnly, "Error" Exit Sub ElseIf a(i) = "=" Then MsgBox "Error", vbOKOnly, "Error" Exit Sub ElseIf a(i) = " " Then MsgBox "Error", vbOKOnly, "Error" Exit Sub ElseIf a(i) = "~" Then MsgBox "Error", vbOKOnly, "Error" Exit Sub ElseIf a(i) = "," Then MsgBox "Error", vbOKOnly, "Error" Exit Sub ElseIf a(i) = "'" Then MsgBox "Error", vbOKOnly, "Error" Exit Sub End If c = c + 1 txtUserName.SetFocus Next i Dim strusername As String Dim strpassword As String Static intlogintimes As Integer If Trim(txtUserName.Text) = "" Then MsgBox "用户名不能为空！", vbOKOnly + vbCritical, "错误" Exit Sub End If opentable adousers, "usersinfo" adousers.Refresh adousers.Recordset.Find "姓名=" & "'" & txtUserName.Text & "'", , adSearchForward, 1 If Not adousers.Recordset.EOF Then strusername = adousers.Recordset!姓名 strpassword = adousers.Recordset!密码 Else strusername = "" strpassword = "" End IIf strusername = txtUserName.Text And strpassword = txtPassword.Text Then adousers.Recordset.Close Unload Me frmmdi.Show Else MsgBox "用户名或密码不对！", vbOKOnly + vbInformation, "提示" intlogintimes = intlogintimes + 1 If intlogintimes >= 3 Then adousers.Recordset.Close End End If txtPassword.SetFocus SendKeys "{HOME}+{END}" End If End Sub Private Sub cmdcancel_click() Unload Me End Sub ...展开收缩
(系统自动生成,下载前可以参看下载内容)
下载文件列表
相关说明
- 本站资源为会员上传分享交流与学习,如有侵犯您的权益,请联系我们删除.
- 本站是交换下载平台，提供交流渠道，下载内容来自于网络，除下载问题外，其它问题请自行百度。
- 本站已设置防盗链，请勿用迅雷、QQ旋风等多线程下载软件下载资源，下载后用WinRAR最新版进行解压.
- 如果您发现内容无法下载，请稍后再次尝试；或者到消费记录里找到下载记录反馈给我们.
- 下载后发现下载的内容跟说明不相乎，请到消费记录里找到下载记录反馈给我们，经确认后退回积分.
- 如下载前有疑问，可以通过点击"提供者"的名字，查看对方的联系方式，联系对方咨询.
