QQ空间再次开通怎么还出现对不起，生日不能为空

开通时就没有填生日的那，却出现对不起，生日不能为空

内测时需要召集更多人来玩QQ空间，所以直接点开通就行了，版本更新、有些东西也更新，填上生日不就行了。祝你愉快！

那你就填呗

Option Explicit  Private Sub cmdCancel_Click() Dim intResult As Integer '请求用户确认是否真的退出系统登录 intResult = MsgBox("你选择了退出系统登录，退出将不能启动企业人事管理系统！" & vbcrlf_ & "是否真的退出？", vbYesNo, "登录验证") If intResult = vbYes Then End '根据用户选择结束应用程序 End Sub Private Sub CmdOK_Click() Dim UserName As String Dim userpassword As String Dim str As String Dim nTryCount As Integer Dim rs As New ADODB.Recordset Set rs = New ADODB.Recordset UserName = Trim(txtUserName.Text) userpassword = Trim(txtpassword.Text) str = "select * from 用户信息表 where 用户名='" & UserName & "' and 用户密码 = '" & userpassword & " '" rs.Open str, connectString, adOpenKeyset, 2 If rs.EOF Then '登录失败 MsgBox "对不起，无此用户或者密码不正确！请重新输入！！", vbCritical, "错误" txtUserName.Text = "" txtpassword.Text = "" txtUserName.SetFocus nTryCount = nTryCount + 1 If nTryCount >= 3 Then MsgBox "您无权操作本系统！", vbCritical, "无权限" Unload Me End If Else '登陆成功 主界面.Show Unload Me End If End Sub 方法二：Private Sub Command1_Click()   Dim username As String   Dim userpassword As String   Dim try_times As Integer   try_times = 0      username = Trim$(user.text)   userpassword = Trim$(password.text)   If user.text = "" Then     MsgBox "用户名不能为空！", vbOKOnly + vbInformation, "友情提示"     user.SetFocus     Exit Sub   End If   If password.text = "" Then     MsgBox "密码不能为空！", vbOKOnly + vbInformation, "友情提示"     password.SetFocus     Exit Sub   End If      Dim strSQL As String   strSQL = "select * from staff where sno='" & username & "' and password='" & userpassword & "'" &n 原文来源: http://www.thekoko.info/