구현 방법에는 여러 가지가 있는데, 주로 비밀번호를 어디에 보관해야 하는지, TXT, INI, 레지스트리, 데이터베이스 등에 따라 달라진다. 방식마다 다른 방법이 있다. 다음은 ACCESS 구현을 참고하고, 기능 확장 공간이 커서, 사용자 이름도 읽기를 저장할 수 있습니다.

먼저 구성 요소 엔지니어링인 Microsoft ActiveX Object 2 이전의 "검사" 를 참조합니다. * 라이브러리 확인.

코드는 다음과 같습니다.

Dim cn 은 새 ADODB 로 사용됩니다. 관계

Dim RS 를 새 ADODB 로 사용합니다. 레코드 세트

Dim qqmima, tbmima, emmima

개인 하위 명령 1_Click ()

If 옵션 1. 그럼 값 = 참

Rs("qq") = T 1. 텍스트

Qqmima = T 1 입니다. 텍스트

ElseIf 옵션 2. 그럼 값 = 참

Rs("tb") = T 1. 텍스트

Tbmima = T 1 입니다. 텍스트

ElseIf 옵션 3. 그럼 값 = 참

Rs("em") = T 1. 텍스트

Emmima = T 1 입니다. 텍스트

기타

T 1 입니다. Text = "알 수 없는 오류"

만약 ... 끝날거야

Rs. 업데이트

끝단 접합

개인 하위 명령 2_Click ()

If 옵션 1. 그럼 값 = 참

T 1 입니다. 텍스트 = qqmima

ElseIf 옵션 2. 그럼 값 = 참

T 1 입니다. Text = tbmima

ElseIf 옵션 3. 그럼 값 = 참

T 1 입니다. Text = emmima

기타

T 1 입니다. Text = "알 수 없는 오류"

만약 ... 끝날거야

끝단 접합

개인 하위 양식 _Load ()

Set cn = New ADODB 입니다. 관계

Ps 를 문자열로 조정

Ps = "공급자 = microsoft.jet.oledb.4.0; 데이터 소스 = "& ampApp. 경로 및 경로. "₩ db.mdb; Jetoledb: databasepassword = * * * * "'* * * * * * 는 데이터베이스 비밀번호입니다.

Cn 입니다. Ps 를 켭니다

Sql 을 문자열로 표시합니다

Set RS = New ADODB 입니다. 레코드 세트

Sql = "select * from suju "

Rs. Sql, cn, adOpenDynamic, adLockOptimistic 을 엽니다

Qqmima = rs("qq ")

Tbmima = rs("tb ")

Emmima = rs("em ")

끝단 접합

개인 하위 양식 _Unload (정수로 취소)

Cn 입니다. 닫기

끝단 접합