路过，欢迎到我的RoseGril.cn交流下，如有打扰请见谅。谢谢! Create At:21:11:46

路过，欢迎到我的RoseGril.cn交流下，如有打扰请见谅。谢谢! Create At:18:31:00

没有申请加入的按钮，这是怎么回事？？？？？

找了半天没发现怎么加入的按钮！

MM要考博，可是以前从没学过计算机辅助设计技术基础，最近看了书，晕菜，怎么办？请教，谢了。

顶，我来加入。
我也在合肥，在合肥呆5年了（包括上学）。

不错，终于看不到那个讨厌的错误了

不考虑四舍五入，0.219就被你搞成21%了。

支持，我都准备贴到我的地盘上去肋。

Ray
msdpe.cnblogs.com

申请加入俱乐部

我们安徽的人气还是差了些,希望能和大家一起改变这个局面,我非常希望能够和大家一起分享和学习.
期望能组织些活动,让我们也不至于在合肥待了1年都快闷死了,没什么人交流,大部分同事都不钻研新技术、新思路。
希望俱乐部能够满足大家这样一个需求，呵呵，也希望能过过讲师的瘾，虽然懂的不是太多。
我的qq：49325149
邮箱：robinzhan@gmail.com

好文！

我申请加入安徽俱乐部，我在合肥工作。
http://robinzhan.cnblogs.com/

@KING

我之前也遇到过和你一样的问题，出现这个情况很可能是你改动了那个数据源的名称了，不能改的。设为 Oracle 后，在那些 properties 里面填东西，只要填用户名和服务器，不要改上面那两个数据源和备注描述的框框

你知道哪里有下rsa嘛？

好像还是存在问题,把你提供的文件下载以后rose可以正常打开并可以做一部分工作了,但是在新建一个mdl,选择j2ee项目的时候rose崩溃,而且对于其它的j2ee工程无法使用rose打开,每次打开都出现问题.此外还出现一些莫名奇妙的问题,反正我现在在公司的工程在家就无法打开.

有人遇到过rose2003 solution在xp sp2下面安装以后提示rose注册失败,启动rose就只出现rose画面(flush)一闪而过然后没有反应的问题吗?

to:sibaypm
忘记说明了，你发现的问题是正确的，也是正常的。
DPAPI是操作系统为应用程序分配密钥，其它应用程序无法拿到密钥的，否则使用同样的类库在同一台机器上的两个不同的应用程序都可以解密的话，DPAPI加密方式也就失去了存在的意义了。

如果跨应用程序，则应当考虑使用对称密钥或非对称密钥加密。

具体的加密资料需要你自己来解决了。

DPAPI只适用于某台机器下某个应用程序需要保护自己的数据时使用，同一个应用程序换机器或者重装机器都将无法打开加密的数据。

从某种意义上讲，DPAPI不是为了数据的解密方便而存在的，目的是保护，或者说保护维护该数据的人清楚的数据。如连接字符串，加密的密钥等。

Thank you!

我在程序运行中进行加密解密的时候,可以正常工作.但如果我加密和解密不在同一个程序里的时候,解密就老报错了,不知道这是怎么回事呢?

Option Explicit
Dim cnt As Integer '记录确定次数

Private Sub Command1_Click()
Dim sql As String
Dim rs_login As New ADODB.Recordset
If Trim(txtuser.Text) = "" Then '判断输入的用户名是否为空
MsgBox "没有这个用户", vbOKOnly + vbExclamation, ""
txtuser.SetFocus
Else
sql = "select * from 系统管理 where 用户名='" & txtuser.Text & "'"
rs_login.Open sql, conn, adOpenKeyset, adLockPessimistic
If rs_login.EOF = True Then
MsgBox "没有这个用户", vbOKOnly + vbExclamation, ""
txtuser.SetFocus
Else '检验密码是否正确
If Trim(rs_login.Fields(1)) = Trim(txtpwd.Text) Then
userID = txtuser.Text
userpow = rs_login.Fields(2)
rs_login.Close
Unload Me
frmMain.Show
Else
MsgBox "密码不正确", vbOKOnly + vbExclamation, ""
txtpwd.SetFocus
End If
End If
End If
cnt = cnt + 1
If cnt = 3 Then
Unload Me
End If
Exit Sub
End Sub

Private Sub Command2_Click()
Unload Me
End Sub

Private Sub Form_Load()
Dim connectionstring As String
connectionstring = "provider=Microsoft.Jet.oledb.4.0;" & _
"data source=book.mdb"
conn.Open connectionstring
cnt = 0
End Sub
这个谁帮忙讲解一下吧,谢谢