Access΢n
ڱվl?    Accessƽ_QQȺ̖84825014    Access_lƽ_dַ̳    gӭ΢Ž~̖AccessoftChu    οվ|ʾ|Y    
λã > g > Access_lƽ_

2019年欧预赛规 :μܷƹ

2020ŷޱԤ www.okrxb.com rg:2018-09-20 23:02:12
:K   ID66601  УՌ
ժҪ:@DZʹAccess_lƽ__lܛrõһμֹܷѵĄڄӳɹIõķyԇ\Эh飺WIN7OFFICE2007
:

һ_l˼·

@ȡӋCӲϢܺ󱣴浽

ÿ\ж@ȡǰӋCӲϢܺͅMбȌ

ƥ伴@ʾעԴw\

ƥ伴\

Soft_RegisterwIˆ


F

SysFrmLogin w´aaеPWkeyֵѵļܳҪ޸


Private Sub Form_Load()
    If GetParameter("ComputerID") <> des(computerID(), "PWkey", doEncryption) Then
        DoCmd.OpenForm "Soft_Register", acNormal
    Else
        Dim strFormName As String: strFormName = Me.Name
        DoCmd.Close acForm, strFormName, acSaveNo
        OpenRDPForm strFormName
    End If
End Sub

ӡSoft_RegisterwѵijaеPWkeyֵѵļܳҪ޸


Private Sub Form_Close()
    If GetParameter("ComputerID") = des(computerID(), "PWkey", doEncryption) Then
        MsgBox "עԼɹՈ´_ܛ"
      Else
        MsgBox "עԼʧՈ´_ܛMעԼʹ"
    End If
End Sub


Private Sub Form_Load()
    Me.ShortcutMenu = False
    Me.registerID = GetParameter("ComputerID")
    Me.Computer = computerID()
End Sub

Private Sub getRegister_Click()
    Me.registerID = des(Me.Computer, "PWkey", doEncryption)
End Sub

Private Sub quit_Click()
    Me.ShortcutMenu = True
    DoCmd.quit acQuitSaveNone
End Sub

Private Sub Register_Click()
    If des(Me.registerID, "PWkey", doDecryption) = Me.Computer Then      
        DoCmd.SetWarnings False
        Dim strSQL
        If GetParameter("ComputerID") <> des(computerID(), "PWkey", doEncryption) Then
            strSQL = "update [SysLocalParameters] set [Value]='" & des(computerID(), "PWkey", doEncryption) & "' where [ParameterName]='ComputerID'"
            DoCmd.RunSQL strSQL
        End If
        MsgBox "עԳɹ"
        blExit = True
        Call LogoutRDP
    Else
        MsgBox "a`Ո"
        Me.Register.SetFocus
    End If   
End Sub

Private Sub WriteRegister_Click()
    DoCmd.SetWarnings False
    Dim strSQL
    strSQL = "update [SysLocalParameters] set [Value]='' where [ParameterName]='ComputerID'"
    DoCmd.RunSQL strSQL
    Me.registerID = ""
End Sub



ʾd

d≺_MainļͿ\

    :UMVsoftRDP_V2.4.1.412_32bit

cd˸



Access_lƽ_QQȺ (Ⱥ̖:239158550) accessԴaW

鿴uՓ(1)

2020/3/1 17:47:14ѩ
SysLocalParametersһ computerID䛺עͰעԴaMȥ´ξͲʾע

luՓuՓ߷ĄuՓһ°

Ñ
ܡa
ȡݣ
 

Ҋ

g

PYԴ

| ՗l | ھͶ | | WվyӋ |