سورس کد مدیریت پسورد با ویژوال بیسیک

سورس کد مدیریت پسورد با ویژوال بیسیک

با یکی دیگر از پروژه های برنامه نویسی رایگان در این بخش با سورس کد مدیریت پسورد با ویژوال بیسیک در خدمت شما همراهان سایت هستیم.

این پروژه با ویژوال بیسیک 6 کدنویسی شده است که شما دوستان می توانید برنامه ای داشته باشید که با آن رمزهای عبور مختلف سایت ها را ذخیره کنید تا آنها را فراموش نکنید.

بخشی از سورس کد برنامه :

Private Sub CmdAdd_Click()
    If CmdAdd.Caption = "Add" Then
        Dim rsKey As New Recordset
        
        blnAddNew = True
        
        With rsKey
            .CursorLocation = adUseClient
            .Open "SELECT * FROM [Key]", CN, adOpenStatic, adLockOptimistic
            
            PK = .Fields("Key")
            .Fields("Key") = PK + 1
            
            .Update
            
            .Close
        End With
        
        LblLink.Visible = False
        txtWebsite.Visible = True
        
        txtAccount.Text = ""
        txtWebsite.Text = ""
        txtUserName.Text = ""
        txtPassword.Text = ""
        txtNote.Text = ""
        
        CmdAdd.Caption = "Save"
        CmdEdit.Caption = "Cancel"
        
        LockCtrl False
    Else
        With RS
            If CmdAdd.Caption = "Save" Then
                .AddNew
                
                Set itmX = lvAccounts.ListItems.Add(, , txtAccount.Text)
                      
                itmX.SubItems(1) = PK
                
                .Fields("AccountID") = PK
                
                blnAddNew = False
            Else
                lvAccounts.SelectedItem = txtAccount.Text
            End If
 
            .Fields("Account") = txtAccount.Text
            .Fields("Website") = txtWebsite.Text
            .Fields("Username") = txtUserName.Text
            .Fields("Password") = Enc.EncryptString(txtPassword.Text)
            .Fields("Note") = txtNote.Text
            
            .Update
        End With
        
        LblLink.Visible = True
        txtWebsite.Visible = False
 
        CmdAdd.Caption = "Add"
        CmdEdit.Caption = "Edit"
        
        LockCtrl True
    End If
End Sub

شما دوستان عزیز می توانید سورس پروژه رایگان را از سایت دریافت کرده و ازش نهایت استفاده را ببرید.