|
|
|
|
|
 |
0 |
|
| View Articles |
|
 |
Name |
| 愛するJY |
(2002-06-12 19:55:00, Hit : 10448, Vote : 2132)
|
|
|
| Subject |
비주얼베이직 로그인에대한 질문입니다. |
|
|
학교 프로젝트 숙제를 하면서 로그인을 시킬려고 합니다.
기존에 데이타베이스에 입력되어있는 학생들의 학번으로 패스워드를
할려고 하는데요.. 코드를 잘 못짰는지 텍스트 박스에 입력한 패스워드가
데이타베이스에 있는 학번과 비교가 되지 않네요...
도움말좀 부탁드립니다. 조금 급하거든여^^;;;
Private Sub cmdOK_Click()
'정확한 암호를 확인합니다.
Dim ID As String
Dim SQL As String
Dim a As String
ID = txtUserID.Text
SQL = "select * from 학생관리 where 학번 = '" & ID & "'"
Adodc1.Recordset = a
Adodc1.RecordSource = SQL
txtUserName.Text = SQL
If ID = a Then
'코드를 여기에 붙여 넣어
'성공 사항을 호출 Sub로 전달합니다.
'전역 변수를 설정하는 것이 가장 쉽습니다.
LoginSucceeded = True
MsgBox "시스템에 로그인 되었습니다"
frmMain.Show
Me.Hide
Else
MsgBox "암호가 잘못되었습니다. 다시 시도하십시오", , "로그인"
txtUserID.SetFocus
SendKeys "{Home}+{End}"
End If
End Sub
|
|
