甜老师,安全问题基本解决。密码文本人工给各个店铺,这样就算反编译了,里面也没有密码文本。代码如下:
BeforeConnectOuterDataSource 事件:
Dim ipFile As String = e.ProjectPath & "ip.txt"
If e.Name = "VIP数据2" Then
If Filesys.FileExists(ipFile) Then
Dim Val2 As String = FileSys.ReadAllText(ipFile)
Dim Val3 As String = DecryptText(Val2,"drw=","vEVg=") '解密
e.ConnectionString = Val3
Else
messagebox.Show("请联系IT部管理员","提示",MessageBoxButtons.Ok, MessageBoxIcon.Information)
Syscmd.Project.Exit()
End If
End If
现在有几个问题:
Else
messagebox.Show("请联系IT部管理员","提示",MessageBoxButtons.Ok, MessageBoxIcon.Information)
Syscmd.Project.Exit()
假如密文不正确的话会弹出
此主题相关图片如下:密文错误,要怎么设置提示,而不出现这个对话框.jpg

此主题相关图片如下:密文错误,要怎么设置提示,而不出现这个对话框2.jpg

要怎么设置messagebox,而不出现这个有foxtable版本的提示框呢
[此贴子已经被作者于2014-6-8 9:45:31编辑过]