这是内部表的结构内容
此主题相关图片如下：账号密码.jpg
代码设计为
以下内容为程序代码:
1 Dim zh As WinForm.TextBox = e.Form.Controls("账号")
2 Dim mm As WinForm.TextBox = e.Form.Controls("电话")
3 If Tables("账号密码").rows.count = 0 Then
4 MessageBox.Show ("账号不存在,或者电话号码错误!","提示",MessageBoxButtons.OK,MessageBoxIcon.Warning)
5 zh.value=""
6 mm.value=""
7 Else
8 If zh.Value ="" Then
9 MessageBox.Show ("请输入账号!","提示",MessageBoxButtons.OK,MessageBoxIcon.Warning)
10 Else
11 Dim mms As String = Tables("账号密码").Current("电话")
12 If mm.value = "" Then
13 MessageBox.Show ("电话不能为空!","提示",MessageBoxButtons.OK,MessageBoxIcon.Warning)
14 Else
15 If mm.value= mms Then
16 Forms("修改密码").baseform.Opacity = 0
17 Forms("修改密码").close
18 Forms("修改").open
19 Else
20 MessageBox.Show ("账号不存在,或者电话号码错误!","提示",MessageBoxButtons.OK)
21 zh.value=""
22 mm.value=""
23 End If
24 End If
25 End If
26 End If
作用是通过比对账号和电话，进行密码强制修改。如果改为外部引用sql server数据库，数据库表中内容为
此主题相关图片如下：微博桌面截图_20150128095049.jpg
狐表中的外部数据源：
此主题相关图片如下：12121212.jpg
请教代码该做如何修改，能否帮忙修改一下代码，我想学习一下，谢谢版主大大
另外圆角窗口用black做背景，白边问题解决，另有个疑问e.Form.BaseForm().TransparencyKey = Color.Black
color.后的颜色能直接替换成色值吗？该如何表示？
[此贴子已经被作者于2015-1-28 9:53:43编辑过]
加好友 
发短信
Post By：2015/1/27 12:30:00 [显示全部帖子]
