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

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

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

این پروژه با ویژوال بیسیک 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

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