Foxtable(狐表)用户栏目专家坐堂 → 请教一个问题!!!!!


  共有6776人关注过本帖树形打印复制链接

主题:请教一个问题!!!!!

帅哥哟,离线,有人找我吗?
我爱狐表011
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:139 积分:1090 威望:0 精华:0 注册:2013/2/18 16:09:00
请教一个问题!!!!!  发帖心情 Post By:2013/4/6 18:39:00 [显示全部帖子]

用户名:###

密   码:***

登陆按钮   取消按钮

主窗口标题:“主窗口”

 

我设置“登陆按钮”的click代码:

Dim dr As DataRow
Dim Ok As Boolean
Dim zhanghao As String = e.Form.Controls("TextBox1").Value
Dim mima As String = e.Form.Controls("TextBox2").Value
If zhanghao = Nothing Then
    MessageBox.Show("请输入您的登录账号!", "错误提示!",MessageBoxButtons.OK,MessageBoxIcon.Information)
    e.Cancel = True
ElseIf mima = Nothing Then
    MessageBox.Show("请输入您的登录密码!", "错误提示!",MessageBoxButtons.OK,MessageBoxIcon.Information)
    e.Cancel = True
Else
    DataTables("账号管理").LoadFilter= "[用户名] = '" & zhanghao & "'"
    DataTables("账号管理").Load
    dr = DataTables("账号管理").Find("[用户名] = '" & zhanghao & "'")
    If dr Is Nothing Then
        Messagebox.show("登陆账号和密码不一致!","错误提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
        e.Cancel = True
    ElseIf dr("密码") <> MD5Encrypt(mima) Then
        Messagebox.show("登陆账号和密码不一致!","错误提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
        e.Cancel = True
       Else
        DataTables.Save()
        e.Form.BaseForm.Hide()
        e.Form.close
        Forms("主窗口").Open()
    End If
End If

 

 

为什么打不开“主窗口”窗口呢,预览的时候也没有报错?

[此贴子已经被作者于2013-4-6 18:46:00编辑过]

 回到顶部