[开源] 密码登入框
Private Sub Command1_Click()
Open App.Path & "\a.txt" For Input As #1
Dim password As String
Line Input #1, password
Close #1
password = Trim(password)
If password = Me.Text1.Text Then
Form1.Hide
Form2.Show
Else
MsgBox "Wrong PassWrod!", vbCritical + vbOKCancel, "Error"
End If
End Sub
这个是文本加密
谁 给个数据库加密的源码