主题：请教：DecryptText的问题

思路是这样的： 软件规定，如果销售单记录超过50笔，判断是否已经注册 ，如果已经注册 ，则继续进行下去，如果没有注册则提示注册，跳出注册窗口，考虑到DecryptText会出错，出现不友好界面

我在项目openproject 事件中 代码如下，麻烦狐狸指正

'Tables("用户单位").visible=False
' 取销售单销售记录数
Dim cmd1 As New SQLCommand
Dim xsjls As Integer
cmd1.C
cmd1.CommandText = "Select count(*) from {销售单}"
xsjls= cmd1.ExecuteScalar
'取销售单销售记录数

' 取得单位名称
Dim cmd2 As New SQLCommand
Dim dwmc As String
cmd2.C
cmd2.CommandText = "Select 单位名称 from {用户单位}"
dwmc= cmd2.ExecuteScalar
_dwmc= cmd2.ExecuteScalar
'取单位名称
'取注册码
Dim cmd3 As New SQLCommand
Dim zcm As String
cmd3.C
cmd3.CommandText = "Select 注册码 from {用户单位}"
zcm= cmd3.ExecuteScalar
'取注册码
'取注册期限
Dim cmd4 As New SQLCommand
Dim zcqx As String
cmd4.C
cmd4.CommandText = "Select 注册期限 from {用户单位}"
zcqx= cmd4.ExecuteScalar
'取注册期限
'进行判断
If xsjls>50
    Try
        If  DecryptText(zcm,"成功网络","www.chengon.com") = dwmc Then '如果注册码正确
        Else
            Forms("注册提示窗口").show()
        End If
        catch ex As Exception
        Forms("软件注册错误格式提示").show()
       End try
      End If
'检测

....

....

....

发现注册错误后，接下来进行注册

'进行判断
If xsjls>50
    Dim flag As Boolean
    Try
        If  DecryptText(zcm,"成功网络","www.chengon.com") = dwmc Then '如果注册码正确
            flag = True
        Else
            flag = False
        End If
    catch ex As Exception
        Forms("软件注册错误格式提示").show()
Forms("注册").show()
    finally
        If flag = False Then
 Forms("注册提示窗口").show()     
 Forms("注册").show()
End If     

    End try
End If
'检测

在注册窗口中  点取消按钮 退出系统 不进行下一步了 代码如下

Syscmd.Project.Exit()
e.Form.Close()

可还是进行下午