저는 프로젝트에서 로그인폼을 시작폼으로 했습니다...그리고 인증이 되면 Mdi폼이 나오는 순서입니다..
로그인폼에서 <<확인>> 버튼 클릭시 입니다.
---------------------------------------------
Private Sub cmdOK_Click() '확인버튼
Dim strResult As String
Dim sid$, spass$, no$, cmdstr$
Dim Astart As String
If txtUserName.Text = "" Then
MsgBox " 아이디가 입력되지 않았습니다.!! "
txtUserName.SetFocus
SendKeys "{Home}+{End}"
Exit Sub
End If
If txtPassword.Text = "" Then
MsgBox " 암호가 입력되지 않았습니다.!! "
txtPassword.SetFocus
SendKeys "{Home}+{End}"
Exit Sub
End If
sid = Trim(txtUserName.Text) + "," + Trim(txtPassword.Text)
strResult = Inet1.OpenURL("http://www.ok-lotto.com/mem_log.php?u_name= " & sid & " & no = 20")
If Left(strResult, 1) = "C" Then
MsgBox " 사용자아이디가 일치하지 않습니다.!! "
ElseIf Left(strResult, 1) = "B" Then
MsgBox " 비밀번호가 일치하지 않습니다.!! "
ElseIf Left(strResult, 1) = "A" Then
Me.Hide '------로그인폼을 숨긴다
MDIForm1.Show '---------메인 화면을 나타낸다
End If
End Sub
2. 그리고 제가 운영하는 사이트에다가 <<mem_log.php>> 파일을 만들었습니다.
<? //베이직에서 로그인시에 전달해줄 페이지
include "config.php";
$total=explode("," , trim($u_name)); '//// u_name 이 베이직에서 넘어온 변수입니다..
$res = mysql_query ("select u_id, pass from member where u_id='$total[0]'");
$rows=mysql_num_rows($res);
if ($rows > 0){
$data = mysql_fetch_array( $res );
if ($data[pass]==$total[1]){
echo "A"; //회원인증 //--php 를 실행시 화면에 나타나는 글입니다..베이직으로 넘겨줄 값이지요 즉 no 의 값은 A 입니다.
}
else {
echo "B"; //비밀번호 오류
}
}
else {
echo "C"; //아이디 오류
}
?>
이렇게 하면 실행시에 조그만 로그인박스만 뜨고 아이디/암호가 모두 맞으면 메인화면이 아주 잘 뜹니다..
이것 만들면서 어려웠던부분이 있었는데, php 로 아이디와 암호를 각각 변수로 전달이 잘 안되더라구요..아이디는 전달이 잘되는데
암호는 전달이 잘 안되서 그냥 아이디와암호를 컴마로 구분하여 php 로 넘겼습니다.
php 에서 컴마를 구분자로 하여 배열로 나누었죠..$total=explode("," , trim($u_name));
또 한가지는 php 에서 화면에 나타나는 글씨 즉 A 가 베이직에서는 도대체 A로 인식을 못하더라고요..
그래서 Trim 도 써보고 하다가 그냥 문자열에서 한글자만 추출하는 방법으로 선회했습니다..Left(strResult, 1) = "A"
고수분들이 보시면 웃으시겠지만, 초보자에겐 힘든 부분이었습니다...ㅎㅎㅎ
초보 화이팅~~!!
