RSS
当前位置 : 电脑维修 > 电脑维修 > 在java中如何实现用户名和密码登陆

在java中如何实现用户名和密码登陆

来源:未知 作者:老黑 时间:09-08-08 打印
帮个忙啊!!急 Private Sub cmdok_Click()
   '判断用户名是否为空
   If Me.txtusername.Text = "" Then
       r = MsgBox("请输入用户名!", , "应付帐管理")
       txtusername.SetFocus
       Exit Sub
   End If

   '判断密码是否为空
   If Me.txtuserpwd.Text = "" Then
       rr = MsgBox("请输入密码!", , "应付帐管理")
       txtuserpwd.SetFocus
       Exit Sub
   End If
   
   '连接数据库
   Dim cn As New ADODB.Connection
   Dim rs As New ADODB.Recordset
   
   cn.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=dbdesign;Data Source=043DDAC1AF9145E"
   
   Set rs = New ADODB.Recordset
   Dim s_Sql As String
   '判断用户是否存在
   s1_sql = "SELECT * FROM uuser WHERE username='" & Trim(txtusername.Text) & "' and pwd='" & Trim(Me.txtuserpwd.Text) & "'" '从数数据库中查询相应首字母的词条
   rs.Open s1_sql, cn, adOpenStatic, adLockOptimistic '执行SQL语句< fef br>
   On Error Resume Next
   rs.MoveFirst '移到第一条记录
   If Err = 3021 Then
     r = MsgBox("用户名或密码错误,请重新检查!", , "应付帐管理") '加一个错误处理
     Exit Sub
   End If
   
     
End Sub

Private Sub cmdreset_Click()
   txtusername.Text = ""
   txtuserpwd.Text = ""
End Sub
最新评论共有位网友发表了评论
发表评论
评论内容:不能超过250字,需审核,请自觉遵守互联网相关政策法规。
用户名: 密码:
匿名评论