用户名:###
密 码:***
登陆按钮 取消按钮
主窗口标题:“主窗口”
我设置“登陆按钮”的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编辑过]